Ì i 2
add.del.can.x
[adc.date,adc.req.urn,adc.q]
?(S)SCRX[scrA,scr,scrAQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
adc.date 8 DATE L scrA
adc.req.urn 10 URN L LAB.C.REQ scr
adc.q 1 PINT R scrAQ
adc.action 3 CHOICE L ?(S)SCRX[scrA,scr,scrAQ]|2
adc.bbk.exm 1 YN L ?(S)SCRX[scrA,scr,scrAQ]|10
adc.bbk.unit.urn 10 URN L LAB.B.UNIT ?(S)SCRX[scrA,scr,scrAQ]|9
adc.del.comment 50 FREE L VAL=@LAB.C.REQ.del.comment[@LAB.C.REQ.adc.del.comment.
VAL=q]
adc.del.comment.q 2 PINT R ?(S)SCRX[scrA,scr,scrAQ]|6
adc.mic.source 10 FREE L LAB.M.SRC ?(S)SCRX[scrA,scr,scrAQ]|7
adc.mic.spec.desc 10 FREE L LAB.M.SPDESC ?(S)SCRX[scrA,scr,scrAQ]|8
adc.mic.src.and.spdesc 21 FREE L VAL=@LAB.C.REQ.adc.mic.source_("\"_@LAB.C.REQ.adc.mic.
VAL=spec.desc'="\"'="\ ")
adc.module 1 CHOICE L ?(S)SCRX[scrA,scr,scrAQ]|0
adc.test 9 PDEC5 R ?(S)SCRX[scrA,scr,scrAQ]|1
adc.test.abbrev 15 FREE L VAL=%LAB.C.REQ.req.test(@LAB.C.REQ.adc.test,@LAB.C.REQ
VAL=.adc.module,"A")
adc.test.abbrev.and.count 18 FREE L VAL=@adc.test.abbrev_("\"_@adc.test.count'="\1"'="\-1"
VAL='="\0"'="\")
adc.test.bill.code 10 FREE L VAL=%LAB.C.REQ.req.test(@LAB.C.REQ.adc.test,@LAB.C.REQ
VAL=.adc.module,"B",LAB.C.REQ.urn,@LAB.C.REQ.adc.bbk.u
VAL=nit.urn,@LAB.C.REQ.adc.bbk.exm="Y")
adc.test.count 2 PINT R ?(S)SCRX[scrA,scr,scrAQ]|5
adc.test.cpt.cd.and.type 23 FREE L VAL=%LAB.C.REQ.req.test(@LAB.C.REQ.adc.test,@LAB.C.REQ
VAL=.adc.module,"P",LAB.C.REQ.urn,@LAB.C.REQ.adc.bbk.u
VAL=nit.urn,@LAB.C.REQ.adc.bbk.exm="Y")
adc.test.name 30 FREE L VAL=%LAB.C.REQ.req.test(@LAB.C.REQ.adc.test,@LAB.C.REQ
VAL=.adc.module,"N")
adc.test.name.and.count 33 FREE L VAL=@adc.test.name_("\"_@adc.test.count'="\1"'="\-1"'=
VAL="\0"'="\")
adc.time 4 HHMM L ?(S)SCRX[scrA,scr,scrAQ]|4
adc.user 10 FREE L MIS.USER ?(S)SCRX[scrA,scr,scrAQ]|3
Ì i 2
adjust.x
[adj.date,adj.req.urn,adj.q]
?(S)SCRA[scrA,scr,scrAQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
adj.date 8 DATE L scrA
adj.req.urn 10 URN L LAB.C.REQ scr
adj.q 1 PINT R scrAQ
adj.action 6 FREE L ?(S)SCRA[scrA,scr,scrAQ]|2
adj.module 1 CHOICE L ?(S)SCRA[scrA,scr,scrAQ]|0
adj.spec.number 15 FREE L ?(S)SCRA[scrA,scr,scrAQ]|3
adj.test 9 PDEC5 R ?(S)SCRA[scrA,scr,scrAQ]|1
adj.test.abbrev 15 FREE L VAL=%LAB.C.REQ.req.test(@LAB.C.REQ.adj.test,@LAB.C.REQ
VAL=.adj.module,"A")
adj.test.bill.code 10 FREE L VAL=%LAB.C.REQ.req.test(@LAB.C.REQ.adj.test,@LAB.C.REQ
VAL=.adj.module,"B",LAB.C.REQ.urn)
adj.test.cpt.cd.and.type 23 FREE L VAL=%LAB.C.REQ.req.test(@LAB.C.REQ.adj.test,@LAB.C.REQ
VAL=.adj.module,"P",LAB.C.REQ.urn)
adj.test.name 30 FREE L VAL=%LAB.C.REQ.req.test(@LAB.C.REQ.adj.test,@LAB.C.REQ
VAL=.adj.module,"N")
Ì i 2
bar.code.x
[bar.code]
*(S)SCRC[scrBC]
Field Name Len Dat Typ J DPM Offset/Local/VAL
bar.code 8 FREE L scrBC
bar.code.client 10 FREE L MIS.DOC *(S)SCRC[scrBC]|1
bar.code.req 10 URN L LAB.C.REQ *(S)SCRC[scrBC]|0
Ì i 2
form.for.client
[form.client]
/SSXC[ggg]
Field Name Len Dat Typ J DPM Offset/Local/VAL
form.client 10 FREE L MIS.DOC ggg
bill.client.name 30 FREE L VAL=@MIS.DOC.name[@LAB.C.REQ.ref.bill.client]
client.city.state.zip 35 FREE L VAL=(@MIS.DOC.city_",",@MIS.DOC.state,@MIS.DOC.zip)
client.lab.code 12 FREE L VAL=@MIS.DOC.lab.code
client.mult.city 30 FREE L VAL=%LAB.C.SPEC.client.mult.doc.addr(MIS.DOC.mnemonic,
VAL=LAB.C.REQ.urn,"C")
client.mult.city.st.zip 35 FREE L VAL=%LAB.C.SPEC.client.mult.doc.addr(MIS.DOC.mnemonic,
VAL=LAB.C.REQ.urn,"CSZ")
client.mult.fax 18 FREE L VAL=%LAB.C.SPEC.client.mult.doc.addr(MIS.DOC.mnemonic,
VAL=LAB.C.REQ.urn,"F")
client.mult.phone 18 FREE L VAL=%LAB.C.SPEC.client.mult.doc.addr(MIS.DOC.mnemonic,
VAL=LAB.C.REQ.urn,"P")
client.mult.state 2 FREE L VAL=%LAB.C.SPEC.client.mult.doc.addr(MIS.DOC.mnemonic,
VAL=LAB.C.REQ.urn,"ST")
client.mult.street.addr 30 FREE L VAL=%LAB.C.SPEC.client.mult.doc.addr(MIS.DOC.mnemonic,
VAL=LAB.C.REQ.urn,"S")
client.mult.street.addr.2 30 FREE L VAL=%LAB.C.SPEC.client.mult.doc.addr(MIS.DOC.mnemonic,
VAL=LAB.C.REQ.urn,"S2")
client.mult.zip 10 FREE L VAL=%LAB.C.SPEC.client.mult.doc.addr(MIS.DOC.mnemonic,
VAL=LAB.C.REQ.urn,"Z")
client.name 30 FREE L VAL=@MIS.DOC.name
client.street.address 30 FREE L VAL=@MIS.DOC.address
form.bar.code 8 BAR.CODE L /SSXC[ggg]|0
form.bar.code.number 8 FREE L /SSXC[ggg]|0
sub.from.name 30 FREE L VAL=@MIS.DOC.name[@LAB.C.REQ.ref.sub.from]
Ì i 2
forms
[forms.client,forms.form]
*(S)SCRF[ggg,ssx]
Field Name Len Dat Typ J DPM Offset/Local/VAL
forms.client 10 FREE L MIS.DOC ggg
forms.form 10 FREE L LAB.C.FORM ssx
forms.last.count 4 PINT R *(S)SCRF[ggg,ssx]|1
forms.last.date 8 DATE L *(S)SCRF[ggg,ssx]|0
forms.last.user 10 FREE L MIS.USER *(S)SCRF[ggg,ssx]|2
forms.total 6 PINT R *(S)SCRF[ggg,ssx]|3
Ì i 2
icd.code.temp
[urn.icd,icd.t.code]
/SCRICD[scr,drb]
Field Name Len Dat Typ J DPM Offset/Local/VAL
urn.icd 10 URN L LAB.C.REQ scr
icd.t.code 7 URN L drb
icd.t.name 60 FREE L /SCRICD[scr,drb]|0
Ì i 2
icd.log.acct
[icd.log.date,icd.log.acct.num,icd.log.urn]
/ICDLOG[sicdD,sicdA,scr]
Field Name Len Dat Typ J DPM Offset/Local/VAL
icd.log.date 8 DATE L sicdD
icd.log.acct.num 15 FREE L sicdA
icd.log.urn 10 URN L LAB.C.REQ scr
Ì € i 2
main
[urn]
$(S)SCR[scr]
Field Name Len Dat Typ J DPM Offset/Local/VAL
urn 10 URN L scr
bar.code.number 8 PINT R $(S)SCR[scr]|16
broadcast.results 1 YN L $(S)SCR[scr]|20
call 1 YN L $(S)SCR[scr]|19
cancel.date 8 DATE L VAL=IF{@LAB.C.REQ.cancel.seconds^XX %Z.date.in.magic(X
VAL=X)}
cancel.seconds 9 PINT R $(S)SCR[scr]|11
cancel.time 4 HHMM L VAL=IF{@LAB.C.REQ.cancel.seconds^XX %Z.time.out(XX)}
cancel.user 10 FREE L MIS.USER $(S)SCR[scr]|6
client 10 FREE L MIS.DOC $(S)SCR[scr]|2
collection.date.req 8 DATE L $(S)SCR[scr]|13
collection.seconds.req 9 PINT R VAL=%Z.date.clinical(@collection.date.req)*86400+(@col
VAL=lection.time.req?0N$2*60+(@collection.time.req?0N%
VAL=1)*60)
collection.time.req 4 HHMMU L $(S)SCR[scr]|21
computed.pt.bill.type 1 CHOICE L VAL=IF{@ADM.PAT.refer.client[@patient]'="U" "C";@ADM.P
VAL=AT.refer.client[@patient]="U";"P"}
enter.date 8 DATE L $(S)SCR[scr]|3
enter.date.and.time 13 FREE L VAL=%Z.date.out(@LAB.C.REQ.enter.date)_"-"_@LAB.C.REQ.
VAL=enter.time
enter.device 30 FREE L UNV.CLIENT $(S)SCR[scr]|22
enter.time 4 HHMM L $(S)SCR[scr]|4
enter.user 10 FREE L MIS.USER $(S)SCR[scr]|5
entered.priority 1 FREE L $(S)SCR[scr]|18
fax.no 60 FREE L $(S)SCR[scr]FAX
future.mri.urn 25 URN L VAL=/MRI.FUTURE.URN
future.req 10 URN L
id 30 URN L LAB.C.REQ VAL=@LAB.C.REQ.number
last.edit.date 8 DATE L $(S)SCR[scr]|7
last.edit.time 4 HHMM L $(S)SCR[scr]|8
last.edit.user 10 FREE L MIS.USER $(S)SCR[scr]|9
mri.action 1 FREE L VAL=/MRI.ACT
mri.display 43 FREE L VAL=/MRI
new.req 15 FREE L
number 8 FREE L $(S)SCR[scr]|0
old.or.cancel.req 15 FREE L
old.req 15 FREE L
order.infce 10 FREE L LAB.C.INFC.DICT$(S)SCR[scr]|15
order.site 10 FREE L LAB.C.SITE $(S)SCR[scr]|12
order.source 10 FREE L $(S)SCR[scr]|23
ov.account.num 20 FREE L $(S)SCR[scr]OV|0
ov.order.num 20 FREE L $(S)SCR[scr]OV|2
ov.sender 20 FREE L $(S)SCR[scr]OV|3
ov.unit.num 20 FREE L $(S)SCR[scr]OV|1
patient 30 FREE L LAB.C.PAT $(S)SCR[scr]|1
pt.activity 1 YN L $(S)SCR[scr]PT|7
pt.age 7 AGE L $(S)SCR[scr]PT|2
pt.bill.type 1 CHOICE L $(S)SCR[scr]PT|4
pt.birthdate 10 BDATE L $(S)SCR[scr]PT|1
pt.edit 1 YN L $(S)SCR[scr]PT|6
pt.fin.class 10 FREE L MIS.FIN.CLASS $(S)SCR[scr]PT|5
pt.name 30 FREE L $(S)SCR[scr]PT|0
pt.sex 1 CHOICE L $(S)SCR[scr]PT|3
pt.soc.sec.number 14 FREE L $(S)SCR[scr]PT|8
pt.species 10 FREE L LAB.C.SPECIES $(S)SCR[scr]PT|9
ref.attend.phys 30 FREE L $(S)SCR[scr]REF|7
ref.batch 30 FREE L $(S)SCR[scr]REF|10
ref.bill.client 10 FREE L MIS.DOC $(S)SCR[scr]REF|11
ref.collect.date 8 DATE L $(S)SCR[scr]REF|0
ref.collect.time 4 HHMMU L $(S)SCR[scr]REF|1
ref.collected.by 10 FREE L $(S)SCR[scr]REF|8
ref.future.req.urn 10 URN L $(S)SCR[scr]REF|16
ref.mult.addr.urn 2 PINT R $(S)SCR[scr]REF|12
ref.priority 1 FREE L $(S)SCR[scr]REF|9
ref.pt.id 15 FREE L $(S)SCR[scr]REF|6
ref.pt.species 10 FREE L LAB.C.SPECIES $(S)SCR[scr]REF|13
ref.received 1 YN L $(S)SCR[scr]REF|5
ref.received.by 10 FREE L MIS.USER $(S)SCR[scr]REF|4
ref.received.date 8 DATE L $(S)SCR[scr]REF|2
ref.received.time 4 HHMMU L $(S)SCR[scr]REF|3
ref.req 15 FREE L
ref.sub.from 10 FREE L MIS.DOC $(S)SCR[scr]REF|14
ref.web.user 20 FREE L MIS.WEB.USER $(S)SCR[scr]REF|15
reference.req 1 YN L $(S)SCR[scr]|17
status 11 FREE L VAL=IF{@LAB.C.REQ.cancel.user "*CANCELLED*";LAB.C.REQ.
VAL=urn "ENTERED"}
subm.doc.name 30 FREE L VAL=IF{@LAB.C.REQ.subm.doc.non.dict.name;@MIS.DOC.name
VAL=[@LAB.C.REQ.subm.doctor]}
subm.doc.non.dict.name 30 FREE L $(S)SCR[scr]|10
subm.doctor 10 FREE L MIS.DOC $(S)SCR[scr]|2
temp.prefix 2 FREE L VAL=RQ
unit 10 URN L LAB.B.UNIT $(S)SCR[scr]|14
Ì € i 2
bbk.ord.components
[urn, bbk.ord.component]
$(S)SCR[scr]RC[sbt2]
Field Name Len Dat Typ J DPM Offset/Local/VAL
bbk.ord.component 9 PDEC5 R LAB.B.TEST sbt2
bbk.ord.comp.bill.ct 2 PINT R $(S)SCR[scr]RC[sbt2]|0
bbk.ord.comp.cume.chg 10 MONEY R $(S)SCR[scr]RC[sbt2]|1
bbk.ord.comp.qns.nd.ct 2 PINT R $(S)SCR[scr]RC[sbt2]|2
Ì € i 2
bbk.ord.prods.by.priority
[urn, priority.bbk.prod]
$(S)SCR[scr]BBP[sbp]
Field Name Len Dat Typ J DPM Offset/Local/VAL
priority.bbk.prod 15 FREE L LAB.B.PROD sbp
priority.bbk.prd.subm.doc 10 FREE L MIS.DOC $(S)SCR[scr]BBP[sbp]|2
priority.bbk.prod.cnt 2 PINT R $(S)SCR[scr]BBP[sbp]|1
priority.bbk.prod.prio 1 FREE L $(S)SCR[scr]BBP[sbp]|0
Ì € i 2
bbk.ord.tests.by.priority
[urn, priority.bbk.test]
$(S)SCR[scr]RBP[sbt]
Field Name Len Dat Typ J DPM Offset/Local/VAL
priority.bbk.test 9 PDEC5 R LAB.B.TEST sbt
priority.bbk.test.cnt 2 PINT R $(S)SCR[scr]RBP[sbt]|1
priority.bbk.test.prio 1 FREE L $(S)SCR[scr]RBP[sbt]|0
priority.bbk.tst.subm.doc 10 FREE L MIS.DOC $(S)SCR[scr]RBP[sbt]|2
Ì € i 2
bbk.ordered.products
[urn, bbk.product]
$(S)SCR[scr]U[sbp]
Field Name Len Dat Typ J DPM Offset/Local/VAL
bbk.product 15 FREE L LAB.B.PROD sbp
bbk.product.can.count 2 PINT R $(S)SCR[scr]U[sbp]|6
bbk.product.chrgd.count 2 PINT R $(S)SCR[scr]U[sbp]|1
bbk.product.count 2 PINT R $(S)SCR[scr]U[sbp]|0
bbk.product.cume.charge 10 MONEY R $(S)SCR[scr]U[sbp]|2
bbk.product.ent.date 8 DATE L VAL=%Z.date.in.magic(@LAB.C.REQ.bbk.product.entered)
bbk.product.ent.time 4 HHMM L VAL=%Z.time.out(@LAB.C.REQ.bbk.product.entered)
bbk.product.entered 10 PINT R $(S)SCR[scr]U[sbp]|7
bbk.product.ord.src 10 FREE L $(S)SCR[scr]U[sbp]|8
bbk.product.priority 1 FREE L $(S)SCR[scr]U[sbp]|5
bbk.product.spec.list 30 FREE L $(S)SCR[scr]U[sbp]|4
bbk.product.subm.doctor 10 FREE L MIS.DOC $(S)SCR[scr]U[sbp]|3
Ì € i 2
bbk.ordered.prod.queries
[urn,bbk.product, bbk.prod.query]
$(S)SCR[scr]U[sbp]Q[ggv]
Field Name Len Dat Typ J DPM Offset/Local/VAL
bbk.prod.query 10 FREE L MIS.QUERY ggv
bbk.prod.query.def 1 FREE L $(S)SCR[scr]U[sbp]Q[ggv]|0
Ì € i 2
bbk.ordered.tests
[urn, bbk.test]
$(S)SCR[scr]R[sbt]
Field Name Len Dat Typ J DPM Offset/Local/VAL
bbk.test 9 PDEC5 R LAB.B.TEST sbt
bbk.test.adj.count 2 PINT R $(S)SCR[scr]R[sbt]|1
bbk.test.bill.ct.exm 2 INT R $(S)SCR[scr]R[sbt]|10
bbk.test.bill.ct.mxm 2 INT R $(S)SCR[scr]R[sbt]|9
bbk.test.count 2 PINT R $(S)SCR[scr]R[sbt]|0
bbk.test.cume.charge 10 MONEY R $(S)SCR[scr]R[sbt]|2
bbk.test.cume.charge.exm 10 MONEY R $(S)SCR[scr]R[sbt]|8
bbk.test.default.profile 10 FREE L $(S)SCR[scr]R[sbt]|13
bbk.test.ent.date 8 DATE L VAL=%Z.date.in.magic(@LAB.C.REQ.bbk.test.entered)
bbk.test.ent.time 4 HHMM L VAL=%Z.time.out(@LAB.C.REQ.bbk.test.entered)
bbk.test.entered 10 PINT R $(S)SCR[scr]R[sbt]|11
bbk.test.exm.res.billing 1 FREE L $(S)SCR[scr]R[sbt]|7
bbk.test.ord.src 10 FREE L $(S)SCR[scr]R[sbt]|12
bbk.test.priority 1 FREE L $(S)SCR[scr]R[sbt]|6
bbk.test.qns.nd.count 2 PINT R $(S)SCR[scr]R[sbt]|3
bbk.test.spec.list 30 FREE L $(S)SCR[scr]R[sbt]|5
bbk.test.subm.doctor 10 FREE L MIS.DOC $(S)SCR[scr]R[sbt]|4
Ì € i 2
bbk.ordered.test.products
[urn,bbk.test, bbk.test.product]
$(S)SCR[scr]R[sbt]P[sbp]
Field Name Len Dat Typ J DPM Offset/Local/VAL
bbk.test.product 15 FREE L LAB.B.PROD sbp
bbk.test.product.count 2 PINT R $(S)SCR[scr]R[sbt]P[sbp]|0
Ì € i 2
bbk.ordered.test.queries
[urn,bbk.test, bbk.test.query]
$(S)SCR[scr]R[sbt]Q[ggv]
Field Name Len Dat Typ J DPM Offset/Local/VAL
bbk.test.query 10 FREE L MIS.QUERY ggv
bbk.test.query.def 1 FREE L $(S)SCR[scr]R[sbt]Q[ggv]|0
Ì € i 2
bbk.ordered.tests.comps
[urn,bbk.test, bbk.ord.test.component]
$(S)SCR[scr]R[sbt]C[sbt2]
Field Name Len Dat Typ J DPM Offset/Local/VAL
bbk.ord.test.component 9 PDEC5 R LAB.B.TEST sbt2
bbk.ord.test.comp.ct 2 PINT R $(S)SCR[scr]R[sbt]C[sbt2]|0
Ì € i 2
bbk.specimens
[urn, bbk.spec.px,bbk.spec.q]
$(S)SCR[scr]N[spxB,scrB]
Field Name Len Dat Typ J DPM Offset/Local/VAL
bbk.spec.px 2 FREE L spxB
bbk.spec.q 1 PINT R scrB
bbk.spec.cancelled 1 YN L $(S)SCR[scr]N[spxB,scrB]|1
bbk.spec.urn 30 URN L LAB.B.SPEC $(S)SCR[scr]N[spxB,scrB]|0
Ì € i 2
bill.codes
[urn, bc.mod.and.test]
$(S)SCR[scr]BC[scrBC]
Field Name Len Dat Typ J DPM Offset/Local/VAL
bc.mod.and.test 10 FREE L scrBC
bill.code 10 FREE L $(S)SCR[scr]BC[scrBC]|0
cpt.code 12 FREE L $(S)SCR[scr]BC[scrBC]|1
cpt.code.type 10 FREE L $(S)SCR[scr]BC[scrBC]|2
exm.bill.code 10 FREE L $(S)SCR[scr]BC[scrBC]|3
exm.cpt.code 12 FREE L $(S)SCR[scr]BC[scrBC]|4
exm.cpt.code.type 10 FREE L $(S)SCR[scr]BC[scrBC]|5
Ì € i 2
bill.codes.bbk.units
[urn,bc.mod.and.test, bc.bbk.unit]
$(S)SCR[scr]BC[scrBC]BU[sbu]
Field Name Len Dat Typ J DPM Offset/Local/VAL
bc.bbk.unit 10 URN L LAB.B.UNIT sbu
bc.bbk.unit.bill.code 10 FREE L $(S)SCR[scr]BC[scrBC]BU[sbu]|0
bc.bbk.unit.cpt.code 12 FREE L $(S)SCR[scr]BC[scrBC]BU[sbu]|1
bc.bbk.unit.cpt.type 10 FREE L $(S)SCR[scr]BC[scrBC]BU[sbu]|2
Ì € i 2
billing
[urn, bill.date,bill.q]
$(S)SCR[scr]B[scrD,scrQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
bill.date 8 DATE L scrD
bill.q 2 PINT R scrQ
bill.action 6 FREE L $(S)SCR[scr]B[scrD,scrQ]|2
bill.bbk.unit 10 URN L LAB.B.UNIT $(S)SCR[scr]B[scrD,scrQ]|9
bill.charge 10 SMONEY R $(S)SCR[scr]B[scrD,scrQ]|4
bill.collection.date 8 DATE L VAL=%LAB.C.REQ.bill.collection.date(@LAB.C.REQ.patient
VAL=,{LAB.C.REQ.urn,LAB.C.REQ.bill.date,LAB.C.REQ.bill
VAL=.q})
bill.count 2 SINT R $(S)SCR[scr]B[scrD,scrQ]|3
bill.exm 1 YN L $(S)SCR[scr]B[scrD,scrQ]|13
bill.mic.proc.of.sensi 9 PDEC5 R LAB.M.PROC $(S)SCR[scr]B[scrD,scrQ]|10
bill.on.date 8 DATE L $(S)SCR[scr]B[scrD,scrQ]|8
bill.seconds 10 PINT R
bill.specimen 8 URN L $(S)SCR[scr]B[scrD,scrQ]|7
bill.subm.doctor 10 FREE L MIS.DOC $(S)SCR[scr]B[scrD,scrQ]|11
bill.svc.date 8 DATE L $(S)SCR[scr]B[scrD,scrQ]|12
bill.test.proc 9 PDEC5 R $(S)SCR[scr]B[scrD,scrQ]|1
bill.test.proc.abbrev 15 FREE L VAL=%LAB.C.REQ.req.test(@LAB.C.REQ.bill.test.proc,@LAB
VAL=.C.REQ.bill.type,"A")
bill.test.proc.abbrv.w.ct 17 FREE L VAL=@LAB.C.REQ.bill.test.proc.abbrev_("\"_@LAB.C.REQ.b
VAL=ill.count'="\1"'="\-1"'="\0"'="\")
bill.test.proc.bill.code 10 FREE L VAL=%LAB.C.REQ.req.test(@LAB.C.REQ.bill.test.proc,@LAB
VAL=.C.REQ.bill.type,"B",LAB.C.REQ.urn,@LAB.C.REQ.bill
VAL=.bbk.unit,@LAB.C.REQ.bill.exm="Y")
bill.test.proc.mnemonic 15 FREE L VAL=%LAB.C.REQ.req.test(@LAB.C.REQ.bill.test.proc,@LAB
VAL=.C.REQ.bill.type,"M")
bill.test.proc.name 30 FREE L VAL=%LAB.C.REQ.req.test(@LAB.C.REQ.bill.test.proc,@LAB
VAL=.C.REQ.bill.type,"N")
bill.test.proc.name.w.ct 32 FREE L VAL=@LAB.C.REQ.bill.test.proc.name_("\"_@LAB.C.REQ.bil
VAL=l.count'="\1"'="\-1"'="\0"'="\")
bill.time 4 HHMM L $(S)SCR[scr]B[scrD,scrQ]|5
bill.type 1 CHOICE L $(S)SCR[scr]B[scrD,scrQ]|0
bill.user 10 FREE L MIS.USER $(S)SCR[scr]B[scrD,scrQ]|6
Ì € i 2
billing.professional
[urn,bill.date,bill.q, billing.prof]
$(S)SCR[scr]B[scrD,scrQ]P[scrBP]
Field Name Len Dat Typ J DPM Offset/Local/VAL
billing.prof 11 FREE L scrBP
billing.prof.date 8 DATE L $(S)SCR[scr]B[scrD,scrQ]P[scrBP]|0
Ì € i 2
cancel.comments
[urn, cancel.comment.q]
$(S)SCR[scr]CC[scrc]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cancel.comment.q 2 PINT R scrc
cancel.comment 60 TEXT L $(S)SCR[scr]CC[scrc]
Ì € i 2
containers
[urn, container]
$(S)SCR[scr]CON[sck]
Field Name Len Dat Typ J DPM Offset/Local/VAL
container 10 FREE L LAB.C.CONTAINERsck
container.cnt 2 PINT R $(S)SCR[scr]CON[sck]|0
Ì € i 2
deleted.orders
[urn, del.q]
$(S)SCR[scr]DO[scrDO]
Field Name Len Dat Typ J DPM Offset/Local/VAL
del.q 2 PINT R scrDO
del.comment 50 FREE L $(S)SCR[scr]DO[scrDO]|6
del.count 2 PINT R $(S)SCR[scr]DO[scrDO]|2
del.date 8 DATE L $(S)SCR[scr]DO[scrDO]|3
del.date.mmdd 5 FREE L VAL=%Z.date.out(@del.date,"",5)
del.module 1 CHOICE L $(S)SCR[scr]DO[scrDO]|1
del.om.num 20 FREE L $(S)SCR[scr]DO[scrDO]|10
del.om.urn 20 URN L $(S)SCR[scr]DO[scrDO]|9
del.source 10 FREE L LAB.M.SRC $(S)SCR[scr]DO[scrDO]|7
del.source.and.spec.desc 21 FREE L VAL=IF{@del.module="M" @del.source_("\"_@del.spec.desc
VAL='="\"'="\ ")}
del.spec.desc 10 FREE L LAB.M.SPDESC $(S)SCR[scr]DO[scrDO]|8
del.test.proc 10 URN L $(S)SCR[scr]DO[scrDO]|0
del.test.proc.abb.src.ct 40 FREE L VAL=@LAB.C.REQ.del.test.proc.abbrev_("\"_@LAB.C.REQ.de
VAL=l.count'="\1"'="\")_("\"_@LAB.C.REQ.del.source'="\
VAL=")_("\"_@LAB.C.REQ.del.spec.desc'="\")
del.test.proc.abbrev 15 FREE L VAL=%LAB.C.REQ.req.test(@LAB.C.REQ.del.test.proc,@LAB.
VAL=C.REQ.del.module,"A")
del.test.proc.abbrev.w.ct 17 FREE L VAL=@LAB.C.REQ.del.test.proc.abbrev_("\"_@LAB.C.REQ.de
VAL=l.count'="\1"'="\")
del.test.proc.mne.src.ct 40 FREE L VAL=@LAB.C.REQ.del.test.proc.mnemonic_("\"_@LAB.C.REQ.
VAL=del.count'="\1"'="\")_("\"_@LAB.C.REQ.del.source'=
VAL="\")_("\"_@LAB.C.REQ.del.spec.desc'="\")
del.test.proc.mne.w.ct 18 FREE L VAL=@LAB.C.REQ.del.test.proc.mnemonic_("\"_@LAB.C.REQ.
VAL=del.count'="\1"'="\")
del.test.proc.mnemonic 15 FREE L VAL=%LAB.C.REQ.req.test(@LAB.C.REQ.del.test.proc,@LAB.
VAL=C.REQ.del.module,"M")
del.test.proc.nam.src.ct 54 FREE L VAL=@LAB.C.REQ.del.test.proc.name_("\"_@LAB.C.REQ.del.
VAL=count'="\1"'="\")_("\"_@LAB.C.REQ.del.source'="\")
VAL=_("\"_@LAB.C.REQ.del.spec.desc'="\")
del.test.proc.name 30 FREE L VAL=%LAB.C.REQ.req.test(@LAB.C.REQ.del.test.proc,@LAB.
VAL=C.REQ.del.module,"N")
del.test.proc.name.w.ct 32 FREE L VAL=@LAB.C.REQ.del.test.proc.name_("\"_@LAB.C.REQ.del.
VAL=count'="\1"'="\")
del.time 4 HHMM L $(S)SCR[scr]DO[scrDO]|4
del.user 10 FREE L MIS.USER $(S)SCR[scr]DO[scrDO]|5
Ì € i 2
deleted.orders.specimens
[urn,del.q, del.order.specimen]
$(S)SCR[scr]DO[scrDO]S[scrDS]
Field Name Len Dat Typ J DPM Offset/Local/VAL
del.order.specimen 10 URN L scrDS
del.spec.del.q 2 PINT R $(S)SCR[scr]DO[scrDO]S[scrDS]|0
Ì € i 2
doctor.address.info
[urn, doc.address.doctor]
$(S)SCR[scr]DA[ggg]
Field Name Len Dat Typ J DPM Offset/Local/VAL
doc.address.doctor 10 FREE L ggg
doc.address.1 45 FREE L $(S)SCR[scr]DA[ggg]|0
doc.address.2 45 FREE L $(S)SCR[scr]DA[ggg]|1
doc.address.3 45 FREE L $(S)SCR[scr]DA[ggg]|2
doc.address.4 45 FREE L $(S)SCR[scr]DA[ggg]|3
doc.address.email 40 FREE L $(S)SCR[scr]DA[ggg]|4
Ì € i 2
duplicate.order.reasons
[urn, dup.module.and.test]
$(S)SCR[scr]DUP[scrDU]
Field Name Len Dat Typ J DPM Offset/Local/VAL
dup.module.and.test 32 FREE L scrDU
dup.reason 50 FREE L $(S)SCR[scr]DUP[scrDU]|0
dup.req.number 8 FREE L VAL=@number[@dup.req.urn]
dup.req.urn 10 URN L LAB.C.REQ $(S)SCR[scr]DUP[scrDU]|2
dup.source 10 FREE L LAB.M.SRC VAL=@LAB.C.REQ.dup.module.and.test#"1\"
dup.source.and.spdesc 21 FREE L VAL=@LAB.C.REQ.dup.module.and.test'$"1\"
dup.spec.desc 10 FREE L LAB.M.SPDESC VAL=@LAB.C.REQ.dup.module.and.test#"2\"
dup.test.abbrev 15 FREE L VAL=%LAB.C.REQ.req.test(LAB.C.REQ.dup.module.and.test%
VAL=0#"0\",LAB.C.REQ.dup.module.and.test#0,"A")
dup.test.mnemonic 15 FREE L VAL=%LAB.C.REQ.req.test(LAB.C.REQ.dup.module.and.test%
VAL=0#"0\",LAB.C.REQ.dup.module.and.test#0,"M")
dup.test.name 30 FREE L VAL=%LAB.C.REQ.req.test(LAB.C.REQ.dup.module.and.test%
VAL=0#"0\",LAB.C.REQ.dup.module.and.test#0,"N")
dup.user 10 FREE L MIS.USER $(S)SCR[scr]DUP[scrDU]|1
Ì € i 2
icd
[urn, icd.module,icd.order]
$(S)SCR[scr]I[scrim,scrio]
Field Name Len Dat Typ J DPM Offset/Local/VAL
icd.module 1 CHOICE L scrim
icd.order 9 FREE L scrio
icd.code 7 FREE L $(S)SCR[scr]I[scrim,scrio]|0
icd.comment 60 FREE L $(S)SCR[scr]I[scrim,scrio]|3
icd.printed 1 YN L $(S)SCR[scr]I[scrim,scrio]|4
icd.prof.or.grp.test.num 9 FREE L $(S)SCR[scr]I[scrim,scrio]|5
icd.reject 1 CHOICE L $(S)SCR[scr]I[scrim,scrio]|1
icd.sign 1 YN L $(S)SCR[scr]I[scrim,scrio]|2
Ì € i 2
icd.modifiers
[urn,icd.module,icd.order, icd.mod.q]
$(S)SCR[scr]I[scrim,scrio]M[gzmQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
icd.mod.q 3 PINT R gzmQ
icd.modifier 2 FREE L MIS.CPT.MOD $(S)SCR[scr]I[scrim,scrio]M[gzmQ]|0
Ì € i 2
infce.data
[urn, infce,infce.ov.number]
$(S)SCR[scr]ID[ssid,ssidf]
Field Name Len Dat Typ J DPM Offset/Local/VAL
infce 10 FREE L LAB.C.INFC.DICTssid
infce.ov.number 15 FREE L ssidf
Ì € i 2
lab.ord.components
[urn, lab.ord.component]
$(S)SCR[scr]TC[slt2]
Field Name Len Dat Typ J DPM Offset/Local/VAL
lab.ord.component 9 PDEC5 R LAB.L.TEST slt2
lab.ord.comp.bill.ct 2 PINT R $(S)SCR[scr]TC[slt2]|0
lab.ord.comp.cume.chg 10 MONEY R $(S)SCR[scr]TC[slt2]|1
lab.ord.comp.qns.nd.ct 2 PINT R $(S)SCR[scr]TC[slt2]|2
Ì € i 2
lab.ord.tests.by.priority
[urn, priority.lab.test]
$(S)SCR[scr]TBP[slt]
Field Name Len Dat Typ J DPM Offset/Local/VAL
priority.lab.test 9 PDEC5 R LAB.L.TEST slt
priority.lab.test.cnt 2 PINT R $(S)SCR[scr]TBP[slt]|1
priority.lab.test.prio 1 FREE L $(S)SCR[scr]TBP[slt]|0
priority.lab.tst.subm.doc 10 FREE L MIS.DOC $(S)SCR[scr]TBP[slt]|2
Ì € i 2
lab.ordered.tests
[urn, lab.test]
$(S)SCR[scr]T[slt]
Field Name Len Dat Typ J DPM Offset/Local/VAL
lab.test 9 PDEC5 R LAB.L.TEST slt
lab.test.adj.count 2 PINT R $(S)SCR[scr]T[slt]|1
lab.test.count 2 PINT R $(S)SCR[scr]T[slt]|0
lab.test.cume.charge 10 MONEY R $(S)SCR[scr]T[slt]|2
lab.test.default.profile 10 FREE L $(S)SCR[scr]T[slt]|10
lab.test.ent.date 8 DATE L VAL=%Z.date.in.magic(@LAB.C.REQ.lab.test.entered)
lab.test.ent.time 4 HHMM L VAL=%Z.time.out(@LAB.C.REQ.lab.test.entered)
lab.test.entered 10 PINT R $(S)SCR[scr]T[slt]|8
lab.test.ord.src 10 FREE L $(S)SCR[scr]T[slt]|9
lab.test.prefix 2 FREE L $(S)SCR[scr]T[slt]|5
lab.test.priority 1 FREE L $(S)SCR[scr]T[slt]|7
lab.test.qns.nd.count 2 PINT R $(S)SCR[scr]T[slt]|3
lab.test.spec.list 30 FREE L $(S)SCR[scr]T[slt]|6
lab.test.subm.doctor 10 FREE L MIS.DOC $(S)SCR[scr]T[slt]|4
Ì € i 2
lab.ordered.test.queries
[urn,lab.test, lab.test.query]
$(S)SCR[scr]T[slt]Q[ggv]
Field Name Len Dat Typ J DPM Offset/Local/VAL
lab.test.query 10 FREE L MIS.QUERY ggv
lab.test.query.def 1 FREE L $(S)SCR[scr]T[slt]Q[ggv]|0
Ì € i 2
lab.ordered.tests.comps
[urn,lab.test, lab.ord.test.component]
$(S)SCR[scr]T[slt]C[slt2]
Field Name Len Dat Typ J DPM Offset/Local/VAL
lab.ord.test.component 9 PDEC5 R LAB.L.TEST slt2
lab.ord.test.comp.ct 2 PINT R $(S)SCR[scr]T[slt]C[slt2]|0
Ì € i 2
lab.specimens
[urn, lab.spec.px,lab.spec.q]
$(S)SCR[scr]L[spxL,scrL]
Field Name Len Dat Typ J DPM Offset/Local/VAL
lab.spec.px 2 FREE L spxL
lab.spec.q 1 PINT R scrL
lab.spec.cancelled 1 YN L $(S)SCR[scr]L[spxL,scrL]|1
lab.spec.urn 30 URN L LAB.L.SPEC $(S)SCR[scr]L[spxL,scrL]|0
Ì € i 2
markers
[urn, marker]
$(S)SCR[scr]MK[ssk]
Field Name Len Dat Typ J DPM Offset/Local/VAL
marker 10 ALPHANUM L LAB.C.MARK ssk
Ì € i 2
mic.ord.components
[urn, mic.ord.comp.source,mic.ord.comp.spec.desc,mic.ord.component]
$(S)SCR[scr]PC[smt,smf,smp2]
Field Name Len Dat Typ J DPM Offset/Local/VAL
mic.ord.comp.source 10 FREE L LAB.M.SRC smt
mic.ord.comp.spec.desc 10 FREE L LAB.M.SPDESC smf
mic.ord.component 9 PDEC5 R LAB.M.PROC smp2
mic.ord.comp.bill.ct 2 PINT R $(S)SCR[scr]PC[smt,smf,smp2]|0
mic.ord.comp.cume.chg 10 MONEY R $(S)SCR[scr]PC[smt,smf,smp2]|1
mic.ord.comp.qns.nd.ct 2 PINT R $(S)SCR[scr]PC[smt,smf,smp2]|2
Ì € i 2
mic.ord.procs.by.priority
[urn, priority.mic.proc.src,priority.mic.proc.sp.desc,priority.mic.proc]
$(S)SCR[scr]PBP[smt,smf,smp]
Field Name Len Dat Typ J DPM Offset/Local/VAL
priority.mic.proc.src 10 FREE L LAB.M.SRC smt
priority.mic.proc.sp.desc 10 FREE L LAB.M.SPDESC smf
priority.mic.proc 9 PDEC5 R LAB.M.PROC smp
priority.mic.prc.subm.doc 10 FREE L MIS.DOC $(S)SCR[scr]PBP[smt,smf,smp]|2
priority.mic.proc.cnt 2 PINT R $(S)SCR[scr]PBP[smt,smf,smp]|1
priority.mic.proc.prio 1 FREE L $(S)SCR[scr]PBP[smt,smf,smp]|0
Ì € i 2
mic.ordered.proc.queries
[urn, mic.proc.for.query,mic.proc.query]
$(S)SCR[scr]OPQ[smp,ggv]
Field Name Len Dat Typ J DPM Offset/Local/VAL
mic.proc.for.query 9 PDEC5 R LAB.M.PROC smp
mic.proc.query 10 FREE L MIS.QUERY ggv
mic.proc.query.def 1 FREE L $(S)SCR[scr]OPQ[smp,ggv]|0
Ì € i 2
mic.ordered.procs
[urn, mic.proc.source,mic.proc.spec.desc,mic.proc]
$(S)SCR[scr]P[smt,smf,smp]
Field Name Len Dat Typ J DPM Offset/Local/VAL
mic.proc.source 10 FREE L LAB.M.SRC smt
mic.proc.spec.desc 10 FREE L LAB.M.SPDESC smf
mic.proc 9 PDEC5 R LAB.M.PROC smp
mic.proc.adj.count 2 PINT R $(S)SCR[scr]P[smt,smf,smp]|1
mic.proc.count 2 PINT R $(S)SCR[scr]P[smt,smf,smp]|0
mic.proc.cume.charge 10 MONEY R $(S)SCR[scr]P[smt,smf,smp]|2
mic.proc.default.profile 10 FREE L $(S)SCR[scr]P[smt,smf,smp]|9
mic.proc.ent.date 8 DATE L VAL=%Z.date.in.magic(@LAB.C.REQ.mic.proc.entered)
mic.proc.ent.time 4 HHMM L VAL=%Z.time.out(@LAB.C.REQ.mic.proc.entered)
mic.proc.entered 10 PINT R $(S)SCR[scr]P[smt,smf,smp]|7
mic.proc.ord.src 10 FREE L $(S)SCR[scr]P[smt,smf,smp]|8
mic.proc.priority 1 FREE L $(S)SCR[scr]P[smt,smf,smp]|6
mic.proc.qns.nd.count 2 PINT R $(S)SCR[scr]P[smt,smf,smp]|3
mic.proc.spec.list 30 FREE L $(S)SCR[scr]P[smt,smf,smp]|5
mic.proc.subm.doctor 10 FREE L MIS.DOC $(S)SCR[scr]P[smt,smf,smp]|4
Ì € i 2
mic.ordered.procs.comps
[urn,mic.proc.source,mic.proc.spec.desc,mic.proc, mic.ord.proc.component]
$(S)SCR[scr]P[smt,smf,smp]C[smp2]
Field Name Len Dat Typ J DPM Offset/Local/VAL
mic.ord.proc.component 9 PDEC5 R LAB.M.PROC smp2
mic.ord.proc.comp.ct 2 PINT R $(S)SCR[scr]P[smt,smf,smp]C[smp2]|0
Ì € i 2
mic.specimens
[urn, mic.spec.px,mic.spec.source,mic.spec.desc,mic.spec.q]
$(S)SCR[scr]M[spxM,smt,smf,scrM]
Field Name Len Dat Typ J DPM Offset/Local/VAL
mic.spec.px 2 FREE L spxM
mic.spec.source 10 FREE L LAB.M.SRC smt
mic.spec.desc 10 FREE L LAB.M.SPDESC smf
mic.spec.q 1 PINT R scrM
mic.spec.cancelled 1 YN L $(S)SCR[scr]M[spxM,smt,smf,scrM]|1
mic.spec.urn 30 URN L LAB.M.SPEC $(S)SCR[scr]M[spxM,smt,smf,scrM]|0
Ì € i 2
msp.codes
[urn, msp.module,msp.bill.test]
$(S)SCR[scr]MSP[scrMM,scrMT]
Field Name Len Dat Typ J DPM Offset/Local/VAL
msp.module 1 CHOICE L scrMM
msp.bill.test 10 FREE L scrMT
msp.fac.code 5 FREE L $(S)SCR[scr]MSP[scrMM,scrMT]|0
msp.subfac.code 5 FREE L $(S)SCR[scr]MSP[scrMM,scrMT]|1
msp.subfac.code.calc 5 FREE L VAL=%LAB.C.REQ.calc.msp.codes(IF{LAB.C.REQ.urn;/LAB.C.
VAL=REQ.urn})
Ì € i 2
order.audit
[urn, oa.q]
$(S)SCR[scr]OA[scrOA]
Field Name Len Dat Typ J DPM Offset/Local/VAL
oa.q 3 PINT R scrOA
oa.abbrev 15 FREE L VAL=%LAB.C.REQ.req.test(@oa.test.proc,@oa.mod,"A")
oa.action 3 CHOICE L $(S)SCR[scr]OA[scrOA]|2
oa.comment 25 FREE L $(S)SCR[scr]OA[scrOA]|7
oa.confidential.ok 1 YN L VAL=%LAB.C.REQ.req.test(@oa.test.proc,@oa.mod,"C","","
VAL=","U")
oa.count 3 INT R $(S)SCR[scr]OA[scrOA]|6
oa.date 8 DATE L $(S)SCR[scr]OA[scrOA]|4
oa.mod 1 CHOICE L $(S)SCR[scr]OA[scrOA]|1
oa.test.proc 10 FREE L $(S)SCR[scr]OA[scrOA]|0
oa.time 4 HHMM L $(S)SCR[scr]OA[scrOA]|5
oa.user 10 FREE L MIS.USER $(S)SCR[scr]OA[scrOA]|3
Ì € i 2
order.queries
[urn, order.query]
$(S)SCR[scr]Q[ggv]
Field Name Len Dat Typ J DPM Offset/Local/VAL
order.query 10 FREE L MIS.QUERY ggv
order.answer 75 FREE L $(S)SCR[scr]Q[ggv]|0
order.query.text 60 FREE L VAL=@MIS.QUERY.text[LAB.C.REQ.order.query]
order.yn.comment 99 FREE L $(S)SCR[scr]Q[ggv]|5
Ì € i 2
order.query.multiple
[urn,order.query, order.qry.mul.q]
$(S)SCR[scr]Q[ggv]M[ggvMQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
order.qry.mul.q 3 PINT R ggvMQ
order.qry.mul.answer 75 FREE L $(S)SCR[scr]Q[ggv]M[ggvMQ]|0
Ì € i 2
other.doctors
[urn, other.doctor]
$(S)SCR[scr]DR[ggg]
Field Name Len Dat Typ J DPM Offset/Local/VAL
other.doctor 10 FREE L MIS.DOC ggg
other.doc.edit.addr 1 YN L $(S)SCR[scr]DR[ggg]|2
other.doc.mult.addr.urn 2 PINT R $(S)SCR[scr]DR[ggg]|1
other.doc.name 30 FREE L VAL=IF{@LAB.C.REQ.other.doc.non.dict.name;@MIS.DOC.nam
VAL=e[@LAB.C.REQ.other.doctor]}
other.doc.non.dict.name 30 FREE L $(S)SCR[scr]DR[ggg]|0
Ì € i 2
pth.assign.tos
[urn, pth.assign.to]
$(S)SCR[scr]AT[gu]
Field Name Len Dat Typ J DPM Offset/Local/VAL
pth.assign.to 10 FREE L MIS.USER gu
Ì € i 2
pth.ord.components
[urn, pth.ord.component]
$(S)SCR[scr]JC[spt2]
Field Name Len Dat Typ J DPM Offset/Local/VAL
pth.ord.component 10 URN L LAB.P.TERM spt2
pth.ord.comp.bill.ct 2 PINT R $(S)SCR[scr]JC[spt2]|0
pth.ord.comp.cume.chg 10 MONEY R $(S)SCR[scr]JC[spt2]|1
Ì € i 2
pth.ordered.procs
[urn, pth.proc]
$(S)SCR[scr]J[spt]
Field Name Len Dat Typ J DPM Offset/Local/VAL
pth.proc 10 URN L LAB.P.TERM spt
pth.proc.count 2 PINT R $(S)SCR[scr]J[spt]|0
pth.proc.cume.charge 10 MONEY R $(S)SCR[scr]J[spt]|1
pth.proc.ent.date 8 DATE L VAL=%Z.date.in.magic(@LAB.C.REQ.pth.proc.entered)
pth.proc.ent.time 4 HHMM L VAL=%Z.time.out(@LAB.C.REQ.pth.proc.entered)
pth.proc.entered 10 PINT R $(S)SCR[scr]J[spt]|4
pth.proc.logic 0 FREE L $(S)SCR[scr]J[spt]x
pth.proc.logic.done 1 FREE L $(S)SCR[scr]J[spt]|3
pth.proc.subm.doctor 10 FREE L MIS.DOC $(S)SCR[scr]J[spt]|2
Ì € i 2
pth.ordered.proc.queries
[urn,pth.proc, pth.proc.query]
$(S)SCR[scr]J[spt]Q[ggv]
Field Name Len Dat Typ J DPM Offset/Local/VAL
pth.proc.query 10 FREE L MIS.QUERY ggv
pth.proc.query.def 1 FREE L $(S)SCR[scr]J[spt]Q[ggv]|0
Ì € i 2
pth.ordered.procs.comps
[urn,pth.proc, pth.ord.proc.component]
$(S)SCR[scr]J[spt]C[spt2]
Field Name Len Dat Typ J DPM Offset/Local/VAL
pth.ord.proc.component 10 URN L LAB.P.TERM spt2
pth.ord.proc.comp.ct 2 PINT R $(S)SCR[scr]J[spt]C[spt2]|0
Ì € i 2
pth.specimens
[urn, pth.spec.q]
$(S)SCR[scr]H[scrP]
Field Name Len Dat Typ J DPM Offset/Local/VAL
pth.spec.q 1 PINT R scrP
pth.spec.cancelled 1 YN L $(S)SCR[scr]H[scrP]|1
pth.spec.urn 30 URN L LAB.P.SPEC $(S)SCR[scr]H[scrP]|0
Ì € i 2
ref.diagnoses
[urn, ref.diag.q]
$(S)SCR[scr]REF["DX",scrDQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ref.diag.q 2 PINT R scrDQ
ref.diag 10 FREE L MIS.DIAG $(S)SCR[scr]REF["DX",scrDQ]|0
Ì € i 2
ref.queries
[urn, ref.query]
$(S)SCR[scr]REF["Q",ggv]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ref.query 10 FREE L MIS.QUERY ggv
ref.response 60 FREE L $(S)SCR[scr]REF["Q",ggv]|0
Ì i 2
oe.log
[oe.date.time,oe.q]
*(S)SCROE[scroD,scroQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
oe.date.time 9 FREE L scroD
oe.q 4 PINT R scroQ
oe.date 8 DATE L VAL=%Z.date.in.magic(oe.date.time)
oe.db 12 FREE L MIS.APPL.DB *(S)SCROE[scroD,scroQ]|4
oe.message 50 FREE L *(S)SCROE[scroD,scroQ]|5
oe.order 10 URN L OE.ORD *(S)SCROE[scroD,scroQ]|3
oe.patient 30 FREE L LAB.C.PAT *(S)SCROE[scroD,scroQ]|2
oe.time 4 HHMM L VAL=%Z.time.out(oe.date.time)
oe.type 1 CHOICE L *(S)SCROE[scroD,scroQ]|0
oe.type.ok 1 YN L VAL=IF{L(c.oe.types,@oe.type)<L(c.oe.types) "Y";"N"
VAL=}
oe.types 4 FREE L
oe.user 10 FREE L MIS.USER *(S)SCROE[scroD,scroQ]|1
oe.xi 1 YN L *(S)SCROE[scroD,scroQ]|6
oe.xi.category 3 CHOICE L *(S)SCROE[scroD,scroQ]|7
oe.xi.device 15 FREE L *(S)SCROE[scroD,scroQ]|10
oe.xi.ord.number 18 FREE L *(S)SCROE[scroD,scroQ]|9
oe.xi.procedure 15 FREE L *(S)SCROE[scroD,scroQ]|8
Ì i 2
ordered.tests.display
[ord.test.line.req.urn,ord.test.line.q]
/SCRo[scr,slrO]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ord.test.line.req.urn 10 URN L LAB.C.REQ scr
ord.test.line.q 2 PINT R slrO
ord.test.line 72 FREE L /SCRo[scr,slrO]
Ì i 2
reflex.x
[reflex.date,reflex.patient,reflex.q]
*(S)SCRR[scrrD,aa,scrrQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
reflex.date 8 DATE L scrrD
reflex.patient 30 FREE L LAB.C.PAT aa
reflex.q 2 PINT R scrrQ
next.reflex.q 2 FREE L VAL=@Lock(@Root(@p.LAB.C.REQ.reflex.x)),@Root(@LAB.C.R
VAL=EQ.reflex.x)+1^@Root(@LAB.C.REQ.reflex.x)^LAB.C.RE
VAL=Q.reflex.q,@Unlock(@Root(@p.LAB.C.REQ.reflex.x))
reflex.group 10 FREE L LAB.C.OE.GRP *(S)SCRR[scrrD,aa,scrrQ]|7
reflex.module 1 CHOICE L *(S)SCRR[scrrD,aa,scrrQ]|2
reflex.new.req 10 URN L LAB.C.REQ *(S)SCRR[scrrD,aa,scrrQ]|4
reflex.req 10 URN L LAB.C.REQ *(S)SCRR[scrrD,aa,scrrQ]|1
reflex.time 4 HHMM L *(S)SCRR[scrrD,aa,scrrQ]|5
reflex.trigger.spec 9 FREE L *(S)SCRR[scrrD,aa,scrrQ]|3
reflex.type 1 CHOICE L *(S)SCRR[scrrD,aa,scrrQ]|0
reflex.user 10 FREE L MIS.USER *(S)SCRR[scrrD,aa,scrrQ]|6
Ì € i 2
reflex.bbk.orders
[reflex.date,reflex.patient,reflex.q, reflex.bbk.order]
*(S)SCRR[scrrD,aa,scrrQ]BO[sbt]
Field Name Len Dat Typ J DPM Offset/Local/VAL
reflex.bbk.order 9 PDEC5 R LAB.B.TEST sbt
Ì € i 2
reflex.bbk.specs
[reflex.date,reflex.patient,reflex.q, reflex.bbk.spec.no]
*(S)SCRR[scrrD,aa,scrrQ]B[sbsN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
reflex.bbk.spec.no 15 FREE L sbsN
reflex.bbk.spec.urn 30 URN L LAB.B.SPEC *(S)SCRR[scrrD,aa,scrrQ]B[sbsN]|0
Ì € i 2
reflex.lab.orders
[reflex.date,reflex.patient,reflex.q, reflex.lab.order]
*(S)SCRR[scrrD,aa,scrrQ]LO[slt]
Field Name Len Dat Typ J DPM Offset/Local/VAL
reflex.lab.order 9 PDEC5 R LAB.L.TEST slt
Ì € i 2
reflex.lab.specs
[reflex.date,reflex.patient,reflex.q, reflex.lab.spec.no]
*(S)SCRR[scrrD,aa,scrrQ]L[slsN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
reflex.lab.spec.no 15 FREE L slsN
reflex.lab.spec.urn 30 URN L LAB.L.SPEC *(S)SCRR[scrrD,aa,scrrQ]L[slsN]|0
Ì € i 2
reflex.mic.orders
[reflex.date,reflex.patient,reflex.q, reflex.mic.order,reflex.mic.source,reflex.mic.spec.desc]
*(S)SCRR[scrrD,aa,scrrQ]MO[smp,smt,smf]
Field Name Len Dat Typ J DPM Offset/Local/VAL
reflex.mic.order 9 PDEC5 R LAB.M.PROC smp
reflex.mic.source 10 FREE L LAB.M.SRC smt
reflex.mic.spec.desc 10 FREE L LAB.M.SPDESC smf
Ì € i 2
reflex.mic.specs
[reflex.date,reflex.patient,reflex.q, reflex.mic.spec.no]
*(S)SCRR[scrrD,aa,scrrQ]M[smsN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
reflex.mic.spec.no 15 FREE L smsN
reflex.mic.spec.urn 30 URN L LAB.M.SPEC *(S)SCRR[scrrD,aa,scrrQ]M[smsN]|0
Ì i 2
selection.tests
[sel.test.q]
/SCRSC["T",scrst]
Field Name Len Dat Typ J DPM Offset/Local/VAL
sel.test.q 2 PINT R scrst
sel.test 15 FREE L /SCRSC["T",scrst]|0
sel.test.action 7 CHOICE L /SCRSC["T",scrst]|3
sel.test.number 10 FREE L /SCRSC["T",scrst]|2
sel.test.type 1 FREE L /SCRSC["T",scrst]|1
Ì i 2
xi.order.number.x
[xi.order.number,xi.sender,xi.patient,xi.module,xi.urn]
?(S)SCRXI[xion,xiSND,aa,ximod,xisu]
Field Name Len Dat Typ J DPM Offset/Local/VAL
xi.order.number 20 FREE L xion
xi.sender 20 FREE L xiSND
xi.patient 30 URN L ADM.PAT aa
xi.module 1 CHOICE L ximod
xi.urn 20 FREE L xisu
xi.time 10 FREE L ?(S)SCRXI[xion,xiSND,aa,ximod,xisu]
Index Files Subscripts/Physical Base
bar.x [bill.date,bill.seconds,urn]
?(S)SCRD[scrD,scrBS,scr]
bill.x [bill.date,patient,urn]
?(S)SCRB[scrD,aa,scr]
client.x [client,patient,urn]
?(S)SCRCL[ggg,aa,scr]
doctor.x [subm.doctor,patient,urn]
?(S)SCRCL[ggg,aa,scr]
dup.order.x [activity.date,number,dup.module.and.test] = urn
?(S)SCRDP[adt,scrN,scrDU]
enter.date.x [enter.date,number] = urn
?(S)SCREI[scrd,scrN]
icd.x [enter.date,urn]
?(S)SCRIX[scrd,scr]
incomplete.pt.x [patient,urn]
?(S)SCRIR[aa,scr]
infce.number.x [infce,infce.ov.number,urn]
?(S)SCRI[ssid,ssidf,scr]
marker.x [marker,urn]
?(S)SCRM[ssk,scr]
number.x [number] = urn
?(S)SCRN[scrN]
ov.number.x [ov.order.num,urn]
?(S)SCROV[xion,scr]
patient.x [patient,number] = urn
?(S)SCRP[aa,scrN]
rpt.pat.req.list.x [rpt.patient.name,rpt.patient.acct.number,number] = urn
/SCRp[aaNM,aaAN,scrN]
urn.x [urn]
?(S)SCRG[scr]
|
|
| | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | |