Ì 2
abs.purge.add.archive.indexes (add.archive.indexes)
[add.archive.index]
:DKA[dkA]
Field Name Len Dat Typ J DPM Offset/Local/VAL
add.archive.index 10 CHOICE L dkA
arch.index.current.pt 44 FREE L ABS.PAT :DKA[dkA]|10
arch.index.end.date 8 DATE L :DKA[dkA]|4
arch.index.end.time 4 TIME L :DKA[dkA]|5
arch.index.free.blocks 10 PINT R :DKA[dkA]|9
arch.index.halt.type 30 CHOICE L :DKA[dkA]|7
arch.index.halt.user 10 FREE L MIS.USER :DKA[dkA]|6
arch.index.start.date 8 DATE L :DKA[dkA]|1
arch.index.start.time 4 TIME L :DKA[dkA]|2
arch.index.start.user 10 FREE L MIS.USER :DKA[dkA]|3
arch.index.status 10 CHOICE L :DKA[dkA]|0
arch.pts.considered 6 PINT R :DKA[dkA]|11
arch.tot.pts.indexed 6 PINT R :DKA[dkA]|8
Ì € 2
abs.purge.add.arch.ind.lock.pt (add.arch.index.lock.pts)
[add.archive.index, add.arch.index.lock.urn]
:DKA[dkA]U[dz]
Field Name Len Dat Typ J DPM Offset/Local/VAL
add.arch.index.lock.urn 44 FREE L ABS.PAT dz
Ì 2
abs.purge (main)
:DK
Field Name Len Dat Typ J DPM Offset/Local/VAL
arch.list.printed 1 YN L :DK|14
current.pt 44 FREE L ABS.PAT :DK|11
end.date 8 DATE L :DK|4
end.time 4 TIME L :DK|5
halt.type 30 CHOICE L :DK|7
halt.user 10 FREE L MIS.USER :DK|6
num.free.blocks 10 PINT R :DK|13
num.pts.archived 6 PINT R :DK|9
num.pts.considered 6 PINT R :DK|8
num.pts.purged 6 PINT R :DK|10
purge.only 1 YN L :DK|12
start.date 8 DATE L :DK|1
start.time 4 TIME L :DK|2
start.user 10 FREE L MIS.USER :DK|3
status 10 CHOICE L :DK|0
Ì 2
abs.purged.accounts (account.list)
[name,account.number,urn]
:DK["A",dzN,dzR,dzDZ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
name 30 FREE L dzN
account.number 12 FREE L dzR
urn 44 FREE L dzDZ
abs.status 10 CHOICE L :DK["A",dzN,dzR,dzDZ]|6
adm.date 8 DATE L :DK["A",dzN,dzR,dzDZ]|0
archived 1 YN L :DK["A",dzN,dzR,dzDZ]|7
dis.date 8 DATE L :DK["A",dzN,dzR,dzDZ]|1
facility 10 FREE L MIS.FACILITY :DK["A",dzN,dzR,dzDZ]|5
pt.class 10 FREE L ABS.PT.CLASS :DK["A",dzN,dzR,dzDZ]|2
pt.status 8 FREE L ABS.PT.STATUS :DK["A",dzN,dzR,dzDZ]|3
reservation.date 8 DATE L :DK["A",dzN,dzR,dzDZ]|8
unit.number 10 FREE L :DK["A",dzN,dzR,dzDZ]|4
Ì 2
abs.purge.ready.dates (ready.dates)
[ready.date.pt.class]
:DK["D"]DT[djf]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ready.date.pt.class 10 FREE L ABS.PT.CLASS djf
disch.ready.date 8 DATE L :DK["D"]DT[djf]|0
final.ready.date 8 DATE L :DK["D"]DT[djf]|1
last.act.ready.date 10 PINT R :DK["D"]DT[djf]|2
last.act.ready.date.out 8 DATE L VAL=%Z.date.clin.to.npr(@last.act.ready.date)
|
|
| | |