Ì i 2
lab.b.unit.blood.type.changes (blood.types.changed)
[bt.change.date,bt.change.time,bt.change.urn]
:SBUTC[sbuCD,sbuCT,sbuCU]
Field Name Len Dat Typ J DPM Offset/Local/VAL
bt.change.date 8 DATE L sbuCD
bt.change.time 4 HHMM L sbuCT
bt.change.urn 3 URN L sbuCU
bt.change.new.src.type 10 FREE L LAB.B.TYPE :SBUTC[sbuCD,sbuCT,sbuCU]|2
bt.change.new.type 10 FREE L LAB.B.TYPE :SBUTC[sbuCD,sbuCT,sbuCU]|4
bt.change.old.src.type 10 FREE L LAB.B.TYPE :SBUTC[sbuCD,sbuCT,sbuCU]|1
bt.change.old.type 10 FREE L LAB.B.TYPE :SBUTC[sbuCD,sbuCT,sbuCU]|3
bt.change.user 10 FREE L MIS.USER :SBUTC[sbuCD,sbuCT,sbuCU]|0
Ì i 2
lab.b.unit.comp.fields (comp.fields)
Field Name Len Dat Typ J DPM Offset/Local/VAL
age 12 FREE L VAL=%Z.age(@collection.date)
blood.type.abo 3 FREE L VAL=@LAB.B.TYPE.abo[@unit.blood.type]
blood.type.rh.lbl 11 CHOICE L VAL=%LAB.B.TYPE.rh(LAB.B.UNIT.urn,2,2)
blood.type.rh.pn 1 CHOICE L VAL=@LAB.B.TYPE.rh[@unit.blood.type]
blood.type.rh.sgn 1 CHOICE L VAL=%LAB.B.TYPE.rh(LAB.B.UNIT.urn,2,1)
compile.req.list 79 FREE L VAL=%LAB.B.UNIT.compile.reqs.specs(/urn,"","","R")
compile.reqs.specs 79 FREE L VAL=%LAB.B.UNIT.compile.reqs.specs(/urn)
compile.spec.list 79 FREE L VAL=%LAB.B.UNIT.compile.reqs.specs(/urn,"","","S")
final.statuses 40 FREE L VAL="TRS,TRR,COM,CON,PLD,QRT,EXP,DES,SAL,PTX,FS1,FS2,F
VAL=S3"
lock.unit 0 FREE L VAL=%LAB.B.UNIT.lock("L",IF{urn;/urn})
non.final.statuses 30 FREE L VAL="ENT,HLD,AVA,ASN,XMC,RDY,ISS"
number.of.parents 6 PINT R VAL=/NP
number.of.pooled.units 6 PINT R VAL=/PL
rpt.hdr.1 160 FREE L VAL=/HDR
rpt.hdr.2 160 FREE L VAL=/HDR2
rpt.hdr.3 160 FREE L VAL=/HDR3
rpt.hdr.4 160 FREE L VAL=/HDR4
source.blood.type.abo 3 FREE L VAL=@LAB.B.TYPE.abo[@LAB.B.UNIT.source.blood.type]
source.blood.type.rh.lbl 11 CHOICE L VAL=%LAB.B.TYPE.rh(LAB.B.UNIT.urn,1,2)
source.blood.type.rh.pn 1 CHOICE L VAL=@LAB.B.TYPE.rh[@LAB.B.UNIT.source.blood.type]
source.blood.type.rh.sgn 1 CHOICE L VAL=%LAB.B.TYPE.rh(LAB.B.UNIT.urn,1,1)
unit.blood.type 10 FREE L LAB.B.TYPE VAL=@LAB.B.HX.blood.type.entered[@hx.urn,"U",urn]
unit.blood.type.abbr 10 FREE L VAL=@LAB.B.TYPE.abbrev[@unit.blood.type]
unit.blood.type.hx 10 FREE L LAB.B.TYPE VAL=@LAB.B.HX.blood.type.entered["U",urn]
unit.blood.type.name 30 FREE L VAL=@LAB.B.TYPE.name[@unit.blood.type]
unit.blood.type.short 5 FREE L VAL=@LAB.B.TYPE.screen.label[@unit.blood.type]
unlock.unit 0 FREE L VAL=%LAB.B.UNIT.lock("U",IF{urn;/urn})
Ì i 2
lab.b.unit.delete.log (delete.log)
[del.date,del.time,del.q]
:SBUDL[sbuDD,sbuDT,sbuDQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
del.date 8 DATE L sbuDD
del.time 4 HHMM L sbuDT
del.q 3 PINT R sbuDQ
del.urn 10 URN L LAB.B.UNIT :SBUDL[sbuDD,sbuDT,sbuDQ]|0
deleted.device 20 FREE L :SBUDL[sbuDD,sbuDT,sbuDQ]|2
deleted.user 10 FREE L MIS.USER :SBUDL[sbuDD,sbuDT,sbuDQ]|1
Ì i 2
lab.b.unit.display.lines (display.lines)
[display.line.q]
/SBUQ[dq]
Field Name Len Dat Typ J DPM Offset/Local/VAL
display.line.q 2 PINT R dq
display.line 70 FREE L /SBUQ[dq]
display.line.antibodies 79 FREE L VAL=%LAB.B.HX.fetch.all.str(@hx.urn,^@Root(@display.li
VAL=nes),"",LL)
display.line.antigens 79 FREE L VAL=%LAB.B.HX.fetch.all.str(@hx.urn,"",^@Root(@display
VAL=.lines),LL)
display.line.at 70 FREE L /SBUQ[dq]
display.line.co 70 FREE L /SBUQ[dq]
display.line.ct 70 FREE L /SBUQ[dq]
display.line.markers 79 FREE L VAL=%LAB.B.UNIT.display.lines("MK",LL)
display.line.pf 70 FREE L /SBUQ[dq]
display.line.pf.2 70 FREE L /SBUQ[dq]
display.line.qy 70 FREE L /SBUQ[dq]
display.line.qy.2 70 FREE L /SBUQ[dq]
Ì i 2
lab.b.unit.ee.aliquots (ee.aliquots)
[ee.a.q]
/SBUAL[sbuAL]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ee.a.q 3 PINT R sbuAL
ee.a.alt.number 16 FREE L /SBUAL[sbuAL]|6
ee.a.donor.id.flags 2 FREE L LAB.B.I128.DF /SBUAL[sbuAL]|12
ee.a.ee.comments 1 YN L /SBUAL[sbuAL]|2
ee.a.ee.comments.ck 1 FREE L /SBUAL[sbuAL]|8
ee.a.ee.markers 1 YN L /SBUAL[sbuAL]|7
ee.a.ee.markers.ck 1 FREE L /SBUAL[sbuAL]|9
ee.a.ee.queries 1 YN L /SBUAL[sbuAL]|3
ee.a.ee.queries.ck 1 FREE L /SBUAL[sbuAL]|10
ee.a.expire.date 8 DATE L /SBUAL[sbuAL]|4
ee.a.expire.time 4 HHMM L /SBUAL[sbuAL]|5
ee.a.first.lvl.division 1 FREE L /SBUAL[sbuAL]|13
ee.a.second.lvl.division 1 FREE L /SBUAL[sbuAL]|14
ee.a.unit.number 16 FREE L /SBUAL[sbuAL]|0
ee.a.urn 10 URN L LAB.B.UNIT /SBUAL[sbuAL]|11
ee.a.volume 6 DEC R /SBUAL[sbuAL]|1
Ì i 2
lab.b.unit.ee.barcode.info (ee.barcode.info)
[ee.bc.info.q]
/SBUIQ[sbuIQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ee.bc.info.q 2 PINT R sbuIQ
ee.bc.info.line 80 FREE L /SBUIQ[sbuIQ]
Ì i 2
lab.b.unit.ee.comp.list (ee.comp.list)
[comp.product]
/SBUCM[sbp]
Field Name Len Dat Typ J DPM Offset/Local/VAL
comp.product 15 FREE L LAB.B.PROD sbp
Ì i 2
lab.b.unit.final.disp.i (final.disp.i)
:SBUY
Field Name Len Dat Typ J DPM Offset/Local/VAL
fd.first.date 8 DATE L :SBUY|0
fd.last.date 8 DATE L :SBUY|1
Ì i 2
lab.b.unit.final.disp.index (final.disp.index)
[fd.status.date,fd.unit.number,fd.product,fd.unit]
:SBUY[sbuSD,sbuN,sbp,sbu]
Field Name Len Dat Typ J DPM Offset/Local/VAL
fd.status.date 8 DATE L sbuSD
fd.unit.number 16 FREE L sbuN
fd.product 15 FREE L LAB.B.PROD sbp
fd.unit 10 URN L LAB.B.UNIT sbu
fd.alt.number 16 FREE L :SBUY[sbuSD,sbuN,sbp,sbu]|2
fd.product.abbrev 15 FREE L VAL=IF{@LAB.B.PROD.abbrev[@fd.product];@fd.product}
fd.product.name 30 FREE L VAL=IF{@LAB.B.PROD.name[@fd.product];@fd.product}
fd.site 10 FREE L LAB.C.SITE :SBUY[sbuSD,sbuN,sbp,sbu]|3
fd.site.ok 1 YN L VAL=IF{+c.site[""]_.=. "Y";c.site[@fd.site] "Y";c.site
VAL=[@site[@fd.unit]] "Y";"N"}
fd.source 10 FREE L LAB.B.SOURCE :SBUY[sbuSD,sbuN,sbp,sbu]|0
fd.status 3 FREE L :SBUY[sbuSD,sbuN,sbp,sbu]|1
Ì i 2
lab.b.unit.inq (inq)
[inq.q]
/SBUIM[sbuIM]
Field Name Len Dat Typ J DPM Offset/Local/VAL
inq.q 2 PINT R sbuIM
inq.data 15 FREE L /SBUIM[sbuIM]|0
inq.donor.field 1 FREE L
inq.prt 10 FREE L /SBUIM[sbuIM]|1
Ì i 2
lab.b.unit.it.print.q (it.print.q)
[it.pq]
:SBUIT[sbuit]
Field Name Len Dat Typ J DPM Offset/Local/VAL
it.pq 4 PINT R sbuit
it.pq.date 8 DATE L :SBUIT[sbuit]|1
it.pq.spec 30 URN L LAB.B.SPEC :SBUIT[sbuit]|0
Ì i 2
lab.b.unit.main (main)
[urn]
?SBU[sbu]
Field Name Len Dat Typ J DPM Offset/Local/VAL
urn 10 URN L sbu
adm.acct.number 12 FREE L ?SBU[sbu]PAT|1
adm.urn 30 FREE L ?SBU[sbu]PAT|0
aliq.bill.req.urn 10 URN L LAB.C.REQ ?SBU[sbu]AB|3
aliq.bill.spec.urn 30 URN L LAB.B.SPEC ?SBU[sbu]AB|2
aliq.bill.unit 10 URN L LAB.B.UNIT ?SBU[sbu]AB|1
aliquot.billed 1 FREE L ?SBU[sbu]AB|0
alt.number 16 FREE L ?SBU[sbu]|18
arc.blood.type 10 FREE L LAB.B.TYPE ?SBU[sbu]AR|13
arc.donor.name 30 FREE L ?SBU[sbu]AR|15
arc.donor.number 8 FREE L ?SBU[sbu]AR|12
arc.issued.to.patient 30 FREE L ?SBU[sbu]AR|11
arc.issued.to.spec 13 FREE L ?SBU[sbu]AR|9
arc.issued.to.spec.cdate 8 DATE L ?SBU[sbu]AR|10
arc.issued.to.spec.hx 10 URN L LAB.B.HX ?SBU[sbu]AR|14
arc.parent.unit.num 16 FREE L ?SBU[sbu]AR|0
arc.parent.unit.product 15 FREE L LAB.B.PROD ?SBU[sbu]AR|1
arc.parent.unit.source 10 FREE L LAB.B.SOURCE ?SBU[sbu]AR|2
arc.pooled.to.product 15 FREE L LAB.B.PROD ?SBU[sbu]AR|4
arc.pooled.to.source 10 FREE L LAB.B.SOURCE ?SBU[sbu]AR|5
arc.pooled.to.unit.num 16 FREE L ?SBU[sbu]AR|3
arc.root.unit.num 16 FREE L ?SBU[sbu]AR|6
arc.root.unit.product 15 FREE L LAB.B.PROD ?SBU[sbu]AR|7
arc.root.unit.source 10 FREE L LAB.B.SOURCE ?SBU[sbu]AR|8
biohazard 1 YN L ?SBU[sbu]B|2
collection.date 8 DATE L ?SBU[sbu]|5
collection.date.out 8 FREE L VAL=%Z.date.out(@collection.date)
collection.time 4 HHMM L ?SBU[sbu]|6
collection.user 10 FREE L MIS.USER ?SBU[sbu]|20
collection.user.name 30 FREE L VAL=@MIS.USER.name[@collection.user]
date.of.use 8 DATE L ?SBU[sbu]A|16
delete.user 10 FREE L MIS.USER ?SBU[sbu]A|13
deleted 3 CHOICE L ?SBU[sbu]|19
destination 10 FREE L LAB.B.SOURCE ?SBU[sbu]A|8
donor 30 URN L LAB.B.DONOR ?SBU[sbu]|13
donor.id.flags 2 FREE L LAB.B.I128.DF ?SBU[sbu]B|0
donor.name 30 FREE L VAL=@LAB.B.DONOR.name[@donor]
donor.number 8 PINT R VAL=@LAB.B.DONOR.number[@donor]
emergency.use.only 1 YN L ?SBU[sbu]B|3
entered.date 8 DATE L VAL=%Z.date.in.magic(@LAB.B.UNIT.entered.offset)
entered.date.out 8 FREE L VAL=%Z.date.out(@LAB.B.UNIT.entered.date)
entered.offset 9 PINT R ?SBU[sbu]A|0
entered.time 4 HHMM L VAL=%Z.time.out(@LAB.B.UNIT.entered.offset)
entered.user 10 FREE L MIS.USER ?SBU[sbu]A|7
entered.user.name 30 FREE L VAL=@MIS.USER.name[@entered.user]
entry.site 10 FREE L LAB.C.SITE ?SBU[sbu]|16
expire.date 8 DATE L ?SBU[sbu]|7
expire.date.out 8 FREE L VAL=%Z.date.out(@expire.date)
expire.time 4 HHMM L ?SBU[sbu]|8
ext.status 5 FREE L
first.level.division 1 FREE L ?SBU[sbu]B|5
hx.urn 10 URN L LAB.B.HX ?SBU[sbu]A|4
issued.to.acct 12 FREE L VAL=@LAB.C.PAT.acct.number[@LAB.B.SPEC.patient[@issued
VAL=.to.spec]]
issued.to.name 30 FREE L VAL=@LAB.C.PAT.name[@LAB.B.SPEC.patient[@issued.to.spe
VAL=c]]
issued.to.spec 30 URN L LAB.B.SPEC ?SBU[sbu]|15
issued.to.spec.num 13 FREE L VAL=@LAB.B.SPEC.number[@issued.to.spec]
last.reentry.date 8 DATE L VAL=IF{@last.reentry.offset^XX %Z.date.in.magic(XX+@en
VAL=tered.offset)}
last.reentry.offset 8 PINT R ?SBU[sbu]A|19
last.reentry.time 4 HHMM L VAL=IF{@last.reentry.offset^XX %Z.time.out(XX+@entered
VAL=.offset)}
last.reentry.user 10 FREE L MIS.USER ?SBU[sbu]A|20
lot.number 16 FREE L ?SBU[sbu]|12
new.alt.number 16 FREE L
new.unit.number 16 FREE L
not.used.1 0 FREE L ?SBU[sbu]A|6
ok.for.crossover 1 YN L ?SBU[sbu]B|4
parent.unit 10 URN L LAB.B.UNIT ?SBU[sbu]|14
parent.unit.id 20 FREE L VAL=IF{@parent.unit @product[@parent.unit]_"#"_@unit.n
VAL=umber[@parent.unit]}
parent.unit.name 30 FREE L VAL=@MIS.PAT.name[@adm.urn[@parent.unit]]
parent.unit.number 13 FREE L VAL=@unit.number[@parent.unit]
pool.count.as 2 PINT R ?SBU[sbu]A|3
pool.count.of.units 2 PINT R VAL=IF{""^XX,DO{+@LAB.B.UNIT.pooled.from[LAB.B.UNIT.ur
VAL=n,XX|0]^XX|0 XX|1+1^XX|1},XX|1}
pooled.to 10 URN L LAB.B.UNIT ?SBU[sbu]A|2
pooled.to.id 20 FREE L VAL=IF{@pooled.to IF{@main[@pooled.to] @product[@poole
VAL=d.to]_"#"_@unit.number[@pooled.to];@arc.pooled.to.
VAL=unit.num @arc.pooled.to.product_"#"_@arc.pooled.to
VAL=.unit.num}}
prior.status 5 FREE L
process.facility 10 FREE L LAB.B.SOURCE ?SBU[sbu]|22
process.facility.abbrev 15 FREE L VAL=@LAB.B.SOURCE.abbrev[@process.facility]
process.facility.lic.num 4 FREE L VAL=@LAB.B.SOURCE.license.number[@process.facility]
process.facility.name 30 FREE L VAL=@LAB.B.SOURCE.name[@process.facility]
process.facility.rgst.num 7 FREE L VAL=@LAB.B.SOURCE.registration.number[@process.facilit
VAL=y]
product 15 FREE L LAB.B.PROD ?SBU[sbu]|1
product.abbrev 15 FREE L VAL=@LAB.B.PROD.abbrev[@product]
product.name 30 FREE L VAL=@LAB.B.PROD.name[@product]
product.number.and.name 45 FREE L VAL=@unit.number_" - "_@product.name
receive.date 8 DATE L ?SBU[sbu]|3
receive.date.out 8 FREE L VAL=%Z.date.out(@receive.date)
receive.time 4 HHMM L ?SBU[sbu]|4
recipient 25 FREE L ?SBU[sbu]RES|1
region.len 1 INT R ?SBU[sbu]A|18
reserved 14 CHOICE L ?SBU[sbu]RES|0
root.unit 10 URN L LAB.B.UNIT ?SBU[sbu]A|1
root.unit.id 20 FREE L VAL=@product[@root.unit]_"#"_@unit.number[@root.unit]
root.unit.name 30 FREE L VAL=@MIS.PAT.name[@adm.urn[@root.unit]]
second.level.division 1 FREE L ?SBU[sbu]B|6
segment.number 12 FREE L ?SBU[sbu]|17
sign.out.date 8 DATE L ?SBU[sbu]SO|0
sign.out.emergency 1 YN L ?SBU[sbu]SO|4
sign.out.for.product 15 FREE L LAB.B.PROD ?SBU[sbu]SO|5
sign.out.time 4 HHMM L ?SBU[sbu]SO|1
sign.out.to 20 FREE L ?SBU[sbu]SO|3
sign.out.user 10 FREE L MIS.USER ?SBU[sbu]SO|2
sign.out.workload 10 FREE L LAB.C.WL.FUNC ?SBU[sbu]SO|6
site 10 FREE L LAB.C.SITE ?SBU[sbu]A|14
source 10 FREE L LAB.B.SOURCE ?SBU[sbu]|10
source.abbrev 15 FREE L VAL=@LAB.B.SOURCE.abbrev[@source]
source.blood.type 10 FREE L LAB.B.TYPE ?SBU[sbu]|9
source.blood.type.abbrev 10 FREE L VAL=@LAB.B.TYPE.abbrev[@LAB.B.UNIT.source.blood.type]
source.blood.type.name 30 FREE L VAL=@LAB.B.TYPE.name[@LAB.B.UNIT.source.blood.type]
source.blood.type.new 10 FREE L LAB.B.TYPE
source.blood.type.short 5 FREE L VAL=@LAB.B.TYPE.screen.label[@LAB.B.UNIT.source.blood.
VAL=type]
source.lic.num 4 FREE L VAL=@LAB.B.SOURCE.license.number[@source]
source.name 30 FREE L VAL=@LAB.B.SOURCE.name[@source]
source.rgst.num 7 FREE L VAL=@LAB.B.SOURCE.registration.number[@source]
specs.complete 1 YN L ?SBU[sbu]|21
ssn.index.q 3 PINT R ?SBU[sbu]A|17
status 3 CHOICE L ?SBU[sbu]|2
status.date 8 DATE L ?SBU[sbu]A|11
status.date.out 8 FREE L VAL=%Z.date.out(@LAB.B.UNIT.status.date)
status.mne 5 FREE L VAL=@LAB.PARAM.bbk.unit.status.mne[@status]
status.name 15 FREE L VAL=@LAB.PARAM.bbk.unit.status.name[@status]
status.time 4 HHMM L ?SBU[sbu]A|12
storage.location 10 FREE L LAB.B.UL ?SBU[sbu]A|15
transfer.date 8 DATE L ?SBU[sbu]A|9
transfer.time 4 HHMM L ?SBU[sbu]A|10
type.of.donation 1 FREE L LAB.B.I128.DT ?SBU[sbu]B|1
unit 25 URN L
unit.id 25 FREE L VAL=@product_"#"_@unit.number
unit.number 16 FREE L ?SBU[sbu]|0
unit.screen 15 FREE L MIS.SCREEN ?SBU[sbu]R|0
units.to.count.as 2 PINT R ?SBU[sbu]A|3
volume 6 DEC R ?SBU[sbu]|11
volume.units 3 FREE L VAL=@LAB.B.PROD.unit.of.measure[@product]
workload 10 FREE L LAB.C.WL.FUNC ?SBU[sbu]A|5
Ì € i 2
lab.b.unit.assignment.audit (assignment.audit)
[urn, assignment.au.q]
?SBU[sbu]ASAU[sbuqa]
Field Name Len Dat Typ J DPM Offset/Local/VAL
assignment.au.q 3 PINT R sbuqa
assignment.au.date 8 DATE L ?SBU[sbu]ASAU[sbuqa]|3
assignment.au.prod.abbr 15 FREE L VAL=@LAB.B.PROD.abbrev[@assignment.au.prod.ord]
assignment.au.prod.ord 15 FREE L LAB.B.PROD ?SBU[sbu]ASAU[sbuqa]|2
assignment.au.spec 30 URN L LAB.B.SPEC ?SBU[sbu]ASAU[sbuqa]|0
assignment.au.spec.num 17 FREE L VAL=@LAB.B.SPEC.number[@assignment.au.spec]
assignment.au.time 4 HHMM L ?SBU[sbu]ASAU[sbuqa]|4
assignment.au.type 1 CHOICE L ?SBU[sbu]ASAU[sbuqa]|1
assignment.au.type.name 8 FREE L VAL=IF{@assignment.au.type^XX="A" "Assign";XX="U" "Una
VAL=ssign"}
assignment.au.user 10 FREE L MIS.USER ?SBU[sbu]ASAU[sbuqa]|5
Ì € i 2
lab.b.unit.assignments (assignments)
[urn, assigned.to.spec]
?SBU[sbu]AS[sbs]
Field Name Len Dat Typ J DPM Offset/Local/VAL
assigned.to.spec 30 URN L sbs
assign.arc.pat.acct 10 FREE L ?SBU[sbu]AS[sbs]AR|3
assign.arc.pat.name 30 FREE L ?SBU[sbu]AS[sbs]AR|2
assign.arc.spec.cdate 8 DATE L ?SBU[sbu]AS[sbs]AR|1
assign.arc.spec.num 13 FREE L ?SBU[sbu]AS[sbs]AR|0
assign.arc.spec.status 4 FREE L ?SBU[sbu]AS[sbs]AR|4
assign.arc.xm.comp 1 FREE L ?SBU[sbu]AS[sbs]AR|5
assign.arc.xm.na 1 FREE L ?SBU[sbu]AS[sbs]AR|6
assigned.to.spec.na 1 YN L VAL=%LAB.B.UNIT.is.xm.comp(urn,assigned.to.spec,"NA")
assigned.to.spec.number 15 FREE L VAL=IF{@LAB.B.SPEC.number[@assigned.to.spec];@LAB.L.SP
VAL=EC.number[@assigned.to.spec];@LAB.M.SPEC.number[@a
VAL=ssigned.to.spec]}
assigned.to.spec.patient 43 FREE L VAL=@MIS.PAT.acct.number[IF{@LAB.B.SPEC.patient[@assig
VAL=ned.to.spec^YY];@LAB.L.SPEC.patient[YY];@LAB.M.SPE
VAL=C.patient[YY];""}^XX]_IF{XX " "_@MIS.PAT.name[XX]}
assigned.to.spec.time 9 STIME L
assigned.to.spec.xmc 1 YN L VAL=IF{@Est.buf(C,@LAB.B.SPEC.xmatched.units),@LAB.B.S
VAL=PEC.prod.xm.unit.compatible[assigned.to.spec,@LAB.
VAL=B.SPEC.xm.unit.xmatch.test,@LAB.B.SPEC.xm.unit.xma
VAL=tch.product,@LAB.B.SPEC.xm.unit.xmatch.q]}
assignment.active 1 YN L ?SBU[sbu]AS[sbs]
Ì € i 2
lab.b.unit.audits (audits)
[urn, au.q]
?SBU[sbu]AU[sbuaq]
Field Name Len Dat Typ J DPM Offset/Local/VAL
au.q 3 PINT R sbuaq
au.alt.number 16 FREE L ?SBU[sbu]AU[sbuaq]A|1
au.blood.type 10 FREE L LAB.B.TYPE ?SBU[sbu]AU[sbuaq]A|10
au.collection.date 8 DATE L ?SBU[sbu]AU[sbuaq]A|4
au.collection.time 4 HHMM L ?SBU[sbu]AU[sbuaq]A|5
au.collection.user 10 FREE L MIS.USER ?SBU[sbu]AU[sbuaq]A|6
au.date 8 DATE L ?SBU[sbu]AU[sbuaq]|0
au.date.of.use 8 DATE L ?SBU[sbu]AU[sbuaq]A|19
au.date.out 8 FREE L VAL=%Z.date.out(@au.date)
au.donor 30 URN L LAB.B.DONOR ?SBU[sbu]AU[sbuaq]A|11
au.expire.date 8 DATE L ?SBU[sbu]AU[sbuaq]A|7
au.expire.time 4 HHMM L ?SBU[sbu]AU[sbuaq]A|8
au.iss.date 8 DATE L ?SBU[sbu]AU[sbuaq]I|0
au.iss.time 4 HHMM L ?SBU[sbu]AU[sbuaq]I|1
au.iss.to 20 FREE L ?SBU[sbu]AU[sbuaq]I|3
au.iss.user 10 FREE L MIS.USER ?SBU[sbu]AU[sbuaq]I|2
au.iss.workload 10 FREE L LAB.C.WL.FUNC ?SBU[sbu]AU[sbuaq]I|4
au.lot.number 16 FREE L ?SBU[sbu]AU[sbuaq]A|14
au.org.expire.date 8 DATE L ?SBU[sbu]AU[sbuaq]|6
au.org.expire.date.out 8 FREE L VAL=%Z.date.out(@au.org.expire.date)
au.org.expire.time 4 HHMM L ?SBU[sbu]AU[sbuaq]|7
au.org.product 15 FREE L LAB.B.PROD ?SBU[sbu]AU[sbuaq]|4
au.org.product.abbrev 15 FREE L VAL=@LAB.B.PROD.abbrev[@au.org.product]
au.org.source 10 FREE L LAB.B.SOURCE ?SBU[sbu]AU[sbuaq]|8
au.org.status 3 CHOICE L ?SBU[sbu]AU[sbuaq]|5
au.org.status.mne 5 FREE L VAL=@LAB.PARAM.bbk.unit.status.mne[@au.org.status]
au.org.unit.bld.type.shrt 5 FREE L VAL=@LAB.B.TYPE.screen.label[@au.org.unit.blood.type]
au.org.unit.blood.type 10 FREE L LAB.B.TYPE ?SBU[sbu]AU[sbuaq]|9
au.org.unit.number 16 FREE L ?SBU[sbu]AU[sbuaq]|3
au.process.facility 10 FREE L LAB.B.SOURCE ?SBU[sbu]AU[sbuaq]A|20
au.receive.date 8 DATE L ?SBU[sbu]AU[sbuaq]A|2
au.receive.time 4 HHMM L ?SBU[sbu]AU[sbuaq]A|3
au.recipient 30 FREE L ?SBU[sbu]AU[sbuaq]A|13
au.reserved 14 CHOICE L ?SBU[sbu]AU[sbuaq]A|12
au.segment.number 12 FREE L ?SBU[sbu]AU[sbuaq]A|15
au.source.blood.type 10 FREE L LAB.B.TYPE ?SBU[sbu]AU[sbuaq]A|9
au.storage.location 10 FREE L LAB.B.UL ?SBU[sbu]AU[sbuaq]A|18
au.time 4 HHMM L ?SBU[sbu]AU[sbuaq]|1
au.tx.began 4 HHMM L ?SBU[sbu]AU[sbuaq]T|2
au.tx.by 10 FREE L MIS.USER ?SBU[sbu]AU[sbuaq]T|4
au.tx.date 8 DATE L ?SBU[sbu]AU[sbuaq]T|0
au.tx.ended 4 HHMM L ?SBU[sbu]AU[sbuaq]T|3
au.tx.volume 6 PDEC R ?SBU[sbu]AU[sbuaq]T|1
au.tx.wkld 10 FREE L LAB.C.WL.FUNC ?SBU[sbu]AU[sbuaq]T|5
au.unit.number 16 FREE L ?SBU[sbu]AU[sbuaq]A|0
au.user 10 FREE L MIS.USER ?SBU[sbu]AU[sbuaq]|2
au.user.name 30 FREE L VAL=@MIS.USER.name[@au.user]
au.volume 6 PDEC R ?SBU[sbu]AU[sbuaq]A|16
au.workload 10 FREE L LAB.C.WL.FUNC ?SBU[sbu]AU[sbuaq]A|17
aun.alt.number 16 FREE L ?SBU[sbu]AU[sbuaq]AN|1
aun.blood.type 10 FREE L LAB.B.TYPE ?SBU[sbu]AU[sbuaq]AN|10
aun.collection.date 8 DATE L ?SBU[sbu]AU[sbuaq]AN|4
aun.collection.time 4 HHMM L ?SBU[sbu]AU[sbuaq]AN|5
aun.collection.user 10 FREE L MIS.USER ?SBU[sbu]AU[sbuaq]AN|6
aun.date.of.use 8 DATE L ?SBU[sbu]AU[sbuaq]AN|19
aun.donor 30 URN L LAB.B.DONOR ?SBU[sbu]AU[sbuaq]AN|11
aun.expire.date 8 DATE L ?SBU[sbu]AU[sbuaq]AN|7
aun.expire.time 4 HHMM L ?SBU[sbu]AU[sbuaq]AN|8
aun.iss.date 8 DATE L ?SBU[sbu]AU[sbuaq]IN|0
aun.iss.time 4 HHMM L ?SBU[sbu]AU[sbuaq]IN|1
aun.iss.to 20 FREE L ?SBU[sbu]AU[sbuaq]IN|3
aun.iss.user 10 FREE L MIS.USER ?SBU[sbu]AU[sbuaq]IN|2
aun.iss.workload 10 FREE L LAB.C.WL.FUNC ?SBU[sbu]AU[sbuaq]IN|4
aun.lot.number 16 FREE L ?SBU[sbu]AU[sbuaq]AN|14
aun.process.facility 10 FREE L LAB.B.SOURCE ?SBU[sbu]AU[sbuaq]AN|20
aun.receive.date 8 DATE L ?SBU[sbu]AU[sbuaq]AN|2
aun.receive.time 4 HHMM L ?SBU[sbu]AU[sbuaq]AN|3
aun.recipient 30 FREE L ?SBU[sbu]AU[sbuaq]AN|13
aun.reserved 14 CHOICE L ?SBU[sbu]AU[sbuaq]AN|12
aun.segment.number 12 FREE L ?SBU[sbu]AU[sbuaq]AN|15
aun.source.blood.type 10 FREE L LAB.B.TYPE ?SBU[sbu]AU[sbuaq]AN|9
aun.storage.location 10 FREE L LAB.B.UL ?SBU[sbu]AU[sbuaq]AN|18
aun.tx.began 4 HHMM L ?SBU[sbu]AU[sbuaq]TN|2
aun.tx.by 10 FREE L MIS.USER ?SBU[sbu]AU[sbuaq]TN|4
aun.tx.date 8 DATE L ?SBU[sbu]AU[sbuaq]TN|0
aun.tx.ended 4 HHMM L ?SBU[sbu]AU[sbuaq]TN|3
aun.tx.volume 6 PDEC R ?SBU[sbu]AU[sbuaq]TN|1
aun.tx.wkld 10 FREE L LAB.C.WL.FUNC ?SBU[sbu]AU[sbuaq]TN|5
aun.unit.number 16 FREE L ?SBU[sbu]AU[sbuaq]AN|0
aun.volume 6 PDEC R ?SBU[sbu]AU[sbuaq]AN|16
aun.workload 10 FREE L LAB.C.WL.FUNC ?SBU[sbu]AU[sbuaq]AN|17
Ì € i 2
lab.b.unit.au.ab.new (audits.antibodies.new)
[urn,au.q, au.ab.new]
?SBU[sbu]AU[sbuaq]ABN[sbab]
Field Name Len Dat Typ J DPM Offset/Local/VAL
au.ab.new 10 FREE L LAB.B.ANTIBODY sbab
Ì € i 2
lab.b.unit.audits.ab.old (audits.antibodies.old)
[urn,au.q, au.ab.old]
?SBU[sbu]AU[sbuaq]ABO[sbab]
Field Name Len Dat Typ J DPM Offset/Local/VAL
au.ab.old 10 FREE L LAB.B.ANTIBODY sbab
Ì € i 2
lab.b.unit.au.ag.new (audits.antigens.new)
[urn,au.q, au.ag.new]
?SBU[sbu]AU[sbuaq]AGN[sbag]
Field Name Len Dat Typ J DPM Offset/Local/VAL
au.ag.new 10 FREE L LAB.B.ANTIGEN sbag
au.ag.new.result 1 CHOICE L ?SBU[sbu]AU[sbuaq]AGN[sbag]|0
Ì € i 2
lab.b.unit.au.ag.old (audits.antigens.old)
[urn,au.q, au.ag.old]
?SBU[sbu]AU[sbuaq]AGO[sbag]
Field Name Len Dat Typ J DPM Offset/Local/VAL
au.ag.old 10 FREE L LAB.B.ANTIGEN sbag
au.ag.old.result 1 CHOICE L ?SBU[sbu]AU[sbuaq]AGO[sbag]|0
Ì € i 2
lab.b.unit.au.com.new (audits.comments.new)
[urn,au.q, au.com.new.q]
?SBU[sbu]AU[sbuaq]CN[sbucn]
Field Name Len Dat Typ J DPM Offset/Local/VAL
au.com.new.q 3 PINT R sbucn
au.com.new 60 FREE L ?SBU[sbu]AU[sbuaq]CN[sbucn]
Ì € i 2
lab.b.unit.au.com.old (audits.comments.old)
[urn,au.q, au.com.old.q]
?SBU[sbu]AU[sbuaq]CO[abuca]
Field Name Len Dat Typ J DPM Offset/Local/VAL
au.com.old.q 3 PINT R abuca
au.com.old 60 FREE L ?SBU[sbu]AU[sbuaq]CO[abuca]
Ì € i 2
lab.b.unit.audits.iss.com.new (audits.iss.comments.new)
[urn,au.q, au.iss.com.new.q]
?SBU[sbu]AU[sbuaq]ICN[sbuin]
Field Name Len Dat Typ J DPM Offset/Local/VAL
au.iss.com.new.q 3 PINT R sbuin
au.iss.com.new 60 FREE L ?SBU[sbu]AU[sbuaq]ICN[sbuin]
Ì € i 2
lab.b.unit.audits.iss.com.old (audits.iss.comments.old)
[urn,au.q, au.iss.com.old.q]
?SBU[sbu]AU[sbuaq]ICO[sbuio]
Field Name Len Dat Typ J DPM Offset/Local/VAL
au.iss.com.old.q 3 PINT R sbuio
au.iss.com.old 60 FREE L ?SBU[sbu]AU[sbuaq]ICO[sbuio]
Ì € i 2
lab.b.unit.audits.iss.q.new (audits.iss.queries.new)
[urn,au.q, au.iss.query.new]
?SBU[sbu]AU[sbuaq]IQN[ggv]
Field Name Len Dat Typ J DPM Offset/Local/VAL
au.iss.query.new 10 FREE L MIS.QUERY ggv
au.iss.query.new.map.date 8 DATE L ?SBU[sbu]AU[sbuaq]IQN[ggv]INIT
au.iss.response.new 91 QRY.RESP L ?SBU[sbu]AU[sbuaq]IQN[ggv]|0
Ì € i 2
lab.b.unit.aud.iss.q.new.mult (audits.iss.quer.new.mult)
[urn,au.q,au.iss.query.new, au.iss.query.seq.no.new]
?SBU[sbu]AU[sbuaq]IQN[ggv]M[ggvN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
au.iss.query.seq.no.new 3 PINT R ggvN
au.iss.query.response.new 75 QRY.RESP L ?SBU[sbu]AU[sbuaq]IQN[ggv]M[ggvN]|0
Ì € i 2
lab.b.unit.audtis.iss.q.old (audits.iss.queries.old)
[urn,au.q, au.iss.query.old]
?SBU[sbu]AU[sbuaq]IQO[ggv]
Field Name Len Dat Typ J DPM Offset/Local/VAL
au.iss.query.old 10 FREE L MIS.QUERY ggv
au.iss.query.old.map.date 8 DATE L ?SBU[sbu]AU[sbuaq]IQO[ggv]INIT
au.iss.response.old 91 QRY.RESP L ?SBU[sbu]AU[sbuaq]IQO[ggv]|0
Ì € i 2
lab.b.unit.aud.iss.q.old.mult (audits.iss.quer.old.mult)
[urn,au.q,au.iss.query.old, au.iss.query.seq.no.old]
?SBU[sbu]AU[sbuaq]IQO[ggv]M[ggvN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
au.iss.query.seq.no.old 3 PINT R ggvN
au.iss.query.response.old 75 QRY.RESP L ?SBU[sbu]AU[sbuaq]IQO[ggv]M[ggvN]|0
Ì € i 2
lab.b.unit.au.mk.new (audits.markers.new)
[urn,au.q, au.mk.new]
?SBU[sbu]AU[sbuaq]MKN[ssk]
Field Name Len Dat Typ J DPM Offset/Local/VAL
au.mk.new 10 FREE L LAB.C.MARK ssk
Ì € i 2
lab.b.unit.au.mk.old (audits.markers.old)
[urn,au.q, au.mk.old]
?SBU[sbu]AU[sbuaq]MKO[ssk]
Field Name Len Dat Typ J DPM Offset/Local/VAL
au.mk.old 10 FREE L LAB.C.MARK ssk
Ì € i 2
lab.b.unit.audits.pool.new (audits.pool.new)
[urn,au.q, au.pool.new]
?SBU[sbu]AU[sbuaq]PN[sbupn]
Field Name Len Dat Typ J DPM Offset/Local/VAL
au.pool.new 10 URN L LAB.B.UNIT sbupn
Ì € i 2
lab.b.unit.audits.pool.old (audits.pool.old)
[urn,au.q, au.pool.old]
?SBU[sbu]AU[sbuaq]PO[sbupo]
Field Name Len Dat Typ J DPM Offset/Local/VAL
au.pool.old 10 URN L LAB.B.UNIT sbupo
Ì € i 2
lab.b.unit.audits.queries.new (audits.queries.new)
[urn,au.q, au.query.new]
?SBU[sbu]AU[sbuaq]QN[ggv]
Field Name Len Dat Typ J DPM Offset/Local/VAL
au.query.new 10 FREE L MIS.QUERY ggv
au.query.new.map.date 8 DATE L ?SBU[sbu]AU[sbuaq]QN[ggv]INIT
au.response.new 91 QRY.RESP L ?SBU[sbu]AU[sbuaq]QN[ggv]|0
Ì € i 2
lab.b.unit.au.queries.new.mult (audits.queries.new.mult)
[urn,au.q,au.query.new, au.query.new.seq.no]
?SBU[sbu]AU[sbuaq]QN[ggv]M[ggvN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
au.query.new.seq.no PINT R ggvN
au.query.new.response 75 QRY.RESP L ?SBU[sbu]AU[sbuaq]QN[ggv]M[ggvN]|0
Ì € i 2
lab.b.unit.audit.queries.old (audits.queries.old)
[urn,au.q, au.query.old]
?SBU[sbu]AU[sbuaq]QO[ggv]
Field Name Len Dat Typ J DPM Offset/Local/VAL
au.query.old 10 FREE L MIS.QUERY ggv
au.query.old.map.date 8 DATE L ?SBU[sbu]AU[sbuaq]QO[ggv]INIT
au.response.old 91 QRY.RESP L ?SBU[sbu]AU[sbuaq]QO[ggv]|0
Ì € i 2
lab.b.unit.au.queries.old.mult (audits.queries.old.mult)
[urn,au.q,au.query.old, au.query.old.seq.no]
?SBU[sbu]AU[sbuaq]QO[ggv]M[ggvN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
au.query.old.seq.no 3 PINT R ggvN
au.query.old.response 75 QRY.RESP L ?SBU[sbu]AU[sbuaq]QO[ggv]M[ggvN]|0
Ì € i 2
lab.b.unit.audits.tx.com.new (audits.tx.comments.new)
[urn,au.q, au.tx.com.new.q]
?SBU[sbu]AU[sbuaq]TCN[subcn]
Field Name Len Dat Typ J DPM Offset/Local/VAL
au.tx.com.new.q 3 PINT R subcn
au.tx.com.new 60 FREE L ?SBU[sbu]AU[sbuaq]TCN[subcn]
Ì € i 2
lab.b.unit.audits.tx.com.old (audits.tx.comments.old)
[urn,au.q, au.tx.com.old.q]
?SBU[sbu]AU[sbuaq]TCO[sbuco]
Field Name Len Dat Typ J DPM Offset/Local/VAL
au.tx.com.old.q 3 PINT R sbuco
au.tx.com.old 60 FREE L ?SBU[sbu]AU[sbuaq]TCO[sbuco]
Ì € i 2
lab.b.unit.aud.tx.qry.set.new (audits.tx.qry.set.new)
[urn,au.q, audits.new.txqs]
?SBU[sbu]AU[sbuaq]S[sbuQN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
audits.new.txqs 3 PINT R sbuQN
audits.new.txqs.time 4 HHMM L ?SBU[sbu]AU[sbuaq]S[sbuQN]|0
Ì € i 2
lab.b.unit.audits.tx.q.new (audits.tx.queries.new)
[urn,au.q,audits.new.txqs, au.tx.query.new]
?SBU[sbu]AU[sbuaq]S[sbuQN]TQN[ggv]
Field Name Len Dat Typ J DPM Offset/Local/VAL
au.tx.query.new 10 FREE L MIS.QUERY ggv
au.tx.query.new.map.date 8 DATE L ?SBU[sbu]AU[sbuaq]S[sbuQN]TQN[ggv]INIT
au.tx.response.new 91 QRY.RESP L ?SBU[sbu]AU[sbuaq]S[sbuQN]TQN[ggv]|0
Ì € i 2
lab.b.unit.audits.tx.q.new.mul (audits.tx.queries.new.mul)
[urn,au.q,audits.new.txqs,au.tx.query.new, au.tx.query.new.seq.no]
?SBU[sbu]AU[sbuaq]S[sbuQN]TQN[ggv]M[ggvN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
au.tx.query.new.seq.no 3 PINT R ggvN
au.tx.query.new.response 75 QRY.RESP L ?SBU[sbu]AU[sbuaq]S[sbuQN]TQN[ggv]M[ggvN]|0
Ì € i 2
lab.b.unit.aud.tx.qry.set.old (audits.tx.qry.set.old)
[urn,au.q, audits.old.txqs]
?SBU[sbu]AU[sbuaq]S[sbuQO]
Field Name Len Dat Typ J DPM Offset/Local/VAL
audits.old.txqs 3 PINT R sbuQO
audits.old.txqs.time 4 HHMM L ?SBU[sbu]AU[sbuaq]S[sbuQO]|0
Ì € i 2
lab.b.unit.audits.tx.q.old (audits.tx.queries.old)
[urn,au.q,audits.old.txqs, au.tx.query.old]
?SBU[sbu]AU[sbuaq]S[sbuQO]TQO[ggv]
Field Name Len Dat Typ J DPM Offset/Local/VAL
au.tx.query.old 10 FREE L MIS.QUERY ggv
au.tx.query.old.map.date 8 DATE L ?SBU[sbu]AU[sbuaq]S[sbuQO]TQO[ggv]INIT
au.tx.response.old 91 QRY.RESP L ?SBU[sbu]AU[sbuaq]S[sbuQO]TQO[ggv]|0
Ì € i 2
lab.b.unit.audits.tx.q.old.mul (audits.tx.queries.old.mul)
[urn,au.q,audits.old.txqs,au.tx.query.old, au.tx.query.old.seq.no]
?SBU[sbu]AU[sbuaq]S[sbuQO]TQO[ggv]M[ggvN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
au.tx.query.old.seq.no 3 PINT R ggvN
au.tx.query.old.response 75 QRY.RESP L ?SBU[sbu]AU[sbuaq]S[sbuQO]TQO[ggv]M[ggvN]|0
Ì € i 2
lab.b.unit.bar.codes (bar.codes)
[urn, bar.code.field]
?SBU[sbu]BC[sbxf]
Field Name Len Dat Typ J DPM Offset/Local/VAL
bar.code.field 10 FREE L LAB.B.BC.FIELD sbxf
bar.code 30 FREE L ?SBU[sbu]BC[sbxf]|0
Ì € i 2
lab.b.unit.bbk.specimens (bbk.specimens)
[urn, bbk.spec.px,bbk.spec.q]
?SBU[sbu]SBS[spx,sbuSQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
bbk.spec.px 2 FREE L spx
bbk.spec.q 2 PINT R sbuSQ
bbk.spec.urn 30 URN L LAB.B.SPEC ?SBU[sbu]SBS[spx,sbuSQ]|0
Ì € i 2
lab.b.unit.child.units (child.units)
[urn, child.unit]
?SBU[sbu]CH[sbuCH]
Field Name Len Dat Typ J DPM Offset/Local/VAL
child.unit 10 URN L LAB.B.UNIT sbuCH
child.unit.arc.product 15 FREE L LAB.B.PROD ?SBU[sbu]CH[sbuCH]AR|1
child.unit.arc.source 10 FREE L LAB.B.SOURCE ?SBU[sbu]CH[sbuCH]AR|2
child.unit.arc.unit.num 16 FREE L ?SBU[sbu]CH[sbuCH]AR|0
child.unit.id 20 FREE L VAL=@product[child.unit]_"#"_@unit.number[child.unit]
child.unit.name 30 FREE L VAL=@unit.number[child.unit]_" - "_@LAB.B.PROD.name[@p
VAL=roduct[child.unit]]
Ì € i 2
lab.b.unit.comments (comments)
[urn, comment.q]
?SBU[sbu]C[sbuC]
Field Name Len Dat Typ J DPM Offset/Local/VAL
comment.q 3 PINT R sbuC
comment 60 FREE L ?SBU[sbu]C[sbuC]
Ì € i 2
lab.b.unit.delete (delete)
[urn, delete.q]
?SBU[sbu]DEL[sbuDR]
Field Name Len Dat Typ J DPM Offset/Local/VAL
delete.q 3 PINT R sbuDR
delete.line 60 FREE L ?SBU[sbu]DEL[sbuDR]
Ì € i 2
lab.b.unit.edits (edits)
[urn, edit.q]
?SBU[sbu]ED[sbuEE]
Field Name Len Dat Typ J DPM Offset/Local/VAL
edit.q 3 PINT R sbuEE
edit.alt.number 16 FREE L ?SBU[sbu]ED[sbuEE]E|1
edit.blood.type 10 FREE L LAB.B.TYPE ?SBU[sbu]ED[sbuEE]E|10
edit.collection.date 8 DATE L ?SBU[sbu]ED[sbuEE]E|4
edit.collection.time 4 HHMM L ?SBU[sbu]ED[sbuEE]E|5
edit.collection.user 10 FREE L MIS.USER ?SBU[sbu]ED[sbuEE]E|6
edit.date 8 DATE L ?SBU[sbu]ED[sbuEE]|0
edit.date.out 8 FREE L VAL=%Z.date.out(@edit.date)
edit.donor 30 URN L LAB.B.DONOR ?SBU[sbu]ED[sbuEE]E|11
edit.expire.date 8 DATE L ?SBU[sbu]ED[sbuEE]E|7
edit.expire.time 4 HHMM L ?SBU[sbu]ED[sbuEE]E|8
edit.iss.date 8 DATE L ?SBU[sbu]ED[sbuEE]IE|0
edit.iss.time 4 HHMM L ?SBU[sbu]ED[sbuEE]IE|1
edit.iss.to 20 FREE L ?SBU[sbu]ED[sbuEE]IE|3
edit.iss.user 10 FREE L MIS.USER ?SBU[sbu]ED[sbuEE]IE|2
edit.iss.workload 10 FREE L LAB.C.WL.FUNC ?SBU[sbu]ED[sbuEE]IE|4
edit.lot.number 16 FREE L ?SBU[sbu]ED[sbuEE]E|14
edit.medical.record 25 URN L MRI.PAT ?SBU[sbu]ED[sbuEE]E|13
edit.receive.date 8 DATE L ?SBU[sbu]ED[sbuEE]E|2
edit.receive.time 4 HHMM L ?SBU[sbu]ED[sbuEE]E|3
edit.reserved 14 CHOICE L ?SBU[sbu]ED[sbuEE]E|12
edit.segment.number 12 FREE L ?SBU[sbu]ED[sbuEE]E|15
edit.source.blood.type 10 FREE L LAB.B.TYPE ?SBU[sbu]ED[sbuEE]E|9
edit.storage.location 10 FREE L LAB.B.UL ?SBU[sbu]ED[sbuEE]E|18
edit.time 4 HHMM L ?SBU[sbu]ED[sbuEE]|1
edit.tx.began 4 HHMM L ?SBU[sbu]ED[sbuEE]TE|2
edit.tx.by 10 FREE L MIS.USER ?SBU[sbu]ED[sbuEE]TE|4
edit.tx.date 8 DATE L ?SBU[sbu]ED[sbuEE]TE|0
edit.tx.ended 4 HHMM L ?SBU[sbu]ED[sbuEE]TE|3
edit.tx.volume 6 PDEC R ?SBU[sbu]ED[sbuEE]TE|1
edit.tx.wkld 10 FREE L LAB.C.WL.FUNC ?SBU[sbu]ED[sbuEE]TE|5
edit.unit.number 16 FREE L ?SBU[sbu]ED[sbuEE]E|0
edit.user 10 FREE L MIS.USER ?SBU[sbu]ED[sbuEE]|2
edit.user.name 30 FREE L VAL=@MIS.USER.name[@edit.user]
edit.volume 6 PDEC R ?SBU[sbu]ED[sbuEE]E|16
edit.workload 10 FREE L LAB.C.WL.FUNC ?SBU[sbu]ED[sbuEE]E|17
Ì € i 2
lab.b.unit.edits.abs.add (edits.antibodies.add)
[urn,edit.q, edit.antibody.add]
?SBU[sbu]ED[sbuEE]ABADD[sbab]
Field Name Len Dat Typ J DPM Offset/Local/VAL
edit.antibody.add 10 FREE L LAB.B.ANTIBODY sbab
Ì € i 2
lab.b.unit.edits.abs.del (edits.antibodies.del)
[urn,edit.q, edit.antibody.del]
?SBU[sbu]ED[sbuEE]ABDEL[sbab]
Field Name Len Dat Typ J DPM Offset/Local/VAL
edit.antibody.del 10 FREE L LAB.B.ANTIBODY sbab
Ì € i 2
lab.b.unit.edits.antigens.add (edits.antigens.add)
[urn,edit.q, edit.antigen.add]
?SBU[sbu]ED[sbuEE]AGADD[sbag]
Field Name Len Dat Typ J DPM Offset/Local/VAL
edit.antigen.add 10 FREE L LAB.B.ANTIGEN sbag
edit.antigen.add.result 1 CHOICE L ?SBU[sbu]ED[sbuEE]AGADD[sbag]
Ì € i 2
lab.b.unit.edits.antigens.chg (edits.antigens.chg)
[urn,edit.q, edit.antigen.chg]
?SBU[sbu]ED[sbuEE]AGCHG[sbag]
Field Name Len Dat Typ J DPM Offset/Local/VAL
edit.antigen.chg 10 FREE L LAB.B.ANTIGEN sbag
edit.antigen.chg.result 1 CHOICE L ?SBU[sbu]ED[sbuEE]AGCHG[sbag]
Ì € i 2
lab.b.unit.edits.antigens.del (edits.antigens.del)
[urn,edit.q, edit.antigen.del]
?SBU[sbu]ED[sbuEE]AGDEL[sbag]
Field Name Len Dat Typ J DPM Offset/Local/VAL
edit.antigen.del 10 FREE L LAB.B.ANTIGEN sbag
edit.antigen.del.result 1 CHOICE L ?SBU[sbu]ED[sbuEE]AGDEL[sbag]
Ì € i 2
lab.b.unit.edits.iss.comments (edits.iss.comments)
[urn,edit.q, edit.iss.comment.q]
?SBU[sbu]ED[sbuEE]IC[cq]
Field Name Len Dat Typ J DPM Offset/Local/VAL
edit.iss.comment.q 3 PINT R cq
edit.iss.comment 60 FREE L ?SBU[sbu]ED[sbuEE]IC[cq]
Ì € i 2
lab.b.unit.edits.iss.queries (edits.iss.queries)
[urn,edit.q, edit.iss.query]
?SBU[sbu]ED[sbuEE]IQ[ggv]
Field Name Len Dat Typ J DPM Offset/Local/VAL
edit.iss.query 10 FREE L MIS.QUERY ggv
edit.iss.query.map.date 8 DATE L ?SBU[sbu]ED[sbuEE]IQ[ggv]INIT
edit.iss.response 91 QRY.RESP L ?SBU[sbu]ED[sbuEE]IQ[ggv]|0
Ì € i 2
lab.b.unit.edits.iss.quer.mult (edits.iss.queries.mult)
[urn,edit.q,edit.iss.query, edit.iss.query.seq.no]
?SBU[sbu]ED[sbuEE]IQ[ggv]M[ggvN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
edit.iss.query.seq.no 3 PINT R ggvN
edit.iss.query.response 75 QRY.RESP L ?SBU[sbu]ED[sbuEE]IQ[ggv]M[ggvN]|0
Ì € i 2
lab.b.unit.edits.markers.add (edits.markers.add)
[urn,edit.q, edit.marker.add]
?SBU[sbu]ED[sbuEE]MKADD[ssk]
Field Name Len Dat Typ J DPM Offset/Local/VAL
edit.marker.add 10 FREE L LAB.C.MARK ssk
Ì € i 2
lab.b.unit.edits.markers.del (edits.markers.del)
[urn,edit.q, edit.marker.del]
?SBU[sbu]ED[sbuEE]MKDEL[ssk]
Field Name Len Dat Typ J DPM Offset/Local/VAL
edit.marker.del 10 FREE L LAB.C.MARK ssk
Ì € i 2
lab.b.unit.edits.old.comments (edits.old.comments)
[urn,edit.q, edits.oc.q]
?SBU[sbu]ED[sbuEE]OC[sbuEC]
Field Name Len Dat Typ J DPM Offset/Local/VAL
edits.oc.q 3 PINT R sbuEC
edits.oc 60 FREE L ?SBU[sbu]ED[sbuEE]OC[sbuEC]
Ì € i 2
lab.b.unit.edit.pool.units.add (edits.pool.units.add)
[urn,edit.q, edit.pool.unit.add]
?SBU[sbu]ED[sbuEE]PA[sbuPL]
Field Name Len Dat Typ J DPM Offset/Local/VAL
edit.pool.unit.add 10 URN L LAB.B.UNIT sbuPL
Ì € i 2
lab.b.unit.edit.pool.units.del (edits.pool.units.del)
[urn,edit.q, edit.pool.unit.del]
?SBU[sbu]ED[sbuEE]PD[sbuPL]
Field Name Len Dat Typ J DPM Offset/Local/VAL
edit.pool.unit.del 10 URN L LAB.B.UNIT sbuPL
Ì € i 2
lab.b.unit.edits.queries (edits.queries)
[urn,edit.q, edit.query]
?SBU[sbu]ED[sbuEE]R[ggv]
Field Name Len Dat Typ J DPM Offset/Local/VAL
edit.query 10 FREE L MIS.QUERY ggv
edit.query.map.date 8 DATE L ?SBU[sbu]ED[sbuEE]R[ggv]INIT
edit.response 91 QRY.RESP L ?SBU[sbu]ED[sbuEE]R[ggv]|0
Ì € i 2
lab.b.unit.edits.queries.mult (edits.queries.mult)
[urn,edit.q,edit.query, edit.query.seq.no]
?SBU[sbu]ED[sbuEE]R[ggv]M[ggvN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
edit.query.seq.no 3 PINT R ggvN
edit.query.response 75 QRY.RESP L ?SBU[sbu]ED[sbuEE]R[ggv]M[ggvN]|0
Ì € i 2
lab.b.unit.edits.tx.comments (edits.tx.comments)
[urn,edit.q, edit.tx.comment.q]
?SBU[sbu]ED[sbuEE]TC[cq]
Field Name Len Dat Typ J DPM Offset/Local/VAL
edit.tx.comment.q 3 PINT R cq
edit.tx.comment 60 FREE L ?SBU[sbu]ED[sbuEE]TC[cq]
Ì € i 2
lab.b.unit.tx.qry.set.new (edits.tx.qry.set.new)
[urn,edit.q, ed.txqs.new]
?SBU[sbu]ED[sbuEE]TQSN[sbuQS]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ed.txqs.new 3 PINT R sbuQS
ed.txqs.time.new 4 HHMM L ?SBU[sbu]ED[sbuEE]TQSN[sbuQS]|0
Ì € i 2
lab.b.unit.edits.tx.queries (edits.tx.queries)
[urn,edit.q, edit.tx.query]
?SBU[sbu]ED[sbuEE]TQ[ggv]
Field Name Len Dat Typ J DPM Offset/Local/VAL
edit.tx.query 10 FREE L MIS.QUERY ggv
edit.tx.query.map.date 8 DATE L ?SBU[sbu]ED[sbuEE]TQ[ggv]INIT
edit.tx.response 91 QRY.RESP L ?SBU[sbu]ED[sbuEE]TQ[ggv]|0
Ì € i 2
lab.b.unit.edits.tx.quer.mult (edits.tx.queries.mult)
[urn,edit.q,edit.tx.query, edit.tx.query.seq.no]
?SBU[sbu]ED[sbuEE]TQ[ggv]M[ggvN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
edit.tx.query.seq.no 3 PINT R ggvN
edit.tx.query.response 75 QRY.RESP L ?SBU[sbu]ED[sbuEE]TQ[ggv]M[ggvN]|0
Ì € i 2
lab.b.unit.lab.specimens (lab.specimens)
[urn, lab.spec.px,lab.spec.q]
?SBU[sbu]SLS[spx,sbuSQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
lab.spec.px 2 FREE L spx
lab.spec.q 2 PINT R sbuSQ
lab.spec.urn 30 URN L LAB.L.SPEC ?SBU[sbu]SLS[spx,sbuSQ]|0
Ì € i 2
lab.b.unit.markers (markers)
[urn, marker]
?SBU[sbu]MK[ssk]
Field Name Len Dat Typ J DPM Offset/Local/VAL
marker 10 FREE L LAB.C.MARK ssk
marker.date 8 DATE L ?SBU[sbu]MK[ssk]|1
marker.user 10 FREE L MIS.USER ?SBU[sbu]MK[ssk]|0
Ì € i 2
lab.b.unit.mic.specimens (mic.specimens)
[urn, mic.spec.px,mic.spec.q]
?SBU[sbu]SMS[spx,sbuSQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
mic.spec.px 2 FREE L spx
mic.spec.q 2 PINT R sbuSQ
mic.spec.urn 30 URN L LAB.M.SPEC ?SBU[sbu]SMS[spx,sbuSQ]|0
Ì € i 2
lab.b.unit.nur.statuses (nur.statuses)
[urn, nur.specimen]
?SBU[sbu]NS[sbs]
Field Name Len Dat Typ J DPM Offset/Local/VAL
nur.specimen 30 URN L LAB.B.SPEC sbs
nur.status 12 CHOICE L ?SBU[sbu]NS[sbs]|0
Ì € i 2
lab.b.unit.order.file (orders)
[urn, order]
?SBU[sbu]O[sbt]
Field Name Len Dat Typ J DPM Offset/Local/VAL
order 9 PDEC5 R LAB.B.TEST sbt
Ì € i 2
lab.b.unit.pat.accounts (pat.accounts)
[urn, unit.pat.facility]
?SBU[sbu]PTACCT[gqb]
Field Name Len Dat Typ J DPM Offset/Local/VAL
unit.pat.facility 10 FREE L MIS.FACILITY gqb
unit.pat.adm.acct.number 12 FREE L ?SBU[sbu]PTACCT[gqb]|1
unit.pat.adm.urn 30 FREE L LAB.C.PAT ?SBU[sbu]PTACCT[gqb]|0
Ì € i 2
lab.b.unit.pooled.from (pooled.from)
[urn, pooled.from.unit]
?SBU[sbu]PL[sbuPL]
Field Name Len Dat Typ J DPM Offset/Local/VAL
pooled.from.unit 10 URN L LAB.B.UNIT sbuPL
pool.unit.arc.product 15 FREE L LAB.B.PROD ?SBU[sbu]PL[sbuPL]AR|1
pool.unit.arc.source 10 FREE L LAB.B.SOURCE ?SBU[sbu]PL[sbuPL]AR|2
pool.unit.arc.unit.num 16 FREE L ?SBU[sbu]PL[sbuPL]AR|0
pooled.from.unit.id 20 FREE L VAL=@product[pooled.from.unit]_"#"_@unit.number[pooled
VAL=.from.unit]
pooled.from.unit.name 30 FREE L VAL=@MIS.PAT.name[@adm.urn[pooled.from.unit]]
Ì € i 2
lab.b.unit.queries (queries)
[urn, query]
?SBU[sbu]R[ggv]
Field Name Len Dat Typ J DPM Offset/Local/VAL
query 10 FREE L MIS.QUERY ggv
response 92 QRY.RESP L ?SBU[sbu]R[ggv]|0
Ì € i 2
lab.b.unit.queries.mult (queries.mult)
[urn,query, query.seq.no]
?SBU[sbu]R[ggv]M[ggvN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
query.seq.no 3 PINT R ggvN
query.response 75 QRY.RESP L ?SBU[sbu]R[ggv]M[ggvN]|0
Ì € i 2
lab.b.unit.requisitions (requisitions)
[urn, requisition]
?SBU[sbu]REQ[scr]
Field Name Len Dat Typ J DPM Offset/Local/VAL
requisition 10 URN L LAB.C.REQ scr
Ì € i 2
lab.b.unit.sign.out.comments (sign.out.comments)
[urn, sign.out.comment.q]
?SBU[sbu]SO["C",sbuSC]
Field Name Len Dat Typ J DPM Offset/Local/VAL
sign.out.comment.q 2 PINT R sbuSC
sign.out.comment 60 FREE L ?SBU[sbu]SO["C",sbuSC]
Ì € i 2
lab.b.unit.sign.out.queries (sign.out.queries)
[urn, sign.out.query]
?SBU[sbu]SO["Q",ggv]
Field Name Len Dat Typ J DPM Offset/Local/VAL
sign.out.query 10 FREE L MIS.QUERY ggv
sign.out.query.map.date 8 DATE L ?SBU[sbu]SO["Q",ggv]INIT
sign.out.query.response 70 QRY.RESP L ?SBU[sbu]SO["Q",ggv]|0
Ì € i 2
lab.b.unit.sign.out.quer.mult (sign.out.queries.mult)
[urn,sign.out.query, sign.out.query.seq.no]
?SBU[sbu]SO["Q",ggv]M[ggvN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
sign.out.query.seq.no 3 PINT R ggvN
sign.out.query.resp.mult 75 QRY.RESP L ?SBU[sbu]SO["Q",ggv]M[ggvN]|0
Ì € i 2
lab.b.unit.sites (sites)
[urn, site.q]
?SBU[sbu]LS[sbuSI]
Field Name Len Dat Typ J DPM Offset/Local/VAL
site.q 3 PINT R sbuSI
site.batch.number 6 PINT R ?SBU[sbu]LS[sbuSI]|2
site.batch.urn 10 PINT R LAB.C.SIB ?SBU[sbu]LS[sbuSI]|3
site.batch.user 10 FREE L MIS.USER ?SBU[sbu]LS[sbuSI]|4
site.date 8 DATE L ?SBU[sbu]LS[sbuSI]|0
site.from 10 FREE L LAB.C.SITE ?SBU[sbu]LS[sbuSI]|5
site.time 4 HHMM L ?SBU[sbu]LS[sbuSI]|1
site.to 10 FREE L LAB.C.SITE ?SBU[sbu]LS[sbuSI]|6
Ì € i 2
lab.b.unit.status.activity (status.activity)
[urn, status.q]
?SBU[sbu]SA[sbuSQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
status.q 3 PINT R sbuSQ
new.status 3 CHOICE L ?SBU[sbu]SA[sbuSQ]|0
new.status.date 8 DATE L VAL=IF{@new.status.int.time^XX %Z.date.in.magic(XX+@en
VAL=tered.offset)}
new.status.device 15 FREE L ?SBU[sbu]SA[sbuSQ]|3
new.status.int.time 8 PINT R ?SBU[sbu]SA[sbuSQ]|2
new.status.name 15 FREE L VAL=@LAB.PARAM.bbk.unit.status.name[@new.status]
new.status.time 4 HHMM L VAL=IF{@new.status.int.time^XX %Z.time.out(XX+@entered
VAL=.offset)}
new.status.user 10 FREE L MIS.USER ?SBU[sbu]SA[sbuSQ]|1
new.status.user.name 20 FREE L VAL=@MIS.USER.name[@new.status.user]
| | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | |