Ì i 2
mri.pat.appointments (appointments)
[appt.mpi,appt.date.time,appt.source,appt.id]
?EAWZ[ea,eawDT,eaiaD,eawz]
Field Name Len Dat Typ J DPM Offset/Local/VAL
appt.mpi 25 URN L MRI.PAT ea
appt.date.time 13 DATE L eawDT
appt.source 15 FREE L eaiaD
appt.id 20 FREE L eawz
appt.account 30 URN L ADM.PAT ?EAWZ[ea,eawDT,eaiaD,eawz]|4
appt.agency 30 FREE L ?EAWZ[ea,eawDT,eaiaD,eawz]|3
appt.comment 60 FREE L ?EAWZ[ea,eawDT,eaiaD,eawz]|7
appt.description 45 FREE L ?EAWZ[ea,eawDT,eaiaD,eawz]|1
appt.duration 4 PINT R ?EAWZ[ea,eawDT,eaiaD,eawz]|0
appt.facility 10 FREE L MIS.FACILITY ?EAWZ[ea,eawDT,eaiaD,eawz]|2
appt.location 10 FREE L MIS.LOCN.DICT ?EAWZ[ea,eawDT,eaiaD,eawz]|3
appt.old.date.time 13 DATE L ?EAWZ[ea,eawDT,eaiaD,eawz]|9
appt.status 9 CHOICE L ?EAWZ[ea,eawDT,eaiaD,eawz]|5
appt.type 10 FREE L SCH.APPT.TYPE ?EAWZ[ea,eawDT,eaiaD,eawz]|8
appt.unsched.thru.time 4 HHMM L ?EAWZ[ea,eawDT,eaiaD,eawz]|6
appt.update 10 PINT R ?EAWZ[ea,eawDT,eaiaD,eawz]UPD
appt.visit.id 30 FREE L ?EAWZ[ea,eawDT,eaiaD,eawz]|4
Ì i 2
mri.pat.new.num.assign.log (assign.log)
[ass.prefix,ass.date,ass.unit.number,ass.urn]
:EAA[epx,eaD,eaU,ea]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ass.prefix 2 FREE L epx
ass.date 8 DATE L eaD
ass.unit.number 10 FREE L eaU
ass.urn 8 URN L ea
ass.time 4 HHMM L :EAA[epx,eaD,eaU,ea]|1
ass.user 15 FREE L :EAA[epx,eaD,eaU,ea]|0
Ì i 2
mri.pat.comp.ord.acct.index (comp.ord.acct.num.index)
[comp.ord.adm.acct.no]
:EACA[aaN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
comp.ord.adm.acct.no 12 FREE L aaN
comp.ord.adm.dis.date 8 DATE L :EACA[aaN]|2
comp.ord.adm.mri.urn 25 URN L MRI.PAT :EACA[aaN]|0
comp.ord.adm.od.urn 10 FREE L :EACA[aaN]|3
comp.ord.adm.urn 30 URN L ADM.PAT :EACA[aaN]|1
Ì i 2
mri.pat.comp.ord.sum.index (comp.ord.sum.index)
[comp.ord.mri.urn,comp.ord.admit.urn]
:EACO[ea,aa]
Field Name Len Dat Typ J DPM Offset/Local/VAL
comp.ord.mri.urn 25 URN L MRI.PAT ea
comp.ord.admit.urn 30 URN L ADM.PAT aa
comp.ord.acct.no 12 FREE L :EACO[ea,aa]|0
comp.ord.dis.date 8 DATE L :EACO[ea,aa]|1
comp.ord.od.urn 10 FREE L :EACO[ea,aa]|2
Ì i 2
mri.pat.delete.restore.index (delete.restore.log)
[del.prefix,del.date,del.number,del.urn] = free
:EADR[epx,eaD,eaX,ea]
Field Name Len Dat Typ J DPM Offset/Local/VAL
del.prefix 2 FREE L epx
del.date 8 DATE L eaD
del.number 2 PINT R eaX
del.urn 8 URN L ea
del.action 1 CHOICE L :EADR[epx,eaD,eaX,ea]|1
del.time 4 HHMM L :EADR[epx,eaD,eaX,ea]|2
del.user 10 FREE L :EADR[epx,eaD,eaX,ea]|0
Ì i 2
mri.pat.duplicates (duplicates)
:EAD
Field Name Len Dat Typ J DPM Offset/Local/VAL
dup.birthdate.range 4 PINT R :EAD|5
dup.compile.mode 4 CHOICE L :EAD|11
dup.date 8 DATE L :EAD|0
dup.end.date 8 DATE L :EAD|15
dup.end.time 4 DATE L :EAD|16
dup.first.name.sel 18 CHOICE L :EAD|8
dup.last.name.sel 18 CHOICE L :EAD|7
dup.nrecs 5 PINT R :EAD|17
dup.possible.count 7 PINT R :EAD|10
dup.process.count 7 PINT R :EAD|4
dup.select.count 7 PINT R :EAD|12
dup.select.end.date 8 DATE L :EAD|13
dup.select.end.time 4 HHMM L :EAD|14
dup.ssn.sel 18 CHOICE L :EAD|9
dup.start.at.date 8 DATE L :EAD|6
dup.status 9 FREE L :EAD|3
dup.status.display 18 FREE L VAL=IF{@dup.status="SELECTING" @dup.status_" "_@dup.s
VAL=elect.count;@dup.status}
dup.time 4 HHMM L :EAD|1
dup.user 10 FREE L :EAD|2
Ì i 2
mri.pat.duplicate.index (duplicate.index)
[dup.last.name,dup.first.name,dup.soc.sec.number,dup.birthdate,dup.urn]
:EAD["D",x1,x2,eaSSN,eaBD,ea]
Field Name Len Dat Typ J DPM Offset/Local/VAL
dup.last.name 25 FREE L x1
dup.first.name 25 FREE L x2
dup.soc.sec.number 12 FREE L eaSSN
dup.birthdate 8 BDATE L eaBD
dup.urn 25 URN L MRI.PAT ea
dup.before.sndx.name 25 FREE L :EAD["D",x1,x2,eaSSN,eaBD,ea]
Ì i 2
mri.pat.edit.index (edit.log)
[edit.prefix,edit.date,edit.unit.number,edit.urn,edit.number]
:EAE[epx,eaD,eaU,ea,eaX]
Field Name Len Dat Typ J DPM Offset/Local/VAL
edit.prefix 2 FREE L epx
edit.date 8 DATE L eaD
edit.unit.number 10 FREE L eaU
edit.urn 25 URN L MRI.PAT ea
edit.number 2 PINT R eaX
edit.item 20 FREE L MRI.AUDIT :EAE[epx,eaD,eaU,ea,eaX]|0
edit.new.val 30 FREE L :EAE[epx,eaD,eaU,ea,eaX]|3
edit.old.val 30 FREE L :EAE[epx,eaD,eaU,ea,eaX]|2
edit.time 4 HHMM L :EAE[epx,eaD,eaU,ea,eaX]|1
edit.user 10 FREE L MIS.USER :EAE[epx,eaD,eaU,ea,eaX]|4
Ì i 2
mri.pat.edit.pat.log (edit.pat.log)
[ep.prefix,ep.urn,ep.unit.number,ep.date,ep.number]
:EAPE[epx,ea,eaU,eaD,eaX]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ep.prefix 2 FREE L epx
ep.urn 25 URN L MRI.PAT ea
ep.unit.number 10 FREE L eaU
ep.date 8 DATE L eaD
ep.number 2 PINT R eaX
ep.item 20 FREE L MRI.AUDIT :EAPE[epx,ea,eaU,eaD,eaX]|0
ep.new.val 30 FREE L :EAPE[epx,ea,eaU,eaD,eaX]|3
ep.old.val 30 FREE L :EAPE[epx,ea,eaU,eaD,eaX]|2
ep.time 4 HHMM L :EAPE[epx,ea,eaU,eaD,eaX]|1
ep.user 10 FREE L MIS.USER :EAPE[epx,ea,eaU,eaD,eaX]|4
Ì i 2
mri.pat.fast.input.index (fast.input.log)
[fast.prefix,fast.user,fast.date,fast.unit.number,fast.urn]
:EAF[epx,eaUS,eaD,eaU,ea]
Field Name Len Dat Typ J DPM Offset/Local/VAL
fast.prefix 2 FREE L epx
fast.user 10 FREE L eaUS
fast.date 8 DATE L eaD
fast.unit.number 10 FREE L eaU
fast.urn 8 URN L ea
fast.time 4 HHMM L :EAF[epx,eaUS,eaD,eaU,ea]|0
Ì i 2
hub.adm.file (hub.adm.file)
[adm.urn]
?EAHHAA[aa]
Field Name Len Dat Typ J DPM Offset/Local/VAL
adm.urn 30 URN L ADM.PAT aa
adm.hub.id 20 FREE L ?EAHHAA[aa]|0
hub.id 20 FREE L
Ì i 2
hub.mri.file (hub.mri.file)
[mpi.urn]
?EAHHEA[ea]
Field Name Len Dat Typ J DPM Offset/Local/VAL
mpi.urn 25 URN L MRI.PAT ea
mri.hub.id 20 FREE L ?EAHHEA[ea]|0
Ì i 2
mri.patient.file (main)
[medical.record]
?EA[ea]
Field Name Len Dat Typ J DPM Offset/Local/VAL
medical.record 25 URN L ea
..not.in.use.17 0 FREE L ?EA[ea]|17
..not.in.use.6 0 FREE L ?EA[ea]|6
..not.in.use.7 0 FREE L ?EA[ea]|7
..not.in.use.8 0 FREE L ?EA[ea]|8
active 1 YN L ?EA[ea]|2
age 7 AGE R ?EA[ea]|5
alt.addr.counter 4 INT R ?EA[ea]|24
bad.debt 1 YN L ?EA[ea]|14
birthdate 8 BDATE L ?EA[ea]|3
cnv.facility 10 FREE L MIS.FACILITY ?EA[ea]CNV|2
cnv.pci.to.emr 1 YN L ?EA[ea]CNV|3
cnv.unit.number 10 FREE L ?EA[ea]CNV|1
cnv.urn 25 FREE L ?EA[ea]CNV|0
comment 60 FREE L ?EA[ea]CO|0
computed.birthdate 8 BDATE L ?EA[ea]|11
confidential 1 YN L ?EA[ea]|18
confidential.flag 20 FREE L VAL=IF{"Y"=@MRI.PAT.confidential "*** CONFIDENTIAL ***
VAL="}
current.age 7 FREE L VAL=%MRI.PAT.check.discharge.disposition(@MRI.PAT.disc
VAL=harge.disposition,@MRI.PAT.computed.birthdate,@MRI
VAL=.PAT.age,MRI.PAT.urn,@MRI.PAT.last.discharge.date)
VAL=^A
demo.recall.date 8 DATE L ?EA[ea]|12
demo.recall.time 4 HHMM L ?EA[ea]|25
discharge.disposition 10 FREE L MIS.DIS.DICT ?EA[ea]|9
ee.setup 0 FREE L VAL=IF{@init.visits.ee.format,@init.unit.nums.ee.forma
VAL=t}
emr.record.sealed 1 YN L ?EA[ea]|23
epi.num 15 FREE L ?EA[ea]|20
exp.date 8 DATE L ?EA[ea]|22
expire.date 8 DATE L VAL=%MRI.PAT.get.expire.date(urn)^EXDATE
expire.time 4 HHMM L VAL=%MRI.PAT.get.expire.time(urn)^EXPTIME
facility 10 FREE L MIS.FACILITY
first.name 25 FREE L
first.name.indexed 25 FREE L
healthcare.number 14 FREE L
id 25 URN L MRI.PAT VAL=@MRI.PAT.main[MRI.PAT.urn]UN[@.mri.pfx]|0
include.no.unit.number 1 YN L VAL=IF{c.yn="Y";@px.unit.number "Y"}
init.visits.ee.format 0 FREE L VAL=%MRI.PAT.ee.build.visits.ee.format("")
last.activity.date 8 DATE L ?EA[ea]|10
last.discharge.date 8 DATE L VAL=%MRI.PAT.get.discharge.date(urn)^LDISDATE
last.name 25 FREE L
last.name.indexed 25 FREE L
maiden.other.name 30 NAME L ?EA[ea]|16
merged.to 25 URN L MRI.PAT ?EA[ea]|13
mf.unit.number 12 FREE L ?EA[ea]|0
missing.data 0 FREE L VAL=(@name="DOE,JOHN")!(@name="DOE,JANE")!('@name)!('@
VAL=sex)!('@birthdate)!('@mothers.first.name)
mothers.first.name 20 FREE L ?EA[ea]|15
name 30 NAME L ?EA[ea]|1
new.patient 30 FREE L
new.patient.for.prefix 30 FREE L
old.epi.num 15 FREE L ?EA[ea]|21
old.patient 30 FREE L
old.patient.for.merge 63 FREE L
old.patient.for.prefix 30 FREE L
old.patient.for.view 30 FREE L
old.unit.number 10 FREE L ?EA[ea]|19
pat.home.phone 18 FREE L
pci.data.sent.to.emr 1 YN L ?EA[ea]PCI|0
policy.number 30 FREE L
sex 1 CHOICE L ?EA[ea]|4
soc.sec.number 12 FREE L
soundexed.name 30 NAME L
try.number 1 PINT R
unit.number 10 FREE L VAL=@MRI.PAT.px.unit.number[MRI.PAT.urn,@.mri.pfx]
unit.number.tdo 10 FREE L VAL=%MRI.PAT.unit.number.tdo(@unit.number)
universal.number 12 FREE L VAL=IF{@MIS.PARAM.country="CANADA" @MRI.DRC.health.car
VAL=e.number;@MRI.DRC.soc.sec.number}
urn 25 URN L MRI.PAT
Ì € i 2
mri.pat.amend.request (amend.request)
[medical.record, ar.prefix]
?EA[ea]AR[epx]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ar.prefix 2 FREE L epx
amend.comm 60 FREE L ?EA[ea]AR[epx]|2
amend.date 8 DATE L ?EA[ea]AR[epx]|1
amend.on.file 1 YN L ?EA[ea]AR[epx]|0
amend.user 10 FREE L MIS.USER ?EA[ea]AR[epx]|3
Ì € i 2
mri.pat.by.prefix.data (by.prefix)
[medical.record, prefix.by]
?EA[ea]P[epx]
Field Name Len Dat Typ J DPM Offset/Local/VAL
prefix.by 2 FREE L epx
folder.create.date 8 DATE L VAL=@MRI.PAT.folder.create.date.ee[@.mri.pfx]
folder.create.date.ee 8 DATE L ?EA[ea]P[epx]|0
more.on.microfilm 1 YN L VAL=@MRI.PAT.more.on.microfilm.ee[@.mri.pfx]
more.on.microfilm.ee 1 YN L ?EA[ea]P[epx]|1
portion.incomplete 1 YN L VAL=%MRI.ICR.portion.incomplete(@.mri.pfx,urn)
portion.reserved 1 YN L VAL=%MRI.LOC.portion.reserved(@.mri.pfx,urn)
portion.signed.out 1 YN L VAL=%MRI.LOC.portion.signed.out(@.mri.pfx,urn)
portion.signed.out.or.rsv 1 YN L VAL=IF{+@MRI.LOC.portions[@.mri.pfx,urn,""] "Y";""}
record.locator 20 FREE L VAL=@MRI.PAT.record.locator.ee[@.mri.pfx]
record.locator.ee 20 FREE L ?EA[ea]P[epx]|2
Ì € i 2
mri.pat.emr.sealed.audit (emr.sealed.audit)
[medical.record, emr.sealed.audit.q]
?EA[ea]SEA[eaSEA]
Field Name Len Dat Typ J DPM Offset/Local/VAL
emr.sealed.audit.q 3 INT R eaSEA
emr.sealed.audit.client 30 FREE L ?EA[ea]SEA[eaSEA]|5
emr.sealed.audit.date 8 DATE L ?EA[ea]SEA[eaSEA]|1
emr.sealed.audit.status 8 CHOICE L ?EA[ea]SEA[eaSEA]|0
emr.sealed.audit.sys.time 10 PINT R ?EA[ea]SEA[eaSEA]|3
emr.sealed.audit.time 4 HHMM L ?EA[ea]SEA[eaSEA]|2
emr.sealed.audit.user 10 FREE L MIS.USER ?EA[ea]SEA[eaSEA]|4
Ì € i 2
mri.pat.emr.sealed.audit.users (emr.sealed.audit.users)
[medical.record,emr.sealed.audit.q, emr.sealed.audit.acc.user]
?EA[ea]SEA[eaSEA]U[gu]
Field Name Len Dat Typ J DPM Offset/Local/VAL
emr.sealed.audit.acc.user 10 FREE L MIS.USER gu
Ì € i 2
mri.pat.emr.sealed.audit.visit (emr.sealed.audit.visits)
[medical.record,emr.sealed.audit.q, emr.sealed.visit]
?EA[ea]SEA[eaSEA]A[aa]
Field Name Len Dat Typ J DPM Offset/Local/VAL
emr.sealed.visit 10 FREE L aa
Ì € i 2
mri.pat.merged.from (merged.from)
[medical.record, merged.number]
?EA[ea]MF[mrg]
Field Name Len Dat Typ J DPM Offset/Local/VAL
merged.number 2 PINT R mrg
merged.birthdate 8 BDATE L VAL=@MRI.PAT.birthdate[@merged.urn]
merged.epi.num 15 FREE L VAL=@MRI.PAT.epi.num[@merged.urn]
merged.exp.date 8 DATE L VAL=@MRI.PAT.exp.date[@merged.urn]
merged.mothers.first.name 20 FREE L VAL=@MRI.PAT.mothers.first.name[@merged.urn]
merged.name 30 FREE L VAL=@MRI.PAT.name[@merged.urn]
merged.sex 1 FREE L VAL=@MRI.PAT.sex[@merged.urn]
merged.unit.number 10 FREE L VAL=@MRI.PAT.px.unit.number[@merged.urn,merge.prefix]
merged.universal.num 12 FREE L VAL=IF{@MIS.PARAM.country="CANADA" @MRI.DRC.health.car
VAL=e.number[@merged.urn];@MRI.DRC.soc.sec.number[@mer
VAL=ged.urn]}
merged.urn 10 URN L ?EA[ea]MF[mrg]|0
Ì € i 2
mri.pat.other.names (other.names)
[medical.record, other.name]
?EA[ea]ON[eaON]
Field Name Len Dat Typ J DPM Offset/Local/VAL
other.name 30 NAME L eaON
Ì € i 2
mri.pat.patient.facility (patient.facility)
[medical.record, pt.facility]
?EA[ea]FAC[fac]
Field Name Len Dat Typ J DPM Offset/Local/VAL
pt.facility 10 FREE L fac
Ì € i 2
mri.patient.instructions (pic.main)
[medical.record, pic.visit]
?EA[ea]PIC[aa]
Field Name Len Dat Typ J DPM Offset/Local/VAL
pic.visit 30 URN L ADM.PAT aa
...not.in.use2 1 FREE L ?EA[ea]PIC[aa]|3
...not.in.use3 1 FREE L ?EA[ea]PIC[aa]|2
pic.origin 3 CHOICE L ?EA[ea]PIC[aa]|4
pic.signature.language 10 FREE L MIS.CAN.LANG ?EA[ea]PIC[aa]|1
pic.signature.version 5 INT R ?EA[ea]PIC[aa]|0
Ì € i 2
mri.patient.instr.fields (pic.fields)
[medical.record,pic.visit, pic.fld.print.num,pic.fld.type,pic.fld.mnemonic]
?EA[ea]PIC[aa]F[epfpn,epft,epfm]
Field Name Len Dat Typ J DPM Offset/Local/VAL
pic.fld.print.num 2 PINT R epfpn
pic.fld.type 10 CHOICE L epft
pic.fld.mnemonic 100 FREE L epfm
pic.fld.value 100 FREE L ?EA[ea]PIC[aa]F[epfpn,epft,epfm]|0
Ì € i 2
mri.patient.instructions.instr (pic.instructions)
[medical.record,pic.visit, pic.instr.q]
?EA[ea]PIC[aa]I[epicQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
pic.instr.q 2 PINT R epicQ
pic.instr.language 10 FREE L MIS.CAN.LANG ?EA[ea]PIC[aa]I[epicQ]|2
pic.instr.mnemonic 50 FREE L ?EA[ea]PIC[aa]I[epicQ]|0
pic.instr.print.num 2 PINT R ?EA[ea]PIC[aa]I[epicQ]|4
pic.instr.source 5 CHOICE L ?EA[ea]PIC[aa]I[epicQ]|3
pic.instr.version 5 INT R ?EA[ea]PIC[aa]I[epicQ]|1
Ì € i 2
mri.pat.pic.instr.custom (pic.instructions.custom)
[medical.record,pic.visit,pic.instr.q, pic.custom.q]
?EA[ea]PIC[aa]I[epicQ]CT[epicC]
Field Name Len Dat Typ J DPM Offset/Local/VAL
pic.custom.q 2 PINT R epicC
pic.custom.mnemonic 20 FREE L ?EA[ea]PIC[aa]I[epicQ]CT[epicC]|0
Ì € i 2
mri.pat.pic.instr.custom.text (pic.instructions.custom.t)
[medical.record,pic.visit,pic.instr.q,pic.custom.q, pic.custom.text.q]
?EA[ea]PIC[aa]I[epicQ]CT[epicC]T[epCTQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
pic.custom.text.q 2 PINT R epCTQ
pic.custom.text 90 FREE L ?EA[ea]PIC[aa]I[epicQ]CT[epicC]T[epCTQ]
Ì € i 2
mri.pat.pic.instructions.suppl (pic.instructions.suppl)
[medical.record,pic.visit,pic.instr.q, pic.suppl.q]
?EA[ea]PIC[aa]I[epicQ]CT[epicC]
Field Name Len Dat Typ J DPM Offset/Local/VAL
pic.suppl.q 2 PINT R epicC
pic.suppl.mnemonic 20 FREE L MIS.PIC.SUPPL ?EA[ea]PIC[aa]I[epicQ]CT[epicC]|0
pic.suppl.version 10 FREE L ?EA[ea]PIC[aa]I[epicQ]CT[epicC]|1
Ì € i 2
mri.pat.pic.instr.by.mnemonic (pic.instructions.by.mnem)
[medical.record,pic.visit, pic.instruction,pic.source]
?EA[ea]PIC[aa]MN[epicM,epicS]
Field Name Len Dat Typ J DPM Offset/Local/VAL
pic.instruction 50 FREE L epicM
pic.source 3 CHOICE L epicS
pic.instruction.q 2 PINT R ?EA[ea]PIC[aa]MN[epicM,epicS]|0
Ì € i 2
mri.pat.pic.other.dbs (pic.other.dbs)
[medical.record,pic.visit, pic.other.db]
?EA[ea]PIC[aa]DB[iaD]
Field Name Len Dat Typ J DPM Offset/Local/VAL
pic.other.db 12 FREE L MIS.APPL iaD
Ì € i 2
mri.pat.pic.suppl.visit.info (pic.suppl.visit.info)
[medical.record,pic.visit, pic.suppl.visit.mnemonic]
?EA[ea]PIC[aa]S[gctpm]
Field Name Len Dat Typ J DPM Offset/Local/VAL
pic.suppl.visit.mnemonic 20 FREE L MIS.PIC.SUPPL gctpm
pic.suppl.visit.language 10 FREE L MIS.CAN.LANG ?EA[ea]PIC[aa]S[gctpm]|1
pic.suppl.visit.version 10 FREE L ?EA[ea]PIC[aa]S[gctpm]|0
Ì € i 2
mri.pat.unit.numbers (unit.numbers)
[medical.record, prefix]
?EA[ea]UN[epx]
Field Name Len Dat Typ J DPM Offset/Local/VAL
prefix 2 FREE L epx
px.label.for.non.multifac 23 FREE L
px.unit.number 10 FREE L ?EA[ea]UN[epx]|0
px.user 10 FREE L MIS.USER ?EA[ea]UN[epx]|1
Ì € i 2
mri.pat.visits (visits)
[medical.record, visit.subscript]
?EA[ea]VS[eaV]
Field Name Len Dat Typ J DPM Offset/Local/VAL
visit.subscript 0 FREE L eaV
visit.acct.number 12 FREE L VAL=(visit.subscript#"2|")
visit.admit.urn 30 URN L ADM.PAT ?EA[ea]VS[eaV]|4
visit.alt.address 1 YN L ?EA[ea]VS[eaV]|19
visit.confidential 1 YN L ?EA[ea]VS[eaV]|6
visit.date 8 DATE L VAL=(99999999-(visit.subscript#"0|"$8)<99999999)
visit.date.time 13 FREE L VAL=(99999999.9999-(visit.subscript#"0|")<99999999.
VAL=9999)
visit.dis.or.ser.date 8 DATE L VAL=IF{@visit.discharge.date;@visit.date}
visit.discharge.date 8 DATE L ?EA[ea]VS[eaV]|2
visit.discharge.dispo 10 FREE L MIS.DIS.DICT ?EA[ea]VS[eaV]|3
visit.doctor 10 FREE L MIS.DOC.DICT ?EA[ea]VS[eaV]|1
visit.enc.seq.number 4 FREE L ?EA[ea]VS[eaV]|24
visit.facility 10 FREE L MIS.FACILITY VAL=IF{IF{@visit.acct.number$2?2A;@visit.acct.number$1
VAL=?1A;.}^MIS.PARAM.acct.num.prefix,IF{"CANADA"'=@MIS
VAL=.PARAM.country @MIS.PARAM.acct.num.px.facility;+@M
VAL=IS.CAN.ACNS.facilities[@MIS.CAN.ACNS.prefix.x[MIS.
VAL=PARAM.acct.num.prefix],""]}}
visit.guar.updatd.drc 1 YN L ?EA[ea]VS[eaV]|8
visit.guar.updatd.drc.out 1 YN L ?EA[ea]VS[eaV]|9
visit.ins.updated.drc 1 YN L ?EA[ea]VS[eaV]|5
visit.ins.updated.drc.out 1 YN L VAL=(IF{@visit.ins.updated.drc;"Y"})
visit.lab.suppress.pci 1 YN L ?EA[ea]VS[eaV]|13
visit.location 10 FREE L MIS.LOCN.DICT ?EA[ea]VS[eaV]|0
visit.mis.pat 1 YN L ?EA[ea]VS[eaV]|25
visit.mothers.acct 12 FREE L VAL=(@visit.mothers.subscript#"2|")
visit.mothers.subscript 34 FREE L ?EA[ea]VS[eaV]|16
visit.mothers.urn 25 URN L MRI.PAT ?EA[ea]VS[eaV]|15
visit.oe.report.urn 30 URN L ?EA[ea]VS[eaV]|10
visit.ppr.enc.seq.num 4 FREE L VAL=(visit.subscript#"3|")
visit.ppr.lss.enc.num 10 FREE L ?EA[ea]VS[eaV]PPR|0
visit.ppr.lss.enc.urn 12 FREE L ?EA[ea]VS[eaV]PPR|1
visit.pre 1 YN L ?EA[ea]VS[eaV]|11
visit.pre.res.date 8 DATE L ?EA[ea]VS[eaV]|12
visit.pre.sch.res.date 8 DATE L VAL=IF{"Y"=@visit.pre @visit.pre.res.date;"Y"=@visit.s
VAL=ch @visit.sch.res.date}
visit.reason 50 FREE L ?EA[ea]VS[eaV]|7
visit.sch 1 YN L ?EA[ea]VS[eaV]|17
visit.sch.res.date 8 DATE L ?EA[ea]VS[eaV]|18
visit.sealed.emr 1 YN L ?EA[ea]VS[eaV]|14
visit.time 4 HHMM L VAL=(19999-(visit.subscript#"0|"%8)%0<9999)
visit.type 7 CHOICE L VAL=(visit.subscript#"1|")
visit.type.with.pre 7 FREE L VAL=(IF{"Y"=@visit.pre "PRE ";"Y"=@visit.sch "SCH ";""
VAL=}_(visit.subscript#"1|"))
Ì € i 2
mri.pat.visits.newborns (visits.newborns)
[medical.record,visit.subscript, visit.newborn.urn]
?EA[ea]VS[eaV]N[eaNB]
Field Name Len Dat Typ J DPM Offset/Local/VAL
visit.newborn.urn 25 URN L eaNB
visit.newborn.acct 12 FREE L VAL=(@visit.newborn.subscript#"2|")
visit.newborn.subscript 34 FREE L ?EA[ea]VS[eaV]N[eaNB]|0
Ì i 2
mri.pat.merge.index (merge.log)
[merge.prefix,merge.date,merge.urn,merge.number]
:EAMRG[epx,eaD,ea,eaX]
Field Name Len Dat Typ J DPM Offset/Local/VAL
merge.prefix 2 FREE L epx
merge.date 8 DATE L eaD
merge.urn 8 URN L ea
merge.number 3 PINT R eaX
auto.merge 3 CHOICE L :EAMRG[epx,eaD,ea,eaX]|10
merge.birthdate 8 BDATE L :EAMRG[epx,eaD,ea,eaX]|3
merge.created.by 14 FREE L :EAMRG[epx,eaD,ea,eaX]|8
merge.epi.number 15 FREE L :EAMRG[epx,eaD,ea,eaX]|9
merge.mfn 20 FREE L :EAMRG[epx,eaD,ea,eaX]|5
merge.name 30 FREE L :EAMRG[epx,eaD,ea,eaX]|2
merge.saved.birthdate 8 BDATE L VAL=/MS|3
merge.saved.name 30 FREE L VAL=/MS|1
merge.saved.sex 1 FREE L VAL=/MS|4
merge.sex 1 CHOICE L :EAMRG[epx,eaD,ea,eaX]|4
merge.time 4 HHMM L :EAMRG[epx,eaD,ea,eaX]|6
merge.txn 7 CHOICE L :EAMRG[epx,eaD,ea,eaX]|0
merge.unit.number 10 FREE L :EAMRG[epx,eaD,ea,eaX]|1
merge.user 10 FREE L :EAMRG[epx,eaD,ea,eaX]|7
Ì € i 2
mri.pat.merge.index.other.nums (merge.log.other.nums)
[merge.prefix,merge.date,merge.urn,merge.number, merge.other.num.prefix]
:EAMRG[epx,eaD,ea,eaX]O[mepx]
Field Name Len Dat Typ J DPM Offset/Local/VAL
merge.other.num.prefix 2 FREE L mepx
merge.other.num.removed 10 FREE L :EAMRG[epx,eaD,ea,eaX]O[mepx]|0
merge.other.num.saved 10 FREE L VAL=@MRI.PAT.px.unit.number[merge.other.num.prefix]
Ì i 2
merge.old.data.oth.names (merge.old.data.oth.names)
[old.urn, old.data.other.name]
?EAOLD[ea]ON[eaoON]
Field Name Len Dat Typ J DPM Offset/Local/VAL
old.data.other.name 30 NAME L eaoON
Ì i 2
mri.pat.missing.data.index (missing.index)
[miss.prefix,miss.date,miss.urn]
:EAM[epx,eaD,ea]
Field Name Len Dat Typ J DPM Offset/Local/VAL
miss.prefix 2 FREE L epx
miss.date 8 DATE L eaD
miss.urn 8 URN L ea
miss.user 10 FREE L :EAM[epx,eaD,ea]|0
Ì i 2
med.rec.form.audit.trail (mr.form.audit.trail)
[mrf.aud.mri.urn,mrf.aud.account.number,mrf.aud.form.seq.no,mrf.aud.seq.no]
?EAFA[ea,eaN,eaF,eaED]
Field Name Len Dat Typ J DPM Offset/Local/VAL
mrf.aud.mri.urn 25 URN L MRI.PAT ea
mrf.aud.account.number 20 FREE L eaN
mrf.aud.form.seq.no 5 FREE L eaF
mrf.aud.seq.no 5 PINT R eaED
mrf.aud.date.out 8 FREE L VAL=%Z.date.out(%Z.date.in.magic(@mrf.aud.time))
mrf.aud.doctor 10 FREE L MIS.DOC.DICT ?EAFA[ea,eaN,eaF,eaED]|1
mrf.aud.doctor.name 30 FREE L VAL=@MIS.DOC.DICT.name[@mrf.aud.doctor]
mrf.aud.icr.new 10 FREE L MRI.ICR.RSN ?EAFA[ea,eaN,eaF,eaED]|4
mrf.aud.icr.res 10 FREE L MRI.ICR.RSN ?EAFA[ea,eaN,eaF,eaED]|3
mrf.aud.name 30 FREE L VAL=@name
mrf.aud.status 30 FREE L ?EAFA[ea,eaN,eaF,eaED]|2
mrf.aud.time 20 FREE L ?EAFA[ea,eaN,eaF,eaED]|0
mrf.aud.time.out 4 FREE L VAL=$TIME(@mrf.aud.time)
mrf.aud.type 10 FREE L ?EAFA[ea,eaN,eaF,eaED]|5
mrf.aud.unit.number 10 FREE L VAL=@unit.number
mrf.aud.user 20 FREE L ?EAFA[ea,eaN,eaF,eaED]|6
mrf.audit.type.out 30 FREE L VAL=%MRI.PAT.form.audit.action(@mrf.account.number,@mr
VAL=f.form.seq.no,@mrf.aud.seq.no)
Ì i 2
medical.record.forms (mr.forms)
[mrf.mri.urn,mrf.account.number,mrf.form.seq.no]
?EAFM[ea,eaN,eaF]
Field Name Len Dat Typ J DPM Offset/Local/VAL
mrf.mri.urn 25 URN L MRI.PAT ea
mrf.account.number 20 FREE L eaN
mrf.form.seq.no 5 FREE L eaF
mrf.database 12 FREE L MIS.APPL ?EAFM[ea,eaN,eaF]|2
mrf.description 30 FREE L ?EAFM[ea,eaN,eaF]|3
mrf.form.icr.print 10 FREE L VAL=@MRI.ICR.RSN.form.status.x[@mrf.form.mnemonic,@mrf
VAL=.form.status]
mrf.form.mnemonic 15 FREE L MIS.MR.FORM ?EAFM[ea,eaN,eaF]|0
mrf.form.name 40 FREE L VAL=@MIS.MR.FORM.description[mrf.form.mnemonic]
mrf.form.pom.ordcat 10 FREE L ?EAFM[ea,eaN,eaF]|7
mrf.form.pom.order 1 YN L ?EAFM[ea,eaN,eaF]|6
mrf.form.urn 30 FREE L ?EAFM[ea,eaN,eaF]|1
mrf.old.form.urn 30 FREE L ?EAFM[ea,eaN,eaF]|5
mrf.temp.flag 1 YN L ?EAFM[ea,eaN,eaF]|4
Ì € i 2
medical.record.form.doctors (mr.form.doctors)
[mrf.mri.urn,mrf.account.number,mrf.form.seq.no, mrf.doctor]
?EAFM[ea,eaN,eaF]DR[ggg]
Field Name Len Dat Typ J DPM Offset/Local/VAL
mrf.doctor 10 FREE L MIS.DOC.DICT ggg
mrf.doctor.marker 2 PINT R ?EAFM[ea,eaN,eaF]DR[ggg]|3
mrf.doctor.name 30 FREE L VAL=@MIS.DOC.DICT.name[@mrf.doctor]
mrf.doctor.page 3 PINT R ?EAFM[ea,eaN,eaF]DR[ggg]|2
mrf.form.icr 10 FREE L MRI.ICR.RSN ?EAFM[ea,eaN,eaF]DR[ggg]|1
mrf.form.status 30 FREE L ?EAFM[ea,eaN,eaF]DR[ggg]|0
Ì i 2
mri.order.entry.data (oe.data)
[mri.urn]
?EA.OE[ea]
Field Name Len Dat Typ J DPM Offset/Local/VAL
mri.urn 25 URN L MRI.PAT ea
bsa.formula 30 FREE L ?EA.OE[ea]|14
bsa.in.m2 6 FREE L VAL=IF{%Z.calc.bsa.M.formula(@facility,@age)^FAC_.=(%Z
VAL=.calc.bsa.M.formula(@facility,@age)_.) @ADM.PAT.bs
VAL=a.in.m2.ee;%Z.calc.bsa.M.formula(@wt.in.kg,@ht.in.
VAL=cm,FAC,@age)}
bsa.in.m2.ee 6 PDEC2 R ?EA.OE[ea]|13
ht.in.cm 6 DEC2 R ?EA.OE[ea]|3
ht.in.ft 1 INT R ?EA.OE[ea]|1
ht.in.in 5 DEC2 R ?EA.OE[ea]|2
ht.wt.file.date 8 DATE L ?EA.OE[ea]|15
ht.wt.file.time 4 HHMM L ?EA.OE[ea]|16
wt.in.kg 7 DEC3 R ?EA.OE[ea]|6
wt.in.lb 4 INT R ?EA.OE[ea]|4
wt.in.oz 5 DEC2 R ?EA.OE[ea]|5
Ì i 2
pending.emr.switches (pending.emr.switch.list)
[pending.emr.switch.urn]
:EAPES[ea]
Field Name Len Dat Typ J DPM Offset/Local/VAL
pending.emr.switch.urn 25 URN L MRI.PAT ea
pending.emr.switch.number 20 FREE L :EAPES[ea]|0
pending.emr.switch.time 19 FREE L :EAPES[ea]|1
Ì i 2
mri.pat.sealed.emr.visits (sealed.emr.visits)
[sealed.emr.urn,sealed.emr.adm]
?EAMRX[ea,aa]
Field Name Len Dat Typ J DPM Offset/Local/VAL
sealed.emr.urn 25 URN L MRI.PAT ea
sealed.emr.adm 30 URN L ADM.PAT aa
sealed.emr.status 8 CHOICE L ?EAMRX[ea,aa]|0
Ì € i 2
mri.pat.sealed.emr.users (sealed.emr.users)
[sealed.emr.urn,sealed.emr.adm, sealed.emr.user]
?EAMRX[ea,aa]U[gu]
Field Name Len Dat Typ J DPM Offset/Local/VAL
sealed.emr.user 10 FREE L MIS.USER gu
Ì i 2
mri.pt.swipe.cards (swipe.cards)
[swipe.card.urn]
?EASW[ea]
Field Name Len Dat Typ J DPM Offset/Local/VAL
swipe.card.urn 25 FREE L ea
Ì € i 2
mri.pt.swipe.cards.printed (swipe.cards.printed)
[swipe.card.urn, swp.num]
?EASW[ea]P[eaSWP]
Field Name Len Dat Typ J DPM Offset/Local/VAL
swp.num 2 PINT R eaSWP
swp.date 8 DATE L ?EASW[ea]P[eaSWP]|1
swp.facility 10 FREE L MIS.FACILITY ?EASW[ea]P[eaSWP]|0
swp.time 4 TIME L ?EASW[ea]P[eaSWP]|2
swp.user 10 FREE L MIS.USER ?EASW[ea]P[eaSWP]|3
Ì i 2
mri.pat.xfer.queue (xfer.queue)
[xfer.seconds,xfer.type,xfer.urn]
?EAXQ[xsec,xch,aa]
Field Name Len Dat Typ J DPM Offset/Local/VAL
xfer.seconds 9 FREE L xsec
xfer.type 10 CHOICE L xch
xfer.urn 30 URN L ADM.PAT aa
xfer.acct.number 12 FREE L ?EAXQ[xsec,xch,aa]
xfer.appl.urn 20 FREE L
xfer.dre.abs.ignore 1 YN L ?EAXQ[xsec,xch,aa]|5
xfer.dre.acct 12 FREE L ?EAXQ[xsec,xch,aa]|3
xfer.dre.adm.urn 30 URN L ADM.PAT ?EAXQ[xsec,xch,aa]|4
xfer.dre.db 12 FREE L MIS.APPL ?EAXQ[xsec,xch,aa]|2
xfer.guar.adm.urn 30 URN L ADM.PAT ?EAXQ[xsec,xch,aa]|4
xfer.job 3 INT R
xfer.mri.user 10 FREE L MIS.USER ?EAXQ[xsec,xch,aa]|6
xfer.new.acct.number 12 FREE L ?EAXQ[xsec,xch,aa]|0
xfer.new.mri.urn 25 URN L MRI.PAT ?EAXQ[xsec,xch,aa]|1
xfer.new.other.number 11 FREE L ?EAXQ[xsec,xch,aa]|4
xfer.new.soc.sec.number 8 FREE L ?EAXQ[xsec,xch,aa]|0
xfer.new.unit.number 10 FREE L ?EAXQ[xsec,xch,aa]|0
xfer.old.acct.number 12 FREE L ?EAXQ[xsec,xch,aa]|1
xfer.old.mri.number 25 URN L MRI.PAT ?EAXQ[xsec,xch,aa]|3
xfer.old.other.number 11 FREE L ?EAXQ[xsec,xch,aa]|5
xfer.old.soc.sec.number 8 FREE L ?EAXQ[xsec,xch,aa]|1
xfer.old.unit.number 10 FREE L ?EAXQ[xsec,xch,aa]|2
xfer.switch.acct.number 12 FREE L ?EAXQ[xsec,xch,aa]|4
xfer.value 12 FREE L ?EAXQ[xsec,xch,aa]
Ì € i 2
mri.pat.xfer.queue.adm.urns (xfer.queue.adm.urns)
[xfer.seconds,xfer.type,xfer.urn, xfer.queue.adm.urn]
?EAXQ[xsec,xch,aa]U[aa]
Field Name Len Dat Typ J DPM Offset/Local/VAL
xfer.queue.adm.urn 30 URN L ADM.PAT aa
Ì € i 2
mri.pat.xfer.queue.patients (xfer.queue.patients)
[xfer.seconds,xfer.type,xfer.urn, xfer.account.number]
?EAXQ[xsec,xch,aa]P[xacn]
Field Name Len Dat Typ J DPM Offset/Local/VAL
xfer.account.number 12 FREE L xacn
Ì 2
INDEX FILE/INTERNAL NAME SUBSCRIPTS/PHYSICAL BASE
mri.pat.actual.name.index [last.name.indexed,first.name.indexed,urn]
actual.name.index :EAAN[eaNML,eaNMF,ea]
mri.pat.amend.request.index [prefix,urn]
amend.request.x ?EAAR[epx,ea]
mri.pat.assignment.date.index [ass.date,urn]
assignment.date.index :EAI[eaD,ea]
mri.pat.baby.mother.index [urn,visit.mothers.urn]
baby.mother.index :EABBY[ea,eaMOM]
mri.pat.cnv.unit.num.index [facility,cnv.unit.number] = urn
cnv.unit.num.index :EACU[gqb,un]
mri.pat.cnv.urn.index [facility,cnv.urn] = urn
cnv.urn.index :EACMX[gqb,eaCU]
mri.pat.birthdate.index [computed.birthdate,urn]
dob.index :EAB[eaCBD,ea]
mri.pat.edit.activity.index [seconds,queue.number] = urn
edit.activity.index :EAX[easc,eaqn]
mri.pat.epi.num.index [epi.num] = urn
epi.num.index :EAEPI[eaEPI]
mri.pat.expired.date.index [exp.date,urn]
expired.date.index :EAEXP[eaEXD,ea]
mri.patient.health.care.index [healthcare.number,urn]
healthcare.index :EAS[eaSSN,ea]
medical.record.form.pg.mrk.x [mrf.mri.urn,mrf.account.number,mrf.form.mnemonic,mrf.database,mrf.doctor.page,m
mr.form.pg.mark.x ?EAFPMX[ea,eaN,gi,iaD,eaFMP,eaFMM,eaFM]
medical.record.form.x [mrf.mri.urn,mrf.account.number,mrf.form.mnemonic,mrf.database,mrf.form.urn] = m
mr.form.x ?EAFMX[ea,eaN,gi,iaD,eaFM]
mri.pat.soundexed.name.index [last.name,first.name,sex,computed.birthdate,urn]
name.index :EAN[x1,x2,eaSX,eaCBD,ea]
mri.pat.phone.num.x [pat.home.phone,urn]
phone.num.x :EAPH[eaPH,ea]
mri.patient.policy.num.index [policy.number,urn]
policy.num.index :EAP[eaPLN,ea]
mri.patient.soc.sec.index [soc.sec.number,urn]
soc.sec.index :EAS[eaSSN,ea]
mri.pat.unit.number.index [unit.number] = urn
unit.num.index :EAU[eaN]
mri.pat.visit.locn.x [urn,visit.facility,visit.location,visit.date.time]
visit.locn.x ?EAL[ea,gqb,ggn,eaVDT]
|
|
| | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | |