Ì i 2
blood.types.changed
[bt.change.date,bt.change.time,bt.change.urn]
*(SB)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 *(SB)SBUTC[sbuCD,sbuCT,sbuCU]|2
bt.change.new.type 10 FREE L LAB.B.TYPE *(SB)SBUTC[sbuCD,sbuCT,sbuCU]|4
bt.change.old.src.type 10 FREE L LAB.B.TYPE *(SB)SBUTC[sbuCD,sbuCT,sbuCU]|1
bt.change.old.type 10 FREE L LAB.B.TYPE *(SB)SBUTC[sbuCD,sbuCT,sbuCU]|3
bt.change.user 10 FREE L MIS.USER *(SB)SBUTC[sbuCD,sbuCT,sbuCU]|0
Ì i 2
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",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",urn)
Ì i 2
delete.log
[del.date,del.time,del.q]
*(SB)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 *(SB)SBUDL[sbuDD,sbuDT,sbuDQ]|0
deleted.device 20 FREE L *(SB)SBUDL[sbuDD,sbuDT,sbuDQ]|2
deleted.user 10 FREE L MIS.USER *(SB)SBUDL[sbuDD,sbuDT,sbuDQ]|1
Ì i 2
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
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
final.disp.i
*(SB)SBUY
Field Name Len Dat Typ J DPM Offset/Local/VAL
fd.first.date 8 DATE L *(SB)SBUY|0
fd.last.date 8 DATE L *(SB)SBUY|1
Ì € i 2
final.disp.index
[fd.status.date,fd.unit.number,fd.product,fd.unit]
*(SB)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 *(SB)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 *(SB)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 *(SB)SBUY[sbuSD,sbuN,sbp,sbu]|0
fd.status 3 FREE L *(SB)SBUY[sbuSD,sbuN,sbp,sbu]|1
Ì i 2
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
main
[urn]
$(SB1)SBU[sbu]
Field Name Len Dat Typ J DPM Offset/Local/VAL
urn 10 URN L sbu
adm.acct.number 12 FREE L $(SB1)SBU[sbu]PAT|1
adm.urn 30 FREE L LAB.C.PAT $(SB1)SBU[sbu]PAT|0
aliq.bill.req.urn 10 URN L LAB.C.REQ $(SB1)SBU[sbu]AB|3
aliq.bill.spec.urn 30 URN L LAB.B.SPEC $(SB1)SBU[sbu]AB|2
aliq.bill.unit 10 URN L LAB.B.UNIT $(SB1)SBU[sbu]AB|1
aliquot.billed 1 FREE L $(SB1)SBU[sbu]AB|0
alt.number 16 FREE L $(SB1)SBU[sbu]|18
arc.blood.type 10 FREE L LAB.B.TYPE $(SB1)SBU[sbu]AR|13
arc.donor.name 30 FREE L $(SB1)SBU[sbu]AR|15
arc.donor.number 8 FREE L $(SB1)SBU[sbu]AR|12
arc.issued.to.patient 30 FREE L $(SB1)SBU[sbu]AR|11
arc.issued.to.spec 15 FREE L $(SB1)SBU[sbu]AR|9
arc.issued.to.spec.cdate 8 DATE L $(SB1)SBU[sbu]AR|10
arc.issued.to.spec.hx 10 URN L LAB.B.HX $(SB1)SBU[sbu]AR|14
arc.parent.unit.num 16 FREE L $(SB1)SBU[sbu]AR|0
arc.parent.unit.product 15 FREE L LAB.B.PROD $(SB1)SBU[sbu]AR|1
arc.parent.unit.source 10 FREE L LAB.B.SOURCE $(SB1)SBU[sbu]AR|2
arc.pooled.to.product 15 FREE L LAB.B.PROD $(SB1)SBU[sbu]AR|4
arc.pooled.to.source 10 FREE L LAB.B.SOURCE $(SB1)SBU[sbu]AR|5
arc.pooled.to.unit.num 16 FREE L $(SB1)SBU[sbu]AR|3
arc.root.unit.num 16 FREE L $(SB1)SBU[sbu]AR|6
arc.root.unit.product 15 FREE L LAB.B.PROD $(SB1)SBU[sbu]AR|7
arc.root.unit.source 10 FREE L LAB.B.SOURCE $(SB1)SBU[sbu]AR|8
biohazard 1 YN L $(SB1)SBU[sbu]B|2
collection.date 8 DATE L $(SB1)SBU[sbu]|5
collection.date.out 8 FREE L VAL=%Z.date.out(@collection.date)
collection.time 4 HHMM L $(SB1)SBU[sbu]|6
collection.user 10 FREE L MIS.USER $(SB1)SBU[sbu]|20
collection.user.name 34 FREE L VAL=@MIS.USER.name[@collection.user]
date.of.use 8 DATE L $(SB1)SBU[sbu]A|16
delete.user 10 FREE L MIS.USER $(SB1)SBU[sbu]A|13
deleted 3 CHOICE L $(SB1)SBU[sbu]|19
destination 10 FREE L LAB.B.SOURCE $(SB1)SBU[sbu]A|8
donor 30 URN L LAB.B.DONOR $(SB1)SBU[sbu]|13
donor.id.flags 2 FREE L LAB.B.I128.DF $(SB1)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 $(SB1)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 $(SB1)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 $(SB1)SBU[sbu]A|7
entered.user.name 34 FREE L VAL=@MIS.USER.name[@entered.user]
entry.site 10 FREE L LAB.C.SITE $(SB1)SBU[sbu]|16
expire.date 8 DATE L $(SB1)SBU[sbu]|7
expire.date.out 8 FREE L VAL=%Z.date.out(@expire.date)
expire.time 4 HHMM L $(SB1)SBU[sbu]|8
ext.status 5 FREE L
first.level.division 1 FREE L $(SB1)SBU[sbu]B|5
hx.urn 10 URN L LAB.B.HX $(SB1)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 $(SB1)SBU[sbu]|15
issued.to.spec.num 15 FREE L VAL=@LAB.B.SPEC.number[@issued.to.spec]
lot.number 16 FREE L $(SB1)SBU[sbu]|12
new.alt.number 16 FREE L
new.unit.number 16 FREE L
not.used.1 0 FREE L $(SB1)SBU[sbu]A|6
ok.for.crossover 1 YN L $(SB1)SBU[sbu]B|4
parent.unit 10 URN L LAB.B.UNIT $(SB1)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=@ADM.PAT.name[@adm.urn[@parent.unit]]
parent.unit.number 13 FREE L VAL=@unit.number[@parent.unit]
pool.count.as 2 PINT R $(SB1)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 $(SB1)SBU[sbu]A|2
pooled.to.id 20 FREE L VAL=IF{@pooled.to^P IF{@main[P] @product[P]_"#"_@unit.
VAL=number[P];@arc.pooled.to.unit.num @arc.pooled.to.p
VAL=roduct_"#"_@arc.pooled.to.unit.num}}
prior.status 5 FREE L
product 15 FREE L LAB.B.PROD $(SB1)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 $(SB1)SBU[sbu]|3
receive.date.out 8 FREE L VAL=%Z.date.out(@receive.date)
receive.time 4 HHMM L $(SB1)SBU[sbu]|4
recipient 25 FREE L $(SB1)SBU[sbu]RES|1
region.len 1 INT R $(SB1)SBU[sbu]A|18
reserved 14 CHOICE L $(SB1)SBU[sbu]RES|0
root.unit 10 URN L LAB.B.UNIT $(SB1)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=@ADM.PAT.name[@adm.urn[@root.unit]]
second.level.division 1 FREE L $(SB1)SBU[sbu]B|6
segment.number 12 FREE L $(SB1)SBU[sbu]|17
sign.out.date 8 DATE L $(SB1)SBU[sbu]SO|0
sign.out.emergency 1 YN L $(SB1)SBU[sbu]SO|4
sign.out.for.product 15 FREE L LAB.B.PROD $(SB1)SBU[sbu]SO|5
sign.out.screen 15 FREE L MIS.SCREEN $(SB1)SBU[sbu]SO|7
sign.out.time 4 HHMM L $(SB1)SBU[sbu]SO|1
sign.out.to 20 FREE L $(SB1)SBU[sbu]SO|3
sign.out.user 10 FREE L MIS.USER $(SB1)SBU[sbu]SO|2
sign.out.workload 10 FREE L LAB.C.WL.FUNC $(SB1)SBU[sbu]SO|6
site 10 FREE L LAB.C.SITE $(SB1)SBU[sbu]A|14
source 10 FREE L LAB.B.SOURCE $(SB1)SBU[sbu]|10
source.abbrev 15 FREE L VAL=@LAB.B.SOURCE.abbrev[@source]
source.blood.type 10 FREE L LAB.B.TYPE $(SB1)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.name 30 FREE L VAL=@LAB.B.SOURCE.name[@source]
specs.complete 1 YN L $(SB1)SBU[sbu]|21
ssn.index.q 3 PINT R $(SB1)SBU[sbu]A|17
status 3 CHOICE L $(SB1)SBU[sbu]|2
status.date 8 DATE L $(SB1)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 $(SB1)SBU[sbu]A|12
storage.location 10 FREE L LAB.B.UL $(SB1)SBU[sbu]A|15
temp.prefix 2 FREE L VAL=BU
transfer.date 8 DATE L $(SB1)SBU[sbu]A|9
transfer.time 4 HHMM L $(SB1)SBU[sbu]A|10
type.of.donation 1 FREE L LAB.B.I128.DT $(SB1)SBU[sbu]B|1
unit 25 URN L
unit.id 25 FREE L VAL=@product_"#"_@unit.number
unit.number 16 FREE L $(SB1)SBU[sbu]|0
unit.screen 15 FREE L MIS.SCREEN $(SB1)SBU[sbu]R|0
units.to.count.as 2 PINT R $(SB1)SBU[sbu]A|3
volume 6 DEC R $(SB1)SBU[sbu]|11
volume.units 3 FREE L VAL=@LAB.B.PROD.unit.of.measure[@product]
workload 10 FREE L LAB.C.WL.FUNC $(SB1)SBU[sbu]A|5
Ì € i 2
assignment.audit
[urn, assignment.au.q]
$(SB1)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 $(SB1)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 $(SB1)SBU[sbu]ASAU[sbuqa]|2
assignment.au.spec 30 URN L LAB.B.SPEC $(SB1)SBU[sbu]ASAU[sbuqa]|0
assignment.au.spec.num 17 FREE L VAL=@LAB.B.SPEC.number[@assignment.au.spec
assignment.au.time 4 TIME L $(SB1)SBU[sbu]ASAU[sbuqa]|4
assignment.au.type 1 CHOICE L $(SB1)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 $(SB1)SBU[sbu]ASAU[sbuqa]|5
Ì € i 2
assignments
[urn, assigned.to.spec]
$(SB1)SBU[sbu]AS[sbs]
Field Name Len Dat Typ J DPM Offset/Local/VAL
assigned.to.spec 30 URN L LAB.B.SPEC sbs
assign.arc.pat.acct 10 FREE L $(SB1)SBU[sbu]AS[sbs]AR|3
assign.arc.pat.name 30 FREE L $(SB1)SBU[sbu]AS[sbs]AR|2
assign.arc.spec.cdate 8 DATE L $(SB1)SBU[sbu]AS[sbs]AR|1
assign.arc.spec.num 15 FREE L $(SB1)SBU[sbu]AS[sbs]AR|0
assign.arc.spec.status 4 FREE L $(SB1)SBU[sbu]AS[sbs]AR|4
assign.arc.xm.comp 1 FREE L $(SB1)SBU[sbu]AS[sbs]AR|5
assign.arc.xm.na 1 FREE L $(SB1)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 30 FREE L VAL=@ADM.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 " "_@ADM.PAT.name[XX]}
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 $(SB1)SBU[sbu]AS[sbs]
Ì € i 2
bar.codes
[urn, bar.code.field]
$(SB1)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 $(SB1)SBU[sbu]BC[sbxf]|0
Ì € i 2
bbk.specimens
[urn, bbk.spec.px,bbk.spec.q]
$(SB1)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 $(SB1)SBU[sbu]SBS[spx,sbuSQ]|0
Ì € i 2
child.units
[urn, child.unit]
$(SB1)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 $(SB1)SBU[sbu]CH[sbuCH]AR|1
child.unit.arc.source 10 FREE L LAB.B.SOURCE $(SB1)SBU[sbu]CH[sbuCH]AR|2
child.unit.arc.unit.num 16 FREE L $(SB1)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
comments
[urn, comment.q]
$(SB1)SBU[sbu]C[sbuC]
Field Name Len Dat Typ J DPM Offset/Local/VAL
comment.q 3 PINT R sbuC
comment 60 TEXT L $(SB1)SBU[sbu]C[sbuC]
Ì € i 2
delete
[urn, delete.q]
$(SB1)SBU[sbu]DEL[sbuDR]
Field Name Len Dat Typ J DPM Offset/Local/VAL
delete.q 3 PINT R sbuDR
delete.line 60 TEXT L $(SB1)SBU[sbu]DEL[sbuDR]
Ì € i 2
edits
[urn, edit.q]
$(SB1)SBU[sbu]ED[sbuEE]
Field Name Len Dat Typ J DPM Offset/Local/VAL
edit.q 3 PINT R sbuEE
ed.iss.new.date 8 DATE L $(SB1)SBU[sbu]ED[sbuEE]IEN|0
ed.iss.new.time 4 HHMM L $(SB1)SBU[sbu]ED[sbuEE]IEN|1
ed.iss.new.to 20 FREE L $(SB1)SBU[sbu]ED[sbuEE]IEN|3
ed.iss.new.user 10 FREE L MIS.USER $(SB1)SBU[sbu]ED[sbuEE]IEN|2
ed.iss.new.workload 10 FREE L LAB.C.WL.FUNC $(SB1)SBU[sbu]ED[sbuEE]IEN|4
ed.new.alt.number 16 FREE L $(SB1)SBU[sbu]ED[sbuEE]EN|1
ed.new.blood.type 10 FREE L LAB.B.TYPE $(SB1)SBU[sbu]ED[sbuEE]EN|10
ed.new.collection.date 8 DATE L $(SB1)SBU[sbu]ED[sbuEE]EN|4
ed.new.collection.time 4 HHMM L $(SB1)SBU[sbu]ED[sbuEE]EN|5
ed.new.collection.user 10 FREE L MIS.USER $(SB1)SBU[sbu]ED[sbuEE]EN|6
ed.new.date.of.use 8 DATE L $(SB1)SBU[sbu]ED[sbuEE]EN|19
ed.new.donor 30 URN L LAB.B.DONOR $(SB1)SBU[sbu]ED[sbuEE]EN|11
ed.new.expire.date 8 DATE L $(SB1)SBU[sbu]ED[sbuEE]EN|7
ed.new.expire.time 4 HHMM L $(SB1)SBU[sbu]ED[sbuEE]EN|8
ed.new.lot.number 16 FREE L $(SB1)SBU[sbu]ED[sbuEE]EN|14
ed.new.receive.date 8 DATE L $(SB1)SBU[sbu]ED[sbuEE]EN|2
ed.new.receive.time 4 HHMM L $(SB1)SBU[sbu]ED[sbuEE]EN|3
ed.new.recipient 30 FREE L $(SB1)SBU[sbu]ED[sbuEE]EN|13
ed.new.reserved 14 CHOICE L $(SB1)SBU[sbu]ED[sbuEE]EN|12
ed.new.segment.number 12 FREE L $(SB1)SBU[sbu]ED[sbuEE]EN|15
ed.new.source.blood.type 10 FREE L LAB.B.TYPE $(SB1)SBU[sbu]ED[sbuEE]EN|9
ed.new.storage.location 10 FREE L LAB.B.UL $(SB1)SBU[sbu]ED[sbuEE]EN|18
ed.new.unit.number 16 FREE L $(SB1)SBU[sbu]ED[sbuEE]EN|0
ed.new.volume 6 PDEC R $(SB1)SBU[sbu]ED[sbuEE]EN|16
ed.new.workload 10 FREE L LAB.C.WL.FUNC $(SB1)SBU[sbu]ED[sbuEE]EN|17
ed.tx.new.began 4 HHMM L $(SB1)SBU[sbu]ED[sbuEE]TEN|2
ed.tx.new.by 10 FREE L MIS.USER $(SB1)SBU[sbu]ED[sbuEE]TEN|4
ed.tx.new.date 8 DATE L $(SB1)SBU[sbu]ED[sbuEE]TEN|0
ed.tx.new.ended 4 HHMM L $(SB1)SBU[sbu]ED[sbuEE]TEN|3
ed.tx.new.volume 6 PDEC R $(SB1)SBU[sbu]ED[sbuEE]TEN|1
ed.tx.new.wkld 10 FREE L LAB.C.WL.FUNC $(SB1)SBU[sbu]ED[sbuEE]TEN|5
edit.alt.number 16 FREE L $(SB1)SBU[sbu]ED[sbuEE]E|1
edit.blood.type 10 FREE L LAB.B.TYPE $(SB1)SBU[sbu]ED[sbuEE]E|10
edit.collection.date 8 DATE L $(SB1)SBU[sbu]ED[sbuEE]E|4
edit.collection.time 4 HHMM L $(SB1)SBU[sbu]ED[sbuEE]E|5
edit.collection.user 10 FREE L MIS.USER $(SB1)SBU[sbu]ED[sbuEE]E|6
edit.date 8 DATE L $(SB1)SBU[sbu]ED[sbuEE]|0
edit.date.of.use 8 DATE L $(SB1)SBU[sbu]ED[sbuEE]E|19
edit.date.out 8 FREE L VAL=%Z.date.out(@edit.date)
edit.donor 30 URN L LAB.B.DONOR $(SB1)SBU[sbu]ED[sbuEE]E|11
edit.expire.date 8 DATE L $(SB1)SBU[sbu]ED[sbuEE]E|7
edit.expire.time 4 HHMM L $(SB1)SBU[sbu]ED[sbuEE]E|8
edit.iss.date 8 DATE L $(SB1)SBU[sbu]ED[sbuEE]IE|0
edit.iss.time 4 HHMM L $(SB1)SBU[sbu]ED[sbuEE]IE|1
edit.iss.to 20 FREE L $(SB1)SBU[sbu]ED[sbuEE]IE|3
edit.iss.user 10 FREE L MIS.USER $(SB1)SBU[sbu]ED[sbuEE]IE|2
edit.iss.workload 10 FREE L LAB.C.WL.FUNC $(SB1)SBU[sbu]ED[sbuEE]IE|4
edit.lot.number 16 FREE L $(SB1)SBU[sbu]ED[sbuEE]E|14
edit.receive.date 8 DATE L $(SB1)SBU[sbu]ED[sbuEE]E|2
edit.receive.time 4 HHMM L $(SB1)SBU[sbu]ED[sbuEE]E|3
edit.recipient 30 FREE L $(SB1)SBU[sbu]ED[sbuEE]E|13
edit.reserved 14 CHOICE L $(SB1)SBU[sbu]ED[sbuEE]E|12
edit.segment.number 12 FREE L $(SB1)SBU[sbu]ED[sbuEE]E|15
edit.source.blood.type 10 FREE L LAB.B.TYPE $(SB1)SBU[sbu]ED[sbuEE]E|9
edit.status 3 FREE L $(SB1)SBU[sbu]ED[sbuEE]|3
edit.status.mnemonic 5 FREE L VAL=@status.mne[@edit.status]
edit.storage.location 10 FREE L LAB.B.UL $(SB1)SBU[sbu]ED[sbuEE]E|18
edit.time 4 HHMM L $(SB1)SBU[sbu]ED[sbuEE]|1
edit.tx.began 4 HHMM L $(SB1)SBU[sbu]ED[sbuEE]TE|2
edit.tx.by 10 FREE L MIS.USER $(SB1)SBU[sbu]ED[sbuEE]TE|4
edit.tx.date 8 DATE L $(SB1)SBU[sbu]ED[sbuEE]TE|0
edit.tx.ended 4 HHMM L $(SB1)SBU[sbu]ED[sbuEE]TE|3
edit.tx.volume 6 PDEC R $(SB1)SBU[sbu]ED[sbuEE]TE|1
edit.tx.wkld 10 FREE L LAB.C.WL.FUNC $(SB1)SBU[sbu]ED[sbuEE]TE|5
edit.unit.number 16 FREE L $(SB1)SBU[sbu]ED[sbuEE]E|0
edit.user 10 FREE L MIS.USER $(SB1)SBU[sbu]ED[sbuEE]|2
edit.user.name 34 FREE L VAL=@MIS.USER.name[@edit.user]
edit.volume 6 PDEC R $(SB1)SBU[sbu]ED[sbuEE]E|16
edit.workload 10 FREE L LAB.C.WL.FUNC $(SB1)SBU[sbu]ED[sbuEE]E|17
Ì € i 2
edits.antibodies.new
[urn,edit.q, ed.ab.new]
$(SB1)SBU[sbu]ED[sbuEE]ABN[sbab]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ed.ab.new 10 FREE L LAB.B.ANTIBODY sbab
Ì € i 2
edits.antibodies.old
[urn,edit.q, ed.ab.old]
$(SB1)SBU[sbu]ED[sbuEE]ABO[sbab]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ed.ab.old 10 FREE L LAB.B.ANTIBODY sbab
Ì € i 2
edits.antigens.new
[urn,edit.q, ed.ag.new]
$(SB1)SBU[sbu]ED[sbuEE]AGN[sbag]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ed.ag.new 10 FREE L LAB.B.ANTIGEN sbag
ed.ag.new.result 1 CHOICE L $(SB1)SBU[sbu]ED[sbuEE]AGN[sbag]|0
Ì € i 2
edits.antigens.old
[urn,edit.q, ed.ag.old]
$(SB1)SBU[sbu]ED[sbuEE]AGO[sbag]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ed.ag.old 10 FREE L LAB.B.ANTIGEN sbag
ed.ag.old.result 1 CHOICE L $(SB1)SBU[sbu]ED[sbuEE]AGO[sbag]|0
Ì € i 2
edits.comments.new
[urn,edit.q, ed.com.new.q]
$(SB1)SBU[sbu]ED[sbuEE]CN[sbucn]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ed.com.new.q 3 PINT R sbucn
ed.com.new 60 TEXT L $(SB1)SBU[sbu]ED[sbuEE]CN[sbucn]
Ì € i 2
edits.comments.old
[urn,edit.q, ed.com.old.q]
$(SB1)SBU[sbu]ED[sbuEE]CO[sbuco]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ed.com.old.q 3 PINT R sbuco
ed.com.old 60 TEXT L $(SB1)SBU[sbu]ED[sbuEE]CO[sbuco]
Ì € i 2
edits.iss.comments.new
[urn,edit.q, ed.iss.com.new.q]
$(SB1)SBU[sbu]ED[sbuEE]ICN[sbuin]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ed.iss.com.new.q 3 PINT R sbuin
ed.iss.com.new 60 TEXT L $(SB1)SBU[sbu]ED[sbuEE]ICN[sbuin]
Ì € i 2
edits.iss.comments.old
[urn,edit.q, ed.iss.com.old.q]
$(SB1)SBU[sbu]ED[sbuEE]ICO[sbuio]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ed.iss.com.old.q 3 PINT R sbuio
ed.iss.com.old 60 TEXT L $(SB1)SBU[sbu]ED[sbuEE]ICO[sbuio]
Ì € i 2
edits.iss.queries.new
[urn,edit.q, ed.iss.query.new]
$(SB1)SBU[sbu]ED[sbuEE]IQN[ggv]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ed.iss.query.new 10 FREE L MIS.QUERY ggv
ed.iss.response.new 91 FREE L $(SB1)SBU[sbu]ED[sbuEE]IQN[ggv]|0
Ì € i 2
edits.iss.query.new.mult
[urn,edit.q,ed.iss.query.new, ed.iss.qryn.mul.q]
$(SB1)SBU[sbu]ED[sbuEE]IQN[ggv]M[ggvMQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ed.iss.qryn.mul.q 3 PINT R ggvMQ
ed.iss.qryn.mul.response 75 FREE L $(SB1)SBU[sbu]ED[sbuEE]IQN[ggv]M[ggvMQ]|0
Ì € i 2
edits.iss.queries.old
[urn,edit.q, ed.iss.query.old]
$(SB1)SBU[sbu]ED[sbuEE]IQO[ggv]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ed.iss.query.old 10 FREE L MIS.QUERY ggv
ed.iss.response.old 91 FREE L $(SB1)SBU[sbu]ED[sbuEE]IQO[ggv]|0
Ì € i 2
edits.iss.query.old.mult
[urn,edit.q,ed.iss.query.old, ed.iss.qryo.mul.q]
$(SB1)SBU[sbu]ED[sbuEE]IQO[ggv]M[ggvMQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ed.iss.qryo.mul.q 3 PINT R ggvMQ
ed.iss.qryo.mul.response 75 FREE L $(SB1)SBU[sbu]ED[sbuEE]IQO[ggv]M[ggvMQ]|0
Ì € i 2
edits.markers.new
[urn,edit.q, ed.mk.new]
$(SB1)SBU[sbu]ED[sbuEE]MKN[ssk]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ed.mk.new 10 ALPHANUM L LAB.C.MARK ssk
Ì € i 2
edits.markers.old
[urn,edit.q, ed.mk.old]
$(SB1)SBU[sbu]ED[sbuEE]MKO[ssk]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ed.mk.old 10 ALPHANUM L LAB.C.MARK ssk
Ì € i 2
edits.pool.new
[urn,edit.q, ed.pool.new]
$(SB1)SBU[sbu]ED[sbuEE]PN[nsbu]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ed.pool.new 10 URN L LAB.B.UNIT nsbu
Ì € i 2
edits.pool.old
[urn,edit.q, ed.pool.old]
$(SB1)SBU[sbu]ED[sbuEE]PO[osbu]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ed.pool.old 10 URN L LAB.B.UNIT osbu
Ì € i 2
edits.queries.new
[urn,edit.q, ed.query.new]
$(SB1)SBU[sbu]ED[sbuEE]QN[ggv]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ed.query.new 10 FREE L MIS.QUERY ggv
ed.response.new 91 FREE L $(SB1)SBU[sbu]ED[sbuEE]QN[ggv]|0
Ì € i 2
edits.queries.new.mult
[urn,edit.q,ed.query.new, ed.qryn.mul.q]
$(SB1)SBU[sbu]ED[sbuEE]QN[ggv]M[ggvMQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ed.qryn.mul.q 3 PINT R ggvMQ
ed.qryn.mul.response 75 FREE L $(SB1)SBU[sbu]ED[sbuEE]QN[ggv]M[ggvMQ]|0
Ì € i 2
edits.queries.old
[urn,edit.q, ed.query.old]
$(SB1)SBU[sbu]ED[sbuEE]QO[ggv]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ed.query.old 10 FREE L MIS.QUERY ggv
ed.response.old 91 FREE L $(SB1)SBU[sbu]ED[sbuEE]QO[ggv]|0
Ì € i 2
edits.queries.old.mult
[urn,edit.q,ed.query.old, ed.qryo.mul.q]
$(SB1)SBU[sbu]ED[sbuEE]QO[ggv]M[ggvMQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ed.qryo.mul.q 3 PINT R ggvMQ
ed.qryo.mul.response 75 FREE L $(SB1)SBU[sbu]ED[sbuEE]QO[ggv]M[ggvMQ]|0
Ì € i 2
edits.tx.comments.new
[urn,edit.q, ed.tx.com.new.q]
$(SB1)SBU[sbu]ED[sbuEE]TCN[sbuco]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ed.tx.com.new.q 3 PINT R sbuco
ed.tx.com.new 60 TEXT L $(SB1)SBU[sbu]ED[sbuEE]TCN[sbuco]
Ì € i 2
edits.tx.comments.old
[urn,edit.q, ed.tx.com.old.q]
$(SB1)SBU[sbu]ED[sbuEE]TCO[sbuco]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ed.tx.com.old.q 3 PINT R sbuco
ed.tx.com.old 60 TEXT L $(SB1)SBU[sbu]ED[sbuEE]TCO[sbuco]
Ì € i 2
edits.tx.qry.set.new
[urn,edit.q, ed.txqs.new]
$(SB1)SBU[sbu]ED[sbuEE]TQSN[sbuTQS]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ed.txqs.new 3 PINT R sbuTQS
ed.txqs.time.new 4 HHMM L $(SB1)SBU[sbu]ED[sbuEE]TQSN[sbuTQS]|0
Ì € i 2
edits.tx.queries.new
[urn,edit.q,ed.txqs.new, ed.tx.query.new]
$(SB1)SBU[sbu]ED[sbuEE]TQSN[sbuTQS]Q[ggv]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ed.tx.query.new 10 FREE L MIS.QUERY ggv
ed.tx.response.new 91 FREE L $(SB1)SBU[sbu]ED[sbuEE]TQSN[sbuTQS]Q[ggv]|0
Ì € i 2
edits.tx.query.new.mult
[urn,edit.q,ed.txqs.new,ed.tx.query.new, ed.tx.qryn.mul.q]
$(SB1)SBU[sbu]ED[sbuEE]TQSN[sbuTQS]Q[ggv]M[ggvMQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ed.tx.qryn.mul.q 3 PINT R ggvMQ
ed.tx.qryn.mul.response 75 FREE L $(SB1)SBU[sbu]ED[sbuEE]TQSN[sbuTQS]Q[ggv]M[ggvMQ]|0
Ì € i 2
edits.tx.qry.set.old
[urn,edit.q, ed.txqs.old]
$(SB1)SBU[sbu]ED[sbuEE]TQSO[sbuTQS]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ed.txqs.old 3 PINT R sbuTQS
ed.txqs.time.old 4 HHMM L $(SB1)SBU[sbu]ED[sbuEE]TQSO[sbuTQS]|0
Ì € i 2
edits.tx.queries.old
[urn,edit.q,ed.txqs.old, ed.tx.query.old]
$(SB1)SBU[sbu]ED[sbuEE]TQSO[sbuTQS]Q[ggv]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ed.tx.query.old 10 FREE L MIS.QUERY ggv
ed.tx.response.old 91 FREE L $(SB1)SBU[sbu]ED[sbuEE]TQSO[sbuTQS]Q[ggv]|0
Ì € i 2
edits.tx.query.old.mult
[urn,edit.q,ed.txqs.old,ed.tx.query.old, ed.tx.qryo.mul.q]
$(SB1)SBU[sbu]ED[sbuEE]TQSO[sbuTQS]Q[ggv]M[ggvMQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ed.tx.qryo.mul.q 3 PINT R ggvMQ
ed.tx.qryo.mul.response 75 FREE L $(SB1)SBU[sbu]ED[sbuEE]TQSO[sbuTQS]Q[ggv]M[ggvMQ]|0
Ì € i 2
lab.specimens
[urn, lab.spec.px,lab.spec.q]
$(SB1)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 $(SB1)SBU[sbu]SLS[spx,sbuSQ]|0
Ì € i 2
markers
[urn, marker]
$(SB1)SBU[sbu]MK[ssk]
Field Name Len Dat Typ J DPM Offset/Local/VAL
marker 10 ALPHANUM L LAB.C.MARK ssk
marker.date 8 DATE L $(SB1)SBU[sbu]MK[ssk]|1
marker.user 10 FREE L MIS.USER $(SB1)SBU[sbu]MK[ssk]|0
Ì € i 2
mic.specimens
[urn, mic.spec.px,mic.spec.q]
$(SB1)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 $(SB1)SBU[sbu]SMS[spx,sbuSQ]|0
Ì € i 2
nur.statuses
[urn, nur.specimen]
$(SB1)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 $(SB1)SBU[sbu]NS[sbs]|0
Ì € i 2
orders
[urn, order]
$(SB1)SBU[sbu]O[sbt]
Field Name Len Dat Typ J DPM Offset/Local/VAL
order 9 PDEC5 R LAB.B.TEST sbt
Ì € i 2
pooled.from
[urn, pooled.from.unit]
$(SB1)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 $(SB1)SBU[sbu]PL[sbuPL]AR|1
pool.unit.arc.source 10 FREE L LAB.B.SOURCE $(SB1)SBU[sbu]PL[sbuPL]AR|2
pool.unit.arc.unit.num 16 FREE L $(SB1)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=@ADM.PAT.name[@adm.urn[pooled.from.unit]]
Ì € i 2
queries
[urn, query]
$(SB1)SBU[sbu]R[ggv]
Field Name Len Dat Typ J DPM Offset/Local/VAL
query 10 FREE L MIS.QUERY ggv
response 92 FREE L $(SB1)SBU[sbu]R[ggv]|0
Ì € i 2
queries.mult
[urn,query, qry.mul.q]
$(SB1)SBU[sbu]R[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 $(SB1)SBU[sbu]R[ggv]M[ggvMQ]|0
Ì € i 2
requisitions
[urn, requisition]
$(SB1)SBU[sbu]REQ[scr]
Field Name Len Dat Typ J DPM Offset/Local/VAL
requisition 10 URN L LAB.C.REQ scr
Ì € i 2
sign.out.comments
[urn, sign.out.comment.q]
$(SB1)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 TEXT L $(SB1)SBU[sbu]SO["C",sbuSC]
Ì € i 2
sign.out.queries
[urn, sign.out.query]
$(SB1)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.response 70 FREE L $(SB1)SBU[sbu]SO["Q",ggv]|0
Ì € i 2
sign.out.queries.mult
[urn,sign.out.query, sign.out.qry.mul.q]
$(SB1)SBU[sbu]SO["Q",ggv]M[ggvMQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
sign.out.qry.mul.q 3 PINT R ggvMQ
sign.out.qry.mul.response 75 FREE L $(SB1)SBU[sbu]SO["Q",ggv]M[ggvMQ]|0
Ì € i 2
sites
[urn, site.q]
$(SB1)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 $(SB1)SBU[sbu]LS[sbuSI]|2
site.batch.urn 10 PINT R LAB.C.SIB $(SB1)SBU[sbu]LS[sbuSI]|3
site.batch.user 10 FREE L MIS.USER $(SB1)SBU[sbu]LS[sbuSI]|4
site.date 8 DATE L $(SB1)SBU[sbu]LS[sbuSI]|0
site.from 10 FREE L LAB.C.SITE $(SB1)SBU[sbu]LS[sbuSI]|5
site.time 4 HHMM L $(SB1)SBU[sbu]LS[sbuSI]|1
site.to 10 FREE L LAB.C.SITE $(SB1)SBU[sbu]LS[sbuSI]|6
Ì € i 2
status.activity
[urn, status.q]
$(SB1)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 $(SB1)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 50 FREE L $(SB1)SBU[sbu]SA[sbuSQ]|3
new.status.int.time 8 PINT R $(SB1)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 $(SB1)SBU[sbu]SA[sbuSQ]|1
new.status.user.name 34 FREE L VAL=@MIS.USER.name[@new.status.user]
Ì i 2
nur.transfusions
[nur.tx.date,nur.tx.q]
*(SB)SBUNT[sbuNd,sbuNq]
Field Name Len Dat Typ J DPM Offset/Local/VAL
nur.tx.date 8 DATE L sbuNd
nur.tx.q 3 PINT R sbuNq
nur.tx.emergency 1 YN L *(SB)SBUNT[sbuNd,sbuNq]|5
nur.tx.patient 30 URN L ADM.PAT *(SB)SBUNT[sbuNd,sbuNq]|1
nur.tx.scan.bbk.wb 1 YN L *(SB)SBUNT[sbuNd,sbuNq]|7
nur.tx.scan.blood.type 1 YN L *(SB)SBUNT[sbuNd,sbuNq]|11
nur.tx.scan.code 3 FREE L *(SB)SBUNT[sbuNd,sbuNq]|15
nur.tx.scan.error 65 FREE L *(SB)SBUNT[sbuNd,sbuNq]|14
nur.tx.scan.exp.date 1 YN L *(SB)SBUNT[sbuNd,sbuNq]|12
nur.tx.scan.product 1 YN L *(SB)SBUNT[sbuNd,sbuNq]|9
nur.tx.scan.pt.wb 1 YN L *(SB)SBUNT[sbuNd,sbuNq]|6
nur.tx.scan.source 1 YN L *(SB)SBUNT[sbuNd,sbuNq]|10
nur.tx.scan.unit.num 1 YN L *(SB)SBUNT[sbuNd,sbuNq]|8
nur.tx.scan.user 1 YN L *(SB)SBUNT[sbuNd,sbuNq]|13
nur.tx.scan.value 20 FREE L *(SB)SBUNT[sbuNd,sbuNq]|16
nur.tx.specimen 30 URN L LAB.B.SPEC *(SB)SBUNT[sbuNd,sbuNq]|3
nur.tx.time 4 HHMM L *(SB)SBUNT[sbuNd,sbuNq]|0
nur.tx.unit 10 URN L LAB.B.UNIT *(SB)SBUNT[sbuNd,sbuNq]|2
nur.tx.user 10 FREE L MIS.USER *(SB)SBUNT[sbuNd,sbuNq]|4
Ì i 2
od.x
[od.unit]
*(SB)SBUO[sbu]
Field Name Len Dat Typ J DPM Offset/Local/VAL
od.unit 10 URN L LAB.B.UNIT sbu
od.ptr 5 FREE L *(SB)SBUO[sbu]|0
od.unit.alt.number 16 FREE L *(SB)SBUO[sbu]|5
od.unit.blood.type 10 FREE L LAB.B.TYPE *(SB)SBUO[sbu]|4
od.unit.number 16 FREE L *(SB)SBUO[sbu]|1
od.unit.product 15 FREE L LAB.B.PROD *(SB)SBUO[sbu]|3
od.unit.source 10 FREE L LAB.B.SOURCE *(SB)SBUO[sbu]|2
Ì € i 2
od.spec.x
[od.unit, od.spec.module,od.spec.coll.date,od.spec.id]
*(SB)SBUO[sbu]S[sshOM,sshOD,sshOS]
Field Name Len Dat Typ J DPM Offset/Local/VAL
od.spec.module 1 CHOICE L sshOM
od.spec.coll.date 8 DATE L sshOD
od.spec.id 15 FREE L sshOS
od.spec 10 URN L *(SB)SBUO[sbu]S[sshOM,sshOD,sshOS]|0
Ì i 2
phy.inv
[phy.inv.batch]
?(SB)SBUI[sbuiq]
Field Name Len Dat Typ J DPM Offset/Local/VAL
phy.inv.batch 4 FREE L sbuiq
phy.inv.comp.date 8 DATE L ?(SB)SBUI[sbuiq]|5
phy.inv.comp.date.time 13 FREE L VAL=IF{%Z.date.out(@phy.inv.comp.date)^XX XX_"-"_(@phy
VAL=.inv.comp.time)}
phy.inv.comp.except 1 YN L ?(SB)SBUI[sbuiq]|7
phy.inv.comp.time 4 HHMM L ?(SB)SBUI[sbuiq]|6
phy.inv.date 8 DATE L ?(SB)SBUI[sbuiq]|1
phy.inv.incl.no.uloc 1 YN L ?(SB)SBUI[sbuiq]|11
phy.inv.maint 7 CHOICE L ?(SB)SBUI[sbuiq]|8
phy.inv.name 30 FREE L ?(SB)SBUI[sbuiq]|0
phy.inv.site 10 FREE L LAB.C.SITE ?(SB)SBUI[sbuiq]|12
phy.inv.sort 7 CHOICE L ?(SB)SBUI[sbuiq]|4
phy.inv.time 4 HHMM L ?(SB)SBUI[sbuiq]|2
phy.inv.uloc.from 10 FREE L LAB.B.UL ?(SB)SBUI[sbuiq]|9
phy.inv.uloc.thru 10 FREE L LAB.B.UL ?(SB)SBUI[sbuiq]|10
phy.inv.user 10 FREE L MIS.USER ?(SB)SBUI[sbuiq]|3
Ì € i 2
phy.inv.compare
[phy.inv.batch, phy.inv.comp.urn]
?(SB)SBUI[sbuiq]C[sbu]
Field Name Len Dat Typ J DPM Offset/Local/VAL
phy.inv.comp.urn 10 URN L LAB.B.UNIT sbu
phy.inv.comp.hit 1 CHOICE L ?(SB)SBUI[sbuiq]C[sbu]|0
Ì € i 2
phy.inv.compare.status
[phy.inv.batch, phy.inv.comp.status]
?(SB)SBUI[sbuiq]S[sbuS]
Field Name Len Dat Typ J DPM Offset/Local/VAL
phy.inv.comp.status 5 FREE L sbuS
phy.inv.comp.status.line 70 FREE L VAL=%LAB.B.UNIT.phy.inv.compare.M.status("")
Ì € i 2
phy.inv.units
[phy.inv.batch, phy.inv.unit.q]
?(SB)SBUI[sbuiq]U[sbuiu]
Field Name Len Dat Typ J DPM Offset/Local/VAL
phy.inv.unit.q 4 PINT R sbuiu
phy.inv.unit.blood.type 10 FREE L VAL=@p.LAB.B.UNIT.blood.type[@phy.inv.unit.urn]
phy.inv.unit.number 16 FREE L ?(SB)SBUI[sbuiq]U[sbuiu]|0
phy.inv.unit.product 15 FREE L VAL=@p.LAB.B.UNIT.product[@phy.inv.unit.urn]
phy.inv.unit.source 10 FREE L VAL=@p.LAB.B.UNIT.source[@phy.inv.unit.urn]
phy.inv.unit.status 5 FREE L VAL=@p.LAB.B.UNIT.status.mne[@phy.inv.unit.urn]
phy.inv.unit.urn 10 URN L LAB.B.UNIT ?(SB)SBUI[sbuiq]U[sbuiu]|1
Ì € i 2
phy.inv.urns
[phy.inv.batch, phy.inv.urn]
?(SB)SBUI[sbuiq]I[sbu]
Field Name Len Dat Typ J DPM Offset/Local/VAL
phy.inv.urn 10 URN L LAB.B.UNIT sbu
Ì i 2
phy.inv.list
[phy.inv.list.product,phy.inv.list.number,phy.inv.list.urn]
/SBUII[sbp,sbuin,sbu]
Field Name Len Dat Typ J DPM Offset/Local/VAL
phy.inv.list.product 15 FREE L LAB.B.PROD sbp
phy.inv.list.number 15 FREE L sbuin
phy.inv.list.urn 10 URN L LAB.B.UNIT sbu
phy.inv.list.exception 1 FREE L /SBUII[sbp,sbuin,sbu]|0
phy.inv.list.type 10 CHOICE L
Ì i 2
ssn.reserved.x
[ssn.number,ssn.q]
*(SB)SBUSSN[ssnum,ssnq]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ssn.number 12 FREE L ssnum
ssn.q 3 PINT R ssnq
ssn.dob 10 BDATE L *(SB)SBUSSN[ssnum,ssnq]|1
ssn.label 22 FREE L VAL=IF{@.country="US" "Social Security Number";"Health
VAL= Care Number"}
ssn.name 30 NAME L *(SB)SBUSSN[ssnum,ssnq]|0
ssn.sex 1 CHOICE L *(SB)SBUSSN[ssnum,ssnq]|2
Ì € i 2
ssn.reserved.units
[ssn.number,ssn.q, ssn.unit]
*(SB)SBUSSN[ssnum,ssnq]U[sbu]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ssn.unit 10 URN L LAB.B.UNIT sbu
ssn.unit.exists 1 PINT R *(SB)SBUSSN[ssnum,ssnq]U[sbu]|0
ssn.unit.number 16 FREE L VAL=@LAB.B.UNIT.unit.number[ssn.unit]
Ì i 2
stats.by.doctor
[stats.doc.facility,stats.doc.gl.period,stats.doc.doctor]
*(SB)SBUXD[gqb,gp,ggg]
Field Name Len Dat Typ J DPM Offset/Local/VAL
stats.doc.facility 10 FREE L MIS.FACILITY gqb
stats.doc.gl.period 10 FREE L MIS.GL.PERIOD gp
stats.doc.doctor 10 FREE L MIS.DOC ggg
stats.doc.ts 10 PINT R *(SB)SBUXD[gqb,gp,ggg]|0
Ì € i 2
stats.by.doc.prod
[stats.doc.facility,stats.doc.gl.period,stats.doc.doctor, stats.doc.product]
*(SB)SBUXD[gqb,gp,ggg]P[sbp]
Field Name Len Dat Typ J DPM Offset/Local/VAL
stats.doc.product 15 FREE L LAB.B.PROD sbp
stats.doc.tx 10 PINT R *(SB)SBUXD[gqb,gp,ggg]P[sbp]|1
stats.doc.tx.e 10 PINT R *(SB)SBUXD[gqb,gp,ggg]P[sbp]|9
stats.doc.tx.l 10 PINT R *(SB)SBUXD[gqb,gp,ggg]P[sbp]|7
stats.doc.tx.p 10 PINT R *(SB)SBUXD[gqb,gp,ggg]P[sbp]|6
stats.doc.tx.y 10 PINT R *(SB)SBUXD[gqb,gp,ggg]P[sbp]|5
stats.doc.xm 10 PINT R *(SB)SBUXD[gqb,gp,ggg]P[sbp]|0
stats.doc.xm.e 10 PINT R *(SB)SBUXD[gqb,gp,ggg]P[sbp]|8
stats.doc.xm.l 10 PINT R *(SB)SBUXD[gqb,gp,ggg]P[sbp]|4
stats.doc.xm.p 10 PINT R *(SB)SBUXD[gqb,gp,ggg]P[sbp]|3
stats.doc.xm.y 10 PINT R *(SB)SBUXD[gqb,gp,ggg]P[sbp]|2
Ì i 2
stats.by.final.disp
[stats.pf.site,stats.pf.date,stats.pf.product,stats.pf.source,stats.pf.reserved]
*(SB)SBUXF[scl,sbuXY,sbp,sbr,sbuXF]
Field Name Len Dat Typ J DPM Offset/Local/VAL
stats.pf.site 10 FREE L LAB.C.SITE scl
stats.pf.date 8 DATE L sbuXY
stats.pf.product 15 FREE L LAB.B.PROD sbp
stats.pf.source 10 FREE L LAB.B.SOURCE sbr
stats.pf.reserved 1 CHOICE L sbuXF
stats.pf.com 6 PINT R *(SB)SBUXF[scl,sbuXY,sbp,sbr,sbuXF]|1
stats.pf.con 6 PINT R *(SB)SBUXF[scl,sbuXY,sbp,sbr,sbuXF]|2
stats.pf.des 6 PINT R *(SB)SBUXF[scl,sbuXY,sbp,sbr,sbuXF]|3
stats.pf.exp 6 PINT R *(SB)SBUXF[scl,sbuXY,sbp,sbr,sbuXF]|4
stats.pf.fs1 6 PINT R *(SB)SBUXF[scl,sbuXY,sbp,sbr,sbuXF]|5
stats.pf.fs2 6 PINT R *(SB)SBUXF[scl,sbuXY,sbp,sbr,sbuXF]|6
stats.pf.fs3 6 PINT R *(SB)SBUXF[scl,sbuXY,sbp,sbr,sbuXF]|7
stats.pf.pld 6 PINT R *(SB)SBUXF[scl,sbuXY,sbp,sbr,sbuXF]|8
stats.pf.ptx 6 PINT R *(SB)SBUXF[scl,sbuXY,sbp,sbr,sbuXF]|9
stats.pf.qrt 6 PINT R *(SB)SBUXF[scl,sbuXY,sbp,sbr,sbuXF]|10
stats.pf.rec 6 PINT R *(SB)SBUXF[scl,sbuXY,sbp,sbr,sbuXF]|0
stats.pf.sal 6 PINT R *(SB)SBUXF[scl,sbuXY,sbp,sbr,sbuXF]|11
stats.pf.trr 6 PINT R *(SB)SBUXF[scl,sbuXY,sbp,sbr,sbuXF]|12
stats.pf.trs 6 PINT R *(SB)SBUXF[scl,sbuXY,sbp,sbr,sbuXF]|13
Ì i 2
stats.by.location
[stats.loc.facility,stats.loc.gl.period,stats.loc.location]
*(SB)SBUXL[gqb,gp,ggn]
Field Name Len Dat Typ J DPM Offset/Local/VAL
stats.loc.facility 10 FREE L MIS.FACILITY gqb
stats.loc.gl.period 10 FREE L MIS.GL.PERIOD gp
stats.loc.location 10 FREE L MIS.LOCN ggn
stats.loc.ts 10 PINT R *(SB)SBUXL[gqb,gp,ggn]|0
Ì € i 2
stats.by.loc.prod
[stats.loc.facility,stats.loc.gl.period,stats.loc.location, stats.loc.product]
*(SB)SBUXL[gqb,gp,ggn]P[sbp]
Field Name Len Dat Typ J DPM Offset/Local/VAL
stats.loc.product 15 FREE L LAB.B.PROD sbp
stats.loc.tx 10 PINT R *(SB)SBUXL[gqb,gp,ggn]P[sbp]|1
stats.loc.tx.e 10 PINT R *(SB)SBUXL[gqb,gp,ggn]P[sbp]|9
stats.loc.tx.l 10 PINT R *(SB)SBUXL[gqb,gp,ggn]P[sbp]|7
stats.loc.tx.p 10 PINT R *(SB)SBUXL[gqb,gp,ggn]P[sbp]|6
stats.loc.tx.y 10 PINT R *(SB)SBUXL[gqb,gp,ggn]P[sbp]|5
stats.loc.xm 10 PINT R *(SB)SBUXL[gqb,gp,ggn]P[sbp]|0
stats.loc.xm.e 10 PINT R *(SB)SBUXL[gqb,gp,ggn]P[sbp]|8
stats.loc.xm.l 10 PINT R *(SB)SBUXL[gqb,gp,ggn]P[sbp]|4
stats.loc.xm.p 10 PINT R *(SB)SBUXL[gqb,gp,ggn]P[sbp]|3
stats.loc.xm.y 10 PINT R *(SB)SBUXL[gqb,gp,ggn]P[sbp]|2
Ì i 2
stats.by.product.reserved
[stats.pr.facility,stats.pr.gl.period,stats.pr.product,stats.pr.reserved]
*(SB)SBUXR[gqb,gp,sbp,sbuXR]
Field Name Len Dat Typ J DPM Offset/Local/VAL
stats.pr.facility 10 FREE L MIS.FACILITY gqb
stats.pr.gl.period 10 FREE L MIS.GL.PERIOD gp
stats.pr.product 15 FREE L LAB.B.PROD sbp
stats.pr.reserved 1 CHOICE L sbuXR
stats.pr.tx 10 PINT R *(SB)SBUXR[gqb,gp,sbp,sbuXR]|1
stats.pr.xm 10 PINT R *(SB)SBUXR[gqb,gp,sbp,sbuXR]|0
Ì i 2
stats.by.service
[stats.serv.facility,stats.serv.gl.period,stats.serv.service]
*(SB)SBUXS[gqb,gp,ggs]
Field Name Len Dat Typ J DPM Offset/Local/VAL
stats.serv.facility 10 FREE L MIS.FACILITY gqb
stats.serv.gl.period 10 FREE L MIS.GL.PERIOD gp
stats.serv.service 10 FREE L MIS.SVC ggs
stats.serv.ts 10 PINT R *(SB)SBUXS[gqb,gp,ggs]|0
Ì € i 2
stats.by.serv.prod
[stats.serv.facility,stats.serv.gl.period,stats.serv.service, stats.serv.product]
*(SB)SBUXS[gqb,gp,ggs]P[sbp]
Field Name Len Dat Typ J DPM Offset/Local/VAL
stats.serv.product 15 FREE L LAB.B.PROD sbp
stats.serv.tx 10 PINT R *(SB)SBUXS[gqb,gp,ggs]P[sbp]|1
stats.serv.tx.e 10 PINT R *(SB)SBUXS[gqb,gp,ggs]P[sbp]|9
stats.serv.tx.l 10 PINT R *(SB)SBUXS[gqb,gp,ggs]P[sbp]|7
stats.serv.tx.p 10 PINT R *(SB)SBUXS[gqb,gp,ggs]P[sbp]|6
stats.serv.tx.y 10 PINT R *(SB)SBUXS[gqb,gp,ggs]P[sbp]|5
stats.serv.xm 10 PINT R *(SB)SBUXS[gqb,gp,ggs]P[sbp]|0
stats.serv.xm.e 10 PINT R *(SB)SBUXS[gqb,gp,ggs]P[sbp]|8
stats.serv.xm.l 10 PINT R *(SB)SBUXS[gqb,gp,ggs]P[sbp]|4
stats.serv.xm.p 10 PINT R *(SB)SBUXS[gqb,gp,ggs]P[sbp]|3
stats.serv.xm.y 10 PINT R *(SB)SBUXS[gqb,gp,ggs]P[sbp]|2
Ì i 2
transfer.log
[transfer.log.urn]
?(SB)SBUTL[sbutl]
Field Name Len Dat Typ J DPM Offset/Local/VAL
transfer.log.urn 7 PINT R sbutl
transfer.log.count 4 PINT R ?(SB)SBUTL[sbutl]|4
transfer.log.date 8 DATE L ?(SB)SBUTL[sbutl]|1
transfer.log.time 4 HHMM L ?(SB)SBUTL[sbutl]|2
transfer.log.to 10 FREE L LAB.B.SOURCE ?(SB)SBUTL[sbutl]|0
transfer.log.user 10 FREE L MIS.USER ?(SB)SBUTL[sbutl]|3
transfer.log.workload 10 FREE L LAB.C.WL.FUNC ?(SB)SBUTL[sbutl]|5
Ì € i 2
transfer.log.comments
[transfer.log.urn, transfer.log.com.q]
?(SB)SBUTL[sbutl]C[sbutc]
Field Name Len Dat Typ J DPM Offset/Local/VAL
transfer.log.com.q 4 PINT R sbutc
transfer.log.com 60 TEXT L ?(SB)SBUTL[sbutl]C[sbutc]
Ì € i 2
transfer.log.units
[transfer.log.urn, transfer.log.unit]
?(SB)SBUTL[sbutl]U[sbu]
Field Name Len Dat Typ J DPM Offset/Local/VAL
transfer.log.unit 10 URN L LAB.B.UNIT sbu
Ì i 2
transfer.log.sort
[transfer.log.sort.key,transfer.log.sort.urn]
/SBUTL[sbuts,sbu]
Field Name Len Dat Typ J DPM Offset/Local/VAL
transfer.log.sort.key 30 FREE L sbuts
transfer.log.sort.urn 10 URN L LAB.B.UNIT sbu
| | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | |