Ì i 2
mri.drc.ccdqr (ccdqr)
[ccdqr.patient,ccdqr.query]
?AA.CCDQR[ea,ggv]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ccdqr.patient 25 URN L MRI.PAT ea
ccdqr.query 10 FREE L MIS.QUERY ggv
ccdqr.abn.result 2 CHOICE L ?AA.CCDQR[ea,ggv]AB
ccdqr.ctr 5 PINT R ?AA.CCDQR[ea,ggv]|3
ccdqr.date 8 DATE L ?AA.CCDQR[ea,ggv]|1
ccdqr.mult.ctr 5 PINT R ?AA.CCDQR[ea,ggv]M|2
ccdqr.mult.date 8 DATE L ?AA.CCDQR[ea,ggv]M|0
ccdqr.mult.qry.map.date 8 DATE L ?AA.CCDQR[ea,ggv]INIT
ccdqr.mult.time 4 HHMM L ?AA.CCDQR[ea,ggv]M|1
ccdqr.response 30 QRY.RESP L ?AA.CCDQR[ea,ggv]|0
ccdqr.time 4 HHMM L ?AA.CCDQR[ea,ggv]|2
Ì € i 2
mri.drc.ccdqr.mult.resp (ccdqr.mult.resp)
[ccdqr.patient,ccdqr.query, ccdqr.mult.seq.no]
?AA.CCDQR[ea,ggv]M[ggvN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ccdqr.mult.seq.no 3 PINT R ggvN
ccdqr.mult.abn.result 2 CHOICE L ?AA.CCDQR[ea,ggv]M[ggvN]AB
ccdqr.mult.response 75 QRY.RESP L ?AA.CCDQR[ea,ggv]M[ggvN]|0
Ì i 2
drc.conversion.tape (conversion.tape)
?AATAPE
Field Name Len Dat Typ J DPM Offset/Local/VAL
records.per.block 2 PINT R ?AATAPE|1
saf.record.length 3 PINT R ?AATAPE|5
set 1 PINT R
tape.current.volume 2 PINT R ?AATAPE|2
tape.ebcdic 1 YN L ?AATAPE|4
tape.facility 10 FREE L MIS.FACILITY ?AATAPE|3
tape.file.number 1 PINT R ?AATAPE|0
tape.record.length 3 PINT R VAL=250
tape.without.unitno 1 YN L ?AATAPE|6
Ì i 2
drc.conversion.volume.data (volume.data)
[volume]
?AATAPE["V",erv]
Field Name Len Dat Typ J DPM Offset/Local/VAL
volume 2 PINT R erv
volume.tape.create.date 8 DATE L ?AATAPE["V",erv]|1
volume.tape.identifier 60 FREE L ?AATAPE["V",erv]|0
Ì € i 2
drc.conversion.volume.errors (volume.errors)
[volume, error.type,er]
?AATAPE["V",erv]E[ert,er]
Field Name Len Dat Typ J DPM Offset/Local/VAL
error.type 8 CHOICE L ert
er 8 PINT R er
er.unit.number 10 FREE L ?AATAPE["V",erv]E[ert,er]|0
error.message 60 FREE L ?AATAPE["V",erv]E[ert,er]|1
Ì i 2
hub.queue.entries (hub.queue.entries)
[hub.id]
?DRQ[ha]
Field Name Len Dat Typ J DPM Offset/Local/VAL
hub.id 20 FREE L ha
emr.move.time 10 PINT R ?DRQ[ha]|4
emr.moved.to.number 20 FREE L ?DRQ[ha]M|0
emr.moved.to.source 20 FREE L ?DRQ[ha]M|1
mult.time 10 PINT R ?DRQ[ha]|1
quick.time 10 PINT R ?DRQ[ha]|0
recall.time 10 PINT R ?DRQ[ha]|2
sent.emr.move 10 PINT R ?DRQ[ha]SENT|4
sent.mult 10 PINT R ?DRQ[ha]SENT|1
sent.quick 10 PINT R ?DRQ[ha]SENT|0
sent.recall 10 PINT R ?DRQ[ha]SENT|2
time 10 FREE L
Ì i 2
fail.queue (hub.queue.fail)
[fq.hub.id]
?DRQF[ha]
Field Name Len Dat Typ J DPM Offset/Local/VAL
fq.hub.id 15 FREE L ha
fq.emr.moved.to.number 20 FREE L ?DRQF[ha]M|0
fq.emr.moved.to.source 20 FREE L ?DRQF[ha]M|1
fq.retry.ct 3 PINT R ?DRQF[ha]|2
fq.time.initial 10 PINT R ?DRQF[ha]|0
fq.time.last 10 PINT R ?DRQF[ha]|1
Ì i 2
mri.demo.recall.file (main)
[medical.record]
?AA[ea]
Field Name Len Dat Typ J DPM Offset/Local/VAL
medical.record 8 URN L ea
active 1 YN L VAL=@MRI.PAT.active
affiliation 30 FREE L ?AA[ea]A|1
age 7 AGE R VAL=@MRI.PAT.age
age.group 2 FREE L ?AA[ea]CND|5
alert.1 15 FREE L ?AA[ea]CNR[1]
alert.2 15 FREE L ?AA[ea]CNR[2]
allergy.1 15 FREE L ?AA[ea]ALG[1]
allergy.2 15 FREE L ?AA[ea]ALG[2]
allergy.3 15 FREE L ?AA[ea]ALG[3]
allergy.4 15 FREE L ?AA[ea]ALG[4]
bad.debt 1 YN L VAL=@MRI.PAT.bad.debt
birthdate 8 BDATE L VAL=@MRI.PAT.birthdate
computed.birthdate 8 BDATE L
current.age 7 FREE L VAL=%Z.age(@MRI.PAT.computed.birthdate)
demo.recall.date 8 DATE L VAL=@MRI.PAT.demo.recall.date
discharge.disposition 10 FREE L MIS.DIS.DICT VAL=(@MRI.PAT.discharge.disposition)
disclosures 8 CHOICE L ?AA[ea]A|11
do.not.use 10 FREE L ?AA[ea]DR|4
edit.or.switch.guar.num 1 CHOICE L ?AA[ea]A|8
emp.addr.phone.out 125 FREE L VAL=(@pt.emp^AD#2P_IF{AD|3 " "_AD|3}_","_AD|4_","_AD|5
VAL=_" "_AD|6_" "_AD|7'=",, ")
emp.address.out 106 FREE L VAL=(@pt.emp^AD#2P_IF{AD|3 " "_AD|3}_","_AD|4_","_AD|5
VAL=_" "_AD|6'=",, ")
emp.city 30 FREE L ?AA[ea]E|4
emp.city.state.zip.o 44 FREE L VAL=(@pt.emp^AD#4P_","_AD|5_" "_AD|6'=", ")
emp.name.out 30 FREE L VAL=IF{@MIS.EMPLR.DICT.name[@employer];@employer}
emp.phone 18 PHONE L ?AA[ea]E|7
emp.state 2 FREE L ?AA[ea]E|5
emp.status 10 FREE L MIS.EMP.STATUS ?AA[ea]E|8
emp.street 30 FREE L ?AA[ea]E|2
emp.street2 30 FREE L ?AA[ea]E|3
emp.streets.out 61 FREE L VAL=(@pt.emp^AD#2P_" "_AD|3'=" ")
emp.zip 10 ZIP.POST L ?AA[ea]E|6
employer 10 FREE L MIS.EMPLR.DICT ?AA[ea]E|0
epi.number 15 FREE L VAL=@MRI.PAT.epi.num
family.doctor 10 FREE L MIS.DOC.DICT ?AA[ea]DR|3
family.doctor.name 30 FREE L VAL=@MIS.DOC.DICT.name[@MRI.DRC.family.doctor]
financial.class 10 FREE L MIS.FIN.CLASS ?AA[ea]A|3
first.name 25 FREE L
folder.create.date 8 DATE L VAL=@MRI.PAT.folder.create.date
guar.addr.phone.out 115 FREE L VAL=(@guar^AD#2P_IF{AD|3 " "_AD|3}_","_AD|4_","_AD|5_"
VAL= "_AD|6_" "_AD|7'=",, ")
guar.address.out 96 FREE L VAL=(@guar^AD#2P_IF{AD|3 " "_AD|3}_","_AD|4_","_AD|5_"
VAL= "_AD|6'=",, ")
guar.city 20 FREE L ?AA[ea]G|4
guar.city.state.zip.o 34 FREE L VAL=(@guar^AD#4P_","_AD|5_" "_AD|6'=", ")
guar.emp.addr.phone.out 125 FREE L VAL=(@guar.emp^AD#2P_IF{AD|3 " "_AD|3}_","_AD|4_","_AD
VAL=|5_" "_AD|6_" "_AD|7'=",, ")
guar.emp.address.out 106 FREE L VAL=(@guar.emp^AD#2P_IF{AD|3 " "_AD|3}_","_AD|4_","_AD
VAL=|5_" "_AD|6'=",, ")
guar.emp.city 30 FREE L ?AA[ea]GE|4
guar.emp.city.state.zip.o 44 FREE L VAL=(@guar.emp^AD#4P_","_AD|5_" "_AD|6'=", ")
guar.emp.name.out 30 FREE L VAL=IF{@MIS.EMPLR.DICT.name[@guar.employer];@guar.empl
VAL=oyer}
guar.emp.phone 18 PHONE L ?AA[ea]GE|7
guar.emp.state 2 FREE L ?AA[ea]GE|5
guar.emp.status 10 FREE L MIS.EMP.STATUS ?AA[ea]GE|8
guar.emp.street 30 FREE L ?AA[ea]GE|2
guar.emp.street2 30 FREE L ?AA[ea]GE|3
guar.emp.streets.out 61 FREE L VAL=(@guar.emp.street_" "_@guar.emp.street2'=" ")
guar.emp.zip 10 ZIP.POST L ?AA[ea]GE|6
guar.employer 10 FREE L MIS.EMPLR.DICT ?AA[ea]GE|0
guar.home.phone 18 PHONE L ?AA[ea]G|7
guar.name 30 FREE L ?AA[ea]G|0
guar.name.display.only 30 FREE L ?AA[ea]G|0
guar.occupation 20 FREE L ?AA[ea]GE|1
guar.pt.relationship 10 FREE L MIS.RELAT.DICT ?AA[ea]G|1
guar.soc.sec.number 12 FREE L ?AA[ea]G|8
guar.state 2 FREE L ?AA[ea]G|5
guar.street 30 FREE L ?AA[ea]G|2
guar.street2 30 FREE L ?AA[ea]G|3
guar.streets.out 61 FREE L VAL=(@guar.street_" "_@guar.street2'=" ")
guar.zip 10 ZIP.POST L ?AA[ea]G|6
hc.subscriber.inits 3 FREE L ?AA[ea]CND|2
hc.subscriber.relation 10 FREE L MIS.RELAT.DICT ?AA[ea]CND|3
health.care.number 14 FREE L ?AA[ea]CND|1
health.care.number.prov 2 FREE L MIS.CAN.PROV ?AA[ea]CND|6
id 25 URN L MRI.PAT VAL=@unit.number
ins.addr.phone.out 85 FREE L VAL=(IF{"Y"'=@MIS.INS.DICT.other.type @MIS.INS.DICT.ma
VAL=in^AD#2P_","_AD|3_","_AD|4_" "_AD|5_" "_AD|6;@insu
VAL=rances^AD#0P_","_AD|1_","_AD|2_" "_AD|3_" "_AD|4}'
VAL==",, ")
ins.address.out 65 FREE L VAL=(IF{"Y"'=@MIS.INS.DICT.other.type @MIS.INS.DICT.ma
VAL=in^AD#2P_","_AD|3_","_AD|4_" "_AD|5;@insurances^AD
VAL=#0P_","_AD|1_","_AD|2_" "_AD|3}'=",, ")
ins.city.out 20 FREE L VAL=IF{@insurance.city;@MIS.INS.DICT.city}
ins.mnemonic.1 10 FREE L VAL=@MRI.DRC.insurance.mnemonic[1]^insurance
ins.mnemonic.2 10 FREE L VAL=@MRI.DRC.insurance.mnemonic[2]^insurance
ins.mnemonic.3 10 FREE L VAL=@MRI.DRC.insurance.mnemonic[3]^insurance
ins.mnemonic.4 10 FREE L VAL=@MRI.DRC.insurance.mnemonic[4]^insurance
ins.name.out 30 FREE L VAL=IF{@MIS.INS.DICT.other.type="Y" @insurance.other.n
VAL=ame;@MIS.INS.DICT.name}
ins.name.out.1 30 FREE L VAL=IF{@MRI.DRC.ins.mnemonic.1 @ins.name.out}
ins.name.out.2 30 FREE L VAL=IF{@MRI.DRC.ins.mnemonic.2 @ins.name.out}
ins.name.out.3 30 FREE L VAL=IF{@MRI.DRC.ins.mnemonic.3 @ins.name.out}
ins.name.out.4 30 FREE L VAL=IF{@MRI.DRC.ins.mnemonic.4 @ins.name.out}
ins.number.1 1 INT R VAL=1
ins.number.2 1 INT R VAL=2
ins.number.3 1 INT R VAL=3
ins.number.4 1 INT R VAL=4
ins.phone.out 18 PHONE L VAL=IF{@insurance.phone;@MIS.INS.DICT.phone}
ins.state.out 2 FREE L VAL=IF{@insurance.state;@MIS.INS.DICT.state}
ins.street.out 30 FREE L VAL=IF{@insurance.street;@MIS.INS.DICT.address}
ins.street2.out 30 FREE L VAL=IF{@insurance.street2;@MIS.INS.DICT.address2}
ins.zip.out 10 FREE L VAL=IF{@insurance.zip;@MIS.INS.DICT.zip}
language 10 FREE L MIS.CAN.LANG ?AA[ea]CND|0
last.activity.date 8 DATE L VAL=@MRI.PAT.last.activity.date
last.name 25 FREE L
marital.status 10 FREE L MIS.MAR.STATUS ?AA[ea]A|4
more.on.microfilm 1 YN L VAL=@MRI.PAT.more.on.micro.film
name 30 NAME L VAL=@MRI.PAT.name
new.patient 30 FREE L
no.unit.number 1 YN L VAL=IF{c.yn'="N"'="n"!(c.yn'="Y"'="y"&@unit.number) "Y
VAL="}
nok.addr.phone.out 138 FREE L VAL=(@next.of.kin^AD#1P_IF{AD|2 " "_AD|2}_","_AD|3_","
VAL=_AD|4_" "_AD|5_IF{AD|6 " H:"_AD|6}_IF{AD|7 " B:"_A
VAL=D|7}'=",, ")
nok.address.out 96 FREE L VAL=(@next.of.kin^AD#1P_IF{AD|2 " "_AD|2}_","_AD|3_","
VAL=_AD|4_" "_AD|5'=",, ")
nok.city 20 FREE L ?AA[ea]NK|3
nok.city.state.zip.o 34 FREE L VAL=(@next.of.kin^AD#3P_","_AD|4_" "_AD|5'=", ")
nok.home.phone 18 PHONE L ?AA[ea]NK|6
nok.name 30 FREE L ?AA[ea]NK|0
nok.relationship 10 FREE L MIS.RELAT.DICT ?AA[ea]NK|8
nok.state 2 FREE L ?AA[ea]NK|4
nok.street 30 FREE L ?AA[ea]NK|1
nok.street2 30 FREE L ?AA[ea]NK|2
nok.streets.out 61 FREE L VAL=(@nok.street_" "_@nok.street2'=" ")
nok.work.phone 18 PHONE L ?AA[ea]NK|7
nok.zip 10 ZIP.POST L ?AA[ea]NK|5
notify.addr.phone.out 138 FREE L VAL=(@per.to.notify^AD#1P_IF{AD|2 " "_AD|2}_","_AD|3_"
VAL=,"_AD|4_" "_AD|5_IF{AD|6 " H:"_AD|6}_IF{AD|7 " B:"
VAL=_AD|7}'=",, ")
notify.address.out 96 FREE L VAL=(@per.to.notify^AD#1P_IF{AD|2 " "_AD|2}_","_AD|3_"
VAL=,"_AD|4_" "_AD|5'=",, ")
notify.city 20 FREE L ?AA[ea]PN|3
notify.city.state.zip.o 34 FREE L VAL=(@per.to.notify^AD#3P_","_AD|4_" "_AD|5'=", ")
notify.home.phone 18 PHONE L ?AA[ea]PN|6
notify.name 30 FREE L ?AA[ea]PN|0
notify.relationship 10 FREE L MIS.RELAT.DICT ?AA[ea]PN|8
notify.state 2 FREE L ?AA[ea]PN|4
notify.street 30 FREE L ?AA[ea]PN|1
notify.street2 30 FREE L ?AA[ea]PN|2
notify.streets.out 61 FREE L VAL=(@notify.street_" "_@notify.street2'=" ")
notify.work.phone 18 PHONE L ?AA[ea]PN|7
notify.zip 10 ZIP.POST L ?AA[ea]PN|5
occupation 20 FREE L ?AA[ea]E|1
old.patient 30 FREE L
pat.city 20 FREE L ?AA[ea]AD|2
pat.home.phone 18 PHONE L ?AA[ea]AD|5
pat.other.phone 18 PHONE L ?AA[ea]AD|6
pat.state 2 FREE L ?AA[ea]AD|3
pat.street 30 FREE L ?AA[ea]AD|0
pat.street2 30 FREE L ?AA[ea]AD|1
pat.zip 10 ZIP.POST L ?AA[ea]AD|4
patient.address.out 96 FREE L VAL=(@MRI.DRC.pt.addr^AD#0P_IF{AD|1 " "_AD|1}_","_AD|2
VAL=_","_AD|3_" "_AD|4'=",, ")
patient.address.phone.out 115 FREE L VAL=(@pt.addr^AD#0P_IF{AD|1 " "_AD|1}_","_AD|2_","_AD|
VAL=3_" "_AD|4_" "_AD|5'=",, ")
patient.city.state.zip.o 34 FREE L VAL=(@pt.addr^AD#2P_", "_AD|3_" "_AD|4'=", ")
patient.streets.out 61 FREE L VAL=(@pat.street_" "_@pat.street2'=" ")
prim.care.doctor 10 FREE L MIS.DOC.DICT ?AA[ea]DR|5
prim.care.doctor.name 30 FREE L VAL=@MIS.DOC.DICT.name[@MRI.DRC.prim.care.doctor]
race 10 FREE L MIS.RACE.DICT ?AA[ea]A|5
record.locator 20 FREE L VAL=@MRI.PAT.record.locator
religion 10 FREE L ?AA[ea]A|0
residence.code 10 FREE L MIS.CNTY.DICT ?AA[ea]CND|4
sex 1 CHOICE L VAL=@MRI.PAT.sex
smoke.object.neither 10 CHOICE L ?AA[ea]A|6
soc.sec.number 12 FREE L ?AA[ea]A|2
special.pgm.indicator 10 FREE L MIS.SPEC.PROG ?AA[ea]A|7
unit.number 10 FREE L VAL=@MRI.PAT.unit.number
urn 25 URN L MRI.PAT
vip 1 YN L ?AA[ea]A|9
vip.comment 50 FREE L ?AA[ea]A|10
Ì € i 2
mri.drc.allergies (allergies)
[medical.record, allergy.num]
?AA[ea]ALG[aal]
Field Name Len Dat Typ J DPM Offset/Local/VAL
allergy.num 1 PINT R aal
allergy 15 FREE L ?AA[ea]ALG[aal]
Ì € i 2
mri.drc.canadian.alerts (can.alerts)
[medical.record, alert.num]
?AA[ea]CNR[aar]
Field Name Len Dat Typ J DPM Offset/Local/VAL
alert.num 1 PINT R aar
alert 15 FREE L ?AA[ea]CNR[aar]
Ì € i 2
mri.drc.conditions (conditions)
[medical.record, cond.seq.no]
?AA[ea]C[aaCN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cond.seq.no 1 PINT R aaCN
condition 10 FREE L MIS.COND ?AA[ea]C[aaCN]|0
Ì € i 2
mri.drc.custom.defined.queries (customer.defined.queries)
[medical.record, cd.query]
?AA[ea]CD[ggv]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cd.query 10 FREE L MIS.QUERY ggv
cd.mult.qry.map.date 8 DATE L ?AA[ea]CD[ggv]INIT
cd.response 75 QRY.RESP L ?AA[ea]CD[ggv]|0
Ì € i 2
mri.drc.cust.def.mult.queries (customer.def.mult.queries)
[medical.record,cd.query, cdm.seq.no]
?AA[ea]CD[ggv]M[ggvN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cdm.seq.no 3 PINT R ggvN
cdm.response 75 QRY.RESP L ?AA[ea]CD[ggv]M[ggvN]|0
Ì € i 2
mri.drc.emp.info.data (emp.info.data)
[medical.record, eid.seq.no]
?AA[ea]EI[aaEN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
eid.seq.no 1 PINT R aaEN
eid 10 FREE L MIS.EID ?AA[ea]EI[aaEN]|0
eid.employee.id 12 FREE L ?AA[ea]EI[aaEN]|4
eid.employer.loc 30 FREE L ?AA[ea]EI[aaEN]|3
eid.employer.name 10 FREE L MIS.EMPLR.DICT ?AA[ea]EI[aaEN]|2
eid.status 10 FREE L MIS.EMP.STATUS ?AA[ea]EI[aaEN]|1
Ì € i 2
mri.drc.guarantor.email (guar.email.addr)
[medical.record, guar.seq.num]
?AA[ea]G["EM",aaGEQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
guar.seq.num 2 PINT R aaGEQ
guar.email 40 FREE L ?AA[ea]G["EM",aaGEQ]|0
Ì € i 2
mri.drc.guarantor.emp.email (guar.emp.email.addr)
[medical.record, guar.emp.seq.num]
?AA[ea]GE["EM",aaGEE]
Field Name Len Dat Typ J DPM Offset/Local/VAL
guar.emp.seq.num 2 PINT R aaGEE
guar.emp.email 40 FREE L ?AA[ea]GE["EM",aaGEE]|0
Ì € i 2
images (images)
[medical.record, mr.form,form.seq.no]
?AA[ea]IM[gi,fsn]
Field Name Len Dat Typ J DPM Offset/Local/VAL
mr.form 15 FREE L MIS.MR.FORM gi
form.seq.no 2 PINT R fsn
date.created 8 DATE L ?AA[ea]IM[gi,fsn]|0
form.user 10 FREE L MIS.USER ?AA[ea]IM[gi,fsn]|2
time.created 4 TIME L ?AA[ea]IM[gi,fsn]|1
Ì € i 2
image.pages (image.pages)
[medical.record,mr.form,form.seq.no, page.number]
?AA[ea]IM[gi,fsn]P[fsnp]
Field Name Len Dat Typ J DPM Offset/Local/VAL
page.number 2 PINT R fsnp
im.path 128 FREE L ?AA[ea]IM[gi,fsn]P[fsnp]|0
im.path.urn 2 FREE L ?AA[ea]IM[gi,fsn]P[fsnp]|1
Ì € i 2
mri.drc.insurances (insurances)
[medical.record, insurance]
?AA[ea]I[ggm]
Field Name Len Dat Typ J DPM Offset/Local/VAL
insurance 10 FREE L MIS.INS.DICT ggm
do.not.use.field 18 FREE L ?AA[ea]I[ggm]N|8
ins.emp.loc 30 FREE L ?AA[ea]I[ggm]E|2
ins.emp.name 10 FREE L MIS.EMPLR.DICT ?AA[ea]I[ggm]E|1
ins.emp.status 10 FREE L MIS.EMP.STATUS ?AA[ea]I[ggm]E|0
ins.print.cds 0 FREE L VAL=%ADM.PAT.print.ins.screen(medical.record,insurance
VAL=,"",0)
ins.print.cds.verbatim 0 FREE L VAL=%ADM.PAT.print.ins.screen(medical.record,insurance
VAL=,1,0)
ins.print.queries 8 FREE L VAL=%MRI.DRC.print.ins.screen(medical.record,insurance
VAL=,"",0,1)
insurance.benefit.plan 20 FREE L ?AA[ea]I[ggm]N|9
insurance.city 20 FREE L ?AA[ea]I[ggm]|1
insurance.cov.no 20 FREE L ?AA[ea]I[ggm]N|7
insurance.eff.date 8 DATE L ?AA[ea]I[ggm]N|5
insurance.exp.date 8 DATE L ?AA[ea]I[ggm]N|6
insurance.other.name 30 FREE L ?AA[ea]I[ggm]|5
insurance.phone 30 FREE L ?AA[ea]I[ggm]|4
insurance.state 2 FREE L ?AA[ea]I[ggm]|2
insurance.street 30 FREE L ?AA[ea]I[ggm]|0
insurance.street2 30 FREE L ?AA[ea]I[ggm]|6
insurance.zip 10 ZIP.POST L ?AA[ea]I[ggm]|3
insured.group.name 30 FREE L ?AA[ea]I[ggm]N|4
insured.group.number 15 FREE L ?AA[ea]I[ggm]N|3
insured.name 30 FREE L ?AA[ea]I[ggm]N|0
insured.name.out 30 FREE L VAL=IF{@insured.subscriber^SUB @MRI.SUBSCRIBER.subs.na
VAL=me[SUB];@insured.name}
insured.policy.number 30 FREE L ?AA[ea]I[ggm]N|2
insured.relationship 10 FREE L MIS.RELAT.DICT ?AA[ea]I[ggm]N|1
insured.subscriber 30 URN L MRI.SUBSCRIBER ?AA[ea]I[ggm]N|10
Ì € i 2
mri.drc.ins.custom.def.queries (ins.cd.queries)
[medical.record,insurance, ins.cd.query]
?AA[ea]I[ggm]CD[ggv]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ins.cd.query 10 FREE L MIS.QUERY ggv
ins.cd.mult.qry.map.date 8 DATE L ?AA[ea]I[ggm]CD[ggv]INIT
ins.cd.response 75 QRY.RESP L ?AA[ea]I[ggm]CD[ggv]|0
Ì € i 2
mri.drc.ins.cust.def.mult.qrys (ins.cd.mult.queries)
[medical.record,insurance,ins.cd.query, ins.cdm.seq.no]
?AA[ea]I[ggm]CD[ggv]M[ggvN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ins.cdm.seq.no 3 PINT R ggvN
ins.cdm.response 75 QRY.RESP L ?AA[ea]I[ggm]CD[ggv]M[ggvN]|0
Ì € i 2
ins.images (ins.images)
[medical.record,insurance, ins.mr.form,ins.form.seq.no]
?AA[ea]I[ggm]IM[gi,fsn]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ins.mr.form 15 FREE L MIS.MR.FORM gi
ins.form.seq.no 2 PINT R fsn
form.ins.user 10 FREE L MIS.USER ?AA[ea]I[ggm]IM[gi,fsn]|2
ins.date.created 8 DATE L ?AA[ea]I[ggm]IM[gi,fsn]|0
ins.time.created 4 TIME L ?AA[ea]I[ggm]IM[gi,fsn]|1
Ì € i 2
ins.image.pages (ins.image.pages)
[medical.record,insurance,ins.mr.form,ins.form.seq.no, ins.page.number]
?AA[ea]I[ggm]IM[gi,fsn]P[fsnp]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ins.page.number 2 PINT R fsnp
ins.im.path 128 FREE L ?AA[ea]I[ggm]IM[gi,fsn]P[fsnp]|0
ins.im.path.urn 2 FREE L ?AA[ea]I[ggm]IM[gi,fsn]P[fsnp]|1
Ì € i 2
mri.drc.insurance.queries (ins.queries)
[medical.record,insurance, query.seq.no]
?AA[ea]I[ggm]Q[ggmQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
query.seq.no 2 PINT R ggmQ
ins.query 60 FREE L VAL=@MIS.QUERY.text[@ADM.PAT.ins.query.mnemonic]
ins.query.and.answer 79 FREE L VAL=(@ins.query_" "_@ins.query.answer)
ins.query.answer 35 FREE L ?AA[ea]I[ggm]Q[ggmQ]|1
ins.query.color.screen 60 FREE L VAL=@Set.attr(@Z.color.labels1)_(@ins.query:60L)_@Set.
VAL=attr(@Z.color.data1)
ins.query.count 2 INT R VAL=(-@ADM.PAT.ins.queries[ADM.PAT.urn,insurance,""]+0
VAL=)
ins.query.mnemonic 10 FREE L MIS.QUERY ?AA[ea]I[ggm]Q[ggmQ]|0
ins.query.screen 60 FREE L VAL=IF{@ins.query @Z.start.background_@Z.normal.backgr
VAL=ound.half_@ins.query_@Z.start.foreground_@Z.normal
VAL=.foreground.full}
Ì € i 2
mri.drc.insurances.email (insurances.email)
[medical.record,insurance, insurance.email.seq.num]
?AA[ea]I[ggm]EM[aaIEQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
insurance.email.seq.num 2 PINT R aaIEQ
insurance.email 40 FREE L ?AA[ea]I[ggm]EM[aaIEQ]|0
Ì € i 2
mri.drc.insure.order (insure.order)
[medical.record, facility,ins.seq.no]
?AA[ea]O[gqb,aaIN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
facility 10 FREE L MIS.FACILITY gqb
ins.seq.no 1 PINT R aaIN
insurance.mnemonic 10 FREE L MIS.INS.DICT ?AA[ea]O[gqb,aaIN]|0
insurance.no.and.mne 13 FREE L VAL=(ins.seq.no_" "_insurance.mnemonic)
Ì € i 2
mri.drc.old.insure.order (insure.order.old)
[medical.record, old.ins.seq.no]
?AA[ea]IO[aaIN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
old.ins.seq.no 1 PINT R aaIN
old.insurance.mnemonic 10 FREE L MIS.INS.DICT ?AA[ea]IO[aaIN]|0
Ì € i 2
mri.drc.next.of.kin.email (next.of.kin.email)
[medical.record, nok.seq.num]
?AA[ea]NK["EM",aaKEQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
nok.seq.num 2 PINT R aaKEQ
nok.email 40 FREE L ?AA[ea]NK["EM",aaKEQ]|0
Ì € i 2
mri.drc.notify.email (per.to.notify.email)
[medical.record, notify.seq.num]
?AA[ea]PN["EM",aaNEQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
notify.seq.num 2 PINT R aaNEQ
notify.email 40 FREE L ?AA[ea]PN["EM",aaNEQ]|0
Ì € i 2
mri.drc.patient.email (pt.email)
[medical.record, pat.email.seq.num]
?AA[ea]AD["EM",aaEQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
pat.email.seq.num 2 PINT R aaEQ
pat.email 40 FREE L ?AA[ea]AD["EM",aaEQ]|0
pat.email.usable 1 YN L ?AA[ea]AD["EM",aaEQ]|1
Ì € i 2
mri.drc.employer.email (pt.emp.email)
[medical.record, emp.email.seq.num]
?AA[ea]E["EM",aaEEQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
emp.email.seq.num 2 PINT R aaEEQ
emp.email 40 FREE L ?AA[ea]E["EM",aaEEQ]|0
Ì i 2
mri.drc.nsc.data (nsc.data)
[nsc.patient]
?AA.NSC[ea]
Field Name Len Dat Typ J DPM Offset/Local/VAL
nsc.patient 25 URN L MRI.PAT ea
nsc.allergy1 60 FREE L ?AA.NSC[ea]|0
nsc.allergy2 60 FREE L ?AA.NSC[ea]|1
Ì 2
INDEX FILE/INTERNAL NAME SUBSCRIPTS/PHYSICAL BASE
mri.drc.convert.ccdqr.x [urn,ccdqr.query] = ccdqr.response
convert.ccdqr.x ?AACCQC[ea,ggv]
mri.drc.convert.cd.x [urn,cd.query] = cd.response
convert.cd.x ?AACDQC[ea,ggv]
mri.drc.convert.insq.x [urn,insurance,ins.cd.query] = ins.cd.response
convert.insq.x ?AAIQC[ea,ggm,ggv]
mri.drc.guar.soc.sec.index [guar.soc.sec.number,urn]
guar.ss.index ?EDGI[aGSS,ea]
ok.queue [time,hub.id]
hub.queue.ok ?DRQ.OK[hbdrt,ha]
|
|
| | | | | | | | | | | | | | | | | | | | | | | | | | | | | | |