Ì € i 2
lab.p.spec.ee.final.asign.outs (ee.final.asign.outs)
[ee.addendum.section, ee.final.asign.q]
/SPS.AS[spr]FS[spsFQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ee.final.asign.q 2 PINT R spsFQ
ee.final.asign.date 8 DATE L /SPS.AS[spr]FS[spsFQ]|1
ee.final.asign.elect 1 YN L /SPS.AS[spr]FS[spsFQ]|2
ee.final.asign.entry 10 FREE L /SPS.AS[spr]FS[spsFQ]|4
ee.final.asign.es.q 3 PINT R /SPS.AS[spr]FS[spsFQ]|5
ee.final.asign.out 10 FREE L MIS.USER /SPS.AS[spr]FS[spsFQ]|0
ee.final.asign.user 10 FREE L MIS.USER /SPS.AS[spr]FS[spsFQ]|3
Ì € i 2
lab.p.spec.ee.prelim.sign.outs (ee.prelim.asign.outs)
[ee.addendum.section, ee.prelim.asign.q]
/SPS.AS[spr]PS[spsPQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ee.prelim.asign.q 2 PINT R spsPQ
ee.prelim.asign.date 8 DATE L /SPS.AS[spr]PS[spsPQ]|1
ee.prelim.asign.elect 1 YN L /SPS.AS[spr]PS[spsPQ]|2
ee.prelim.asign.entry 10 FREE L /SPS.AS[spr]PS[spsPQ]|4
ee.prelim.asign.es.q 3 PINT R /SPS.AS[spr]PS[spsPQ]|5
ee.prelim.asign.out 10 FREE L MIS.USER /SPS.AS[spr]PS[spsPQ]|0
ee.prelim.asign.user 10 FREE L MIS.USER /SPS.AS[spr]PS[spsPQ]|3
Ì i 2
lab.p.spec.ee.addenda.so.es (ee.addenda.signouts.es)
[ee.addenda.so.sect]
/SPS.ES[spr]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ee.addenda.so.sect 10 FREE L LAB.P.SECT spr
ee.addenda.change.status 1 YN L /SPS.ES[spr]|1
ee.addenda.f.date 8 DATE L /SPS.ES[spr]|6
ee.addenda.f.q 3 PINT R /SPS.ES[spr]|7
ee.addenda.f.sign 10 FREE L MIS.USER /SPS.ES[spr]|5
ee.addenda.last.q 3 PINT R /SPS.ES[spr]|0
ee.addenda.p.date 8 DATE L /SPS.ES[spr]|3
ee.addenda.p.q 3 PINT R /SPS.ES[spr]|4
ee.addenda.p.sign 10 FREE L MIS.USER /SPS.ES[spr]|2
Ì i 2
lab.p.spec.ee.signout.es (ee.signout.es)
[ee.signout.user]
/SPS.US[gu]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ee.signout.user 10 FREE L MIS.USER gu
ee.signout.change.f 1 YN L /SPS.US[gu]|3
ee.signout.change.p 1 YN L /SPS.US[gu]|2
ee.signout.final.date 8 DATE L /SPS.US[gu]|1
ee.signout.prelim.date 8 DATE L /SPS.US[gu]|0
Ì i 2
lab.p.spec.hist.ss.print (hist.ss.print)
[pr.ss.spec,pr.ss.q]
/spHP[sps,spsHQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
pr.ss.spec URN L sps
pr.ss.q PINT R spsHQ
pr.ss.blks 6 FREE L /spHP[sps,spsHQ]|4
pr.ss.id 4 FREE L /spHP[sps,spsHQ]|3
pr.ss.lev 5 FREE L /spHP[sps,spsHQ]|5
pr.ss.name 22 FREE L /spHP[sps,spsHQ]|1
pr.ss.proc1 16 FREE L /spHP[sps,spsHQ]|6
pr.ss.proc2 16 FREE L /spHP[sps,spsHQ]|7
pr.ss.proc3 16 FREE L /spHP[sps,spsHQ]|8
pr.ss.proc4 16 FREE L /spHP[sps,spsHQ]|9
pr.ss.spec.id 22 FREE L /spHP[sps,spsHQ]|0
pr.ss.tissue 15 FREE L /spHP[sps,spsHQ]|2
Ì i 2
lab.p.spec.infce.dwnld.queue (infce.download.queue)
[dnld.infce,dnld.q]
:SPSIK[gxo,spsIQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
dnld.infce 10 FREE L MIS.INFCE gxo
dnld.q 10 PINT R spsIQ
dnld.sec 10 PINT R :SPSIK[gxo,spsIQ]|1
dnld.spec 30 URN L LAB.P.SPEC :SPSIK[gxo,spsIQ]|0
dnld.trans.type 2 CHOICE L :SPSIK[gxo,spsIQ]|2
Ì i 2
lab.p.specimen.file (main)
[urn]
?SPS[sps]
Field Name Len Dat Typ J DPM Offset/Local/VAL
urn 30 URN L sps
activity.date 8 DATE L
addendum.status 1 INT R VAL=@LAB.P.SPEC.status.int=995
addendum.status.num 1 INT R VAL=995
age 8 FREE L VAL=%Z.age(@LAB.C.PAT.computed.birthdate,@received.dat
VAL=e)
age.sex 9 FREE L VAL=(@age_"/"_@LAB.C.PAT.sex)
all.procs.complete 1 YN L ?SPS[sps]A|9
any.result.abn.flags 1 YN L ?SPS[sps]|21
archive.date 8 DATE L ?SPS[sps]A|18
archived 1 PINT R ?SPS[sps]A|20
assign.to.name 30 FREE L VAL=@MIS.USER.name[@assign.to]
assign.to.old 10 FREE L MIS.USER ?SPS[sps]A|7
bar.code.number 6 FREE L ?SPS[sps]A|8
cancel.comments.file 0 FREE L ?SPS[sps]CC
cancel.spec.wkld.func 10 FREE L LAB.C.WL.FUNC
cancelled.date 8 DATE L VAL=%Z.date.in.magic(@LAB.P.SPEC.cancelled.time.int)
cancelled.status 1 INT R VAL=@LAB.P.SPEC.status.int=999
cancelled.status.num 1 INT R VAL=999
cancelled.time 4 HHMM L VAL=%Z.time.out(@LAB.P.SPEC.cancelled.time.int)
cancelled.time.int 9 PINT R ?SPS[sps]A|4
cancelled.user 10 FREE L MIS.USER ?SPS[sps]A|3
clear.buffer 1 FREE L VAL=DO{># #S}
cmpl.active.workbatches 1 YN L VAL=%LAB.P.SPEC.cmpl.workbatch.display(IF{LAB.P.SPEC.u
VAL=rn;/LAB.P.SPEC.urn},115)
cmpl.closed.workbatches 1 YN L VAL=%LAB.P.SPEC.cmpl.closed.workbatch.display(IF{LAB.P
VAL=.SPEC.urn;@LAB.P.SPEC.urn},115)
cmpl.deleted.orders 1 YN L VAL=%LAB.P.SPEC.cmpl.deleted.orders(IF{LAB.P.SPEC.urn;
VAL=@LAB.P.SPEC.urn})
cmpl.ord.procs.ext 1 YN L VAL=%LAB.P.SPEC.proc.cmpl(LAB.P.SPEC.urn,"EU")
cmpl.ord.procs.ext.conf 1 YN L VAL=%LAB.P.SPEC.proc.cmpl(LAB.P.SPEC.urn,"EA")
cmpl.ord.procs.int 1 YN L VAL=%LAB.P.SPEC.proc.cmpl(LAB.P.SPEC.urn,"IU")
cmpl.ord.procs.int.conf 1 YN L VAL=%LAB.P.SPEC.proc.cmpl(LAB.P.SPEC.urn,"IA")
cmpl.procs.tiss.ext 1 YN L VAL=%LAB.P.SPEC.tis.proc.cmpl(LAB.P.SPEC.urn,"EU")
cmpl.procs.tiss.ext.conf 1 YN L VAL=%LAB.P.SPEC.tis.proc.cmpl(LAB.P.SPEC.urn,"EA")
cmpl.procs.tiss.int 1 YN L VAL=%LAB.P.SPEC.tis.proc.cmpl(LAB.P.SPEC.urn,"IU")
cmpl.procs.tiss.int.conf 1 YN L VAL=%LAB.P.SPEC.tis.proc.cmpl(LAB.P.SPEC.urn,"IA")
cmpl.tissues 1 YN L VAL=%LAB.P.SPEC.tis.cmpl(LAB.P.SPEC.urn,"")
confidential 4 CHOICE L
date 8 DATE L
department 10 FREE L LAB.P.DEPT ?SPS[sps]A|0
dollar.t 1 YN L ?SPS[sps]CNV|0
entered.date 8 DATE L VAL=%Z.date.in.magic(@LAB.P.SPEC.entered.offset)
entered.offset 9 PINT R ?SPS[sps]|13
entered.status 1 INT R VAL=@LAB.P.SPEC.status.int=0
entered.status.num 1 INT R VAL=0
entered.time 4 HHMM L VAL=%Z.time.out(@LAB.P.SPEC.entered.offset)
entered.user 10 FREE L MIS.USER ?SPS[sps]A|2
final.signout.date 8 DATE L ?SPS[sps]A|12
findings.category 10 FREE L LAB.P.CATEGORY ?SPS[sps]B|1
findings.category.or.date 8 DATE L ?SPS[sps]B|7
findings.category.or.user 10 FREE L MIS.USER ?SPS[sps]B|6
findings.category.orig 10 FREE L LAB.P.CATEGORY ?SPS[sps]B|4
findings.category.qa 10 FREE L LAB.P.CATEGORY ?SPS[sps]B|3
findings.category.user 10 FREE L MIS.USER ?SPS[sps]B|5
fso.change.status 1 YN L ?SPS[sps]A|13
historical 1 YN L ?SPS[sps]A|16
id 13 URN L LAB.P.SPEC VAL=@LAB.P.SPEC.number
id.any.external 30 FREE L
id.any.internal 30 FREE L
id.for.ee.result 25 FREE L
id.spec 30 FREE L
int 3 PINT R
int.rpt.last.printed 25 FREE L VAL=%LAB.P.SPEC.sout.rpt.stat.list.M.last.printed("")
isolation.query.and.resp 137 FREE L VAL=%LAB.C.PAT.isolation.query.and.resp(IF{LAB.P.SPEC.
VAL=patient;@LAB.P.SPEC.patient})
label.format 10 FREE L LAB.C.COL.LBL
last.activity 8 PINT R ?SPS[sps]|17
last.activity.date 8 DATE L VAL=IF{@last.activity^XX %Z.date.in.magic(XX+@entered.
VAL=offset)}
last.activity.time 4 HHMM L VAL=IF{@last.activity^XX %Z.time.out(XX+@entered.offse
VAL=t)}
last.sent.to.emr 9 PINT R ?SPS[sps]|18
last.updated 10 PINT R ?SPS[sps]A|10
last.updated.date 8 DATE L VAL=%Z.date.in.magic(@last.updated)
last.updated.time 4 HHMM L VAL=%Z.time.out(@last.updated)
nameof.sort.x 10 FREE L
number 13 FREE L ?SPS[sps]|0
number.part 6 PINT R ?SPS[sps]|10
number.part.only 6 PINT R ?SPS[sps]|10
number.sort 13 FREE L ?SPS[sps]|20
oe.order.date.time 60 FREE L VAL=%LAB.P.SPEC.oe.order.date.user(urn,1)
oe.order.date.time.user 60 FREE L VAL=%LAB.P.SPEC.oe.order.date.user(urn,3)
oe.order.numbers 30 FREE L VAL=%LAB.P.SPEC.oe.order.number(urn)
oe.order.user 60 FREE L VAL=%LAB.P.SPEC.oe.order.date.user(urn,2)
order.location 10 FREE L MIS.LOCN.DICT ?SPS[sps]A|11
order.site 10 FREE L LAB.C.SITE ?SPS[sps]A|5
other.findings 8 DATE L VAL=IF{patient %LAB.P.SPEC.other.find(patient,urn,req.
VAL=urn)}
patient 30 FREE L LAB.C.PAT ?SPS[sps]|1
patient.header.line 92 FREE L VAL=%LAB.C.PAT.hdr.line(IF{LAB.P.SPEC.patient;@LAB.P.S
VAL=PEC.patient})
patient.header.line.name 92 FREE L VAL=%LAB.C.PAT.hdr.line(IF{LAB.P.SPEC.patient;@LAB.P.S
VAL=PEC.patient},"N")
patient.mpi 25 URN L MRI.PAT
pending.time 8 PINT R ?SPS[sps]|22
postarc.od.txt 1 FREE L VAL=/PA.TXT
postarc.status.num 1 INT R VAL=997
prefix 2 FREE L ?SPS[sps]|9
prefix.before.cancel 2 FREE L ?SPS[sps]B|0
preview.mode 1 FREE L
priority 1 FREE L ?SPS[sps]|25
pso.change.status 1 YN L ?SPS[sps]A|14
qa.hold 1 YN L ?SPS[sps]|24
qc 1 YN L ?SPS[sps]A|19
queued.for.emr 1 YN L ?SPS[sps]|23
receive.site 10 FREE L LAB.C.SITE ?SPS[sps]A|5
received.by 10 FREE L MIS.USER ?SPS[sps]|12
received.date 8 DATE L ?SPS[sps]|3
received.time 4 HHMMU L ?SPS[sps]|4
received.year 4 PINT R VAL=@LAB.P.SPEC.received.date$4
recv.date.or.year 8 PINT R
recv.date.tform 5 FREE L VAL=IF{@received.date^X "T"_IF{X=@.today "";%Z.date.su
VAL=b(X,@.today)^X<0;"+"_X}^X,IF{L(X)<6 X;X$2_"&
VAL=lt;<"}}
report.last.printed 8 PINT R ?SPS[sps]|16
report.last.printed.date 8 DATE L VAL=IF{@report.last.printed^XX %Z.date.in.magic(XX+@en
VAL=tered.offset)}
report.last.printed.time 4 HHMM L VAL=IF{@report.last.printed^XX %Z.time.out(XX+@entered
VAL=.offset)}
req.number 8 FREE L VAL=@LAB.C.REQ.number[@LAB.P.SPEC.req.urn]
req.urn 10 URN L LAB.C.REQ ?SPS[sps]|8
reuse 1 YN L
rpt.argument.string 0 FREE L VAL=/ARG
rpt.compile.copies.to 1 YN L VAL=%LAB.C.RB.copies.to("")
rpt.compile.dx 1 YN L VAL=%LAB.P.SPEC.cmpl.dx(LAB.P.SPEC.urn)
rpt.compile.markers 1 YN L VAL=IF{%LAB.P.MARK.strings(LAB.P.SPEC.urn,"P",^@Root(@
VAL=LAB.P.SPEC.markers.display)[LAB.P.SPEC.urn],IF{MKR
VAL=LEN;72}),"Y"}
rpt.compile.other.doctors 1 YN L VAL=%LAB.C.REQ.cmpl.oth.docs(LAB.P.SPEC.urn,@LAB.P.SPE
VAL=C.req.urn)
rpt.compile.related.dx 1 YN L VAL=%LAB.P.SPEC.cmpl.dx.rel(LAB.P.SPEC.urn)
rpt.format 10 FREE L LAB.C.RFMT
rpt.specimen.sort.key 20 FREE L
rpt.specimen.sort.key2 20 FREE L
rpt.specimen.sort.key3 20 FREE L
section 10 FREE L LAB.P.SECT
section2 10 FREE L
set.last.activity 0 FREE L VAL=@.sd-@LAB.P.SPEC.entered.offset^@LAB.P.SPEC.last.a
VAL=ctivity
set.report.last.printed 0 FREE L VAL=@.sd-@LAB.P.SPEC.entered.offset^@LAB.P.SPEC.report
VAL=.last.printed
signed.out.status 1 INT R VAL=@LAB.P.SPEC.status.int=990
signed.out.status.num 1 INT R VAL=990
snomed.rt 1 FREE L VAL=IF{IF{/LAB.P.SNOMED.VERSION;@LAB.P.SPEC.snomed.ver
VAL=sion[IF{urn;/urn}];@LAB.STATUS.snomed.version}$2="
VAL=RT" 1}
snomed.version 6 FREE L ?SPS[sps]A|21
spec.slide.count 3 PDEC R ?SPS[sps]A|15
spec.type 10 FREE L LAB.P.STYPE ?SPS[sps]|5
spec.type.abbrev 10 FREE L VAL=@LAB.P.STYPE.abbrev[@spec.type]
spec.type.cds 15 FREE L MIS.SCREEN ?SPS[sps]A|6
spec.type.name 30 FREE L VAL=@LAB.P.STYPE.name[@spec.type]
specimen.date 8 DATE L ?SPS[sps]|6
specimen.header.line 92 FREE L VAL=%LAB.P.SPEC.hdr.line(LAB.P.SPEC.urn)
specimen.time 4 HHMMU L ?SPS[sps]|7
status 4 FREE L ?SPS[sps]|2
status.before.cancel 4 FREE L ?SPS[sps]|15
status.int 2 INT R ?SPS[sps]|19
status.name 15 FREE L VAL=@LAB.PARAM.pth.status.val.name[@LAB.P.SPEC.status]
subm.doc.addr.and.phone 91 FREE L VAL=%LAB.C.SPEC.doc.addr(@LAB.P.SPEC.subm.doctor,@LAB.
VAL=P.SPEC.req.urn,"AP")
subm.doc.address 75 FREE L VAL=%LAB.C.SPEC.doc.addr(@LAB.P.SPEC.subm.doctor,@LAB.
VAL=P.SPEC.req.urn,"A")
subm.doc.city 30 FREE L VAL=%LAB.C.SPEC.doc.addr(@LAB.P.SPEC.subm.doctor,@LAB.
VAL=P.SPEC.req.urn,"C")
subm.doc.email 40 FREE L VAL=%LAB.C.SPEC.doc.addr(@LAB.P.SPEC.subm.doctor,@LAB.
VAL=P.SPEC.req.urn,"E")
subm.doc.fax 18 FREE L VAL=%LAB.C.SPEC.doc.addr(@LAB.P.SPEC.subm.doctor,@LAB.
VAL=P.SPEC.req.urn,"F")
subm.doc.lis.city 30 FREE L VAL=%LAB.C.SPEC.client.mult.doc.addr(@LAB.P.SPEC.subm.
VAL=doctor,@LAB.P.SPEC.req.urn,"C")
subm.doc.lis.city.st.zip 44 FREE L VAL=%LAB.C.SPEC.client.mult.doc.addr(@LAB.P.SPEC.subm.
VAL=doctor,@LAB.P.SPEC.req.urn,"CSZ")
subm.doc.lis.email 40 FREE L VAL=%LAB.C.SPEC.client.mult.doc.addr(@LAB.P.SPEC.subm.
VAL=doctor,@LAB.P.SPEC.req.urn,"E")
subm.doc.lis.fax 18 FREE L VAL=%LAB.C.SPEC.client.mult.doc.addr(@LAB.P.SPEC.subm.
VAL=doctor,@LAB.P.SPEC.req.urn,"F")
subm.doc.lis.phone 18 FREE L VAL=%LAB.C.SPEC.client.mult.doc.addr(@LAB.P.SPEC.subm.
VAL=doctor,@LAB.P.SPEC.req.urn,"P")
subm.doc.lis.state 2 FREE L VAL=%LAB.C.SPEC.client.mult.doc.addr(@LAB.P.SPEC.subm.
VAL=doctor,@LAB.P.SPEC.req.urn,"ST")
subm.doc.lis.street.addr 30 FREE L VAL=%LAB.C.SPEC.client.mult.doc.addr(@LAB.P.SPEC.subm.
VAL=doctor,@LAB.P.SPEC.req.urn,"S")
subm.doc.lis.street.addr2 30 FREE L VAL=%LAB.C.SPEC.client.mult.doc.addr(@LAB.P.SPEC.subm.
VAL=doctor,@LAB.P.SPEC.req.urn,"S2")
subm.doc.lis.zip 10 FREE L VAL=%LAB.C.SPEC.client.mult.doc.addr(@LAB.P.SPEC.subm.
VAL=doctor,@LAB.P.SPEC.req.urn,"Z")
subm.doc.name 30 FREE L VAL=IF{@LAB.P.SPEC.subm.doc.non.dict.name;@MIS.DOC.DIC
VAL=T.name[@LAB.P.SPEC.subm.doctor]}
subm.doc.non.dict.name 30 FREE L ?SPS[sps]A|1
subm.doc.phone 15 FREE L VAL=%LAB.C.SPEC.doc.addr(@LAB.P.SPEC.subm.doctor,@LAB.
VAL=P.SPEC.req.urn,"P")
subm.doc.state 2 FREE L VAL=%LAB.C.SPEC.doc.addr(@LAB.P.SPEC.subm.doctor,@LAB.
VAL=P.SPEC.req.urn,"ST")
subm.doc.street 30 FREE L VAL=%LAB.C.SPEC.doc.addr(@LAB.P.SPEC.subm.doctor,@LAB.
VAL=P.SPEC.req.urn,"S")
subm.doc.zip 10 FREE L VAL=%LAB.C.SPEC.doc.addr(@LAB.P.SPEC.subm.doctor,@LAB.
VAL=P.SPEC.req.urn,"Z")
subm.doctor 10 FREE L MIS.DOC.DICT ?SPS[sps]|11
submitted.date.and.time 13 FREE L VAL=%Z.date.out(@LAB.P.SPEC.specimen.date)_" "_@LAB.P.
VAL=SPEC.specimen.time
submitted.date.tform 5 FREE L VAL=IF{@specimen.date^X "T"_IF{X=@.today "";%Z.date.su
VAL=b(X,@.today)^X<0;"+"_X}}
time 4 HHMMU L
tissue.key.num 3 PINT R ?SPS[sps]A|17
turn.around.hours 4 PDEC R ?SPS[sps]|26
type.of.specimen 10 CHOICE L ?SPS[sps]B|2
wkld.function 10 FREE L LAB.C.WL.FUNC ?SPS[sps]|14
yn 1 YN L
Ì € i 2
lab.p.spec.addenda.sections (addenda.sections)
[urn, addenda.section]
?SPS[sps]AD[spr]
Field Name Len Dat Typ J DPM Offset/Local/VAL
addenda.section 10 FREE L LAB.P.SECT spr
addenda.section.last.q 2 PINT R ?SPS[sps]AD[spr]|0
Ì € i 2
lab.p.spec.assign.tos (assign.tos)
[urn, assign.to]
?SPS[sps]AT[gu]
Field Name Len Dat Typ J DPM Offset/Local/VAL
assign.to 10 FREE L MIS.USER gu
Ì € i 2
lab.p.spec.cancel.comments (cancel.comments)
[urn, cancel.comment.q]
?SPS[sps]CC[spsCC]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cancel.comment.q 2 PINT R spsCC
any.cancel.comments 1 YN L VAL=IF{@LAB.P.SPEC.cancel.comments[LAB.P.SPEC.urn,1] "
VAL=Y";"N"}
any.extern.cancel.comment 1 YN L VAL=IF{""^YY^XX,DO{+@LAB.P.SPEC.cancel.comments[LAB.L.
VAL=SPEC.urn,YY]^YY&'XX IF{@LAB.P.SPEC.cancel.comment[
VAL=YY]:0S#0="@";"Y"^XX}},""^YY,XX;"N"}
cancel.comment 60 FREE L ?SPS[sps]CC[spsCC]
cancel.comment.external 1 YN L VAL=IF{@LAB.P.SPEC.cancel.comment:0S#0="@" "N";"Y"}
cancel.comment.internal 1 YN L VAL=IF{@LAB.P.SPEC.cancel.comment:0S#0="@" "Y";"N"}
Ì € i 2
lab.p.spec.changed.numbers (changed.numbers)
[urn, changed.number.q]
?SPS[sps]CNU[spsCQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
changed.number.q 2 PINT R spsCQ
changed.number.part 5 PINT R ?SPS[sps]CNU[spsCQ]|2
changed.prefix 2 FREE L ?SPS[sps]CNU[spsCQ]|1
changed.received.date 8 DATE L ?SPS[sps]CNU[spsCQ]|0
last.changed.number 13 FREE L VAL=IF{@changed.received.date[1] %LAB.P.SPEC.changed.n
VAL=um(urn)}
Ì € i 2
lab.p.spec.clinical.alerts (clinical.alerts)
[urn, clin.alert]
?SPS[sps]CLA[gqa]
Field Name Len Dat Typ J DPM Offset/Local/VAL
clin.alert 10 FREE L MIS.CLIN.ALERT gqa
Ì € i 2
lab.p.spec.clinical.alerts.dtl (clinical.alerts.detail)
[urn,clin.alert, clin.alerts.details]
?SPS[sps]CLA[gqa]D[aqaDE]
Field Name Len Dat Typ J DPM Offset/Local/VAL
clin.alerts.details 72 FREE L aqaDE
Ì € i 2
lab.p.spec.closed.worksheets (closed.worksheets)
[urn, closed.worksheet.q]
?SPS[sps]CW[spsWq]
Field Name Len Dat Typ J DPM Offset/Local/VAL
closed.worksheet.q 2 PINT R spsWq
any.closed.workbatches 1 YN L VAL=IF{@LAB.P.SPEC.closed.worksheets[LAB.P.SPEC.urn,1]
VAL= "Y";"N"}
closed.wb.closed.date 8 DATE L ?SPS[sps]CW[spsWq]|4
closed.wb.closed.user 10 FREE L MIS.USER ?SPS[sps]CW[spsWq]|5
closed.workbatch.date 8 DATE L ?SPS[sps]CW[spsWq]|1
closed.workbatch.id 24 FREE L VAL=(@closed.worksheet,%Z.date.out(@closed.workbatch.d
VAL=ate),"#"_@closed.workbatch.number)
closed.workbatch.id.2 41 FREE L VAL=(@closed.worksheet,%Z.date.out(@closed.workbatch.d
VAL=ate),"#"_@closed.workbatch.number,"CLOSED:",%Z.dat
VAL=e.out(@closed.wb.closed.date))
closed.workbatch.number 3 PINT R ?SPS[sps]CW[spsWq]|2
closed.workbatch.urn 10 PINT R LAB.P.WB ?SPS[sps]CW[spsWq]|3
closed.worksheet 10 FREE L LAB.P.WS ?SPS[sps]CW[spsWq]|0
Ì € i 2
lab.p.spec.comments (comments)
[urn, comment.q]
?SPS[sps]C[spsC]
Field Name Len Dat Typ J DPM Offset/Local/VAL
comment.q 2 PINT R spsC
any.external.spec.comment 1 YN L VAL=IF{""^YY^XX,DO{+@LAB.P.SPEC.comments[LAB.P.SPEC.ur
VAL=n,YY]^YY&'XX IF{@LAB.P.SPEC.comment[YY]:0S#0="@";"
VAL=Y"^XX}},""^YY,XX;"N"}
any.spec.comments 1 YN L VAL=IF{@LAB.P.SPEC.comments[LAB.P.SPEC.urn,1] "Y";"N"}
comment 60 FREE L ?SPS[sps]C[spsC]
spec.comment.external 1 YN L VAL=IF{@LAB.P.SPEC.comment:0S#0="@" "N";"Y"}
spec.comment.internal 1 YN L VAL=IF{@LAB.P.SPEC.comment:0S#0="@" "Y";"N"}
Ì € i 2
lab.p.spec.deleted.orders (deleted.orders)
[urn, del.q]
?SPS[sps]DO[spsDO]
Field Name Len Dat Typ J DPM Offset/Local/VAL
del.q 2 PINT R spsDO
del.comment 50 FREE L ?SPS[sps]DO[spsDO]|6
del.count 2 PINT R ?SPS[sps]DO[spsDO]|2
del.date 8 DATE L ?SPS[sps]DO[spsDO]|3
del.module 1 CHOICE L ?SPS[sps]DO[spsDO]|1
del.proc.abbrev.w.ct 17 FREE L VAL=@LAB.P.TERM.abbrev[@del.test.proc]_("\"_@LAB.P.SPE
VAL=C.del.count'="\1"'="\")
del.source 10 FREE L LAB.M.SRC ?SPS[sps]DO[spsDO]|7
del.spec.desc 10 FREE L LAB.M.SPDESC ?SPS[sps]DO[spsDO]|8
del.test.proc 10 URN L LAB.P.TERM ?SPS[sps]DO[spsDO]|0
del.time 4 HHMM L ?SPS[sps]DO[spsDO]|4
del.user 10 FREE L MIS.USER ?SPS[sps]DO[spsDO]|5
Ì € i 2
lab.p.spec.final.sign.outs (final.sign.outs)
[urn, final.sign.q]
?SPS[sps]FS[spsFS]
Field Name Len Dat Typ J DPM Offset/Local/VAL
final.sign.q 2 PINT R spsFS
final.sign.date 8 DATE L ?SPS[sps]FS[spsFS]|1
final.sign.electron.flg 1 FREE L VAL=IF{@final.sign.electronic="Y" "*"}
final.sign.electronic 1 YN L ?SPS[sps]FS[spsFS]|2
final.sign.entry 10 FREE L ?SPS[sps]FS[spsFS]|4
final.sign.entry.date 8 DATE L VAL=%Z.date.in.magic(@LAB.P.SPEC.entered.offset+@LAB.P
VAL=.SPEC.final.sign.entry)
final.sign.entry.time 4 HHMM L VAL=%Z.time.out(@LAB.P.SPEC.entered.offset+@LAB.P.SPEC
VAL=.final.sign.entry)
final.sign.out 10 FREE L MIS.USER ?SPS[sps]FS[spsFS]|0
final.sign.user 10 FREE L MIS.USER ?SPS[sps]FS[spsFS]|3
Ì € i 2
lab.p.spec.findings (findings)
[urn, find.sect]
?SPS[sps]F[spr]
Field Name Len Dat Typ J DPM Offset/Local/VAL
find.sect 10 FREE L LAB.P.SECT spr
adden.text.from.mis.edit 1 YN L VAL=IF{+@addendum[urn,find.sect,addenda.q,0][""] "Y";"
VAL=N"}
codes.section 1 FREE L VAL=(find.sect=.CO)
concepts.section 1 FREE L VAL=(find.sect=.CT)
find.any.data 1 FREE L ?SPS[sps]F[spr]|6
find.any.prompt.res 1 YN L ?SPS[sps]F[spr]|3
find.dictated.by 30 FREE L MIS.USER ?SPS[sps]F[spr]|2
find.internal 1 YN L ?SPS[sps]F[spr]|7
find.last.edit.date 8 DATE L VAL=%Z.date.in.magic(@LAB.P.SPEC.entered.offset+@LAB.P
VAL=.SPEC.find.last.edit.sec)
find.last.edit.sec 9 PINT R ?SPS[sps]F[spr]|0
find.last.edit.time 4 HHMM L VAL=%Z.time.out(@LAB.P.SPEC.entered.offset+@LAB.P.SPEC
VAL=.find.last.edit.sec)
find.last.edit.user 10 FREE L MIS.USER ?SPS[sps]F[spr]|1
find.max.length 2 PINT R ?SPS[sps]F[spr]|5
find.snomed.version 3 FREE L ?SPS[sps]F[spr]SV|0
find.workload 10 FREE L LAB.C.WL.FUNC ?SPS[sps]F[spr]|4
list.section 1 FREE L VAL=IF{@codes.section;@concepts.section;@LAB.P.SECT.ty
VAL=pe="LIST"}
postarc.txt.from.mis.edit 1 YN L VAL=IF{+@postarc.text[urn,find.sect,postarc.q,0][""] "
VAL=Y";"N"}
ques.section 1 FREE L VAL=(@LAB.P.SECT.type="QUES")
set.last.edit.sec 10 PINT R VAL=IF{@entered.offset @.sd-@entered.offset;0}
text.from.mis.edit 1 YN L VAL=IF{+@findings.text[urn,find.sect,0][""] "Y";"N"}
text.section 1 FREE L VAL=(@LAB.P.SECT.type="TEXT")
tr.seconds 10 PINT R ?SPS[sps]F[spr]TS|3
tr.stats.chars 6 PINT R ?SPS[sps]F[spr]TS|2
tr.stats.lines 6 PINT R ?SPS[sps]F[spr]TS|0
tr.stats.words 6 PINT R ?SPS[sps]F[spr]TS|1
xref.text.from.mis.edit 1 YN L VAL=IF{+@xref.text[urn,find.sect,xref.q,0][""] "Y";"N"
VAL=}
Ì € i 2
lab.p.spec.addenda (addenda)
[urn,find.sect, addenda.q]
?SPS[sps]F[spr]A[spsAQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
addenda.q 3 PINT R spsAQ
addendum.date 8 DATE L VAL=%Z.date.in.magic(@LAB.P.SPEC.entered.offset+@LAB.P
VAL=.SPEC.addendum.sec)
addendum.dictated.by 10 FREE L MIS.USER ?SPS[sps]F[spr]A[spsAQ]|2
addendum.final.so.date 8 DATE L ?SPS[sps]F[spr]A[spsAQ]|4
addendum.sec 10 PINT R ?SPS[sps]F[spr]A[spsAQ]|0
addendum.time 4 HHMM L VAL=%Z.time.out(@LAB.P.SPEC.entered.offset+@LAB.P.SPEC
VAL=.addendum.sec)
addendum.user 10 FREE L MIS.USER ?SPS[sps]F[spr]A[spsAQ]|1
fso.achange.status 1 YN L ?SPS[sps]F[spr]A[spsAQ]|3
Ì € i 2
lab.p.spec.addendum (addendum)
[urn,find.sect,addenda.q, addendum.q]
?SPS[sps]F[spr]A[spsAQ]T[spsAT]
Field Name Len Dat Typ J DPM Offset/Local/VAL
addendum.q 3 PINT R spsAT
addendum.line 92 FREE L ?SPS[sps]F[spr]A[spsAQ]T[spsAT]
Ì € i 2
lab.p.spec.addendum.final.sign (addendum.fso)
[urn,find.sect,addenda.q, final.asign.q]
?SPS[sps]F[spr]A[spsAQ]FS[spsAF]
Field Name Len Dat Typ J DPM Offset/Local/VAL
final.asign.q 2 PINT R spsAF
final.asign.date 8 DATE L ?SPS[sps]F[spr]A[spsAQ]FS[spsAF]|1
final.asign.electron.flg 1 FREE L VAL=IF{@final.asign.electronic="Y" "*"}
final.asign.electronic 1 YN L ?SPS[sps]F[spr]A[spsAQ]FS[spsAF]|2
final.asign.entry 10 FREE L ?SPS[sps]F[spr]A[spsAQ]FS[spsAF]|4
final.asign.entry.date 8 DATE L VAL=%Z.date.in.magic(@LAB.P.SPEC.entered.offset+@LAB.P
VAL=.SPEC.final.asign.entry)
final.asign.entry.time 4 HHMM L VAL=%Z.time.out(@LAB.P.SPEC.entered.offset+@LAB.P.SPEC
VAL=.final.asign.entry)
final.asign.out 10 FREE L MIS.USER ?SPS[sps]F[spr]A[spsAQ]FS[spsAF]|0
final.asign.user 10 FREE L MIS.USER ?SPS[sps]F[spr]A[spsAQ]FS[spsAF]|3
Ì € i 2
lab.p.spec.addendum.prelim.sig (addendum.pso)
[urn,find.sect,addenda.q, prelim.asign.q]
?SPS[sps]F[spr]A[spsAQ]PS[spsAP]
Field Name Len Dat Typ J DPM Offset/Local/VAL
prelim.asign.q 2 PINT R spsAP
prelim.asign.date 8 DATE L ?SPS[sps]F[spr]A[spsAQ]PS[spsAP]|1
prelim.asign.electron.flg 1 FREE L VAL=IF{@prelim.asign.electronic="Y" "*"}
prelim.asign.electronic 1 YN L ?SPS[sps]F[spr]A[spsAQ]PS[spsAP]|2
prelim.asign.entry 10 FREE L ?SPS[sps]F[spr]A[spsAQ]PS[spsAP]|4
prelim.asign.entry.date 8 DATE L VAL=%Z.date.in.magic(@LAB.P.SPEC.entered.offset+@LAB.P
VAL=.SPEC.prelim.asign.entry)
prelim.asign.entry.time 4 HHMM L VAL=%Z.time.out(@LAB.P.SPEC.entered.offset+@LAB.P.SPEC
VAL=.prelim.asign.entry)
prelim.asign.out 10 FREE L MIS.USER ?SPS[sps]F[spr]A[spsAQ]PS[spsAP]|0
prelim.asign.user 10 FREE L MIS.USER ?SPS[sps]F[spr]A[spsAQ]PS[spsAP]|3
Ì € i 2
lab.p.spec.asaved.text (asaved.text)
[urn,find.sect,addenda.q, asaved.text.q]
?SPS[sps]F[spr]A[spsAQ]X[astQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
asaved.text.q 3 PINT R astQ
asaved.text.line 92 FREE L ?SPS[sps]F[spr]A[spsAQ]X[astQ]
Ì € i 2
lab.p.spec.codes (codes)
[urn,find.sect, code]
?SPS[sps]F[spr]C[spt]
Field Name Len Dat Typ J DPM Offset/Local/VAL
code 10 URN L LAB.P.TERM spt
Ì € i 2
lab.p.spec.codes.linked (codes.linked)
[urn,find.sect,code, code.link]
?SPS[sps]F[spr]C[spt]T[spt2]
Field Name Len Dat Typ J DPM Offset/Local/VAL
code.link 10 URN L LAB.P.TERM spt2
Ì € i 2
lab.p.spec.code.source (codes.source)
[urn,find.sect,code,code.link, code.source]
?SPS[sps]F[spr]C[spt]T[spt2]S[spr]
Field Name Len Dat Typ J DPM Offset/Local/VAL
code.source 10 FREE L LAB.P.SECT spr
code.changed 10 FREE L MIS.USER ?SPS[sps]F[spr]C[spt]T[spt2]S[spr]|0
Ì € i 2
lab.p.spec.concepts (concepts)
[urn,find.sect, concept]
?SPS[sps]F[spr]CT[ssp]
Field Name Len Dat Typ J DPM Offset/Local/VAL
concept 18 INT R LAB.C.CONCEPT ssp
Ì € i 2
lab.p.spec.concepts.linked (concepts.linked)
[urn,find.sect,concept, concept.linked]
?SPS[sps]F[spr]CT[ssp]C[ssp2]
Field Name Len Dat Typ J DPM Offset/Local/VAL
concept.linked 18 INT R LAB.C.CONCEPT ssp2
Ì € i 2
lab.p.spec.concepts.source (concepts.source)
[urn,find.sect,concept,concept.linked, concept.source]
?SPS[sps]F[spr]CT[ssp]C[ssp2]S[spr]
Field Name Len Dat Typ J DPM Offset/Local/VAL
concept.source 10 FREE L LAB.P.SECT spr
concept.changed 10 FREE L MIS.USER ?SPS[sps]F[spr]CT[ssp]C[ssp2]S[spr]|0
Ì € i 2
lab.p.spec.edit.history (edit.history)
[urn,find.sect, edit.q]
?SPS[sps]F[spr]E[spsFE]
Field Name Len Dat Typ J DPM Offset/Local/VAL
edit.q 3 PINT R spsFE
edit.date 8 DATE L VAL=%Z.date.in.magic(@LAB.P.SPEC.entered.offset+@LAB.P
VAL=.SPEC.edit.sec)
edit.sec 9 PINT R ?SPS[sps]F[spr]E[spsFE]|0
edit.time 4 HHMM L VAL=%Z.time.out(@LAB.P.SPEC.entered.offset+@LAB.P.SPEC
VAL=.edit.sec)
edit.user 10 FREE L MIS.USER ?SPS[sps]F[spr]E[spsFE]|1
Ì € i 2
lab.p.spec.findings.icd.codes (findings.icd.codes)
[urn,find.sect, find.icd.code]
?SPS[sps]F[spr]IC[drb]
Field Name Len Dat Typ J DPM Offset/Local/VAL
find.icd.code 7 FREE L LAB.C.DIAG drb
Ì € i 2
lab.p.spec.findings.markers (findings.markers)
[urn,find.sect, find.marker]
?SPS[sps]F[spr]M[spf]
Field Name Len Dat Typ J DPM Offset/Local/VAL
find.marker 10 FREE L LAB.P.MARK spf
Ì € i 2
lab.p.spec.findings.free.text (findings.text)
[urn,find.sect, find.text.q]
?SPS[sps]F[spr]T[spsFt]
Field Name Len Dat Typ J DPM Offset/Local/VAL
find.text.q 3 PINT R spsFt
find.text.line 92 FREE L ?SPS[sps]F[spr]T[spsFt]
Ì € i 2
lab.p.spec.histology (histology)
[urn,find.sect, hist.q]
?SPS[sps]F[spr]H[spsHQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
hist.q 2 PINT R spsHQ
block 6 FREE L ?SPS[sps]F[spr]H[spsHQ]|1
cassette 3 PINT R ?SPS[sps]F[spr]H[spsHQ]|3
confirmed 3 FREE L ?SPS[sps]F[spr]H[spsHQ]|5
disposition 10 FREE L ?SPS[sps]F[spr]H[spsHQ]|7
ee.comment 1 YN L ?SPS[sps]F[spr]H[spsHQ]|6
hist.comment.file 0 FREE L ?SPS[sps]F[spr]H[spsHQ]C
hist.proc 10 URN L LAB.P.TERM ?SPS[sps]F[spr]H[spsHQ]|8
hist.tissue 10 FREE L ?SPS[sps]F[spr]H[spsHQ]|0
hist.tissue.id 4 FREE L ?SPS[sps]F[spr]H[spsHQ]|10
hist.tissue.key 3 PINT R ?SPS[sps]F[spr]H[spsHQ]|9
level 3 PINT R ?SPS[sps]F[spr]H[spsHQ]|4
pieces 3 PINT R ?SPS[sps]F[spr]H[spsHQ]|2
Ì € i 2
lab.p.spec.histology.comments (histology.comments)
[urn,find.sect,hist.q, hist.comment.q]
?SPS[sps]F[spr]H[spsHQ]C[spsHC]
Field Name Len Dat Typ J DPM Offset/Local/VAL
hist.comment.q 3 PINT R spsHC
hist.comment.line 60 FREE L ?SPS[sps]F[spr]H[spsHQ]C[spsHC]
Ì € i 2
lab.p.spec.histology.procs (histology.procedures)
[urn,find.sect,hist.q, hproc.q]
?SPS[sps]F[spr]H[spsHQ]P[spsHP]
Field Name Len Dat Typ J DPM Offset/Local/VAL
hproc.q 3 PINT R spsHP
hproc.blk 6 FREE L ?SPS[sps]F[spr]H[spsHQ]P[spsHP]|1
hproc.level 3 FREE L ?SPS[sps]F[spr]H[spsHQ]P[spsHP]|2
hproc.procedure 10 URN L LAB.P.TERM ?SPS[sps]F[spr]H[spsHQ]P[spsHP]|0
Ì € i 2
lab.p.spec.histology.2 (histology.2)
[urn,find.sect, hist2.q]
?SPS[sps]F[spr]H[spsH2]
Field Name Len Dat Typ J DPM Offset/Local/VAL
hist2.q 2 PINT R spsH2
hist2.blocks 6 FREE L ?SPS[sps]F[spr]H[spsH2]|2
hist2.id 4 FREE L ?SPS[sps]F[spr]H[spsH2]|1
hist2.levels 3 PINT R ?SPS[sps]F[spr]H[spsH2]|3
hist2.tissue 30 FREE L ?SPS[sps]F[spr]H[spsH2]|0
hist2.tissue.urn 10 URN L LAB.P.TERM ?SPS[sps]F[spr]H[spsH2]|4
Ì € i 2
lab.p.spec.histology.2.levels (histology.2.levels)
[urn,find.sect,hist2.q, hist2.level]
?SPS[sps]F[spr]H[spsH2]L[spsHL]
Field Name Len Dat Typ J DPM Offset/Local/VAL
hist2.level 10 FREE L spsHL
hist2.comment 60 FREE L ?SPS[sps]F[spr]H[spsH2]L[spsHL]|2
hist2.hist2.q 2 PINT R ?SPS[sps]F[spr]H[spsH2]L[spsHL]|0
hist2.procedure 10 URN L LAB.P.TERM ?SPS[sps]F[spr]H[spsH2]L[spsHL]|1
Ì € i 2
lab.p.spec.histology.2.comment (histology.2.comments)
[urn,find.sect,hist2.q,hist2.level, hist2.comment.q]
?SPS[sps]F[spr]H[spsH2]L[spsHL]C[spsHT]
Field Name Len Dat Typ J DPM Offset/Local/VAL
hist2.comment.q 3 PINT R spsHT
hist2.comment.line 60 FREE L ?SPS[sps]F[spr]H[spsH2]L[spsHL]C[spsHT]
Ì € i 2
lab.p.spec.pictures (pictures)
[urn,find.sect, pic.q]
?SPS[sps]F[spr]PIC[spsPQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
pic.q 3 PINT R spsPQ
pic.desc 60 FREE L ?SPS[sps]F[spr]PIC[spsPQ]|0
pic.filename 20 FREE L ?SPS[sps]F[spr]PIC[spsPQ]|3
pic.print.ext 1 YN L ?SPS[sps]F[spr]PIC[spsPQ]|2
pic.urn 3 PINT R ?SPS[sps]F[spr]PIC[spsPQ]|1
Ì € i 2
lab.p.spec.pic.annotations (pic.annotations)
[urn,find.sect,pic.q, pic.anno.q]
?SPS[sps]F[spr]PIC[spsPQ]A[spsPa]
Field Name Len Dat Typ J DPM Offset/Local/VAL
pic.anno.q 2 PINT R spsPa
pic.anno 200 FREE L ?SPS[sps]F[spr]PIC[spsPQ]A[spsPa]
Ì € i 2
lab.p.spec.pic.text (pic.text)
[urn,find.sect,pic.q, pic.text.q]
?SPS[sps]F[spr]PIC[spsPQ]T[spsPt]
Field Name Len Dat Typ J DPM Offset/Local/VAL
pic.text.q 3 PINT R spsPt
editor.doc 0 FREE L
pic.text.line 60 FREE L ?SPS[sps]F[spr]PIC[spsPQ]T[spsPt]
Ì € i 2
lab.p.spec.postarc (postarc)
[urn,find.sect, postarc.q]
?SPS[sps]F[spr]PA[spsVQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
postarc.q 3 PINT R spsVQ
fso.pchange.status 1 YN L ?SPS[sps]F[spr]PA[spsVQ]|3
postarc.date 8 DATE L VAL=%Z.date.in.magic(@LAB.P.SPEC.entered.offset+@LAB.P
VAL=.SPEC.postarc.sec)
postarc.dictated.by 10 FREE L MIS.USER ?SPS[sps]F[spr]PA[spsVQ]|2
postarc.final.so.date 8 DATE L ?SPS[sps]F[spr]PA[spsVQ]|4
postarc.sec 10 PINT R ?SPS[sps]F[spr]PA[spsVQ]|0
postarc.time 4 HHMM L VAL=%Z.time.out(@LAB.P.SPEC.entered.offset+@LAB.P.SPEC
VAL=.postarc.sec)
postarc.user 10 FREE L MIS.USER ?SPS[sps]F[spr]PA[spsVQ]|1
Ì € i 2
lab.p.spec.postarc.final.sign (postarc.fso)
[urn,find.sect,postarc.q, final.psign.q]
?SPS[sps]F[spr]PA[spsVQ]FS[spsVF]
Field Name Len Dat Typ J DPM Offset/Local/VAL
final.psign.q 2 PINT R spsVF
final.psign.date 8 DATE L ?SPS[sps]F[spr]PA[spsVQ]FS[spsVF]|1
final.psign.electron.flg 1 FREE L VAL=IF{@final.psign.electronic="Y" "*"}
final.psign.electronic 1 YN L ?SPS[sps]F[spr]PA[spsVQ]FS[spsVF]|2
final.psign.entry 9 PINT R ?SPS[sps]F[spr]PA[spsVQ]FS[spsVF]|4
final.psign.entry.date 8 DATE L VAL=%Z.date.in.magic(@LAB.P.SPEC.entered.offset+@LAB.P
VAL=.SPEC.final.psign.entry)
final.psign.entry.time 4 HHMM L VAL=%Z.time.out(@LAB.P.SPEC.entered.offset+@LAB.P.SPEC
VAL=.final.psign.entry)
final.psign.out 10 FREE L MIS.USER ?SPS[sps]F[spr]PA[spsVQ]FS[spsVF]|0
final.psign.user 10 FREE L MIS.USER ?SPS[sps]F[spr]PA[spsVQ]FS[spsVF]|3
Ì € i 2
lab.p.spec.postarc.prelim.sig (postarc.pso)
[urn,find.sect,postarc.q, prelim.psign.q]
?SPS[sps]F[spr]PA[spsVQ]PS[spsVP]
Field Name Len Dat Typ J DPM Offset/Local/VAL
prelim.psign.q 2 PINT R spsVP
prelim.psign.date 8 DATE L ?SPS[sps]F[spr]PA[spsVQ]PS[spsVP]|1
prelim.psign.electron.flg 1 FREE L VAL=IF{@prelim.psign.electronic="Y" "*"}
prelim.psign.electronic 1 YN L ?SPS[sps]F[spr]PA[spsVQ]PS[spsVP]|2
prelim.psign.entry 9 PINT R ?SPS[sps]F[spr]PA[spsVQ]PS[spsVP]|4
prelim.psign.entry.date 8 DATE L VAL=%Z.date.in.magic(@LAB.P.SPEC.entered.offset+@LAB.P
VAL=.SPEC.prelim.psign.entry)
prelim.psign.entry.time 4 HHMM L VAL=%Z.time.out(@LAB.P.SPEC.entered.offset+@LAB.P.SPEC
VAL=.prelim.psign.entry)
prelim.psign.out 10 FREE L MIS.USER ?SPS[sps]F[spr]PA[spsVQ]PS[spsVP]|0
prelim.psign.user 10 FREE L MIS.USER ?SPS[sps]F[spr]PA[spsVQ]PS[spsVP]|3
Ì € i 2
lab.p.spec.postarc.text (postarc.text)
[urn,find.sect,postarc.q, postarctxt.q]
?SPS[sps]F[spr]PA[spsVQ]T[spsVT]
Field Name Len Dat Typ J DPM Offset/Local/VAL
postarctxt.q 3 PINT R spsVT
postarctxt.line 92 FREE L ?SPS[sps]F[spr]PA[spsVQ]T[spsVT]
Ì € i 2
lab.p.spec.psaved.text (psaved.text)
[urn,find.sect,postarc.q, psaved.text.q]
?SPS[sps]F[spr]PA[spsVQ]X[stpQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
psaved.text.q 3 PINT R stpQ
psaved.text.line 92 FREE L ?SPS[sps]F[spr]PA[spsVQ]X[stpQ]
Ì € i 2
lab.p.spec.rad.data (rad.data)
[urn,find.sect, rad.order]
?SPS[sps]F[spr]RAD[ro]
Field Name Len Dat Typ J DPM Offset/Local/VAL
rad.order 12 PINT R ro
rad.category 30 FREE L ?SPS[sps]F[spr]RAD[ro]|0
rad.order.num 9 FREE L ?SPS[sps]F[spr]RAD[ro]|2
rad.outcome 10 FREE L ?SPS[sps]F[spr]RAD[ro]|3
rad.procedure 30 FREE L ?SPS[sps]F[spr]RAD[ro]|1
Ì € i 2
lab.p.spec.saved.text (saved.text)
[urn,find.sect, saved.text.q]
?SPS[sps]F[spr]X[stQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
saved.text.q 3 PINT R stQ
saved.text.attributes 92 FREE L ?SPS[sps]F[spr]X[stQ]A
saved.text.line 92 FREE L ?SPS[sps]F[spr]X[stQ]
Ì € i 2
lab.p.spec.workload (workload)
[urn,find.sect, workload.function]
?SPS[sps]F[spr]W[scf]
Field Name Len Dat Typ J DPM Offset/Local/VAL
workload.function 10 FREE L LAB.C.WL.FUNC scf
workload.count 2 PINT R ?SPS[sps]F[spr]W[scf]|0
Ì € i 2
lab.p.spec.xref.tissues (xref.tissues)
[urn,find.sect, xref.q]
?SPS[sps]F[spr]X[sprXQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
xref.q 3 PINT R sprXQ
xref.tissue 10 URN L LAB.P.TERM ?SPS[sps]F[spr]X[sprXQ]|0
xref.tissue.key 3 PINT R ?SPS[sps]F[spr]X[sprXQ]|1
Ì € i 2
lab.p.spec.xref.text (xref.text)
[urn,find.sect,xref.q, xref.text.q]
?SPS[sps]F[spr]X[sprXQ]T[spsXQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
xref.text.q 3 PINT R spsXQ
xref.text.line 92 FREE L ?SPS[sps]F[spr]X[sprXQ]T[spsXQ]
Ì € i 2
lab.p.spec.xsaved.text (xsaved.text)
[urn,find.sect,xref.q, xsaved.text.q]
?SPS[sps]F[spr]X[sprXQ]X[xstQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
xsaved.text.q 3 PINT R xstQ
xsaved.text.line 92 FREE L ?SPS[sps]F[spr]X[sprXQ]X[xstQ]
Ì € i 2
lab.p.spec.follow.up (follow.up)
[urn, follow.up.date,follow.up.form]
?SPS[sps]FU[spsFD,ssx]
Field Name Len Dat Typ J DPM Offset/Local/VAL
follow.up.date 8 DATE L spsFD
follow.up.form 10 FREE L LAB.C.FORM ssx
Ì € i 2
lab.p.spec.icd.codes (icd.codes)
[urn, icd.code]
?SPS[sps]IC[drb]
Field Name Len Dat Typ J DPM Offset/Local/VAL
icd.code 7 FREE L LAB.C.DIAG drb
Ì € i 2
lab.p.spec.inface.audit.trail (infce.audit.trail)
[urn, infce.audit.q]
?SPS[sps]IF[spsiq]
Field Name Len Dat Typ J DPM Offset/Local/VAL
infce.audit.q 2 PINT R spsiq
infce.audit.date 8 DATE L VAL=%Z.date.in.magic(@LAB.P.SPEC.infce.audit.seconds+@
VAL=LAB.P.SPEC.entered.offset)
infce.audit.error 50 FREE L ?SPS[sps]IF[spsiq]|6
infce.audit.infce 10 FREE L LAB.C.INFC.DICT?SPS[sps]IF[spsiq]|1
infce.audit.record 9 PINT R LAB.C.INFCE ?SPS[sps]IF[spsiq]|2
infce.audit.record.type 1 CHOICE L ?SPS[sps]IF[spsiq]|0
infce.audit.seconds 5 PINT R ?SPS[sps]IF[spsiq]|4
infce.audit.status 6 CHOICE L ?SPS[sps]IF[spsiq]|3
infce.audit.time 4 HHMM L VAL=%Z.time.out(@LAB.P.SPEC.infce.audit.seconds+@LAB.P
VAL=.SPEC.entered.offset)
infce.audit.user 10 FREE L MIS.USER ?SPS[sps]IF[spsiq]|5
Ì € i 2
lab.p.spec.internal.reports (int.reports)
[urn, int.report]
?SPS[sps]IR[spsIR]
Field Name Len Dat Typ J DPM Offset/Local/VAL
int.report 21 FREE L spsIR
int.report.printed 6 PINT R ?SPS[sps]IR[spsIR]|0
set.int.report.last.print 0 FREE L VAL=@.sd-@LAB.P.SPEC.entered.offset^@LAB.P.SPEC.int.re
VAL=port.printed[/IRPT]
Ì € i 2
lab.p.spec.markers (markers)
[urn, marker]
?SPS[sps]MK[spf]
Field Name Len Dat Typ J DPM Offset/Local/VAL
marker 10 FREE L LAB.P.MARK spf
Ì € i 2
lab.p.spec.oe.orders (oe.orders)
[urn, oe.order]
?SPS[sps]OEO[po]
Field Name Len Dat Typ J DPM Offset/Local/VAL
oe.order 10 URN L OE.ORD po
oe.order.can.rej 1 FREE L ?SPS[sps]OEO[po]|1
oe.order.dummy 1 FREE L ?SPS[sps]OEO[po]|0
Ì € i 2
lab.p.spec.ordered.procs (ordered.procs)
[urn, ordered.proc]
?SPS[sps]OP[spt]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ordered.proc 10 URN L LAB.P.TERM spt
ordered.proc.ct 2 PINT R ?SPS[sps]OP[spt]|0
ordered.proc.def.profile 10 URN L LAB.P.TERM ?SPS[sps]OP[spt]|1
ordered.proc.logic 0 FREE L
Ì € i 2
lab.p.spec.page.breaks (page.breaks)
[urn, pb.rpt.format,pb.section,pb.line]
?SPS[sps]PB[scg,spr,spsPB]
Field Name Len Dat Typ J DPM Offset/Local/VAL
pb.rpt.format 10 FREE L LAB.C.RFMT scg
pb.section 10 FREE L LAB.P.SECT spr
pb.line 3 INT R spsPB
pb.new.page 1 PINT R ?SPS[sps]PB[scg,spr,spsPB]
Ì € i 2
lab.p.spec.postarc.doctors (postarc.doctors)
[urn, postarc.doc]
?SPS[sps]PD[ggg]
Field Name Len Dat Typ J DPM Offset/Local/VAL
postarc.doc 10 FREE L MIS.DOC.DICT ggg
postarc.doc.address.1 45 FREE L ?SPS[sps]PD[ggg]A|0
postarc.doc.address.2 45 FREE L ?SPS[sps]PD[ggg]A|1
postarc.doc.address.3 45 FREE L ?SPS[sps]PD[ggg]A|2
postarc.doc.address.4 45 FREE L ?SPS[sps]PD[ggg]A|3
postarc.doc.name 30 FREE L VAL=IF{@LAB.P.SPEC.postarc.doc.non.dict.name;@MIS.DOC.
VAL=DICT.name[@LAB.P.SPEC.postarc.doc]}
postarc.doc.non.dict.name 30 FREE L ?SPS[sps]PD[ggg]|0
Ì € i 2
lab.p.spec.postarc.sections (postarc.sections)
[urn, postarc.section]
?SPS[sps]PA[spr]
Field Name Len Dat Typ J DPM Offset/Local/VAL
postarc.section 10 FREE L LAB.P.SECT spr
postarc.section.last.q 2 PINT R ?SPS[sps]PA[spr]|0
Ì € i 2
lab.p.spec.prelim.sign.outs (prelim.sign.outs)
[urn, prelim.sign.q]
?SPS[sps]PS[spsPS]
Field Name Len Dat Typ J DPM Offset/Local/VAL
prelim.sign.q 2 PINT R spsPS
prelim.sign.date 8 DATE L ?SPS[sps]PS[spsPS]|1
prelim.sign.electron.flg 1 FREE L VAL=IF{@prelim.sign.electronic="Y" "*"}
prelim.sign.electronic 1 YN L ?SPS[sps]PS[spsPS]|2
prelim.sign.entry 10 FREE L ?SPS[sps]PS[spsPS]|4
prelim.sign.entry.date 8 DATE L VAL=%Z.date.in.magic(@LAB.P.SPEC.entered.offset+@LAB.P
VAL=.SPEC.prelim.sign.entry)
prelim.sign.entry.time 4 HHMM L VAL=%Z.time.out(@LAB.P.SPEC.entered.offset+@LAB.P.SPEC
VAL=.prelim.sign.entry)
prelim.sign.out 10 FREE L MIS.USER ?SPS[sps]PS[spsPS]|0
prelim.sign.user 10 FREE L MIS.USER ?SPS[sps]PS[spsPS]|3
Ì € i 2
lab.p.spec.procs (procs)
[urn, proc]
?SPS[sps]P[spt]
Field Name Len Dat Typ J DPM Offset/Local/VAL
proc 10 URN L LAB.P.TERM spt
proc.comp.date 8 DATE L VAL=%Z.date.in.magic(@LAB.P.SPEC.entered.offset+@LAB.P
VAL=.SPEC.proc.comp.sec)
proc.comp.sec 10 PINT R ?SPS[sps]P[spt]|3
proc.comp.time 4 HHMM L VAL=%Z.time.out(@LAB.P.SPEC.entered.offset+@LAB.P.SPEC
VAL=.proc.comp.sec)
proc.comp.user 10 FREE L MIS.USER ?SPS[sps]P[spt]|4
proc.complete 1 YN L ?SPS[sps]P[spt]|2
proc.ct 2 PINT R ?SPS[sps]P[spt]|0
proc.site 10 FREE L LAB.C.SITE ?SPS[sps]P[spt]|1
Ì € i 2
lab.p.spec.qa.history (qa.history)
[urn, qa.hx.q]
?SPS[sps]QAX[qaQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
qa.hx.q 3 PINT R qaQ
qa.hx.category.qa 10 FREE L LAB.P.CATEGORY ?SPS[sps]QAX[qaQ]|3
qa.hx.date.time 10 PINT R ?SPS[sps]QAX[qaQ]|2
qa.hx.decision 1 CHOICE L ?SPS[sps]QAX[qaQ]|0
qa.hx.user 10 FREE L MIS.USER ?SPS[sps]QAX[qaQ]|1
Ì € i 2
lab.p.spec.queries (queries)
[urn, query]
?SPS[sps]Q[ggv]
Field Name Len Dat Typ J DPM Offset/Local/VAL
query 10 FREE L MIS.QUERY ggv
any.ext.query 1 YN L VAL=%LAB.P.SPEC.any.ext.queries(LAB.P.SPEC.urn)
any.query 1 YN L VAL=IF{+@LAB.P.SPEC.queries[LAB.P.SPEC.urn,""] "Y";"N"
VAL=}
query.external 1 YN L VAL=IF{@LAB.P.SPEC.response#0="@" "N";@MIS.QUERY.text#
VAL=0="@" "N";"Y"}
query.internal 1 YN L VAL=IF{@LAB.P.SPEC.response#0="@" "Y";@MIS.QUERY.text#
VAL=0="@" "Y";"N"}
query.map.date 8 DATE L ?SPS[sps]Q[ggv]INIT
query.on.stype.cds 1 YN L VAL=IF{@LAB.P.SPEC.spec.type.cds^MIS.SCREEN.mnemonic_.
VAL==. "N";@MIS.SCREEN.fields "Y";"N"}
query.text 60 FREE L VAL=@MIS.QUERY.text[LAB.P.SPEC.query]
response 75 QRY.RESP L ?SPS[sps]Q[ggv]|0
Ì € i 2
lab.p.spec.queries.mult (queries.mult)
[urn,query, query.seq.no]
?SPS[sps]Q[ggv]M[ggvN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
query.seq.no 3 PINT R ggvN
any.external.query.mult 1 YN L VAL=%LAB.P.SPEC.any.ext.queries(LAB.P.SPEC.urn)
query.external.mult 1 YN L VAL=IF{@LAB.P.SPEC.query.response#0="@" "N";@MIS.QUERY
VAL=.text#0="@" "N";"Y"}
query.internal.mult 1 YN L VAL=IF{@LAB.P.SPEC.query.response#0="@" "Y";@MIS.QUERY
VAL=.text#0="@" "Y";"N"}
query.response 75 QRY.RESP L ?SPS[sps]Q[ggv]M[ggvN]|0
query.text.mult 60 FREE L VAL=@MIS.QUERY.text[LAB.P.SPEC.query.seq.no]
Ì € i 2
lab.p.spec.reports (reports)
[urn, report]
?SPS[sps]RP[sch]
Field Name Len Dat Typ J DPM Offset/Local/VAL
report 10 FREE L LAB.C.RPT sch
last.other.report 8 PINT R ?SPS[sps]RP[sch]|0
last.other.report.date 8 DATE L VAL=IF{@last.other.report^XX %Z.date.in.magic(XX+@ente
VAL=red.offset)}
last.other.report.time 4 HHMM L VAL=IF{@last.other.report^XX %Z.time.out(XX+@entered.o
VAL=ffset)}
set.last.other.report 0 FREE L VAL=%LAB.C.SPEC.set.report.flag(^@LAB.P.SPEC.reports,@
VAL=LAB.P.SPEC.entered.offset)
Ì € i 2
lab.p.spec.report.times (report.times)
[urn,report, report.time]
?SPS[sps]RP[sch]T[spsrt]
Field Name Len Dat Typ J DPM Offset/Local/VAL
report.time 9 PINT R spsrt
report.time.print.flag 1 FREE L ?SPS[sps]RP[sch]T[spsrt]|0
Ì € i 2
lab.p.spec.reports.by.doctor (reports.by.doctor)
[urn,report, rpt.doctor]
?SPS[sps]RP[sch]D[ggg]
Field Name Len Dat Typ J DPM Offset/Local/VAL
rpt.doctor 10 FREE L MIS.DOC.DICT ggg
last.doctor.report 8 PINT R ?SPS[sps]RP[sch]D[ggg]|0
last.doctor.report.date 8 DATE L VAL=IF{@last.doctor.report^XX %Z.date.in.magic(XX+@ent
VAL=ered.offset)}
last.doctor.report.time 4 HHMM L VAL=IF{@last.doctor.report^XX %Z.time.out(XX+@entered.
VAL=offset)}
set.last.doctor.report 0 FREE L VAL=%LAB.C.SPEC.set.report.flag(^@LAB.P.SPEC.reports.b
VAL=y.doctor,@LAB.P.SPEC.entered.offset)
Ì € i 2
lab.p.spec.rpt.times.by.doctor (report.times.by.doctor)
[urn,report,rpt.doctor, report.doctor.time]
?SPS[sps]RP[sch]D[ggg]T[spsRd]
Field Name Len Dat Typ J DPM Offset/Local/VAL
report.doctor.time 9 PINT R spsRd
report.doctor.time.flag 1 FREE L ?SPS[sps]RP[sch]D[ggg]T[spsRd]|0
Ì € i 2
lab.p.spec.reports.by.location (reports.by.location)
[urn,report, rpt.location]
?SPS[sps]RP[sch]L[ggn]
Field Name Len Dat Typ J DPM Offset/Local/VAL
rpt.location 10 FREE L MIS.LOCN.DICT ggn
last.location.report 8 PINT R ?SPS[sps]RP[sch]L[ggn]|0
last.location.report.date 8 DATE L VAL=IF{@last.location.report^XX %Z.date.in.magic(XX+@e
VAL=ntered.offset)}
last.location.report.time 4 HHMM L VAL=IF{@last.location.report^XX %Z.time.out(XX+@entere
VAL=d.offset)}
set.last.location.report 0 FREE L VAL=%LAB.C.SPEC.set.report.flag(^@LAB.P.SPEC.reports.b
VAL=y.location,@LAB.P.SPEC.entered.offset)
Ì € i 2
lab.p.spec.rpt.times.by.loc (report.times.by.location)
[urn,report,rpt.location, report.location.time]
?SPS[sps]RP[sch]L[ggn]T[spsRl]
Field Name Len Dat Typ J DPM Offset/Local/VAL
report.location.time 9 PINT R spsRl
report.location.time.flag 1 FREE L ?SPS[sps]RP[sch]L[ggn]T[spsRl]|0
Ì € i 2
lab.p.spec.result.prompts (result.prompts)
[urn, result.prompt]
?SPS[sps]QS[spp]
Field Name Len Dat Typ J DPM Offset/Local/VAL
result.prompt 15 FREE L LAB.P.PROMPT spp
any.res 1 YN L VAL=IF{+@LAB.P.SPEC.questionnaires[LAB.P.SPEC.urn,""]
VAL="Y";"N"}
result 92 FREE L ?SPS[sps]QS[spp]|0
result.abn.flag 3 FREE L ?SPS[sps]QS[spp]|2
result.default 92 FREE L ?SPS[sps]QS[spp]|3
result.text 92 FREE L ?SPS[sps]QS[spp]|1
Ì € i 2
lab.p.spec.result.mult (result.mult)
[urn,result.prompt, mult.result.q]
?SPS[sps]QS[spp,spsRQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
mult.result.q 2 PINT R spsRQ
mult.result 30 FREE L ?SPS[sps]QS[spp,spsRQ]|0
mult.result.abn.flag 3 FREE L ?SPS[sps]QS[spp,spsRQ]|2
mult.result.text 60 FREE L ?SPS[sps]QS[spp,spsRQ]|1
Ì € i 2
lab.p.spec.result.prompt.q (result.prompts.q)
[urn, result.prompt.q]
?SPS[sps]QSQ[sppq]
Field Name Len Dat Typ J DPM Offset/Local/VAL
result.prompt.q 4 PINT R sppq
Ì € i 2
lab.p.spec.result.prompts.qa (result.prompts.qa)
[urn,result.prompt.q, result.prompt.qa]
?SPS[sps]QSQ[sppq]Q[spp]
Field Name Len Dat Typ J DPM Offset/Local/VAL
result.prompt.qa 15 FREE L LAB.P.PROMPT spp
result.data ?SPS[sps]QSQ[sppq]Q[spp]
Ì € i 2
lab.p.spec.signout.audit (signout.audit)
[urn, signout.audit.q]
?SPS[sps]SX[spsSX]
Field Name Len Dat Typ J DPM Offset/Local/VAL
signout.audit.q 3 PINT R spsSX
signout.audit.action 6 CHOICE L ?SPS[sps]SX[spsSX]|6
signout.audit.addn.sect 10 FREE L LAB.P.SECT ?SPS[sps]SX[spsSX]|3
signout.audit.comment 50 FREE L ?SPS[sps]SX[spsSX]|8
signout.audit.date 8 DATE L ?SPS[sps]SX[spsSX]|1
signout.audit.date.time 9 PINT R ?SPS[sps]SX[spsSX]|5
signout.audit.edit.date 8 DATE L VAL=%Z.date.in.magic(@signout.audit.date.time+@entered
VAL=.offset)
signout.audit.edit.time 4 HHMM L VAL=%Z.time.out(@signout.audit.date.time+@entered.offs
VAL=et)
signout.audit.electronic 1 YN L ?SPS[sps]SX[spsSX]|7
signout.audit.sign 10 FREE L MIS.USER ?SPS[sps]SX[spsSX]|0
signout.audit.type 2 CHOICE L ?SPS[sps]SX[spsSX]|2
signout.audit.type.out 6 FREE L VAL=IF{@signout.audit.type^XX="P" "PRELIM";XX="F" "FIN
VAL=AL";XX="PA" "PADDEN";XX="FA" "FADDEN";XX="PP" "PPA
VAL=RC";XX="FP" "FPARC"}
signout.audit.user 10 FREE L MIS.USER ?SPS[sps]SX[spsSX]|4
Ì € i 2
lab.p.spec.site.orders (site.orders)
[urn, site.order.site,site.order]
?SPS[sps]SO[scl,spt]
Field Name Len Dat Typ J DPM Offset/Local/VAL
site.order.site 10 FREE L LAB.C.SITE scl
site.order 10 URN L LAB.P.TERM spt
Ì € i 2
lab.p.spec.sites (sites)
[urn, site]
?SPS[sps]LS[scl]
Field Name Len Dat Typ J DPM Offset/Local/VAL
site 10 FREE L LAB.C.SITE scl
current.site 10 FREE L
have.at.site 1 YN L VAL=IF{@p.LAB.P.SPEC.site.status[urn,/.LAB.SITE]\2=1 "
VAL=Y";"N"}
need.at.site 1 YN L VAL=IF{@p.LAB.P.SPEC.site.status[urn,/.LAB.SITE]=2 "Y"
VAL=;"N"}
need.spec.at.site 1 PINT R VAL=2
never.at.site 1 YN L VAL=IF{@Not(@p.LAB.P.SPEC.site.status[urn,/.LAB.SITE])
VAL= "Y";"N"}
received.at.site 1 YN L VAL=IF{@p.LAB.P.SPEC.site.status[urn,/.LAB.SITE]=3 "Y"
VAL=;"N"}
set.site.received 0 FREE L VAL=@.sd-@LAB.P.SPEC.entered.offset^@LAB.P.SPEC.site.r
VAL=eceived
site.batch 20 FREE L ?SPS[sps]LS[scl]|6
site.final.destination 1 YN L ?SPS[sps]LS[scl]|4
site.next.sites 40 FREE L ?SPS[sps]LS[scl]|5
site.received 8 PINT R ?SPS[sps]LS[scl]|1
site.received.by 10 FREE L MIS.USER ?SPS[sps]LS[scl]|2
site.received.date 8 DATE L VAL=IF{@site.received^XX %Z.date.in.magic(XX+@entered.
VAL=offset)}
site.received.time 4 HHMM L VAL=IF{@site.received^XX %Z.time.out(XX+@entered.offse
VAL=t)}
site.recvd.from.site 10 FREE L LAB.C.SITE ?SPS[sps]LS[scl]|3
site.status 1 CHOICE L ?SPS[sps]LS[scl]|0
was.at.site 1 YN L VAL=IF{@p.LAB.P.SPEC.site.status[urn,/.LAB.SITE]=0 "Y"
VAL=;"N"}
| | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | |