Ì i 2
abs.pat.abs.locks (abs.locks)
[lock.process]
:.LOCK.P[lkp]
Field Name Len Dat Typ J DPM Offset/Local/VAL
lock.process 30 FREE L lkp
lock.process.date 8 DATE L :.LOCK.P[lkp]|3
lock.process.dev 10 FREE L :.LOCK.P[lkp]|1
lock.process.job 8 FREE L :.LOCK.P[lkp]|4
lock.process.tag 1 FREE L :.LOCK.P[lkp]|5
lock.process.time 4 TIME L :.LOCK.P[lkp]|2
lock.process.user 10 FREE L MIS.USER :.LOCK.P[lkp]|0
Ì i 2
abs.pat.adm.xfer (adm.xfer)
[adm.xfer.date,adm.xfer.urn]
?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
adm.xfer.user 10 FREE L MIS.USER ?DZXQ[dzxqD,dz]|5
admit.date.old 8 DATE L ?DZXQ[dzxqD,dz]|2
admit.dis.date.old 8 DATE L ?DZXQ[dzxqD,dz]|4
admit.time.old 4 HHMM L ?DZXQ[dzxqD,dz]|3
admit.urn 30 URN L ADM.PAT ?DZXQ[dzxqD,dz]|0
admit.xfer.type 3 CHOICE L ?DZXQ[dzxqD,dz]|1
Ì i 2
abs.pat.adm.xfer.repeat (adm.xfer.repeat)
[adm.xfer.repeat.seq.no,adm.xfer.repeat.type,adm.xfer.repeat.urn]
: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 :DZAXQ[dzxs,dzxch,dz]
Ì i 2
abs.pat (main)
[urn]
:DZ[dz]
Field Name Len Dat Typ J DPM Offset/Local/VAL
urn 44 FREE L dz
abs.created.date 8 DATE L :DZ[dz]A["AD"]|6
abs.st.date 8 DATE L :DZ[dz]|13
abs.status 10 CHOICE L :DZ[dz]|0
abs.status.date 8 DATE L :DZ[dz]|13
abs.status.disp 10 CHOICE L VAL=@p.ABS.PAT.abs.status
abstractor 10 FREE L MIS.USER :DZ[dz]A|17
account.number 12 FREE L :DZ[dz]|2
adm.cancelled.date 8 DATE L :DZ[dz]A["AD"]|2
adm.database 12 FREE L MIS.APPL :DZ[dz]|11
adm.date 8 DATE L :DZ[dz]A|9
adm.date.disp 8 DATE L VAL=@p.ABS.PAT.adm.date
adm.from.er 1 YN L :DZ[dz]A|7
adm.hct 2 INT R :DZ[dz]PAS|4
adm.hgb 2 INT R :DZ[dz]PAS|3
adm.priority 10 FREE L MIS.ADM.PRIORT :DZ[dz]A|5
adm.priority.name 30 FREE L VAL=(@MIS.ADM.PRIORT.name[@ABS.PAT.adm.priority])
adm.purged.date 8 DATE L :DZ[dz]A["AD"]|5
adm.source 10 FREE L MIS.ADM.SOURCE :DZ[dz]A|6
adm.source.name 30 FREE L VAL=(@MIS.ADM.SOURCE.name[@ABS.PAT.adm.source])
adm.temp 6 DEC2 R :DZ[dz]PAS|9
adm.time 4 HHMM L :DZ[dz]A|10
adm.urn 30 URN L ADM.PAT :DZ[dz]|12
adm.wbc 2 INT R :DZ[dz]PAS|6
admit.phys 10 FREE L MIS.DOC.DICT :DZ[dz]A["AD"]|9
admit.phys.name 30 FREE L VAL=@MIS.DOC.DICT.name[@ABS.PAT.admit.phys]
admit.phys.name.inverted 30 FREE L VAL=(%Z.name.inversion(@MIS.DOC.DICT.name[@ABS.PAT.adm
VAL=it.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})X
age.adm.in.years 3 INT L VAL=%Z.age.in.years(@p.ABS.PAT.birthdate,IF{@p.ABS.PAT
VAL=.adm.date;@.today})X
age.by.parameter 7 AGE L VAL=IF{@ABS.PARAM.display.age="CURRENT" @ABS.PAT.age.c
VAL=urrent;@ABS.PAT.age.adm}
age.current 7 AGE L VAL=%Z.age(@p.birthdate,IF{"Y"=@MIS.DIS.DICT.expired[@
VAL=p.dis.disposition] @p.dis.date})
age.current.disp 7 AGE L VAL=%Z.age(@p.ABS.PAT.birthdate)
age.group 2 FREE L :DZ[dz]A["CN"]|8
alt.address 1 YN L :DZ[dz]A|24
alt.desc.grp 15 FREE L ABS.ALT.DESCGRP:DZ[dz]A["AD"]|0
ambulance 1 YN L :DZ[dz]A["CN"]|3
ambulance.call.number 11 INT R :DZ[dz]A["CN"]|24
apg.calc.date 8 DATE L :DZ[dz]D["AP"]|3
apg.cost.wt 10 DEC R :DZ[dz]D["AP"]|15
apg.dollars 10 DEC2 R :DZ[dz]D["AP"]|11
apg.dollars.grp 10 DEC2 R :DZ[dz]D["AP"]|11
apg.financial.class 10 FREE L MIS.FIN.CLASS :DZ[dz]D["AP"]|5
apg.hc.trim 10 DEC2 R :DZ[dz]D["AP"]|17
apg.lc.trim 10 DEC2 R :DZ[dz]D["AP"]|18
apg.medical 3 FREE L :DZ[dz]D["AP"]|21
apg.out.dollars 8 DEC2 R :DZ[dz]D["AP"]|19
apg.principal.dx 7 FREE L ABS.DIAG VAL=@dx[urn,1]
apg.pt.status 30 FREE L :DZ[dz]D["AP"]|20
apg.rate 10 DEC R :DZ[dz]D["AP"]|16
apg.summary 3 FREE L ABS.APG :DZ[dz]D["AP"]|0
apg.tot.cost.wt 10 DEC R :DZ[dz]D["AP"]|15
apg.tot.exp.reimb 10 DEC2 R :DZ[dz]D["AP"]|11
apg.total.chrg 10 DEC2 R :DZ[dz]D["AP"]|6
apg.update.date 8 DATE L :DZ[dz]D["AP"]|3
arrival.date 8 DATE L :DZ[dz]A["CN"]AD|0
arrival.mode 10 FREE L MIS.ARRIV.DICT :DZ[dz]A|8
arrival.time 4 HHMM L :DZ[dz]A["CN"]AD|1
attend.phys.name.inverted 30 FREE L VAL=(%Z.name.inversion(@MIS.DOC.DICT.name[@physician[1
VAL=]]))
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.DICT VAL=(@ABS.PAT.physician[1])
attending.phys.name 30 FREE L VAL=@MIS.DOC.DICT.name[@physician[1]]
bar.status 2 FREE L :DZ[dz]F["R"]|7
bar.txn.urn 4 INT R :DZ[dz]D["CC"]|4
bed 3 FREE L :DZ[dz]A|15
birthdate 8 BDATE L :DZ[dz]A|1
birthdate.estimated 1 YN L :DZ[dz]A["AD"]|16
blood.pres.dias 3 INT R :DZ[dz]PAS|8
blood.pres.sys 3 INT R :DZ[dz]PAS|7
ca.phor.abn 1 YN L :DZ[dz]PAS["BC"]|6
ca.phor.done 1 YN L :DZ[dz]PAS["BC"]|5
ca.phor.rpt 1 YN L :DZ[dz]PAS["BC"]|7
can.pt.status.type 3 FREE L VAL=IF{PT.TYPE @ABS.PT.STATUS.type[PT.TYPE];@ABS.PT.ST
VAL=ATUS.type[@p.pt.status]}
cd.screen 15 FREE L MIS.SCREEN VAL=@ABS.PT.CLASS.customer.def.screen[@pt.class]
charge.total 10 MONEY R :DZ[dz]F["C"]|0
charge.update.date 8 DATE L :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 :DZ[dz]CH|0
cihi.study 10 FREE L ABS.CAN.STUDY :DZ[dz]A["CN"]|13
ck.admit.priv 1 YN L VAL=@MIS.DOC.DICT.admit.priv[@.new,IF{@facility;.},@.n
VAL=ew]
client 12 FREE L :DZ[dz]|17
cmg 3 FREE L ABS.DRG :DZ[dz]D|0
cmg.adm 3 FREE L ABS.DRG :DZ[dz]D|7
cmg.age.cat 1 FREE L :DZ[dz]D|44
cmg.age.group 1 PINT R :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 :DZ[dz]D|27
cmg.calc.date 8 DATE L :DZ[dz]D|3
cmg.cc.indicator 1 YN L :DZ[dz]D|33
cmg.coder 10 FREE L MIS.USER :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 :DZ[dz]D|18
cmg.dollars.grp 9 DEC2 R :DZ[dz]D|11
cmg.final 3 FREE L ABS.DRG :DZ[dz]D|9
cmg.flag.interv.cnt 1 FREE L :DZ[dz]D|46
cmg.inst.acute 1 YN L :DZ[dz]D|39
cmg.intermediate 3 FREE L ABS.DRG :DZ[dz]D|8
cmg.interv.event.cnt 1 FREE L VAL=%ABS.PAT.cmg.grp.get.interv.event.cnt(urn)
cmg.interv.ooh.cnt 1 FREE L VAL=%ABS.PAT.cmg.grp.get.interv.ooh.cnt(urn)
cmg.los.grp 4 INT R :DZ[dz]D|29
cmg.most.respon.dx 7 FREE L ABS.DIAG VAL=@dx[urn,1]
cmg.quartile.1 4 DEC R :DZ[dz]D|21
cmg.quartile.1.cal 4 DEC R VAL=(%ABS.PAT.cmg.grp.cost.val.setup(urn)#10P)
cmg.quartile.2 4 DEC R :DZ[dz]D|22
cmg.quartile.2.cal 4 DEC R VAL=(%ABS.PAT.cmg.grp.cost.val.setup(urn)#11P)
cmg.quartile.3 4 DEC R :DZ[dz]D|23
cmg.quartile.3.cal 4 DEC R VAL=(%ABS.PAT.cmg.grp.cost.val.setup(urn)#12P)
cmg.quartile.4 4 DEC R :DZ[dz]D|24
cmg.quartile.4.cal 4 DEC R VAL=(%ABS.PAT.cmg.grp.cost.val.setup(urn)#13P)
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 :DZ[dz]D|26
cmg.rate 10 DEC R :DZ[dz]D|16
cmg.rate.cal 10 DEC R VAL=(%ABS.PAT.cmg.grp.cost.val.setup(urn)#5P)
cmg.ri.level 1 FREE L :DZ[dz]D|45
cmg.riw.atypical.cal 10 DEC R VAL=(%ABS.PAT.cmg.grp.cost.val.setup(urn)#4P)
cmg.riw.atypical.grp 10 DEC R :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 :DZ[dz]D|15
cmg.rout.ancil.cost 10 DEC R :DZ[dz]D|25
cmg.source 10 CHOICE L :DZ[dz]D|19
cmg.st.date 8 DATE L :DZ[dz]D|34
cmg.status 1 CHOICE L :DZ[dz]D|1
cmg.status.date 8 DATE L :DZ[dz]D|34
cmg.status.disp 1 CHOICE L VAL=@p.ABS.PAT.cmg.status
cmg.std.los 5 DEC R :DZ[dz]D|14
cmg.std.los.cal 5 DEC R VAL=(%ABS.PAT.cmg.grp.cost.val.setup(urn)#8P)
cmg.surgical.type 1 FREE L :DZ[dz]D|32
cmg.trim 5 DEC R :DZ[dz]D|13
cmg.trim.cal 4 DEC R VAL=(%ABS.PAT.cmg.grp.cost.val.setup(urn)#9P)
cmg.update.date 8 DATE L :DZ[dz]D|3
cmg.with.all.procedures 3 FREE L ABS.DRG :DZ[dz]D|6
confidential.data 1 YN L VAL=IF{%ABS.PAT.confid.check(ABS.PAT.urn,1) "Y";"N"}
conv.old.account.number 12 FREE L :DZ[dz]YC|0
conv.old.adm.database 12 FREE L :DZ[dz]YC|3
conv.old.adm.urn 30 FREE L :DZ[dz]YC|2
conv.old.mri.urn 25 FREE L :DZ[dz]YC|4
conv.old.unit.number 10 FREE L :DZ[dz]YC|1
cpt.chgs.update.date 8 DATE L :DZ[dz]D["CC"]|0
cpt.date 8 DATE L :DZ[dz]D["CPT"]|1
cpt.date.out 8 DATE L VAL=IF{@cpt.date;@adm.date}
cpt.op.data 1 YN L :DZ[dz]D["O"]|0
cpt.op.only 1 YN L :DZ[dz]D["O"]|1
cpt.separate.from.ops 1 YN L :DZ[dz]D["O"]|2
cpt.surgeon 10 FREE L MIS.DOC.DICT :DZ[dz]D["CPT"]|0
cpt.surgeon.name 30 FREE L VAL=@MIS.DOC.DICT.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 :DZ[dz]A["CN"]|25
decision.to.admit.tim.unk 1 YN L :DZ[dz]A["CN"]|26
decision.to.admit.time 4 TIME L :DZ[dz]A["CN"]|23
deductible.pri.ins 13 SMONEY R :DZ[dz]D["CC"]|3
deindexed.date 8 DATE L :DZ[dz]A["AD"]|3
dis.date 8 DATE L :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.DICT :DZ[dz]A["D"]|0
dis.disposition.alive 1 FREE L VAL=@MIS.DIS.DICT.abs.tape.code[IF{@p.dis.disposition;
VAL=c.dis.disposition},MIS.ABS.TAPE.mnemonic]
dis.disposition.name 30 FREE L VAL=(@MIS.DIS.DICT.name[@ABS.PAT.dis.disposition])
dis.expired.48hr 1 YN L :DZ[dz]A["D"]|3
dis.expired.autopsy 1 YN L :DZ[dz]A["D"]|5
dis.expired.autopsy.code 10 FREE L ABS.CAN.AUTOPSY:DZ[dz]A["D"]|11
dis.expired.coroner.me 10 FREE L ABS.CAN.CORONER:DZ[dz]A["D"]|13
dis.expired.due.to 11 CHOICE L :DZ[dz]A["D"]|9
dis.expired.dur.proc 1 YN L :DZ[dz]A["D"]|14
dis.expired.me 1 YN L :DZ[dz]A["D"]|6
dis.expired.orpo 1 CHOICE L :DZ[dz]A["D"]|4
dis.expired.orpo.can 1 CHOICE L :DZ[dz]A["D"]|4
dis.expired.scu 1 CHOICE L :DZ[dz]A["D"]|10
dis.left.er.date 8 DATE L :DZ[dz]A["D"]|15
dis.left.er.time 4 HHMM L :DZ[dz]A["D"]|16
dis.left.er.time.unk 1 YN L :DZ[dz]A["D"]|17
dis.plan 10 FREE L ABS.DIS.PLAN :DZ[dz]A["D"]|7
dis.ready.date 8 DATE L :DZ[dz]A["D"]|8
dis.ready.date.unknown 1 YN L :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 :DZ[dz]A["D"]|2
dis.time.unk 1 YN L :DZ[dz]A["D"]|18
dolt.user.device 5 FREE L :DZ[dz]A["DT"]|2
dolt.user.screen 15 FREE L :DZ[dz]A["DT"]|3
dolt.user.seconds 10 PINT R :DZ[dz]A["DT"]|0
dolt.user.user 10 FREE L MIS.USER :DZ[dz]A["DT"]|1
dpg 4 FREE L ABS.DPG :DZ[dz]D["DP"]|0
dpg.calc.date 8 DATE L :DZ[dz]D["DP"]|3
dpg.cc.indicator 1 YN L :DZ[dz]D["DP"]|33
dpg.coder 10 FREE L MIS.USER :DZ[dz]D["DP"]|17
dpg.cost.wt 10 DEC R :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 :DZ[dz]D["DP"]|18
dpg.dollars.grp 9 DEC2 R :DZ[dz]D["DP"]|11
dpg.financial.class 10 FREE L MIS.FIN.CLASS :DZ[dz]D["DP"]|5
dpg.grouper.version 10 FREE L ABS.VERSION :DZ[dz]D|4
dpg.pt.class 10 FREE L ABS.PT.CLASS :DZ[dz]D["DP"]|40
dpg.rate 10 DEC R :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 :DZ[dz]D["DP"]|15
dpg.sex 1 CHOICE L :DZ[dz]D["DP"]|37
dpg.source 10 CHOICE L :DZ[dz]D|19
dpg.update.date 8 DATE L :DZ[dz]D["DP"]|3
drg 3 FREE L ABS.DRG :DZ[dz]D|0
drg.adm 3 FREE L ABS.DRG :DZ[dz]D|7
drg.admit.dx 7 FREE L ABS.DIAG :DZ[dz]D|10
drg.admit.dx.alt.name 60 FREE L :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 :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 :DZ[dz]D|21
drg.calc.date 8 DATE L :DZ[dz]D|3
drg.coder 10 FREE L MIS.USER :DZ[dz]D|17
drg.cost.wt 10 DEC R :DZ[dz]D|15
drg.cost.wt.all 10 DEC R
drg.dis.disp 10 FREE L MIS.DIS.DICT :DZ[dz]D|38
drg.dollars 9 DEC2 R :DZ[dz]D|11
drg.dollars.all 9 DEC2 R
drg.dollars.calc.date 8 DATE L :DZ[dz]D|18
drg.final 3 FREE L ABS.DRG :DZ[dz]D|9
drg.financial.class 10 FREE L MIS.FIN.CLASS :DZ[dz]D|5
drg.geom.los 5 DEC R :DZ[dz]D|22
drg.grouper.used 10 CHOICE L :DZ[dz]D|19
drg.grouper.version 10 FREE L ABS.VERSION :DZ[dz]D|4
drg.intermediate 3 FREE L ABS.DRG :DZ[dz]D|8
drg.max.los 4 DEC R :DZ[dz]D|13
drg.min.los 4 DEC R :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 :DZ[dz]D|40
drg.rate 10 DEC R :DZ[dz]D|16
drg.sex 1 CHOICE L :DZ[dz]D|37
drg.skip.xfer 1 YN L :DZ[dz]D|20
drg.source 10 CHOICE L :DZ[dz]D|19
drg.st.date 8 DATE L :DZ[dz]D|34
drg.status 1 CHOICE L :DZ[dz]D|1
drg.status.date 8 DATE L :DZ[dz]D|34
drg.status.disp 1 CHOICE L VAL=@p.ABS.PAT.drg.status
drg.std.los 5 DEC R :DZ[dz]D|14
drg.update.date 8 DATE L :DZ[dz]D|3
drg.used.ov.data 1 YN L :DZ[dz]D|35
drg.with.all.procedures 3 FREE L ABS.DRG :DZ[dz]D|6
dx.codeset 10 CHOICE L VAL=%ABS.PAT.dx.codeset(ABS.PAT.urn,"DX")
elos 5 DEC R :DZ[dz]D|43
entry.code 10 FREE L MIS.CAN.ENTRY :DZ[dz]A["CN"]|1
enzymes.abn 1 YN L :DZ[dz]PAS["BC"]|15
enzymes.done 1 YN L :DZ[dz]PAS["BC"]|14
enzymes.rpt 1 YN L :DZ[dz]PAS["BC"]|16
er.depart.date 8 DATE L :DZ[dz]A["AD"]|17
er.depart.time 4 HHMM L :DZ[dz]A["AD"]|18
er.depart.time.unk 1 YN L :DZ[dz]A["AD"]|24
er.phys 10 FREE L MIS.DOC.DICT :DZ[dz]A["AD"]|19
er.phys.name 30 FREE L VAL=@MIS.DOC.DICT.name[@ABS.PAT.er.phys]
er.phys.name.inverted 30 FREE L VAL=(%Z.name.inversion(IF{@MIS.DOC.DICT.name[@ABS.PAT.
VAL=er.phys];@ABS.PAT.er.phys}))
er.phys.name.out 30 FREE L VAL=(IF{@MIS.DOC.DICT.name[@ABS.PAT.er.phys];@ABS.PAT.
VAL=er.phys})
er.service.date 8 DATE L :DZ[dz]A["AD"]|20
er.service.time 4 HHMM L :DZ[dz]A["AD"]|21
er.wait.time 4 INT R :DZ[dz]A["CN"]|18
es.form.alt.signature 55 FREE L VAL=/.ABS.PAT.es.form.alt.signature
es.form.signature 55 FREE L VAL=/.ABS.PAT.es.form.signature
es.form.signed.date 15 FREE L VAL=/.ABS.PAT.es.form.signed.date
es.form.version 17 FREE L VAL=/.ABS.PAT.es.form.version
est.blood.loss 2 INT R :DZ[dz]PAS|2
expected.los 4 PINT R :DZ[dz]A|21
facility 10 FREE L MIS.FACILITY :DZ[dz]|10
family.phys 10 FREE L MIS.DOC.DICT :DZ[dz]A["AD"]|10
family.phys.name 30 FREE L VAL=@MIS.DOC.DICT.name[@ABS.PAT.family.phys]
family.phys.name.inverted 30 FREE L VAL=(%Z.name.inversion(IF{@MIS.DOC.DICT.name[@ABS.PAT.
VAL=family.phys];@ABS.PAT.family.phys}))
family.phys.name.out 30 FREE L VAL=(IF{@MIS.DOC.DICT.name[@ABS.PAT.family.phys];@ABS.
VAL=PAT.family.phys})
family.phys.unk 1 YN L :DZ[dz]A["AD"]|25
financial.class 10 FREE L MIS.FIN.CLASS :DZ[dz]|7
first.name 30 FREE L VAL=(@ABS.PAT.name#"1,")
glucose.abn 1 YN L :DZ[dz]PAS["BC"]|24
glucose.done 1 YN L :DZ[dz]PAS["BC"]|23
glucose.rpt 1 YN L :DZ[dz]PAS["BC"]|25
grouper.version 10 FREE L ABS.VERSION VAL=(IF{grouper.version;/grouper.version;c.drg.grouper
VAL=.version;c.grouper.version;@ABS.VERSION.last.versi
VAL=on}^grouper.version)
grouper.version.norm 10 FREE L ABS.VERSION VAL=(IF{grouper.version.norm;/grouper.version.norm;c.d
VAL=rg.grouper.version.norm;c.grouper.version.norm;@AB
VAL=S.VERSION.last.version.norm}^grouper.version)
grp.type 3 FREE L :DZ[dz]D["AD"]|1
hcn.assign.by.prov 2 FREE L MIS.CAN.PROV :DZ[dz]A["CN"]|20
health.care.number 14 FREE L :DZ[dz]A["CN"]|6
hmri.study 10 FREE L ABS.CAN.STUDY :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.DICT :DZ[dz]A|16
inprocess.status.change 1 YN L :DZ[dz]|16
institution.from 10 FREE L MIS.CAN.INST :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 :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 10 FREE L :DZ[dz]A|22
interupt.stay.days 3 PINT R :DZ[dz]A|23
key.nacrs.chart.num 10 FREE L :DZ[dz]A["CN"]KN|4
key.nacrs.fac.num 5 FREE L :DZ[dz]A["CN"]KN|1
key.nacrs.fac.prov 2 FREE L MIS.CAN.PROV :DZ[dz]A["CN"]KN|0
key.nacrs.period 2 PINT R :DZ[dz]A["CN"]KN|3
key.nacrs.year 4 YEAR L :DZ[dz]A["CN"]KN|2
language 10 FREE L MIS.CAN.LANG :DZ[dz]A["CN"]|7
last.discharge.date 8 DATE L :DZ[dz]A|12
last.discharge.date.cal 8 DATE L VAL=%ABS.PAT.last.dis.date(ABS.PAT.urn)#0P
last.discharge.days 4 INT R VAL=IF{@last.discharge.date&@adm.date %Z.date.sub(@adm
VAL=.date,@last.discharge.date)>0}
last.discharge.days.cal 6 INT R VAL=%ABS.PAT.last.dis.date(ABS.PAT.urn)#1P
last.discharge.error.cal 30 FREE L VAL=%ABS.PAT.last.dis.date(ABS.PAT.urn)#2P
last.name 30 FREE L VAL=(@ABS.PAT.name#"0,")
last.update 10 PINT R :DZ[dz]UPD
last.update.date 8 DATE L VAL=%Z.date.clin.to.npr(@ABS.PAT.last.update/86400)
level 1 PINT R :DZ[dz]D|41
lipids.abn 1 YN L :DZ[dz]PAS["BC"]|21
lipids.done 1 YN L :DZ[dz]PAS["BC"]|20
lipids.rpt 1 YN L :DZ[dz]PAS["BC"]|22
liver.abn 1 YN L :DZ[dz]PAS["BC"]|12
liver.done 1 YN L :DZ[dz]PAS["BC"]|11
liver.rpt 1 YN L :DZ[dz]PAS["BC"]|13
loa.days 4 PINT R :DZ[dz]A|13
location 10 FREE L MIS.LOCN.DICT :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 :DZ[dz]PAS["BC"]|9
lytes.done 1 YN L :DZ[dz]PAS["BC"]|8
lytes.rpt 1 YN L :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])
marital.status 10 FREE L MIS.MAR.STATUS :DZ[dz]A|3
maternity.delivery.date 8 DATE L :DZ[dz]A["M"]|4
maternity.delivery.method 10 FREE L ABS.DELIV :DZ[dz]A["M"]|3
maternity.length.of.labor 3 INT R :DZ[dz]A["M"]|0
maternity.no.live.births 2 INT R :DZ[dz]A["M"]|1
maternity.no.stillborn 2 INT R :DZ[dz]A["M"]|2
mcc 3 FREE L ABS.MDC :DZ[dz]D|31
most.resp.phys.nam.invert 30 FREE L VAL=(%Z.name.inversion(@MIS.DOC.DICT.name[@physician[1
VAL=]]))
most.responsible.phys 10 FREE L MIS.DOC.DICT VAL=(@ABS.PAT.physician[1])
mothers.acct.number 12 FREE L :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 :DZ[dz]A|19
mri.urn 25 URN L MRI.PAT :DZ[dz]|5
multichannel.done 1 YN L :DZ[dz]PAS["BC"]|0
multichannel.rpt 1 YN L :DZ[dz]PAS["BC"]|1
name 30 FREE L :DZ[dz]|1
name.18 18 FREE L VAL=(@ABS.PAT.name$18)
name.20 20 FREE L VAL=(@ABS.PAT.name$20)
name.inverted 30 FREE L VAL=(%Z.name.inversion(@ABS.PAT.name))
newborn 1 YN L :DZ[dz]A|18
newborn.adm.src 10 FREE L MIS.NEWBORN :DZ[dz]A["N"]|6
newborn.adm.src.name 30 FREE L VAL=(@MIS.NEWBORN.name[@ABS.PAT.newborn.adm.src])
newborn.apgar.1 2 CHOICE L :DZ[dz]A["N"]|3
newborn.apgar.2 2 CHOICE L :DZ[dz]A["N"]|4
newborn.ventilator.days 2 PINT R :DZ[dz]A["N"]|5
newborn.weight.gr 6 PINT R :DZ[dz]A["N"]|2
newborn.weight.gr.can 4 INT R :DZ[dz]A["N"]|2
newborn.weight.lbs 3 PINT R :DZ[dz]A["N"]|0
newborn.weight.ozs 5 DEC2 R :DZ[dz]A["N"]|1
next.bill.date 8 DATE L :DZ[dz]D["CC"]|2
next.bill.type 3 FREE L :DZ[dz]D["CC"]|1
nitrogen.abn 1 YN L :DZ[dz]PAS["BC"]|3
nitrogen.done 1 YN L :DZ[dz]PAS["BC"]|2
nitrogen.rpt 1 YN L :DZ[dz]PAS["BC"]|4
norm.arith.los 5 DEC R :DZ[dz]D["DN"]|21
norm.atypical.type.grp 3 CHOICE L :DZ[dz]D["DN"]|27
norm.calc.date 8 DATE L :DZ[dz]D["DN"]|3
norm.cc.indicator 1 YN L :DZ[dz]D["DN"]|33
norm.cmg 3 FREE L ABS.DRG :DZ[dz]D["DN"]|0
norm.cmg.all.procedures 3 FREE L ABS.DRG :DZ[dz]D["DN"]|6
norm.cmg.atypical.typ.cal 3 CHOICE L VAL=(%ABS.PAT.cmg.grp.cost.val.norm.setup(urn)#1P)
norm.cmg.cost.savings 10 DEC2 R VAL=(%ABS.PAT.cmg.grp.cost.val.norm.setup(urn)#7P)
norm.cmg.dollars.cal 9 DEC2 R VAL=(%ABS.PAT.cmg.grp.cost.val.norm.setup(urn)#0P)
norm.cmg.elos 5 DEC R :DZ[dz]D["DN"]|43
norm.cmg.level 1 PINT R :DZ[dz]D["DN"]|41
norm.cmg.los.grp 4 INT R :DZ[dz]D["DN"]|29
norm.cmg.quartile.1.cal 4 DEC R VAL=(%ABS.PAT.cmg.grp.cost.val.norm.setup(urn)#10P)
norm.cmg.quartile.2.cal 4 DEC R VAL=(%ABS.PAT.cmg.grp.cost.val.norm.setup(urn)#11P)
norm.cmg.quartile.3.cal 4 DEC R VAL=(%ABS.PAT.cmg.grp.cost.val.norm.setup(urn)#12P)
norm.cmg.quartile.4.cal 4 DEC R VAL=(%ABS.PAT.cmg.grp.cost.val.norm.setup(urn)#13P)
norm.cmg.quartile.cal 1 INT R VAL=(%ABS.PAT.cmg.grp.cost.val.norm.setup(urn)#2P)
norm.cmg.rate.cal 10 DEC R VAL=(%ABS.PAT.cmg.grp.cost.val.norm.setup(urn)#5P)
norm.cmg.riw.atypical.cal 10 DEC R VAL=(%ABS.PAT.cmg.grp.cost.val.norm.setup(urn)#4P)
norm.cmg.riw.cal 10 DEC R VAL=(%ABS.PAT.cmg.grp.cost.val.norm.setup(urn)#6P)
norm.cmg.riw.typical.cal 10 DEC R VAL=(%ABS.PAT.cmg.grp.cost.val.norm.setup(urn)#3P)
norm.cmg.std.los.cal 5 DEC R VAL=(%ABS.PAT.cmg.grp.cost.val.norm.setup(urn)#8P)
norm.cmg.trim.cal 5 DEC R VAL=(%ABS.PAT.cmg.grp.cost.val.norm.setup(urn)#9P)
norm.coder 10 FREE L MIS.USER :DZ[dz]D["DN"]|17
norm.cost.wt 10 DEC R :DZ[dz]D["DN"]|15
norm.dollars 9 DEC2 R :DZ[dz]D["DN"]|11
norm.dollars.all 9 DEC2 R
norm.dollars.calc.date 8 DATE L :DZ[dz]D["DN"]|18
norm.dpg 4 FREE L ABS.DPG :DZ[dz]D["DPN"]|0
norm.dpg.calc.date 8 DATE L :DZ[dz]D["DPN"]|3
norm.dpg.cc.indicator 1 YN L :DZ[dz]D["DPN"]|33
norm.dpg.coder 10 FREE L MIS.USER :DZ[dz]D["DPN"]|17
norm.dpg.cost.wt 10 DEC R :DZ[dz]D["DPN"]|15
norm.dpg.dollars 9 DEC2 R :DZ[dz]D["DPN"]|11
norm.dpg.dollars.cal 9 DEC2 R VAL=(%ABS.PAT.dpg.grp.cost.val.norm.setup(urn)#0P)
norm.dpg.dollars.calc.dat 8 DATE L :DZ[dz]D["DPN"]|18
norm.dpg.grouper.used 10 CHOICE L :DZ[dz]D["DN"]|19
norm.dpg.grp.date 8 DATE L :DZ[dz]D["DPN"]|3
norm.dpg.grp.version 10 FREE L ABS.VERSION :DZ[dz]D["DN"]|4
norm.dpg.rate 10 DEC R :DZ[dz]D["DPN"]|16
norm.dpg.rate.cal 10 DEC R VAL=(%ABS.PAT.dpg.grp.cost.val.norm.setup(urn)#2P)
norm.dpg.riw.typical.grp 10 DEC R :DZ[dz]D["DPN"]|15
norm.drg 3 FREE L ABS.DRG :DZ[dz]D["DN"]|0
norm.drg.all.procedures 3 FREE L ABS.DRG :DZ[dz]D["DN"]|6
norm.geom.los 5 DEC R :DZ[dz]D["DN"]|22
norm.grouper.used 10 CHOICE L :DZ[dz]D["DN"]|19
norm.grp.date 8 DATE L :DZ[dz]D["DN"]|3
norm.grp.version 10 FREE L ABS.VERSION :DZ[dz]D["DN"]|4
norm.max.los 4 DEC R :DZ[dz]D["DN"]|13
norm.mcc 3 FREE L ABS.MDC :DZ[dz]D["DN"]|31
norm.min.los 4 DEC R :DZ[dz]D["DN"]|12
norm.quartile.1 4 DEC R :DZ[dz]D["DN"]|21
norm.quartile.2 4 DEC R :DZ[dz]D["DN"]|22
norm.quartile.3 4 DEC R :DZ[dz]D["DN"]|23
norm.quartile.4 4 DEC R :DZ[dz]D["DN"]|24
norm.quartile.grp 1 INT R :DZ[dz]D["DN"]|26
norm.rate 10 DEC R :DZ[dz]D["DN"]|16
norm.riw.atypical.grp 10 DEC R :DZ[dz]D["DN"]|28
norm.riw.grp 10 DEC R VAL=IF{@norm.atypical.type.grp @norm.riw.atypical.grp;
VAL=@norm.riw.typical.grp}
norm.riw.typical.grp 10 DEC R :DZ[dz]D["DN"]|15
norm.rout.ancil.cost 4 DEC R :DZ[dz]D["DN"]|25
norm.std.los 5 DEC R :DZ[dz]D["DN"]|14
norm.surg.type 1 YN L :DZ[dz]D["DN"]|32
norm.trim 5 DEC R :DZ[dz]D["DN"]|13
norm.used.ov.data 1 YN L :DZ[dz]D["DN"]|35
number.and.name 45 FREE L VAL=((@p.ABS.PAT.account.number_" - "_@p.ABS.PAT.name)
VAL='=" - ")
observ.patient 1 YN L :DZ[dz]|4
observation.date 8 DATE L :DZ[dz]A["AD"]|4
observation.time 4 HHMM L :DZ[dz]A["AD"]|13
on.fin.bat.queue.date 8 DATE L VAL=%Z.date.clin.to.npr(@ov.final.x)
op.filed.by.user 1 FREE L :DZ[dz]|18
other.dz 44 FREE L :DZ[dz]A["CN"]|21
outpatient.location 10 FREE L MIS.LOCN.DICT :DZ[dz]A|16
packed.rbsc 2 INT R :DZ[dz]PAS|0
pctas 1 YN L :DZ[dz]A["CN"]AD|8
peak.temp 6 DEC2 R :DZ[dz]PAS|10
phys.init.assess.date 8 DATE L :DZ[dz]A["CN"]AD|4
phys.init.assess.time 4 HHMM L :DZ[dz]A["CN"]AD|5
phys.init.assess.time.unk 1 YN L :DZ[dz]A["CN"]AD|6
post.op.or.part.hct 2 INT R :DZ[dz]PAS|5
postal.code 10 ZIP.POST L :DZ[dz]A|4
postal.code.tape 10 ZIP.POST L :DZ[dz]A["CN"]|16
postal.code.tape.scrn 10 FREE L :DZ[dz]A["CN"]|16
pre.status 1 FREE L :DZ[dz]A["CN"]AD|10
preadmit.workup 10 FREE L ABS.CAN.WKUP :DZ[dz]A["CN"]|12
prim.care.phys 10 FREE L MIS.DOC.DICT :DZ[dz]A["AD"]|8
prim.care.phys.nam.invert 30 FREE L VAL=(%Z.name.inversion(@MIS.DOC.DICT.name[@ABS.PAT.pri
VAL=m.care.phys]))
prim.care.phys.name 30 FREE L VAL=@MIS.DOC.DICT.name[@ABS.PAT.prim.care.phys]
prin.bill.proc.code 7 FREE L ABS.PROC VAL=@ABS.PAT.oper.proc[@ABS.PAT.drg.bill.oper[1],@ABS.
VAL=PAT.drg.bill.proc[1]]
prin.bill.proc.nam.altstd 60 FREE L VAL=%ABS.PAT.proc.name(ABS.PAT.urn,@ABS.PAT.drg.bill.o
VAL=per,@ABS.PAT.drg.bill.proc,"")
prin.drg.proc 7 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 7 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.DICT 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)X)
proteins.abn 1 YN L :DZ[dz]PAS["BC"]|18
proteins.done 1 YN L :DZ[dz]PAS["BC"]|17
proteins.rpt 1 YN L :DZ[dz]PAS["BC"]|19
province 2 FREE L :DZ[dz]A["CN"]|5
pt.class 10 FREE L ABS.PT.CLASS :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 :DZ[dz]|6
pt.status.disp 8 FREE L ABS.PT.STATUS VAL=@p.ABS.PAT.pt.status
race 10 FREE L MIS.RACE.DICT :DZ[dz]A|2
rc.conv.in.process 1 YN L :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 :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 :DZ[dz]A["CN"]|11
reason.for.visit 50 FREE L :DZ[dz]A|20
refile.check 1 YN L :DZ[dz]A["AD"]|7
regist.categ 10 FREE L MIS.CAN.REGCAT :DZ[dz]A["CN"]|0
reimbur.exp.total 10 MONEY R :DZ[dz]F["R"]|4
reimbur.ins.adj 10 MONEY R :DZ[dz]F["R"]|5
reimbur.ins.bal 10 MONEY R :DZ[dz]F["R"]|1
reimbur.ins.exp.reimb 10 MONEY R :DZ[dz]F["R"]|8
reimbur.ins.rec 10 MONEY R :DZ[dz]F["R"]|0
reimbur.pt.adj 10 MONEY R :DZ[dz]F["R"]|6
reimbur.pt.bal 10 MONEY R :DZ[dz]F["R"]|3
reimbur.pt.exp.reimb 10 MONEY R :DZ[dz]F["R"]|9
reimbur.pt.rec 10 MONEY R :DZ[dz]F["R"]|2
reservation.date 8 DATE L :DZ[dz]A|11
residence.code 10 FREE L MIS.CNTY.DICT :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.DICT :DZ[dz]A|14
sched.er 1 YN L :DZ[dz]A["CN"]AD|7
sdc.hour 2 PINT R :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 :DZ[dz]A["CN"]|17
service.date 8 DATE L :DZ[dz]A["AD"]|1
service.time 4 HHMM L :DZ[dz]A["AD"]|12
sex 1 CHOICE L :DZ[dz]A|0
sex.canada 1 CHOICE L :DZ[dz]A|0
sex.disp 1 CHOICE L VAL=@p.ABS.PAT.sex
soc.sec.no 12 FREE L :DZ[dz]|14
social.services 10 FREE L ABS.CAN.SOC.SVC:DZ[dz]A["CN"]|15
sort.id 44 FREE L
sort.name 30 FREE L :DZ[dz]|9
spec.studies.last.ed.date 8 DATE L :DZ[dz]SS|0
spec.studies.last.ed.user 10 FREE L MIS.USER :DZ[dz]SS|1
std.cost.fixed 7 SINT R :DZ[dz]F["S"]|5
std.cost.labor 7 SINT R :DZ[dz]F["S"]|2
std.cost.last.update 8 DATE L :DZ[dz]F["S"]|1
std.cost.materials 7 SINT R :DZ[dz]F["S"]|3
std.cost.overhead 7 SINT R :DZ[dz]F["S"]|4
std.cost.su.by.period 1 FREE L :DZ[dz]F["S"]|7
std.cost.total 7 SINT R :DZ[dz]F["S"]|0
std.cost.variable 7 SINT R :DZ[dz]F["S"]|6
suppress.from.bar 1 FREE L :DZ[dz]|15
temp.service.date 8 DATE L :DZ[dz]A["AD"]|22
temp.service.time 4 HHMM L :DZ[dz]A["AD"]|23
three.abs 3 FREE L :DZ[dz]A["CN"]AD|9
thyroid.abn 1 YN L :DZ[dz]PAS["BC"]|27
thyroid.done 1 YN L :DZ[dz]PAS["BC"]|26
thyroid.rpt 1 YN L :DZ[dz]PAS["BC"]|28
triage.date 8 DATE L :DZ[dz]A["CN"]AD|2
triage.level 10 FREE L MIS.CAN.TRIAGE :DZ[dz]A["CN"]|22
triage.time 4 HHMM L :DZ[dz]A["CN"]AD|3
unit.number 10 FREE L :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 :DZ[dz]A["CN"]|19
ur.admit.reason 10 FREE L ABS.ADM.REASON :DZ[dz]U|2
ur.and.level 10 FREE L ABS.AND.LEVEL :DZ[dz]U|8
ur.and.reason 10 FREE L ABS.AND.REASON :DZ[dz]U|9
ur.coord 10 FREE L MIS.USER :DZ[dz]U|13
ur.coord.name 30 FREE L VAL=%Z.name.inversion(@MIS.USER.name[@ur.coord])
ur.denial.appeal.conv 1 YN L :DZ[dz]U|17
ur.dis.plan.days 3 PINT R :DZ[dz]U|5
ur.dis.plan.type 10 FREE L ABS.DIS.PLAN :DZ[dz]U|4
ur.dis.pln.cds.print 0 FREE L VAL=IF{@ABS.DIS.PLAN.cust.def.screen[@ur.sum.discharge
VAL=.plan]^CDS urn^/urn,%MIS.SCREEN.print(CDS,^@Root(@
VAL=ur.dis.pln.cds.queries),"",0)}
ur.dis.pln.cds.print.32 0 FREE L VAL=IF{@ABS.DIS.PLAN.cust.def.screen[@ur.sum.discharge
VAL=.plan]^CDS urn^/urn,%MIS.SCREEN.print(CDS,^@Root(@
VAL=ur.dis.pln.cds.queries),1,32)}
ur.dis.pln.cds.prt.verbtm 0 FREE L VAL=IF{@ABS.DIS.PLAN.cust.def.screen[@ur.sum.discharge
VAL=.plan]^CDS urn^/urn,%MIS.SCREEN.print(CDS,^@Root(@
VAL=ur.dis.pln.cds.queries),1,0)}
ur.doc.review 3 PINT R :DZ[dz]U|3
ur.editor.disp 0 FREE L VAL=%Z.text.ed.shell(^@Root(@ur.notes[urn]),5,26,92,0,
VAL="D","ABS.PAT","ur.editor.help")
ur.editor.edit 0 FREE L VAL=%ABS.PAT.ur.editor("E")
ur.editor.help 0 FREE L
ur.editor.view 0 FREE L VAL=%ABS.PAT.ur.editor("V")
ur.initial.cert.days 4 PINT R :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 :DZ[dz]U|11
ur.next.type 10 FREE L ABS.REVIEW.TYP :DZ[dz]U|12
ur.number.extensions 3 PINT R :DZ[dz]U|7
ur.number.reviews 3 INT R VAL=-@ur.events[urn,""]
ur.review.date 8 DATE L :DZ[dz]U|10
ur.review.type 10 FREE L ABS.REVIEW.TYP :DZ[dz]U|6
ur.rugs.patient 1 YN L :DZ[dz]U|14
ur.stat.fields 10 CHOICE L
ur.status 10 FREE L ABS.UR.STATUS :DZ[dz]U|0
ur.summary.cds 20 FREE L :DZ[dz]U["S"]|8
ur.summary.drive 1 YN L :DZ[dz]U["S"]|7
ur.summary.family.cont 20 FREE L :DZ[dz]U["S"]|4
ur.summary.home.service 1 YN L :DZ[dz]U["S"]|1
ur.summary.liv.arrang 20 FREE L :DZ[dz]U["S"]|3
ur.summary.phone 13 PHONE L :DZ[dz]U["S"]|5
ur.summary.prep.meals 1 YN L :DZ[dz]U["S"]|6
ur.summary.type.of.serv 10 FREE L ABS.DIS.PLAN :DZ[dz]U["S"]|2
ur.tot.approved.days 3 PINT R :DZ[dz]U|15
ur.tot.denied.days 3 PINT R :DZ[dz]U|16
use.ov.proc.order.for.bar 1 YN L :DZ[dz]D|30
whole.blood 2 INT R :DZ[dz]PAS|1
wt.recorded 1 YN L :DZ[dz]PAS|11
zip 10 ZIP.POST L :DZ[dz]A|4
Ì € i 2
abs.pat.abs.locations.and.scus (abs.locs.and.scus)
[urn, abs.loc.or.scu.seq.no]
:DZ[dz]A["SP",dzSPS]
Field Name Len Dat Typ J DPM Offset/Local/VAL
abs.loc.or.scu.seq.no 3 PINT R dzSPS
abs.edit 1 YN L :DZ[dz]A["SP",dzSPS]|7
abs.loc 10 FREE L MIS.LOCN.DICT :DZ[dz]A["SP",dzSPS]|6
abs.loc.or.scu.days 4 PINT R :DZ[dz]A["SP",dzSPS]|3
abs.loc.or.scu.end 8 DATE L :DZ[dz]A["SP",dzSPS]|2
abs.loc.or.scu.end.time 4 HHMM L :DZ[dz]A["SP",dzSPS]|5
abs.loc.or.scu.name 30 FREE L VAL=IF{@abs.scu @ABS.SPEC.CARE.name[@abs.scu];@abs.loc
VAL= @MIS.LOCN.DICT.name[@abs.loc]}
abs.loc.or.scu.start 8 DATE L :DZ[dz]A["SP",dzSPS]|1
abs.loc.or.scu.start.time 4 HHMM L :DZ[dz]A["SP",dzSPS]|4
abs.scu 10 FREE L ABS.SPEC.CARE :DZ[dz]A["SP",dzSPS]|0
Ì € i 2
abs.pat.abs.services (abs.services)
[urn, abs.service.seq.no]
: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 :DZ[dz]A["S",dzSS]|0
abs.service.days 4 PINT R :DZ[dz]A["S",dzSS]|3
abs.service.days.cci 5 PINT R :DZ[dz]A["S",dzSS]|3
abs.service.dr 10 FREE L MIS.DOC.DICT :DZ[dz]A["S",dzSS]|5
abs.service.dr.svc 10 FREE L MIS.ABS.SVC :DZ[dz]A["S",dzSS]|6
abs.service.dx 7 FREE L ABS.DIAG :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 :DZ[dz]A["S",dzSS]|8
abs.service.dx.suf 1 FREE L :DZ[dz]A["S",dzSS]|9
abs.service.end 8 DATE L :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 :DZ[dz]A["S",dzSS]|1
abs.service.sub.svc 10 FREE L ABS.CAN.SUB.SVC:DZ[dz]A["S",dzSS]|4
Ì € i 2
abs.pat.adm.locations.and.scus (adm.locs.and.scus)
[urn, adm.loc.or.scu.start,adm.loc.or.scu.start.time]
:DZ[dz]A["SCA",dzSPA,dzSPt]
Field Name Len Dat Typ J DPM Offset/Local/VAL
adm.loc.or.scu.start 8 DATE L dzSPA
adm.loc.or.scu.start.time 4 HHMM L dzSPt
adm.loc 10 FREE L MIS.LOCN.DICT :DZ[dz]A["SCA",dzSPA,dzSPt]|3
adm.loc.or.scu.end 8 DATE L :DZ[dz]A["SCA",dzSPA,dzSPt]|1
adm.loc.or.scu.end.time 4 HHMM L :DZ[dz]A["SCA",dzSPA,dzSPt]|2
adm.scu 10 FREE L ABS.SPEC.CARE :DZ[dz]A["SCA",dzSPA,dzSPt]|0
Ì € i 2
abs.pat.adm.rcr.dates (adm.rcr.dates)
[urn, adm.recur.date,adm.recur.time]
: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 :DZ[dz]A["AR",dzARD,dzART]|1
adm.recur.locn 10 FREE L MIS.LOCN.DICT :DZ[dz]A["AR",dzARD,dzART]|0
Ì € i 2
abs.pat.adm.services (adm.services)
[urn, adm.service.start]
: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.DICT :DZ[dz]A["SA",dzSA]|0
adm.service.end 8 DATE L :DZ[dz]A["SA",dzSA]|1
Ì € i 2
abs.pat.can.key.encns.nacrs (can.key.encounters.nacrs)
[urn, key.nacrs.encnt.no]
:DZ[dz]A["CN"]KE[dzKEN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
key.nacrs.encnt.no 3 PINT R dzKEN
key.nacrs.encnt.status 5 CHOICE L :DZ[dz]A["CN"]KE[dzKEN]|0
key.nacrs.rc.date 8 DATE L :DZ[dz]A["CN"]KE[dzKEN]|1
key.nacrs.rc.time 4 HHMM L :DZ[dz]A["CN"]KE[dzKEN]|2
key.nacrs.vc.cntr 9 INT R ABS.CAN.VIS.CTR:DZ[dz]A["CN"]KE[dzKEN]|4
key.nacrs.vc.fn.seq.no 3 PINT R :DZ[dz]A["CN"]KE[dzKEN]|5
key.nacrs.vs.cntr.no 3 PINT R :DZ[dz]A["CN"]KE[dzKEN]|3
Ì € i 2
abs.pat.can.key.encounters.x (can.key.encounters.x)
[urn, key.ent.rc.date,key.ent.rc.time,key.ent.rc.vs.cntr.no] = key.nacrs.encnt.no
:DZ[dz]A["CN"]KEI[dzRD,dzRT,ckVC]
Field Name Len Dat Typ J DPM Offset/Local/VAL
key.ent.rc.date 8 DATE L dzRD
key.ent.rc.time 4 HHMM L dzRT
key.ent.rc.vs.cntr.no 3 PINT R ckVC
key.ent.rc.encnt.no 3 PINT R :DZ[dz]A["CN"]KEI[dzRD,dzRT,ckVC]|0
Ì € i 2
abs.pat.key.visit.centers (can.key.visit.centers)
[key.nacrs.vc.seq.no]
:DZ[dz]A["CN"]KN["VC",ckVC]
Field Name Len Dat Typ J DPM Offset/Local/VAL
key.nacrs.vc.seq.no 2 PINT R ckVC
key.nacrs.vc.abstract.id 7 PINT R :DZ[dz]A["CN"]KN["VC",ckVC]|1
key.nacrs.vc.err.warn 3 CHOICE L :DZ[dz]A["CN"]KN["VC",ckVC]|3
key.nacrs.visit.center 9 INT R ABS.CAN.VIS.CTR:DZ[dz]A["CN"]KN["VC",ckVC]|0
Ì € i 2
abs.pat.can.key.rc.dates.nacrs (can.key.rc.dates.nacrs)
[urn, key.rc.date,key.rc.time]
:DZ[dz]A["CN"]RK[dzRD,dzRT]
Field Name Len Dat Typ J DPM Offset/Local/VAL
key.rc.date 8 DATE L dzRD
key.rc.time 8 TIME L dzRT
key.rc.nacrs.chart.num 10 FREE L :DZ[dz]A["CN"]RK[dzRD,dzRT]KN|4
key.rc.nacrs.fac.num 5 FREE L :DZ[dz]A["CN"]RK[dzRD,dzRT]KN|1
key.rc.nacrs.fac.prov 2 FREE L MIS.CAN.PROV :DZ[dz]A["CN"]RK[dzRD,dzRT]KN|0
key.rc.nacrs.period 2 PINT R :DZ[dz]A["CN"]RK[dzRD,dzRT]KN|3
key.rc.nacrs.reg.num 12 FREE L :DZ[dz]A["CN"]RK[dzRD,dzRT]KN|5
key.rc.nacrs.year 4 YEAR L :DZ[dz]A["CN"]RK[dzRD,dzRT]KN|2
Ì € i 2
abs.pat.can.key.rc.visit.ctrs (can.key.rc.visit.centers)
[urn,key.rc.date,key.rc.time, key.rc.nacrs.vc.seq.no]
:DZ[dz]A["CN"]RK[dzRD,dzRT]KN["VC",ckVC]
Field Name Len Dat Typ J DPM Offset/Local/VAL
key.rc.nacrs.vc.seq.no 2 PINT R ckVC
key.rc.nacrs.vc.abs.id 7 PINT R :DZ[dz]A["CN"]RK[dzRD,dzRT]KN["VC",ckVC]|1
key.rc.nacrs.vc.enc.no 3 PINT R :DZ[dz]A["CN"]RK[dzRD,dzRT]KN["VC",ckVC]|2
key.rc.nacrs.vc.err.warn 3 CHOICE L :DZ[dz]A["CN"]RK[dzRD,dzRT]KN["VC",ckVC]|3
key.rc.nacrs.visit.ctr 9 INT R ABS.CAN.VIS.CTR:DZ[dz]A["CN"]RK[dzRD,dzRT]KN["VC",ckVC]|0
Ì € i 2
abs.pat.nac.rc.vs.id.dates (can.nac.rc.vs.id.dates)
[urn, can.nac.vs.id.rc.date,can.nac.vs.id.rc.time]
:DZ[dz]A["CN"]RI[dzRD,dzRT]
Field Name Len Dat Typ J DPM Offset/Local/VAL
can.nac.vs.id.rc.date 8 DATE L dzRD
can.nac.vs.id.rc.time 4 HHMM L dzRT
Ì € i 2
abs.pat.can.rc.vs.id.trans (can.nac.rc.vs.id.trans)
[urn,can.nac.vs.id.rc.date,can.nac.vs.id.rc.time, nac.rc.vs.id.seq.no]
:DZ[dz]A["CN"]RI[dzRD,dzRT]IT[ckVC]
Field Name Len Dat Typ J DPM Offset/Local/VAL
nac.rc.vs.id.seq.no 2 PINT R ckVC
Ì € i 2
abs.pat.can.nac.rc.vs.id.trans (can.nac.rc.vs.id.trn.data)
[urn,can.nac.vs.id.rc.date,can.nac.vs.id.rc.time,nac.rc.vs.id.seq.no, nac.rc.vs.id.trn.seq.no]
:DZ[dz]A["CN"]RI[dzRD,dzRT]IT[ckVC]T[dzIVN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
nac.rc.vs.id.trn.seq.no 3 PINT R dzIVN
nac.rc.vs.chart.no 10 FREE L :DZ[dz]A["CN"]RI[dzRD,dzRT]IT[ckVC]T[dzIVN]|5
nac.rc.vs.enc.no 3 INT R :DZ[dz]A["CN"]RI[dzRD,dzRT]IT[ckVC]T[dzIVN]|13
nac.rc.vs.err.warn 3 CHOICE L :DZ[dz]A["CN"]RI[dzRD,dzRT]IT[ckVC]T[dzIVN]|14
nac.rc.vs.file.lst.urn 6 PINT R ABS.FILE.LST :DZ[dz]A["CN"]RI[dzRD,dzRT]IT[ckVC]T[dzIVN]|9
nac.rc.vs.id 7 INT R :DZ[dz]A["CN"]RI[dzRD,dzRT]IT[ckVC]T[dzIVN]|4
nac.rc.vs.id.fac.no 5 FREE L :DZ[dz]A["CN"]RI[dzRD,dzRT]IT[ckVC]T[dzIVN]|1
nac.rc.vs.id.fac.prov 2 FREE L MIS.CAN.PROV :DZ[dz]A["CN"]RI[dzRD,dzRT]IT[ckVC]T[dzIVN]|0
nac.rc.vs.id.period 2 INT R :DZ[dz]A["CN"]RI[dzRD,dzRT]IT[ckVC]T[dzIVN]|3
nac.rc.vs.id.year 4 YEAR L :DZ[dz]A["CN"]RI[dzRD,dzRT]IT[ckVC]T[dzIVN]|2
nac.rc.vs.last.status 3 CHOICE L :DZ[dz]A["CN"]RI[dzRD,dzRT]IT[ckVC]T[dzIVN]|11
nac.rc.vs.real.vs.seq.no 2 PINT R :DZ[dz]A["CN"]RI[dzRD,dzRT]IT[ckVC]T[dzIVN]|7
nac.rc.vs.rec.type 1 FREE L :DZ[dz]A["CN"]RI[dzRD,dzRT]IT[ckVC]T[dzIVN]|8
nac.rc.vs.reg.no 12 FREE L :DZ[dz]A["CN"]RI[dzRD,dzRT]IT[ckVC]T[dzIVN]|12
nac.rc.vs.tape.st.seq.no 3 INT R :DZ[dz]A["CN"]RI[dzRD,dzRT]IT[ckVC]T[dzIVN]|10
nac.rc.vs.visit.center 9 INT R ABS.CAN.VIS.CTR:DZ[dz]A["CN"]RI[dzRD,dzRT]IT[ckVC]T[dzIVN]|6
Ì € i 2
abs.pat.can.nac.vis.id.trans (can.nac.vs.id.trans)
[urn, nac.id.vs.id.seq.no]
:DZ[dz]A["CN"]IT[ckVC]
Field Name Len Dat Typ J DPM Offset/Local/VAL
nac.id.vs.id.seq.no 2 PINT R ckVC
Ì € i 2
abs.pat.nac.vs.id.trans.data (can.nac.vs.id.trans.data)
[urn,nac.id.vs.id.seq.no, nac.vs.id.trn.seq.no]
:DZ[dz]A["CN"]IT[ckVC]T[dzIVN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
nac.vs.id.trn.seq.no 3 PINT R dzIVN
nac.vs.chart.no 10 FREE L :DZ[dz]A["CN"]IT[ckVC]T[dzIVN]|5
nac.vs.enc.no 3 INT R :DZ[dz]A["CN"]IT[ckVC]T[dzIVN]|13
nac.vs.err.warn 3 CHOICE L :DZ[dz]A["CN"]IT[ckVC]T[dzIVN]|14
nac.vs.file.lst.urn 6 PINT R ABS.FILE.LST :DZ[dz]A["CN"]IT[ckVC]T[dzIVN]|9
nac.vs.id 7 INT R :DZ[dz]A["CN"]IT[ckVC]T[dzIVN]|4
nac.vs.id.fac.no 5 FREE L :DZ[dz]A["CN"]IT[ckVC]T[dzIVN]|1
nac.vs.id.fac.prov 2 FREE L MIS.CAN.PROV :DZ[dz]A["CN"]IT[ckVC]T[dzIVN]|0
nac.vs.id.period 2 INT R :DZ[dz]A["CN"]IT[ckVC]T[dzIVN]|3
nac.vs.id.year 4 YEAR L :DZ[dz]A["CN"]IT[ckVC]T[dzIVN]|2
nac.vs.last.status 3 CHOICE L :DZ[dz]A["CN"]IT[ckVC]T[dzIVN]|11
nac.vs.real.vs.seq.no 2 PINT R :DZ[dz]A["CN"]IT[ckVC]T[dzIVN]|7
nac.vs.rec.type 1 FREE L :DZ[dz]A["CN"]IT[ckVC]T[dzIVN]|8
nac.vs.reg.no 12 FREE L :DZ[dz]A["CN"]IT[ckVC]T[dzIVN]|12
nac.vs.tape.st.seq.no 3 INT R :DZ[dz]A["CN"]IT[ckVC]T[dzIVN]|10
nac.vs.visit.center 9 INT R ABS.CAN.VIS.CTR:DZ[dz]A["CN"]IT[ckVC]T[dzIVN]|6
Ì € i 2
abs.pat.canadian.key.fields (canadian.key.fields)
[urn, key.stillborn.seq.no]
:DZ[dz]A["CN"]K[dzSBN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
key.stillborn.seq.no 2 PINT R dzSBN
key.batch.abstract.number 3 PINT R :DZ[dz]A["CN"]K[dzSBN]|1
key.batch.number 2 PINT R :DZ[dz]A["CN"]K[dzSBN]|0
key.batch.period 2 PINT R :DZ[dz]A["CN"]K[dzSBN]|3
key.batch.year 4 PINT R :DZ[dz]A["CN"]K[dzSBN]|2
key.chart.number 10 FREE L :DZ[dz]A["CN"]K[dzSBN]|5
key.err.warn 3 CHOICE L :DZ[dz]A["CN"]K[dzSBN]|6
key.facility.no.diff 5 FREE L :DZ[dz]A["CN"]K[dzSBN]|9
key.file.cor.type 1 CHOICE L :DZ[dz]A["CN"]K[dzSBN]|8
key.file.last.cor.type 1 CHOICE L :DZ[dz]A["CN"]K[dzSBN]|11
key.file.last.seq.no 5 INT R :DZ[dz]A["CN"]K[dzSBN]|10
key.file.last.status 3 CHOICE L :DZ[dz]A["CN"]K[dzSBN]|12
key.file.seq.no 5 INT R :DZ[dz]A["CN"]K[dzSBN]|7
key.institution 5 FREE L :DZ[dz]A["CN"]K[dzSBN]|4
Ì € i 2
abs.pat.canadian.therapies (canadian.therapies)
[urn, type.of.therapy]
: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:DZ[dz]A["CT",dzTT]|1
therapy.name 30 FREE L VAL=@ABS.CAN.THERAPY.name[@therapy]
Ì € i 2
abs.pat.canadian.visit.centers (canadian.visit.centers)
[urn, visit.funct.center.seq.no]
:DZ[dz]A["V",dzVS]
Field Name Len Dat Typ J DPM Offset/Local/VAL
visit.funct.center.seq.no 3 PINT R dzVS
canadian.reason.for.visit 7 FREE L ABS.DIAG :DZ[dz]A["V",dzVS]|11
dir.cost 5 INT R :DZ[dz]A["V",dzVS]|2
indir.cost 5 INT R :DZ[dz]A["V",dzVS]|3
supplies 5 INT R :DZ[dz]A["V",dzVS]|1
visit.amb.call.number 15 FREE L :DZ[dz]A["V",dzVS]|17
visit.ambulance 1 YN L :DZ[dz]A["V",dzVS]|15
visit.anesth 10 FREE L ABS.ANESTHESIA :DZ[dz]A["V",dzVS]|4
visit.arrival.mode 10 FREE L MIS.ARRIV.DICT :DZ[dz]A["V",dzVS]|16
visit.cacs.acw 8 FREE L :DZ[dz]A["V",dzVS]CACS|0
visit.cacs.cacs 6 FREE L :DZ[dz]A["V",dzVS]CACS|2
visit.cacs.desc 50 FREE L :DZ[dz]A["V",dzVS]CACS|3
visit.cacs.mac 2 FREE L :DZ[dz]A["V",dzVS]CACS|1
visit.complete.record 1 YN L :DZ[dz]A["V",dzVS]D|7
visit.decis.adm.date 8 DATE L :DZ[dz]A["V",dzVS]|6
visit.decis.adm.time 4 TIME L :DZ[dz]A["V",dzVS]|7
visit.decis.adm.unk 1 YN L :DZ[dz]A["V",dzVS]|8
visit.disp.time.unk 1 YN L :DZ[dz]A["V",dzVS]|14
visit.disposition 10 FREE L MIS.DIS.DICT :DZ[dz]A["V",dzVS]|5
visit.disposition.date 8 DATE L :DZ[dz]A["V",dzVS]|12
visit.disposition.time 4 HHMM L :DZ[dz]A["V",dzVS]|13
visit.functional.center 9 INT L ABS.CAN.VIS.CTR:DZ[dz]A["V",dzVS]|0
visit.glasgow.coma.scale 2 INT R :DZ[dz]A["V",dzVS]D|1
visit.helmet.indicator 2 CHOICE L :DZ[dz]A["V",dzVS]D|5
visit.inst.from 10 FREE L MIS.CAN.INST :DZ[dz]A["V",dzVS]|9
visit.inst.to 10 FREE L MIS.CAN.INST :DZ[dz]A["V",dzVS]|10
visit.mode.of.contact 10 FREE L ABS.CAN.CONTACT:DZ[dz]A["V",dzVS]D|3
visit.program.area 10 FREE L ABS.CAN.PROG.AR:DZ[dz]A["V",dzVS]D|0
visit.referral.date 8 DATE L :DZ[dz]A["V",dzVS]D|6
visit.seat.belt.indicator 2 CHOICE L :DZ[dz]A["V",dzVS]D|2
visit.type 10 FREE L ABS.CAN.VISIT :DZ[dz]A["V",dzVS]D|4
visit.vendor.acw 8 FREE L :DZ[dz]A["V",dzVS]VE|2
visit.vendor.cacs 4 FREE L :DZ[dz]A["V",dzVS]VE|1
visit.vendor.mac 2 PINT R :DZ[dz]A["V",dzVS]VE|0
Ì € i 2
abs.pat.can.visit.drg.procs (canadian.visit.drg.procs)
[urn,visit.funct.center.seq.no, visit.ov.drg.proc.seq.no]
:DZ[dz]A["V",dzVS]P[dzDPV]
Field Name Len Dat Typ J DPM Offset/Local/VAL
visit.ov.drg.proc.seq.no 2 PINT R dzDPV
visit.ov.drg.proc 7 FREE L ABS.PROC :DZ[dz]A["V",dzVS]P[dzDPV]|0
visit.ov.drg.proc.alt.nam 60 FREE L :DZ[dz]A["V",dzVS]P[dzDPV]|6
visit.ov.drg.proc.ane.tec 10 FREE L ABS.ANESTHESIA :DZ[dz]A["V",dzVS]P[dzDPV]|7
visit.ov.drg.proc.cci 15 FREE L :DZ[dz]A["V",dzVS]P[dzDPV]|0
visit.ov.drg.proc.date 8 DATE L :DZ[dz]A["V",dzVS]P[dzDPV]|2
visit.ov.drg.proc.ext 2 FREE L :DZ[dz]A["V",dzVS]P[dzDPV]|12
visit.ov.drg.proc.inst 10 FREE L MIS.CAN.INST :DZ[dz]A["V",dzVS]P[dzDPV]|10
visit.ov.drg.proc.loc 2 FREE L :DZ[dz]A["V",dzVS]P[dzDPV]|11
visit.ov.drg.proc.or 10 FREE L ABS.CAN.OR :DZ[dz]A["V",dzVS]P[dzDPV]|9
visit.ov.drg.proc.renum 2 PINT R :DZ[dz]A["V",dzVS]P[dzDPV]|5
visit.ov.drg.proc.st 2 FREE L :DZ[dz]A["V",dzVS]P[dzDPV]|13
visit.ov.drg.proc.suf 1 FREE L :DZ[dz]A["V",dzVS]P[dzDPV]|1
visit.ov.drg.proc.surg 10 FREE L MIS.DOC.DICT :DZ[dz]A["V",dzVS]P[dzDPV]|3
visit.ov.drg.proc.surg.sv 10 FREE L MIS.ABS.SVC :DZ[dz]A["V",dzVS]P[dzDPV]|4
visit.ov.drg.proc.tim.beg 4 HHMM L :DZ[dz]A["V",dzVS]P[dzDPV]|14
visit.ov.drg.proc.time 4 PINT R :DZ[dz]A["V",dzVS]P[dzDPV]|8
Ì € i 2
abs.pat.canadian.visit.dxs (canadian.visit.dxs)
[urn,visit.funct.center.seq.no, visit.ov.dx.seq.no]
:DZ[dz]A["V",dzVS]DX[dzDXN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
visit.ov.dx.seq.no 2 PINT R dzDXN
visit.ov.dx 7 FREE L ABS.DIAG :DZ[dz]A["V",dzVS]DX[dzDXN]|0
visit.ov.dx.alt.name 60 FREE L :DZ[dz]A["V",dzVS]DX[dzDXN]|5
visit.ov.dx.pre 1 FREE L :DZ[dz]A["V",dzVS]DX[dzDXN]|1
visit.ov.dx.renumber 2 PINT R :DZ[dz]A["V",dzVS]DX[dzDXN]|4
visit.ov.dx.suf 1 FREE L :DZ[dz]A["V",dzVS]DX[dzDXN]|2
visit.ov.dx.type 10 FREE L ABS.CAN.DX.TYPE:DZ[dz]A["V",dzVS]DX[dzDXN]|3
Ì € i 2
abs.pat.can.visit.physicians (canadian.visit.phys)
[urn,visit.funct.center.seq.no, visit.phys.seq.no]
:DZ[dz]A["V",dzVS]PH[dzVPN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
visit.phys.seq.no 2 PINT R dzVPN
visit.phys.service 10 FREE L MIS.ABS.SVC :DZ[dz]A["V",dzVS]PH[dzVPN]|1
visit.phys.type 10 FREE L MIS.DOC.TYPE :DZ[dz]A["V",dzVS]PH[dzVPN]|2
visit.physician 10 FREE L MIS.DOC.DICT :DZ[dz]A["V",dzVS]PH[dzVPN]|0
Ì € i 2
abs.pat.conditions (conditions)
[urn, cond.seq.no]
:DZ[dz]A["CND",dzCNB]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cond.seq.no 1 PINT R dzCNB
condition 10 FREE L MIS.COND :DZ[dz]A["CND",dzCNB]|0
Ì € i 2
abs.pat.customer.def.queries (customer.defined.queries)
[urn, cd.query]
:DZ[dz]A["CD",ggv]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cd.query 10 FREE L MIS.QUERY ggv
cd.map.date 10 PINT R :DZ[dz]A["CD",ggv]INIT
cd.query.response 75 QRY.RESP L :DZ[dz]A["CD",ggv]|0
Ì € i 2
abs.pat.cust.def.mult.queries (customer.def.mult.queries)
[urn,cd.query, cdm.seq.no]
:DZ[dz]A["CD",ggv]M[ggvN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cdm.seq.no 3 PINT R ggvN
cdm.response 75 QRY.RESP L :DZ[dz]A["CD",ggv]M[ggvN]|0
Ì € i 2
abs.pat.insurances (insurances)
[urn, ins.seq.no]
:DZ[dz]A["I",dzIN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ins.seq.no 1 PINT R dzIN
ins.auth.los 3 PINT R :DZ[dz]A["I",dzIN]|4
ins.auth.units 3 PINT R VAL=IF{@ins.auth.los;@ins.auth.visits}
ins.auth.visits 3 PINT R :DZ[dz]A["I",dzIN]|5
ins.city 20 FREE L :DZ[dz]A["I",dzIN]|8
ins.city.disp 20 FREE L VAL=IF{@ins.city[@ins.mnemonic];@MIS.INS.DICT.city[@in
VAL=s.mnemonic]}
ins.elig.status 8 CHOICE L :DZ[dz]A["I",dzIN]|12
ins.elig.status.date 8 DATE L :DZ[dz]A["I",dzIN]|13
ins.emp.loc 30 FREE L :DZ[dz]A["I",dzIN]E|2
ins.emp.name 10 FREE L MIS.EMPLR.DICT :DZ[dz]A["I",dzIN]E|1
ins.emp.status 10 FREE L MIS.EMP.STATUS :DZ[dz]A["I",dzIN]E|0
ins.mnemonic 10 FREE L MIS.INS.DICT :DZ[dz]A["I",dzIN]|0
ins.name 30 FREE L :DZ[dz]A["I",dzIN]|2
ins.name.disp 30 FREE L VAL=IF{@ins.name[@ins.mnemonic];@MIS.INS.DICT.name[@in
VAL=s.mnemonic]}
ins.phone 30 PHONE L :DZ[dz]A["I",dzIN]|11
ins.phone.disp 30 PHONE L VAL=IF{@ins.phone[@ins.mnemonic];@MIS.INS.DICT.phone[@
VAL=ins.mnemonic]}
ins.policy.number 30 FREE L :DZ[dz]A["I",dzIN]|1
ins.postal 10 ZIP.POST L :DZ[dz]A["I",dzIN]|10
ins.print.cds 0 FREE L VAL=%ABS.PAT.print.ins.screen(urn,ins.seq.no,"",0)
ins.print.cds.verbatim 0 FREE L VAL=%ABS.PAT.print.ins.screen(urn,ins.seq.no,1,0)
ins.print.queries 8 FREE L VAL=%ABS.PAT.print.ins.screen(urn,ins.seq.no,"",0,1)
ins.state 2 FREE L :DZ[dz]A["I",dzIN]|9
ins.state.disp 2 FREE L VAL=IF{@ins.state[@ins.mnemonic];@MIS.INS.DICT.state[@
VAL=ins.mnemonic]}
ins.street 30 FREE L :DZ[dz]A["I",dzIN]|6
ins.street.disp 30 FREE L VAL=IF{@ins.street[@ins.mnemonic];@MIS.INS.DICT.addres
VAL=s[@ins.mnemonic]}
ins.street2 30 FREE L :DZ[dz]A["I",dzIN]|7
ins.street2.disp 30 FREE L VAL=IF{@ins.street2[@ins.mnemonic];@MIS.INS.DICT.addre
VAL=ss2[@ins.mnemonic]}
ins.treatment.auth.no 18 FREE L :DZ[dz]A["I",dzIN]|3
ins.view.cds 0 FREE L
ins.zip 10 ZIP.POST L :DZ[dz]A["I",dzIN]|10
ins.zip.disp 10 ZIP.POST L VAL=IF{@ins.zip[@ins.mnemonic];@MIS.INS.DICT.zip[@ins.
VAL=mnemonic]}
insurance.benefit.plan 20 FREE L :DZ[dz]A["I",dzIN]N|9
insurance.cov.no 20 FREE L :DZ[dz]A["I",dzIN]N|7
insurance.eff.date 8 DATE L :DZ[dz]A["I",dzIN]N|5
insurance.exp.date 8 DATE L :DZ[dz]A["I",dzIN]N|6
insurance.treat.auth.num 18 FREE L :DZ[dz]A["I",dzIN]N|8
insured.copay 9 MONEY R :DZ[dz]A["I",dzIN]N|11
insured.deductible 9 MONEY R :DZ[dz]A["I",dzIN]N|12
insured.group.name 30 FREE L :DZ[dz]A["I",dzIN]N|4
insured.group.number 15 FREE L :DZ[dz]A["I",dzIN]N|3
insured.master.pol.num 30 FREE L :DZ[dz]A["I",dzIN]N["AD"]|0
insured.name 30 FREE L :DZ[dz]A["I",dzIN]N|0
insured.name.out 30 FREE L VAL=IF{@insured.subscriber^SUB @MRI.SUBSCRIBER.subs.na
VAL=me[SUB];@insured.name}
insured.policy.number 30 FREE L :DZ[dz]A["I",dzIN]N|2
insured.relationship 10 FREE L MIS.RELAT.DICT :DZ[dz]A["I",dzIN]N|1
insured.subscriber 30 URN L MRI.SUBSCRIBER :DZ[dz]A["I",dzIN]N|10
Ì € i 2
abs.pat.ins.authm.data (ins.authm.data)
[urn,ins.seq.no, ins.authm.urn]
:DZ[dz]A["I",dzIN]AU[hha]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ins.authm.urn 10 FREE L hha
ins.authm.arm 1 YN L :DZ[dz]A["I",dzIN]AU[hha]|14
ins.authm.diag.code 7 FREE L :DZ[dz]A["I",dzIN]AU[hha]|1
ins.authm.diag.desc 30 FREE L :DZ[dz]A["I",dzIN]AU[hha]|2
ins.authm.eff.date 8 DATE L :DZ[dz]A["I",dzIN]AU[hha]|7
ins.authm.exp.date 8 DATE L :DZ[dz]A["I",dzIN]AU[hha]|8
ins.authm.ipa.reimb.amt 9 MONEY R :DZ[dz]A["I",dzIN]AU[hha]|10
ins.authm.last.user 10 FREE L MIS.USER :DZ[dz]A["I",dzIN]AU[hha]|12
ins.authm.number 30 FREE L :DZ[dz]A["I",dzIN]AU[hha]|0
ins.authm.process 10 FREE L VAL="AUTH"
ins.authm.process.status 8 CHOICE L :DZ[dz]A["I",dzIN]AU[hha]|5
ins.authm.process.tried.q 1 FREE L :DZ[dz]A["I",dzIN]AU[hha]|11
ins.authm.ref.provider 10 FREE L MIS.DOC.DICT :DZ[dz]A["I",dzIN]AU[hha]|9
ins.authm.ref.type 10 FREE L MIS.REF.TYPE :DZ[dz]A["I",dzIN]AU[hha]|13
ins.authm.status 9 CHOICE L :DZ[dz]A["I",dzIN]AU[hha]|4
ins.authm.status.date 8 DATE L :DZ[dz]A["I",dzIN]AU[hha]|6
ins.authm.status.out 9 FREE L VAL=IF{@ins.authm.status;@ins.authm.process.status}
ins.authm.track.number 10 FREE L :DZ[dz]A["I",dzIN]AU[hha]|15
ins.authm.units 4 PINT R :DZ[dz]A["I",dzIN]AU[hha]|3
Ì € i 2
ABS.PAT.ins.authm.cpt.codes (ins.authm.cpt.codes)
[urn,ins.seq.no,ins.authm.urn, ins.authm.cpt.seq.no]
:DZ[dz]A["I",dzIN]AU[hha]C[aaIAC]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ins.authm.cpt.seq.no 2 PINT R aaIAC
ins.authm.cpt 10 FREE L :DZ[dz]A["I",dzIN]AU[hha]C[aaIAC]|0
ins.authm.cpt.amt 9 MONEY R :DZ[dz]A["I",dzIN]AU[hha]C[aaIAC]|1
ins.authm.cpt.copay 8 MONEY R :DZ[dz]A["I",dzIN]AU[hha]C[aaIAC]|3
ins.authm.cpt.units 3 PINT R :DZ[dz]A["I",dzIN]AU[hha]C[aaIAC]|2
Ì € i 2
abs.pat.ins.custom.def.queries (ins.cd.queries)
[urn,ins.seq.no, ins.cd.query]
: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.map.date 10 PINT R :DZ[dz]A["I",dzIN]CD[ggv]INIT
ins.cd.response 75 QRY.RESP L :DZ[dz]A["I",dzIN]CD[ggv]|0
Ì € i 2
abs.pat.ins.cd.mult.queries (ins.cd.mult.queries)
[urn,ins.seq.no,ins.cd.query, ins.cdm.seq.no]
:DZ[dz]A["I",dzIN]CD[ggv]M[ggvN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ins.cdm.seq.no 3 PINT R ggvN
ins.cdm.response 75 QRY.RESP L :DZ[dz]A["I",dzIN]CD[ggv]M[ggvN]|0
Ì € i 2
abs.pat.insurance.queries (insurance.queries)
[urn,ins.seq.no, ins.query.no]
: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 :DZ[dz]A["I",dzIN]Q[dzINQ]|0
ins.query.response 75 QRY.RESP L :DZ[dz]A["I",dzIN]Q[dzINQ]|1
Ì € i 2
abs.pat.occurrences (occurrences)
[urn, occur.seq.no]
:DZ[dz]A["OC",dzON]
Field Name Len Dat Typ J DPM Offset/Local/VAL
occur.seq.no 1 PINT R dzON
occur.date 8 DATE L :DZ[dz]A["OC",dzON]|1
occur.state 2 FREE L MIS.CAN.PROV :DZ[dz]A["OC",dzON]|3
occur.time 4 HHMM L :DZ[dz]A["OC",dzON]|2
occur.type 10 FREE L :DZ[dz]A["OC",dzON]|0
Ì € i 2
abs.pat.order.dxs (order.dxs)
[urn, order.dx.seq.no]
:DZ[dz]A["OD",dzODN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
order.dx.seq.no 3 PINT R dzODN
order.dx 7 FREE L MIS.DIAG :DZ[dz]A["OD",dzODN]|0
order.dx.name 60 FREE L VAL=IF{@ABS.DIAG.alt.desc.grp.name[@order.dx[order.dx.
VAL=seq.no],@alt.desc.grp];@ABS.DIAG.name[@order.dx[or
VAL=der.dx.seq.no]]}
Ì € i 2
abs.pat.phys.consults (phys.consults)
[urn, consult.seq.no]
: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 :DZ[dz]A["C",dzCN]|0
consult.phys 10 FREE L MIS.DOC.DICT :DZ[dz]A["C",dzCN]|1
consult.svc 10 FREE L MIS.ABS.SVC :DZ[dz]A["C",dzCN]|2
consult.svc.name 30 FREE L VAL=@MIS.ABS.SVC.name[@consult.svc]
Ì € i 2
abs.pat.physicians (physicians)
[urn, phys.seq.no]
:DZ[dz]A["P",dzPN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
phys.seq.no 2 PINT R dzPN
phys.service 10 FREE L MIS.ABS.SVC :DZ[dz]A["P",dzPN]|1
phys.type 10 FREE L MIS.DOC.TYPE :DZ[dz]A["P",dzPN]|2
physician 10 FREE L MIS.DOC.DICT :DZ[dz]A["P",dzPN]|0
Ì € i 2
abs.pat.stillborn.data (stillborn.data)
[urn, stillborn.seq.no]
:DZ[dz]A["SB",dzSBN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
stillborn.seq.no 2 PINT R dzSBN
stillborn.amb.call.num 11 INT R :DZ[dz]A["SB",dzSBN]|17
stillborn.ambulance 1 YN L :DZ[dz]A["SB",dzSBN]|16
stillborn.arrival.mode 10 FREE L MIS.ARRIV.DICT :DZ[dz]A["SB",dzSBN]|18
stillborn.autopsy.code 10 FREE L ABS.CAN.AUTOPSY:DZ[dz]A["SB",dzSBN]|7
stillborn.birth.time 4 HHMM L :DZ[dz]A["SB",dzSBN]|5
stillborn.birthdate 8 BDATE L :DZ[dz]A["SB",dzSBN]|4
stillborn.coroner 1 YN L :DZ[dz]A["SB",dzSBN]|8
stillborn.coroner.me 10 FREE L ABS.CAN.CORONER:DZ[dz]A["SB",dzSBN]|15
stillborn.disch.disp 10 FREE L MIS.DIS.DICT :DZ[dz]A["SB",dzSBN]|14
stillborn.doctor 10 FREE L MIS.DOC.DICT :DZ[dz]A["SB",dzSBN]|11
stillborn.dr.svc 10 FREE L MIS.ABS.SVC :DZ[dz]A["SB",dzSBN]|12
stillborn.entry.code 10 FREE L MIS.CAN.ENTRY :DZ[dz]A["SB",dzSBN]|6
stillborn.race 10 FREE L MIS.RACE.DICT :DZ[dz]A["SB",dzSBN]|13
stillborn.service 10 FREE L MIS.ABS.SVC :DZ[dz]A["SB",dzSBN]|9
stillborn.sex 1 CHOICE L :DZ[dz]A["SB",dzSBN]|3
stillborn.sub.svc 10 FREE L ABS.CAN.SUB.SVC:DZ[dz]A["SB",dzSBN]|10
stillborn.weight.gr 4 PINT R :DZ[dz]A["SB",dzSBN]|2
stillborn.weight.gr.can 4 INT R :DZ[dz]A["SB",dzSBN]|2
stillborn.weight.lbs 2 PINT R :DZ[dz]A["SB",dzSBN]|0
stillborn.weight.ozs 5 DEC2 R :DZ[dz]A["SB",dzSBN]|1
Ì € i 2
abs.pat.stillborn.dxs (stillborn.dxs)
[urn,stillborn.seq.no, stillborn.dx.seq.no]
: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 :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 :DZ[dz]A["SB",dzSBN]DX[dzSDX]|1
stillborn.dx.suf 1 FREE L :DZ[dz]A["SB",dzSBN]DX[dzSDX]|2
stillborn.dx.type 10 FREE L ABS.CAN.DX.TYPE:DZ[dz]A["SB",dzSBN]DX[dzSDX]|3
Ì € i 2
abs.pat.value.codes (value.codes)
[urn, val.seq.no]
:DZ[dz]A["VLC",dzVN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
val.seq.no 3 PINT R dzVN
value.amt 9 MONEY R :DZ[dz]A["VLC",dzVN]|1
value.code 8 FREE L :DZ[dz]A["VLC",dzVN]|0
Ì € i 2
abs.pat.visit.dxs (visit.dxs)
[urn, visit.dx.seq.no]
:DZ[dz]A["VD",dzVDN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
visit.dx.seq.no 3 PINT R dzVDN
visit.dx 7 FREE L MIS.DIAG :DZ[dz]A["VD",dzVDN]|0
visit.dx.error 1 YN L :DZ[dz]A["VD",dzVDN]|1
visit.dx.name 60 FREE L VAL=IF{@ABS.DIAG.alt.desc.grp.name[@visit.dx[visit.dx.
VAL=seq.no],@alt.desc.grp];@ABS.DIAG.name[@visit.dx[vi
VAL=sit.dx.seq.no]]}$40
visit.dx.name.mis 60 FREE L VAL=@MIS.DIAG.name[visit.dx.seq.no]$40
Ì € i 2
abs.pat.adm.rugs (adm.rugs)
[urn, adm.rug.date]
:DZ[dz]RU[dzRUD]
Field Name Len Dat Typ J DPM Offset/Local/VAL
adm.rug.date 8 DATE L dzRUD
adm.rug.days 6 INT R :DZ[dz]RU[dzRUD]|4
adm.rug.end.date 8 DATE L :DZ[dz]RU[dzRUD]|3
adm.rug.mds.urn 30 FREE L NUR.RAI :DZ[dz]RU[dzRUD]|2
adm.rug.medicaid 3 FREE L MIS.RUGS.DICT :DZ[dz]RU[dzRUD]|1
adm.rug.medicare 3 FREE L MIS.RUGS.DICT :DZ[dz]RU[dzRUD]|0
Ì € i 2
abs.pat.canadian.accts (can.accts)
[urn, can.acct.number]
:DZ[dz]CA[dzCA]
Field Name Len Dat Typ J DPM Offset/Local/VAL
can.acct.number 10 FREE L dzCA
Ì € i 2
abs.pat.abs.dates (apc.dates)
[urn, apc.date]
:DZ[dz]D["AC",dzABD]
Field Name Len Dat Typ J DPM Offset/Local/VAL
apc.date 8 DATE L dzABD
apc.bat.age.flag 1 INT R :DZ[dz]D["AC",dzABD]D["E"]|0
apc.bat.inv.disp 1 INT R :DZ[dz]D["AC",dzABD]D["E"]|3
apc.bat.inv.dob 1 INT R :DZ[dz]D["AC",dzABD]D["E"]|2
apc.bat.inv.rvdx 1 INT R :DZ[dz]D["AC",dzABD]D["E"]|4
apc.bat.inv.sex 1 INT R :DZ[dz]D["AC",dzABD]D["E"]|1
apc.bat.inv.tot.chg 1 INT R :DZ[dz]D["AC",dzABD]D["E"]|5
apc.chg.mst.edit 1 YN L :DZ[dz]D["AC",dzABD]|1
apc.claim.disp 1 INT R :DZ[dz]D["AC",dzABD]D|22
apc.coder 10 FREE L MIS.USER :DZ[dz]D["AC",dzABD]D|9
apc.date.batch.date 8 DATE L :DZ[dz]D["AC",dzABD]|4
apc.date.end 8 DATE L :DZ[dz]D["AC",dzABD]|0
apc.date.rcr.group.opt 4 CHOICE L :DZ[dz]D["AC",dzABD]|2
apc.date.regroup 1 YN L :DZ[dz]D["AC",dzABD]|3
apc.financial.class 10 FREE L MIS.FIN.CLASS :DZ[dz]D["AC",dzABD]D|3
apc.last.bar.date 8 DATE L :DZ[dz]D["AC",dzABD]D|18
apc.oth.pat.resp 10 DEC2 R :DZ[dz]D["AC",dzABD]D|21
apc.pay.type 2 INT R :DZ[dz]D["AC",dzABD]D|14
apc.pt.status.com 30 FREE L :DZ[dz]D["AC",dzABD]D|20
apc.source 10 CHOICE L :DZ[dz]D["AC",dzABD]D|8
apc.status 1 CHOICE L :DZ[dz]D["AC",dzABD]D|0
apc.status.code.ov 1 INT R :DZ[dz]D["AC",dzABD]D|16
apc.tot.chrg 10 DEC2 R :DZ[dz]D["AC",dzABD]D|10
apc.tot.copay 9 DEC2 R :DZ[dz]D["AC",dzABD]D|6
apc.tot.cost.wt 11 DEC R :DZ[dz]D["AC",dzABD]D|7
apc.tot.epo.pay 8 DEC2 R :DZ[dz]D["AC",dzABD]D|11
apc.tot.lab.pay 8 DEC2 R :DZ[dz]D["AC",dzABD]D|13
apc.tot.mc.pay 9 DEC2 R :DZ[dz]D["AC",dzABD]D|5
apc.tot.outlier 10 DEC2 R :DZ[dz]D["AC",dzABD]D|17
apc.tot.rehab.pay 8 DEC2 R :DZ[dz]D["AC",dzABD]D|12
apc.tot.reimb 9 DEC2 R :DZ[dz]D["AC",dzABD]D|4
apc.update.date 8 DATE L :DZ[dz]D["AC",dzABD]D|2
apc.version 10 FREE L MIS.APC.VERSION:DZ[dz]D["AC",dzABD]D|1
apc.visit.type 1 INT R :DZ[dz]D["AC",dzABD]D|15
Ì € i 2
abs.pat.apc.cpts (apc.cpts)
[urn,apc.date, apc.cpt.seq.no]
:DZ[dz]D["AC",dzABD]D["C",dzAPN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
apc.cpt.seq.no 3 PINT R dzAPN
apc.cpt 8 FREE L ABS.CPT :DZ[dz]D["AC",dzABD]D["C",dzAPN]|0
apc.cpt.apc 5 FREE L MIS.APC :DZ[dz]D["AC",dzABD]D["C",dzAPN]|1
apc.cpt.billing.type 2 INT R :DZ[dz]D["AC",dzABD]D["C",dzAPN]|4
apc.cpt.date 8 DATE L :DZ[dz]D["AC",dzABD]D["C",dzAPN]|7
apc.cpt.ldr.flag 1 FREE L :DZ[dz]D["AC",dzABD]D["C",dzAPN]|15
apc.cpt.loc 3 FREE L MIS.CPT.LOC :DZ[dz]D["AC",dzABD]D["C",dzAPN]|16
apc.cpt.mod.bill.st.1 1 INT R :DZ[dz]D["AC",dzABD]D["C",dzAPN]|2
apc.cpt.mod.bill.st.2n 2 INT R :DZ[dz]D["AC",dzABD]D["C",dzAPN]|3
apc.cpt.mod.status 5 INT R :DZ[dz]D["AC",dzABD]D["C",dzAPN]|3
apc.cpt.oce 3 FREE L :DZ[dz]D["AC",dzABD]D["C",dzAPN]|12
apc.cpt.paid.units 5 INT R :DZ[dz]D["AC",dzABD]D["C",dzAPN]|17
apc.cpt.pay.adjust.flag 1 FREE L :DZ[dz]D["AC",dzABD]D["C",dzAPN]|14
apc.cpt.pay.ind 2 FREE L :DZ[dz]D["AC",dzABD]D["C",dzAPN]|5
apc.cpt.pk.flag 1 FREE L :DZ[dz]D["AC",dzABD]D["C",dzAPN]|13
apc.cpt.qty 5 INT R :DZ[dz]D["AC",dzABD]D["C",dzAPN]|9
apc.cpt.rev.amount 9 FREE L :DZ[dz]D["AC",dzABD]D["C",dzAPN]|11
apc.cpt.rev.code 5 FREE L :DZ[dz]D["AC",dzABD]D["C",dzAPN]|10
apc.cpt.srv.ind 2 FREE L :DZ[dz]D["AC",dzABD]D["C",dzAPN]|4
apc.cpt.surg 10 FREE L MIS.DOC.DICT :DZ[dz]D["AC",dzABD]D["C",dzAPN]|8
apc.cpt.yn 1 YN L :DZ[dz]D["AC",dzABD]D["C",dzAPN]|6
Ì € i 2
apc.cpt.mods (apc.cpt.mods)
[urn,apc.date,apc.cpt.seq.no, apc.cpt.mod.seq.no]
:DZ[dz]D["AC",dzABD]D["C",dzAPN]M[dzACM]
Field Name Len Dat Typ J DPM Offset/Local/VAL
apc.cpt.mod.seq.no 2 PINT R dzACM
apc.cpt.mod 2 FREE L ABS.CPT.MOD :DZ[dz]D["AC",dzABD]D["C",dzAPN]M[dzACM]|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.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
abs.pat.apcs (apcs)
[urn,apc.date, apc.seq.no]
:DZ[dz]D["AC",dzABD]D["A",dzDAC]
Field Name Len Dat Typ J DPM Offset/Local/VAL
apc.seq.no 3 PINT R dzDAC
apc.ancillary.pack 1 INT R :DZ[dz]D["AC",dzABD]D["A",dzDAC]|20
apc.apc 5 FREE L MIS.APC :DZ[dz]D["AC",dzABD]D["A",dzDAC]|0
apc.apc.cpt 8 FREE L ABS.CPT :DZ[dz]D["AC",dzABD]D["A",dzDAC]|2
apc.bat.cataract.flag 1 INT R :DZ[dz]D["AC",dzABD]D["A",dzDAC]|22
apc.bat.sex.conf 1 INT R :DZ[dz]D["AC",dzABD]D["A",dzDAC]|21
apc.copay 9 DEC2 R :DZ[dz]D["AC",dzABD]D["A",dzDAC]|6
apc.cs.wt 9 DEC R :DZ[dz]D["AC",dzABD]D["A",dzDAC]|3
apc.error.comment 20 FREE L :DZ[dz]D["AC",dzABD]D["A",dzDAC]|25
apc.fee.ind 1 CHOICE L :DZ[dz]D["AC",dzABD]D["A",dzDAC]|15
apc.fee.pay 8 DEC2 R :DZ[dz]D["AC",dzABD]D["A",dzDAC]|16
apc.mc.pay 9 DEC2 R :DZ[dz]D["AC",dzABD]D["A",dzDAC]|5
apc.mdc.old 2 PINT R :DZ[dz]D["AC",dzABD]D["A",dzDAC]|1
apc.mdfactor 4 DEC2 R :DZ[dz]D["AC",dzABD]D["A",dzDAC]|18
apc.mincoins 8 DEC2 R :DZ[dz]D["AC",dzABD]D["A",dzDAC]|14
apc.mod.edit 5 INT R :DZ[dz]D["AC",dzABD]D["A",dzDAC]|10
apc.mod.status 5 INT R :DZ[dz]D["AC",dzABD]D["A",dzDAC]|10
apc.natcoins 8 DEC2 R :DZ[dz]D["AC",dzABD]D["A",dzDAC]|12
apc.ncci 1 INT R :DZ[dz]D["AC",dzABD]D["A",dzDAC]|9
apc.outlier 10 DEC2 R :DZ[dz]D["AC",dzABD]D["A",dzDAC]|26
apc.papcwt 9 DEC R :DZ[dz]D["AC",dzABD]D["A",dzDAC]|3
apc.pay.status 2 FREE L :DZ[dz]D["AC",dzABD]D["A",dzDAC]|19
apc.pct 8 DEC2 R :DZ[dz]D["AC",dzABD]D["A",dzDAC]|4
apc.reimb.type.com 5 FREE L :DZ[dz]D["AC",dzABD]D["A",dzDAC]|24
apc.renumber 3 PINT R :DZ[dz]D["AC",dzABD]D["A",dzDAC]|7
apc.spfactor 4 DEC2 R :DZ[dz]D["AC",dzABD]D["A",dzDAC]|17
apc.tot.pay 9 DEC2 R :DZ[dz]D["AC",dzABD]D["A",dzDAC]|11
apc.type 2 FREE L :DZ[dz]D["AC",dzABD]D["A",dzDAC]|8
apc.ucoins 8 DEC2 R :DZ[dz]D["AC",dzABD]D["A",dzDAC]|13
apc.yes.no 1 YN L :DZ[dz]D["AC",dzABD]D["A",dzDAC]|7
Ì € i 2
abs.pat.apc.mods (apc.mods)
[urn,apc.date,apc.seq.no, apc.mod.seq.no]
:DZ[dz]D["AC",dzABD]D["A",dzDAC]M[dzAMM]
Field Name Len Dat Typ J DPM Offset/Local/VAL
apc.mod.seq.no 2 PINT R dzAMM
apc.mod 2 FREE L ABS.CPT.MOD :DZ[dz]D["AC",dzABD]D["A",dzDAC]M[dzAMM]|0
Ì € i 2
abs.pat.apg.cpts (apg.cpts)
[urn, apg.cpt.seq.no]
:DZ[dz]D["AP"]CP[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 :DZ[dz]D["AP"]CP[dzACN]|0
apg.cpt.alt.code.type 4 FREE L :DZ[dz]D["AP"]CP[dzACN]|5
apg.cpt.apg 3 FREE L ABS.APG :DZ[dz]D["AP"]CP[dzACN]|2
apg.cpt.apg.mod 1 CHOICE L :DZ[dz]D["AP"]CP[dzACN]|3
apg.cpt.cat.ov 3 FREE L :DZ[dz]D["AP"]CP[dzACN]|4
apg.cpt.typ.ov 3 FREE L :DZ[dz]D["AP"]CP[dzACN]|25
apg.cpt.yn 1 YN L :DZ[dz]D["AP"]CP[dzACN]|6
apg.packaging 3 FREE L :DZ[dz]D["AP"]CP[dzACN]|26
Ì € i 2
abs.pat.apg.cpt.mods (apg.cpt.mods)
[urn,apg.cpt.seq.no, apg.cpt.mod.no]
:DZ[dz]D["AP"]CP[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 :DZ[dz]D["AP"]CP[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
abs.pat.apg (apgs)
[urn, apg.seq.no]
:DZ[dz]D["AP"]A[dzDAP]
Field Name Len Dat Typ J DPM Offset/Local/VAL
apg.seq.no 3 PINT R dzDAP
apc 2 PINT R ABS.APC :DZ[dz]D["AP"]A[dzDAP]|1
apg 3 FREE L ABS.APG :DZ[dz]D["AP"]A[dzDAP]|0
apg.cs.wt 10 DEC R :DZ[dz]D["AP"]A[dzDAP]|3
apg.mdc 2 PINT R ABS.APC :DZ[dz]D["AP"]A[dzDAP]|1
apg.name.40 40 FREE L VAL=(@ABS.APG.name[@apg]$40)
apg.pct 6 DEC2 R :DZ[dz]D["AP"]A[dzDAP]|4
apg.renumber 3 PINT R :DZ[dz]D["AP"]A[dzDAP]|6
apg.summary.reimb.yn 1 YN L :DZ[dz]D["AP"]A[dzDAP]|7
apg.t 2 PINT R :DZ[dz]D["AP"]A[dzDAP]|5
apg.type 1 CHOICE L :DZ[dz]D["AP"]A[dzDAP]|2
Ì € i 2
abs.pat.cpt.chgs (cpt.chgs)
[urn, cpt.chgs.seq.no]
:DZ[dz]D["CC",dzCCP]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cpt.chgs.seq.no 3 PINT R dzCCP
cpt.alt.amount 9 FREE L :DZ[dz]D["CC",dzCCP]|8
cpt.alt.bill.proc 10 FREE L :DZ[dz]D["CC",dzCCP]|3
cpt.alt.code 8 FREE L ABS.CPT :DZ[dz]D["CC",dzCCP]|0
cpt.alt.code.mod.yn 1 YN L :DZ[dz]D["CC",dzCCP]|5
cpt.alt.code.type 12 FREE L :DZ[dz]D["CC",dzCCP]|1
cpt.alt.date 8 DATE L :DZ[dz]D["CC",dzCCP]|2
cpt.alt.description 30 FREE L :DZ[dz]D["CC",dzCCP]|4
cpt.alt.no.grp 2 FREE L :DZ[dz]D["CC",dzCCP]|9
cpt.alt.qty 5 INT R :DZ[dz]D["CC",dzCCP]|6
cpt.alt.rev.code 5 FREE L :DZ[dz]D["CC",dzCCP]|7
Ì € i 2
abs.pat.cpt.chg.mods (cpt.chg.mods)
[urn,cpt.chgs.seq.no, cpt.alt.code.mod.no]
: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 :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
abs.pat.rev.codes (rev.codes)
[urn, rev.code,rev.date]
:DZ[dz]D["V",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 :DZ[dz]D["V",dzRV,dzRVD]|1
rev.qty 5 INT R :DZ[dz]D["V",dzRV,dzRVD]|0
rev.surg.flag 1 FREE L :DZ[dz]D["V",dzRV,dzRVD]|2
Ì € i 2
abs.pat.cpt.codes (cpt.codes)
[urn, cpt.seq.no]
: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 :DZ[dz]D["CPT",dzCPN]|5
cpt.apg.mod 1 FREE L :DZ[dz]D["CPT",dzCPN]|3
cpt.cat.ov 2 FREE L :DZ[dz]D["CPT",dzCPN]|4
cpt.code 8 FREE L ABS.CPT :DZ[dz]D["CPT",dzCPN]|0
cpt.code.apg 3 FREE L ABS.APG :DZ[dz]D["CPT",dzCPN]|2
cpt.code.date 8 DATE L :DZ[dz]D["CPT",dzCPN]|7
cpt.code.loc 3 FREE L MIS.CPT.LOC :DZ[dz]D["CPT",dzCPN]|10
cpt.code.qty 5 INT R :DZ[dz]D["CPT",dzCPN]|9
cpt.code.surg 10 FREE L MIS.DOC.DICT :DZ[dz]D["CPT",dzCPN]|8
cpt.mod.yn 1 YN L :DZ[dz]D["CPT",dzCPN]|6
cpt.rev.code 4 FREE L :DZ[dz]D["CPT",dzCPN]|11
cpt.seq.reorder.no 2 PINT R :DZ[dz]D["CPT",dzCPN]|1
Ì € i 2
abs.pat.cpt.code.modifiers (cpt.code.mods)
[urn,cpt.seq.no, cpt.mod.no]
: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 :DZ[dz]D["CPT",dzCPN]M[dzCPM]|0
cpt.mod.exists 1 YN L VAL=IF{@cpt.mod[1] "Y"}
Ì € i 2
abs.pat.drg.bill.procs (drg.bill.procs)
[urn, drg.bill.proc.seq.no]
: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 :DZ[dz]D["OP",dzDOP]|2
drg.bill.oper 2 PINT R :DZ[dz]D["OP",dzDOP]|0
drg.bill.proc 2 PINT R :DZ[dz]D["OP",dzDOP]|1
Ì € i 2
abs.pat.drg.other.dxs (drg.other.dxs)
[urn, other.dx.seq.no]
: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 :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 :DZ[dz]D["OTH"]DX[dzODX]|2
other.dx.renumber 2 PINT R :DZ[dz]D["OTH"]DX[dzODX]|1
other.dx.suf 1 FREE L :DZ[dz]D["OTH"]DX[dzODX]|3
other.dx.type 10 FREE L ABS.CAN.DX.TYPE:DZ[dz]D["OTH"]DX[dzODX]|4
Ì € i 2
abs.pat.drg.other.procs (drg.other.procs)
[urn, other.proc.seq.no]
: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 7 FREE L ABS.PROC :DZ[dz]D["OTH"]P[dzOTP]|0
other.proc.cci 15 FREE L :DZ[dz]D["OTH"]P[dzOTP]|0
other.proc.date 8 DATE L :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.renumber 2 PINT R :DZ[dz]D["OTH"]P[dzOTP]|4
other.proc.surg 10 FREE L MIS.DOC.DICT :DZ[dz]D["OTH"]P[dzOTP]|2
other.proc.surg.svc 10 FREE L MIS.ABS.SVC :DZ[dz]D["OTH"]P[dzOTP]|3
Ì € i 2
abs.pat.drg.ov.cpts (drg.ov.cpts)
[urn, drg.ov.cpt.seq.no]
:DZ[dz]D["VC",dzDVC]
Field Name Len Dat Typ J DPM Offset/Local/VAL
drg.ov.cpt.seq.no 3 PINT R dzDVC
drg.ov.cpt 8 FREE L ABS.CPT :DZ[dz]D["VC",dzDVC]|0
drg.ov.cpt.alt.code.type 12 FREE L :DZ[dz]D["VC",dzDVC]|5
drg.ov.cpt.apg 3 FREE L ABS.APG :DZ[dz]D["VC",dzDVC]|2
drg.ov.cpt.apg.mod 1 CHOICE L :DZ[dz]D["VC",dzDVC]|3
drg.ov.cpt.cat.ov 2 FREE L :DZ[dz]D["VC",dzDVC]|4
drg.ov.cpt.yn 1 YN L :DZ[dz]D["VC",dzDVC]|6
Ì € i 2
abs.pat.drg.ov.cpt.mods (drg.ov.cpt.mods)
[urn,drg.ov.cpt.seq.no, drg.ov.cpt.mod.no]
: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 :DZ[dz]D["VC",dzDVC]M[dzCPM]|0
drg.ov.cpt.mod.exists 1 YN L VAL=IF{@drg.ov.cpt.mod[1] "Y"}
Ì € i 2
abs.pat.drg.ov.procs (drg.ov.procs)
[urn, drg.ov.proc.seq.no]
: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 7 FREE L ABS.PROC :DZ[dz]D["VP",dzDVP]|0
drg.ov.proc.anesth 10 FREE L ABS.ANESTHESIA :DZ[dz]D["VP",dzDVP]|14
drg.ov.proc.cci 15 FREE L :DZ[dz]D["VP",dzDVP]|0
drg.ov.proc.date 8 DATE L :DZ[dz]D["VP",dzDVP]|6
drg.ov.proc.ext 2 FREE L :DZ[dz]D["VP",dzDVP]|17
drg.ov.proc.loc 2 FREE L :DZ[dz]D["VP",dzDVP]|16
drg.ov.proc.major.proc 1 CHOICE L :DZ[dz]D["VP",dzDVP]|3
drg.ov.proc.mult.used 1 PINT R :DZ[dz]D["VP",dzDVP]|1
drg.ov.proc.no 2 PINT R :DZ[dz]D["VP",dzDVP]|9
drg.ov.proc.op.no 2 PINT R :DZ[dz]D["VP",dzDVP]|8
drg.ov.proc.opscrn.line 3 PINT R :DZ[dz]D["VP",dzDVP]|10
drg.ov.proc.or.proc 1 CHOICE L :DZ[dz]D["VP",dzDVP]|2
drg.ov.proc.other.inst 10 FREE L MIS.CAN.INST :DZ[dz]D["VP",dzDVP]|20
drg.ov.proc.ov.episode 2 PINT R :DZ[dz]D["VP",dzDVP]|19
drg.ov.proc.renumber 2 PINT R :DZ[dz]D["VP",dzDVP]|5
drg.ov.proc.st 2 FREE L :DZ[dz]D["VP",dzDVP]|18
drg.ov.proc.suf 1 FREE L :DZ[dz]D["VP",dzDVP]|4
drg.ov.proc.surg 10 FREE L MIS.DOC.DICT :DZ[dz]D["VP",dzDVP]|7
drg.ov.proc.surg.svc 10 FREE L MIS.ABS.SVC :DZ[dz]D["VP",dzDVP]|12
drg.ov.proc.tissue 10 FREE L ABS.TIS.DESC :DZ[dz]D["VP",dzDVP]|13
Ì € i 2
abs.pat.drg.procs (drg.procs)
[urn, drg.proc.seq.no]
: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 7 FREE L ABS.PROC :DZ[dz]D["P",dzDGP]|0
drg.proc.cci 15 FREE L :DZ[dz]D["P",dzDGP]|0
drg.proc.ext 2 FREE L :DZ[dz]D["P",dzDGP]|11
drg.proc.hmri.form.line 3 PINT R :DZ[dz]D["P",dzDGP]|8
drg.proc.loc 2 FREE L :DZ[dz]D["P",dzDGP]|10
drg.proc.major.proc 1 CHOICE L :DZ[dz]D["P",dzDGP]|3
drg.proc.mult.entries 2 PINT R :DZ[dz]D["P",dzDGP]|1
drg.proc.mult.used 1 FREE L VAL=%ABS.PAT.drg.grp.mult.proc(drg.proc,@ABS.PAT.dx[ur
VAL=n,1],@ABS.PAT.drg.with.all.procedures)
drg.proc.oper.proc.seq 15 FREE L :DZ[dz]D["P",dzDGP]|4
drg.proc.opscrn.line 3 PINT R :DZ[dz]D["P",dzDGP]|7
drg.proc.or.proc 1 CHOICE L :DZ[dz]D["P",dzDGP]|2
drg.proc.renumber 2 PINT R :DZ[dz]D["P",dzDGP]|5
drg.proc.st 2 FREE L :DZ[dz]D["P",dzDGP]|12
drg.proc.suf 1 FREE L :DZ[dz]D["P",dzDGP]|6
drg.proc.tape.seq.no 2 INT R :DZ[dz]D["P",dzDGP]|9
Ì € i 2
abs.pat.dxs (dxs)
[urn, dx.seq.no]
: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 :DZ[dz]D["DX",dzDXN]|0
dx.alt.name 60 FREE L :DZ[dz]D["DX",dzDXN]|6
dx.comp.comorb 1 CHOICE L :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 :DZ[dz]D["DX",dzDXN]|3
dx.present.at.adm 1 CHOICE L :DZ[dz]D["DX",dzDXN]|8
dx.present.label 3 FREE L
dx.prin.batch 1 YN L :DZ[dz]D["DX",dzDXN]|7
dx.renumber 2 PINT R :DZ[dz]D["DX",dzDXN]|2
dx.suf 1 FREE L :DZ[dz]D["DX",dzDXN]|4
dx.type 10 FREE L ABS.CAN.DX.TYPE:DZ[dz]D["DX",dzDXN]|5
Ì € i 2
abs.pat.operations (operations)
[urn, oper.seq.no]
: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 :DZ[dz]D["O",dzO]|0
oper.ov.add 1 YN L :DZ[dz]D["O",dzO]|3
oper.pre.op.eval 1 YN L :DZ[dz]D["O",dzO]|2
oper.within.6.hrs.adm 1 YN L :DZ[dz]D["O",dzO]|1
Ì € i 2
abs.pat.hmri.form (hmri.form)
[urn,oper.seq.no, hmri.form.line]
: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 :DZ[dz]D["O",dzO]H[dzOHL]|11
hmri.form.anaes.dr 10 FREE L MIS.DOC.DICT :DZ[dz]D["O",dzO]H[dzOHL]|7
hmri.form.anaes.tech 10 FREE L ABS.ANESTHESIA :DZ[dz]D["O",dzO]H[dzOHL]|8
hmri.form.dr 10 FREE L MIS.DOC.DICT :DZ[dz]D["O",dzO]H[dzOHL]|2
hmri.form.dr.asst 10 FREE L MIS.DOC.DICT :DZ[dz]D["O",dzO]H[dzOHL]|12
hmri.form.dr.svc 10 FREE L MIS.ABS.SVC :DZ[dz]D["O",dzO]H[dzOHL]|3
hmri.form.drg.proc.no 2 PINT R :DZ[dz]D["O",dzO]H[dzOHL]|10
hmri.form.ooh.ind 1 YN L :DZ[dz]D["O",dzO]H[dzOHL]|19
hmri.form.or 10 FREE L ABS.CAN.OR :DZ[dz]D["O",dzO]H[dzOHL]|6
hmri.form.other.inst 10 FREE L MIS.CAN.INST :DZ[dz]D["O",dzO]H[dzOHL]|9
hmri.form.proc 7 FREE L ABS.PROC :DZ[dz]D["O",dzO]H[dzOHL]|0
hmri.form.proc.cci 15 FREE L :DZ[dz]D["O",dzO]H[dzOHL]|0
hmri.form.proc.ext 2 FREE L :DZ[dz]D["O",dzO]H[dzOHL]|17
hmri.form.proc.loc 2 FREE L :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 2 FREE L :DZ[dz]D["O",dzO]H[dzOHL]|18
hmri.form.proc.suf 1 FREE L :DZ[dz]D["O",dzO]H[dzOHL]|1
hmri.form.time 3 PINT R :DZ[dz]D["O",dzO]H[dzOHL]|5
hmri.form.time.begin 4 HHMM L :DZ[dz]D["O",dzO]H[dzOHL]|13
hmri.form.time.cci 4 PINT R :DZ[dz]D["O",dzO]H[dzOHL]|5
hmri.form.time.end 4 HHMM L :DZ[dz]D["O",dzO]H[dzOHL]|14
hmri.form.tissue 10 FREE L ABS.TIS.DESC :DZ[dz]D["O",dzO]H[dzOHL]|4
hmri.form.unplanned 1 YN L :DZ[dz]D["O",dzO]H[dzOHL]|15
Ì € i 2
abs.pat.oper.anesth.drs (oper.anesth.drs)
[urn,oper.seq.no, oper.anesth.dr.seq.no]
: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.DICT :DZ[dz]D["O",dzO]AD[dzOAD]|0
oper.anesth.dr.name 30 FREE L VAL=@MIS.DOC.DICT.name[@oper.anesth.dr]
Ì € i 2
abs.pat.oper.anesthesias (oper.anesthesias)
[urn,oper.seq.no, oper.anesthesia.seq.no]
: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 :DZ[dz]D["O",dzO]AN[dzOAN]|0
oper.anesthesia.name 30 FREE L VAL=@ABS.ANESTHESIA.name[@oper.anesthesia]
Ì € i 2
abs.pat.oper.cpts (oper.cpts)
[urn,oper.seq.no, oper.cpt.seq.no]
: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 :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 :DZ[dz]D["O",dzO]C[dzOC]|3
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.renumber 2 PINT R :DZ[dz]D["O",dzO]C[dzOC]|1
oper.cpt.rev.code 4 FREE L :DZ[dz]D["O",dzO]C[dzOC]|4
oper.cpt.yn 1 YN L :DZ[dz]D["O",dzO]C[dzOC]|2
Ì € i 2
abs.pat.oper.cpt.mods (oper.cpt.mods)
[urn,oper.seq.no,oper.cpt.seq.no, oper.cpt.mod.no]
: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 :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
abs.pat.oper.procs (oper.procs)
[urn,oper.seq.no, oper.proc.seq.no]
: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 7 FREE L ABS.PROC :DZ[dz]D["O",dzO]P[dzOP]|0
oper.proc.alt.name 60 FREE L :DZ[dz]D["O",dzO]P[dzOP]|5
oper.proc.anesthesia 10 FREE L ABS.ANESTHESIA :DZ[dz]D["O",dzO]P[dzOP]|9
oper.proc.cci 15 FREE L :DZ[dz]D["O",dzO]P[dzOP]|0
oper.proc.drg.bill.proc 2 PINT R :DZ[dz]D["O",dzO]P[dzOP]|3
oper.proc.drg.proc.seq.no 2 PINT R :DZ[dz]D["O",dzO]P[dzOP]|2
oper.proc.ext 2 FREE L :DZ[dz]D["O",dzO]P[dzOP]|7
oper.proc.loc 2 FREE L :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.renumber 2 PINT R :DZ[dz]D["O",dzO]P[dzOP]|1
oper.proc.st 2 FREE L :DZ[dz]D["O",dzO]P[dzOP]|8
oper.proc.suf 1 FREE L :DZ[dz]D["O",dzO]P[dzOP]|4
Ì € i 2
abs.pat.oper.surg.assts (oper.surg.assts)
[urn,oper.seq.no, oper.surg.asst.seq.no]
: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.DICT :DZ[dz]D["O",dzO]SA[dzOSA]|0
oper.surg.asst.name 30 FREE L VAL=@MIS.DOC.DICT.name[@oper.surg.asst]
Ì € i 2
abs.pat.oper.surgeons (oper.surgeons)
[urn,oper.seq.no, oper.surgeon.seq.no]
: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.DICT :DZ[dz]D["O",dzO]S[dzOS]|0
oper.surgeon.name 30 FREE L VAL=@MIS.DOC.DICT.name[@oper.surgeon]
Ì € i 2
abs.pat.oper.tissues (oper.tissues)
[urn,oper.seq.no, oper.tissue.seq.no]
: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 :DZ[dz]D["O",dzO]T[dzOT]|0
oper.tissue.name 30 FREE L VAL=@ABS.TIS.DESC.name[@oper.tissue]
Ì € i 2
abs.pat.ov.opscrns (ov.opscrns)
[urn, ov.opscrn.line]
: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 :DZ[dz]D["OV",dzOVL]|16
ov.opscrn.anesth.dr 10 FREE L MIS.DOC.DICT :DZ[dz]D["OV",dzOVL]|6
ov.opscrn.anesthesia 10 FREE L ABS.ANESTHESIA :DZ[dz]D["OV",dzOVL]|7
ov.opscrn.cpt 8 FREE L ABS.CPT :DZ[dz]D["OV",dzOVL]|17
ov.opscrn.cpt.loc 3 FREE L MIS.CPT.LOC :DZ[dz]D["OV",dzOVL]|27
ov.opscrn.cpt.name 50 FREE L VAL=(@ABS.CPT.name[@ov.opscrn.cpt]$50)
ov.opscrn.cpt.rev 4 FREE L :DZ[dz]D["OV",dzOVL]|28
ov.opscrn.date 8 DATE L :DZ[dz]D["OV",dzOVL]|1
ov.opscrn.dr 10 FREE L MIS.DOC.DICT :DZ[dz]D["OV",dzOVL]|3
ov.opscrn.dr.asst 10 FREE L MIS.DOC.DICT :DZ[dz]D["OV",dzOVL]|18
ov.opscrn.dr.svc 10 FREE L MIS.ABS.SVC :DZ[dz]D["OV",dzOVL]|4
ov.opscrn.drg.oper.no 2 PINT R :DZ[dz]D["OV",dzOVL]|14
ov.opscrn.drg.proc.no 2 PINT R :DZ[dz]D["OV",dzOVL]|15
ov.opscrn.ooh.ind 1 YN L :DZ[dz]D["OV",dzOVL]|26
ov.opscrn.op.seq.no 2 PINT R :DZ[dz]D["OV",dzOVL]|0
ov.opscrn.or 10 FREE L ABS.CAN.OR :DZ[dz]D["OV",dzOVL]|12
ov.opscrn.other.inst 10 FREE L MIS.CAN.INST :DZ[dz]D["OV",dzOVL]|13
ov.opscrn.ov.flag 1 YN L :DZ[dz]D["OV",dzOVL]|9
ov.opscrn.proc 7 FREE L ABS.PROC :DZ[dz]D["OV",dzOVL]|2
ov.opscrn.proc.cci 15 FREE L :DZ[dz]D["OV",dzOVL]|2
ov.opscrn.proc.ext 2 FREE L :DZ[dz]D["OV",dzOVL]|24
ov.opscrn.proc.loc 2 FREE L :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 2 FREE L :DZ[dz]D["OV",dzOVL]|25
ov.opscrn.proc.suf 1 FREE L :DZ[dz]D["OV",dzOVL]|10
ov.opscrn.renumber 2 PINT R :DZ[dz]D["OV",dzOVL]|8
ov.opscrn.time 3 PINT R :DZ[dz]D["OV",dzOVL]|11
ov.opscrn.time.begin 4 HHMM L :DZ[dz]D["OV",dzOVL]|19
ov.opscrn.time.cci 4 PINT R :DZ[dz]D["OV",dzOVL]|11
ov.opscrn.time.end 4 HHMM L :DZ[dz]D["OV",dzOVL]|20
ov.opscrn.tissue 10 FREE L ABS.TIS.DESC :DZ[dz]D["OV",dzOVL]|5
ov.opscrn.unplanned 1 YN L :DZ[dz]D["OV",dzOVL]|22
ov.opscrn.yn 1 YN L :DZ[dz]D["OV",dzOVL]|21
Ì € i 2
abs.pat.ov.opscrns.cpt.mods (ov.opscrns.cpt.mods)
[urn,ov.opscrn.line, ov.opscrn.cpt.mod.no]
: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 :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
reason.for.visit.dxs (reason.for.visit.dxs)
[urn, rfv.dx.seq.no]
:DZ[dz]D["RVDX",dzRVN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
rfv.dx.seq.no 3 PINT R dzRVN
rfv.dx 7 FREE L ABS.DIAG :DZ[dz]D["RVDX",dzRVN]|0
rfv.dx.alt.name 60 FREE L :DZ[dz]D["RVDX",dzRVN]|2
rfv.dx.name 50 FREE L :DZ[dz]D["RVDX",dzRVN]|1
rfv.name.alt.or.std.rpt 60 FREE L VAL=IF{@rfv.dx.alt.name;@ABS.DIAG.alt.desc.grp.name[@d
VAL=rg.grouper.version,@rfv.dx,@alt.desc.grp];@ABS.DIA
VAL=G.name[@drg.grouper.version,@rfv.dx]}
Ì € i 2
abs.pat.rev.codes (rev.codes)
[urn, rev.code,rev.date]
:DZ[dz]D["V",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 :DZ[dz]D["V",dzRV,dzRVD]|1
rev.qty 5 INT R :DZ[dz]D["V",dzRV,dzRVD]|0
rev.surg.flag 1 FREE L :DZ[dz]D["V",dzRV,dzRVD]|2
Ì € i 2
abs.pat.es.form.data (es.form.data)
[urn, form,form.urn]
: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
es.alt.signature 10 FREE L MIS.DOC.DICT :DZ[dz]EF[dji,dzEFQ]|12
es.archived.date 8 DATE L :DZ[dz]EF[dji,dzEFQ]|14
es.confid.data 1 YN L :DZ[dz]EF[dji,dzEFQ]|17
es.create.date 8 DATE L :DZ[dz]EF[dji,dzEFQ]|3
es.field.value 30 FREE L :DZ[dz]EF[dji,dzEFQ]|19
es.filed.date 8 DATE L :DZ[dz]EF[dji,dzEFQ]|6
es.last.mrec.print.date 8 DATE L :DZ[dz]EF[dji,dzEFQ]|5
es.mis.mr.form 15 FREE L MIS.MR.FORM :DZ[dz]EF[dji,dzEFQ]|18
es.od.in.process.date 8 DATE L :DZ[dz]EF[dji,dzEFQ]|15
es.od.urn 8 PINT R :DZ[dz]EF[dji,dzEFQ]|7
es.phys.name 30 FREE L :DZ[dz]EF[dji,dzEFQ]|20
es.physician 10 FREE L MIS.DOC.DICT :DZ[dz]EF[dji,dzEFQ]|2
es.purged.date 8 DATE L :DZ[dz]EF[dji,dzEFQ]|13
es.saved.date 8 DATE L :DZ[dz]EF[dji,dzEFQ]|3
es.signed.date 8 DATE L :DZ[dz]EF[dji,dzEFQ]|4
es.status 9 CHOICE L :DZ[dz]EF[dji,dzEFQ]|0
es.status.date 10 PINT R :DZ[dz]EF[dji,dzEFQ]|1
es.status.date.out 8 DATE L VAL=%Z.date.clin.to.npr(@es.status.date)
es.status.time.out 8 FREE L VAL=%Z.time.text(@es.status.date)
es.void.date 8 DATE L :DZ[dz]EF[dji,dzEFQ]|9
es.void.old.status 9 FREE L :DZ[dz]EF[dji,dzEFQ]|16
es.void.reason 40 FREE L :DZ[dz]EF[dji,dzEFQ]|11
es.void.user 10 FREE L MIS.USER :DZ[dz]EF[dji,dzEFQ]|10
Ì € i 2
abs.pat.form.text.lines (es.text.lines)
[urn,form,form.urn,es.line.no, es.line.no]
: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 :DZ[dz]EF[dji,dzEFQ]T[dzESL]
Ì € i 2
abs.pat.charges.by.categ (charges.by.categ)
[urn, charge.category]
: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.qty 3 PINT R :DZ[dz]F["C",dag]|1
charge.category.total 10 MONEY R :DZ[dz]F["C",dag]|0
Ì € i 2
abs.pat.insurance.ledger (ins.ledger)
[urn, ins]
:DZ[dz]F["I",ggm]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ins 10 FREE L MIS.INS.DICT ggm
ins.adj 10 MONEY R :DZ[dz]F["I",ggm]|1
ins.balance 10 MONEY R :DZ[dz]F["I",ggm]|0
ins.exp.reimb 10 MONEY R :DZ[dz]F["I",ggm]|3
ins.rec 10 MONEY R :DZ[dz]F["I",ggm]|2
| | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | |