Ì i 2
auto.locator.x
[auto.loc.date,auto.loc.mri,auto.loc.urn,auto.loc.lib.path,auto.loc.next.rec.loc]
?(R)RFLA[rfALD,ea,rfJ,rlp,rlb]
Field Name Len Dat Typ J DPM Offset/Local/VAL
auto.loc.date 8 DATE L rfALD
auto.loc.mri 25 URN L MRI.PAT ea
auto.loc.urn 10 FREE L rfJ
auto.loc.lib.path 10 FREE L RAD.LIBPATH rlp
auto.loc.next.rec.loc 10 FREE L RAD.LIB rlb
auto.loc.cur.rec.loc 10 FREE L RAD.LIB ?(R)RFLA[rfALD,ea,rfJ,rlp,rlb]|1
auto.loc.lib.path.qnum 3 PINT R ?(R)RFLA[rfALD,ea,rfJ,rlp,rlb]|0
Ì i 2
jacket.x
[jacket.type,jacket.urn]
?(R)RFJ[rfjt,rfju]
Field Name Len Dat Typ J DPM Offset/Local/VAL
jacket.type 1 CHOICE L rfjt
jacket.urn 10 FREE L rfju
jacket.ej.volume 3 PINT R ?(R)RFJ[rfjt,rfju]|5
jacket.er.name 30 FREE L ?(R)RFJ[rfjt,rfju]|6
jacket.library 10 FREE L RAD.LIB ?(R)RFJ[rfjt,rfju]|0
jacket.mj.volume 3 PINT R ?(R)RFJ[rfjt,rfju]|1
jacket.order 10 URN L RAD.ORD ?(R)RFJ[rfjt,rfju]|4
jacket.sj.volume 3 PINT R ?(R)RFJ[rfjt,rfju]|3
jacket.subjacket 12 FREE L ?(R)RFJ[rfjt,rfju]|2
Ì € i 2
main
[urn]
*(R)RF[ea]
Field Name Len Dat Typ J DPM Offset/Local/VAL
urn 25 URN L MRI.PAT ea
id 43 FREE L
merged.into 25 URN L MRI.PAT *(R)RF[ea]|0
Ì € i 2
follow.ups
[urn, fu.urn]
*(R)RF[ea]FU[rfFU]
Field Name Len Dat Typ J DPM Offset/Local/VAL
fu.urn 10 PINT R rfFU
fu.activity.date 8 DATE L
fu.category 10 FREE L RAD.CAT *(R)RF[ea]FU[rfFU]|7
fu.concl.category 10 FREE L RAD.CAT *(R)RF[ea]FU[rfFU]|15
fu.concl.order 10 URN L RAD.ORD *(R)RF[ea]FU[rfFU]|13
fu.concl.order.num 13 FREE L *(R)RF[ea]FU[rfFU]|14
fu.concl.order.num.out 9 FREE L VAL=IF{@.country="US" @fu.concl.order.num%3;@fu.concl.
VAL=order.num%3^x%1$2_(x$2)_(x%3)}
fu.concl.proc.mnemonic 10 FREE L VAL=@RAD.PROC.mnemonic[@fu.concl.category,@fu.concl.pr
VAL=ocedure]
fu.concl.proc.name 30 FREE L VAL=@RAD.PROC.name[@fu.concl.category,@fu.concl.proced
VAL=ure]
fu.concl.procedure 10 FREE L RAD.PROC *(R)RF[ea]FU[rfFU]|16
fu.concl.service.date 8 DATE L VAL=@fu.concl.order.num$8
fu.date 8 DATE L *(R)RF[ea]FU[rfFU]|0
fu.dept 10 FREE L RAD.DEPT VAL=@RAD.CAT.dept[@fu.category]
fu.doctor 10 FREE L MIS.DOC *(R)RF[ea]FU[rfFU]|9
fu.follow.up 10 FREE L RAD.FOLLOW *(R)RF[ea]FU[rfFU]|10
fu.follow.up.concl 10 FREE L RAD.FOLLOW.CONC*(R)RF[ea]FU[rfFU]|11
fu.init.date 8 DATE L *(R)RF[ea]FU[rfFU]|2
fu.init.time 4 HHMM L *(R)RF[ea]FU[rfFU]|3
fu.init.user 10 FREE L MIS.USER *(R)RF[ea]FU[rfFU]|4
fu.merged.to 20 FREE L *(R)RF[ea]FU[rfFU]|17
fu.order 10 URN L RAD.ORD *(R)RF[ea]FU[rfFU]|5
fu.order.num 13 FREE L *(R)RF[ea]FU[rfFU]|6
fu.order.num.out 9 FREE L VAL=IF{@.country="US" @fu.order.num%3;@fu.order.num%3^
VAL=x%1$2_(x$2)_(x%3)}
fu.proc.mnemonic 10 FREE L VAL=@RAD.PROC.mnemonic[@fu.category,@fu.procedure]
fu.proc.name 30 FREE L VAL=@RAD.PROC.name[@fu.category,@fu.procedure]
fu.procedure 10 FREE L RAD.PROC *(R)RF[ea]FU[rfFU]|8
fu.service.date 8 DATE L VAL=@fu.order.num$8
fu.site 10 FREE L RAD.SITE *(R)RF[ea]FU[rfFU]|12
fu.status 8 CHOICE L *(R)RF[ea]FU[rfFU]|1
fu.temp.q 5 PINT R
Ì € i 2
follow.up.audit
[urn,fu.urn, fu.audit.q]
*(R)RF[ea]FU[rfFU]A[rfFUA]
Field Name Len Dat Typ J DPM Offset/Local/VAL
fu.audit.q 3 PINT R rfFUA
fu.audit.date 8 DATE L *(R)RF[ea]FU[rfFU]A[rfFUA]|0
fu.audit.sch.log.time 10 PINT R *(R)RF[ea]FU[rfFU]A[rfFUA]|5
fu.audit.text 80 FREE L *(R)RF[ea]FU[rfFU]A[rfFUA]|4
fu.audit.text.out 80 FREE L VAL=@Text.out(@fu.audit.text)
fu.audit.time 4 HHMM L *(R)RF[ea]FU[rfFU]A[rfFUA]|1
fu.audit.type 6 CHOICE L *(R)RF[ea]FU[rfFU]A[rfFUA]|3
fu.audit.user 10 FREE L MIS.USER *(R)RF[ea]FU[rfFU]A[rfFUA]|2
Ì € i 2
follow.up.calls
[urn,fu.urn, fu.call.q]
*(R)RF[ea]FU[rfFU]K[rfFUk]
Field Name Len Dat Typ J DPM Offset/Local/VAL
fu.call.q 3 URN L rfFUk
fu.call.date 8 DATE L *(R)RF[ea]FU[rfFU]K[rfFUk]|0
fu.call.time 4 HHMM L *(R)RF[ea]FU[rfFU]K[rfFUk]|1
fu.call.user 10 FREE L MIS.USER *(R)RF[ea]FU[rfFU]K[rfFUk]|2
fu.call.who 30 FREE L *(R)RF[ea]FU[rfFU]K[rfFUk]|3
Ì € i 2
follow.up.call.comments
[urn,fu.urn,fu.call.q, fu.call.com.q]
*(R)RF[ea]FU[rfFU]K[rfFUk]C[rfFUj]
Field Name Len Dat Typ J DPM Offset/Local/VAL
fu.call.com.q 3 PINT R rfFUj
fu.call.comment 60 TEXT L *(R)RF[ea]FU[rfFU]K[rfFUk]C[rfFUj]
fu.call.comment.out 60 FREE L VAL=@Text.out(@fu.call.comment)
Ì € i 2
follow.up.comments
[urn,fu.urn, fu.comment.q]
*(R)RF[ea]FU[rfFU]C[rfFUc]
Field Name Len Dat Typ J DPM Offset/Local/VAL
fu.comment.q 3 PINT R rfFUc
fu.comment 60 TEXT L *(R)RF[ea]FU[rfFU]C[rfFUc]
Ì € i 2
follow.ups.open
[urn, fu.urn.open]
*(R)RF[ea]FO[rfFU]
Field Name Len Dat Typ J DPM Offset/Local/VAL
fu.urn.open 10 URN L rfFU
Ì € i 2
isotope.history
[urn, iso.date,iso.order,iso.isotope]
*(R)RF[ea]IH[rfD,ro,rm]
Field Name Len Dat Typ J DPM Offset/Local/VAL
iso.date 8 DATE L rfD
iso.order 10 URN L RAD.ORD ro
iso.isotope 10 FREE L RAD.MAT rm
iso.amount 4 PINT R *(R)RF[ea]IH[rfD,ro,rm]|0
Ì € i 2
libraries
[urn, library]
*(R)RF[ea]L[rlb]
Field Name Len Dat Typ J DPM Offset/Local/VAL
library 10 FREE L RAD.LIB rlb
Ì € i 2
external.jackets
[urn,library, ej.volume]
*(R)RF[ea]L[rlb]E[rfe]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ej.volume 3 FREE L rfe
Ì € i 2
external.records
[urn,library,ej.volume, er.name]
*(R)RF[ea]L[rlb]E[rfe]R[rfer]
Field Name Len Dat Typ J DPM Offset/Local/VAL
er.name 30 FREE L rfer
er.comment 30 FREE L *(R)RF[ea]L[rlb]E[rfe]R[rfer]|4
er.date.due 8 DATE L *(R)RF[ea]L[rlb]E[rfe]R[rfer]|12
er.date.out 8 DATE L *(R)RF[ea]L[rlb]E[rfe]R[rfer]|11
er.date.received 8 DATE L *(R)RF[ea]L[rlb]E[rfe]R[rfer]|1
er.date.returned 8 DATE L *(R)RF[ea]L[rlb]E[rfe]R[rfer]|7
er.jacket.urn 10 FREE L *(R)RF[ea]L[rlb]E[rfe]R[rfer]|5
er.location 4 CHOICE L *(R)RF[ea]L[rlb]E[rfe]R[rfer]|0
er.recipient 12 FREE L *(R)RF[ea]L[rlb]E[rfe]R[rfer]|3
er.return.date.due 8 DATE L *(R)RF[ea]L[rlb]E[rfe]R[rfer]|13
er.return.days.overdue 3 DATE L VAL=IF{@.today>@er.return.date.due %Z.date.sub(@.to
VAL=day,@er.return.date.due)&999}
er.source 30 FREE L *(R)RF[ea]L[rlb]E[rfe]R[rfer]|2
er.source.add1 30 FREE L *(R)RF[ea]L[rlb]E[rfe]R[rfer]|8
er.source.add2 30 FREE L *(R)RF[ea]L[rlb]E[rfe]R[rfer]|9
er.source.add3 30 FREE L *(R)RF[ea]L[rlb]E[rfe]R[rfer]|10
er.temp.location 10 FREE L RAD.LIB *(R)RF[ea]L[rlb]E[rfe]R[rfer]|6
ext.source.add1 30 FREE L *(R)RF[ea]L[rlb]E[rfe]R[rfer]ESA|0
ext.source.add2 30 FREE L *(R)RF[ea]L[rlb]E[rfe]R[rfer]ESA|1
ext.source.add3 30 FREE L *(R)RF[ea]L[rlb]E[rfe]R[rfer]ESA|2
Ì € i 2
master.jackets
[urn,library, mj.volume]
*(R)RF[ea]L[rlb]M[rfm]
Field Name Len Dat Typ J DPM Offset/Local/VAL
mj.volume 3 PINT R rfm
mj.created 8 DATE L *(R)RF[ea]L[rlb]M[rfm]|4
mj.date.due 8 DATE L *(R)RF[ea]L[rlb]M[rfm]|5
mj.date.out 8 DATE L *(R)RF[ea]L[rlb]M[rfm]|10
mj.ext.recs 3 PINT R *(R)RF[ea]L[rlb]M[rfm]|12
mj.ext.recs.out 3 PINT R *(R)RF[ea]L[rlb]M[rfm]|13
mj.location 4 CHOICE L *(R)RF[ea]L[rlb]M[rfm]|0
mj.number 30 FREE L VAL=library_"-"_@dept.or.unit.num_"-"_mj.volume
mj.orders 3 PINT R *(R)RF[ea]L[rlb]M[rfm]|3
mj.orders.out 3 PINT R *(R)RF[ea]L[rlb]M[rfm]|7
mj.printed 8 DATE L *(R)RF[ea]L[rlb]M[rfm]|8
mj.recipient 12 FREE L *(R)RF[ea]L[rlb]M[rfm]|1
mj.subjackets 3 PINT R *(R)RF[ea]L[rlb]M[rfm]|2
mj.subjackets.out 3 PINT R *(R)RF[ea]L[rlb]M[rfm]|6
mj.temp.location 10 FREE L RAD.LIB *(R)RF[ea]L[rlb]M[rfm]|11
mj.urn 10 FREE L *(R)RF[ea]L[rlb]M[rfm]|9
Ì € i 2
master.jacket.orders
[urn,library,mj.volume, mj.order]
*(R)RF[ea]L[rlb]M[rfm]O[ro]
Field Name Len Dat Typ J DPM Offset/Local/VAL
mj.order 10 URN L RAD.ORD ro
mj.order.cat.proc 21 FREE L VAL=IF{@order.category_"/"_@RAD.PROC.mnemonic[@order.c
VAL=ategory,@order.procedure]'="/";@RAD.ORD.category_"
VAL=/"_@RAD.ORD.procedure.mnemonic}
mj.order.created 8 DATE L *(R)RF[ea]L[rlb]M[rfm]O[ro]|5
mj.order.date.due 8 DATE L *(R)RF[ea]L[rlb]M[rfm]O[ro]|2
mj.order.date.out 8 DATE L *(R)RF[ea]L[rlb]M[rfm]O[ro]|4
mj.order.location 4 CHOICE L *(R)RF[ea]L[rlb]M[rfm]O[ro]|0
mj.order.number 30 FREE L VAL=IF{@order.category_"-"_@order.comp.number'="-";@RA
VAL=D.ORD.category_"-"_(@RAD.ORD.service.date$4)_@RAD.
VAL=ORD.order.num}
mj.order.recipient 12 FREE L *(R)RF[ea]L[rlb]M[rfm]O[ro]|1
mj.order.temp.location 10 FREE L RAD.LIB *(R)RF[ea]L[rlb]M[rfm]O[ro]|6
mj.order.urn 10 FREE L *(R)RF[ea]L[rlb]M[rfm]O[ro]|3
Ì € i 2
master.jacket.printed
[urn,library,mj.volume, mjp.facility]
*(R)RF[ea]L[rlb]M[rfm]MJP[gqb]
Field Name Len Dat Typ J DPM Offset/Local/VAL
mjp.facility 10 FREE L MIS.FACILITY gqb
mjp.printed 8 DATE L *(R)RF[ea]L[rlb]M[rfm]MJP[gqb]|0
Ì € i 2
mj.external.records
[urn,library,mj.volume, mj.er.name]
*(R)RF[ea]L[rlb]M[rfm]ER[rfer]
Field Name Len Dat Typ J DPM Offset/Local/VAL
mj.er.name 30 FREE L rfer
mj.er.comment 30 FREE L *(R)RF[ea]L[rlb]M[rfm]ER[rfer]|4
mj.er.date.due 8 DATE L *(R)RF[ea]L[rlb]M[rfm]ER[rfer]|12
mj.er.date.out 8 DATE L *(R)RF[ea]L[rlb]M[rfm]ER[rfer]|11
mj.er.date.received 8 DATE L *(R)RF[ea]L[rlb]M[rfm]ER[rfer]|1
mj.er.date.returned 8 DATE L *(R)RF[ea]L[rlb]M[rfm]ER[rfer]|7
mj.er.jacket.urn 10 FREE L *(R)RF[ea]L[rlb]M[rfm]ER[rfer]|5
mj.er.location 4 CHOICE L *(R)RF[ea]L[rlb]M[rfm]ER[rfer]|0
mj.er.recipient 12 FREE L *(R)RF[ea]L[rlb]M[rfm]ER[rfer]|3
mj.er.return.date.due 8 DATE L *(R)RF[ea]L[rlb]M[rfm]ER[rfer]|13
mj.er.return.days.overdue 8 DATE L VAL=IF{@.today>@mj.er.return.date.due %Z.date.sub(@
VAL=.today,@mj.er.return.date.due)&999}
mj.er.source 30 FREE L *(R)RF[ea]L[rlb]M[rfm]ER[rfer]|2
mj.er.source.add1 30 FREE L *(R)RF[ea]L[rlb]M[rfm]ER[rfer]|8
mj.er.source.add2 30 FREE L *(R)RF[ea]L[rlb]M[rfm]ER[rfer]|9
mj.er.source.add3 30 FREE L *(R)RF[ea]L[rlb]M[rfm]ER[rfer]|10
mj.er.temp.location 10 FREE L RAD.LIB *(R)RF[ea]L[rlb]M[rfm]ER[rfer]|6
Ì € i 2
subjackets
[urn,library,mj.volume, sj.sort,sj.volume]
*(R)RF[ea]L[rlb]M[rfm]S[rfs,rfsv]
Field Name Len Dat Typ J DPM Offset/Local/VAL
sj.sort 12 FREE L rfs
sj.volume 3 PINT R rfsv
sj.created 8 DATE L *(R)RF[ea]L[rlb]M[rfm]S[rfs,rfsv]|3
sj.date.due 8 DATE L *(R)RF[ea]L[rlb]M[rfm]S[rfs,rfsv]|4
sj.date.out 8 DATE L *(R)RF[ea]L[rlb]M[rfm]S[rfs,rfsv]|8
sj.ext.recs 3 PINT R *(R)RF[ea]L[rlb]M[rfm]S[rfs,rfsv]|11
sj.ext.recs.out 3 PINT R *(R)RF[ea]L[rlb]M[rfm]S[rfs,rfsv]|12
sj.location 4 CHOICE L *(R)RF[ea]L[rlb]M[rfm]S[rfs,rfsv]|0
sj.locator.code 10 FREE L RAD.LC VAL=IF{@sj.sort.type="L" sj.sort}
sj.number 30 FREE L VAL=@dept.or.unit.num_"-"_mj.volume_"-"_IF{@sj.sort.ty
VAL=pe^SS="A" @ADM.PAT.acct.number[sj.sort];sj.sort}_"
VAL=-"_sj.volume
sj.orders 3 PINT R *(R)RF[ea]L[rlb]M[rfm]S[rfs,rfsv]|2
sj.orders.out 3 PINT R *(R)RF[ea]L[rlb]M[rfm]S[rfs,rfsv]|5
sj.printed 8 DATE L *(R)RF[ea]L[rlb]M[rfm]S[rfs,rfsv]|6
sj.recipient 12 FREE L *(R)RF[ea]L[rlb]M[rfm]S[rfs,rfsv]|1
sj.sort.type 1 CHOICE L *(R)RF[ea]L[rlb]M[rfm]S[rfs,rfsv]|9
sj.temp.location 10 FREE L RAD.LIB *(R)RF[ea]L[rlb]M[rfm]S[rfs,rfsv]|10
sj.urn 10 FREE L *(R)RF[ea]L[rlb]M[rfm]S[rfs,rfsv]|7
Ì € i 2
sj.external.records
[urn,library,mj.volume,sj.sort,sj.volume, sj.er.name]
*(R)RF[ea]L[rlb]M[rfm]S[rfs,rfsv]ER[rfer]
Field Name Len Dat Typ J DPM Offset/Local/VAL
sj.er.name 30 FREE L rfer
sj.er.comment 30 FREE L *(R)RF[ea]L[rlb]M[rfm]S[rfs,rfsv]ER[rfer]|4
sj.er.date.due 8 FREE L *(R)RF[ea]L[rlb]M[rfm]S[rfs,rfsv]ER[rfer]|12
sj.er.date.out 8 FREE L *(R)RF[ea]L[rlb]M[rfm]S[rfs,rfsv]ER[rfer]|11
sj.er.date.received 8 DATE L *(R)RF[ea]L[rlb]M[rfm]S[rfs,rfsv]ER[rfer]|1
sj.er.date.returned 8 DATE L *(R)RF[ea]L[rlb]M[rfm]S[rfs,rfsv]ER[rfer]|7
sj.er.jacket.urn 10 FREE L *(R)RF[ea]L[rlb]M[rfm]S[rfs,rfsv]ER[rfer]|5
sj.er.location 4 CHOICE L *(R)RF[ea]L[rlb]M[rfm]S[rfs,rfsv]ER[rfer]|0
sj.er.recipient 12 FREE L *(R)RF[ea]L[rlb]M[rfm]S[rfs,rfsv]ER[rfer]|3
sj.er.return.date.due 8 FREE L *(R)RF[ea]L[rlb]M[rfm]S[rfs,rfsv]ER[rfer]|13
sj.er.return.days.overdue 3 FREE L VAL=IF{@.today>@sj.er.return.date.due %Z.date.sub(@
VAL=.today,@sj.er.return.date.due)&999}
sj.er.source 30 FREE L *(R)RF[ea]L[rlb]M[rfm]S[rfs,rfsv]ER[rfer]|2
sj.er.source.add1 30 FREE L *(R)RF[ea]L[rlb]M[rfm]S[rfs,rfsv]ER[rfer]|8
sj.er.source.add2 30 FREE L *(R)RF[ea]L[rlb]M[rfm]S[rfs,rfsv]ER[rfer]|9
sj.er.source.add3 30 FREE L *(R)RF[ea]L[rlb]M[rfm]S[rfs,rfsv]ER[rfer]|10
sj.er.temp.location 10 FREE L RAD.LIB *(R)RF[ea]L[rlb]M[rfm]S[rfs,rfsv]ER[rfer]|6
Ì € i 2
subjacket.orders
[urn,library,mj.volume,sj.sort,sj.volume, sj.order]
*(R)RF[ea]L[rlb]M[rfm]S[rfs,rfsv]O[ro]
Field Name Len Dat Typ J DPM Offset/Local/VAL
sj.order 10 URN L RAD.ORD ro
sj.order.cat.proc 21 FREE L VAL=IF{@order.category_"/"_@RAD.PROC.mnemonic[@order.c
VAL=ategory,@order.procedure]'="/";@RAD.ORD.category_"
VAL=/"_@RAD.ORD.procedure.mnemonic}
sj.order.created 8 DATE L *(R)RF[ea]L[rlb]M[rfm]S[rfs,rfsv]O[ro]|5
sj.order.date.due 8 DATE L *(R)RF[ea]L[rlb]M[rfm]S[rfs,rfsv]O[ro]|2
sj.order.date.out 8 DATE L *(R)RF[ea]L[rlb]M[rfm]S[rfs,rfsv]O[ro]|4
sj.order.location 4 CHOICE L *(R)RF[ea]L[rlb]M[rfm]S[rfs,rfsv]O[ro]|0
sj.order.number 30 FREE L VAL=IF{@order.category_"-"_@order.comp.number'="-";@RA
VAL=D.ORD.category_"-"_(@RAD.ORD.service.date$4)_@RAD.
VAL=ORD.order.num}
sj.order.recipient 12 FREE L *(R)RF[ea]L[rlb]M[rfm]S[rfs,rfsv]O[ro]|1
sj.order.temp.location 10 FREE L RAD.LIB *(R)RF[ea]L[rlb]M[rfm]S[rfs,rfsv]O[ro]|6
sj.order.urn 10 FREE L *(R)RF[ea]L[rlb]M[rfm]S[rfs,rfsv]O[ro]|3
Ì € i 2
subjacket.printed
[urn,library,mj.volume,sj.sort,sj.volume, sjp.facility]
*(R)RF[ea]L[rlb]M[rfm]S[rfs,rfsv]SJP[gqb]
Field Name Len Dat Typ J DPM Offset/Local/VAL
sjp.facility 10 FREE L MIS.FACILITY gqb
sjp.printed 8 DATE L *(R)RF[ea]L[rlb]M[rfm]S[rfs,rfsv]SJP[gqb]|0
Ì € i 2
outside.audit.trail
[urn,library, out.audit.er.name,out.audit.seconds]
*(R)RF[ea]L[rlb]OAT[rfer,rfAS]
Field Name Len Dat Typ J DPM Offset/Local/VAL
out.audit.er.name 30 FREE L rfer
out.audit.seconds 8 PINT R rfAS
out.audit.action 10 FREE L *(R)RF[ea]L[rlb]OAT[rfer,rfAS]|1
out.audit.date 8 DATE L VAL=%Z.date.in.magic(@RAD.MRI.out.audit.seconds#0.)
out.audit.recipient 12 FREE L *(R)RF[ea]L[rlb]OAT[rfer,rfAS]|0
out.audit.record.date 8 DATE L *(R)RF[ea]L[rlb]OAT[rfer,rfAS]|3
out.audit.time 4 HHMM L VAL=%Z.time.out(@RAD.MRI.out.audit.seconds#0.)
out.audit.user 10 FREE L MIS.USER *(R)RF[ea]L[rlb]OAT[rfer,rfAS]|2
Ì € i 2
merged.froms
[urn, merged.from]
*(R)RF[ea]MF[ea]
Field Name Len Dat Typ J DPM Offset/Local/VAL
merged.from 25 URN L MRI.PAT ea
Ì € i 2
merged.jackets
[urn, merged.jacket.urn]
*(R)RF[ea]MGJ[rfJ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
merged.jacket.urn 10 FREE L rfJ
merged.record.number 30 FREE L *(R)RF[ea]MGJ[rfJ]|0
Ì € i 2
radiation.history
[urn, rad.date,rad.order]
*(R)RF[ea]RH[rfD,ro]
Field Name Len Dat Typ J DPM Offset/Local/VAL
rad.date 8 DATE L rfD
rad.order 10 URN L RAD.ORD ro
rad.dose 8 PDEC R *(R)RF[ea]RH[rfD,ro]|0
Ì i 2
merge.log
[merge.log.date,merge.log.library,merge.log.from,merge.log.q]
?(R)RFMG[rfMD,rlb,ea,rfMQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
merge.log.date 8 DATE L rfMD
merge.log.library 10 FREE L RAD.LIB rlb
merge.log.from 25 URN L MRI.PAT ea
merge.log.q 3 PINT R rfMQ
merge.log.into 25 URN L MRI.PAT ?(R)RFMG[rfMD,rlb,ea,rfMQ]|0
merge.log.time 4 HHMM L ?(R)RFMG[rfMD,rlb,ea,rfMQ]|1
merge.log.type 7 CHOICE L ?(R)RFMG[rfMD,rlb,ea,rfMQ]|2
Ì i 2
order.x
[order.urn]
?(R)RFOR[ro]
Field Name Len Dat Typ J DPM Offset/Local/VAL
order.urn 10 URN L RAD.ORD ro
order.category 10 FREE L RAD.CAT ?(R)RFOR[ro]|1
order.comp.number 13 FREE L VAL=IF{@RAD.PARAM.dts.1517^DT %RAD.MRI.get.comp.order.
VAL=num(@order.jacket.urn,DT);(@order.date$4)_@order.n
VAL=umber}
order.date 8 DATE L ?(R)RFOR[ro]|5
order.jacket.urn 10 FREE L ?(R)RFOR[ro]|0
order.mri 25 URN L MRI.PAT ?(R)RFOR[ro]|6
order.number 9 FREE L ?(R)RFOR[ro]|4
order.procedure 10 FREE L RAD.PROC ?(R)RFOR[ro]|2
order.site 10 FREE L RAD.SITE ?(R)RFOR[ro]|3
order.sj.sort 8 CHOICE L ?(R)RFOR[ro]|7
Ì i 2
rec.loc.audit
[rl.aud.seconds,rl.aud.library,rl.aud.mri,rl.aud.sort,rl.aud.jacket.urn]
?(R)RFLL[rfAT,rlb,ea,rfjST,rfj]
Field Name Len Dat Typ J DPM Offset/Local/VAL
rl.aud.seconds 9 PINT R rfAT
rl.aud.library 10 FREE L RAD.LIB rlb
rl.aud.mri 25 URN L RAD.MRI ea
rl.aud.sort 30 FREE L rfjST
rl.aud.jacket.urn 10 FREE L rfj
rl.aud.date 8 DATE L VAL=%Z.date.in.magic(rl.aud.seconds)
rl.aud.new.rec.loc 10 FREE L RAD.LIB ?(R)RFLL[rfAT,rlb,ea,rfjST,rfj]|1
rl.aud.old.rec.loc 10 FREE L RAD.LIB ?(R)RFLL[rfAT,rlb,ea,rfjST,rfj]|0
rl.aud.time 4 HHMM L VAL=%Z.time.out(rl.aud.seconds)
rl.aud.undep.num 10 FREE L VAL=IF{%RAD.MRI.dept.number("","","",urn);@MRI.PAT.px.
VAL=unit.number[urn,@.mri.pfx]}
rl.aud.user 10 FREE L MIS.USER ?(R)RFLL[rfAT,rlb,ea,rfjST,rfj]|2
Ì i 2
temp.outside.list
[temp.er.name]
/RFTOL[rfer]
Field Name Len Dat Typ J DPM Offset/Local/VAL
temp.er.name 30 FREE L rfer
temp.er.comment 30 FREE L /RFTOL[rfer]|3
temp.er.date.received 8 DATE L /RFTOL[rfer]|0
temp.er.date.returned 8 FREE L /RFTOL[rfer]|6
temp.er.days.overdue 3 FREE L /RFTOL[rfer]|5
temp.er.recipient 12 FREE L /RFTOL[rfer]|4
temp.er.return.date.due 8 DATE L /RFTOL[rfer]|1
temp.er.source 30 FREE L /RFTOL[rfer]|2
temp.er.temp.location 10 FREE L /RFTOL[rfer]|7
Ì € i 2
temp.outside.audit.trail
[temp.er.name, temp.out.audit.seconds]
/RFTOL[rfer]A[rfAS]
Field Name Len Dat Typ J DPM Offset/Local/VAL
temp.out.audit.seconds 8 PINT R rfAS
temp.out.audit.action 10 FREE L /RFTOL[rfer]A[rfAS]|1
temp.out.audit.date 8 DATE L VAL=%Z.date.in.magic(@temp.out.audit.seconds#0.)
temp.out.audit.recipient 12 FREE L /RFTOL[rfer]A[rfAS]|0
temp.out.audit.recrd.date 8 FREE L /RFTOL[rfer]A[rfAS]|3
temp.out.audit.time 4 HHMM L VAL=%Z.time.out(temp.out.audit.seconds#0.)
temp.out.audit.user 10 FREE L /RFTOL[rfer]A[rfAS]|2
Index Files Subscripts/Physical Base
follow.up.act.x [fu.activity.date,urn,fu.urn]
?(R)RFFA[rfFAD,ea,rfFU]
follow.up.x [fu.date,urn,fu.urn]
?(R)RFFU[rfFD,ea,rfFU]
library.x [library,urn]
?(R)RFL[rlb,ea]
mj.no.loc.fac.x [urn,library,mjp.facility]
?(R)RFMJNLFI[ea,rlb,gqb]
mj.no.loc.x [urn,library]
?(R)RFMJNLI[ea,rlb]
mj.number.x [mj.number,urn,library,mj.volume] = mj.urn
?(R)RFMN[rfmn,ea,rlb,rfm]
mj.pt.number.x [urn,mj.number,library,mj.volume] = mj.urn
?(R)RFMP[ea,rfmn,rlb,rfm]
order.num.x [order.category,order.comp.number] = order.urn
?(R)RFOX[rc,roCN]
outside.x [library,urn,er.name] = jacket.urn
?(R)RFOUT[rlb,ea,rfer]
rec.loc.x [record.location,urn,jkt.sort,jkt.urn]
?(R)RFRL[rlb,ea,rfjST,rfj]
sj.no.loc.fac.x [urn,library,sj.sort,sjp.facility]
?(R)RFSJNLFI[ea,rlb,rfs,gqb]
sj.no.loc.x [urn,library,sj.sort]
?(R)RFSJNLI[ea,rlb,rfs]
sj.number.x [sj.number,urn,library,mj.volume,sj.sort,sj.volume] = sj.urn
?(R)RFSN[rfsn,ea,rlb,rfm,rfs,rfsv]
sj.pt.number.x [urn,sj.number,library,mj.volume,sj.sort,sj.volume] = sj.urn
?(R)RFSP[ea,rfsn,rlb,rfm,rfs,rfsv]
|
|
| | | | | | | | | | | | | | | | | | | | | | | | | | | | |