Ì i 2
abs.locks
[lock.constant,lock.process]
*(D1).LOCK[lkc,lkp]
Field Name Len Dat Typ J DPM Offset/Local/VAL
lock.constant 2 FREE L lkc
lock.process 30 FREE L lkp
lock.process.acct 40 FREE L VAL=@ABS.PAT.account.number[lock.process]_" "_@ABS.PAT
VAL=.name[lock.process]
lock.process.date 8 DATE L *(D1).LOCK[lkc,lkp]|2
lock.process.dev 10 FREE L *(D1).LOCK[lkc,lkp]|0
lock.process.job 8 FREE L *(D1).LOCK[lkc,lkp]|1
lock.process.time 4 TIME L *(D1).LOCK[lkc,lkp]|3
lock.process.user 10 FREE L MIS.USER *(D1).LOCK[lkc,lkp]|4
Ì i 2
adm.xfer
[adm.xfer.date,adm.xfer.urn]
*(D1)DZXQ[dzxqD,dz]
Field Name Len Dat Typ J DPM Offset/Local/VAL
adm.xfer.date 10 PINT R dzxqD
adm.xfer.urn 44 FREE L ABS.PAT dz
admit.date.old 8 DATE L *(D1)DZXQ[dzxqD,dz]|2
admit.dis.date.old 8 DATE L *(D1)DZXQ[dzxqD,dz]|4
admit.time.old 4 HHMM L *(D1)DZXQ[dzxqD,dz]|3
admit.urn 30 URN L ADM.PAT *(D1)DZXQ[dzxqD,dz]|0
admit.xfer.type 3 CHOICE L *(D1)DZXQ[dzxqD,dz]|1
Ì i 2
adm.xfer.repeat
[adm.xfer.repeat.seq.no,adm.xfer.repeat.type,adm.xfer.repeat.urn]
*(D1)DZAXQ[dzxs,dzxch,dz]
Field Name Len Dat Typ J DPM Offset/Local/VAL
adm.xfer.repeat.seq.no 10 PINT R dzxs
adm.xfer.repeat.type 10 CHOICE L dzxch
adm.xfer.repeat.urn 44 FREE L ABS.PAT dz
adm.xfer.repeat.subs 30 FREE L *(D1)DZAXQ[dzxs,dzxch,dz]
Ì i 2
apc.batch
[batch.number]
*(D)DZAPC[dzbn]
Field Name Len Dat Typ J DPM Offset/Local/VAL
batch.number 6 PINT R dzbn
batch.date 8 DATE L *(D)DZAPC[dzbn]|0
batch.error.percentage 3 PINT R *(D)DZAPC[dzbn]|10
batch.finish.timestamp 10 PINT R *(D)DZAPC[dzbn]|9
batch.inbox.msg.number 8 PINT R *(D)DZAPC[dzbn]|8
batch.outbox.msg.number 8 PINT R *(D)DZAPC[dzbn]|6
batch.pt.apc.only.count 3 PINT R *(D)DZAPC[dzbn]|5
batch.pt.count 3 PINT R *(D)DZAPC[dzbn]|2
batch.pt.fail.count 3 PINT R *(D)DZAPC[dzbn]|4
batch.pt.pass.count 3 PINT R *(D)DZAPC[dzbn]|3
batch.run.status 50 FREE L *(D)DZAPC[dzbn]|11
batch.start.timestamp 10 PINT R *(D)DZAPC[dzbn]|7
batch.time 4 FREE L *(D)DZAPC[dzbn]|1
Ì € i 2
apc.batch.detail
[batch.number, batch.pt.urn]
*(D)DZAPC[dzbn,dz]
Field Name Len Dat Typ J DPM Offset/Local/VAL
batch.pt.urn 44 FREE L ABS.PAT dz
batch.pt.status 14 CHOICE L *(D)DZAPC[dzbn,dz]|0
batch.pt.timestamp 10 PINT R *(D)DZAPC[dzbn,dz]|1
Ì € i 2
apc.batch.errors
[batch.number,batch.pt.urn, batch.pt.error.seq.no]
*(D)DZAPC[dzbn,dz]ERR[errs]
Field Name Len Dat Typ J DPM Offset/Local/VAL
batch.pt.error.seq.no 3 PINT R errs
batch.pt.error.txt 90 FREE L *(D)DZAPC[dzbn,dz]ERR[errs]
Ì i 2
can.corrections.queue
[can.corr.fiscal.yr,can.corr.rec.type,can.corr.urn,can.corr.sb.seq.no]
?(D)DZCQ[dcFY,dcRT,dz,dzSBN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
can.corr.fiscal.yr 4 PINT R dcFY
can.corr.rec.type 1 CHOICE L dcRT
can.corr.urn 44 FREE L ABS.PAT dz
can.corr.sb.seq.no 2 PINT R dzSBN
can.corr.abstract.num 3 PINT R ?(D)DZCQ[dcFY,dcRT,dz,dzSBN]|3
can.corr.batch.num 2 PINT R ?(D)DZCQ[dcFY,dcRT,dz,dzSBN]|2
can.corr.chart.num 10 FREE L ?(D)DZCQ[dcFY,dcRT,dz,dzSBN]|4
can.corr.inst 5 FREE L ?(D)DZCQ[dcFY,dcRT,dz,dzSBN]|0
can.corr.per 2 PINT R ?(D)DZCQ[dcFY,dcRT,dz,dzSBN]|1
Ì i 2
ccl.diagnoses
[ccl.pt.urn]
*(D)DZ.DX[dz]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ccl.pt.urn 44 FREE L ABS.PAT dz
ccl.diag.grouper.version 10 FREE L *(D)DZ.DX[dz]|0
Ì € i 2
ccl.dx.dates
[ccl.pt.urn, ccl.dx.eff.date]
*(D)DZ.DX[dz]ED[dzDXD]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ccl.dx.eff.date 8 DATE L dzDXD
Ì € i 2
ccl.dx.codes
[ccl.pt.urn,ccl.dx.eff.date, ccl.dx.seq.no]
*(D)DZ.DX[dz]ED[dzDXD]DX[dxEDXN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ccl.dx.seq.no 2 PINT R dxEDXN
ccl.dx.alt.name 60 FREE L *(D)DZ.DX[dz]ED[dzDXD]DX[dxEDXN]|6
ccl.dx.code 7 FREE L ABS.DIAG *(D)DZ.DX[dz]ED[dzDXD]DX[dxEDXN]|0
ccl.dx.comp.comorb 1 CHOICE L *(D)DZ.DX[dz]ED[dzDXD]DX[dxEDXN]|1
ccl.dx.name 50 FREE L VAL=(@ABS.DIAG.name[@ccl.dx.code]$50)
ccl.dx.name.alt.or.std.rp 60 FREE L VAL=IF{@ccl.dx.alt.name;@ABS.DIAG.alt.desc.grp.name[@d
VAL=rg.grouper.version,@ccl.dx.code,@alt.desc.grp];@AB
VAL=S.DIAG.name[@drg.grouper.version,@ccl.dx.code]}
ccl.dx.pre 1 FREE L *(D)DZ.DX[dz]ED[dzDXD]DX[dxEDXN]|3
ccl.dx.suf 1 FREE L *(D)DZ.DX[dz]ED[dzDXD]DX[dxEDXN]|4
ccl.dx.type 10 FREE L ABS.CAN.DX.TYPE*(D)DZ.DX[dz]ED[dzDXD]DX[dxEDXN]|5
Ì i 2
inp.oper.cpt.mods
[inp.urn,inp.oper.seq.no,inp.oper.cpt.seq.no, inp.oper.cpt.mod.no]
/(.D)DZINP[dz]D["O",dzO]C[dzOC]M[dzOCM]
Field Name Len Dat Typ J DPM Offset/Local/VAL
inp.oper.cpt.mod.no 2 PINT R dzOCM
inp.oper.cpt.mod 2 FREE L ABS.CPT.MOD /(.D)DZINP[dz]D["O",dzO]C[dzOC]M[dzOCM]|0
inp.oper.cpt.mod.exist 1 YN L VAL=IF{@inp.oper.cpt.mod[1] "Y"}
Ì i 2
inp.ov.opscrns.cpt.mods
[inp.urn,inp.ov.opscrn.line, inp.ov.opscrn.cpt.mod.no]
/(.D)DZINP[dz]D["OV",dzOVL]M[dzOVM]
Field Name Len Dat Typ J DPM Offset/Local/VAL
inp.ov.opscrn.cpt.mod.no 2 PINT R dzOVM
inp.ov.opscrn.cpt.mod 2 FREE L ABS.CPT.MOD /(.D)DZINP[dz]D["OV",dzOVL]M[dzOVM]|0
inp.ov.opscrn.cpt.mod.1 2 FREE L ABS.CPT.MOD VAL=@inp.ov.opscrn.cpt.mod[1]
inp.ov.opscrn.cpt.mod.2 2 FREE L ABS.CPT.MOD VAL=@inp.ov.opscrn.cpt.mod[2]
inp.ov.opscrn.cpt.mod.mor 1 YN L VAL=IF{@inp.ov.opscrn.cpt.mod[2] "Y";@inp.ov.opscrn.cp
VAL=t.mod[1] "N"}
Ì i 2
inp.rc.oper.cpt.mods
[inp.urn,inp.rc.date,inp.rc.time,inp.rc.oper.seq.no,inp.rc.oper.cpt.seq.no, inp.rc.oper.cpt.mo
/(.D)DZINP[dz]R[dzRD,dzRT]D["O",dzO]C[dzOC]M[dzOCM]
Field Name Len Dat Typ J DPM Offset/Local/VAL
inp.rc.oper.cpt.mod.no 2 PINT R dzOCM
inp.rc.oper.cpt.mod 2 FREE L ABS.CPT.MOD /(.D)DZINP[dz]R[dzRD,dzRT]D["O",dzO]C[dzOC]M[dzOCM]|0
Ì i 2
inp.rc.ov.ops.cpt.mods
[inp.urn,inp.rc.date,inp.rc.time,inp.rc.ov.opscrn.line, inp.rc.ov.ops.cpt.mod.no]
/(.D)DZINP[dz]R[dzRD,dzRT]D["OV",dzOVL]M[dzOVM]
Field Name Len Dat Typ J DPM Offset/Local/VAL
inp.rc.ov.ops.cpt.mod.no 2 PINT R dzOVM
inp.rc.ov.ops.cpt.mod 2 FREE L ABS.CPT.MOD /(.D)DZINP[dz]R[dzRD,dzRT]D["OV",dzOVL]M[dzOVM]|0
Ì i 2
main
[urn]
$(D1)DZ[dz]
Field Name Len Dat Typ J DPM Offset/Local/VAL
urn 44 FREE L dz
abs.created.date 8 DATE L $(D1)DZ[dz]A["AD"]|6
abs.status 10 CHOICE L $(D1)DZ[dz]|0
abs.status.date 8 DATE L $(D1)DZ[dz]|13
abs.status.disp 10 CHOICE L VAL=@p.ABS.PAT.abs.status
abstractor 10 FREE L MIS.USER $(D1)DZ[dz]A|17
account.number 12 FREE L $(D1)DZ[dz]|2
adm.cancelled.date 8 DATE L $(D1)DZ[dz]A["AD"]|2
adm.database 12 FREE L MIS.APPL.DB $(D1)DZ[dz]|11
adm.date 8 DATE L $(D1)DZ[dz]A|9
adm.date.disp 8 DATE L VAL=@p.ABS.PAT.adm.date
adm.from.er 1 YN L $(D1)DZ[dz]A|7
adm.hct 2 INT R $(D1)DZ[dz]PAS|4
adm.hgb 2 INT R $(D1)DZ[dz]PAS|3
adm.priority 10 FREE L MIS.ADM.PRIORT $(D1)DZ[dz]A|5
adm.purged.date 8 DATE L $(D1)DZ[dz]A["AD"]|5
adm.source 10 FREE L MIS.ADM.SOURCE $(D1)DZ[dz]A|6
adm.temp 6 DEC2 R $(D1)DZ[dz]PAS|9
adm.time 4 HHMM L $(D1)DZ[dz]A|10
adm.urn 30 URN L ADM.PAT $(D1)DZ[dz]|12
adm.wbc 2 INT R $(D1)DZ[dz]PAS|6
admit.phys 10 FREE L MIS.DOC $(D1)DZ[dz]A["AD"]|9
admit.phys.name 30 FREE L VAL=@MIS.DOC.name[@ABS.PAT.admit.phys]
age.99 1 YN L VAL=IF{%Z.age.in.years(@p.birthdate,IF{@p.adm.date;@.t
VAL=oday})>99 "Y";"N"}
age.adm 7 AGE L VAL=%Z.age(@p.ABS.PAT.birthdate,IF{@p.ABS.PAT.adm.date
VAL=;@.today})
age.adm.compare 10 AGE L VAL=%Z.age.with.years(@p.ABS.PAT.birthdate,IF{@p.ABS.P
VAL=AT.adm.date;@.today})
age.adm.in.years 3 INT L VAL=%Z.age.in.years(@p.ABS.PAT.birthdate,IF{@p.ABS.PAT
VAL=.adm.date;@.today})
age.current 7 AGE L VAL=%Z.age(@ABS.PAT.birthdate)
age.current.disp 7 AGE L VAL=%Z.age(@p.ABS.PAT.birthdate)
age.group 2 FREE L $(D1)DZ[dz]A["CN"]|8
alt.desc.grp 15 FREE L ABS.ALT.DESCGRP$(D1)DZ[dz]A["AD"]|0
ambulance 1 YN L $(D1)DZ[dz]A["CN"]|3
ambulance.call.number 15 FREE L $(D1)DZ[dz]A["CN"]|23
apc.grouper.version 10 FREE L ABS.APC.VERSION$(D1)DZ[dz]D|45
apg.calc.date 8 DATE L $(D1)DZ[dz]D["AP"]|3
apg.cost.wt 10 DEC R $(D1)DZ[dz]D["AP"]|15
apg.dollars 10 DEC2 R $(D1)DZ[dz]D["AP"]|11
apg.dollars.grp 10 DEC2 R $(D1)DZ[dz]D["AP"]|11
apg.financial.class 10 FREE L MIS.FIN.CLASS $(D1)DZ[dz]D["AP"]|5
apg.grouper.version 10 FREE L ABS.APG.VERSION$(D1)DZ[dz]D|44
apg.hc.trim 10 DEC2 R $(D1)DZ[dz]D["AP"]|17
apg.lc.trim 10 DEC2 R $(D1)DZ[dz]D["AP"]|18
apg.out.dollars 8 DEC2 R $(D1)DZ[dz]D["AP"]|19
apg.principal.dx 7 FREE L ABS.DIAG VAL=@dx[urn,1]
apg.pt.status 30 FREE L $(D1)DZ[dz]D["AP"]|20
apg.rate 10 DEC R $(D1)DZ[dz]D["AP"]|16
apg.summary 3 FREE L ABS.APG $(D1)DZ[dz]D["AP"]|0
apg.tot.cost.wt 10 DEC R $(D1)DZ[dz]D["AP"]|15
apg.tot.exp.reimb 10 DEC2 R $(D1)DZ[dz]D["AP"]|11
apg.total.charge 10 DEC2 R $(D1)DZ[dz]D["AP"]|6
apg.update.date 8 DATE L $(D1)DZ[dz]D["AP"]|3
arrival.date 8 DATE L $(D1)DZ[dz]A["CN"]AD|0
arrival.mode 10 FREE L MIS.ARRIV $(D1)DZ[dz]A|8
arrival.time 4 HHMM L $(D1)DZ[dz]A["CN"]AD|1
attending.phy.es.signs 1 YN L VAL=(IF{%ABS.PAT.es.phys.signs(@ABS.PAT.physician[1],I
VAL=F{@facility;.});"N"})
attending.phys 10 FREE L MIS.DOC VAL=(@ABS.PAT.physician[1])
attending.phys.name 30 FREE L VAL=@MIS.DOC.name[@physician[1]]
bar.cpts.flagged 1 YN L $(D1)DZ[dz]D["CC"]|6
bar.status 2 FREE L $(D1)DZ[dz]F["R"]|7
bar.txn.urn 4 INT R $(D1)DZ[dz]D["CC"]|4
bed 3 FREE L $(D1)DZ[dz]A|15
birthdate 10 BDATE L $(D1)DZ[dz]A|1
birthdate.estimated 1 YN L $(D1)DZ[dz]A["AD"]|16
blood.pres.dias 3 INT R $(D1)DZ[dz]PAS|8
blood.pres.sys 3 INT R $(D1)DZ[dz]PAS|7
ca.phor.abn 1 YN L $(D1)DZ[dz]PAS["BC"]|6
ca.phor.done 1 YN L $(D1)DZ[dz]PAS["BC"]|5
ca.phor.rpt 1 YN L $(D1)DZ[dz]PAS["BC"]|7
cd.screen 15 FREE L MIS.SCREEN VAL=@ABS.PT.CLASS.customer.def.screen[@pt.class]
charge.total 10 MONEY R $(D1)DZ[dz]F["C"]|0
charge.update.date 8 DATE L $(D1)DZ[dz]F["C"]|1
chart.number.prefix 1 FREE L VAL=IF{@Last(ABS.PAT.stillborn.seq.no)^LL 64+LL^LL,D(L
VAL=L)}
check.date 8 DATE L $(D1)DZ[dz]CH|0
child.dz 44 FREE L ABS.PAT $(D1)DZ[dz]A["AD"]|17
ck.admit.priv 1 YN L VAL=@MIS.DOC.admit.priv[@.new,IF{@facility;.},@.new]
cmg 3 FREE L ABS.DRG $(D1)DZ[dz]D|0
cmg.adm 3 FREE L ABS.DRG $(D1)DZ[dz]D|7
cmg.age.cat 4 FREE L VAL=%ABS.PAT.cmg.grp.get.age.cat(@birthdate,@adm.date)
cmg.age.group 1 PINT R $(D1)DZ[dz]D|42
cmg.and.status.disp 7 FREE L VAL=(@p.cmg_" "_@p.cmg.status'=" ")
cmg.atypical.type.all 3 CHOICE L
cmg.atypical.type.cal 3 CHOICE L VAL=(%ABS.PAT.cmg.grp.cost.val.setup(urn)#1P)
cmg.atypical.type.grp 3 CHOICE L $(D1)DZ[dz]D|27
cmg.calc.date 8 DATE L $(D1)DZ[dz]D|3
cmg.cc.indicator 1 YN L $(D1)DZ[dz]D|33
cmg.coder 10 FREE L MIS.USER $(D1)DZ[dz]D|17
cmg.cost.savings 10 DEC2 R VAL=(%ABS.PAT.cmg.grp.cost.val.setup(urn)#7P)
cmg.dollars.all 9 DEC2 R
cmg.dollars.cal 9 DEC2 R VAL=(%ABS.PAT.cmg.grp.cost.val.setup(urn)#0P)
cmg.dollars.calc.date 8 DATE L $(D1)DZ[dz]D|18
cmg.dollars.grp 9 DEC2 R $(D1)DZ[dz]D|11
cmg.final 3 FREE L ABS.DRG $(D1)DZ[dz]D|9
cmg.inst.acute 1 YN L $(D1)DZ[dz]D|39
cmg.intermediate 3 FREE L ABS.DRG $(D1)DZ[dz]D|8
cmg.los.grp 4 INT R $(D1)DZ[dz]D|29
cmg.most.respon.dx 7 FREE L ABS.DIAG VAL=@dx[urn,1]
cmg.quartile.1 4 DEC R $(D1)DZ[dz]D|21
cmg.quartile.2 4 DEC R $(D1)DZ[dz]D|22
cmg.quartile.3 4 DEC R $(D1)DZ[dz]D|23
cmg.quartile.4 4 DEC R $(D1)DZ[dz]D|24
cmg.quartile.all 1 INT R
cmg.quartile.cal 1 INT R VAL=(%ABS.PAT.cmg.grp.cost.val.setup(urn)#2P)
cmg.quartile.grp 1 INT R $(D1)DZ[dz]D|26
cmg.rate 10 DEC R $(D1)DZ[dz]D|16
cmg.riw.atypical.cal 10 DEC R VAL=(%ABS.PAT.cmg.grp.cost.val.setup(urn)#4P)
cmg.riw.atypical.grp 10 DEC R $(D1)DZ[dz]D|28
cmg.riw.cal 10 DEC R VAL=(%ABS.PAT.cmg.grp.cost.val.setup(urn)#6P)
cmg.riw.grp 10 DEC R VAL=IF{@cmg.atypical.type.grp @cmg.riw.atypical.grp;@c
VAL=mg.riw.typical.grp}
cmg.riw.typical.cal 10 DEC R VAL=(%ABS.PAT.cmg.grp.cost.val.setup(urn)#3P)
cmg.riw.typical.grp 10 DEC R $(D1)DZ[dz]D|15
cmg.rout.ancil.cost 10 DEC R $(D1)DZ[dz]D|25
cmg.source 10 CHOICE L $(D1)DZ[dz]D|19
cmg.status 1 CHOICE L $(D1)DZ[dz]D|1
cmg.status.date 8 DATE L $(D1)DZ[dz]D|34
cmg.status.disp 1 CHOICE L VAL=@p.ABS.PAT.cmg.status
cmg.std.los 5 DEC R $(D1)DZ[dz]D|14
cmg.surgical.type 1 FREE L $(D1)DZ[dz]D|32
cmg.trim 5 DEC R $(D1)DZ[dz]D|13
cmg.update.date 8 DATE L $(D1)DZ[dz]D|3
cmg.with.all.procedures 3 FREE L ABS.DRG $(D1)DZ[dz]D|6
cpt.chgs.update.date 8 DATE L $(D1)DZ[dz]D["CC"]|0
cpt.codes.upd 9 INT R $(D1)DZ[dz]D["CPT"]|2
cpt.date 8 DATE L $(D1)DZ[dz]D["CPT"]|1
cpt.date.out 8 DATE L VAL=IF{@cpt.date;@adm.date}
cpt.op.data 1 YN L $(D1)DZ[dz]D["O"]|0
cpt.op.only 1 YN L $(D1)DZ[dz]D["O"]|1
cpt.separate.from.ops 1 YN L $(D1)DZ[dz]D["O"]|2
cpt.surgeon 10 FREE L MIS.DOC $(D1)DZ[dz]D["CPT"]|0
cpt.surgeon.name 30 FREE L VAL=@MIS.DOC.name[@cpt.surgeon]
days.delay.final.abstract 5 INT R VAL=(IF{@ABS.PAT.abs.status="FINAL"&@ABS.PAT.abs.statu
VAL=s.date %Z.date.sub(@ABS.PAT.abs.status.date,@ABS.P
VAL=AT.dis.date)})
decision.to.admit.date 8 DATE L $(D1)DZ[dz]A["CN"]|24
decision.to.admit.time 4 HHMM L $(D1)DZ[dz]A["CN"]|22
deductible.pri.ins 13 MONEY R $(D1)DZ[dz]D["CC"]|3
deindexed.date 8 DATE L $(D1)DZ[dz]A["AD"]|3
dis.date 8 DATE L $(D1)DZ[dz]A["D"]|1
dis.date.disp 8 DATE L VAL=@p.ABS.PAT.dis.date
dis.date.now 8 DATE L VAL=IF{@p.dis.date;@.today}
dis.disposition 10 FREE L MIS.DIS $(D1)DZ[dz]A["D"]|0
dis.disposition.alive 1 FREE L VAL=@MIS.DIS.abs.tape.code[IF{@p.dis.disposition;c.dis
VAL=.disposition},MIS.ABS.TAPE.mnemonic]
dis.expired.48hr 1 YN L $(D1)DZ[dz]A["D"]|3
dis.expired.autopsy 1 YN L $(D1)DZ[dz]A["D"]|5
dis.expired.autopsy.code 10 FREE L ABS.CAN.AUTOPSY$(D1)DZ[dz]A["D"]|11
dis.expired.coroner.me 10 FREE L ABS.CAN.CORONER$(D1)DZ[dz]A["D"]|13
dis.expired.due.to 11 CHOICE L $(D1)DZ[dz]A["D"]|9
dis.expired.dur.proc 1 CHOICE L $(D1)DZ[dz]A["D"]|16
dis.expired.me 1 YN L $(D1)DZ[dz]A["D"]|6
dis.expired.orpo 1 CHOICE L $(D1)DZ[dz]A["D"]|4
dis.expired.orpo.can 1 CHOICE L $(D1)DZ[dz]A["D"]|4
dis.expired.scu 1 CHOICE L $(D1)DZ[dz]A["D"]|10
dis.left.er.date 8 DATE L $(D1)DZ[dz]A["D"]|14
dis.left.er.time 4 HHMM L $(D1)DZ[dz]A["D"]|15
dis.plan 10 FREE L ABS.DIS.PLAN $(D1)DZ[dz]A["D"]|7
dis.ready.date 8 DATE L $(D1)DZ[dz]A["D"]|8
dis.ready.date.unknown 1 YN L $(D1)DZ[dz]A["D"]|12
dis.service 10 FREE L MIS.ABS.SVC VAL=(@ABS.PAT.abs.service[urn,@Last(@ABS.PAT.abs.servi
VAL=ce.seq.no)])
dis.time 4 HHMM L $(D1)DZ[dz]A["D"]|2
dolt.user.device 5 FREE L $(D1)DZ[dz]A["DT"]|2
dolt.user.screen 15 FREE L $(D1)DZ[dz]A["DT"]|3
dolt.user.seconds 10 PINT R $(D1)DZ[dz]A["DT"]|0
dolt.user.user 10 FREE L MIS.USER $(D1)DZ[dz]A["DT"]|1
dpg 2 PINT R ABS.DPG $(D1)DZ[dz]D["DP"]|0
dpg.calc.date 8 DATE L $(D1)DZ[dz]D["DP"]|3
dpg.cc.indicator 1 YN L $(D1)DZ[dz]D["DP"]|33
dpg.coder 10 FREE L MIS.USER $(D1)DZ[dz]D["DP"]|17
dpg.cost.wt 10 DEC R $(D1)DZ[dz]D["DP"]|15
dpg.dollars.cal 9 DEC2 R VAL=(%ABS.PAT.dpg.grp.cost.val.setup(urn)#0P)
dpg.dollars.calc.date 8 DATE L $(D1)DZ[dz]D["DP"]|18
dpg.dollars.grp 9 DEC2 R $(D1)DZ[dz]D["DP"]|11
dpg.financial.class 10 FREE L MIS.FIN.CLASS $(D1)DZ[dz]D["DP"]|5
dpg.grouper.version 10 FREE L ABS.VERSION $(D1)DZ[dz]D|4
dpg.pt.class 10 FREE L ABS.PT.CLASS $(D1)DZ[dz]D["DP"]|40
dpg.rate 10 DEC R $(D1)DZ[dz]D["DP"]|16
dpg.rate.cal 10 DEC R VAL=(%ABS.PAT.dpg.grp.cost.val.setup(urn)#2P)
dpg.riw.typical.grp 10 DEC R $(D1)DZ[dz]D["DP"]|15
dpg.sex 1 CHOICE L $(D1)DZ[dz]D["DP"]|37
dpg.source 10 CHOICE L $(D1)DZ[dz]D|19
dpg.update.date 8 DATE L $(D1)DZ[dz]D["DP"]|3
drg 3 FREE L ABS.DRG $(D1)DZ[dz]D|0
drg.adm 3 FREE L ABS.DRG $(D1)DZ[dz]D|7
drg.admit.dx 7 FREE L ABS.DIAG $(D1)DZ[dz]D|10
drg.admit.dx.alt.name 60 FREE L $(D1)DZ[dz]D["AD"]|0
drg.admit.dx.name.alt.std 60 FREE L VAL=IF{@drg.admit.dx.alt.name;@ABS.DIAG.alt.desc.grp.n
VAL=ame[@drg.grouper.version,@drg.admit.dx,@alt.desc.g
VAL=rp];@ABS.DIAG.name[@drg.grouper.version,@drg.admit
VAL=.dx]}
drg.age 3 INT R $(D1)DZ[dz]D|36
drg.age.cat 4 FREE L VAL=%ABS.PAT.drg.grp.get.age.cat(@birthdate,@adm.date)
drg.and.status.disp 7 FREE L VAL=(@p.drg_" "_@p.drg.status'=" ")
drg.arith.los 5 DEC R $(D1)DZ[dz]D|21
drg.calc.date 8 DATE L $(D1)DZ[dz]D|3
drg.coder 10 FREE L MIS.USER $(D1)DZ[dz]D|17
drg.cost.wt 10 DEC R $(D1)DZ[dz]D|15
drg.dis.disp 10 FREE L MIS.DIS $(D1)DZ[dz]D|38
drg.dollars 9 DEC2 R $(D1)DZ[dz]D|11
drg.dollars.calc.date 8 DATE L $(D1)DZ[dz]D|18
drg.final 3 FREE L ABS.DRG $(D1)DZ[dz]D|9
drg.financial.class 10 FREE L MIS.FIN.CLASS $(D1)DZ[dz]D|5
drg.geom.los 5 DEC R $(D1)DZ[dz]D|22
drg.grouper.used 10 CHOICE L $(D1)DZ[dz]D|19
drg.grouper.version 10 FREE L ABS.VERSION $(D1)DZ[dz]D|4
drg.intermediate 3 FREE L ABS.DRG $(D1)DZ[dz]D|8
drg.max.los 4 DEC R $(D1)DZ[dz]D|13
drg.min.los 4 DEC R $(D1)DZ[dz]D|12
drg.principal.dx 7 FREE L ABS.DIAG VAL=@dx[urn,1]
drg.pt.class 10 FREE L ABS.PT.CLASS $(D1)DZ[dz]D|40
drg.rate 10 DEC R $(D1)DZ[dz]D|16
drg.sex 1 CHOICE L $(D1)DZ[dz]D|37
drg.skip.xfer 1 YN L $(D1)DZ[dz]D|20
drg.source 10 CHOICE L $(D1)DZ[dz]D|19
drg.status 1 CHOICE L $(D1)DZ[dz]D|1
drg.status.date 8 DATE L $(D1)DZ[dz]D|34
drg.status.disp 1 CHOICE L VAL=@p.ABS.PAT.drg.status
drg.std.los 5 DEC R $(D1)DZ[dz]D|14
drg.update.date 8 DATE L $(D1)DZ[dz]D|3
drg.used.ov.data 1 YN L $(D1)DZ[dz]D|35
drg.with.all.procedures 3 FREE L ABS.DRG $(D1)DZ[dz]D|6
dx.codeset 10 CHOICE L VAL=%ABS.PAT.dx.codeset(ABS.PAT.urn,"DX")
elos 5 DEC R $(D1)DZ[dz]D|43
entry.code 10 FREE L MIS.CAN.ENTRY $(D1)DZ[dz]A["CN"]|1
enzymes.abn 1 YN L $(D1)DZ[dz]PAS["BC"]|15
enzymes.done 1 YN L $(D1)DZ[dz]PAS["BC"]|14
enzymes.rpt 1 YN L $(D1)DZ[dz]PAS["BC"]|16
er.wait.time 4 INT R $(D1)DZ[dz]A["CN"]|18
es.form.alt.signature 55 FREE L VAL=/(.D)ABS.PAT.ES.FORM.ALT.SIGNATURE
es.form.signature 55 FREE L VAL=/(.D)ABS.PAT.ES.FORM.SIGNATURE
es.form.signed.date 15 FREE L VAL=/(.D)ABS.PAT.ES.FORM.SIGNED.DATE
es.form.version 17 FREE L VAL=/(.D)ABS.PAT.ES.FORM.VERSION
est.blood.loss 2 INT R $(D1)DZ[dz]PAS|2
expected.los 4 PINT R $(D1)DZ[dz]A|21
facility 10 FREE L MIS.FACILITY $(D1)DZ[dz]|10
family.phys 10 FREE L MIS.DOC $(D1)DZ[dz]A["AD"]|10
family.phys.name 30 FREE L VAL=@MIS.DOC.name[@ABS.PAT.family.phys]
family.phys.name.out 30 FREE L VAL=(IF{@MIS.DOC.name[@ABS.PAT.family.phys];@ABS.PAT.f
VAL=amily.phys})
financial.class 10 FREE L MIS.FIN.CLASS $(D1)DZ[dz]|7
first.name 30 FREE L VAL=(@ABS.PAT.name#"1,")
glasgow.coma.scale 2 CHOICE L $(D1)DZ[dz]A["CN"]|25
glucose.abn 1 YN L $(D1)DZ[dz]PAS["BC"]|24
glucose.done 1 YN L $(D1)DZ[dz]PAS["BC"]|23
glucose.rpt 1 YN L $(D1)DZ[dz]PAS["BC"]|25
group.type 3 FREE L $(D1)DZ[dz]D["AD"]|1
hcn.assign.by.prov 2 FREE L MIS.CAN.PROV $(D1)DZ[dz]A["CN"]|20
health.care.number 14 FREE L $(D1)DZ[dz]A["CN"]|6
hmri.study 10 FREE L ABS.CAN.STUDY $(D1)DZ[dz]A["CN"]|13
hospital.no 4 INT R VAL=(@MIS.CAN.REGCAT.hospital.number[@ABS.PAT.regist.c
VAL=ateg])
id 44 FREE L ABS.PAT VAL=(@ABS.PAT.account.number_" - "_@ABS.PAT.name'=" -
VAL=")
in.house 1 YN L VAL=IF{@room&(@adm.date'>@.today)&'@dis.date "Y";"N
VAL="}
inpatient.location 10 FREE L MIS.LOCN $(D1)DZ[dz]A|16
inprocess.status.change 1 YN L $(D1)DZ[dz]|16
institution.from 10 FREE L MIS.CAN.INST $(D1)DZ[dz]A["CN"]|2
institution.from.code 4 INT R VAL=(@MIS.CAN.INST.abs.tape.code[@p.institution.from,M
VAL=IS.ABS.TAPE.mnemonic])
institution.to 10 FREE L MIS.CAN.INST $(D1)DZ[dz]A["CN"]|10
institution.to.code 4 INT R VAL=(@MIS.CAN.INST.abs.tape.code[@p.institution.to,MIS
VAL=.ABS.TAPE.mnemonic])
interupt.dis.disp 1 FREE L $(D1)DZ[dz]A|22
interupt.stay.days 3 PINT R $(D1)DZ[dz]A|23
key.nacrs.chart.num 10 FREE L $(D1)DZ[dz]A["CN"]KN|4
key.nacrs.fac.num 5 FREE L $(D1)DZ[dz]A["CN"]KN|1
key.nacrs.fac.prov 2 FREE L MIS.CAN.PROV $(D1)DZ[dz]A["CN"]KN|0
key.nacrs.period 2 PINT R $(D1)DZ[dz]A["CN"]KN|3
key.nacrs.year 4 YEAR L $(D1)DZ[dz]A["CN"]KN|2
language 10 FREE L MIS.CAN.LANG $(D1)DZ[dz]A["CN"]|7
last.discharge.date 8 DATE L $(D1)DZ[dz]A|12
last.discharge.days 4 INT R VAL=IF{@last.discharge.date&@adm.date %Z.date.sub(@adm
VAL=.date,@last.discharge.date)>0}
last.name 30 FREE L VAL=(@ABS.PAT.name#"0,")
last.update 10 PINT R $(D1)DZ[dz]UPD
last.update.date 8 DATE L VAL=%Z.date.in.magic(@ABS.PAT.last.update/86400)
level 1 PINT R $(D1)DZ[dz]D|41
lipids.abn 1 YN L $(D1)DZ[dz]PAS["BC"]|21
lipids.done 1 YN L $(D1)DZ[dz]PAS["BC"]|20
lipids.rpt 1 YN L $(D1)DZ[dz]PAS["BC"]|22
liver.abn 1 YN L $(D1)DZ[dz]PAS["BC"]|12
liver.done 1 YN L $(D1)DZ[dz]PAS["BC"]|11
liver.rpt 1 YN L $(D1)DZ[dz]PAS["BC"]|13
loa.days 4 PINT R $(D1)DZ[dz]A|13
location 10 FREE L MIS.LOCN $(D1)DZ[dz]A|16
los.days 4 INT R VAL=(IF{@ABS.PAT.adm.date %Z.date.sub(@ABS.PAT.dis.dat
VAL=e,@ABS.PAT.adm.date)!1;0})
los.days.now 4 INT R VAL=(IF{@ABS.PAT.adm.date %Z.date.sub(IF{@ABS.PAT.dis.
VAL=date;@.today},@ABS.PAT.adm.date)!1;0})
los.days.now.disp 4 PINT L VAL=(IF{@p.ABS.PAT.adm.date %Z.date.sub(IF{@p.ABS.PAT.
VAL=dis.date;@.today},@p.ABS.PAT.adm.date)!1;0})
los.outlier 3 PINT R VAL=(IF{@ABS.PAT.drg&@ABS.PAT.drg.max.los @ABS.PAT.los
VAL=.days.now-@ABS.PAT.drg.max.los>0})
lytes.abn 1 YN L $(D1)DZ[dz]PAS["BC"]|9
lytes.done 1 YN L $(D1)DZ[dz]PAS["BC"]|8
lytes.rpt 1 YN L $(D1)DZ[dz]PAS["BC"]|10
main.service.code 2 FREE L VAL=(@MIS.ABS.SVC.abs.tape.code[@abs.service[1],MIS.AB
VAL=S.TAPE.mnemonic])
main.sub.service.code 1 FREE L VAL=(@ABS.CAN.SUB.SVC.abs.tape.code[@abs.service.sub.s
VAL=vc[1],MIS.ABS.TAPE.mnemonic])
manual.abs.status.disp 10 CHOICE L VAL=IF{@p.ABS.PAT.abs.status^STAT="IN PROCESS";"IN PRO
VAL=CESS"}
marital.status 10 FREE L MIS.MAR.STATUS $(D1)DZ[dz]A|3
maternity.delivery.date 8 DATE L $(D1)DZ[dz]A["M"]|4
maternity.delivery.method 10 FREE L ABS.DELIV $(D1)DZ[dz]A["M"]|3
maternity.length.of.labor 3 INT R $(D1)DZ[dz]A["M"]|0
maternity.no.live.births 2 INT R $(D1)DZ[dz]A["M"]|1
maternity.no.stillborn 2 INT R $(D1)DZ[dz]A["M"]|2
mcc 2 FREE L ABS.MDC $(D1)DZ[dz]D|31
most.responsible.phys 10 FREE L MIS.DOC VAL=(@ABS.PAT.physician[1])
mothers.acct.number 12 FREE L $(D1)DZ[dz]A["AD"]|11
mothers.number.and.name 45 FREE L VAL=(@p.ABS.PAT.account.number[mothers.pointer]_" - "_
VAL=@p.ABS.PAT.name[mothers.pointer]'=" - ")
mothers.pointer 44 FREE L ABS.PAT $(D1)DZ[dz]A|19
mri.urn 25 URN L MRI.PAT $(D1)DZ[dz]|5
multichannel.done 1 YN L $(D1)DZ[dz]PAS["BC"]|0
multichannel.rpt 1 YN L $(D1)DZ[dz]PAS["BC"]|1
name 30 FREE L $(D1)DZ[dz]|1
name.18 18 FREE L VAL=(@ABS.PAT.name$18)
name.20 20 FREE L VAL=(@ABS.PAT.name$20)
newborn 1 YN L $(D1)DZ[dz]A|18
newborn.adm.src 10 FREE L MIS.NEWBORN $(D1)DZ[dz]A["N"]|6
newborn.apgar.1 2 CHOICE L $(D1)DZ[dz]A["N"]|3
newborn.apgar.2 2 CHOICE L $(D1)DZ[dz]A["N"]|4
newborn.ventilator.days 2 PINT R $(D1)DZ[dz]A["N"]|5
newborn.weight.gr 4 PINT R $(D1)DZ[dz]A["N"]|2
newborn.weight.gr.can 4 INT R $(D1)DZ[dz]A["N"]|2
newborn.weight.lbs 2 PINT R $(D1)DZ[dz]A["N"]|0
newborn.weight.ozs 2 PINT R $(D1)DZ[dz]A["N"]|1
next.bill.date 8 DATE L $(D1)DZ[dz]D["CC"]|2
next.bill.type 3 FREE L $(D1)DZ[dz]D["CC"]|1
nitrogen.abn 1 YN L $(D1)DZ[dz]PAS["BC"]|3
nitrogen.done 1 YN L $(D1)DZ[dz]PAS["BC"]|2
nitrogen.rpt 1 YN L $(D1)DZ[dz]PAS["BC"]|4
number.and.name 45 FREE L VAL=((@p.ABS.PAT.account.number_" - "_@p.ABS.PAT.name)
VAL='=" - ")
observ.patient 1 YN L $(D1)DZ[dz]|4
observation.date 8 DATE L $(D1)DZ[dz]A["AD"]|4
observation.time 4 HHMM L $(D1)DZ[dz]A["AD"]|13
on.fin.bat.queue.date 8 DATE L VAL=%Z.date.in.magic(@ov.final.x)
op.filed.by.user 1 FREE L $(D1)DZ[dz]|15
outpatient.location 10 FREE L MIS.LOCN $(D1)DZ[dz]A|16
packed.rbsc 2 INT R $(D1)DZ[dz]PAS|0
parent.dz 44 FREE L ABS.PAT $(D1)DZ[dz]A["AD"]|18
peak.temp 6 DEC2 R $(D1)DZ[dz]PAS|10
phys.init.assess.date 8 DATE L $(D1)DZ[dz]A["CN"]AD|4
phys.init.assess.time 4 HHMM L $(D1)DZ[dz]A["CN"]AD|5
post.op.or.part.hct 2 INT R $(D1)DZ[dz]PAS|5
postal.code 10 ZIP.POST L $(D1)DZ[dz]A|4
postal.code.tape 10 ZIP.POST L $(D1)DZ[dz]A["CN"]|16
preadmit.workup 10 FREE L ABS.CAN.WKUP $(D1)DZ[dz]A["CN"]|12
prim.care.phys 10 FREE L MIS.DOC $(D1)DZ[dz]A["AD"]|8
prim.care.phys.name 30 FREE L VAL=@MIS.DOC.name[@ABS.PAT.prim.care.phys]
prin.drg.proc 5 FREE L ABS.PROC VAL=@ABS.PAT.drg.proc[1]
prin.drg.proc.nam.alt.rpt 60 FREE L VAL=IF{@ABS.PROC.alt.desc.grp.name[@ABS.PAT.drg.groupe
VAL=r.version,@ABS.PAT.drg.proc[1],@ABS.PAT.alt.desc.g
VAL=rp];@ABS.PROC.name[@ABS.PAT.drg.grouper.version,@A
VAL=BS.PAT.drg.proc[1]]}
prin.drg.proc.name.50 50 FREE L VAL=@ABS.PROC.name.50[@ABS.PAT.drg.grouper.version,@AB
VAL=S.PAT.drg.proc[1]]
prin.dx 7 FREE L ABS.DIAG VAL=@ABS.PAT.dx[1]
prin.dx.name.50 50 FREE L VAL=(@ABS.DIAG.name[@ABS.PAT.drg.grouper.version,@ABS.
VAL=PAT.dx[1]]$50)
prin.dx.name.alt.std.rpt 60 FREE L VAL=IF{@ABS.PAT.dx.alt.name[1];@ABS.DIAG.alt.desc.grp.
VAL=name[@ABS.PAT.drg.grouper.version,@ABS.PAT.dx[1],@
VAL=ABS.PAT.alt.desc.grp];@ABS.DIAG.name[@ABS.PAT.drg.
VAL=grouper.version,@ABS.PAT.dx[1]]}
prin.proc 5 FREE L ABS.PROC VAL=@ABS.PAT.oper.proc[1,1]
prin.proc.nam.alt.std.rpt 60 FREE L VAL=IF{@ABS.PAT.oper.proc.alt.name[1,1];@ABS.PROC.alt.
VAL=desc.grp.name[@ABS.PAT.drg.grouper.version,@ABS.PA
VAL=T.oper.proc[1,1],@ABS.PAT.alt.desc.grp];@ABS.PROC.
VAL=name[@ABS.PAT.drg.grouper.version,@ABS.PAT.oper.pr
VAL=oc[1,1]]}
prin.proc.name.50 50 FREE L VAL=@ABS.PROC.name.50[@ABS.PAT.drg.grouper.version,@AB
VAL=S.PAT.oper.proc[1,1]]
prin.surg 10 FREE L MIS.DOC VAL=@ABS.PAT.oper.surgeon[1,1]
print.cd.screen 0 FREE L VAL=IF{@cd.screen urn^/urn,%MIS.SCREEN.print(@cd.scree
VAL=n,^@customer.defined.fields,"",0),""}
print.cd.screen.verbatim 0 FREE L VAL=IF{@cd.screen urn^/urn,%MIS.SCREEN.print(@cd.scree
VAL=n,^@customer.defined.fields,1,0),""}
print.ur.cds 0 FREE L VAL=IF{@ABS.PARAM.ur.cds&@main urn^/urn,%MIS.SCREEN.pr
VAL=int(@ABS.PARAM.ur.cds,^@customer.defined.fields,1,
VAL=0)}
print.ur.cds.verbatim 0 FREE L VAL=IF{@ABS.PARAM.ur.cds&@main urn^/urn,%MIS.SCREEN.pr
VAL=int(ABS.PARAM.ur.cds,^@customer.defined.fields,"",
VAL=0)}
proc.codeset 10 CHOICE L VAL=%ABS.PAT.dx.codeset(ABS.PAT.urn,"PROC")
prod.line 10 FREE L ABS.PROD.LINE VAL=(%ABS.PROD.RULES.find.prod.line(@ABS.PAT.urn))
proteins.abn 1 YN L $(D1)DZ[dz]PAS["BC"]|18
proteins.done 1 YN L $(D1)DZ[dz]PAS["BC"]|17
proteins.rpt 1 YN L $(D1)DZ[dz]PAS["BC"]|19
province 2 FREE L $(D1)DZ[dz]A["CN"]|5
pt.class 10 FREE L ABS.PT.CLASS $(D1)DZ[dz]|8
pt.class.disp 10 FREE L ABS.PT.CLASS VAL=@p.ABS.PAT.pt.class
pt.grouper.version 10 FREE L ABS.VERSION VAL=(@drg.grouper.version^drg.grouper.version)
pt.status 8 FREE L ABS.PT.STATUS $(D1)DZ[dz]|6
pt.status.disp 8 FREE L ABS.PT.STATUS VAL=@p.ABS.PAT.pt.status
race 10 FREE L MIS.RACE $(D1)DZ[dz]A|2
rc.conv.in.process 1 YN L $(D1)DZ[dz]R|1
rc.first.visit.date 8 DATE L VAL=(@First(rc.date))
rc.first.visit.time 4 HHMM L VAL=(+@rc.dates[urn,IF{rc.date;+@rc.dates[urn,""]},""]
VAL=)
rc.last.visit.date 8 DATE L VAL=(@Last(rc.date))
rc.last.visit.time 4 HHMM L VAL=(-@rc.dates[urn,IF{rc.date;(-@rc.dates[urn,""])},"
VAL="])
rc.prin.dx 7 FREE L ABS.DIAG VAL=@rc.dx[urn,@First(rc.date)^rc.date,@First(rc.time)
VAL=,1]
rc.scrn.data 1 YN L $(D1)DZ[dz]R|0
rc.visit.number 3 PINT R VAL=%ABS.PAT.rc.visits.num(urn)
readmission.code 10 FREE L ABS.CAN.READM $(D1)DZ[dz]A["CN"]|11
reason.for.visit 50 FREE L $(D1)DZ[dz]A|20
refile.check 1 YN L $(D1)DZ[dz]A["AD"]|7
regist.categ 10 FREE L MIS.CAN.REGCAT $(D1)DZ[dz]A["CN"]|0
reimbur.exp.total 10 MONEY R $(D1)DZ[dz]F["R"]|4
reimbur.ins.adj 10 MONEY R $(D1)DZ[dz]F["R"]|5
reimbur.ins.bal 10 MONEY R $(D1)DZ[dz]F["R"]|1
reimbur.ins.exp.reimb 10 MONEY R $(D1)DZ[dz]F["R"]|8
reimbur.ins.rec 10 MONEY R $(D1)DZ[dz]F["R"]|0
reimbur.pt.adj 10 MONEY R $(D1)DZ[dz]F["R"]|6
reimbur.pt.bal 10 MONEY R $(D1)DZ[dz]F["R"]|3
reimbur.pt.exp.reimb 10 MONEY R $(D1)DZ[dz]F["R"]|9
reimbur.pt.rec 10 MONEY R $(D1)DZ[dz]F["R"]|2
reservation.date 8 DATE L $(D1)DZ[dz]A|11
residence.code 10 FREE L MIS.CNTY $(D1)DZ[dz]A["CN"]|4
resp.for.pay 1 FREE L VAL=@MIS.FIN.CLASS.resp.for.pay.code[@ABS.PAT.financia
VAL=l.class]
room 10 FREE L MIS.ROOM $(D1)DZ[dz]A|14
sdc.hour 2 PINT R $(D1)DZ[dz]A["CN"]|14
second.chart.number 10 FREE L VAL=IF{-@ABS.PAT.baby.x[ABS.PAT.urn,""]^DD @ABS.PAT.un
VAL=it.number[DD]}
second.chart.number.dolt 10 FREE L $(D1)DZ[dz]A["CN"]|17
service.date 8 DATE L $(D1)DZ[dz]A["AD"]|1
service.time 4 HHMM L $(D1)DZ[dz]A["AD"]|12
sex 1 CHOICE L $(D1)DZ[dz]A|0
sex.disp 1 CHOICE L VAL=@p.ABS.PAT.sex
soc.sec.no 12 FREE L $(D1)DZ[dz]|14
social.services 10 FREE L ABS.CAN.SOC.SVC$(D1)DZ[dz]A["CN"]|15
sort.id 44 FREE L
sort.name 30 FREE L $(D1)DZ[dz]|9
spec.studies.last.ed.date 8 DATE L $(D1)DZ[dz]SS|0
spec.studies.last.ed.user 10 FREE L MIS.USER $(D1)DZ[dz]SS|1
std.cost.fixed 10 DEC2 R $(D1)DZ[dz]F["S"]|5
std.cost.labor 10 DEC2 R $(D1)DZ[dz]F["S"]|2
std.cost.last.update 8 DATE L $(D1)DZ[dz]F["S"]|1
std.cost.materials 10 DEC2 R $(D1)DZ[dz]F["S"]|3
std.cost.overhead 10 DEC2 R $(D1)DZ[dz]F["S"]|4
std.cost.su.per.day 1 YN L $(D1)DZ[dz]F["S"]|7
std.cost.total 10 DEC2 R $(D1)DZ[dz]F["S"]|0
std.cost.variable 10 DEC2 R $(D1)DZ[dz]F["S"]|6
thyroid.abn 1 YN L $(D1)DZ[dz]PAS["BC"]|27
thyroid.done 1 YN L $(D1)DZ[dz]PAS["BC"]|26
thyroid.rpt 1 YN L $(D1)DZ[dz]PAS["BC"]|28
triage.date 8 DATE L $(D1)DZ[dz]A["CN"]AD|2
triage.level 10 FREE L MIS.CAN.TRIAGE $(D1)DZ[dz]A["CN"]|21
triage.time 4 HHMM L $(D1)DZ[dz]A["CN"]AD|3
unit.number 10 FREE L $(D1)DZ[dz]|3
unit.number.disp 10 FREE L VAL=@p.ABS.PAT.unit.number
unit.number.tdo 10 FREE L VAL=%MIS.PARAM.unit.number.tdo(@unit.number)
unplanned.readmission 1 YN L $(D1)DZ[dz]A["CN"]|19
ur.admit.reason 10 FREE L ABS.ADM.REASON $(D1)DZ[dz]U|2
ur.and.level 10 FREE L ABS.AND.LEVEL $(D1)DZ[dz]U|8
ur.and.reason 10 FREE L ABS.AND.REASON $(D1)DZ[dz]U|9
ur.coord 10 FREE L MIS.USER $(D1)DZ[dz]U|13
ur.coord.name 34 FREE L VAL=@MIS.USER.name[@ur.coord]
ur.dis.plan.days 3 PINT R $(D1)DZ[dz]U|5
ur.dis.plan.type 10 FREE L ABS.DIS.PLAN $(D1)DZ[dz]U|4
ur.doc.review 3 PINT R $(D1)DZ[dz]U|3
ur.editor.help 0 FREE L
ur.initial.cert.days 4 PINT R $(D1)DZ[dz]U|1
ur.los.beyond.init.cert 1 YN L VAL=IF{@ur.initial.cert.days<(@los.days.now) "Y";@u
VAL=r.initial.cert.days "N"}
ur.next.date 8 DATE L $(D1)DZ[dz]U|11
ur.next.type 10 FREE L ABS.REVIEW.TYP $(D1)DZ[dz]U|12
ur.number.extensions 3 PINT R $(D1)DZ[dz]U|7
ur.number.reviews 3 INT R VAL=-@ur.events[urn,""]
ur.review.date 8 DATE L $(D1)DZ[dz]U|10
ur.review.type 10 FREE L ABS.REVIEW.TYP $(D1)DZ[dz]U|6
ur.stat.fields 10 FREE L
ur.status 10 FREE L ABS.UR.STATUS $(D1)DZ[dz]U|0
use.ov.proc.order.for.bar 1 YN L $(D1)DZ[dz]D|30
whole.blood 2 INT R $(D1)DZ[dz]PAS|1
wt.recorded 1 YN L $(D1)DZ[dz]PAS|11
zip 10 ZIP.POST L $(D1)DZ[dz]A|4
Ì € i 2
abs.services
[urn, abs.service.seq.no]
$(D1)DZ[dz]A["S",dzSS]
Field Name Len Dat Typ J DPM Offset/Local/VAL
abs.service.seq.no 3 PINT R dzSS
abs.service 10 FREE L MIS.ABS.SVC $(D1)DZ[dz]A["S",dzSS]|0
abs.service.days 4 PINT R $(D1)DZ[dz]A["S",dzSS]|3
abs.service.dr 10 FREE L MIS.DOC $(D1)DZ[dz]A["S",dzSS]|5
abs.service.dr.svc 10 FREE L MIS.ABS.SVC $(D1)DZ[dz]A["S",dzSS]|6
abs.service.dx 7 FREE L ABS.DIAG $(D1)DZ[dz]A["S",dzSS]|7
abs.service.dx.nam.altrpt 60 FREE L VAL=IF{@ABS.DIAG.alt.desc.grp.name[@ABS.PAT.drg.groupe
VAL=r.version,@ABS.PAT.abs.service.dx,@ABS.PAT.alt.des
VAL=c.grp];@ABS.DIAG.name[@ABS.PAT.drg.grouper.version
VAL=,@ABS.PAT.abs.service.dx]}
abs.service.dx.pre 1 FREE L $(D1)DZ[dz]A["S",dzSS]|8
abs.service.dx.suf 1 FREE L $(D1)DZ[dz]A["S",dzSS]|9
abs.service.end 8 DATE L $(D1)DZ[dz]A["S",dzSS]|2
abs.service.name 30 FREE L VAL=@MIS.ABS.SVC.name[@abs.service]
abs.service.start 8 DATE L $(D1)DZ[dz]A["S",dzSS]|1
abs.service.sub.svc 10 FREE L ABS.CAN.SUB.SVC$(D1)DZ[dz]A["S",dzSS]|4
Ì € i 2
abs.spec.care.units
[urn, abs.spec.care.seq.no]
$(D1)DZ[dz]A["SP",dzSPS]
Field Name Len Dat Typ J DPM Offset/Local/VAL
abs.spec.care.seq.no 3 PINT R dzSPS
abs.spec.care 10 FREE L ABS.SPEC.CARE $(D1)DZ[dz]A["SP",dzSPS]|0
abs.spec.care.days 4 PINT R $(D1)DZ[dz]A["SP",dzSPS]|3
abs.spec.care.end 8 DATE L $(D1)DZ[dz]A["SP",dzSPS]|2
abs.spec.care.end.time 4 HHMM L $(D1)DZ[dz]A["SP",dzSPS]|5
abs.spec.care.hours 6 PINT R $(D1)DZ[dz]A["SP",dzSPS]|6
abs.spec.care.name 30 FREE L VAL=@ABS.SPEC.CARE.name[@abs.spec.care]
abs.spec.care.start 8 DATE L $(D1)DZ[dz]A["SP",dzSPS]|1
abs.spec.care.start.time 4 HHMM L $(D1)DZ[dz]A["SP",dzSPS]|4
Ì € i 2
adm.rcr.dates
[urn, adm.recur.date,adm.recur.time]
$(D1)DZ[dz]A["AR",dzARD,dzART]
Field Name Len Dat Typ J DPM Offset/Local/VAL
adm.recur.date 8 DATE L dzARD
adm.recur.time 4 HHMM L dzART
adm.recur.abs.deleted 1 YN L $(D1)DZ[dz]A["AR",dzARD,dzART]|1
adm.recur.locn 10 FREE L MIS.LOCN $(D1)DZ[dz]A["AR",dzARD,dzART]|0
Ì € i 2
adm.services
[urn, adm.service.start]
$(D1)DZ[dz]A["SA",dzSA]
Field Name Len Dat Typ J DPM Offset/Local/VAL
adm.service.start 8 DATE L dzSA
adm.service 10 FREE L MIS.SVC $(D1)DZ[dz]A["SA",dzSA]|0
adm.service.end 8 DATE L $(D1)DZ[dz]A["SA",dzSA]|1
Ì € i 2
adm.spec.care.svcs
[urn, adm.spec.care.svc.start]
$(D1)DZ[dz]A["SCA",dzSPA]
Field Name Len Dat Typ J DPM Offset/Local/VAL
adm.spec.care.svc.start 8 DATE L dzSPA
adm.spec.care.svc 10 FREE L MIS.LOCN $(D1)DZ[dz]A["SCA",dzSPA]|0
adm.spec.care.svc.end 8 DATE L $(D1)DZ[dz]A["SCA",dzSPA]|1
Ì € i 2
can.key.visit.centers
[urn, key.nacrs.vc.seq.no]
$(D1)DZ[dz]A["CN"]KN["VC",dKVC]
Field Name Len Dat Typ J DPM Offset/Local/VAL
key.nacrs.vc.seq.no 2 PINT R dKVC
key.nacrs.vc.abstract.id 7 PINT R $(D1)DZ[dz]A["CN"]KN["VC",dKVC]|1
key.nacrs.visit.center 9 INT R ABS.CAN.VIS.CTR$(D1)DZ[dz]A["CN"]KN["VC",dKVC]|0
Ì € i 2
canadian.key.fields
[urn, can.key.stillborn.seq.no]
$(D1)DZ[dz]A["CN"]KEY[dzSBN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
can.key.stillborn.seq.no 2 INT R dzSBN
can.key.batch.abstract.no 3 INT R $(D1)DZ[dz]A["CN"]KEY[dzSBN]|1
can.key.batch.number 2 INT R $(D1)DZ[dz]A["CN"]KEY[dzSBN]|0
can.key.batch.period 2 INT R $(D1)DZ[dz]A["CN"]KEY[dzSBN]|3
can.key.batch.year 4 INT R $(D1)DZ[dz]A["CN"]KEY[dzSBN]|2
can.key.chart.number 10 FREE L $(D1)DZ[dz]A["CN"]KEY[dzSBN]|5
can.key.institution 5 FREE L $(D1)DZ[dz]A["CN"]KEY[dzSBN]|4
Ì € i 2
canadian.nacrs.data
[urn, nacrs.visit.seq.no]
$(D1)DZ[dz]A["CN"]N[dzVN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
nacrs.visit.seq.no 2 PINT R dzVN
nacrs.anesth.type 10 FREE L ABS.ANESTHESIA $(D1)DZ[dz]A["CN"]N[dzVN]|3
nacrs.pt.dir.cost 5 INT R $(D1)DZ[dz]A["CN"]N[dzVN]|1
nacrs.pt.indir.cost 5 INT R $(D1)DZ[dz]A["CN"]N[dzVN]|2
nacrs.supplies 5 INT R $(D1)DZ[dz]A["CN"]N[dzVN]|4
nacrs.visit.center 9 INT R ABS.CAN.VIS.CTR$(D1)DZ[dz]A["CN"]N[dzVN]|0
Ì € i 2
canadian.nacrs.dxs
[urn,nacrs.visit.seq.no, nacrs.dx.seq.no]
$(D1)DZ[dz]A["CN"]N[dzVN]DX[dzNAD]
Field Name Len Dat Typ J DPM Offset/Local/VAL
nacrs.dx.seq.no 2 PINT R dzNAD
nacrs.dx 7 FREE L ABS.DIAG $(D1)DZ[dz]A["CN"]N[dzVN]DX[dzNAD]|0
nacrs.dx.alt.name 60 FREE L $(D1)DZ[dz]A["CN"]N[dzVN]DX[dzNAD]|5
nacrs.dx.pre 1 FREE L $(D1)DZ[dz]A["CN"]N[dzVN]DX[dzNAD]|1
nacrs.dx.renumber 2 PINT R $(D1)DZ[dz]A["CN"]N[dzVN]DX[dzNAD]|4
nacrs.dx.suf 1 FREE L $(D1)DZ[dz]A["CN"]N[dzVN]DX[dzNAD]|2
nacrs.dx.type 10 FREE L ABS.CAN.DX.TYPE$(D1)DZ[dz]A["CN"]N[dzVN]DX[dzNAD]|3
Ì € i 2
canadian.nacrs.interven
[urn,nacrs.visit.seq.no, nacrs.interven.seq.no]
$(D1)DZ[dz]A["CN"]N[dzVN]I[dzINV]
Field Name Len Dat Typ J DPM Offset/Local/VAL
nacrs.interven.seq.no 2 PINT R dzINV
nacrs.interven.alt.name 60 FREE L $(D1)DZ[dz]A["CN"]N[dzVN]I[dzINV]|4
nacrs.interven.anaesth.t 10 FREE L ABS.ANESTHESIA $(D1)DZ[dz]A["CN"]N[dzVN]I[dzINV]|12
nacrs.interven.cihi 7 FREE L ABS.CAN.INTER $(D1)DZ[dz]A["CN"]N[dzVN]I[dzINV]|2
nacrs.interven.code.cci 15 FREE L $(D1)DZ[dz]A["CN"]N[dzVN]I[dzINV]|5
nacrs.interven.descr 60 FREE L VAL=IF{@nacrs.interven.cihi^CIHI @ABS.CAN.INTER.descri
VAL=ption[CIHI];@nacrs.interven.alt.name;@nacrs.interv
VAL=en.proc^nacrs.interven.proc,IF{grouper.version;@dr
VAL=g.grouper.version;@grouper.verion}^grouper.version
VAL=,@ABS.PROC.alt.desc.grp.name;@ABS.PROC.name}
nacrs.interven.descr.50 50 FREE L VAL=IF{@nacrs.interven.cihi^CIHI @ABS.CAN.INTER.descri
VAL=ption[CIHI];@nacrs.interven.alt.name;@nacrs.interv
VAL=en.proc^nacrs.interven.proc,IF{grouper.version;@dr
VAL=g.grouper.version;@grouper.verion}^grouper.version
VAL=,@ABS.PROC.alt.desc.grp.name;@ABS.PROC.name}$50
nacrs.interven.ext 5 FREE L $(D1)DZ[dz]A["CN"]N[dzVN]I[dzINV]|8
nacrs.interven.input.code 8 FREE L $(D1)DZ[dz]A["CN"]N[dzVN]I[dzINV]|5
nacrs.interven.inst 10 FREE L MIS.CAN.INST $(D1)DZ[dz]A["CN"]N[dzVN]I[dzINV]|11
nacrs.interven.loc 5 FREE L $(D1)DZ[dz]A["CN"]N[dzVN]I[dzINV]|7
nacrs.interven.or.loc 10 FREE L ABS.CAN.OR $(D1)DZ[dz]A["CN"]N[dzVN]I[dzINV]|10
nacrs.interven.proc 5 FREE L ABS.PROC $(D1)DZ[dz]A["CN"]N[dzVN]I[dzINV]|0
nacrs.interven.proc.suf 1 FREE L $(D1)DZ[dz]A["CN"]N[dzVN]I[dzINV]|1
nacrs.interven.renum 2 PINT R $(D1)DZ[dz]A["CN"]N[dzVN]I[dzINV]|3
nacrs.interven.st 5 FREE L $(D1)DZ[dz]A["CN"]N[dzVN]I[dzINV]|6
nacrs.interven.time 4 PINT R $(D1)DZ[dz]A["CN"]N[dzVN]I[dzINV]|9
Ì € i 2
canadian.nacrs.phys
[urn,nacrs.visit.seq.no, nacrs.phys.seq.no]
$(D1)DZ[dz]A["CN"]N[dzVN]P[dzNAP]
Field Name Len Dat Typ J DPM Offset/Local/VAL
nacrs.phys.seq.no 1 PINT R dzNAP
nacrs.phys 10 FREE L MIS.DOC $(D1)DZ[dz]A["CN"]N[dzVN]P[dzNAP]|0
nacrs.phys.svc 10 FREE L MIS.ABS.SVC $(D1)DZ[dz]A["CN"]N[dzVN]P[dzNAP]|1
nacrs.phys.type 10 FREE L MIS.DOC.TYPE $(D1)DZ[dz]A["CN"]N[dzVN]P[dzNAP]|2
Ì € i 2
canadian.therapies
[urn, type.of.therapy]
$(D1)DZ[dz]A["CT",dzTT]
Field Name Len Dat Typ J DPM Offset/Local/VAL
type.of.therapy 10 CHOICE L dzTT
therapy 10 FREE L ABS.CAN.THERAPY$(D1)DZ[dz]A["CT",dzTT]|1
therapy.name 30 FREE L VAL=@ABS.CAN.THERAPY.name[@therapy]
Ì € i 2
customer.defined.queries
[urn, cd.query]
$(D1)DZ[dz]A["CD",ggv]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cd.query 10 FREE L MIS.QUERY ggv
cd.query.response 75 QRY.RESP L $(D1)DZ[dz]A["CD",ggv]|0
cd.query.yn.comment 70 QRY.RESP L $(D1)DZ[dz]A["CD",ggv]|5
Ì € i 2
cust.def.query.mult
[urn,cd.query, cd.query.mult.q]
$(D1)DZ[dz]A["CD",ggv]M[ggvMQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cd.query.mult.q 2 PINT R ggvMQ
cd.query.mult.response 30 QRY.RESP L $(D1)DZ[dz]A["CD",ggv]M[ggvMQ]|0
Ì € i 2
insurances
[urn, ins.seq.no]
$(D1)DZ[dz]A["I",dzIN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ins.seq.no 1 PINT R dzIN
ins.mnemonic 10 FREE L MIS.INS $(D1)DZ[dz]A["I",dzIN]|0
ins.name 30 FREE L $(D1)DZ[dz]A["I",dzIN]|2
ins.name.disp 30 FREE L VAL=IF{@MIS.INS.other.type[@ins.mnemonic]="Y" @ins.nam
VAL=e;@MIS.INS.name[@ins.mnemonic]}
ins.policy.number 30 FREE L $(D1)DZ[dz]A["I",dzIN]|1
ins.print.queries 8 FREE L VAL=%ABS.PAT.print.ins.screen(urn,ins.seq.no,"",0,1)
ins.treatment.auth.no 18 FREE L $(D1)DZ[dz]A["I",dzIN]|3
ins.view.cds 0 FREE L
Ì € i 2
ins.cd.queries
[urn,ins.seq.no, ins.cd.query]
$(D1)DZ[dz]A["I",dzIN]CD[ggv]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ins.cd.query 10 FREE L MIS.QUERY ggv
ins.cd.response 75 QRY.RESP L $(D1)DZ[dz]A["I",dzIN]CD[ggv]|0
ins.cd.yn.comment 70 QRY.RESP L $(D1)DZ[dz]A["I",dzIN]CD[ggv]|5
Ì € i 2
ins.cd.query.mult
[urn,ins.seq.no,ins.cd.query, ins.cd.query.mult.q]
$(D1)DZ[dz]A["I",dzIN]CD[ggv]M[ggvMQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ins.cd.query.mult.q 2 PINT R ggvMQ
ins.cd.query.mult.reponse 30 QRY.RESP L $(D1)DZ[dz]A["I",dzIN]CD[ggv]M[ggvMQ]|0
Ì € i 2
insurance.queries
[urn,ins.seq.no, ins.query.no]
$(D1)DZ[dz]A["I",dzIN]Q[dzINQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ins.query.no 2 PINT R dzINQ
ins.query 10 FREE L MIS.QUERY $(D1)DZ[dz]A["I",dzIN]Q[dzINQ]|0
ins.query.response 75 QRY.RESP L $(D1)DZ[dz]A["I",dzIN]Q[dzINQ]|1
Ì € i 2
phys.consults
[urn, consult.seq.no]
$(D1)DZ[dz]A["C",dzCN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
consult.seq.no 2 PINT R dzCN
consult.date 8 DATE L $(D1)DZ[dz]A["C",dzCN]|0
consult.phys 10 FREE L MIS.DOC $(D1)DZ[dz]A["C",dzCN]|1
consult.svc 10 FREE L MIS.ABS.SVC $(D1)DZ[dz]A["C",dzCN]|2
consult.svc.name 30 FREE L VAL=@MIS.ABS.SVC.name[@consult.svc]
Ì € i 2
physicians
[urn, phys.seq.no]
$(D1)DZ[dz]A["P",dzPN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
phys.seq.no 1 PINT R dzPN
phys.service 10 FREE L MIS.ABS.SVC $(D1)DZ[dz]A["P",dzPN]|1
phys.type 10 FREE L MIS.DOC.TYPE $(D1)DZ[dz]A["P",dzPN]|2
physician 10 FREE L MIS.DOC $(D1)DZ[dz]A["P",dzPN]|0
Ì € i 2
stillborn.data
[urn, stillborn.seq.no]
$(D1)DZ[dz]A["SB",dzSBN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
stillborn.seq.no 2 PINT R dzSBN
stillborn.autopsy.code 10 FREE L ABS.CAN.AUTOPSY$(D1)DZ[dz]A["SB",dzSBN]|7
stillborn.birth.time 4 HHMM L $(D1)DZ[dz]A["SB",dzSBN]|5
stillborn.birthdate 10 BDATE L $(D1)DZ[dz]A["SB",dzSBN]|4
stillborn.coroner 1 YN L $(D1)DZ[dz]A["SB",dzSBN]|8
stillborn.coroner.me 10 FREE L ABS.CAN.CORONER$(D1)DZ[dz]A["SB",dzSBN]|15
stillborn.disch.disp 10 FREE L MIS.DIS $(D1)DZ[dz]A["SB",dzSBN]|14
stillborn.doctor 10 FREE L MIS.DOC $(D1)DZ[dz]A["SB",dzSBN]|11
stillborn.dr.svc 10 FREE L MIS.ABS.SVC $(D1)DZ[dz]A["SB",dzSBN]|12
stillborn.entry.code 10 FREE L MIS.CAN.ENTRY $(D1)DZ[dz]A["SB",dzSBN]|6
stillborn.race 10 FREE L MIS.RACE $(D1)DZ[dz]A["SB",dzSBN]|13
stillborn.service 10 FREE L MIS.ABS.SVC $(D1)DZ[dz]A["SB",dzSBN]|9
stillborn.sex 1 CHOICE L $(D1)DZ[dz]A["SB",dzSBN]|3
stillborn.sub.svc 10 FREE L ABS.CAN.SUB.SVC$(D1)DZ[dz]A["SB",dzSBN]|10
stillborn.weight.gr 4 PINT R $(D1)DZ[dz]A["SB",dzSBN]|2
stillborn.weight.gr.can 4 INT R $(D1)DZ[dz]A["SB",dzSBN]|2
stillborn.weight.lbs 2 PINT R $(D1)DZ[dz]A["SB",dzSBN]|0
stillborn.weight.ozs 2 PINT R $(D1)DZ[dz]A["SB",dzSBN]|1
Ì € i 2
stillborn.dxs
[urn,stillborn.seq.no, stillborn.dx.seq.no]
$(D1)DZ[dz]A["SB",dzSBN]DX[dzSDX]
Field Name Len Dat Typ J DPM Offset/Local/VAL
stillborn.dx.seq.no 2 PINT R dzSDX
stillborn.dx 7 FREE L ABS.DIAG $(D1)DZ[dz]A["SB",dzSBN]DX[dzSDX]|0
stillborn.dx.name 40 FREE L VAL=(@ABS.DIAG.name[@ABS.VERSION.mnemonic,@ABS.PAT.sti
VAL=llborn.dx]$40)
stillborn.dx.name.alt.rpt 60 FREE L VAL=IF{@ABS.DIAG.alt.desc.grp.name[@ABS.PAT.drg.groupe
VAL=r.version,@ABS.PAT.stillborn.dx,@ABS.PAT.alt.desc.
VAL=grp];@ABS.DIAG.name[@ABS.PAT.drg.grouper.version,@
VAL=ABS.PAT.stillborn.dx]}
stillborn.dx.pre 1 FREE L $(D1)DZ[dz]A["SB",dzSBN]DX[dzSDX]|1
stillborn.dx.suf 1 FREE L $(D1)DZ[dz]A["SB",dzSBN]DX[dzSDX]|2
stillborn.dx.type 10 FREE L ABS.CAN.DX.TYPE$(D1)DZ[dz]A["SB",dzSBN]DX[dzSDX]|3
Ì € i 2
can.accts
[urn, can.acct.number]
$(D1)DZ[dz]CA[dzCA]
Field Name Len Dat Typ J DPM Offset/Local/VAL
can.acct.number 10 FREE L dzCA
Ì € i 2
check.detail
[urn, check]
$(D1)DZ[dz]CH[dja]
Field Name Len Dat Typ J DPM Offset/Local/VAL
check 10 FREE L ABS.CHECK dja
check.fail.warn 1 CHOICE L $(D1)DZ[dz]CH[dja]|0
check.text 60 FREE L $(D1)DZ[dz]CH[dja]|1
Ì € i 2
apc.dates
[urn, apc.date]
$(D1)DZ[dz]D["DT",dzaBD]
Field Name Len Dat Typ J DPM Offset/Local/VAL
apc.date 8 DATE L dzaBD
apc.coder 10 FREE L MIS.USER $(D1)DZ[dz]D["DT",dzaBD]APC|8
apc.date.end 8 DATE L $(D1)DZ[dz]D["DT",dzaBD]|0
apc.date.rcr.group.opt 4 CHOICE L $(D1)DZ[dz]D["DT",dzaBD]|2
apc.date.regroup 1 YN L $(D1)DZ[dz]D["DT",dzaBD]|1
apc.fin.class 10 FREE L MIS.FIN.CLASS $(D1)DZ[dz]D["DT",dzaBD]APC|3
apc.last.bar.date 8 DATE L $(D1)DZ[dz]D["DT",dzaBD]APC|9
apc.med.apc 5 PINT R ABS.APC $(D1)DZ[dz]D["DT",dzaBD]APC["MED"]|0
apc.med.apc.copay 8 MONEY R $(D1)DZ[dz]D["DT",dzaBD]APC["MED"]|5
apc.med.apc.medpay 8 MONEY R $(D1)DZ[dz]D["DT",dzaBD]APC["MED"]|4
apc.med.apc.mincoins 8 MONEY R $(D1)DZ[dz]D["DT",dzaBD]APC["MED"]|7
apc.med.apc.natcoins 8 MONEY R $(D1)DZ[dz]D["DT",dzaBD]APC["MED"]|6
apc.med.apc.pay.status 1 FREE L $(D1)DZ[dz]D["DT",dzaBD]APC["MED"]|3
apc.med.apc.type 2 INT R $(D1)DZ[dz]D["DT",dzaBD]APC["MED"]|1
apc.med.apc.wt 9 DEC R $(D1)DZ[dz]D["DT",dzaBD]APC["MED"]|8
apc.ov.status 1 CHOICE L $(D1)DZ[dz]D["DT",dzaBD]APC|11
apc.pt.status.com 30 FREE L $(D1)DZ[dz]D["DT",dzaBD]APC|10
apc.source 10 CHOICE L $(D1)DZ[dz]D["DT",dzaBD]APC|7
apc.status 1 CHOICE L $(D1)DZ[dz]D["DT",dzaBD]APC|0
apc.tot.copay 9 MONEY R $(D1)DZ[dz]D["DT",dzaBD]APC|6
apc.tot.cost.wt 8 DEC R $(D1)DZ[dz]D["DT",dzaBD]APC|12
apc.tot.mc.pay 9 MONEY R $(D1)DZ[dz]D["DT",dzaBD]APC|5
apc.tot.outlier 10 MONEY R $(D1)DZ[dz]D["DT",dzaBD]APC|13
apc.tot.reimb 9 MONEY R $(D1)DZ[dz]D["DT",dzaBD]APC|4
apc.update.date 8 DATE L $(D1)DZ[dz]D["DT",dzaBD]APC|2
apc.version 10 FREE L ABS.APC.VERSION$(D1)DZ[dz]D["DT",dzaBD]APC|1
Ì € i 2
apc.cpts
[urn,apc.date, apc.cpt.seq.no]
$(D1)DZ[dz]D["DT",dzaBD]APC["CPT",dzCPT]
Field Name Len Dat Typ J DPM Offset/Local/VAL
apc.cpt.seq.no 3 PINT R dzCPT
apc.cpt 10 FREE L MIS.CPT $(D1)DZ[dz]D["DT",dzaBD]APC["CPT",dzCPT]|0
apc.cpt.apc 5 PINT R ABS.APC $(D1)DZ[dz]D["DT",dzaBD]APC["CPT",dzCPT]|1
apc.cpt.billing.type 2 INT R $(D1)DZ[dz]D["DT",dzaBD]APC["CPT",dzCPT]|4
apc.cpt.copay 8 MONEY R $(D1)DZ[dz]D["DT",dzaBD]APC["CPT",dzCPT]|6
apc.cpt.count 3 INT R $(D1)DZ[dz]D["DT",dzaBD]APC["CPT",dzCPT]|8
apc.cpt.from.bar 1 YN L $(D1)DZ[dz]D["DT",dzaBD]APC["CPT",dzCPT]|16
apc.cpt.loc 3 FREE L MIS.CPT.LOC $(D1)DZ[dz]D["DT",dzaBD]APC["CPT",dzCPT]|17
apc.cpt.medpay 8 MONEY R $(D1)DZ[dz]D["DT",dzaBD]APC["CPT",dzCPT]|5
apc.cpt.mod.bill.st.1 1 INT R $(D1)DZ[dz]D["DT",dzaBD]APC["CPT",dzCPT]|2
apc.cpt.mod.bill.st.2n 2 INT R $(D1)DZ[dz]D["DT",dzaBD]APC["CPT",dzCPT]|3
apc.cpt.op.no 4 INT R $(D1)DZ[dz]D["DT",dzaBD]APC["CPT",dzCPT]|18
apc.cpt.outlier 8 MONEY R $(D1)DZ[dz]D["DT",dzaBD]APC["CPT",dzCPT]|19
apc.cpt.ov.count 3 INT R $(D1)DZ[dz]D["DT",dzaBD]APC["CPT",dzCPT]|11
apc.cpt.pay.status 2 FREE L $(D1)DZ[dz]D["DT",dzaBD]APC["CPT",dzCPT]|13
apc.cpt.pct 8 DEC2 R $(D1)DZ[dz]D["DT",dzaBD]APC["CPT",dzCPT]|10
apc.cpt.reimb 8 MONEY R $(D1)DZ[dz]D["DT",dzaBD]APC["CPT",dzCPT]|7
apc.cpt.rev.code 5 FREE L $(D1)DZ[dz]D["DT",dzaBD]APC["CPT",dzCPT]|15
apc.cpt.svc.date 8 DATE L $(D1)DZ[dz]D["DT",dzaBD]APC["CPT",dzCPT]|14
apc.cpt.type 1 FREE L $(D1)DZ[dz]D["DT",dzaBD]APC["CPT",dzCPT]|12
apc.cpt.weight 9 DEC R $(D1)DZ[dz]D["DT",dzaBD]APC["CPT",dzCPT]|9
Ì € i 2
apc.cpt.mods
[urn,apc.date,apc.cpt.seq.no, apc.cpt.mod.seq.no]
$(D1)DZ[dz]D["DT",dzaBD]APC["CPT",dzCPT]M[dzCPM]
Field Name Len Dat Typ J DPM Offset/Local/VAL
apc.cpt.mod.seq.no 2 PINT R dzCPM
apc.cpt.mod 2 FREE L MIS.CPT.MOD $(D1)DZ[dz]D["DT",dzaBD]APC["CPT",dzCPT]M[dzCPM]|0
apc.cpt.mod.1 2 FREE L ABS.CPT.MOD VAL=@apc.cpt.mod[1]
apc.cpt.mod.2 2 FREE L ABS.CPT.MOD VAL=@apc.cpt.mod[2]
apc.cpt.mod.3 2 FREE L ABS.CPT.MOD VAL=@apc.cpt.mod[3]
apc.cpt.mod.4 2 FREE L ABS.CPT.MOD VAL=@apc.cpt.mod[4]
apc.cpt.mod.edit.err 1 INT R $(D1)DZ[dz]D["DT",dzaBD]APC["CPT",dzCPT]M[dzCPM]|1
apc.cpt.mod.exists 1 YN L VAL=IF{@apc.cpt.mod[1] "Y"}
apc.cpt.mod.more 1 YN L VAL=IF{@apc.cpt.mod[2] "Y";@apc.cpt.mod[1] "N"}
Ì € i 2
apc.cpts.oce.edits
[urn,apc.date,apc.cpt.seq.no, apc.cpt.oce.edit.no]
$(D1)DZ[dz]D["DT",dzaBD]APC["CPT",dzCPT]OCE[dzOCE]
Field Name Len Dat Typ J DPM Offset/Local/VAL
apc.cpt.oce.edit.no 2 PINT R dzOCE
apc.cpt.oce.edit.err 3 INT R $(D1)DZ[dz]D["DT",dzaBD]APC["CPT",dzCPT]OCE[dzOCE]|0
Ì € i 2
apg.cpts
[urn, apg.cpt.seq.no]
$(D1)DZ[dz]D["AP"]CPT[dzACN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
apg.cpt.seq.no 3 PINT R dzACN
apg.cpt 8 FREE L ABS.CPT $(D1)DZ[dz]D["AP"]CPT[dzACN]|0
apg.cpt.alt.code.type 4 FREE L $(D1)DZ[dz]D["AP"]CPT[dzACN]|5
apg.cpt.apg 3 FREE L ABS.APG $(D1)DZ[dz]D["AP"]CPT[dzACN]|2
apg.cpt.apg.mod 1 CHOICE L $(D1)DZ[dz]D["AP"]CPT[dzACN]|3
apg.cpt.cat.ov 2 FREE L $(D1)DZ[dz]D["AP"]CPT[dzACN]|4
apg.cpt.yn 1 YN L $(D1)DZ[dz]D["AP"]CPT[dzACN]|6
Ì € i 2
apg.cpt.mods
[urn,apg.cpt.seq.no, apg.cpt.mod.no]
$(D1)DZ[dz]D["AP"]CPT[dzACN]M[dzCPM]
Field Name Len Dat Typ J DPM Offset/Local/VAL
apg.cpt.mod.no 2 PINT R dzCPM
apg.cpt.mod 2 FREE L ABS.CPT.MOD $(D1)DZ[dz]D["AP"]CPT[dzACN]M[dzCPM]|0
apg.cpt.mod.1 2 FREE L ABS.CPT.MOD VAL=@apg.cpt.mod[1]
apg.cpt.mod.2 2 FREE L ABS.CPT.MOD VAL=@apg.cpt.mod[2]
apg.cpt.mod.3 2 FREE L ABS.CPT.MOD VAL=@apg.cpt.mod[3]
apg.cpt.mod.4 2 FREE L ABS.CPT.MOD VAL=@apg.cpt.mod[4]
apg.cpt.mod.exists 1 YN L VAL=IF{@apg.cpt.mod[1] "Y"}
apg.cpt.mod.more 1 YN L VAL=IF{@apg.cpt.mod[2] "Y";@apg.cpt.mod[1] "N"}
Ì € i 2
apgs
[urn, apg.seq.no]
$(D1)DZ[dz]D["AP"]A[dzDAP]
Field Name Len Dat Typ J DPM Offset/Local/VAL
apg.seq.no 3 PINT R dzDAP
apg 3 FREE L ABS.APG $(D1)DZ[dz]D["AP"]A[dzDAP]|0
apg.cs.wt 10 DEC R $(D1)DZ[dz]D["AP"]A[dzDAP]|3
apg.mdc 2 PINT R ABS.APG.MDC $(D1)DZ[dz]D["AP"]A[dzDAP]|1
apg.name.40 40 FREE L VAL=(@ABS.APG.name[@apg]$40)
apg.pct 6 DEC2 R $(D1)DZ[dz]D["AP"]A[dzDAP]|4
apg.renumber 3 PINT R $(D1)DZ[dz]D["AP"]A[dzDAP]|6
apg.summary.reimb.yn 1 YN L $(D1)DZ[dz]D["AP"]A[dzDAP]|7
apg.t 2 PINT R $(D1)DZ[dz]D["AP"]A[dzDAP]|5
apg.type 1 CHOICE L $(D1)DZ[dz]D["AP"]A[dzDAP]|2
Ì € i 2
cpt.chgs
[urn, cpt.chgs.seq.no]
$(D1)DZ[dz]D["CC",dzCCP]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cpt.chgs.seq.no 2 PINT R dzCCP
cpt.alt.amount 9 FREE L $(D1)DZ[dz]D["CC",dzCCP]|8
cpt.alt.bill.proc 10 FREE L $(D1)DZ[dz]D["CC",dzCCP]|3
cpt.alt.code 8 FREE L ABS.CPT $(D1)DZ[dz]D["CC",dzCCP]|0
cpt.alt.code.mod.yn 1 YN L $(D1)DZ[dz]D["CC",dzCCP]|5
cpt.alt.code.type 12 FREE L $(D1)DZ[dz]D["CC",dzCCP]|1
cpt.alt.date 8 DATE L $(D1)DZ[dz]D["CC",dzCCP]|2
cpt.alt.description 30 FREE L $(D1)DZ[dz]D["CC",dzCCP]|4
cpt.alt.qty 5 INT R $(D1)DZ[dz]D["CC",dzCCP]|6
cpt.alt.rev.code 5 FREE L $(D1)DZ[dz]D["CC",dzCCP]|7
Ì € i 2
cpt.chgs.mods
[urn,cpt.chgs.seq.no, cpt.alt.code.mod.no]
$(D1)DZ[dz]D["CC",dzCCP]M[dzCCM]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cpt.alt.code.mod.no 2 PINT R dzCCM
cpt.alt.code.mod 2 FREE L ABS.CPT.MOD $(D1)DZ[dz]D["CC",dzCCP]M[dzCCM]|0
cpt.alt.code.mod.exists 1 YN L VAL=IF{@cpt.alt.code.mod[1] "Y"}
Ì € i 2
rev.codes
[urn, rev.code,rev.date]
$(D1)DZ[dz]D["RV",dzRV,dzRVD]
Field Name Len Dat Typ J DPM Offset/Local/VAL
rev.code 5 FREE L dzRV
rev.date 8 DATE L dzRVD
rev.amount 10 DEC2 R $(D1)DZ[dz]D["RV",dzRV,dzRVD]|1
rev.qty 5 INT R $(D1)DZ[dz]D["RV",dzRV,dzRVD]|0
rev.surg.flag 1 FREE L $(D1)DZ[dz]D["RV",dzRV,dzRVD]|2
Ì € i 2
rev.codes.old
[urn, rev.code.old,rev.date.old]
$(D1)DZ[dz]D["CC"]R[dzRV,dzRVD]
Field Name Len Dat Typ J DPM Offset/Local/VAL
rev.code.old 5 FREE L dzRV
rev.date.old 8 DATE L dzRVD
rev.amount.old 10 DEC2 R $(D1)DZ[dz]D["CC"]R[dzRV,dzRVD]|1
rev.qty.old 5 INT R $(D1)DZ[dz]D["CC"]R[dzRV,dzRVD]|0
rev.surg.flag.old 1 FREE L $(D1)DZ[dz]D["CC"]R[dzRV,dzRVD]|2
Ì € i 2
cpt.codes
[urn, cpt.seq.no]
$(D1)DZ[dz]D["CPT",dzCPN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cpt.seq.no 2 PINT R dzCPN
cpt.apg.alt.type 12 FREE L $(D1)DZ[dz]D["CPT",dzCPN]|5
cpt.apg.mod 1 FREE L $(D1)DZ[dz]D["CPT",dzCPN]|3
cpt.cat.ov 2 FREE L $(D1)DZ[dz]D["CPT",dzCPN]|4
cpt.code 8 FREE L ABS.CPT $(D1)DZ[dz]D["CPT",dzCPN]|0
cpt.code.apg 3 FREE L ABS.APG $(D1)DZ[dz]D["CPT",dzCPN]|2
cpt.code.date 8 DATE L $(D1)DZ[dz]D["CPT",dzCPN]|7
cpt.code.op.no 4 INT R $(D1)DZ[dz]D["CPT",dzCPN]|11
cpt.code.surg 10 FREE L MIS.DOC $(D1)DZ[dz]D["CPT",dzCPN]|8
cpt.loc 3 FREE L MIS.CPT.LOC $(D1)DZ[dz]D["CPT",dzCPN]|9
cpt.mod.yn 1 YN L $(D1)DZ[dz]D["CPT",dzCPN]|6
cpt.rev.code 3 FREE L $(D1)DZ[dz]D["CPT",dzCPN]|10
Ì € i 2
cpt.code.mods
[urn,cpt.seq.no, cpt.mod.no]
$(D1)DZ[dz]D["CPT",dzCPN]M[dzCPM]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cpt.mod.no 2 PINT R dzCPM
cpt.mod 2 FREE L ABS.CPT.MOD $(D1)DZ[dz]D["CPT",dzCPN]M[dzCPM]|0
cpt.mod.1 2 FREE L ABS.CPT.MOD VAL=@cpt.mod[1]
cpt.mod.2 2 FREE L ABS.CPT.MOD VAL=@cpt.mod[2]
cpt.mod.3 2 FREE L ABS.CPT.MOD VAL=@cpt.mod[3]
cpt.mod.4 2 FREE L ABS.CPT.MOD VAL=@cpt.mod[4]
cpt.mod.exists 1 YN L VAL=IF{@cpt.mod[1] "Y"}
cpt.mod.more 1 YN L VAL=IF{@cpt.mod[2] "Y";@cpt.mod[1] "N"}
Ì € i 2
drg.bill.procs
[urn, drg.bill.proc.seq.no]
$(D1)DZ[dz]D["OP",dzDOP]
Field Name Len Dat Typ J DPM Offset/Local/VAL
drg.bill.proc.seq.no 2 PINT R dzDOP
drg.bill.drg.proc.seq.no 2 PINT R $(D1)DZ[dz]D["OP",dzDOP]|2
drg.bill.oper 2 PINT R $(D1)DZ[dz]D["OP",dzDOP]|0
drg.bill.proc 2 PINT R $(D1)DZ[dz]D["OP",dzDOP]|1
Ì € i 2
drg.other.dxs
[urn, other.dx.seq.no]
$(D1)DZ[dz]D["OTH"]DX[dzODX]
Field Name Len Dat Typ J DPM Offset/Local/VAL
other.dx.seq.no 2 PINT R dzODX
other.dx 7 FREE L ABS.DIAG $(D1)DZ[dz]D["OTH"]DX[dzODX]|0
other.dx.name 50 FREE L VAL=(@ABS.DIAG.name[@other.dx]$50)
other.dx.name.alt.std.rpt 60 FREE L VAL=IF{@ABS.DIAG.alt.desc.grp.name[@drg.grouper.versio
VAL=n,@other.dx,@alt.desc.grp];@ABS.DIAG.name[@drg.gro
VAL=uper.version,@other.dx]}
other.dx.pre 1 FREE L $(D1)DZ[dz]D["OTH"]DX[dzODX]|2
other.dx.source 10 FREE L $(D1)DZ[dz]D["OTH"]DX[dzODX]|5
other.dx.suf 1 FREE L $(D1)DZ[dz]D["OTH"]DX[dzODX]|3
other.dx.type 10 FREE L ABS.CAN.DX.TYPE$(D1)DZ[dz]D["OTH"]DX[dzODX]|4
Ì € i 2
drg.other.procs
[urn, other.proc.seq.no]
$(D1)DZ[dz]D["OTH"]P[dzOTP]
Field Name Len Dat Typ J DPM Offset/Local/VAL
other.proc.seq.no 2 PINT R dzOTP
other.proc 5 FREE L ABS.PROC $(D1)DZ[dz]D["OTH"]P[dzOTP]|0
other.proc.date 8 DATE L $(D1)DZ[dz]D["OTH"]P[dzOTP]|1
other.proc.name 50 FREE L VAL=(@ABS.PROC.name[@other.proc]$50)
other.proc.name.altstdrpt 60 FREE L VAL=IF{@ABS.PROC.alt.desc.grp.name[@drg.grouper.versio
VAL=n,@other.proc,@alt.desc.grp];@ABS.PROC.name[@drg.g
VAL=rouper.version,@other.proc]}
other.proc.surg 10 FREE L MIS.DOC $(D1)DZ[dz]D["OTH"]P[dzOTP]|2
other.proc.surg.svc 10 FREE L MIS.ABS.SVC $(D1)DZ[dz]D["OTH"]P[dzOTP]|3
Ì € i 2
drg.ov.cpts
[urn, drg.ov.cpt.seq.no]
$(D1)DZ[dz]D["VC",dzDVC]
Field Name Len Dat Typ J DPM Offset/Local/VAL
drg.ov.cpt.seq.no 2 PINT R dzDVC
drg.ov.cpt 8 FREE L ABS.CPT $(D1)DZ[dz]D["VC",dzDVC]|0
drg.ov.cpt.rev.code 3 FREE L $(D1)DZ[dz]D["VC",dzDVC]|22
Ì € i 2
drg.ov.cpt.mods
[urn,drg.ov.cpt.seq.no, drg.ov.cpt.mod.no]
$(D1)DZ[dz]D["VC",dzDVC]M[dzCPM]
Field Name Len Dat Typ J DPM Offset/Local/VAL
drg.ov.cpt.mod.no 2 PINT R dzCPM
drg.ov.cpt.mod 2 FREE L ABS.CPT.MOD $(D1)DZ[dz]D["VC",dzDVC]M[dzCPM]|0
drg.ov.cpt.mod.exisits 1 YN L VAL=IF{@drg.ov.cpt.mod[1] "Y"}
Ì € i 2
drg.ov.procs
[urn, drg.ov.proc.seq.no]
$(D1)DZ[dz]D["VP",dzDVP]
Field Name Len Dat Typ J DPM Offset/Local/VAL
drg.ov.proc.seq.no 2 PINT R dzDVP
drg.ov.proc 5 FREE L ABS.PROC $(D1)DZ[dz]D["VP",dzDVP]|0
drg.ov.proc.date 8 DATE L $(D1)DZ[dz]D["VP",dzDVP]|6
drg.ov.proc.major.proc 1 CHOICE L $(D1)DZ[dz]D["VP",dzDVP]|3
drg.ov.proc.mult.used 1 PINT R $(D1)DZ[dz]D["VP",dzDVP]|1
drg.ov.proc.no 2 PINT R $(D1)DZ[dz]D["VP",dzDVP]|9
drg.ov.proc.op.no 2 PINT R $(D1)DZ[dz]D["VP",dzDVP]|8
drg.ov.proc.opscrn.line 3 PINT R $(D1)DZ[dz]D["VP",dzDVP]|10
drg.ov.proc.or.proc 1 CHOICE L $(D1)DZ[dz]D["VP",dzDVP]|2
drg.ov.proc.renumber 2 PINT R $(D1)DZ[dz]D["VP",dzDVP]|5
drg.ov.proc.suf 1 FREE L $(D1)DZ[dz]D["VP",dzDVP]|4
drg.ov.proc.surg 10 FREE L MIS.DOC $(D1)DZ[dz]D["VP",dzDVP]|7
Ì € i 2
drg.procs
[urn, drg.proc.seq.no]
$(D1)DZ[dz]D["P",dzDGP]
Field Name Len Dat Typ J DPM Offset/Local/VAL
drg.proc.seq.no 2 PINT R dzDGP
drg.proc 5 FREE L ABS.PROC $(D1)DZ[dz]D["P",dzDGP]|0
drg.proc.cci 15 FREE L $(D1)DZ[dz]D["P",dzDGP]|0
drg.proc.hmri.form.line 3 PINT R $(D1)DZ[dz]D["P",dzDGP]|8
drg.proc.major.proc 1 CHOICE L $(D1)DZ[dz]D["P",dzDGP]|3
drg.proc.mult.entries 2 PINT R $(D1)DZ[dz]D["P",dzDGP]|1
drg.proc.opscrn.line 3 PINT R $(D1)DZ[dz]D["P",dzDGP]|7
drg.proc.or.proc 1 CHOICE L $(D1)DZ[dz]D["P",dzDGP]|2
drg.proc.suf 1 FREE L $(D1)DZ[dz]D["P",dzDGP]|6
drg.proc.tape.seq.no 2 INT R $(D1)DZ[dz]D["P",dzDGP]|9
Ì € i 2
dxs
[urn, dx.seq.no]
$(D1)DZ[dz]D["DX",dzDXN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
dx.seq.no 2 PINT R dzDXN
dx 7 FREE L ABS.DIAG $(D1)DZ[dz]D["DX",dzDXN]|0
dx.alt.name 60 FREE L $(D1)DZ[dz]D["DX",dzDXN]|6
dx.comp.comorb 1 CHOICE L $(D1)DZ[dz]D["DX",dzDXN]|1
dx.name 50 FREE L VAL=(@ABS.DIAG.name[@dx]$50)
dx.name.alt.or.std.rpt 60 FREE L VAL=IF{@dx.alt.name;@ABS.DIAG.alt.desc.grp.name[@drg.g
VAL=rouper.version,@dx,@alt.desc.grp];@ABS.DIAG.name[@
VAL=drg.grouper.version,@dx]}
dx.pre 1 FREE L $(D1)DZ[dz]D["DX",dzDXN]|3
dx.suf 1 FREE L $(D1)DZ[dz]D["DX",dzDXN]|4
dx.type 10 FREE L ABS.CAN.DX.TYPE$(D1)DZ[dz]D["DX",dzDXN]|5
Ì € i 2
operations
[urn, oper.seq.no]
$(D1)DZ[dz]D["O",dzO]
Field Name Len Dat Typ J DPM Offset/Local/VAL
oper.seq.no 2 PINT R dzO
oper.date 8 DATE L $(D1)DZ[dz]D["O",dzO]|0
oper.ov.add 1 YN L $(D1)DZ[dz]D["O",dzO]|3
oper.pre.op.eval 1 YN L $(D1)DZ[dz]D["O",dzO]|2
oper.within.6.hrs.adm 1 YN L $(D1)DZ[dz]D["O",dzO]|1
Ì € i 2
hmri.form
[urn,oper.seq.no, hmri.form.line]
$(D1)DZ[dz]D["O",dzO]H[dzOHL]
Field Name Len Dat Typ J DPM Offset/Local/VAL
hmri.form.line 3 PINT R dzOHL
hmri.form.alt.name 60 FREE L $(D1)DZ[dz]D["O",dzO]H[dzOHL]|11
hmri.form.anaes.dr 10 FREE L MIS.DOC $(D1)DZ[dz]D["O",dzO]H[dzOHL]|7
hmri.form.anaes.tech 10 FREE L ABS.ANESTHESIA $(D1)DZ[dz]D["O",dzO]H[dzOHL]|8
hmri.form.dr 10 FREE L MIS.DOC $(D1)DZ[dz]D["O",dzO]H[dzOHL]|2
hmri.form.dr.asst 10 FREE L MIS.DOC $(D1)DZ[dz]D["O",dzO]H[dzOHL]|12
hmri.form.dr.svc 10 FREE L MIS.ABS.SVC $(D1)DZ[dz]D["O",dzO]H[dzOHL]|3
hmri.form.drg.proc.no 2 PINT R $(D1)DZ[dz]D["O",dzO]H[dzOHL]|10
hmri.form.or 10 FREE L ABS.CAN.OR $(D1)DZ[dz]D["O",dzO]H[dzOHL]|6
hmri.form.other.inst 10 FREE L MIS.CAN.INST $(D1)DZ[dz]D["O",dzO]H[dzOHL]|9
hmri.form.proc 5 FREE L ABS.PROC $(D1)DZ[dz]D["O",dzO]H[dzOHL]|0
hmri.form.proc.cci 15 FREE L $(D1)DZ[dz]D["O",dzO]H[dzOHL]|0
hmri.form.proc.ext 5 FREE L $(D1)DZ[dz]D["O",dzO]H[dzOHL]|17
hmri.form.proc.loc 5 FREE L $(D1)DZ[dz]D["O",dzO]H[dzOHL]|16
hmri.form.proc.nam.altrpt 60 FREE L VAL=IF{@oper.proc.alt.name[@hmri.form.drg.proc.no];@AB
VAL=S.PROC.alt.desc.grp.name[@drg.grouper.version,@hmr
VAL=i.form.proc,@alt.desc.grp];@ABS.PROC.name[@drg.gro
VAL=uper.version,@hmri.form.proc]}
hmri.form.proc.st 5 FREE L $(D1)DZ[dz]D["O",dzO]H[dzOHL]|18
hmri.form.proc.suf 1 FREE L $(D1)DZ[dz]D["O",dzO]H[dzOHL]|1
hmri.form.time 4 PINT R $(D1)DZ[dz]D["O",dzO]H[dzOHL]|5
hmri.form.time.begin 4 HHMM L $(D1)DZ[dz]D["O",dzO]H[dzOHL]|13
hmri.form.time.end 4 HHMM L $(D1)DZ[dz]D["O",dzO]H[dzOHL]|14
hmri.form.tissue 10 FREE L ABS.TIS.DESC $(D1)DZ[dz]D["O",dzO]H[dzOHL]|4
hmri.form.unplanned 1 YN L $(D1)DZ[dz]D["O",dzO]H[dzOHL]|15
Ì € i 2
oper.anesth.drs
[urn,oper.seq.no, oper.anesth.dr.seq.no]
$(D1)DZ[dz]D["O",dzO]AD[dzOAD]
Field Name Len Dat Typ J DPM Offset/Local/VAL
oper.anesth.dr.seq.no 2 PINT R dzOAD
oper.anesth.dr 10 FREE L MIS.DOC $(D1)DZ[dz]D["O",dzO]AD[dzOAD]|0
oper.anesth.dr.name 30 FREE L VAL=@MIS.DOC.name[@oper.anesth.dr]
Ì € i 2
oper.anesthesias
[urn,oper.seq.no, oper.anesthesia.seq.no]
$(D1)DZ[dz]D["O",dzO]AN[dzOAN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
oper.anesthesia.seq.no 2 PINT R dzOAN
oper.anesthesia 10 FREE L ABS.ANESTHESIA $(D1)DZ[dz]D["O",dzO]AN[dzOAN]|0
oper.anesthesia.name 30 FREE L VAL=@ABS.ANESTHESIA.name[@oper.anesthesia]
Ì € i 2
oper.cpts
[urn,oper.seq.no, oper.cpt.seq.no]
$(D1)DZ[dz]D["O",dzO]C[dzOC]
Field Name Len Dat Typ J DPM Offset/Local/VAL
oper.cpt.seq.no 2 PINT R dzOC
oper.cpt 8 FREE L ABS.CPT $(D1)DZ[dz]D["O",dzO]C[dzOC]|0
oper.cpt.group 3 FREE L ABS.CPT.GROUP VAL=(@ABS.CPT.group[@oper.cpt])
oper.cpt.loc 3 FREE L MIS.CPT.LOC $(D1)DZ[dz]D["O",dzO]C[dzOC]|9
oper.cpt.name 60 FREE L VAL=(@ABS.CPT.name[@oper.cpt]$60)
oper.cpt.name.50 50 FREE L VAL=(@ABS.CPT.name[@oper.cpt]$50)
oper.cpt.rev.code 3 FREE L $(D1)DZ[dz]D["O",dzO]C[dzOC]|10
oper.cpt.yn 2 YN L $(D1)DZ[dz]D["O",dzO]C[dzOC]|2
Ì € i 2
oper.cpt.mods
[urn,oper.seq.no,oper.cpt.seq.no, oper.cpt.mod.no]
$(D1)DZ[dz]D["O",dzO]C[dzOC]M[dzOCM]
Field Name Len Dat Typ J DPM Offset/Local/VAL
oper.cpt.mod.no 2 PINT R dzOCM
oper.cpt.mod 2 FREE L ABS.CPT.MOD $(D1)DZ[dz]D["O",dzO]C[dzOC]M[dzOCM]|0
oper.cpt.mod.1 2 FREE L ABS.CPT.MOD VAL=@oper.cpt.mod[1]
oper.cpt.mod.2 2 FREE L ABS.CPT.MOD VAL=@oper.cpt.mod[2]
oper.cpt.mod.3 2 FREE L ABS.CPT.MOD VAL=@oper.cpt.mod[3]
oper.cpt.mod.4 2 FREE L ABS.CPT.MOD VAL=@oper.cpt.mod[4]
Ì € i 2
oper.procs
[urn,oper.seq.no, oper.proc.seq.no]
$(D1)DZ[dz]D["O",dzO]P[dzOP]
Field Name Len Dat Typ J DPM Offset/Local/VAL
oper.proc.seq.no 2 PINT R dzOP
oper.proc 5 FREE L ABS.PROC $(D1)DZ[dz]D["O",dzO]P[dzOP]|0
oper.proc.alt.name 60 FREE L $(D1)DZ[dz]D["O",dzO]P[dzOP]|5
oper.proc.cci 15 FREE L $(D1)DZ[dz]D["O",dzO]P[dzOP]|0
oper.proc.drg.bill.proc 2 PINT R $(D1)DZ[dz]D["O",dzO]P[dzOP]|3
oper.proc.drg.proc.seq.no 2 PINT R $(D1)DZ[dz]D["O",dzO]P[dzOP]|2
oper.proc.ext 5 FREE L $(D1)DZ[dz]D["O",dzO]P[dzOP]|7
oper.proc.loc 5 FREE L $(D1)DZ[dz]D["O",dzO]P[dzOP]|6
oper.proc.name 50 FREE L VAL=(@ABS.PROC.name[@oper.proc]$50)
oper.proc.name.altstd.rpt 60 FREE L VAL=IF{@oper.proc.alt.name;@ABS.PROC.alt.desc.grp.name
VAL=[@drg.grouper.version,@oper.proc,@alt.desc.grp];@A
VAL=BS.PROC.name[@drg.grouper.version,@oper.proc]}
oper.proc.st 5 FREE L $(D1)DZ[dz]D["O",dzO]P[dzOP]|8
oper.proc.suf 1 FREE L $(D1)DZ[dz]D["O",dzO]P[dzOP]|4
Ì € i 2
oper.surg.assts
[urn,oper.seq.no, oper.surg.asst.seq.no]
$(D1)DZ[dz]D["O",dzO]SA[dzOSA]
Field Name Len Dat Typ J DPM Offset/Local/VAL
oper.surg.asst.seq.no 2 PINT R dzOSA
oper.surg.asst 10 FREE L MIS.DOC $(D1)DZ[dz]D["O",dzO]SA[dzOSA]|0
oper.surg.asst.name 30 FREE L VAL=@MIS.DOC.name[@oper.surg.asst]
Ì € i 2
oper.surgeons
[urn,oper.seq.no, oper.surgeon.seq.no]
$(D1)DZ[dz]D["O",dzO]S[dzOS]
Field Name Len Dat Typ J DPM Offset/Local/VAL
oper.surgeon.seq.no 2 PINT R dzOS
oper.surgeon 10 FREE L MIS.DOC $(D1)DZ[dz]D["O",dzO]S[dzOS]|0
oper.surgeon.name 30 FREE L VAL=@MIS.DOC.name[@oper.surgeon]
Ì € i 2
oper.tissues
[urn,oper.seq.no, oper.tissue.seq.no]
$(D1)DZ[dz]D["O",dzO]T[dzOT]
Field Name Len Dat Typ J DPM Offset/Local/VAL
oper.tissue.seq.no 2 PINT R dzOT
oper.tissue 10 FREE L ABS.TIS.DESC $(D1)DZ[dz]D["O",dzO]T[dzOT]|0
oper.tissue.name 30 FREE L VAL=@ABS.TIS.DESC.name[@oper.tissue]
Ì € i 2
ov.opscrns
[urn, ov.opscrn.line]
$(D1)DZ[dz]D["OV",dzOVL]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ov.opscrn.line 3 PINT R dzOVL
ov.opscrn.alt.name 60 FREE L $(D1)DZ[dz]D["OV",dzOVL]|16
ov.opscrn.anesth.dr 10 FREE L MIS.DOC $(D1)DZ[dz]D["OV",dzOVL]|6
ov.opscrn.anesthesia 10 FREE L ABS.ANESTHESIA $(D1)DZ[dz]D["OV",dzOVL]|7
ov.opscrn.cpt 8 FREE L ABS.CPT $(D1)DZ[dz]D["OV",dzOVL]|17
ov.opscrn.cpt.loc 3 FREE L MIS.CPT.LOC $(D1)DZ[dz]D["OV",dzOVL]|26
ov.opscrn.cpt.name 50 FREE L VAL=(@ABS.CPT.name[@ov.opscrn.cpt]$50)
ov.opscrn.cpt.rev 3 FREE L $(D1)DZ[dz]D["OV",dzOVL]|27
ov.opscrn.date 8 DATE L $(D1)DZ[dz]D["OV",dzOVL]|1
ov.opscrn.dr 10 FREE L MIS.DOC $(D1)DZ[dz]D["OV",dzOVL]|3
ov.opscrn.dr.asst 10 FREE L MIS.DOC $(D1)DZ[dz]D["OV",dzOVL]|18
ov.opscrn.dr.svc 10 FREE L MIS.ABS.SVC $(D1)DZ[dz]D["OV",dzOVL]|4
ov.opscrn.drg.oper.no 2 PINT R $(D1)DZ[dz]D["OV",dzOVL]|14
ov.opscrn.drg.proc.no 2 PINT R $(D1)DZ[dz]D["OV",dzOVL]|15
ov.opscrn.op.seq.no 2 PINT R $(D1)DZ[dz]D["OV",dzOVL]|0
ov.opscrn.or 10 FREE L ABS.CAN.OR $(D1)DZ[dz]D["OV",dzOVL]|12
ov.opscrn.other.inst 10 FREE L MIS.CAN.INST $(D1)DZ[dz]D["OV",dzOVL]|13
ov.opscrn.ov.flag 1 YN L $(D1)DZ[dz]D["OV",dzOVL]|9
ov.opscrn.proc 5 FREE L ABS.PROC $(D1)DZ[dz]D["OV",dzOVL]|2
ov.opscrn.proc.cci 15 FREE L $(D1)DZ[dz]D["OV",dzOVL]|2
ov.opscrn.proc.ext 5 FREE L $(D1)DZ[dz]D["OV",dzOVL]|24
ov.opscrn.proc.loc 5 FREE L $(D1)DZ[dz]D["OV",dzOVL]|23
ov.opscrn.proc.nam.altrpt 60 FREE L VAL=IF{@oper.proc.alt.name[@ov.opscrn.drg.oper.no,@ov.
VAL=opscrn.drg.proc.no];@ABS.PROC.alt.desc.grp.name[@d
VAL=rg.grouper.version,@ov.opscrn.proc,@alt.desc.grp];
VAL=@ABS.PROC.name[@drg.grouper.version,@ov.opscrn.pro
VAL=c]}
ov.opscrn.proc.st 5 FREE L $(D1)DZ[dz]D["OV",dzOVL]|25
ov.opscrn.proc.suf 1 FREE L $(D1)DZ[dz]D["OV",dzOVL]|10
ov.opscrn.time 4 PINT R $(D1)DZ[dz]D["OV",dzOVL]|11
ov.opscrn.time.begin 4 HHMM L $(D1)DZ[dz]D["OV",dzOVL]|19
ov.opscrn.time.end 4 HHMM L $(D1)DZ[dz]D["OV",dzOVL]|20
ov.opscrn.tissue 10 FREE L ABS.TIS.DESC $(D1)DZ[dz]D["OV",dzOVL]|5
ov.opscrn.unplanned 1 YN L $(D1)DZ[dz]D["OV",dzOVL]|22
ov.opscrn.yn 1 YN L $(D1)DZ[dz]D["OV",dzOVL]|21
Ì € i 2
ov.opscrns.cpt.mods
[urn,ov.opscrn.line, ov.opscrn.cpt.mod.no]
$(D1)DZ[dz]D["OV",dzOVL]M[dzOVM]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ov.opscrn.cpt.mod.no 2 PINT R dzOVM
ov.opscrn.cpt.mod 2 FREE L ABS.CPT.MOD $(D1)DZ[dz]D["OV",dzOVL]M[dzOVM]|0
ov.opscrn.cpt.mod.1 2 FREE L ABS.CPT.MOD VAL=@ov.opscrn.cpt.mod[1]
ov.opscrn.cpt.mod.2 2 FREE L ABS.CPT.MOD VAL=@ov.opscrn.cpt.mod[2]
ov.opscrn.cpt.mod.3 2 FREE L ABS.CPT.MOD VAL=@ov.opscrn.cpt.mod[3]
ov.opscrn.cpt.mod.4 2 FREE L ABS.CPT.MOD VAL=@ov.opscrn.cpt.mod[4]
ov.opscrn.cpt.mod.more 1 YN L VAL=IF{@ov.opscrn.cpt.mod[2] "Y";@ov.opscrn.cpt.mod[1]
VAL= "N"}
Ì € i 2
rev.codes
[urn, rev.code,rev.date]
$(D1)DZ[dz]D["RV",dzRV,dzRVD]
Field Name Len Dat Typ J DPM Offset/Local/VAL
rev.code 5 FREE L dzRV
rev.date 8 DATE L dzRVD
rev.amount 10 DEC2 R $(D1)DZ[dz]D["RV",dzRV,dzRVD]|1
rev.qty 5 INT R $(D1)DZ[dz]D["RV",dzRV,dzRVD]|0
rev.surg.flag 1 FREE L $(D1)DZ[dz]D["RV",dzRV,dzRVD]|2
Ì € i 2
es.form.data
[urn, form,form.urn]
$(D1)DZ[dz]EF[dji,dzEFQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
form 10 FREE L ABS.FORM dji
form.urn 3 PINT R dzEFQ
comm.urn 30 URN L MIS.SIGN $(D1)DZ[dz]EF[dji,dzEFQ]|13
es.alt.signature 10 FREE L MIS.DOC $(D1)DZ[dz]EF[dji,dzEFQ]|12
es.create.date 8 DATE L $(D1)DZ[dz]EF[dji,dzEFQ]|3
es.filed.date 8 DATE L $(D1)DZ[dz]EF[dji,dzEFQ]|6
es.form.cpi 3 PINT R $(D1)DZ[dz]EF[dji,dzEFQ]T|0
es.form.cpl 3 PINT R $(D1)DZ[dz]EF[dji,dzEFQ]T|3
es.form.lpi 3 PINT R $(D1)DZ[dz]EF[dji,dzEFQ]T|1
es.form.lpp 3 PINT R $(D1)DZ[dz]EF[dji,dzEFQ]T|4
es.form.ps 3 PINT R $(D1)DZ[dz]EF[dji,dzEFQ]T|2
es.last.mrec.print.date 8 DATE L $(D1)DZ[dz]EF[dji,dzEFQ]|5
es.num.pages 2 INT R $(D1)DZ[dz]EF[dji,dzEFQ]|14
es.od.urn 8 PINT R $(D1)DZ[dz]EF[dji,dzEFQ]|7
es.physician 10 FREE L MIS.DOC $(D1)DZ[dz]EF[dji,dzEFQ]|2
es.saved.date 8 DATE L $(D1)DZ[dz]EF[dji,dzEFQ]|3
es.signed.date 8 DATE L $(D1)DZ[dz]EF[dji,dzEFQ]|4
es.status 8 CHOICE L $(D1)DZ[dz]EF[dji,dzEFQ]|0
es.status.date 10 PINT R $(D1)DZ[dz]EF[dji,dzEFQ]|1
es.status.date.out 8 DATE L VAL=%Z.date.in.magic(@es.status.date)
es.status.time.out 8 FREE L VAL=%Z.time.out(@es.status.date)
es.void.date 8 DATE L $(D1)DZ[dz]EF[dji,dzEFQ]|9
es.void.reason 40 FREE L $(D1)DZ[dz]EF[dji,dzEFQ]|11
es.void.user 10 FREE L MIS.USER $(D1)DZ[dz]EF[dji,dzEFQ]|10
Ì € i 2
es.text.lines
[urn,form,form.urn, es.line.no]
$(D1)DZ[dz]EF[dji,dzEFQ]T[dzESL]
Field Name Len Dat Typ J DPM Offset/Local/VAL
es.line.no 3 PINT R dzESL
es.line 92 FREE L $(D1)DZ[dz]EF[dji,dzEFQ]T[dzESL]
Ì € i 2
charges.by.categ
[urn, charge.category]
$(D1)DZ[dz]F["C",dag]
Field Name Len Dat Typ J DPM Offset/Local/VAL
charge.category 8 FREE L ABS.CHG.CAT dag
charge.category.total 10 MONEY R $(D1)DZ[dz]F["C",dag]|0
Ì € i 2
ins.ledger
[urn, ins]
$(D1)DZ[dz]F["I",ggm]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ins 10 FREE L MIS.INS ggm
ins.adj 10 MONEY R $(D1)DZ[dz]F["I",ggm]|1
ins.balance 10 MONEY R $(D1)DZ[dz]F["I",ggm]|0
ins.exp.reimb 10 MONEY R $(D1)DZ[dz]F["I",ggm]|3
ins.rec 10 MONEY R $(D1)DZ[dz]F["I",ggm]|2
Ì € i 2
std.cost.groups
[urn, std.cost.group]
$(D1)DZ[dz]F["S"]C[cc]
Field Name Len Dat Typ J DPM Offset/Local/VAL
std.cost.group 8 FREE L cc
std.cost.group.amt 10 DEC2 R $(D1)DZ[dz]F["S"]C[cc]|0
Ì € i 2
std.cost.service.units
[urn, std.cost.dept,std.cost.service.unit]
$(D1)DZ[dz]F["S"]SU[gd,ce]
Field Name Len Dat Typ J DPM Offset/Local/VAL
std.cost.dept 15 FREE L MIS.GL.DEPT gd
std.cost.service.unit 10 FREE L ce
Ì € i 2
std.cost.su.periods
[urn,std.cost.dept,std.cost.service.unit, std.cost.sup.date]
$(D1)DZ[dz]F["S"]SU[gd,ce]G[gpD]
Field Name Len Dat Typ J DPM Offset/Local/VAL
std.cost.sup.date 8 DATE L gpD
std.cost.sup.chg 9 SMONEY R $(D1)DZ[dz]F["S"]SU[gd,ce]G[gpD]|1
std.cost.sup.qty 8 DEC2 R $(D1)DZ[dz]F["S"]SU[gd,ce]G[gpD]|0
Ì € i 2
std.cost.su.days
[urn,std.cost.dept,std.cost.service.unit,std.cost.sup.date, std.cost.sus.date]
$(D1)DZ[dz]F["S"]SU[gd,ce]G[gpD]D[dzSD]
Field Name Len Dat Typ J DPM Offset/Local/VAL
std.cost.sus.date 8 DATE L dzSD
std.cost.sus.chg 9 SMONEY R $(D1)DZ[dz]F["S"]SU[gd,ce]G[gpD]D[dzSD]|1
std.cost.sus.qty 9 DEC2 R $(D1)DZ[dz]F["S"]SU[gd,ce]G[gpD]D[dzSD]|0
Ì € i 2
med.nec.dxs
[urn, med.nec.dx.code]
$(D1)DZ[dz]MDX[dzMDX]
Field Name Len Dat Typ J DPM Offset/Local/VAL
med.nec.dx.code 7 FREE L dzMDX
med.nec.dx.date 8 FREE L $(D1)DZ[dz]MDX[dzMDX]|1
med.nec.dx.time.date 60 FREE L $(D1)DZ[dz]MDX[dzMDX]|0
| | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | |