Ì i 2
audit.trail
[audit.mri.urn,audit.library,audit.record,audit.date,audit.time]
*(R)RLA[ea,rlb,rlR,rlA,rlT]
Field Name Len Dat Typ J DPM Offset/Local/VAL
audit.mri.urn 25 URN L RAD.MRI ea
audit.library 10 FREE L RAD.LIB rlb
audit.record 32 FREE L rlR
audit.date 8 DATE L rlA
audit.time 4 TIME L rlT
audit.action 10 FREE L *(R)RLA[ea,rlb,rlR,rlA,rlT]|1
audit.name 25 FREE L VAL=IF{(@MRI.PAT.name:25T);("t "_(@mri.urn%1):25T)}
audit.recipient 12 FREE L *(R)RLA[ea,rlb,rlR,rlA,rlT]|0
audit.record.date 8 DATE L *(R)RLA[ea,rlb,rlR,rlA,rlT]|3
audit.temp.rec.loc 10 FREE L RAD.LIB *(R)RLA[ea,rlb,rlR,rlA,rlT]|4
audit.unit.number 10 FREE L VAL=@dept.or.unit.num
audit.user 10 FREE L MIS.USER *(R)RLA[ea,rlb,rlR,rlA,rlT]|2
Ì i 2
main
[mri.urn,library]
*(R)RL[ea,rlb]
Field Name Len Dat Typ J DPM Offset/Local/VAL
mri.urn 25 URN L RAD.MRI ea
library 10 FREE L RAD.LIB rlb
dep.or.unit.number.tdo 10 FREE L VAL=%MIS.PARAM.unit.number.tdo(@dept.or.unit.num^U,IF{
VAL=U$2?2A;U$1?1A})
dept.num 10 FREE L VAL=%RAD.MRI.dept.number("","","",mri.urn)
dept.or.unit.num 10 FREE L VAL=%RAD.MRI.dept.or.unit.number("","","",mri.urn)
id 43 FREE L
name 25 FREE L VAL=(@MRI.PAT.name:25T)
sign.out.init 0 FREE L VAL=%RAD.LOC.sign.out.init(0)
unit.number 10 FREE L VAL=@MRI.PAT.px.unit.number[mri.urn,@.mri.pfx]
unit.number.tdo 10 FREE L VAL=%MIS.PARAM.unit.number.tdo(@unit.number)
Ì € i 2
new.records
[mri.urn,library, new.record]
*(R)RL[ea,rlb]N[rlR]
Field Name Len Dat Typ J DPM Offset/Local/VAL
new.record 30 FREE L rlR
new.comment 30 FREE L *(R)RL[ea,rlb]N[rlR]|2
new.created 8 DATE L *(R)RL[ea,rlb]N[rlR]|1
new.jacket.urn 10 FREE L *(R)RL[ea,rlb]N[rlR]|4
new.library 10 FREE L RAD.LIB *(R)RL[ea,rlb]N[rlR]|5
new.order 15 URN L RAD.ORD *(R)RL[ea,rlb]N[rlR]|3
new.record.type 1 CHOICE L *(R)RL[ea,rlb]N[rlR]|0
Ì € i 2
outside.records
[mri.urn,library, out.record]
*(R)RL[ea,rlb]O[rlR]
Field Name Len Dat Typ J DPM Offset/Local/VAL
out.record 30 FREE L rlR
out.comment 30 FREE L *(R)RL[ea,rlb]O[rlR]|4
out.date.due 8 DATE L *(R)RL[ea,rlb]O[rlR]|1
out.date.in 8 DATE L *(R)RL[ea,rlb]O[rlR]|0
out.date.returned 8 DATE L *(R)RL[ea,rlb]O[rlR]|7
out.days.overdue 3 PINT R VAL=IF{@.today>@out.date.due %Z.date.sub(@.today,@o
VAL=ut.date.due)&999}
out.dts.update.date 8 DATE L *(R)RL[ea,rlb]O[rlR]|8
out.jacket.urn 10 FREE L *(R)RL[ea,rlb]O[rlR]|5
out.library 10 FREE L RAD.LIB *(R)RL[ea,rlb]O[rlR]|6
out.rcp.addr1 30 FREE L *(R)RL[ea,rlb]O[rlR]RCP|1
out.rcp.addr2 30 FREE L *(R)RL[ea,rlb]O[rlR]RCP|2
out.rcp.city 20 FREE L *(R)RL[ea,rlb]O[rlR]RCP|3
out.rcp.email.addr 40 FREE L *(R)RL[ea,rlb]O[rlR]RCP|8
out.rcp.fax.number 24 FREE L *(R)RL[ea,rlb]O[rlR]RCP|7
out.rcp.name 30 FREE L *(R)RL[ea,rlb]O[rlR]RCP|0
out.rcp.phone 18 PHONE L *(R)RL[ea,rlb]O[rlR]RCP|6
out.rcp.state 2 FREE L *(R)RL[ea,rlb]O[rlR]RCP|4
out.rcp.zip 10 ZIP.POST L *(R)RL[ea,rlb]O[rlR]RCP|5
out.recipient 12 FREE L *(R)RL[ea,rlb]O[rlR]|3
out.source 30 FREE L *(R)RL[ea,rlb]O[rlR]|2
Ì € i 2
outside.audit.trail
[mri.urn,library,out.record, out.audit.seconds]
*(R)RL[ea,rlb]O[rlR]A[rlS]
Field Name Len Dat Typ J DPM Offset/Local/VAL
out.audit.seconds 13 PINT R rlS
out.audit.action 10 FREE L *(R)RL[ea,rlb]O[rlR]A[rlS]|1
out.audit.date 8 DATE L VAL=%Z.date.in.magic(@RAD.LOC.out.audit.seconds#0.)
out.audit.recipient 12 FREE L *(R)RL[ea,rlb]O[rlR]A[rlS]|0
out.audit.record.date 8 DATE L *(R)RL[ea,rlb]O[rlR]A[rlS]|3
out.audit.time 4 HHMM L VAL=%Z.time.out(@RAD.LOC.out.audit.seconds#0.)
out.audit.user 10 FREE L MIS.USER *(R)RL[ea,rlb]O[rlR]A[rlS]|2
Ì € i 2
records
[mri.urn,library, record]
*(R)RL[ea,rlb]R[rlR]
Field Name Len Dat Typ J DPM Offset/Local/VAL
record 32 FREE L rlR
available 1 YN L VAL=IF{@recipient "N";"Y"}
comment 30 FREE L *(R)RL[ea,rlb]R[rlR]|4
date.due.back 8 DATE L *(R)RL[ea,rlb]R[rlR]|2
date.out 8 DATE L *(R)RL[ea,rlb]R[rlR]|1
days.overdue 3 PINT R VAL=IF{@.today>@date.due.back %Z.date.sub(@.today,@
VAL=date.due.back)&999}
ee.days.overdue 3 PINT R *(R)RL[ea,rlb]R[rlR]D|6
ee.rsv.date 8 DATE L *(R)RL[ea,rlb]R[rlR]D|1
ee.rsv.date.perm 8 DATE L *(R)RL[ea,rlb]R[rlR]D|4
ee.rsv.next.number 2 PINT R *(R)RL[ea,rlb]R[rlR]D|3
ee.rsv.order 2 PINT R *(R)RL[ea,rlb]R[rlR]D|2
ee.rsv.total.number 2 PINT R *(R)RL[ea,rlb]R[rlR]D|5
ee.what 1 FREE L *(R)RL[ea,rlb]R[rlR]D|0
jacket.urn 10 FREE L *(R)RL[ea,rlb]R[rlR]|8
letter.date 8 DATE L *(R)RL[ea,rlb]R[rlR]|6
letter.user 10 FREE L MIS.USER *(R)RL[ea,rlb]R[rlR]|7
order 15 URN L RAD.ORD *(R)RL[ea,rlb]R[rlR]|5
rcp.addr1 30 FREE L *(R)RL[ea,rlb]R[rlR]RCP|1
rcp.addr2 30 FREE L *(R)RL[ea,rlb]R[rlR]RCP|2
rcp.city 20 FREE L *(R)RL[ea,rlb]R[rlR]RCP|3
rcp.email.addr 40 FREE L *(R)RL[ea,rlb]R[rlR]RCP|8
rcp.fax.number 24 FREE L *(R)RL[ea,rlb]R[rlR]RCP|7
rcp.name 30 FREE L *(R)RL[ea,rlb]R[rlR]RCP|0
rcp.phone 18 PHONE L *(R)RL[ea,rlb]R[rlR]RCP|6
rcp.state 2 FREE L *(R)RL[ea,rlb]R[rlR]RCP|4
rcp.zip 10 ZIP.POST L *(R)RL[ea,rlb]R[rlR]RCP|5
recipient 12 FREE L *(R)RL[ea,rlb]R[rlR]|3
recipient.addr2 30 FREE L VAL=IF{@recipient^R$2="d " %MIS.DOC.get.address(R%1,MI
VAL=S.DOC.facility,"ADDRESS2");R$2="i " @MIS.INS.addre
VAL=ss2[R%1];R$2="f " @rcp.addr2;@RAD.RCP.addr2[R]}
recipient.address 30 FREE L VAL=IF{@recipient^R$2="d " %MIS.DOC.get.address(R%1,MI
VAL=S.DOC.facility,"ADDRESS");R$2="i " @MIS.INS.addres
VAL=s[R%1];R$2="f " @rcp.addr1;@RAD.RCP.addr1[R]}
recipient.and.name 42 FREE L VAL=(@recipient^R_" "_IF{R$2="d " @MIS.DOC.name[R%1];R
VAL=$2="i " @MIS.INS.name[R%1];R$2="f " @rcp.name;@RAD
VAL=.RCP.name[R]}:42L)
recipient.city 20 FREE L VAL=IF{@recipient^R$2="d " %MIS.DOC.get.address(R%1,MI
VAL=S.DOC.facility,"CITY");R$2="i " @MIS.INS.city[R%1]
VAL=;R$2="f " @rcp.city;@RAD.RCP.city[R]}
recipient.csz 34 FREE L VAL=%RAD.LOC.city.state.zip(@recipient,^@record.recipi
VAL=ent)
recipient.days.loan 2 PINT R VAL=IF{@recipient^R$2'="d "'="i "'="f " @RAD.RCP.days.
VAL=loan[R];@RAD.PARAM.dft.days.on.loan;7}
recipient.email 40 FREE L VAL=IF{@recipient^R$2="d " @MIS.DOC.email[R%1];R$2="i
VAL=" @MIS.INS.email[R%1];R$2="f " @rcp.email.addr;@RA
VAL=D.RCP.email.address[R]}
recipient.fax 24 FREE L VAL=IF{@recipient^R$2="d " @MIS.DOC.fax.number[R%1];R$
VAL=2="i " @MIS.INS.fax.number[R%1];R$2="f " @rcp.fax.
VAL=number;@RAD.RCP.fax.number[R]}
recipient.inhouse 1 YN L VAL=IF{@recipient^R$2="d " "D";R$2="i " "I";R$2="f " "
VAL=N";@RAD.RCP.inhouse[R]}
recipient.name 30 FREE L VAL=IF{@recipient^R$2="d " @MIS.DOC.name[R%1];R$2="i "
VAL= @MIS.INS.name[R%1];R$2="f " @rcp.name;@RAD.RCP.na
VAL=me[R]}
recipient.name.first 30 FREE L VAL=IF{@recipient.name^NM#"1,";NM#"0 "}
recipient.name.invert 40 FREE L VAL=%Z.name.inversion(IF{@recipient^R$2="d " @MIS.DOC.
VAL=name[R%1];R$2="i " @MIS.INS.name[R%1];R$2="f " @rc
VAL=p.name;@RAD.RCP.name[R]})
recipient.name.last 30 FREE L VAL=@recipient.name#"0,"
recipient.phone 18 PHONE L VAL=IF{@recipient^R$2="d " @MIS.DOC.phone[R%1];R$2="i
VAL=" @MIS.INS.phone[R%1];R$2="f " @rcp.phone;@RAD.RCP
VAL=.phone[R]}
recipient.record.list 92 FREE L VAL=%RAD.LOC.substitute(A,B,C)
recipient.state 2 FREE L VAL=IF{@recipient^R$2="d " %MIS.DOC.get.address(R%1,MI
VAL=S.DOC.facility,"STATE");R$2="i " @MIS.INS.state[R%
VAL=1];R$2="f " @rcp.state;@RAD.RCP.state[R]}
recipient.total.recs 3 PINT R VAL=%RAD.LOC.substitute(A,B,C)
recipient.zip 10 ZIP.POST L VAL=IF{@recipient^R$2="d " %MIS.DOC.get.address(R%1,MI
VAL=S.DOC.facility,"ZIP");R$2="i " @MIS.INS.zip[R%1];R
VAL=$2="f " @rcp.zip;@RAD.RCP.zip[R]}
record.type 1 CHOICE L *(R)RL[ea,rlb]R[rlR]|0
reserved 1 YN L VAL=IF{+@reservations[mri.urn,library,record,""] "Y";"
VAL="}
Ì € i 2
reservations
[mri.urn,library,record, res.order]
*(R)RL[ea,rlb]R[rlR]R[rlRO]
Field Name Len Dat Typ J DPM Offset/Local/VAL
res.order 2 URN L rlRO
res.date 8 DATE L *(R)RL[ea,rlb]R[rlR]R[rlRO]|0
res.rcp.addr1 30 FREE L *(R)RL[ea,rlb]R[rlR]R[rlRO]RCP|1
res.rcp.addr2 30 FREE L *(R)RL[ea,rlb]R[rlR]R[rlRO]RCP|2
res.rcp.city 20 FREE L *(R)RL[ea,rlb]R[rlR]R[rlRO]RCP|3
res.rcp.email.addr 40 FREE L *(R)RL[ea,rlb]R[rlR]R[rlRO]RCP|8
res.rcp.fax.number 24 FREE L *(R)RL[ea,rlb]R[rlR]R[rlRO]RCP|7
res.rcp.name 30 FREE L *(R)RL[ea,rlb]R[rlR]R[rlRO]RCP|0
res.rcp.phone 18 PHONE L *(R)RL[ea,rlb]R[rlR]R[rlRO]RCP|6
res.rcp.state 2 FREE L *(R)RL[ea,rlb]R[rlR]R[rlRO]RCP|4
res.rcp.zip 10 ZIP.POST L *(R)RL[ea,rlb]R[rlR]R[rlRO]RCP|5
res.recipient 12 FREE L *(R)RL[ea,rlb]R[rlR]R[rlRO]|1
res.recipient.addr2 30 FREE L VAL=IF{@res.recipient^R$2="f " @res.rcp.addr2;R$2'="d
VAL="'="i " @RAD.RCP.addr2[R]}
res.recipient.address 30 FREE L VAL=IF{@res.recipient^R$2="d " %MIS.DOC.get.address(R%
VAL=1,MIS.DOC.facility,"ADDRESS");R$2="i " @MIS.INS.ad
VAL=dress[R%1];R$2="f " @res.rcp.addr1;@RAD.RCP.addr1[
VAL=R]}
res.recipient.city 20 FREE L VAL=IF{@res.recipient^R$2="d " %MIS.DOC.get.address(R%
VAL=1,MIS.DOC.facility,"CITY");R$2="i " @MIS.INS.city[
VAL=R%1];R$2="f " @res.rcp.city;@RAD.RCP.city[R]}
res.recipient.csz 34 FREE L VAL=%RAD.LOC.city.state.zip(@res.recipient,^@reservati
VAL=on.recipient)
res.recipient.days.loan 2 PINT R VAL=IF{@res.recipient^R$2'="d "'="i "'="f " @RAD.RCP.d
VAL=ays.loan[R];@RAD.PARAM.dft.days.on.loan;7}
res.recipient.email 40 FREE L VAL=IF{@res.recipient^R$2="d " @MIS.DOC.email[R%1];R$2
VAL=="i " @MIS.INS.email[R%1];R$2="f " @res.rcp.email.
VAL=addr;@RAD.RCP.email.address[R]}
res.recipient.fax 24 FREE L VAL=IF{@res.recipient^R$2="d " @MIS.DOC.fax.number[R%1
VAL=];R$2="i " @MIS.INS.fax.number[R%1];R$2="f " @res.
VAL=rcp.fax.number;@RAD.RCP.fax.number[R]}
res.recipient.inhouse 1 YN L VAL=IF{@res.recipient^R$2="d " "D";R$2="i " "I";R$2="f
VAL= " "N";@RAD.RCP.inhouse[R]}
res.recipient.name 30 FREE L VAL=IF{@res.recipient^R$2="d " @MIS.DOC.name[R%1];R$2=
VAL="i " @MIS.INS.name[R%1];R$2="f " @res.rcp.name;@RA
VAL=D.RCP.name[R]}
res.recipient.name.first 30 FREE L VAL=@res.recipent.name#"1,"
res.recipient.name.invert 40 FREE L VAL=%Z.name.inversion(IF{@res.recipient^R$2="d " @MIS.
VAL=DOC.name[R%1];R$2="i " @MIS.INS.name[R%1];R$2="f "
VAL= @res.rcp.name;@RAD.RCP.name[R]})
res.recipient.name.last 30 FREE L VAL=@res.recipent.name#"0,"
res.recipient.phone 18 PHONE L VAL=IF{@res.recipient^R$2="d " @MIS.DOC.phone[R%1];R$2
VAL=="i " @MIS.INS.phone[R%1];R$2="f " @res.rcp.phone;
VAL=@RAD.RCP.phone[R]}
res.recipient.state 2 FREE L VAL=IF{@res.recipient^R$2="d " %MIS.DOC.get.address(R%
VAL=1,MIS.DOC.facility,"STATE");R$2="i " @MIS.INS.stat
VAL=e[R%1];R$2="f " @res.rcp.state;@RAD.RCP.state[R]}
res.recipient.zip 10 ZIP.POST L VAL=IF{@res.recipient^R$2="d " %MIS.DOC.get.address(R%
VAL=1,MIS.DOC.facility,"ZIP");R$2="i " @MIS.INS.zip[R%
VAL=1];R$2="f " @res.rcp.zip;@RAD.RCP.zip[R]}
Ì i 2
top
[mri.urn.top]
*(R)RLT[ea]
Field Name Len Dat Typ J DPM Offset/Local/VAL
mri.urn.top 25 URN L RAD.MRI ea
merged.into 25 URN L RAD.MRI *(R)RLT[ea]|0
Ì € i 2
merged.froms
[mri.urn.top, merged.from]
*(R)RLT[ea]MF[ea]
Field Name Len Dat Typ J DPM Offset/Local/VAL
merged.from 25 URN L MRI.PAT ea
Ì i 2
user.file.counts
[loc.user,loc.date]
*(R)RLCNT[gu,rld]
Field Name Len Dat Typ J DPM Offset/Local/VAL
loc.user 10 FREE L MIS.USER gu
loc.date 8 DATE L rld
loc.count 3 INT R *(R)RLCNT[gu,rld]
Index Files Subscripts/Physical Base
jacket.x [jacket.urn] = record
?(R)RLJ[rlJ]
out.x [library,recipient,date.due.back,mri.urn,record]
?(R)RLO[rlb,rrp,rlD,ea,rlR]
outside.x [library,mri.urn,out.record]
?(R)RLU[rlb,ea,rlR]
reserve.x [library,res.recipient,res.date,mri.urn,record,res.order]
?(R)RLR[rlb,rrp,rlRD,ea,rlR,rlRO]
|
|
| | | | | | | | |