Ì i 2
lab.c.pat.adm.computed.fields1 (adm.vals.1)
*AA
Field Name Len Dat Typ J DPM Offset/Local/VAL
emp.addr.phone.out 125 FREE L VAL=(@ADM.PAT.pt.emp^AD#2P_IF{AD|3 " "_AD|3}_","_AD|4_
VAL=","_AD|5_" "_AD|6_" "_AD|7'=",, ")
emp.address.out 106 FREE L VAL=(@ADM.PAT.pt.emp^AD#2P_IF{AD|3 " "_AD|3}_","_AD|4_
VAL=","_AD|5_" "_AD|6'=",, ")
emp.city.state.zip.o 44 FREE L VAL=(@ADM.PAT.pt.emp^AD#4P_","_AD|5_" "_AD|6'=", ")
emp.name.out 30 FREE L VAL=IF{@MIS.EMPLR.DICT.name[@ADM.PAT.employer];@ADM.PA
VAL=T.employer}
emp.streets.out 61 FREE L VAL=(@ADM.PAT.pt.emp^AD#2P_" "_AD|3'=" ")
guar.addr.phone.out 115 FREE L VAL=(@ADM.PAT.guar^AD#2P_IF{AD|3 " "_AD|3}_","_AD|4_",
VAL="_AD|5_" "_AD|6_" "_AD|7'=",, ")
guar.address.out 96 FREE L VAL=(@ADM.PAT.guar^AD#2P_IF{AD|3 " "_AD|3}_","_AD|4_",
VAL="_AD|5_" "_AD|6'=",, ")
guar.city.state.zip.o 34 FREE L VAL=(@ADM.PAT.guar^AD#4P_","_AD|5_" "_AD|6'=", ")
guar.emp.addr.phone.out 125 FREE L VAL=(@ADM.PAT.guar.emp^AD#2P_IF{AD|3 " "_AD|3}_","_AD|
VAL=4_","_AD|5_" "_AD|6_" "_AD|7'=",, ")
guar.emp.address.out 106 FREE L VAL=(@ADM.PAT.guar.emp^AD#2P_IF{AD|3 " "_AD|3}_","_AD|
VAL=4_","_AD|5_" "_AD|6'=",, ")
guar.emp.city.state.zip.o 44 FREE L VAL=(@ADM.PAT.guar.emp^AD#4P_","_AD|5_" "_AD|6'=", ")
guar.emp.name.out 30 FREE L VAL=IF{@MIS.EMPLR.DICT.name[@ADM.PAT.guar.employer];@A
VAL=DM.PAT.guar.employer}
guar.emp.streets.out 61 FREE L VAL=(@ADM.PAT.guar.emp.street_" "_@ADM.PAT.guar.emp.st
VAL=reet2'=" ")
guar.streets.out 61 FREE L VAL=(@ADM.PAT.guar.street_" "_@ADM.PAT.guar.street2'="
VAL= ")
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;@ADM.
VAL=PAT.insurances^AD#0P_","_AD|1_","_AD|2_" "_AD|3_"
VAL="_AD|4}'=",, ")
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;@ADM.PAT.insur
VAL=ances^AD#0P_","_AD|1_","_AD|2_" "_AD|3}'=",, ")
ins.city.out 20 FREE L VAL=IF{@ADM.PAT.insurance.city;@MIS.INS.DICT.city}
ins.mnemonic.1 10 FREE L VAL=@ADM.PAT.insurance.mnemonic[1]^insurance
ins.mnemonic.2 10 FREE L VAL=@ADM.PAT.insurance.mnemonic[2]^insurance
ins.mnemonic.3 10 FREE L VAL=@ADM.PAT.insurance.mnemonic[3]^insurance
ins.mnemonic.4 10 FREE L VAL=@ADM.PAT.insurance.mnemonic[4]^insurance
ins.name.out 30 FREE L VAL=IF{@MIS.INS.DICT.other.type="Y" @ADM.PAT.insurance
VAL=.other.name;@MIS.INS.DICT.name}
ins.name.out.1 30 FREE L VAL=IF{@ADM.PAT.ins.mnemonic.1 @ins.name.out}
ins.name.out.2 30 FREE L VAL=IF{@ADM.PAT.ins.mnemonic.2 @ins.name.out}
ins.name.out.3 30 FREE L VAL=IF{@ADM.PAT.ins.mnemonic.3 @ins.name.out}
ins.name.out.4 30 FREE L VAL=IF{@ADM.PAT.ins.mnemonic.4 @ins.name.out}
ins.phone.out 18 PHONE L VAL=IF{@ADM.PAT.insurance.phone;@MIS.INS.DICT.phone}
ins.state.out 2 FREE L VAL=IF{@ADM.PAT.insurance.state;@MIS.INS.DICT.state}
ins.street.out 30 FREE L VAL=IF{@ADM.PAT.insurance.street;@MIS.INS.DICT.address
VAL=}
ins.subscriber.name.out 30 FREE L VAL=IF{@ADM.PAT.insured.subscriber^SUB O(?S,@ADM.PAT.m
VAL=ri.question.mark),@MRI.SUBSCRIBER.subs.name[SUB]^S
VAL=UB,C(?U),SUB;@ADM.PAT.insured.name}
ins.zip.out 10 FREE L VAL=IF{@ADM.PAT.insurance.zip;@MIS.INS.DICT.zip}
nok.addr.phone.out 138 FREE L VAL=(@ADM.PAT.next.of.kin^AD#1P_IF{AD|2 " "_AD|2}_","_
VAL=AD|3_","_AD|4_" "_AD|5_IF{AD|6 " H:"_AD|6}_IF{AD|7
VAL= " B:"_AD|7}'=",, ")
nok.address.out 96 FREE L VAL=(@ADM.PAT.next.of.kin^AD#1P_IF{AD|2 " "_AD|2}_","_
VAL=AD|3_","_AD|4_" "_AD|5'=",, ")
nok.city.state.zip.o 34 FREE L VAL=(@ADM.PAT.next.of.kin^AD#3P_","_AD|4_" "_AD|5'=",
VAL=")
nok.streets.out 61 FREE L VAL=(@ADM.PAT.nok.street_" "_@ADM.PAT.nok.street2'=" "
VAL=)
notify.addr.phone.out 138 FREE L VAL=(@ADM.PAT.per.to.notify^AD#1P_IF{AD|2 " "_AD|2}_",
VAL="_AD|3_","_AD|4_" "_AD|5_IF{AD|6 " H:"_AD|6}_IF{AD
VAL=|7 " B:"_AD|7}'=",, ")
notify.address.out 96 FREE L VAL=(@ADM.PAT.per.to.notify^AD#1P_IF{AD|2 " "_AD|2}_",
VAL="_AD|3_","_AD|4_" "_AD|5'=",, ")
notify.city.state.zip.o 34 FREE L VAL=(@ADM.PAT.per.to.notify^AD#3P_","_AD|4_" "_AD|5'="
VAL=, ")
notify.streets.out 61 FREE L VAL=(@ADM.PAT.notify.street_" "_@ADM.PAT.notify.street
VAL=2'=" ")
patient.address.out 96 FREE L VAL=(@ADM.PAT.pt.addr^AD#0P_IF{AD|1 " "_AD|1}_","_AD|2
VAL=_","_AD|3_" "_AD|4'=",, ")
patient.address.phone.out 115 FREE L VAL=(@ADM.PAT.pt.addr^AD#0P_IF{AD|1 " "_AD|1}_","_AD|2
VAL=_","_AD|3_" "_AD|4_" "_AD|5'=",, ")
patient.city.state.zip.o 34 FREE L VAL=(@ADM.PAT.pt.addr^AD#2P_","_AD|3_" "_AD|4'=", ")
patient.streets.out 61 FREE L VAL=(@ADM.PAT.pat.street_" "_@ADM.PAT.pat.street2'=" "
VAL=)
Ì i 2
lab.c.pat.copies.to (copies.to)
[copies.to.patient,copies.to.doctor]
/SAACO[aa,gggNM]
Field Name Len Dat Typ J DPM Offset/Local/VAL
copies.to.patient 30 FREE L LAB.C.PAT aa
copies.to.doctor 30 FREE L gggNM
copies.to.doctor.name 30 FREE L /SAACO[aa,gggNM]
not.this.doctor 1 FREE L VAL=/SS#/DOC'=@copies.to.doctor
Ì i 2
lab.c.pat.extended.summaries.x (extended.summaries.x)
[ext.sum.x.date,ext.sum.x.rpt,ext.sum.x.pat,ext.sum.x.sort] = z
:SAAE[saaed,saaer,aa,saaes]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ext.sum.x.date 8 DATE L saaed
ext.sum.x.rpt 10 FREE L saaer
ext.sum.x.pat 30 FREE L LAB.C.PAT aa
ext.sum.x.sort 11 FREE L saaes
ext.sum.x.value 1 PINT R :SAAE[saaed,saaer,aa,saaes]
Ì i 2
lab.c.patient.lab.data (lmb.data)
[lmb.patient]
:SAA[aa]
Field Name Len Dat Typ J DPM Offset/Local/VAL
lmb.patient 30 URN L ADM.PAT aa
bbk.wristband.num 10 FREE L :SAA[aa]|1
cds.logic 0 FREE L
client 10 FREE L MIS.DOC.DICT :SAA[aa]|3
exp.deliv.date 8 DATE L VAL=IF{@LAB.PARAM.exp.deliv.date.query^XX_.=. "";@ADM.
VAL=PAT.ccdqr.response[XX];@ADM.PAT.cd.response[XX]}
hold.from.purge 8 DATE L :SAA[aa]|0
hx.urn 10 URN L LAB.B.HX :SAA[aa]|2
id 15 FREE L :SAA[aa]|4
temp.location 10 FREE L MIS.LOCN.DICT :SAA[aa]|5
visit.ended.seconds 9 PINT R :SAA[aa]|6
Ì € i 2
lab.c.pat.anti.rx.isolated (anti.rx.isolated)
[lmb.patient, ri.source,ri.organism,ri.susc.proc,ri.antibiotic,ri.reaction,ri.spec,ri.proc,ri.org.id]
:SAA[aa]RI[smt,smo,smps,sma,smpRX,sms,smp,smoID]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ri.source 10 FREE L LAB.M.SRC smt
ri.organism 10 FREE L LAB.M.ORG smo
ri.susc.proc 9 PDEC5 R LAB.M.PROC smps
ri.antibiotic 9 PDEC5 R LAB.M.ANTI sma
ri.reaction 6 FREE L smpRX
ri.spec 30 URN L LAB.M.SPEC sms
ri.proc 9 PDEC5 R LAB.M.PROC smp
ri.org.id 15 FREE L smoID
ri.counted 1 YN L VAL=IF{+@LAB.C.PAT.anti.rx.isolated[LAB.C.PAT.urn,LAB.
VAL=C.PAT.ri.source,LAB.C.PAT.ri.organism,LAB.C.PAT.ri
VAL=.susc.proc,LAB.C.PAT.ri.antibiotic,LAB.C.PAT.ri.re
VAL=action,""] "Y";"N"}
ri.defined 1 PINT R :SAA[aa]RI[smt,smo,smps,sma,smpRX,sms,smp,smoID]
Ì € i 2
lab.c.pat.extended.summaries (extended.summaries)
[lmb.patient, ext.sum.rpt,ext.sum.sort]
:SAA[aa]ES[saaer,saaes]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ext.sum.rpt 10 FREE L saaer
ext.sum.sort 11 FREE L saaes
ext.sum.last.batch.date 8 DATE L :SAA[aa]ES[saaer,saaes]|0
ext.sum.prev.batch.date 8 DATE L :SAA[aa]ES[saaer,saaes]|1
Ì € i 2
lab.c.pat.infection.control (infect.ctrl)
[lmb.patient, module.org.or.test]
:SAA[aa]IC[aaIF]
Field Name Len Dat Typ J DPM Offset/Local/VAL
module.org.or.test 11 FREE L aaIF
first.isolated.date 8 DATE L :SAA[aa]IC[aaIF]|0
first.location 10 FREE L MIS.LOCN.DICT :SAA[aa]IC[aaIF]|1
first.specimen 17 FREE L :SAA[aa]IC[aaIF]|2
first.verified.date 8 DATE L :SAA[aa]IC[aaIF]|4
ifc.screen 15 FREE L MIS.SCREEN :SAA[aa]IC[aaIF]|3
org.or.test.abbrev 15 FREE L VAL=IF{LAB.C.PAT.module.org.or.test^XX#0="L" @LAB.L.TE
VAL=ST.abbrev[XX%0];XX#0="M" @LAB.M.ORG.abbrev[XX%0];X
VAL=X#0="B" @LAB.B.TEST.abbrev[XX%0];XX%0}
reg.vs.iso.days 3 SINT R VAL=IF{Q(@LAB.C.PAT.register.date,@LAB.C.PAT.first.iso
VAL=lated.date)^XX#0P&XX|1 %Z.date.sub(XX|1,XX|0)}
Ì € i 2
lab.c.pat.infect.ctrl.queries (infect.ctrl.queries)
[lmb.patient,module.org.or.test, ifc.query]
:SAA[aa]IC[aaIF]Q[ggv]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ifc.query 10 FREE L MIS.QUERY ggv
ifc.query.map.date 8 DATE L :SAA[aa]IC[aaIF]Q[ggv]INIT
ifc.response 70 QRY.RESP L :SAA[aa]IC[aaIF]Q[ggv]|0
Ì € i 2
lab.c.pat.infect.ctrl.quer.mul (infect.ctrl.queries.mult)
[lmb.patient,module.org.or.test,ifc.query, ifc.query.seq.no]
:SAA[aa]IC[aaIF]Q[ggv]M[ggvN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ifc.query.seq.no 3 PINT R ggvN
ifc.query.response 75 QRY.RESP L :SAA[aa]IC[aaIF]Q[ggv]M[ggvN]|0
Ì € i 2
lab.c.pat.orgs.isolated (orgs.isolated)
[lmb.patient, oi.source,oi.org,oi.spec,oi.proc]
:SAA[aa]OI[smt,smo,sms,smp]
Field Name Len Dat Typ J DPM Offset/Local/VAL
oi.source 10 FREE L LAB.M.SRC smt
oi.org 10 FREE L LAB.M.ORG smo
oi.spec 30 URN L LAB.M.SPEC sms
oi.proc 9 PDEC5 R LAB.M.PROC smp
oi.counted 1 YN L VAL=IF{+@LAB.C.PAT.orgs.isolated[LAB.C.PAT.urn,LAB.C.P
VAL=AT.oi.source,LAB.C.PAT.oi.org,""] "Y";"N"}
oi.defined 1 PINT R :SAA[aa]OI[smt,smo,sms,smp]
Ì € i 2
lab.c.patient.summaries (summaries)
[lmb.patient, sum.report]
:SAA[aa]S[sch]
Field Name Len Dat Typ J DPM Offset/Local/VAL
sum.report 10 FREE L LAB.C.RPT sch
sum.seconds 9 PINT R :SAA[aa]S[sch]
Ì i 2
lab.c.patient.file (main)
[patient]
:AA[aa]
Field Name Len Dat Typ J DPM Offset/Local/VAL
patient 30 FREE L aa
acct.number 12 FREE L VAL=@MIS.PAT.acct.number
address 96 FREE L VAL=(@ADM.PAT.pt.addr^AD#0P_IF{AD|1 " "_AD|1}_","_AD|2
VAL=_","_AD|3_" "_AD|4'=",, ")
address.and.phone 115 FREE L VAL=(@ADM.PAT.pt.addr^AD#0P_IF{AD|1 " "_AD|1}_","_AD|2
VAL=_","_AD|3_" "_AD|4_" "_AD|5'=",, ")
admit.date 8 DATE L VAL=@MIS.PAT.admit.date
admit.doctor 10 FREE L MIS.DOC.DICT VAL=@MIS.PAT.admit.doctor
age 7 AGE.SORT L VAL=@MIS.PAT.current.age
age.at.discharge 7 AGE.SORT L VAL=IF{%LAB.C.PAT.end.date(urn)^XX %Z.age(@computed.bi
VAL=rthdate,XX)}
age.at.discharge.and.sex 9 FREE L VAL=@LAB.C.PAT.age.at.discharge_"/"_@MIS.PAT.sex
age.sex 9 FREE L VAL=@MIS.PAT.current.age_"/"_@MIS.PAT.sex'="/"
any.isolation.comments 1 YN L VAL=IF{'@isolation.response.mnemon "N";'@LAB.PARAM.no.
VAL=isolations[@isolation.response.mnemon] "Y";"N"}
attend.doctor 10 FREE L MIS.DOC.DICT VAL=@MIS.PAT.attend.doctor
bed 3 FREE L VAL=@MIS.PAT.bed
birthdate 8 BDATE L VAL=@MIS.PAT.birthdate
birthdate.out 8 BDATE L VAL=@MIS.PAT.birthdate.out
city.state.zip 34 FREE L VAL=(@ADM.PAT.pt.addr^AD#2P_","_AD|3_" "_AD|4'=", ")
computed.birthdate 8 BDATE L VAL=@MIS.PAT.computed.birthdate
diagnosis.or.reas.for.vis 75 FREE L VAL=%LAB.C.PAT.dx.query.and.resp(LAB.C.PAT.urn,1,1)
diagnosis.or.rfv.q.and.r 137 FREE L VAL=%LAB.C.PAT.dx.query.and.resp(LAB.C.PAT.urn,"",1)
diagnosis.query 10 FREE L MIS.QUERY VAL=@LAB.PARAM.diagnosis.query
diagnosis.query.and.resp 137 FREE L VAL=%LAB.C.PAT.dx.query.and.resp(LAB.C.PAT.urn)
diagnosis.query.text 60 FREE L VAL=@MIS.QUERY.text[@LAB.PARAM.diagnosis.query]
diagnosis.response.mnemon 75 QRY.RESP L VAL=@ADM.PAT.ccdqr.response[@LAB.PARAM.diagnosis.query
VAL=]
diagnosis.response.text 75 QRY.RESP L VAL=IF{@ADM.PAT.ccdqr.response[@LAB.PARAM.diagnosis.qu
VAL=ery^XXQ]^XXR_.=. "";@MIS.GROUP.RESP.element.respon
VAL=se[@MIS.QUERY.group.resp[XXQ],XXR];XXR}
discharge.date 8 DATE L VAL=IF{@MIS.PAT.discharge.date;@ADM.PAT.recur.discharg
VAL=e.date}
er.depart.date 8 DATE L VAL=@MIS.PAT.er.depart.date
er.doctor 10 FREE L MIS.DOC.DICT VAL=@MIS.PAT.er.doctor
facility 10 FREE L MIS.FACILITY VAL=@MIS.PAT.facility
family.doctor 10 FREE L MIS.DOC.DICT VAL=@MIS.PAT.family.doctor
financial.class 10 FREE L MIS.FIN.CLASS VAL=@MIS.PAT.financial.class
health.care.number 14 FREE L VAL=@ADM.PAT.health.care.number
isolation.flag 1 FREE L VAL=IF{'@isolation.response.mnemon "";'@LAB.PARAM.no.i
VAL=solations[@isolation.response.mnemon] "*"}
isolation.query 10 FREE L MIS.QUERY VAL=@LAB.PARAM.isolation.query
isolation.query.and.resp 137 FREE L VAL=%LAB.C.PAT.isolation.query.and.resp(LAB.C.PAT.urn)
isolation.query.text 60 FREE L VAL=@MIS.QUERY.text[@LAB.PARAM.isolation.query]
isolation.response.mnemon 75 QRY.RESP L VAL=@ADM.PAT.ccdqr.response[@LAB.PARAM.isolation.query
VAL=]
isolation.response.text 75 QRY.RESP L VAL=IF{@ADM.PAT.ccdqr.response[@LAB.PARAM.isolation.qu
VAL=ery^XXQ]^XXR_.=. "";@MIS.GROUP.RESP.element.respon
VAL=se[@MIS.QUERY.group.resp[XXQ],XXR];XXR}
isolation.screen.flag 5 FREE L VAL=%LAB.C.PAT.isolation.flag(LAB.C.PAT.urn)
isolation.screen.frag.flg 5 FREE L VAL=%LAB.C.PAT.isolation.flag(LAB.C.PAT.urn)
location 10 FREE L MIS.LOCN.DICT VAL=@MIS.PAT.location
marital.status 10 FREE L MIS.MAR.STATUS VAL=@MIS.PAT.marital.status
mothers.urn 30 URN L MIS.PAT VAL=@MIS.PAT.mothers.urn
mri.urn 25 URN L MRI.PAT VAL=@MIS.PAT.mri.urn
name 30 FREE L VAL=@MIS.PAT.name
new.patient 30 URN L ADM.PAT
oe.ht.in.cm 6 INT R VAL=%Z.strip.trailing.zeros(@OE.PAT.ht.in.cm:2D)
oe.ht.in.ft 1 INT R VAL=%Z.calc.display({@OE.PAT.ht.in.ft,@OE.PAT.ht.in.in
VAL=},12,2)#1S
oe.ht.inches 5 INT R VAL=%Z.calc.display({@OE.PAT.ht.in.ft,@OE.PAT.ht.in.in
VAL=},12,2)#2S
oe.wt.in.kg 7 DEC2 R VAL=%Z.strip.trailing.zeros(@OE.PAT.wt.in.kg:3D)
oe.wt.in.lbs 4 INT R VAL=%Z.calc.display({@OE.PAT.wt.in.lb,@OE.PAT.wt.in.oz
VAL=},16,2)#1S
oe.wt.ozs 5 INT R VAL=%Z.calc.display({@OE.PAT.wt.in.lb,@OE.PAT.wt.in.oz
VAL=},16,2)#2S
other.doctor 10 FREE L MIS.DOC.DICT VAL=@MIS.PAT.other.doctor
patient.header.line 92 FREE L VAL=%LAB.C.PAT.hdr.line(IF{LAB.C.PAT.urn;/LAB.C.PAT.ur
VAL=n})
patient.header.line.name 92 FREE L VAL=%LAB.C.PAT.hdr.line(IF{LAB.C.PAT.urn;/LAB.C.PAT.ur
VAL=n},"N")
race 10 FREE L MIS.RACE.DICT VAL=@MIS.PAT.race
rcr.discharge.date 8 DATE L VAL=@ADM.PAT.recur.discharge.date
reason.for.visit 60 FREE L VAL=@ADM.PAT.reason.for.visit
recur.discharge.date 8 DATE L :AA[aa]O3|8
register.date 8 DATE L VAL=%LAB.C.PAT.register.date(LAB.C.PAT.urn)
responsible.doctor 10 FREE L MIS.DOC.DICT VAL=IF{@MIS.PAT.attend.doctor;@MIS.PAT.er.doctor;@MIS.
VAL=PAT.admit.doctor}
responsible.doctor.name 30 FREE L VAL=@MIS.DOC.DICT.name[IF{@MIS.PAT.attend.doctor;@MIS.
VAL=PAT.er.doctor;@MIS.PAT.admit.doctor}]
room 10 FREE L MIS.ROOM.DICT VAL=@MIS.PAT.room
room.bed 14 FREE L VAL=@MIS.PAT.room_"-"_@MIS.PAT.bed'="-"
service 10 FREE L MIS.SVC.DICT VAL=@MIS.PAT.service
service.date 8 DATE L VAL=@MIS.PAT.service.date
sex 1 CHOICE L VAL=@MIS.PAT.sex
soc.sec.number 12 FREE L VAL=@MIS.PAT.soc.sec.number
status 10 FREE L VAL=%LAB.C.PAT.status(LAB.C.PAT.urn)
status.part1 3 FREE L VAL=@MIS.PAT.status#0A
status.part2 3 FREE L VAL=@MIS.PAT.status#2A
status.wo.obs 7 FREE L VAL=@MIS.PAT.status
streets 61 FREE L VAL=(@ADM.PAT.pat.street_" "_@ADM.PAT.pat.street2'=" "
VAL=)
subm.doctor 10 FREE L MIS.DOC.DICT VAL=@MIS.PAT.resp.doctor
temporary.location 10 FREE L MIS.LOCN.DICT VAL=@ADM.PAT.temporary.location
unit.number 10 FREE L VAL=@MIS.PAT.unit.number
unit.number.pfx 2 FREE L VAL=IF{.Y%0'=@MIS.PARAM.multi.fac .;@LAB.C.PAT.unit.nu
VAL=mber$2?2A;@LAB.C.PAT.unit.number#0?1A;.}
unit.number.tdo 10 FREE L VAL=%MIS.PARAM.unit.number.tdo(@LAB.C.PAT.unit.number,
VAL=@LAB.C.PAT.unit.number.pfx)
urn 30 URN L ADM.PAT
urn.from.acct.num 10 FREE L VAL=IF{:AAAI[AN];*AAAI[AN]}^urn
vip 1 YN L VAL=@MIS.PAT.vip
vip.comment 50 FREE L VAL=@MIS.PAT.vip.comment
Ì i 2
lab.c.patient.pml.index (pml.x)
[pml.date,pml.pt.name,pml.pt.acct,pml.module,pml.spec.number]
:SAAP[saaPD,saaPN,saaPA,saaPM,saaPS]
Field Name Len Dat Typ J DPM Offset/Local/VAL
pml.date 8 DATE L saaPD
pml.pt.name 25 FREE L saaPN
pml.pt.acct 12 FREE L saaPA
pml.module 1 CHOICE L saaPM
pml.spec.number 17 FREE L saaPS
pml.pt.dob 8 BDATE L :SAAP[saaPD,saaPN,saaPA,saaPM,saaPS]|0
pml.spec.urn 9 FREE L
Ì i 2
lab.c.pat.sum.copies.to (sum.copies.to)
[sum.copies.to.patient,sum.copies.to.doctor]
/SAACO[aa,gggNM]
Field Name Len Dat Typ J DPM Offset/Local/VAL
sum.copies.to.patient 30 FREE L LAB.C.PAT aa
sum.copies.to.doctor 30 FREE L gggNM
not.this.doctor.sum 1 FREE L VAL=/SS#/DOC'=@sum.copies.to.doctor
sum.copies.to.doctor.name 30 FREE L /SAACO[aa,gggNM]
Ì 2
INDEX FILE/INTERNAL NAME SUBSCRIPTS/PHYSICAL BASE
lab.c.pat.bbk.wristband.x [bbk.wristband.num] = lmb.patient
bbk.wristband.x :SAABW[sbsWB]
lab.c.pat.client.index [client,lmb.patient]
client.x :SAAC[ggg,aa]
lab.c.pat.dis.activity.index [date,urn]
dis.activity.index :AADA[x,aa]
lab.c.pat.location.index [location,patient] = status
location.x :SAAL[ggn,aa]
lab.c.pat.prof.testing.x [name,urn]
prof.testing.x :SAAPT[aaNM,aa]
lab.c.pat.id.x [client,id,lmb.patient]
pt.id.x :SAAI[ggg,sAAID,aa]
|
|
| | | | | | | | | | | | |