Ì € i 2
audit.trail
[audit.prefix,audit.record,audit.acct,audit.queue]
*(E1)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 *(E1)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 MIS.APPL.DB *(E1)EIA[epx,ea,en,eiT]|5
audit.date 8 DATE L *(E1)EIA[epx,ea,en,eiT]|1
audit.dr.order 2 PINT R *(E1)EIA[epx,ea,en,eiT]|4
audit.name 25 FREE L VAL=(@MRI.PAT.name:25T)
audit.time 4 HHMM L *(E1)EIA[epx,ea,en,eiT]|2
audit.unit.number 10 FREE L VAL=@MRI.PAT.unit.number
audit.user 10 FREE L MIS.USER *(E1)EIA[epx,ea,en,eiT]|3
Ì i 2
doctors.unavailable
[doctor]
*(E1)EIU[ggg]
Field Name Len Dat Typ J DPM Offset/Local/VAL
doctor 10 FREE L MIS.DOC ggg
Ì € i 2
doctor.unavailable
[doctor, date.unavailable]
*(E1)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 *(E1)EIU[ggg]D[eaD]|1
user 10 FREE L *(E1)EIU[ggg]D[eaD]|0
Ì € i 2
main
[prefix,record,acct]
*(E1)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 *(E1)EI[epx,ea,en]|2
date.to.doctors 8 DATE L *(E1)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 *(E1)EI[epx,ea,en]|4
dis.ser.date 8 DATE L *(E1)EI[epx,ea,en]|5
doctor.box 10 FREE L MIS.DOC *(E1)EI[epx,ea,en]|6
doctor.box.name 30 FREE L VAL=@MIS.DOC.name[@doctor.box]
index.unit.number 10 FREE L
merged.from 25 URN L MRI.PAT *(E1)EI[epx,ea,en]|0
name 25 FREE L VAL=(@MRI.PAT.name:25T)
portion 20 FREE L *(E1)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
doctors
[prefix,record,acct, doctor.order]
*(E1)EI[epx,ea,en]D[eiO]
Field Name Len Dat Typ J DPM Offset/Local/VAL
doctor.order 2 PINT R eiO
doctor.address 40 FREE L VAL=%MRI.ICR.letter.field(A,B,C)
doctor.comment 39 FREE L *(E1)EI[epx,ea,en]D[eiO]|4
doctor.credit 3 PINT R *(E1)EI[epx,ea,en]D[eiO]|6
doctor.date.available 8 DATE L *(E1)EI[epx,ea,en]D[eiO]|1
doctor.date.complete 8 DATE L *(E1)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.first.name 30 FREE L VAL=@MIS.DOC.name[doctor]#"1,"
doctor.last.name 30 FREE L VAL=@MIS.DOC.name[doctor]#"0,"
doctor.mnemonic.and.name 43 FREE L VAL=(mnemonic_" - "_@MIS.DOC.name[mnemonic])
doctor.name 30 FREE L VAL=@MIS.DOC.name[@mnemonic]
doctor.pat.info 79 FREE L VAL=%MRI.ICR.letter.field(A,B,C)
doctor.pat.info.c 79 FREE L VAL=%MRI.ICR.letter.field(A,B,C)
doctor.pat.info.short 79 FREE L VAL=%MRI.ICR.letter.field(A,B,C)
doctor.reason 43 FREE L VAL=%MRI.ICR.print.dr.reasons(prefix,record,acct,docto
VAL=r.order)
doctor.reasons.complete 1 YN L *(E1)EI[epx,ea,en]D[eiO]|7
doctor.tot.icr 5 FREE L VAL=%MRI.ICR.letter.field(A,B,C)
doctor.tot.icr.w 5 FREE L VAL=%MRI.ICR.letter.field(A,B,C)
mnemonic 10 FREE L MIS.DOC *(E1)EI[epx,ea,en]D[eiO]|0
Ì € i 2
doctor.reasons
[prefix,record,acct,doctor.order, dr.reason.order]
*(E1)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 *(E1)EI[epx,ea,en]D[eiO]R[eiR]|0
dr.reason.auto.db 12 FREE L MIS.APPL.DB *(E1)EI[epx,ea,en]D[eiO]R[eiR]|2
dr.reason.auto.id 15 FREE L *(E1)EI[epx,ea,en]D[eiO]R[eiR]|3
dr.reason.complete 1 YN L *(E1)EI[epx,ea,en]D[eiO]R[eiR]|1
Ì € i 2
dr.complete.dates
[prefix,record,acct, dcd.doctor]
*(E1)EI[epx,ea,en]C[ggg]
Field Name Len Dat Typ J DPM Offset/Local/VAL
dcd.doctor 10 FREE L MIS.DOC ggg
dcd.date 8 DATE L *(E1)EI[epx,ea,en]C[ggg]|0
Ì € i 2
suspend.resume.proc
[prefix,record,acct, suspend.proc.date]
*(E1)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 *(E1)EI[epx,ea,en]S[eaS]|1
suspend.proc.user 10 FREE L *(E1)EI[epx,ea,en]S[eaS]|0
Ì i 2
user.file.counts
[icr.user,icr.date]
*(E1)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 *(E1)EICNT[gu,ed]
Index Files Subscripts/Physical Base
available.date.index [prefix,date.to.doctors,record,acct] = 0
?(E)EID[epx,eaDT,ea,en]
complete.x [prefix,date.complete,record,acct]
?(E)EIC[epx,eaCT,ea,en]
doctor.index [prefix,doctor,doctor.date.available,record,acct,doctor.order] = 0
?(E)EIDR[epx,ggg,eaDA,ea,en,eiO]
doctors.last.visit [prefix,doctor,date.complete,record,acct]
?(E)EILV[epx,ggg,eaCT,ea,en]
name.index [prefix,MRI.PAT.name,record,acct] = 0
?(E)EIN[epx,eaNM,ea,en]
reason.index [prefix,dr.reason,doctor,record,acct,doctor.order] = 0
?(E)EIR[epx,rsn,ggg,ea,en,eiO]
unit.number.index [prefix,index.unit.number,record,acct] = 0
?(E)EII[epx,eaU,ea,en]
|
|
| | | | | | | |