Ì € i 2
audit.trail
[audit.prefix,audit.record,audit.portion,audit.date,audit.time]
*(E1)ELA[epx,ea,elP,elA,elT]
Field Name Len Dat Typ J DPM Offset/Local/VAL
audit.prefix 2 FREE L epx
audit.record 25 URN L MRI.PAT ea
audit.portion 20 FREE L elP
audit.date 8 DATE L elA
audit.time 4 TIME L elT
audit.action 10 FREE L *(E1)ELA[epx,ea,elP,elA,elT]|1
audit.name 25 FREE L VAL=(@MRI.PAT.name:25T)
audit.recipient 12 URN L MRI.LOC.RRV *(E1)ELA[epx,ea,elP,elA,elT]|0
audit.record.date 8 DATE L *(E1)ELA[epx,ea,elP,elA,elT]|3
audit.unit.number 10 FREE L VAL=@MRI.PAT.unit.number
audit.user 10 FREE L MIS.USER *(E1)ELA[epx,ea,elP,elA,elT]|2
Ì € i 2
main
[prefix,record]
*(E1)EL[epx,ea]
Field Name Len Dat Typ J DPM Offset/Local/VAL
prefix 2 FREE L epx
record 25 URN L MRI.PAT ea
id 37 FREE L VAL=@MRI.PAT.main[MRI.PAT.urn]UN[@.mri.pfx]|0_" "_@MR
VAL=I.PAT.name
name 25 FREE L VAL=(@MRI.PAT.name:25T)
sign.out.init 0 FREE L VAL=%MRI.LOC.sign.out.init(0)
unit.number 10 FREE L VAL=@MRI.PAT.px.unit.number[MRI.LOC.record,@.mri.pfx]
unit.number.tdo 10 FREE L VAL=%MRI.PAT.unit.number.tdo(@unit.number)
Ì € i 2
portions
[prefix,record, portion]
*(E1)EL[epx,ea,elP]
Field Name Len Dat Typ J DPM Offset/Local/VAL
portion 20 FREE L elP
available 1 YN L VAL=IF{@recipient "N";"Y"}
comment 33 FREE L *(E1)EL[epx,ea,elP]|3
date.due.back 8 DATE L *(E1)EL[epx,ea,elP]|1
date.out 8 DATE L *(E1)EL[epx,ea,elP]|0
days.overdue 3 PINT R VAL=IF{@.today>@date.due.back %Z.date.sub(@.today,@
VAL=date.due.back)&999}
ee.rsv.date 8 DATE L *(E1)EL[epx,ea,elP]D|1
ee.rsv.date.perm 8 DATE L *(E1)EL[epx,ea,elP]D|4
ee.rsv.next.number 2 PINT R *(E1)EL[epx,ea,elP]D|3
ee.rsv.order 2 PINT R *(E1)EL[epx,ea,elP]D|2
ee.rsv.total.number 2 PINT R *(E1)EL[epx,ea,elP]D|5
ee.what 1 FREE L *(E1)EL[epx,ea,elP]D|0
rec.inhouse 1 YN L VAL=@MRI.LOC.RRV.inhouse
recipient 12 URN L MRI.LOC.RRV *(E1)EL[epx,ea,elP]|2
recipient.addr 20 FREE L VAL=%MRI.LOC.letter.field(A,B,C)
recipient.and.name 42 FREE L VAL=(@recipient_" "_IF{@recipient$2'="d " @MRI.LOC.RR.
VAL=name[@recipient];@MIS.DOC.name[@recipient%1]}:42L)
recipient.first.name 20 FREE L VAL=%MRI.LOC.letter.field(A,B,C)
recipient.last.name 20 FREE L VAL=%MRI.LOC.letter.field(A,B,C)
recipient.name 33 FREE L VAL=(IF{@recipient$2'="d " @MRI.LOC.RR.name[@recipient
VAL=];@MIS.DOC.name[@recipient%1]})
recipient.pat.list 10 FREE L VAL=%MRI.LOC.letter.field(A,B,C)
recipient.tot 5 FREE L VAL=%MRI.LOC.letter.field(A,B,C)
recipient.tot.w 5 FREE L VAL=%MRI.LOC.letter.field(A,B,C)
reserved 1 YN L VAL=IF{+@reservations[@.mri.pfx,record,portion,""] "Y"
VAL=;""}
Ì € i 2
reservations
[prefix,record,portion, res.order]
*(E1)EL[epx,ea,elP]R[elR]
Field Name Len Dat Typ J DPM Offset/Local/VAL
res.order 2 URN L elR
res.date 8 DATE L *(E1)EL[epx,ea,elP]R[elR]|0
res.rec.inhouse 1 YN L VAL=@MRI.LOC.RRV.inhouse
res.recipient 12 URN L MRI.LOC.RRV *(E1)EL[epx,ea,elP]R[elR]|1
Ì i 2
user.file.counts
[loc.user,loc.date]
*(E1)ELCNT[gu,ed]
Field Name Len Dat Typ J DPM Offset/Local/VAL
loc.user 10 FREE L MIS.USER gu
loc.date 8 DATE L ed
loc.count 3 INT R *(E1)ELCNT[gu,ed]
Index Files Subscripts/Physical Base
out.index [prefix,recipient,date.due.back,record,portion]
?(E)ELO[epx,er,elD,ea,elP]
|
|
| | | |