Ì 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.ctr 5 PINT R ?AA.CCDQR[ea,ggv]|3
ccdqr.date 8 DATE L ?AA.CCDQR[ea,ggv]|1
ccdqr.mult.qry.map.date 8 DATE L ?AA.CCDQR[ea,ggv]INIT
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, 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.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
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 30 FREE L ?AA[ea]ALG[1]
allergy.2 30 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)
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 143 FREE L VAL=(@pt.emp^AD#2P_IF{AD|3 " "_AD|3}_","_AD|4_","_AD|5
VAL=_" "_AD|6_" "_AD|7'=",, ")
emp.address.out 124 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 62 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 20 FREE L ?AA[ea]E|5
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 133 FREE L VAL=(@guar^AD#2P_IF{AD|3 " "_AD|3}_","_AD|4_","_AD|5_"
VAL= "_AD|6_" "_AD|7'=",, ")
guar.address.out 114 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 52 FREE L VAL=(@guar^AD#4P_","_AD|5_" "_AD|6'=", ")
guar.emp.addr.phone.out 143 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 124 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 62 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 20 FREE L ?AA[ea]GE|5
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 10 NHS.NUM L ?AA[ea]CND|1
id 25 URN L MRI.PAT VAL=@unit.number
ins.addr.phone.out 103 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 83 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 20 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 156 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 114 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 52 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 20 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 156 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 114 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 52 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.health.care.number 14 FREE L ?AA[ea]CND|6
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 20 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 114 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 133 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 52 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
zcus.chronic.sick.disable 1 YN L ?AA[ea]ZCUSDUK|7
zcus.do.not.use.1 0 FREE L ?AA[ea]ZCUSDUK|4
zcus.model.box.number 10 FREE L ?AA[ea]ZCUSDUK|2
zcus.nok.comment 30 FREE L ?AA[ea]ZCUSDUK|5
zcus.nok.title 10 FREE L ?AA[ea]ZCUSDUK|3
zcus.notify.comment 30 FREE L ?AA[ea]ZCUSDUK|6
zcus.overseas.visitor 1 YN L ?AA[ea]ZCUSDUK|0
zcus.pat.perm.city 20 FREE L ?AA[ea]ZCUS.PA|2
zcus.pat.perm.district 10 FREE L MIS.CNTY.DICT ?AA[ea]ZCUS.PA|6
zcus.pat.perm.home.phone 18 FREE L ?AA[ea]ZCUS.PA|5
zcus.pat.perm.postal.code 10 ZIP.POST L ?AA[ea]ZCUS.PA|4
zcus.pat.perm.province 30 FREE L ?AA[ea]ZCUS.PA|3
zcus.pat.perm.state 20 FREE L ?AA[ea]ZCUS.PA|3
zcus.pat.perm.street 30 FREE L ?AA[ea]ZCUS.PA|0
zcus.pat.perm.street2 30 FREE L ?AA[ea]ZCUS.PA|1
zcus.pat.perm.zip 10 ZIP.POST L MIS.ZIP ?AA[ea]ZCUS.PA|4
zcus.temp.resident 1 YN L ?AA[ea]ZCUSDUK|1
zcus.uk.pcg 10 FREE L MIS.ZCUS.PCG ?AA[ea]ZCUSDUK|8
Ì € 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.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 20 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.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
Ì € 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
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.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
web.audit.trail.data.drc (zcus.uk.web.audit)
[medical.record, zcus.uk.web.audit.ct.drc]
?AA[ea]ZCUSWBX[zwxc]
Field Name Len Dat Typ J DPM Offset/Local/VAL
zcus.uk.web.audit.ct.drc 3 PINT R zwxc
zcus.uk.web.audit.action 11 CHOICE L ?AA[ea]ZCUSWBX[zwxc]|4
zcus.uk.web.audit.addr.ct 3 FREE L ?AA[ea]ZCUSWBX[zwxc]|5
zcus.uk.web.audit.date 8 DATE L ?AA[ea]ZCUSWBX[zwxc]|2
zcus.uk.web.audit.for.gp 10 FREE L MIS.DOC.DICT ?AA[ea]ZCUSWBX[zwxc]|1
zcus.uk.web.audit.time 4 HHMM L ?AA[ea]ZCUSWBX[zwxc]|3
zcus.uk.web.audit.w.user 20 FREE L MIS.WEB.USER ?AA[ea]ZCUSWBX[zwxc]|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]
web.drc.audit.date.index [zcus.uk.web.audit.date,zcus.uk.web.audit.time,urn,zcus.uk.web.audit.ct.drc]
zcus.uk.web.audit.date.x ?AAZCUSWDX[zwxDT,zwxTM,ea,zwxc]
web.drc.audit.user.index [zcus.uk.web.audit.w.user,zcus.uk.web.audit.date,zcus.uk.web.audit.time,urn,zcus
zcus.uk.web.audit.user.x ?AAZCUSWUX[huw,zwxDT,zwxTM,ea,zwxc]
|
|
| | | | | | | | | | | | | | | | | | |