Ì i 2
mri.loc.audit.trail (audit.trail)
[audit.prefix,audit.record,audit.portion,audit.date,audit.time]
: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 :ELA[epx,ea,elP,elA,elT]|1
audit.epi.num 15 FREE L VAL=@MRI.PAT.epi.num
audit.name 25 FREE L VAL=(@MRI.PAT.name:25T)
audit.recipient 12 URN L MRI.LOC.RRV :ELA[epx,ea,elP,elA,elT]|0
audit.record.date 8 DATE L :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 :ELA[epx,ea,elP,elA,elT]|2
Ì i 2
mri.locator.file (main)
[prefix,record]
: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
epi.num 15 FREE L VAL=@MRI.PAT.epi.num[MRI.LOC.record]
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
mri.locator.portions (portions)
[prefix,record, portion]
: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 :EL[epx,ea,elP]|3
date.due.back 8 DATE L :EL[epx,ea,elP]|1
date.out 8 DATE L :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 :EL[epx,ea,elP]D|1
ee.rsv.date.perm 8 DATE L :EL[epx,ea,elP]D|4
ee.rsv.next.number 2 PINT R :EL[epx,ea,elP]D|3
ee.rsv.order 2 PINT R :EL[epx,ea,elP]D|2
ee.rsv.total.number 2 PINT R :EL[epx,ea,elP]D|5
ee.what 1 FREE L :EL[epx,ea,elP]D|0
rec.inhouse 1 YN L VAL=@MRI.LOC.RRV.inhouse
recipient 12 URN L MRI.LOC.RRV :EL[epx,ea,elP]|2
recipient.and.name 42 FREE L VAL=(@recipient_" "_IF{@recipient$2'="d " @MRI.LOC.RR.
VAL=name[@recipient];@MIS.DOC.DICT.name[@recipient%1]}
VAL=:42L)
recipient.name 33 FREE L VAL=(IF{@recipient$2'="d " @MRI.LOC.RR.name[@recipient
VAL=];@MIS.DOC.DICT.name[@recipient%1]})
reserved 1 YN L VAL=IF{+@reservations[@.mri.pfx,record,portion,""] "Y"
VAL=;""}
Ì € i 2
merged.from.pts (merged.from.pts)
[prefix,record,portion, merged.from.number]
:EL[epx,ea,elP]MF[elZ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
merged.from.number 2 PINT R elZ
merged.from.patient 25 URN L MRI.PAT :EL[epx,ea,elP]MF[elZ]|0
Ì € i 2
mri.locator.reservations (reservations)
[prefix,record,portion, res.order]
: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 :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 :EL[epx,ea,elP]R[elR]|1
Ì i 2
mri.loc.user.file.counts (user.file.counts)
[loc.user,loc.date]
: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 :ELCNT[gu,ed]
Ì 2
INDEX FILE/INTERNAL NAME SUBSCRIPTS/PHYSICAL BASE
mri.locator.out.index [prefix,recipient,date.due.back,record,portion]
out.index ?ELO[epx,er,elD,ea,elP]
mri.locator.reserve.index [prefix,res.recipient,res.date,record,portion,res.order]
reserve.index ?ELR[epx,er,elRD,ea,elP,elR]
|
|
| | | | |