Ì 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
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.can.corrections.queue (can.corrections.queue)
[can.corr.fiscal.yr,can.corr.rec.type,can.corr.urn,can.corr.sb.seq.no]
?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 ?DZCQ[dcFY,dcRT,dz,dzSBN]|3
can.corr.batch.num 2 PINT R ?DZCQ[dcFY,dcRT,dz,dzSBN]|2
can.corr.chart.num 10 FREE L ?DZCQ[dcFY,dcRT,dz,dzSBN]|4
can.corr.inst 5 PINT R ?DZCQ[dcFY,dcRT,dz,dzSBN]|0
can.corr.per 2 PINT R ?DZCQ[dcFY,dcRT,dz,dzSBN]|1
Ì 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.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 :DZ[dz]A["CN"]|8
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.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.mode 10 FREE L MIS.ARRIV.DICT :DZ[dz]A|8
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
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]
cmg 3 FREE L ABS.DRG :DZ[dz]D|0
cmg.adm 3 FREE L ABS.DRG :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 :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.inst.acute 1 YN L :DZ[dz]D|39
cmg.intermediate 3 FREE L ABS.DRG :DZ[dz]D|8
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.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.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.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.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
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 2 PINT R 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.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})
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 10 NHS.NUM 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.admission.abs.tape.code[@p.institut
VAL=ion.from,MIS.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.discharge.abs.tape.code[@p.institut
VAL=ion.to,MIS.ABS.TAPE.mnemonic])
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)!0;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)!0;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)!0;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 2 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 2 PINT 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 2 PINT R 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 2 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
old.health.care.number 14 FREE L :DZ[dz]A["CN"]|30
on.fin.bat.queue.date 8 DATE L VAL=%Z.date.clin.to.npr(@ov.final.x)
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
peak.temp 6 DEC2 R :DZ[dz]PAS|10
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
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
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
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.level 10 FREE L MIS.CAN.TRIAGE :DZ[dz]A["CN"]|22
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.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.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
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
zcus.abs.status 10 FREE L :DZ[dz]A["ZCUSOUK"]|5
zcus.accident.24.hours 1 YN L :DZ[dz]A["ZCUSCNA"]|4
zcus.accident.comment 50 FREE L :DZ[dz]A["ZCUSCNF"]|1
zcus.accident.date 8 DATE L :DZ[dz]A["ZCUSCNA"]|6
zcus.accident.description 30 FREE L :DZ[dz]A["ZCUSCNA"]|3
zcus.accident.nature.inj 30 FREE L :DZ[dz]A["ZCUSCNA"]|2
zcus.accident.orig.treat 50 FREE L :DZ[dz]A["ZCUSCNF"]|0
zcus.accident.place 10 FREE L MIS.ZCUS.IN.LOC:DZ[dz]A["ZCUSCNA"]|0
zcus.accident.police.invl 1 YN L :DZ[dz]A["ZCUSCNA"]|1
zcus.accident.time 4 HHMM L :DZ[dz]A["ZCUSCNA"]|7
zcus.accident.type 10 FREE L MIS.ACCID.TYPE :DZ[dz]A["ZCUSCNA"]|5
zcus.admit.doctor 10 FREE L MIS.DOC.DICT :DZ[dz]A["ZCUSUK"]|2
zcus.blood.pressure 25 FREE L :DZ[dz]A["ZCUSTRJ"]|2
zcus.chronic.sick.disable 1 YN L :DZ[dz]A["ZCUSDUK"]|7
zcus.cm.problem 10 FREE L MIS.ZCUS.PROB :DZ[dz]A["ZCUSCM"]|0
zcus.cm.profile 10 FREE L MIS.ZCUS.CARE :DZ[dz]A["ZCUSCM"]|2
zcus.cm.treatment 10 FREE L MIS.ZCUS.TREAT :DZ[dz]A["ZCUSCM"]|1
zcus.cost.fixed.total 9 MONEY R :DZ[dz]F["ZCUS.C"]|1
zcus.cost.non.staff.total 9 MONEY R :DZ[dz]F["ZCUS.C"]|4
zcus.cost.overhead.total 9 MONEY R :DZ[dz]F["ZCUS.C"]|5
zcus.cost.staff.total 9 MONEY R :DZ[dz]F["ZCUS.C"]|3
zcus.cost.total 9 MONEY R :DZ[dz]F["ZCUS.C"]|0
zcus.cost.variable.total 9 MONEY R :DZ[dz]F["ZCUS.C"]|2
zcus.disch.destination 10 FREE L MIS.CAN.INST :DZ[dz]A["ZCUSOUK"]|2
zcus.do.not.use.4 0 FREE L :DZ[dz]A["ZCUSDUK"]|4
zcus.do.not.use.7 10 FREE L :DZ[dz]A["ZCUSOUK"]|7
zcus.driver.city 20 FREE L :DZ[dz]A["ZCUS.DR"]|2
zcus.driver.district 10 FREE L MIS.CNTY.DICT :DZ[dz]A["ZCUS.DR"]|6
zcus.driver.home.phone 18 FREE L :DZ[dz]A["ZCUS.DR"]|5
zcus.driver.postal.code 10 ZIP.POST L MIS.ZIP :DZ[dz]A["ZCUS.DR"]|4
zcus.driver.province 30 FREE L :DZ[dz]A["ZCUS.DR"]|3
zcus.driver.state 20 FREE L :DZ[dz]A["ZCUS.DR"]|3
zcus.driver.street 30 FREE L :DZ[dz]A["ZCUS.DR"]|0
zcus.driver.street2 30 FREE L :DZ[dz]A["ZCUS.DR"]|1
zcus.driver.zip 8 ZIP.POST L :DZ[dz]A["ZCUS.DR"]|4
zcus.dx 7 FREE L ABS.DIAG :DZ[dz]A["ZCUSOUK"]|4
zcus.er.clinic.or.ward 20 FREE L :DZ[dz]A["ZCUSERN"]|13
zcus.er.complaint.dur 10 FREE L :DZ[dz]A["ZCUSERN"]|0
zcus.er.depart.comment 50 FREE L :DZ[dz]A["ZCUSER"]|4
zcus.er.depart.date 8 DATE L :DZ[dz]A["ZCUSER"]|0
zcus.er.depart.diagnosis 50 FREE L :DZ[dz]A["ZCUSER"]|3
zcus.er.depart.disposit 10 FREE L MIS.DIS.DICT :DZ[dz]A["ZCUSER"]|2
zcus.er.depart.nurse 10 FREE L MIS.USER :DZ[dz]A["ZCUSERM"]|11
zcus.er.depart.time 4 HHMM L :DZ[dz]A["ZCUSER"]|1
zcus.er.dependancy.scor 1 INT R :DZ[dz]A["ZCUSERN"]|14
zcus.er.dr1.seen.date 8 DATE L :DZ[dz]A["ZCUSERN"]|11
zcus.er.dr1.seen.time 4 HHMM L :DZ[dz]A["ZCUSERN"]|12
zcus.er.driver 30 FREE L :DZ[dz]A["ZCUSOUK"]|11
zcus.er.exam.doctor 10 FREE L MIS.DOC.DICT :DZ[dz]A["ZCUSERN"]|17
zcus.er.expected 1 YN L :DZ[dz]A["ZCUSERN"]|4
zcus.er.gp.letter 1 YN L :DZ[dz]A["ZCUSERN"]|15
zcus.er.gp.letter.date 8 DATE L :DZ[dz]A["ZCUSERN"]|16
zcus.er.instructions 10 FREE L MIS.ZCUS.INSTR :DZ[dz]A["ZCUSERN"]|6
zcus.er.letter 10 FREE L MIS.ZCUS.LET :DZ[dz]A["ZCUSERN"]|7
zcus.er.letter.date.sent 8 DATE L :DZ[dz]A["ZCUSERN"]|8
zcus.er.letter.time.sent 4 ZCUS.MIN L :DZ[dz]A["ZCUSERN"]|9
zcus.er.named.nurse 10 FREE L MIS.USER :DZ[dz]A["ZCUSERM"]|10
zcus.er.not.used1 0 FREE L :DZ[dz]A["ZCUSERM"]|1
zcus.er.not.used2 0 FREE L :DZ[dz]A["ZCUSERM"]|2
zcus.er.not.used3 0 FREE L :DZ[dz]A["ZCUSERM"]|7
zcus.er.not.used4 0 FREE L :DZ[dz]A["ZCUSERM"]|8
zcus.er.not.used5 0 FREE L :DZ[dz]A["ZCUSERM"]|13
zcus.er.planned 1 YN L :DZ[dz]A["ZCUSERN"]|5
zcus.er.rx.one 25 FREE L :DZ[dz]A["ZCUSERM"]|12
zcus.er.seen.by 20 FREE L :DZ[dz]A["ZCUSERN"]|3
zcus.er.seen.date 8 DATE L :DZ[dz]A["ZCUSERN"]|1
zcus.er.seen.time 4 HHMM L :DZ[dz]A["ZCUSERN"]|2
zcus.er.tetanus.given 1 YN L :DZ[dz]A["ZCUSERN"]|10
zcus.er.triage.category 20 CHOICE L :DZ[dz]A["ZCUSERM"]|5
zcus.er.triage.date 8 DATE L :DZ[dz]A["ZCUSTRI"]|0
zcus.er.triage.del1 30 CHOICE L :DZ[dz]A["ZCUSERM"]|0
zcus.er.triage.delay.rsn 50 FREE L :DZ[dz]A["ZCUSERM"]|3
zcus.er.triage.nurse 10 FREE L MIS.USER :DZ[dz]A["ZCUSERM"]|4
zcus.er.triage.time 4 HHMM L :DZ[dz]A["ZCUSTRI"]|1
zcus.er.trolley.del1 2 INT R :DZ[dz]A["ZCUSERM"]|6
zcus.er.trolley.delay.rsn 50 FREE L :DZ[dz]A["ZCUSERM"]|9
zcus.er.visit.type 1 CHOICE L :DZ[dz]A["ZCUSOUK"]|10
zcus.existing.illness 50 FREE L :DZ[dz]A["ZCUSTRI"]|2
zcus.fac.xfer.from 10 URN L :DZ[dz]A["ZCUSOUK"]|8
zcus.fac.xfer.to 10 URN L :DZ[dz]A["ZCUSOUK"]|9
zcus.family.doctor 10 FREE L MIS.DOC.DICT :DZ[dz]A["ZCUSUK"]|1
zcus.gp.referral.number 10 FREE L :DZ[dz]A["ZCUSREF"]|7
zcus.initiative 10 FREE L WL.INITIATIVE :DZ[dz]A["ZCUSREF"]|8
zcus.last.tetanus 25 FREE L :DZ[dz]A["ZCUSTRJ"]|0
zcus.management.intent 10 FREE L WL.MANAGEMENT :DZ[dz]A["ZCUSOUK"]|27
zcus.medications 50 FREE L :DZ[dz]A["ZCUSTRI"]|3
zcus.model.box.number 10 FREE L :DZ[dz]A["ZCUSDUK"]|2
zcus.nok.comment 30 FREE L :DZ[dz]A["ZCUSDUK"]|5
zcus.nok.title 10 FREE L :DZ[dz]A["ZCUSDUK"]|3
zcus.not.used.anymore0 8 DATE L :DZ[dz]A["ZCUSTUK"]|0
zcus.not.used.anymore1 8 DATE L :DZ[dz]A["ZCUSTUK"]|1
zcus.not.used.anymore2 8 DATE L :DZ[dz]A["ZCUSTUK"]|2
zcus.notify.comment 30 FREE L :DZ[dz]A["ZCUSDUK"]|6
zcus.number.name.unit 55 FREE L VAL=(IF{O(*)=O(?) @MRI.PAT.unit.number_" "_@MRI.PAT.n
VAL=ame;@acct.number_" "_@name_" "_@unit.number}:0S)
zcus.nursing.assessment 50 FREE L :DZ[dz]A["ZCUSTRI"]|4
zcus.nursing.assessment.1 50 FREE L :DZ[dz]A["ZCUSTRI"]|5
zcus.other.doctor 10 FREE L MIS.DOC.DICT :DZ[dz]A["ZCUSUK"]|0
zcus.pat.overseas.visitor 1 YN L :DZ[dz]A["ZCUSDUK"]|0
zcus.pat.perm.city 20 FREE L :DZ[dz]A["ZCUS.PA"]|2
zcus.pat.perm.district 10 FREE L MIS.CNTY.DICT :DZ[dz]A["ZCUS.PA"]|6
zcus.pat.perm.home.phone 18 FREE L :DZ[dz]A["ZCUS.PA"]|5
zcus.pat.perm.postal.code 10 ZIP.POST L :DZ[dz]A["ZCUS.PA"]|4
zcus.pat.perm.province 30 FREE L :DZ[dz]A["ZCUS.PA"]|3
zcus.pat.perm.state 20 FREE L :DZ[dz]A["ZCUS.PA"]|3
zcus.pat.perm.street 30 FREE L :DZ[dz]A["ZCUS.PA"]|0
zcus.pat.perm.street2 30 FREE L :DZ[dz]A["ZCUS.PA"]|1
zcus.pat.perm.zip 10 ZIP.POST L MIS.ZIP :DZ[dz]A["ZCUS.PA"]|4
zcus.pat.temp.resident 1 YN L :DZ[dz]A["ZCUSDUK"]|1
zcus.preoperative.clinic 1 YN L :DZ[dz]A["ZCUSREF"]|10
zcus.procedure 7 FREE L ABS.PROC :DZ[dz]A["ZCUSOUK"]|3
zcus.procedure.severity 10 FREE L WL.PROC.SEVER :DZ[dz]A["ZCUSOUK"]|13
zcus.pulse 25 FREE L :DZ[dz]A["ZCUSTRJ"]|3
zcus.reference.letter.urn 10 FREE L :DZ[dz]A["ZCUSREF"]|0
zcus.reference.sch.urn 10 FREE L :DZ[dz]A["ZCUSREF"]|1
zcus.referral.reason 10 FREE L WL.REF.REASON :DZ[dz]A["ZCUSOUK"]|1
zcus.referral.source 10 FREE L WL.REF.SOURCE :DZ[dz]A["ZCUSOUK"]|0
zcus.referrer 10 FREE L MIS.REF.DICT :DZ[dz]A["ZCUSOUK"]|25
zcus.referrer.org 10 FREE L MIS.REF.ORG :DZ[dz]A["ZCUSOUK"]|26
zcus.region.number 10 FREE L :DZ[dz]A["ZCUSTUK"]|3
zcus.remove.from.wl 1 YN L :DZ[dz]A["ZCUSREF"]|3
zcus.res.taken.date 8 DATE L :DZ[dz]A["ZCUSUK"]|4
zcus.respiration 25 FREE L :DZ[dz]A["ZCUSTRJ"]|4
zcus.rta.victim.type 20 CHOICE L :DZ[dz]A["ZCUSRTA"]|0
zcus.sch.visit.type 1 CHOICE L :DZ[dz]A["ZCUSREF"]|6
zcus.temperature 25 FREE L :DZ[dz]A["ZCUSTRJ"]|1
zcus.type.of.attendances 1 CHOICE L :DZ[dz]A["ZCUSOUK"]|12
zcus.uk.pat.city 20 FREE L :DZ[dz]A["ZCUSUKA"]|2
zcus.uk.pat.county 20 FREE L :DZ[dz]A["ZCUSUKA"]|3
zcus.uk.pat.locality 30 FREE L :DZ[dz]A["ZCUSUKA"]|1
zcus.uk.pat.state 20 FREE L :DZ[dz]A["ZCUSUKA"]|3
zcus.uk.pat.street 30 FREE L :DZ[dz]A["ZCUSUKA"]|0
zcus.uk.pat.street2 30 FREE L :DZ[dz]A["ZCUSUKA"]|1
zcus.uk.pat.town 20 FREE L :DZ[dz]A["ZCUSUKA"]|2
zcus.uk.pcg 10 FREE L MIS.ZCUS.PCG :DZ[dz]A["ZCUSUK"]|3
zcus.version 10 FREE L ABS.VERSION VAL=(%ABS.PAT.drg.find.version(@urn,@pt.class,@financi
VAL=al.class,@adm.date,@dis.date))
zcus.ward.att.seen.by.con 1 YN L :DZ[dz]A["ZCUSOUK"]|6
zcus.ward.dis.appt 1 YN L :DZ[dz]A["ZCUSREF"]|9
zcus.weight 25 FREE L :DZ[dz]A["ZCUSTRJ"]|5
zcus.wl.outcome 10 FREE L WL.OUTCOME.DICT:DZ[dz]A["ZCUSREF"]|4
zcus.wl.removal.reason 10 FREE L WL.REMOVAL :DZ[dz]A["ZCUSREF"]|5
zcus.wl.tci.date 8 DATE L :DZ[dz]A["ZCUSREF"]|2
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.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.SVC.DICT :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
zcus.abs.fce.con.appr.num 10 FREE L :DZ[dz]A["S",dzSS]ZCUSCE|12
zcus.abs.fce.con.appr.req 8 DATE L :DZ[dz]A["S",dzSS]ZCUSCE|14
zcus.abs.fce.con.approve 1 YN L :DZ[dz]A["S",dzSS]ZCUSCE|18
zcus.abs.fce.con.bill 9 FREE L :DZ[dz]A["S",dzSS]ZCUSCE|16
zcus.abs.fce.con.date 8 DATE L :DZ[dz]A["S",dzSS]ZCUSCE|5
zcus.abs.fce.con.ecr 1 YN L :DZ[dz]A["S",dzSS]ZCUSCE|11
zcus.abs.fce.con.ed.user 10 FREE L MIS.USER :DZ[dz]A["S",dzSS]ZCUSCE|25
zcus.abs.fce.con.ind.chg 1 CHOICE L :DZ[dz]A["S",dzSS]ZCUSCE|20
zcus.abs.fce.con.name 30 FREE L VAL=@WL.CONTRACTS.name[@ABS.PAT.zcus.abs.fce.contract]
zcus.abs.fce.con.perdiem 9 FREE L :DZ[dz]A["S",dzSS]ZCUSCE|17
zcus.abs.fce.con.reg.grp 10 FREE L WL.REG.TYP.GRP :DZ[dz]A["S",dzSS]ZCUSCE|15
zcus.abs.fce.con.reg.type 3 FREE L :DZ[dz]A["S",dzSS]ZCUSCE|22
zcus.abs.fce.con.spec 10 FREE L :DZ[dz]A["S",dzSS]ZCUSCE|19
zcus.abs.fce.con.visits 6 PINT R :DZ[dz]A["S",dzSS]ZCUSCE|21
zcus.abs.fce.contract 20 FREE L WL.CONTRACTS :DZ[dz]A["S",dzSS]ZCUSCE|4
zcus.abs.fce.count.los 6 PINT R :DZ[dz]A["S",dzSS]ZCUSCE|10
zcus.abs.fce.drg 3 FREE L ABS.DRG :DZ[dz]A["S",dzSS]ZCUSCE|26
zcus.abs.fce.dx 7 FREE L ABS.DIAG :DZ[dz]A["S",dzSS]ZCUSCE|8
zcus.abs.fce.edit.user 10 FREE L MIS.USER :DZ[dz]A["S",dzSS]ZCUSCE|24
zcus.abs.fce.end.room 10 FREE L MIS.ROOM.DICT VAL=@zcus.abs.ward[urn,abs.service.seq.no,(-zcus.abs.w
VAL=ard.stays[urn,abs.service.seq.no,""])]
zcus.abs.fce.end.time 4 HHMM L :DZ[dz]A["S",dzSS]ZCUSCE|1
zcus.abs.fce.final.mds 1 YN L :DZ[dz]A["S",dzSS]ZCUSCE|6
zcus.abs.fce.fnl.mds.prnt 6 PINT R :DZ[dz]A["S",dzSS]ZCUSCE|23
zcus.abs.fce.mds.date 8 DATE L :DZ[dz]A["S",dzSS]ZCUSCE|7
zcus.abs.fce.neonatal.lvl 10 FREE L ABS.ZCUS.NEO :DZ[dz]A["S",dzSS]ZCUSCE|27
zcus.abs.fce.proc 7 FREE L ABS.PROC :DZ[dz]A["S",dzSS]ZCUSCE|9
zcus.abs.fce.purch.cat 10 FREE L MIS.INS.GROUP :DZ[dz]A["S",dzSS]ZCUSCE|3
zcus.abs.fce.purch.name 30 FREE L VAL=@MIS.INS.DICT.name[@ABS.PAT.zcus.abs.fce.purchaser
VAL=]
zcus.abs.fce.purch.user 10 FREE L MIS.USER :DZ[dz]A["S",dzSS]ZCUSCE|13
zcus.abs.fce.purchaser 10 FREE L MIS.INS.DICT :DZ[dz]A["S",dzSS]ZCUSCE|2
zcus.abs.fce.start.room 10 FREE L MIS.ROOM.DICT VAL=@zcus.abs.ward[urn,abs.service.seq.no,(+zcus.abs.w
VAL=ard.stays[urn,abs.service.seq.no,""])]
zcus.abs.fce.start.room.t 10 FREE L VAL=@t.zcus.abs.ward[urn,abs.service.seq.no,(+@t.zcus.
VAL=abs.ward.stays[urn,abs.service.seq.no,""])]
zcus.abs.fce.start.time 4 HHMM L :DZ[dz]A["S",dzSS]ZCUSCE|0
zcus.uk.cav.fce.price 10 SMONEY R :DZ[dz]A["S",dzSS]ZCUSCE["ZCUSCAV"]|0
zcus.uk.cav.last.upd 9 FREE L :DZ[dz]A["S",dzSS]ZCUSCE["ZCUSCAV"]|1
zcus.uk.cav.last.user 10 FREE L MIS.USER :DZ[dz]A["S",dzSS]ZCUSCE["ZCUSCAV"]|2
zcus.uk.comment.or 30 FREE L :DZ[dz]A["S",dzSS]ZCUSCE["ZCUS.OR"]|2
zcus.uk.std.mar.rate.or 5 SDEC2 R :DZ[dz]A["S",dzSS]ZCUSCE["ZCUS.OR"]|0
zcus.uk.std.price.or 10 SMONEY R :DZ[dz]A["S",dzSS]ZCUSCE["ZCUS.OR"]|1
Ì € i 2
zcus.ward.stays (zcus.abs.ward.stays)
[urn,abs.service.seq.no, zcus.abs.ward.seq.no]
:DZ[dz]A["S",dzSS]ZCUSCE["ZCUSWS",dzWSS]
Field Name Len Dat Typ J DPM Offset/Local/VAL
zcus.abs.ward.seq.no 3 PINT R dzWSS
zcus.abs.same.ward.at.end 1 YN L :DZ[dz]A["S",dzSS]ZCUSCE["ZCUSWS",dzWSS]|5
zcus.abs.ward 10 FREE L MIS.ROOM.DICT :DZ[dz]A["S",dzSS]ZCUSCE["ZCUSWS",dzWSS]|0
zcus.abs.ward.end.date 8 DATE L :DZ[dz]A["S",dzSS]ZCUSCE["ZCUSWS",dzWSS]|3
zcus.abs.ward.end.time 4 HHMM L :DZ[dz]A["S",dzSS]ZCUSCE["ZCUSWS",dzWSS]|4
zcus.abs.ward.leave 1 YN L :DZ[dz]A["S",dzSS]ZCUSCE["ZCUSWS",dzWSS]|6
zcus.abs.ward.start.date 8 DATE L :DZ[dz]A["S",dzSS]ZCUSCE["ZCUSWS",dzWSS]|1
zcus.abs.ward.start.time 4 HHMM L :DZ[dz]A["S",dzSS]ZCUSCE["ZCUSWS",dzWSS]|2
Ì € i 2
zcus.abs.home.leave (zcus.abs.home.leave)
[urn,abs.service.seq.no,zcus.abs.ward.seq.no, zcus.abs.hmlv.seq.no]
:DZ[dz]A["S",dzSS]ZCUSCE["ZCUSWS",dzWSS]ZCUSHL[dzHLV]
Field Name Len Dat Typ J DPM Offset/Local/VAL
zcus.abs.hmlv.seq.no 3 PINT R dzHLV
zcus.abs.hmlv.return.date 10 DATE L :DZ[dz]A["S",dzSS]ZCUSCE["ZCUSWS",dzWSS]ZCUSHL[dzHLV]|1
zcus.abs.hmlv.start.date 10 DATE L :DZ[dz]A["S",dzSS]ZCUSCE["ZCUSWS",dzWSS]ZCUSHL[dzHLV]|0
Ì € 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
zcus.adm.fce.contract 20 FREE L WL.CONTRACTS :DZ[dz]A["SA",dzSA]ZCUSCE|3
zcus.adm.fce.dr 10 FREE L MIS.DOC.DICT :DZ[dz]A["SA",dzSA]ZCUSCE|4
zcus.adm.fce.purch.cat 10 FREE L MIS.INS.DICT :DZ[dz]A["SA",dzSA]ZCUSCE|2
zcus.adm.fce.purchaser 10 FREE L MIS.INS.DICT :DZ[dz]A["SA",dzSA]ZCUSCE|1
zcus.adm.fce.start.time 4 HHMM L :DZ[dz]A["SA",dzSA]ZCUSCE|0
Ì € i 2
zcus.abs.pat.adm.ward.stays (zcus.adm.ward.stays)
[urn,adm.service.start, zcus.adm.ward.start.date]
:DZ[dz]A["SA",dzSA]ZCUSCE["ZCUSWS",dsWS]
Field Name Len Dat Typ J DPM Offset/Local/VAL
zcus.adm.ward.start.date 3 PINT R dsWS
zcus.adm.same.ward.at.end 1 YN L :DZ[dz]A["SA",dzSA]ZCUSCE["ZCUSWS",dsWS]|2
zcus.adm.ward 10 FREE L MIS.ROOM.DICT :DZ[dz]A["SA",dzSA]ZCUSCE["ZCUSWS",dsWS]|0
zcus.adm.ward.leave 1 YN L :DZ[dz]A["SA",dzSA]ZCUSCE["ZCUSWS",dsWS]|3
zcus.adm.ward.start.time 4 HHMM L :DZ[dz]A["SA",dzSA]ZCUSCE["ZCUSWS",dsWS]|1
Ì € 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.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
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.anesth 10 FREE L ABS.ANESTHESIA :DZ[dz]A["V",dzVS]|4
visit.functional.center 9 INT L ABS.CAN.VIS.CTR:DZ[dz]A["V",dzVS]|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.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.renum 2 PINT R :DZ[dz]A["V",dzVS]P[dzDPV]|5
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
Ì € 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.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{@MIS.INS.DICT.other.type[@ins.mnemonic]="Y" @in
VAL=s.name;@MIS.INS.DICT.name[@ins.mnemonic]}
ins.policy.number 30 FREE L :DZ[dz]A["I",dzIN]|1
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.treatment.auth.no 18 FREE L :DZ[dz]A["I",dzIN]|3
ins.view.cds 0 FREE L
Ì € 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.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.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 2 PINT 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.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
case.mix.complications (zcus.cm.complications)
[urn, zcus.cm.complication]
:DZ[dz]A["ZCUSCOM",com]
Field Name Len Dat Typ J DPM Offset/Local/VAL
zcus.cm.complication 10 FREE L MIS.ZCUS.COMPL com
Ì € i 2
case.mix.outcomes (zcus.cm.outcomes)
[urn, zcus.cm.outcome]
:DZ[dz]A["ZCUSOUT",out]
Field Name Len Dat Typ J DPM Offset/Local/VAL
zcus.cm.outcome 10 FREE L MIS.ZCUS.OUTCOMout
Ì € i 2
abs.pat.er.dx.fields (zcus.er.diagnosis)
[urn, zcus.er.dx.counter]
:DZ[dz]A["ZCUSERD",erdc]
Field Name Len Dat Typ J DPM Offset/Local/VAL
zcus.er.dx.counter 2 FREE L erdc
zcus.er.at.site 10 FREE L MIS.ZCUS.ANATOM:DZ[dz]A["ZCUSERD",erdc]|2
zcus.er.at.site.side 9 CHOICE L :DZ[dz]A["ZCUSERD",erdc]|4
zcus.er.at.site.sub 10 FREE L :DZ[dz]A["ZCUSERD",erdc]|3
zcus.er.dx 10 FREE L MIS.ZCUS.DIAG :DZ[dz]A["ZCUSERD",erdc]|0
zcus.er.dx.sub 10 FREE L MIS.ZCUS.SUB.DX:DZ[dz]A["ZCUSERD",erdc]|1
Ì € i 2
abs.pat.er.investigations (zcus.er.investigations)
[urn, zcus.er.invest.counter]
:DZ[dz]A["ZCUSERI",eric]
Field Name Len Dat Typ J DPM Offset/Local/VAL
zcus.er.invest.counter 2 FREE L eric
zcus.er.invest 10 FREE L MIS.ZCUS.INVEST:DZ[dz]A["ZCUSERI",eric]|0
zcus.er.invest.sub 10 FREE L MIS.ZCUS.SUB.IV:DZ[dz]A["ZCUSERI",eric]|1
Ì € i 2
abs.pat.er.treatments (zcus.er.treatments)
[urn, zcus.er.treatment.counter]
:DZ[dz]A["ZCUSERT",ertc]
Field Name Len Dat Typ J DPM Offset/Local/VAL
zcus.er.treatment.counter 2 FREE L ertc
zcus.er.treatment 10 FREE L MIS.ZCUS.TREAT :DZ[dz]A["ZCUSERT",ertc]|0
zcus.er.treatment.sub 10 FREE L MIS.ZCUS.SUB.TR:DZ[dz]A["ZCUSERT",ertc]|1
Ì € i 2
abs.pat.zcus.recur.dates (zcus.recur.dates)
[urn, zcus.recur.date,zcus.recur.time]
:DZ[dz]A["ZCUSRCR",aaRD,aaRT]
Field Name Len Dat Typ J DPM Offset/Local/VAL
zcus.recur.date 8 DATE L aaRD
zcus.recur.time 4 HHMM L aaRT
zcus.recur.locn 10 FREE L MIS.LOCN.DICT :DZ[dz]A["ZCUSRCR",aaRD,aaRT]|1
zcus.recur.user 10 FREE L MIS.USER :DZ[dz]A["ZCUSRCR",aaRD,aaRT]|0
Ì € i 2
abs.pat.zcus.recur.dates.loc (zcus.recur.dates.loc)
[urn,zcus.recur.date,zcus.recur.time, zcus.rcr.other.location]
:DZ[dz]A["ZCUSRCR",aaRD,aaRT]ZCUSL[ggn]
Field Name Len Dat Typ J DPM Offset/Local/VAL
zcus.rcr.other.location 10 FREE L MIS.LOCN.DICT ggn
Ì € 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.check.detail (check.detail)
[urn, check]
:DZ[dz]CH[dja]
Field Name Len Dat Typ J DPM Offset/Local/VAL
check 10 FREE L ABS.CHECK dja
check.fail.warn 8 CHOICE L :DZ[dz]CH[dja]|0
check.text 60 FREE L :DZ[dz]CH[dja]|1
Ì € 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.coder 10 FREE L MIS.USER :DZ[dz]D["AC",dzABD]D|9
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.mapc 5 PINT R MIS.APC :DZ[dz]D["AC",dzABD]D["M"]|0
apc.mapc.copay 8 DEC2 R :DZ[dz]D["AC",dzABD]D["M"]|5
apc.mapc.medpay 8 DEC2 R :DZ[dz]D["AC",dzABD]D["M"]|4
apc.mapc.mincoins 8 DEC2 R :DZ[dz]D["AC",dzABD]D["M"]|8
apc.mapc.natcoins 8 DEC2 R :DZ[dz]D["AC",dzABD]D["M"]|6
apc.mapc.pay.status 1 FREE L :DZ[dz]D["AC",dzABD]D["M"]|3
apc.mapc.prin.dx 7 FREE L ABS.DIAG :DZ[dz]D["AC",dzABD]D["M"]|10
apc.mapc.type 2 INT R :DZ[dz]D["AC",dzABD]D["M"]|1
apc.mapc.ucoins 8 DEC2 R :DZ[dz]D["AC",dzABD]D["M"]|7
apc.mapc.wt 9 DEC R :DZ[dz]D["AC",dzABD]D["M"]|9
apc.outlier.dollars 10 DEC2 R :DZ[dz]D["AC",dzABD]D|17
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.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 PINT R 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.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 1 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 PINT R 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 8 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 8 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.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 1 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 2 FREE L :DZ[dz]D["AP"]CP[dzACN]|4
apg.cpt.yn 1 YN L :DZ[dz]D["AP"]CP[dzACN]|6
Ì € 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.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]|12
drg.ov.proc.loc 2 FREE L :DZ[dz]D["VP",dzDVP]|11
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.renumber 2 PINT R :DZ[dz]D["VP",dzDVP]|5
drg.ov.proc.st 2 FREE L :DZ[dz]D["VP",dzDVP]|13
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
Ì € 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.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
zcus.uk.paired.indica 1 CHOICE L :DZ[dz]D["O",dzO]H[dzOHL]ZCUSPCI|0
Ì € 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.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
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.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.total 10 MONEY R :DZ[dz]F["C",dag]|0
zcus.charge.cost.total 9 MONEY R :DZ[dz]F["C",dag]ZCUS.C|0
zcus.charge.fixed 9 MONEY R :DZ[dz]F["C",dag]ZCUS.C|1
zcus.charge.non.staff 9 MONEY R :DZ[dz]F["C",dag]ZCUS.C|4
zcus.charge.overhead 9 MONEY R :DZ[dz]F["C",dag]ZCUS.C|5
zcus.charge.staff 9 MONEY R :DZ[dz]F["C",dag]ZCUS.C|3
zcus.charge.variable 9 MONEY R :DZ[dz]F["C",dag]ZCUS.C|2
Ì € 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
Ì € i 2
abs.pat.std.cost.groups (std.cost.groups)
[urn, std.cost.group]
: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 7 SINT R :DZ[dz]F["S"]C[cc]|0
Ì € i 2
abs.pat.std.cost.service.units (std.cost.service.units)
[urn, std.cost.dept,std.cost.service.unit]
: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
std.cost.service.unit.qty 8 PINT R :DZ[dz]F["S"]SU[gd,ce]|0
| | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | |