Ì i 2
mri.icr.audit.trail (audit.trail)
[audit.prefix,audit.record,audit.acct,audit.queue]
:EIA[epx,ea,en,eiT]
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.acct 12 FREE L en
audit.queue 4 PINT R eiT
audit.act 10 FREE L :EIA[epx,ea,en,eiT]|0
audit.activity 25 FREE L VAL=%MRI.ICR.audit.inquiry.disp(@MRI.ICR.audit.act)
audit.appl 12 FREE L :EIA[epx,ea,en,eiT]|5
audit.date 8 DATE L :EIA[epx,ea,en,eiT]|1
audit.dr.order 2 PINT R :EIA[epx,ea,en,eiT]|4
audit.epi.num 15 FREE L VAL=@MRI.PAT.epi.num
audit.name 25 FREE L VAL=(@MRI.PAT.name:25T)
audit.time 4 HHMM L :EIA[epx,ea,en,eiT]|2
audit.unit.number 10 FREE L VAL=@MRI.PAT.unit.number
audit.user 10 FREE L MIS.USER :EIA[epx,ea,en,eiT]|3
Ì i 2
mri.icr.doctor.visit (doctor.visit)
[doc.prefix,doc.mnemonic,doc.visit.date]
:EIDLV[epx,ggg,eavd]
Field Name Len Dat Typ J DPM Offset/Local/VAL
doc.prefix 2 FREE L epx
doc.mnemonic 10 FREE L MIS.DOC.DICT ggg
doc.visit.date 8 DATE L eavd
doc.user 10 FREE L MIS.USER :EIDLV[epx,ggg,eavd]|0
doc.visit.comment 43 FREE L :EIDLV[epx,ggg,eavd]|1
Ì i 2
mri.icr.doctors.unavailable (doctors.unavailable)
[doctor]
:EIU[ggg]
Field Name Len Dat Typ J DPM Offset/Local/VAL
doctor 10 FREE L MIS.DOC.DICT ggg
Ì € i 2
mri.icr.doctor.unavailable (doctor.unavailable)
[doctor, date.unavailable]
:EIU[ggg]D[eaD]
Field Name Len Dat Typ J DPM Offset/Local/VAL
date.unavailable 8 DATE L eaD
date.returned 8 DATE L :EIU[ggg]D[eaD]|1
user 10 FREE L :EIU[ggg]D[eaD]|0
Ì i 2
mri.incomplete.records (main)
[prefix,record,acct]
:EI[epx,ea,en]
Field Name Len Dat Typ J DPM Offset/Local/VAL
prefix 2 FREE L epx
record 25 URN L MRI.PAT ea
acct 12 FREE L en
date.complete 8 DATE L :EI[epx,ea,en]|2
date.to.doctors 8 DATE L :EI[epx,ea,en]|1
days.outstanding 3 INT R VAL=(IF{@date.to.doctors %Z.date.sub(IF{@date.complete
VAL=;@.today},@date.to.doctors);0}^/DOTST)
days.suspended 3 INT R VAL=(IF{+@suspend.resume.proc[@.mri.pfx,record,acct,""
VAL=] %MRI.ICR.days.processing.suspended(record,acct);
VAL=0}^/DSUSP)
days.to.process 3 INT R VAL=IF{/DOTST;%Z.date.sub(IF{@date.complete;@.today},@
VAL=date.to.doctors)}-IF{/DSUSP;IF{+@suspend.resume.pr
VAL=oc[@.mri.pfx,record,acct,""] %MRI.ICR.days.process
VAL=ing.suspended(record,acct);0}}
dis.ser 4 CHOICE L :EI[epx,ea,en]|4
dis.ser.date 8 DATE L :EI[epx,ea,en]|5
doctor.box 10 FREE L MIS.DOC.DICT :EI[epx,ea,en]|6
doctor.box.name 30 FREE L VAL=@MIS.DOC.DICT.name[@doctor.box]
epi.num 15 FREE L VAL=@MRI.PAT.epi.num[MRI.ICR.record]
index.unit.number 10 FREE L
merged.from 25 URN L MRI.PAT :EI[epx,ea,en]|0
name 25 FREE L VAL=(@MRI.PAT.name:25T)
portion 20 FREE L :EI[epx,ea,en]|3
recipient 12 URN L MRI.LOC.RRV VAL=IF{@Not(@MRI.PARAM.icr.recipient.ee[@.mri.pfx]) ""
VAL=;@MRI.LOC.recipient[MRI.ICR.prefix,MRI.ICR.record,
VAL=@MRI.ICR.portion]}
recipient.name 30 FREE L VAL=IF{@recipient^recipient,@MRI.LOC.RRV.name}
unit.number 10 FREE L VAL=@MRI.PAT.px.unit.number[MRI.ICR.record,@.mri.pfx]
unit.number.tdo 10 FREE L VAL=%MRI.PAT.unit.number.tdo(@unit.number)
Ì € i 2
mri.incomplete.record.doctors (doctors)
[prefix,record,acct, doctor.order]
:EI[epx,ea,en]D[eiO]
Field Name Len Dat Typ J DPM Offset/Local/VAL
doctor.order 2 PINT R eiO
doctor.comment 39 FREE L :EI[epx,ea,en]D[eiO]|4
doctor.credit 3 PINT R :EI[epx,ea,en]D[eiO]|6
doctor.date.available 8 DATE L :EI[epx,ea,en]D[eiO]|1
doctor.date.complete 8 DATE L :EI[epx,ea,en]D[eiO]|2
doctor.days.outstanding 3 PINT R VAL=%Z.date.sub(@.today,IF{@doctor.date.available;@.to
VAL=day})
doctor.days.to.process 3 PINT R VAL=%MRI.ICR.doctor.days.to.process(record,acct,doctor
VAL=.order)
doctor.images.yn 1 YN L VAL=%MRI.ICR.ee.M.doctor.images.yn("")
doctor.mnemonic.and.name 43 FREE L VAL=(mnemonic_" - "_@MIS.DOC.DICT.name[mnemonic])
doctor.name 30 FREE L VAL=@MIS.DOC.DICT.name[@mnemonic]
doctor.reason 43 FREE L VAL=%MRI.ICR.print.dr.reasons(prefix,record,acct,docto
VAL=r.order)
doctor.reasons.complete 1 YN L :EI[epx,ea,en]D[eiO]|7
doctor.show.reasons 20 FREE L VAL=%MRI.ICR.show.dr.reasons.color("")
doctor.show.reasons.43 43 FREE L VAL=%MRI.ICR.show.dr.reasons("")
mnemonic 10 FREE L MIS.DOC.DICT :EI[epx,ea,en]D[eiO]|0
not.used 0 FREE L :EI[epx,ea,en]D[eiO]|3
Ì € i 2
mri.icr.doctor.reasons (doctor.reasons)
[prefix,record,acct,doctor.order, dr.reason.order]
:EI[epx,ea,en]D[eiO]R[eiR]
Field Name Len Dat Typ J DPM Offset/Local/VAL
dr.reason.order 2 PINT R eiR
dr.reason 10 FREE L MRI.ICR.RSN :EI[epx,ea,en]D[eiO]R[eiR]|0
dr.reason.add.pages.dis 3 PINT R VAL=IF{"Y"=@dr.reason.mrm @dr.reason.mrm.pages;@p.oid.
VAL=no.of.pages[@dr.reason.image]}
dr.reason.auto.db 15 FREE L VAL=%MRI.ICR.get.dr.reason.values(^@doctor.reasons,4)X
dr.reason.auto.flag 20 FREE L VAL=%MRI.ICR.get.dr.reason.values(^@doctor.reasons,1)X
dr.reason.begin 9 FREE L :EI[epx,ea,en]D[eiO]R[eiR]|3
dr.reason.begin.date 8 DATE L VAL=%Z.date.in.magic(@MRI.ICR.dr.reason.begin)
dr.reason.begin.time 4 HHMM L VAL=%Z.time.out(@MRI.ICR.dr.reason.begin)
dr.reason.comment 35 FREE L :EI[epx,ea,en]D[eiO]R[eiR]|8
dr.reason.complete 1 CHOICE L :EI[epx,ea,en]D[eiO]R[eiR]|1
dr.reason.database FREE L :EI[epx,ea,en]D[eiO]R[eiR]|15
dr.reason.end 9 FREE L :EI[epx,ea,en]D[eiO]R[eiR]|4
dr.reason.end.date 8 DATE L VAL=%Z.date.in.magic(@MRI.ICR.dr.reason.end)
dr.reason.end.time 4 HHMM L VAL=%Z.time.out(@MRI.ICR.dr.reason.end)
dr.reason.form.display 15 FREE L VAL=%MRI.ICR.get.dr.reason.values(^@doctor.reasons,2)X
dr.reason.form.seq.no 5 PINT R :EI[epx,ea,en]D[eiO]R[eiR]|2
dr.reason.image 9 FREE L :EI[epx,ea,en]D[eiO]R[eiR]|5
dr.reason.image.input 1 YN L :EI[epx,ea,en]D[eiO]R[eiR]|9
dr.reason.image.loc.dis 2 PINT R VAL=%MRI.ICR.get.dr.reason.values(^@doctor.reasons,3)X
dr.reason.image.page 3 PINT R :EI[epx,ea,en]D[eiO]R[eiR]|6
dr.reason.image.rsn.no 2 PINT R :EI[epx,ea,en]D[eiO]R[eiR]|7
dr.reason.image.yn 1 YN L VAL=IF{@dr.reason.image!@dr.reason.mrm.image "Y"}
dr.reason.mrm 1 YN L VAL=(IF{@dr.reason.mrm.image "Y"})
dr.reason.mrm.docid 10 FREE L MIS.MRM.DOC :EI[epx,ea,en]D[eiO]R[eiR]|14
dr.reason.mrm.image 9 URN L MRM.DOC :EI[epx,ea,en]D[eiO]R[eiR]|10
dr.reason.mrm.image.page 3 PINT R :EI[epx,ea,en]D[eiO]R[eiR]|12
dr.reason.mrm.loc.dis 2 FREE L :EI[epx,ea,en]D[eiO]R[eiR]|13
dr.reason.mrm.pages 3 PINT R :EI[epx,ea,en]D[eiO]R[eiR]|11
dr.reason.rpt.img.dis 9 FREE L VAL=IF{@dr.reason.form.seq.no @MRI.PAT.mrf.form.urn[re
VAL=cord,acct,@dr.reason.form.seq.no]:9TL;@dr.reason.i
VAL=mage}
dr.reason.sec.pg.dis 3 PINT R VAL=IF{@dr.reason.image.page;@dr.reason.mrm.image.page
VAL=}
dr.rsn.add.pages.dis 3 PINT R VAL=IF{@dr.rsn.form.addendum;@p.oid.no.of.pages[@dr.re
VAL=ason.image]}
dr.rsn.form.addendum 2 FREE L :EI[epx,ea,en]D[eiO]R[eiR]RSN|5
dr.rsn.form.db 12 FREE L MIS.APPL :EI[epx,ea,en]D[eiO]R[eiR]RSN|2
dr.rsn.form.display 14 FREE L VAL=%MRI.ICR.dr.rsn.form.display(1,prefix,record,acct,
VAL=doctor.order,dr.reason.order)
dr.rsn.form.id 13 FREE L :EI[epx,ea,en]D[eiO]R[eiR]RSN|3
dr.rsn.form.id.dis 9 FREE L VAL=%MRI.ICR.dr.rsn.form.display(3,prefix,record,acct,
VAL=doctor.order,dr.reason.order)
dr.rsn.form.mnem.dis 15 FREE L VAL=IF{@dr.rsn.pom.ord="Y" @dr.rsn.pom.ord.cat;@dr.rsn
VAL=.form.mnemonic}
dr.rsn.form.mnemonic 15 FREE L MIS.MR.FORM :EI[epx,ea,en]D[eiO]R[eiR]RSN|0
dr.rsn.form.no.undo 1 FREE L :EI[epx,ea,en]D[eiO]R[eiR]RSN|6
dr.rsn.form.section 2 FREE L :EI[epx,ea,en]D[eiO]R[eiR]RSN|4
dr.rsn.form.urn 30 FREE L :EI[epx,ea,en]D[eiO]R[eiR]RSN|1
dr.rsn.ord.or.rpt.im 1 FREE L VAL=%MRI.ICR.dr.rsn.form.display(4,prefix,record,acct,
VAL=doctor.order,dr.reason.order)
dr.rsn.ord.or.rpt.or 1 FREE L VAL=%MRI.ICR.dr.rsn.form.display(5,prefix,record,acct,
VAL=doctor.order,dr.reason.order)
dr.rsn.pom.ord 1 YN L :EI[epx,ea,en]D[eiO]R[eiR]RSN|7
dr.rsn.pom.ord.cat 10 FREE L :EI[epx,ea,en]D[eiO]R[eiR]RSN|8
dr.rsn.rpt.img.dis 9 FREE L VAL=%MRI.ICR.dr.rsn.form.display(2,prefix,record,acct,
VAL=doctor.order,dr.reason.order)
dr.rsn.sec.pg.dis 3 PINT R VAL=IF{@dr.reason.image.page;@dr.rsn.form.section}
Ì € i 2
mri.icr.dr.complete.dates (dr.complete.dates)
[prefix,record,acct, dcd.doctor]
:EI[epx,ea,en]C[ggg]
Field Name Len Dat Typ J DPM Offset/Local/VAL
dcd.doctor 10 FREE L MIS.DOC.DICT ggg
dcd.date 8 DATE L :EI[epx,ea,en]C[ggg]|0
Ì € i 2
mri.icr.suspend.resume.proc (suspend.resume.proc)
[prefix,record,acct, suspend.proc.date]
:EI[epx,ea,en]S[eaS]
Field Name Len Dat Typ J DPM Offset/Local/VAL
suspend.proc.date 8 DATE L eaS
resume.proc.date 8 DATE L :EI[epx,ea,en]S[eaS]|1
suspend.proc.user 10 FREE L :EI[epx,ea,en]S[eaS]|0
Ì i 2
mri.icr.od.image.scan.error (od.image.scan.error)
[od.err.facility,od.err.date,od.err.time,od.err.user,od.err.device,od.err.counter]
:EI.IMG.ERR[gqb,errDT,errTM,gu,errDV,errCT]
Field Name Len Dat Typ J DPM Offset/Local/VAL
od.err.facility 10 FREE L MIS.FACILITY gqb
od.err.date 8 DATE L errDT
od.err.time 4 HHMM L errTM
od.err.user 10 FREE L MIS.USER gu
od.err.device 20 FREE L errDV
od.err.counter 2 PINT R errCT
od.err.acct.number 12 FREE L :EI.IMG.ERR[gqb,errDT,errTM,gu,errDV,errCT]|1
od.err.doc.number 9 FREE L :EI.IMG.ERR[gqb,errDT,errTM,gu,errDV,errCT]|2
od.err.form.id 15 FREE L MIS.MR.FORM :EI.IMG.ERR[gqb,errDT,errTM,gu,errDV,errCT]|3
od.err.scan.date 8 DATE L :EI.IMG.ERR[gqb,errDT,errTM,gu,errDV,errCT]|5
od.err.scan.station 3 FREE L :EI.IMG.ERR[gqb,errDT,errTM,gu,errDV,errCT]|8
od.err.scan.time 4 HHMM L :EI.IMG.ERR[gqb,errDT,errTM,gu,errDV,errCT]|6
od.err.scan.user 10 FREE L :EI.IMG.ERR[gqb,errDT,errTM,gu,errDV,errCT]|7
od.err.type 20 FREE L :EI.IMG.ERR[gqb,errDT,errTM,gu,errDV,errCT]|4
od.err.unit.number 10 FREE L :EI.IMG.ERR[gqb,errDT,errTM,gu,errDV,errCT]|0
Ì i 2
mri.icr.user.file.counts (user.file.counts)
[icr.user,icr.date] = icr.count
?EICNT[gu,ed]
Field Name Len Dat Typ J DPM Offset/Local/VAL
icr.user 10 FREE L MIS.USER gu
icr.date 8 DATE L ed
icr.count 3 INT R ?EICNT[gu,ed]
Ì 2
INDEX FILE/INTERNAL NAME SUBSCRIPTS/PHYSICAL BASE
mri.icr.available.date.index [prefix,date.to.doctors,record,acct] = 0
available.date.index ?EID[epx,eaDT,ea,en]
mri.icr.date.completed.index [prefix,date.complete,record,acct]
complete.x ?EIC[epx,eaCT,ea,en]
mri.icr.doctor.index [prefix,doctor,doctor.date.available,record,acct,doctor.order] = 0
doctor.index ?EIDR[epx,ggg,eaDA,ea,en,eiO]
mri.doctors.last.visit [prefix,doctor,date.complete,record,acct]
doctors.last.visit :EILV[epx,ggg,eaCT,ea,en]
doctor.reason.form.index [record,acct,mnemonic,dr.reason,dr.reason.form.seq.no,dr.reason.order] = doctor.
dr.reason.form.x ?EIF[ea,en,ggg,rsn,eaF,eiR]
mri.icr.name.index [prefix,MRI.PAT.name,record,acct] = 0
name.index ?EIN[epx,eaNM,ea,en]
mri.icr.reason.index [prefix,dr.reason,doctor,record,acct,doctor.order] = 0
reason.index ?EIR[epx,rsn,ggg,ea,en,eiO]
mri.icr.number.index [prefix,index.unit.number,record,acct] = 0
unit.number.index ?EII[epx,eaU,ea,en]
mri.icr.user.analyze.index [icr.user,doctor,icr.date,record,acct,dr.reason] = doctor.order
user.analyze.x ?EIUA[gu,ggg,ed,ea,en,rsn]
mri.icr.user.complete.index [icr.user,doctor,date.complete,record,acct,dr.reason] = doctor.order
user.complete.x ?EIUC[gu,ggg,eaCT,ea,en,rsn]
|
|
| | | | | | | | | |