Ì € i 2
ee.addenda.signouts.es
[ee.addenda.so.sect, ee.addenda.signout.q]
/SPS.ESA[spr]A[soQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ee.addenda.signout.q 3 PINT R soQ
ee.addenda.f.date 8 DATE L /SPS.ESA[spr]A[soQ]|4
ee.addenda.f.q 3 PINT R /SPS.ESA[spr]A[soQ]|5
ee.addenda.f.sign 10 FREE L MIS.USER /SPS.ESA[spr]A[soQ]|3
ee.addenda.p.date 8 DATE L /SPS.ESA[spr]A[soQ]|1
ee.addenda.p.q 3 PINT R /SPS.ESA[spr]A[soQ]|2
ee.addenda.p.sign 10 FREE L MIS.USER /SPS.ESA[spr]A[soQ]|0
Ì i 2
ee.addenda.signouts
[ee.addendum.section]
/SPS.AS[spr]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ee.addendum.section 10 FREE L LAB.P.SECT spr
ee.addendum.change 1 YN L /SPS.AS[spr]|0
ee.addendum.disp.q 10 FREE L /SPS.AS[spr]|2
ee.addendum.q 3 PINT R /SPS.AS[spr]|1
Ì € i 2
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
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
ee.corrected.reasons
[ee.corrected.reason.q]
/SPS.CRR[spsCR]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ee.corrected.reason.q 3 PINT R spsCR
ee.corrected.reason 60 TEXT L /SPS.CRR[spsCR]
Ì i 2
ee.signout.es
[ee.signout.user]
/SPS.ES[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.ES[gu]|3
ee.signout.change.p 1 YN L /SPS.ES[gu]|2
ee.signout.final.date 8 DATE L /SPS.ES[gu]|1
ee.signout.prelim.date 8 DATE L /SPS.ES[gu]|0
Ì i 2
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.list 92 FREE L /spHP[sps,spsHQ]|10
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
main
[urn]
$(SP)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 $(SP)SPS[sps]A|9
any.result.abn.flags 1 YN L $(SP)SPS[sps]|21
archive.date 8 DATE L $(SP)SPS[sps]A|18
assign.to.name 20 FREE L VAL=@MIS.USER.name[@assign.to]
assign.to.old 10 FREE L MIS.USER $(SP)SPS[sps]A|7
bar.code.number 6 FREE L $(SP)SPS[sps]A|8
calls.completed 2 PINT R $(SP)SPS[sps]CA
cancel.comments.file 0 FREE L $(SP)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 $(SP)SPS[sps]A|4
cancelled.user 10 FREE L MIS.USER $(SP)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
correctable 1 YN L $(SP)SPS[sps]B|11
corrected.by.spec 30 URN L LAB.P.SPEC $(SP)SPS[sps]B|3
date 8 DATE L
db.prefix 2 FREE L $(SP)SPS[sps]|25
department 10 FREE L LAB.P.DEPT $(SP)SPS[sps]A|0
department.name 30 FREE L VAL=@LAB.P.DEPT.name[@department]
doctor 10 FREE L MIS.DOC
entered.date 8 DATE L VAL=%Z.date.in.magic(@LAB.P.SPEC.entered.offset)
entered.offset 9 PINT R $(SP)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 $(SP)SPS[sps]A|2
final.signout.date 8 DATE L $(SP)SPS[sps]A|12
findings.category 10 FREE L LAB.P.CATEGORY $(SP)SPS[sps]B|4
findings.category.or.date 8 DATE L $(SP)SPS[sps]B|10
findings.category.or.user 10 FREE L MIS.USER $(SP)SPS[sps]B|9
findings.category.orig 10 FREE L LAB.P.CATEGORY $(SP)SPS[sps]B|7
findings.category.qa 10 FREE L LAB.P.CATEGORY $(SP)SPS[sps]B|6
findings.category.user 10 FREE L MIS.USER $(SP)SPS[sps]B|8
fso.change.status 1 YN L $(SP)SPS[sps]A|13
histology.status 6 CHOICE L VAL=@LAB.P.SPEC.find.status[.HIST2]
histology.status.date 8 DATE L
historical 1 YN L $(SP)SPS[sps]A|16
id 15 URN L LAB.P.SPEC VAL=@LAB.P.SPEC.number
id.any.external 30 FREE L
id.any.internal 30 FREE L
id.correctable 25 FREE L
id.for.cancel 30 FREE L
id.for.ee.result 25 FREE L
id.not.cancelled.internal 30 FREE L
id.signed 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 $(SP)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.hub 9 PINT R $(SP)SPS[sps]|18
last.updated 10 PINT R $(SP)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)
name.by.effective.date 30 FREE L VAL=%ADM.PAT.name.by.date(@patient,@received.date)
nameof.sort.x 10 FREE L
number 15 FREE L $(SP)SPS[sps]|0
number.part.only 6 PINT R $(SP)SPS[sps]|10
number.sort 13 FREE L $(SP)SPS[sps]|20
order.location 10 FREE L MIS.LOCN $(SP)SPS[sps]A|11
order.site 10 FREE L LAB.C.SITE $(SP)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 $(SP)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 $(SP)SPS[sps]|22
prefix 2 FREE L $(SP)SPS[sps]|9
prefix.before.cancel 2 FREE L $(SP)SPS[sps]B|1
prefixes 5 FREE L VAL=(@LAB.P.SPEC.prefix_(":"_@LAB.P.SPEC.db.prefix'=":
VAL="))
prelim.sout.status.num 1 INT R VAL=980
priority 1 FREE L $(SP)SPS[sps]|27
pso.change.status 1 YN L $(SP)SPS[sps]A|14
qa.hold 1 YN L $(SP)SPS[sps]|26
qc 1 YN L $(SP)SPS[sps]A|19
queued.for.hub 1 YN L $(SP)SPS[sps]|23
receive.site 10 FREE L LAB.C.SITE $(SP)SPS[sps]A|5
received.by 10 FREE L MIS.USER $(SP)SPS[sps]|12
received.date 8 DATE L $(SP)SPS[sps]|3
received.time 4 HHMMU L $(SP)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 $(SP)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 $(SP)SPS[sps]|8
reuse 1 YN L
rpt.ad.hoc.title 80 FREE L VAL=%LAB.P.SPEC.substitute("ad hoc title")
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.C.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.sort.key1.first.name 15 FREE L VAL=%LAB.P.SPEC.substitute("sort key 1 fnm")
rpt.sort.key1.last.name 20 FREE L VAL=%LAB.P.SPEC.substitute("sort key 1 lnm")
rpt.sort.key1.mi 2 FREE L VAL=%LAB.P.SPEC.substitute("sort key 1 mi")
rpt.sort.key1.name 30 FREE L VAL=%LAB.P.SPEC.substitute("sort key 1 nm")
rpt.sort.key1.namei 36 FREE L VAL=%LAB.P.SPEC.substitute("sort key 1 nmi")
rpt.sort.key1.sfxs 10 FREE L VAL=%LAB.P.SPEC.substitute("sort key 1 sfxs")
rpt.sort.key2.first.name 15 FREE L VAL=%LAB.P.SPEC.substitute("sort key 2 fnm")
rpt.sort.key2.last.name 20 FREE L VAL=%LAB.P.SPEC.substitute("sort key 2 lnm")
rpt.sort.key2.mi 2 FREE L VAL=%LAB.P.SPEC.substitute("sort key 2 mi")
rpt.sort.key2.name 30 FREE L VAL=%LAB.P.SPEC.substitute("sort key 2 nm")
rpt.sort.key2.namei 36 FREE L VAL=%LAB.P.SPEC.substitute("sort key 2 nmi")
rpt.sort.key2.sfxs 10 FREE L VAL=%LAB.P.SPEC.substitute("sort key 2 sfxs")
rpt.specimen.sort.key 20 FREE L VAL=%LAB.P.SPEC.substitute("sort key 1")
rpt.specimen.sort.key2 20 FREE L VAL=%LAB.P.SPEC.substitute("sort key 2")
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 BOOLEAN 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 5 FREE L $(SP)SPS[sps]A|20
spec.slide.count 3 PDEC R $(SP)SPS[sps]A|15
spec.type 10 FREE L LAB.P.STYPE $(SP)SPS[sps]|5
spec.type.abbrev 10 FREE L VAL=@LAB.P.STYPE.abbrev[@spec.type]
spec.type.cds 15 FREE L MIS.SCREEN $(SP)SPS[sps]A|6
spec.type.name 30 FREE L VAL=@LAB.P.STYPE.name[@spec.type]
specimen.date 8 DATE L $(SP)SPS[sps]|6
specimen.header.line 92 FREE L VAL=%LAB.P.SPEC.hdr.line(LAB.P.SPEC.urn)
specimen.header.line.hist 92 FREE L VAL=%LAB.P.SPEC.hdr.line(LAB.P.SPEC.urn,"H")
specimen.time 4 HHMMU L $(SP)SPS[sps]|7
status 4 FREE L $(SP)SPS[sps]|2
status.before.cancel 4 FREE L $(SP)SPS[sps]|15
status.int 2 INT R $(SP)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.first.name 15 FREE L VAL=%LAB.C.INT.doctor(IF{@LAB.P.SPEC.subm.doc.non.dict
VAL=.name;@LAB.P.SPEC.subm.doctor},1)
subm.doc.last.name 20 FREE L VAL=%LAB.C.INT.doctor(IF{@LAB.P.SPEC.subm.doc.non.dict
VAL=.name;@LAB.P.SPEC.subm.doctor},2)
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 35 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.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.mi 2 FREE L VAL=%LAB.C.INT.doctor(IF{@LAB.P.SPEC.subm.doc.non.dict
VAL=.name;@LAB.P.SPEC.subm.doctor},3)
subm.doc.name 30 FREE L VAL=IF{@LAB.P.SPEC.subm.doc.non.dict.name;@MIS.DOC.nam
VAL=e[@LAB.P.SPEC.subm.doctor]}
subm.doc.non.dict.name 30 FREE L $(SP)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.sfxs 10 FREE L VAL=%LAB.C.INT.doctor(IF{@LAB.P.SPEC.subm.doc.non.dict
VAL=.name;@LAB.P.SPEC.subm.doctor},4)
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 $(SP)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}}
temp.prefix 2 FREE L VAL=PS
temp.prefixes 5 FREE L VAL=(@t.LAB.P.SPEC.prefix_(":"_@t.LAB.P.SPEC.db.prefix
VAL='=":"))
time 4 HHMMU L
tissue.key.num 3 PINT R $(SP)SPS[sps]A|17
turn.around.hours 1 PDEC R $(SP)SPS[sps]|28
type.of.specimen 10 CHOICE L $(SP)SPS[sps]B|5
use.me 0 FREE L $(SP)SPS[sps]|24
wkld.function 10 FREE L LAB.C.WL.FUNC $(SP)SPS[sps]|14
word.db.doc 30 FREE L $(SP)SPS[sps]B|0
word.subfolder 10 FREE L $(SP)SPS[sps]B|2
yn 1 YN L
Ì € i 2
addenda.sections
[urn, addenda.section]
$(SP)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 $(SP)SPS[sps]AD[spr]|0
Ì € i 2
assign.tos
[urn, assign.to]
$(SP)SPS[sps]AT[gu]
Field Name Len Dat Typ J DPM Offset/Local/VAL
assign.to 10 FREE L MIS.USER gu
Ì € i 2
call.attempt
[urn, call.attempt.q]
$(SP)SPS[sps]CA[ssnca]
Field Name Len Dat Typ J DPM Offset/Local/VAL
call.attempt.q 2 PINT R ssnca
call.attempt.action 16 FREE L $(SP)SPS[sps]CA[ssnca]|2
call.attempt.cc.q 1 PINT R $(SP)SPS[sps]CA[ssnca]|5
call.attempt.comment 60 FREE L $(SP)SPS[sps]CA[ssnca]|4
call.attempt.date 8 DATE L $(SP)SPS[sps]CA[ssnca]|0
call.attempt.time 4 HHMM L $(SP)SPS[sps]CA[ssnca]|1
call.attempt.user 10 FREE L MIS.USER $(SP)SPS[sps]CA[ssnca]|3
Ì € i 2
cancel.comments
[urn, cancel.comment.q]
$(SP)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 TEXT L $(SP)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
changed.numbers
[urn, changed.number.q]
$(SP)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 $(SP)SPS[sps]CNU[spsCQ]|2
changed.prefix 2 FREE L $(SP)SPS[sps]CNU[spsCQ]|1
changed.received.date 8 DATE L $(SP)SPS[sps]CNU[spsCQ]|0
last.changed.number 15 FREE L VAL=IF{@changed.received.date[1] %LAB.P.SPEC.changed.n
VAL=um(urn)}
Ì € i 2
clinical.alerts
[urn, clin.alert]
$(SP)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
clinical.alerts.details
[urn,clin.alert, clin.alerts.details]
$(SP)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
closed.worksheets
[urn, closed.worksheet.q]
$(SP)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 $(SP)SPS[sps]CW[spsWq]|4
closed.wb.closed.user 10 FREE L MIS.USER $(SP)SPS[sps]CW[spsWq]|5
closed.workbatch.date 8 DATE L $(SP)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 $(SP)SPS[sps]CW[spsWq]|2
closed.workbatch.urn 10 PINT R LAB.P.WB $(SP)SPS[sps]CW[spsWq]|3
closed.worksheet 10 FREE L LAB.P.WS $(SP)SPS[sps]CW[spsWq]|0
Ì € i 2
comments
[urn, comment.q]
$(SP)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 TEXT L $(SP)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
corrected
[urn, corrected.q]
$(SP)SPS[sps]CR[spsCR]
Field Name Len Dat Typ J DPM Offset/Local/VAL
corrected.q 3 PINT R spsCR
corrected.date 8 DATE L VAL=%Z.date.in.magic(@LAB.P.SPEC.corrected.seconds)
corrected.seconds 9 PINT R $(SP)SPS[sps]CR[spsCR]|2
corrected.specimen 30 URN L LAB.P.SPEC $(SP)SPS[sps]CR[spsCR]|0
corrected.time 4 HHMM L VAL=%Z.time.out(@LAB.P.SPEC.corrected.seconds)
corrected.user 10 FREE L MIS.USER $(SP)SPS[sps]CR[spsCR]|1
Ì € i 2
corrected.reasons
[urn,corrected.q, corrected.reason.q]
$(SP)SPS[sps]CR[spsCR]R[spsCRQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
corrected.reason.q 3 PINT R spsCRQ
corrected.reason 60 TEXT L $(SP)SPS[sps]CR[spsCR]R[spsCRQ]
Ì € i 2
deleted.orders
[urn, del.q]
$(SP)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 $(SP)SPS[sps]DO[spsDO]|6
del.count 2 PINT R $(SP)SPS[sps]DO[spsDO]|2
del.date 8 DATE L $(SP)SPS[sps]DO[spsDO]|3
del.module 1 CHOICE L $(SP)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 $(SP)SPS[sps]DO[spsDO]|7
del.spec.desc 10 FREE L LAB.M.SPDESC $(SP)SPS[sps]DO[spsDO]|8
del.test.proc 10 URN L LAB.P.TERM $(SP)SPS[sps]DO[spsDO]|0
del.time 4 HHMM L $(SP)SPS[sps]DO[spsDO]|4
del.user 10 FREE L MIS.USER $(SP)SPS[sps]DO[spsDO]|5
Ì € i 2
final.sign.outs
[urn, final.sign.q]
$(SP)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 $(SP)SPS[sps]FS[spsFS]|1
final.sign.electron.flg 1 FREE L VAL=IF{@final.sign.electronic="Y" "*"}
final.sign.electronic 1 YN L $(SP)SPS[sps]FS[spsFS]|2
final.sign.entry 10 FREE L $(SP)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 $(SP)SPS[sps]FS[spsFS]|0
final.sign.out.name20 20 FREE L VAL=@UNV.USER.name[@final.sign.out]$20
final.sign.user 10 FREE L MIS.USER $(SP)SPS[sps]FS[spsFS]|3
Ì € i 2
findings
[urn, find.sect]
$(SP)SPS[sps]F[spr]
Field Name Len Dat Typ J DPM Offset/Local/VAL
find.sect 10 FREE L LAB.P.SECT spr
codes.section 1 FREE L VAL=(find.sect=.CO)
concepts.section 1 FREE L VAL=(find.sect=.CT)
find.any.data 1 FREE L $(SP)SPS[sps]F[spr]|6
find.any.prompt.res 1 YN L $(SP)SPS[sps]F[spr]|3
find.dictated.by 10 FREE L MIS.USER $(SP)SPS[sps]F[spr]|2
find.internal 1 YN L $(SP)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 $(SP)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 $(SP)SPS[sps]F[spr]|1
find.max.length 2 PINT R $(SP)SPS[sps]F[spr]|5
find.snomed.version 3 FREE L $(SP)SPS[sps]F[spr]SV|0
find.status 10 FREE L $(SP)SPS[sps]F[spr]|8
find.workload 10 FREE L LAB.C.WL.FUNC $(SP)SPS[sps]F[spr]|4
its.category 10 FREE L RAD.CAT $(SP)SPS[sps]F[spr]ITS|0
its.order 15 URN L RAD.ORD $(SP)SPS[sps]F[spr]ITS|1
its.order.num 9 FREE L $(SP)SPS[sps]F[spr]ITS|2
its.outcome 10 FREE L RAD.OUTCOME $(SP)SPS[sps]F[spr]ITS|5
its.procedure 10 FREE L RAD.PROC $(SP)SPS[sps]F[spr]ITS|3
its.service.date 8 DATE L $(SP)SPS[sps]F[spr]ITS|4
list.section 1 FREE L VAL=IF{@codes.section;@concepts.section;@LAB.P.SECT.ty
VAL=pe="LIST"}
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.section 1 FREE L VAL=(@LAB.P.SECT.type="TEXT")
tr.seconds 10 PINT R $(SP)SPS[sps]F[spr]TS|3
tr.stats.chars 6 PINT R $(SP)SPS[sps]F[spr]TS|2
tr.stats.lines 6 PINT R $(SP)SPS[sps]F[spr]TS|0
tr.stats.words 6 PINT R $(SP)SPS[sps]F[spr]TS|1
Ì € i 2
addenda
[urn,find.sect, addenda.q]
$(SP)SPS[sps]F[spr]A[spsAQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
addenda.q 3 PINT R spsAQ
add.tr.seconds 10 PINT R $(SP)SPS[sps]F[spr]A[spsAQ]TS|3
add.tr.stats.chars 6 PINT R $(SP)SPS[sps]F[spr]A[spsAQ]TS|2
add.tr.stats.lines 6 PINT R $(SP)SPS[sps]F[spr]A[spsAQ]TS|0
add.tr.stats.words 6 PINT R $(SP)SPS[sps]F[spr]A[spsAQ]TS|1
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 $(SP)SPS[sps]F[spr]A[spsAQ]|2
addendum.sec 10 PINT R $(SP)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 $(SP)SPS[sps]F[spr]A[spsAQ]|1
fso.achange.status 1 YN L $(SP)SPS[sps]F[spr]A[spsAQ]|3
Ì € i 2
addendum
[urn,find.sect,addenda.q, addendum.q]
$(SP)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 $(SP)SPS[sps]F[spr]A[spsAQ]T[spsAT]
Ì € i 2
addendum.fso
[urn,find.sect,addenda.q, final.asign.q]
$(SP)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 $(SP)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 $(SP)SPS[sps]F[spr]A[spsAQ]FS[spsAF]|2
final.asign.entry 10 FREE L $(SP)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 $(SP)SPS[sps]F[spr]A[spsAQ]FS[spsAF]|0
final.asign.user 10 FREE L MIS.USER $(SP)SPS[sps]F[spr]A[spsAQ]FS[spsAF]|3
Ì € i 2
addendum.pso
[urn,find.sect,addenda.q, prelim.asign.q]
$(SP)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 $(SP)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 $(SP)SPS[sps]F[spr]A[spsAQ]PS[spsAP]|2
prelim.asign.entry 10 FREE L $(SP)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 $(SP)SPS[sps]F[spr]A[spsAQ]PS[spsAP]|0
prelim.asign.user 10 FREE L MIS.USER $(SP)SPS[sps]F[spr]A[spsAQ]PS[spsAP]|3
Ì € i 2
asaved.text
[urn,find.sect,addenda.q, asaved.text.q]
$(SP)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 $(SP)SPS[sps]F[spr]A[spsAQ]X[astQ]
Ì € i 2
codes
[urn,find.sect, code]
$(SP)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
codes.linked
[urn,find.sect,code, code.link]
$(SP)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
codes.source
[urn,find.sect,code,code.link, code.source]
$(SP)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 $(SP)SPS[sps]F[spr]C[spt]T[spt2]S[spr]|0
Ì € i 2
concepts
[urn,find.sect, concept]
$(SP)SPS[sps]F[spr]CT[ssp]
Field Name Len Dat Typ J DPM Offset/Local/VAL
concept 18 PINT R LAB.C.CONCEPT ssp
Ì € i 2
concepts.linked
[urn,find.sect,concept, concept.linked]
$(SP)SPS[sps]F[spr]CT[ssp]C[ssp2]
Field Name Len Dat Typ J DPM Offset/Local/VAL
concept.linked 18 PINT R LAB.C.CONCEPT ssp2
Ì € i 2
concepts.source
[urn,find.sect,concept,concept.linked, concept.source]
$(SP)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 $(SP)SPS[sps]F[spr]CT[ssp]C[ssp2]S[spr]|0
Ì € i 2
edit.history
[urn,find.sect, edit.q]
$(SP)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 $(SP)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 $(SP)SPS[sps]F[spr]E[spsFE]|1
Ì € i 2
findings.icd.codes
[urn,find.sect, find.icd.code]
$(SP)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
findings.markers
[urn,find.sect, find.marker]
$(SP)SPS[sps]F[spr]M[ssk]
Field Name Len Dat Typ J DPM Offset/Local/VAL
find.marker 10 ALPHANUM L LAB.C.MARK ssk
Ì € i 2
findings.text
[urn,find.sect, find.text.q]
$(SP)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 $(SP)SPS[sps]F[spr]T[spsFt]
Ì € i 2
histology
[urn,find.sect, hist.q]
$(SP)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 $(SP)SPS[sps]F[spr]H[spsHQ]|1
cassette 3 PINT R $(SP)SPS[sps]F[spr]H[spsHQ]|3
confirmed 3 FREE L $(SP)SPS[sps]F[spr]H[spsHQ]|5
disposition 10 FREE L $(SP)SPS[sps]F[spr]H[spsHQ]|7
ee.comment 1 YN L $(SP)SPS[sps]F[spr]H[spsHQ]|6
hist.comment.file 0 FREE L $(SP)SPS[sps]F[spr]H[spsHQ]C
hist.proc 10 URN L LAB.P.TERM $(SP)SPS[sps]F[spr]H[spsHQ]|8
hist.tissue 10 FREE L $(SP)SPS[sps]F[spr]H[spsHQ]|0
hist.tissue.key 3 PINT R $(SP)SPS[sps]F[spr]H[spsHQ]|9
level 3 PINT R $(SP)SPS[sps]F[spr]H[spsHQ]|4
pieces 3 PINT R $(SP)SPS[sps]F[spr]H[spsHQ]|2
Ì € i 2
histology.comments
[urn,find.sect,hist.q, hist.comment.q]
$(SP)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 TEXT L $(SP)SPS[sps]F[spr]H[spsHQ]C[spsHC]
Ì € i 2
histology.2
[urn,find.sect, hist2.q]
$(SP)SPS[sps]F[spr]H[spsH2]
Field Name Len Dat Typ J DPM Offset/Local/VAL
hist2.q 2 PINT R spsH2
hist2.blocks 7 FREE L $(SP)SPS[sps]F[spr]H[spsH2]|2
hist2.id 4 FREE L $(SP)SPS[sps]F[spr]H[spsH2]|1
hist2.levels 3 PINT R $(SP)SPS[sps]F[spr]H[spsH2]|3
hist2.list 92 FREE L $(SP)SPS[sps]F[spr]H[spsH2]|6
hist2.pieces 3 PINT R $(SP)SPS[sps]F[spr]H[spsH2]|5
hist2.status 6 CHOICE L $(SP)SPS[sps]F[spr]H[spsH2]|7
hist2.status.sec 10 PINT R $(SP)SPS[sps]F[spr]H[spsH2]|8
hist2.tissue 15 FREE L $(SP)SPS[sps]F[spr]H[spsH2]|0
hist2.tissue.key 3 PINT R $(SP)SPS[sps]F[spr]H[spsH2]|9
hist2.tissue.urn 10 URN L LAB.P.TERM $(SP)SPS[sps]F[spr]H[spsH2]|4
histo.status.choices 31 FREE L VAL="BLOCKS,PREP,LEVELS,STAINS,DONE"
Ì € i 2
hist2.id.comments
[urn,find.sect,hist2.q, hist2.id.comment.q]
$(SP)SPS[sps]F[spr]H[spsH2]C[spsICQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
hist2.id.comment.q 3 PINT R spsICQ
hist2.id.comment.line 60 TEXT L $(SP)SPS[sps]F[spr]H[spsH2]C[spsICQ]
Ì € i 2
histology.2.blocks
[urn,find.sect,hist2.q, hist2.block]
$(SP)SPS[sps]F[spr]H[spsH2]B[spsHB]
Field Name Len Dat Typ J DPM Offset/Local/VAL
hist2.block 3 FREE L spsHB
hist2.add.levels 3 PINT R $(SP)SPS[sps]F[spr]H[spsH2]B[spsHB]|2
hist2.bl.status.sec 10 PINT R $(SP)SPS[sps]F[spr]H[spsH2]B[spsHB]|4
hist2.bl.status.user 10 FREE L MIS.USER $(SP)SPS[sps]F[spr]H[spsH2]B[spsHB]|5
hist2.block.levels 3 PINT R $(SP)SPS[sps]F[spr]H[spsH2]B[spsHB]|1
hist2.block.pieces 2 PINT R $(SP)SPS[sps]F[spr]H[spsH2]B[spsHB]|0
hist2.block.procedure 10 URN L LAB.P.TERM $(SP)SPS[sps]F[spr]H[spsH2]B[spsHB]|6
hist2.block.status 6 CHOICE L $(SP)SPS[sps]F[spr]H[spsH2]B[spsHB]|3
Ì € i 2
hist2.block.comments
[urn,find.sect,hist2.q,hist2.block, hist2.block.comm.q]
$(SP)SPS[sps]F[spr]H[spsH2]B[spsHB]C[spsBCQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
hist2.block.comm.q 3 PINT R spsBCQ
hist2.block.comm.line 60 TEXT L $(SP)SPS[sps]F[spr]H[spsH2]B[spsHB]C[spsBCQ]
Ì € i 2
histology.2.levels
[urn,find.sect,hist2.q, hist2.level]
$(SP)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 $(SP)SPS[sps]F[spr]H[spsH2]L[spsHL]|2
hist2.hist2.q 2 PINT R $(SP)SPS[sps]F[spr]H[spsH2]L[spsHL]|0
hist2.level.deleted 1 YN L $(SP)SPS[sps]F[spr]H[spsH2]L[spsHL]|7
hist2.level.status 6 CHOICE L $(SP)SPS[sps]F[spr]H[spsH2]L[spsHL]|3
hist2.lv.slide.printed 10 PINT R $(SP)SPS[sps]F[spr]H[spsH2]L[spsHL]|6
hist2.lv.status.sec 10 PINT R $(SP)SPS[sps]F[spr]H[spsH2]L[spsHL]|4
hist2.lv.status.user 10 FREE L MIS.USER $(SP)SPS[sps]F[spr]H[spsH2]L[spsHL]|5
hist2.procedure 10 URN L LAB.P.TERM $(SP)SPS[sps]F[spr]H[spsH2]L[spsHL]|1
set.slide.last.printed 10 PINT R VAL=@.sd-@LAB.P.SPEC.entered.offset^@LAB.P.SPEC.hist2.
VAL=lv.slide.printed
Ì € i 2
histology.2.comments
[urn,find.sect,hist2.q,hist2.level, hist2.comment.q]
$(SP)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 TEXT L $(SP)SPS[sps]F[spr]H[spsH2]L[spsHL]C[spsHT]
Ì € i 2
histology.2.disc
[urn,find.sect, hist2.disc.q]
$(SP)SPS[sps]F[spr]HD[spsHDQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
hist2.disc.q 3 PINT R spsHDQ
hist2.disc.date 8 DATE L $(SP)SPS[sps]F[spr]HD[spsHDQ]|0
hist2.disc.time 4 HHMMU L $(SP)SPS[sps]F[spr]HD[spsHDQ]|1
Ì € i 2
histology.2.discoms
[urn,find.sect,hist2.disc.q, hist2.discom.q]
$(SP)SPS[sps]F[spr]HD[spsHDQ]L[spsHDL]
Field Name Len Dat Typ J DPM Offset/Local/VAL
hist2.discom.q 3 PINT R spsHDL
hist2.discom.line 60 TEXT L $(SP)SPS[sps]F[spr]HD[spsHDQ]L[spsHDL]
Ì € i 2
histology.statuses
[urn,find.sect, histo.status]
$(SP)SPS[sps]F[spr]ST[spsHS]
Field Name Len Dat Typ J DPM Offset/Local/VAL
histo.status 6 CHOICE L spsHS
Ì € i 2
pictures
[urn,find.sect, pic.q]
$(SP)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 $(SP)SPS[sps]F[spr]PIC[spsPQ]|0
pic.filename 20 FREE L $(SP)SPS[sps]F[spr]PIC[spsPQ]|3
pic.print.ext 1 YN L $(SP)SPS[sps]F[spr]PIC[spsPQ]|2
pic.urn 3 PINT R $(SP)SPS[sps]F[spr]PIC[spsPQ]|1
Ì € i 2
pic.annotations
[urn,find.sect,pic.q, pic.anno.q]
$(SP)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 $(SP)SPS[sps]F[spr]PIC[spsPQ]A[spsPa]
Ì € i 2
pic.text
[urn,find.sect,pic.q, pic.text.q]
$(SP)SPS[sps]F[spr]PIC[spsPQ]T[spsPtq]
Field Name Len Dat Typ J DPM Offset/Local/VAL
pic.text.q 3 PINT R spsPtq
pic.text.line 60 TEXT L $(SP)SPS[sps]F[spr]PIC[spsPQ]T[spsPtq]
Ì € i 2
saved.text
[urn,find.sect, saved.text.q]
$(SP)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.line 92 FREE L $(SP)SPS[sps]F[spr]X[stQ]
Ì € i 2
workload
[urn,find.sect, workload.function]
$(SP)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 $(SP)SPS[sps]F[spr]W[scf]|0
Ì € i 2
xref.tissues
[urn,find.sect, xref.q]
$(SP)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 $(SP)SPS[sps]F[spr]X[sprXQ]|0
xref.tissue.key 3 PINT R $(SP)SPS[sps]F[spr]X[sprXQ]|1
xref.tr.seconds 10 PINT R $(SP)SPS[sps]F[spr]X[sprXQ]TS|3
xref.tr.stats.chars 6 PINT R $(SP)SPS[sps]F[spr]X[sprXQ]TS|2
xref.tr.stats.lines 6 PINT R $(SP)SPS[sps]F[spr]X[sprXQ]TS|0
xref.tr.stats.words 6 PINT R $(SP)SPS[sps]F[spr]X[sprXQ]TS|1
Ì € i 2
xref.text
[urn,find.sect,xref.q, xref.text.q]
$(SP)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 $(SP)SPS[sps]F[spr]X[sprXQ]T[spsXQ]
Ì € i 2
xsaved.text
[urn,find.sect,xref.q, xsaved.text.q]
$(SP)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 $(SP)SPS[sps]F[spr]X[sprXQ]X[xstQ]
Ì € i 2
follow.up
[urn, follow.up.date,follow.up.form]
$(SP)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
histology.statuses
[urn,find.sect, histo.status]
$(SP)SPS[sps]F[spr]ST[spsHS]
Field Name Len Dat Typ J DPM Offset/Local/VAL
histo.status 6 CHOICE L spsHS
Ì € i 2
icd.codes
[urn, icd.code]
$(SP)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
infce.audit.trail
[urn, infce.audit.q]
$(SP)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 $(SP)SPS[sps]IF[spsiq]|6
infce.audit.infce 10 FREE L LAB.C.INFC.DICT$(SP)SPS[sps]IF[spsiq]|1
infce.audit.record 9 PINT R LAB.C.INFCE $(SP)SPS[sps]IF[spsiq]|2
infce.audit.record.type 1 CHOICE L $(SP)SPS[sps]IF[spsiq]|0
infce.audit.seconds 5 PINT R $(SP)SPS[sps]IF[spsiq]|4
infce.audit.status 6 CHOICE L $(SP)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 $(SP)SPS[sps]IF[spsiq]|5
Ì € i 2
int.reports
[urn, int.report]
$(SP)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 $(SP)SPS[sps]IR[spsIR]|0
int.report.rtf.or.word 4 CHOICE L $(SP)SPS[sps]IR[spsIR]|1
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
markers
[urn, marker]
$(SP)SPS[sps]MK[ssk]
Field Name Len Dat Typ J DPM Offset/Local/VAL
marker 10 ALPHANUM L LAB.C.MARK ssk
Ì € i 2
oe.orders
[urn, oe.order]
$(SP)SPS[sps]OEO[po]
Field Name Len Dat Typ J DPM Offset/Local/VAL
oe.order 10 URN L OE.ORD po
Ì € i 2
ordered.procs
[urn, ordered.proc]
$(SP)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 $(SP)SPS[sps]OP[spt]|0
ordered.proc.def.profile 10 URN L LAB.P.TERM $(SP)SPS[sps]OP[spt]|1
ordered.proc.logic 0 FREE L
Ì € i 2
page.breaks
[urn, pb.rpt.format,pb.section,pb.line]
$(SP)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 $(SP)SPS[sps]PB[scg,spr,spsPB]
Ì € i 2
prelim.sign.outs
[urn, prelim.sign.q]
$(SP)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 $(SP)SPS[sps]PS[spsPS]|1
prelim.sign.electron.flg 1 FREE L VAL=IF{@prelim.sign.electronic="Y" "*"}
prelim.sign.electronic 1 YN L $(SP)SPS[sps]PS[spsPS]|2
prelim.sign.entry 10 FREE L $(SP)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 $(SP)SPS[sps]PS[spsPS]|0
prelim.sign.out.name20 20 FREE L VAL=@UNV.USER.name[@prelim.sign.out]$20
prelim.sign.user 10 FREE L MIS.USER $(SP)SPS[sps]PS[spsPS]|3
Ì € i 2
procs
[urn, proc]
$(SP)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 $(SP)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 $(SP)SPS[sps]P[spt]|4
proc.complete 1 YN L $(SP)SPS[sps]P[spt]|2
proc.ct 2 PINT R $(SP)SPS[sps]P[spt]|0
proc.site 10 FREE L LAB.C.SITE $(SP)SPS[sps]P[spt]|1
Ì € i 2
qa.history
[urn, qa.hx.q]
$(SP)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 $(SP)SPS[sps]QAX[qaQ]|3
qa.hx.date.time 10 PINT R $(SP)SPS[sps]QAX[qaQ]|2
qa.hx.decision 1 CHOICE L $(SP)SPS[sps]QAX[qaQ]|0
qa.hx.user 10 FREE L MIS.USER $(SP)SPS[sps]QAX[qaQ]|1
Ì € i 2
queries
[urn, query]
$(SP)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.query.ie(LAB.P.SPEC.urn,LAB.P.SPEC.
VAL=query)="EXT" "Y";"N"}
query.internal 1 YN L VAL=IF{%LAB.P.SPEC.query.ie(LAB.P.SPEC.urn,LAB.P.SPEC.
VAL=query)="INT" "Y";"N"}
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 FREE L $(SP)SPS[sps]Q[ggv]|0
yn.comment 99 FREE L $(SP)SPS[sps]Q[ggv]|5
Ì € i 2
query.multiple
[urn,query, qry.mul.q]
$(SP)SPS[sps]Q[ggv]M[ggvMQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
qry.mul.q 3 PINT R ggvMQ
qry.mul.response 75 FREE L $(SP)SPS[sps]Q[ggv]M[ggvMQ]|0
Ì € i 2
reports
[urn, report]
$(SP)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 $(SP)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
report.times
[urn,report, report.time]
$(SP)SPS[sps]RP[sch]T[spsrt]
Field Name Len Dat Typ J DPM Offset/Local/VAL
report.time 9 PINT R spsrt
report.time.fmt 10 FREE L LAB.C.RFMT $(SP)SPS[sps]RP[sch]T[spsrt]|1
report.time.print.flag 1 FREE L $(SP)SPS[sps]RP[sch]T[spsrt]|0
Ì € i 2
reports.by.doctor
[urn,report, rpt.doctor]
$(SP)SPS[sps]RP[sch]D[ggg]
Field Name Len Dat Typ J DPM Offset/Local/VAL
rpt.doctor 10 FREE L MIS.DOC ggg
last.doctor.report 8 PINT R $(SP)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
report.times.by.doctor
[urn,report,rpt.doctor, report.doctor.time]
$(SP)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 $(SP)SPS[sps]RP[sch]D[ggg]T[spsRd]|0
report.doctor.time.fmt 10 FREE L LAB.C.RFMT $(SP)SPS[sps]RP[sch]D[ggg]T[spsRd]|1
Ì € i 2
reports.by.location
[urn,report, rpt.location]
$(SP)SPS[sps]RP[sch]L[ggn]
Field Name Len Dat Typ J DPM Offset/Local/VAL
rpt.location 10 FREE L MIS.LOCN ggn
last.location.report 8 PINT R $(SP)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
report.times.by.location
[urn,report,rpt.location, report.location.time]
$(SP)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 $(SP)SPS[sps]RP[sch]L[ggn]T[spsRl]|0
report.location.time.fmt 10 FREE L LAB.C.RFMT $(SP)SPS[sps]RP[sch]L[ggn]T[spsRl]|1
Ì € i 2
result.prompts
[urn, result.prompt]
$(SP)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 $(SP)SPS[sps]QS[spp]|0
result.abn.flag 3 FREE L $(SP)SPS[sps]QS[spp]|2
result.default 92 FREE L $(SP)SPS[sps]QS[spp]|3
result.text 92 FREE L $(SP)SPS[sps]QS[spp]|1
Ì € i 2
result.mult
[urn,result.prompt, mult.result.q]
$(SP)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 $(SP)SPS[sps]QS[spp,spsRQ]|0
mult.result.abn.flag 3 FREE L $(SP)SPS[sps]QS[spp,spsRQ]|2
mult.result.text 60 FREE L $(SP)SPS[sps]QS[spp,spsRQ]|1
Ì € i 2
result.prompts.q
[urn, result.prompt.q]
$(SP)SPS[sps]QSQ[sppq]
Field Name Len Dat Typ J DPM Offset/Local/VAL
result.prompt.q 4 PINT R sppq
Ì € i 2
result.prompts.qa
[urn,result.prompt.q, result.prompt.qa]
$(SP)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 200 FREE L $(SP)SPS[sps]QSQ[sppq]Q[spp]
| | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | |