Ì i 2
audit.trail (audit.trail)
[audit.account,audit.date,audit.time,audit.user,audit.field]
:BZAUD[bz,bzAUD,bzAUT,gu,bzAUF]
Field Name Len Dat Typ J DPM Offset/Local/VAL
audit.account 44 URN L BAR.PAT bz
audit.date 8 DATE L bzAUD
audit.time 8 HHMM L bzAUT
audit.user 10 FREE L MIS.USER gu
audit.field 15 FREE L bzAUF
audit.new 30 FREE L :BZAUD[bz,bzAUD,bzAUT,gu,bzAUF]|1
audit.old 30 FREE L :BZAUD[bz,bzAUD,bzAUT,gu,bzAUF]|0
Ì i 2
bar.client.bills (cl.bills)
[cl.bill.client,cl.bill.seq.number]
?BZCLB[bzCL,bzCB]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cl.bill.client 10 FREE L bzCL
cl.bill.seq.number 4 URN L bzCB
cl.bill.date 8 DATE L ?BZCLB[bzCL,bzCB]|3
cl.bill.discount 11 SMONEY R ?BZCLB[bzCL,bzCB]|2
cl.bill.exempt.chg 11 SMONEY R ?BZCLB[bzCL,bzCB]|1
cl.bill.purged 1 YN L ?BZCLB[bzCL,bzCB]|4
cl.bill.total.chg 11 SMONEY R ?BZCLB[bzCL,bzCB]|0
Ì € i 2
bar.acct.cl.bill.drs (cl.bill.drs)
[cl.bill.client,cl.bill.seq.number, cl.bill.dr]
?BZCLB[bzCL,bzCB,ggg]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cl.bill.dr 10 FREE L MIS.DOC.DICT ggg
cl.bill.dr.discount 11 SMONEY R ?BZCLB[bzCL,bzCB,ggg]|2
cl.bill.dr.exempt.chg 11 SMONEY R ?BZCLB[bzCL,bzCB,ggg]|1
cl.bill.dr.total.chg 11 SMONEY R ?BZCLB[bzCL,bzCB,ggg]|0
Ì € i 2
bar.acct.cl.bill.dr.pts (cl.bill.dr.pts)
[cl.bill.client,cl.bill.seq.number,cl.bill.dr, cl.bill.pt.sort.name,cl.bill.pt.number,cl.bill.pt.urn]
?BZCLB[bzCL,bzCB,ggg,bzCLN,bzCLR,bzCP]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cl.bill.pt.sort.name 30 FREE L bzCLN
cl.bill.pt.number 12 FREE L bzCLR
cl.bill.pt.urn 8 FREE L bzCP
Ì i 2
bar.acct.tape.out.totals (conv.tape.out.totals)
[tape.out.number]
*BZTAPEOUT[ton]
Field Name Len Dat Typ J DPM Offset/Local/VAL
tape.out.number 3 FREE L ton
tape.out.ar.chg.total.bd 9 SMONEY R *BZTAPEOUT[ton]|4
tape.out.ar.chg.total.fb 9 SMONEY R *BZTAPEOUT[ton]|1
tape.out.balance.bd 9 SMONEY R *BZTAPEOUT[ton]|5
tape.out.balance.fb 9 SMONEY R *BZTAPEOUT[ton]|2
tape.out.count.bd 6 PINT R *BZTAPEOUT[ton]|3
tape.out.count.fb 6 PINT R *BZTAPEOUT[ton]|0
tape.out.count.zero 6 PINT R *BZTAPEOUT[ton]|6
tape.out.ub.chg.total.bd 9 SMONEY R *BZTAPEOUT[ton]|8
tape.out.ub.chg.total.fb 9 SMONEY R *BZTAPEOUT[ton]|7
Ì i 2
bar.acct.tape.load.results (conv.tape.load.results)
[tape.volume]
:BZTAPE[bzv]
Field Name Len Dat Typ J DPM Offset/Local/VAL
tape.volume 4 PINT R bzv
tape.errors 1 PINT R :BZTAPE[bzv]|4
tape.finish.time 9 FREE L :BZTAPE[bzv]|1
tape.finish.urn 12 PINT R :BZTAPE[bzv]|6
tape.load.status 15 FREE L :BZTAPE[bzv]|2
tape.master.job.num 4 FREE L :BZTAPE[bzv]|7
tape.recs.read 8 PINT R :BZTAPE[bzv]|3
tape.start.time 9 FREE L :BZTAPE[bzv]|0
tape.start.urn 12 PINT R :BZTAPE[bzv]|5
Ì i 2
bar.acct.4.4.conv.data (conv4.4.vectors)
[conv4.4.account]
:BZCONV4[bz]
Field Name Len Dat Typ J DPM Offset/Local/VAL
conv4.4.account 44 URN L BAR.PAT bz
Ì i 2
bar.rem.queue.responses (cs.activity.file)
[cs.for.user,cs.on.date,cs.by.user,cs.for.date,cs.account,cs.txn.urn]
?BZRR[gu,bzTS,gu1,bzRd,bz,bzT]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cs.for.user 10 FREE L MIS.USER gu
cs.on.date 8 DATE L bzTS
cs.by.user 10 FREE L MIS.USER gu1
cs.for.date 8 DATE L bzRd
cs.account 44 URN L BAR.PAT bz
cs.txn.urn 5 PINT R bzT
cs.canned.text.mnemonic 8 FREE L BAR.COMMENT ?BZRR[gu,bzTS,gu1,bzRd,bz,bzT]|0
cs.xfered.in 1 PINT R ?BZRR[gu,bzTS,gu1,bzRd,bz,bzT]|1
Ì i 2
cs.reminders.xfer.out (cs.rem.xfer.out)
[cs.xfer.user,cs.xfer.date,cs.acct,cs.txn]
?BZRX[gu,bzD,bz,bzT]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cs.xfer.user 10 FREE L MIS.USER gu
cs.xfer.date 8 DATE L bzD
cs.acct 44 URN L BAR.PAT bz
cs.txn 5 PINT R bzT
cs.xfered.out 10 FREE L MIS.USER ?BZRX[gu,bzD,bz,bzT]|0
Ì i 2
bar.acct (main)
[account]
:BZ[bz]
Field Name Len Dat Typ J DPM Offset/Local/VAL
account 44 URN L bz
abs.status 10 CHOICE L :BZ[bz]D["D7"]|15
accident.description 30 FREE L :BZ[bz]D["DCAN"]|5
accident.nature.of.injury 30 FREE L :BZ[bz]D["DCAN"]|4
accident.place 20 FREE L :BZ[bz]D["DCAN"]|3
acct.no 44 URN L BAR.PAT
acct.type 8 FREE L BAR.ACCT.TYPE :BZ[bz]D["D1"]|10
activity.date 8 DATE L
activity.type 1 CHOICE L
addr1 30 FREE L :BZ[bz]D["D1"]|3
addr2 30 FREE L :BZ[bz]D["D1"]|4
adj.total 11 MONEY R VAL=%BAR.PAT.get.credit.total("A",account)
adm.date 8 DATE L :BZ[bz]D["D3"]|12
adm.diagnosis 30 FREE L :BZ[bz]D["D3"]|11
adm.priority 10 FREE L MIS.ADM.PRIORT :BZ[bz]D["D4"]|0
adm.purge.date 8 DATE L :BZ[bz]D|4
adm.src 10 FREE L MIS.ADM.SOURCE :BZ[bz]D["D4"]|1
adm.time 4 TIME L :BZ[bz]D["D3"]|13
admit.diag 6 FREE L :BZ[bz]D["D7"]|5
admit.diag.desc 50 FREE L :BZ[bz]D["D7"]|7
admit.phys 10 FREE L MIS.DOC.DICT :BZ[bz]D["D3"]|1
age 3 INT R :BZ[bz]D["D1"]|15
agency 8 FREE L BAR.COL.AG :BZ[bz]|15
any.cl.dis.exemptions 1 YN L :BZ[bz]|25
ap.ref.address 30 FREE L :BZ[bz]D["AP"]|1
ap.ref.address2 30 FREE L :BZ[bz]D["AP"]|2
ap.ref.city 20 FREE L :BZ[bz]D["AP"]|3
ap.ref.name 30 FREE L :BZ[bz]D["AP"]|0
ap.ref.state 20 FREE L :BZ[bz]D["AP"]|4
ap.ref.zip 10 FREE L :BZ[bz]D["AP"]|5
apc.charges 4 INT R :BZ[bz]D["D7"]|16
apg.summary 6 PINT R MIS.APG.NAME :BZ[bz]D["D7"]A|0
apg.tot.cost.wt 10 DEC R :BZ[bz]D["D7"]A|1
apg.tot.exp.reimb 10 DEC2 R :BZ[bz]D["D7"]A|2
apg.tot.rate 10 DEC R :BZ[bz]D["D7"]A|3
ar.age.date 8 DATE L :BZ[bz]|12
ar.chg.total 9 SMONEY R :BZ[bz]|6
attend.phys 10 FREE L MIS.DOC.DICT :BZ[bz]D["D3"]|2
balance 9 SMONEY R :BZ[bz]|2
balance.billed 9 SMONEY R VAL=(@balance-@ur.chg.total)
bar.adm.ser 8 DATE L VAL=IF{@BAR.PAT.adm.date;@BAR.PAT.ser.date}
bar.created 8 DATE L :BZ[bz]D|5
bar.dis.ser 8 DATE L VAL=IF{@BAR.PAT.dis.date;@BAR.PAT.ser.dis.date;@BAR.PA
VAL=T.ser.date}
bar.status 2 CHOICE L :BZ[bz]|1
bd.age.date 8 DATE L :BZ[bz]|13
bed 3 FREE L :BZ[bz]D["D3"]|9
bill.date 8 DATE L VAL=@BAR.PAT.txn.ser.date["O",@BAR.PAT.last.bill.txn]
billing.rule 8 FREE L BAR.BRULE :BZ[bz]|18
birthdate 8 BDATE L :BZ[bz]D["D1"]|14
blood.ded 2 INT R :BZ[bz]D["U"]|14
blood.furn 2 INT R :BZ[bz]D["U"]|11
blood.not.repl 2 INT R :BZ[bz]D["U"]|13
blood.repl 2 INT R :BZ[bz]D["U"]|12
bus.phone 18 PHONE L :BZ[bz]D["D1"]|9
calc.drg 6 FREE L MIS.DRG.NAME :BZ[bz]D["D7"]|1
calc.next.stmt.msg.no 3 PINT R VAL=%BAR.PAT.next.stmt.msg(BAR.PAT.account)
cancelled 1 YN L :BZ[bz]D|13
cci.acct.status.at.cci 15 FREE L :BZ[bz]D["CCI"]|9
cci.comment 59 FREE L :BZ[bz]D["CCI"]|8
cci.delete.reason 1 FREE L :BZ[bz]D["CCI"]|5
cci.last.edit.date 8 DATE L :BZ[bz]D["CCI"]|7
cci.last.rej.date 8 DATE L :BZ[bz]D["CCI"]|6
cci.last.txn 4 INT R :BZ[bz]D["CCI"]|2
cci.retd.from.cci.date 8 DATE L :BZ[bz]D["CCI"]|4
cci.sent.to.cci.date 8 DATE L :BZ[bz]D["CCI"]|3
cci.status 3 FREE L :BZ[bz]D["CCI"]|0
cci.status.edit.type 3 FREE L :BZ[bz]D["CCI"]|1
cd.screen 15 FREE L MIS.SCREEN VAL=@BAR.PSTATS.cd.screen[@BAR.PAT.pt.status]
cds.diag.disp 6 FREE L
chg.total 9 SMONEY R VAL=(@BAR.PAT.ur.chg.total+@BAR.PAT.ar.chg.total+@BAR.
VAL=PAT.late.chg.total)
city 20 FREE L :BZ[bz]D["D1"]|5
cl.acct.type 8 FREE L BAR.ACCT.TYPE :BZ[bz]D["D1"]|10
cl.active 1 YN L :BZ[bz]D["C2"]|4
cl.addr1 32 FREE L :BZ[bz]D["D1"]|3
cl.addr2 32 FREE L :BZ[bz]D["D1"]|4
cl.bill.remark 65 FREE L :BZ[bz]D|4
cl.city 20 FREE L :BZ[bz]D["D1"]|5
cl.current.bill.number 6 INT R :BZ[bz]D["C2"]|2
cl.discount.direct 1 YN L :BZ[bz]D["C2"]|5
cl.discount.procedure 10 FREE L BAR.PROC :BZ[bz]D["C2"]|1
cl.fee.schedule 12 FREE L BAR.FEE.SCH :BZ[bz]D["C2"]|3
cl.id 44 URN L BAR.PAT VAL=@BAR.PAT.cl.number_" "_@BAR.PAT.cl.name'=" "
cl.inquiry.ar 9 SMONEY R VAL=(@balance-@ur.chg.total)
cl.inquiry.balance 9 SMONEY R VAL=(@balance+@cl.pending.charges)
cl.last.chg.sum 8 DATE L :BZ[bz]D["C2"]|7
cl.last.pat.purge 8 DATE L :BZ[bz]D["C2"]|6
cl.name 32 FREE L :BZ[bz]D|1
cl.number 12 FREE L :BZ[bz]D|0
cl.pat.purge.count 6 INT R :BZ[bz]D["C2"]|8
cl.pending.charges 9 SMONEY R :BZ[bz]|23
cl.phone 18 PHONE L :BZ[bz]D["D1"]|8
cl.remark 65 FREE L :BZ[bz]D|3
cl.sort.name 30 FREE L :BZ[bz]D|2
cl.state 20 FREE L :BZ[bz]D["D1"]|6
cl.unapplied.credits 9 SMONEY R :BZ[bz]|24
cl.zero.bill.suppress 1 YN L :BZ[bz]D["C2"]|9
cl.zip 10 ZIP.POST L :BZ[bz]D["D1"]|7
client 12 FREE L :BZ[bz]D["D1"]|11
client.urn 10 FREE L :BZ[bz]|17
coinsurance.days 3 INT R :BZ[bz]D["U"]|4
coinsurance.rate 9 SMONEY R :BZ[bz]D["U"]|3
confidential 1 YN L :BZ[bz]D|11
contract.1st.pmt.dt 8 DATE L :BZ[bz]|29
contract.amount 8 MONEY R :BZ[bz]|21
contract.date 8 DATE L :BZ[bz]|20
contract.odue 4 PINT R VAL=IF{@pt.balance.billed+0:2D>0.00 (%Z.date.sub(@.
VAL=today,@BAR.PAT.contract.1st.pmt.dt)-(@BAR.PAT.cont
VAL=ract.paid/@BAR.PAT.contract.amount*@BAR.PAT.next.s
VAL=tmt.period)>0)}
contract.paid 8 MONEY R :BZ[bz]|22
corp 4 FREE L MIS.GL.CORP :BZ[bz]|30
current.age 7 FREE L VAL=%Z.age(@dob)
cycle.day 2 PINT R :BZ[bz]S|3
dem.id 44 FREE L VAL=@number_" "_@name'=" "
dis.date 8 DATE L :BZ[bz]D["D4"]|8
dis.diagnosis 30 FREE L :BZ[bz]D["D4"]|13
dis.disp 10 FREE L MIS.DIS.DICT :BZ[bz]D["D4"]|10
dis.time 4 TIME L :BZ[bz]D["D4"]|9
dob 8 BDATE L :BZ[bz]D["D1"]|17
drg.arith.los 5 DEC R :BZ[bz]D["D7"]|13
drg.dol 9 SMONEY R :BZ[bz]D["D7"]|6
drg.geom.los 5 DEC R :BZ[bz]D["D7"]|14
drg.max.stay 6 DEC R :BZ[bz]D["D7"]|3
drg.min.stay 6 DEC R :BZ[bz]D["D7"]|2
drg.status 1 CHOICE L :BZ[bz]D["D7"]|0
drg.std.stay 6 DEC R :BZ[bz]D["D7"]|4
edit.date 8 DATE L :BZ[bz]D|7
emp.status 10 FREE L MIS.EMP.STATUS :BZ[bz]D["D2"]|2
employee.id 10 FREE L :BZ[bz]D["D2"]|3
employer 10 FREE L MIS.EMPLR.DICT :BZ[bz]D["D2"]|4
employer.addr 30 FREE L :BZ[bz]D["D2"]|6
employer.addr.disp 30 FREE L VAL=IF{@employer's.address;@employer.addr}
employer.city 30 FREE L :BZ[bz]D["D2"]|8
employer.city.disp 30 FREE L VAL=IF{@employer's.city;@employer.city}
employer.name 30 FREE L :BZ[bz]D["D2"]|5
employer.name.disp 30 FREE L VAL=IF{@employer's.name;@employer.name}
employer.phone 18 PHONE L :BZ[bz]D["D2"]|11
employer.phone.disp 18 PHONE L VAL=IF{@employer's.phone;@employer.phone}
employer.state 20 FREE L :BZ[bz]D["D2"]|9
employer.state.disp 20 FREE L VAL=IF{@employer's.state;@employer.state}
employer.zip 10 ZIP.POST L :BZ[bz]D["D2"]|10
employer.zip.disp 10 ZIP.POST L VAL=IF{@employer's.zip;@employer.zip}
er.phys 10 FREE L MIS.DOC.DICT :BZ[bz]D["D3"]|14
exp.cost.ol 9 SMONEY R :BZ[bz]D["D7"]|10
exp.day.ol 9 SMONEY R :BZ[bz]D["D7"]|11
facility 10 FREE L MIS.FACILITY :BZ[bz]D["D4"]|23
family.phys 10 FREE L MIS.DOC.DICT :BZ[bz]D["D3"]|4
fee.schedule 12 FREE L BAR.FEE.SCH :BZ[bz]|11
filer.time.stamp 10 FREE L :BZ[bz]D|10
fin.class 10 FREE L MIS.FIN.CLASS :BZ[bz]D["D1"]|18
freeze.charges 1 YN L :BZ[bz]|31
frm.loc.2 30 FREE L :BZ[bz]D["U"]|6
frm.loc.27 8 FREE L :BZ[bz]D["U"]|9
frm.loc.45 16 FREE L :BZ[bz]D["U"]|8
frm.loc.9 7 FREE L :BZ[bz]D["U"]|7
from.adm.date 8 DATE L :BZ[bz]D|6
grouper.version 3 FREE L :BZ[bz]D["D7"]|12
guar.adr1 30 FREE L :BZ[bz]D["D5"]|3
guar.adr1.disp 30 FREE L VAL=IF{@BAR.PARAM.pt.or.guar.stmts="P" @guar.adr1;@gua
VAL=r.id's.guar.adr1}
guar.adr2 30 FREE L :BZ[bz]D["D5"]|4
guar.adr2.disp 30 FREE L VAL=IF{@BAR.PARAM.pt.or.guar.stmts="P" @guar.adr2;@gua
VAL=r.id's.guar.adr2}
guar.bus.phone 18 PHONE L :BZ[bz]D["D5"]|9
guar.bus.phone.disp 18 PHONE L VAL=IF{@BAR.PARAM.pt.or.guar.stmts="P" @guar.bus.phone
VAL=;@guar.id's.guar.bus.phone}
guar.city 20 FREE L :BZ[bz]D["D5"]|5
guar.city.disp 30 FREE L VAL=IF{@BAR.PARAM.pt.or.guar.stmts="P" @guar.city;@gua
VAL=r.id's.guar.city}
guar.comment.disp 79 FREE L VAL=IF{@BAR.PARAM.pt.or.guar.stmts="P" "";""^BAR.GUAR.
VAL=guar.urn,@guar.num^BAR.GUAR.guar.num,@Next(BAR.GUA
VAL=R.guar.urn,BAR.GUAR.number.x),@BAR.GUAR.comment.te
VAL=xt}
guar.emp.addr 30 FREE L :BZ[bz]D["D6"]|5
guar.emp.addr.disp 30 FREE L VAL=IF{@BAR.PARAM.pt.or.guar.stmts="P" IF{@guar.emplr.
VAL=id's.address;@guar.emp.addr};@guar.id's.guar.emplr
VAL=.id's.address;@guar.id's.guar.emp.addr}
guar.emp.city 30 FREE L :BZ[bz]D["D6"]|7
guar.emp.city.disp 30 FREE L VAL=IF{@BAR.PARAM.pt.or.guar.stmts="P" IF{@guar.emplr.
VAL=id's.city;@guar.emp.city};@guar.id's.guar.emplr.id
VAL='s.city;@guar.id's.guar.emp.city}
guar.emp.name 30 FREE L :BZ[bz]D["D6"]|4
guar.emp.name.disp 30 FREE L VAL=IF{@BAR.PARAM.pt.or.guar.stmts="P" IF{@guar.emplr.
VAL=id's.name;@guar.emp.name};@guar.id's.guar.emplr.id
VAL='s.name;@guar.id's.guar.emp.name}
guar.emp.phone 18 PHONE L :BZ[bz]D["D6"]|10
guar.emp.phone.disp 18 PHONE L VAL=IF{@BAR.PARAM.pt.or.guar.stmts="P" IF{@guar.emplr.
VAL=id's.phone;@guar.emp.phone};@guar.id's.guar.emplr.
VAL=id's.phone;@guar.id's.guar.emp.phone}
guar.emp.state 20 FREE L :BZ[bz]D["D6"]|8
guar.emp.state.disp 20 FREE L VAL=IF{@BAR.PARAM.pt.or.guar.stmts="P" IF{@guar.emplr.
VAL=id's.state;@guar.emp.state};@guar.id's.guar.emplr.
VAL=id's.state;@guar.id's.guar.emp.state}
guar.emp.status 10 FREE L MIS.EMP.STATUS :BZ[bz]D["D6"]|1
guar.emp.status.disp 10 FREE L VAL=IF{@BAR.PARAM.pt.or.guar.stmts="P" @guar.emp.statu
VAL=s;@guar.id's.guar.emp.status}
guar.emp.zip 10 ZIP.POST L :BZ[bz]D["D6"]|9
guar.emp.zip.disp 10 ZIP.POST L VAL=IF{@BAR.PARAM.pt.or.guar.stmts="P" IF{@guar.emplr.
VAL=id's.zip;@guar.emp.zip};@guar.id's.guar.emplr.id's
VAL=.zip;@guar.id's.guar.emp.zip}
guar.emplr.id 10 FREE L MIS.EMPLR.DICT :BZ[bz]D["D6"]|3
guar.emplye.id 10 FREE L :BZ[bz]D["D6"]|2
guar.emplye.id.disp 10 FREE L VAL=IF{@BAR.PARAM.pt.or.guar.stmts="P" @guar.emplye.id
VAL=;@guar.id's.guar.emplye.id}
guar.home.phone 18 PHONE L :BZ[bz]D["D5"]|8
guar.home.phone.disp 18 PHONE L VAL=IF{@BAR.PARAM.pt.or.guar.stmts="P" @guar.home.phon
VAL=e;@guar.id's.guar.home.phone}
guar.id 47 URN L BAR.GUAR :BZ[bz]D["D5"]|11
guar.id.pat 47 FREE L
guar.name 30 FREE L :BZ[bz]D["D5"]|1
guar.name.disp 30 FREE L VAL=IF{@BAR.PARAM.pt.or.guar.stmts="P" @p.guar.name;""
VAL=^BAR.GUAR.guar.urn,@guar.num^BAR.GUAR.guar.num,@Ne
VAL=xt(BAR.GUAR.guar.urn,BAR.GUAR.number.x),@BAR.GUAR.
VAL=guar.name}
guar.num 15 FREE L :BZ[bz]D["D5"]|0
guar.num.disp 15 FREE L VAL=IF{@BAR.PARAM.pt.or.guar.stmts="P" @guar.num;@guar
VAL=.id's.guar.num}
guar.occup 20 FREE L :BZ[bz]D["D6"]|0
guar.occup.disp 20 FREE L VAL=IF{@BAR.PARAM.pt.or.guar.stmts="P" @guar.occup;@gu
VAL=ar.id's.guar.occup}
guar.soc.sec 15 FREE L :BZ[bz]D["D5"]|10
guar.soc.sec.disp 15 FREE L VAL=IF{@BAR.PARAM.pt.or.guar.stmts="P" @guar.soc.sec;@
VAL=guar.id's.guar.soc.sec}
guar.sort.name 30 FREE L
guar.state 20 FREE L :BZ[bz]D["D5"]|6
guar.state.disp 20 FREE L VAL=IF{@BAR.PARAM.pt.or.guar.stmts="P" @guar.state;@gu
VAL=ar.id's.guar.state}
guar.zip 10 ZIP.POST L :BZ[bz]D["D5"]|7
guar.zip.disp 10 ZIP.POST L VAL=IF{@BAR.PARAM.pt.or.guar.stmts="P" @guar.zip;@guar
VAL=.id's.guar.zip}
hc.subscriber.inits 3 FREE L :BZ[bz]D["DCAN"]|1
hc.subscriber.relation 10 FREE L MIS.RELAT.DICT :BZ[bz]D["DCAN"]|2
health.care.number 14 FREE L :BZ[bz]D["DCAN"]|0
hold.stmt 1 YN L :BZ[bz]S|1
home.phone 18 PHONE L :BZ[bz]D["D1"]|8
id 44 URN L BAR.PAT VAL=@BAR.PAT.number_" "_@BAR.PAT.name'=" "
inhouse.status 10 CHOICE L VAL=IF{@bar.status="UB"!(@bar.status="IB") IF{@pt.type
VAL=="I" IF{@dis.date "DIS-IN";"INHOUSE"};"OUTPATIENT"
VAL=};""}
inpt.service 10 FREE L MIS.SVC.DICT :BZ[bz]D["D3"]|7
ins1.addr.disp 30 FREE L VAL=IF{@ins1.mnemonic.disp^XXX,@MIS.INS.DICT.address[X
VAL=XX];@insurance.addr[XXX]}
ins1.balance.disp 9 MONEY R VAL=IF{@ins1.mnemonic.disp^XXX @ins.balance[XXX]}
ins1.city.disp 20 FREE L VAL=IF{@ins1.mnemonic.disp^XXX,@MIS.INS.DICT.city[XXX]
VAL=;@insurance.city[XXX]}
ins1.mnemonic.disp 10 FREE L VAL=IF{@ins.mnemonic[1];@MIS.PARAM.self.pay.ins;"SP"}
ins1.name.disp 30 FREE L VAL=IF{@MIS.INS.DICT.name[@ins.mnemonic[1]^XXX];@insur
VAL=ance.name[XXX]}
ins1.phone.disp 30 PHONE L VAL=IF{@ins1.mnemonic.disp^XXX,@MIS.INS.DICT.phone[XXX
VAL=];@insurance.phone[XXX]}
ins1.state.disp 20 FREE L VAL=IF{@ins1.mnemonic.disp^XXX,@MIS.INS.DICT.state[XXX
VAL=];@insurance.state[XXX]}
ins1.zip.disp 10 FREE L VAL=IF{@ins1.mnemonic.disp^XXX,@MIS.INS.DICT.zip[XXX];
VAL=@insurance.zip[XXX]}
ins2.addr.disp 30 FREE L VAL=IF{@ins2.mnemonic.disp^XXX,@MIS.INS.DICT.address[X
VAL=XX];@insurance.addr[XXX]}
ins2.balance.disp 9 MONEY R VAL=IF{@ins2.mnemonic.disp^XXX @ins.balance[XXX]}
ins2.city.disp 20 FREE L VAL=IF{@ins2.mnemonic.disp^XXX,@MIS.INS.DICT.city[XXX]
VAL=;@insurance.city[XXX]}
ins2.mnemonic.disp 10 FREE L VAL=IF{@ins.mnemonic[2];@MIS.PARAM.self.pay.ins;"SP"}
ins2.name.disp 30 FREE L VAL=IF{@MIS.INS.DICT.name[@ins.mnemonic[2]^XXX];@insur
VAL=ance.name[XXX]}
ins2.phone.disp 30 PHONE L VAL=IF{@ins2.mnemonic.disp^XXX,@MIS.INS.DICT.phone[XXX
VAL=];@insurance.phone[XXX]}
ins2.state.disp 20 FREE L VAL=IF{@ins2.mnemonic.disp^XXX,@MIS.INS.DICT.state[XXX
VAL=];@insurance.state[XXX]}
ins2.zip.disp 10 FREE L VAL=IF{@ins2.mnemonic.disp^XXX,@MIS.INS.DICT.zip[XXX];
VAL=@insurance.zip[XXX]}
ins3.addr.disp 30 FREE L VAL=IF{@ins3.mnemonic.disp^XXX,@MIS.INS.DICT.address[X
VAL=XX];@insurance.addr[XXX]}
ins3.balance.disp 9 MONEY R VAL=IF{@ins3.mnemonic.disp^XXX @ins.balance[XXX]}
ins3.city.disp 20 FREE L VAL=IF{@ins3.mnemonic.disp^XXX,@MIS.INS.DICT.city[XXX]
VAL=;@insurance.city[XXX]}
ins3.mnemonic.disp 10 FREE L VAL=IF{@ins.mnemonic[3];@MIS.PARAM.self.pay.ins;"SP"}
ins3.name.disp 30 FREE L VAL=IF{@MIS.INS.DICT.name[@ins.mnemonic[3]^XXX];@insur
VAL=ance.name[XXX]}
ins3.phone.disp 30 PHONE L VAL=IF{@ins3.mnemonic.disp^XXX,@MIS.INS.DICT.phone[XXX
VAL=];@insurance.phone[XXX]}
ins3.state.disp 20 FREE L VAL=IF{@ins3.mnemonic.disp^XXX,@MIS.INS.DICT.state[XXX
VAL=];@insurance.state[XXX]}
ins3.zip.disp 10 FREE L VAL=IF{@ins3.mnemonic.disp^XXX,@MIS.INS.DICT.zip[XXX];
VAL=@insurance.zip[XXX]}
ins4.addr.disp 30 FREE L VAL=IF{@ins4.mnemonic.disp^XXX,@MIS.INS.DICT.address[X
VAL=XX];@insurance.addr[XXX]}
ins4.balance.disp 9 MONEY R VAL=IF{@ins4.mnemonic.disp^XXX @ins.balance[XXX]}
ins4.city.disp 20 FREE L VAL=IF{@ins4.mnemonic.disp^XXX,@MIS.INS.DICT.city[XXX]
VAL=;@insurance.city[XXX]}
ins4.mnemonic.disp 10 FREE L VAL=IF{@ins.mnemonic[4];@MIS.PARAM.self.pay.ins;"SP"}
ins4.name.disp 30 FREE L VAL=IF{@MIS.INS.DICT.name[@ins.mnemonic[4]^XXX];@insur
VAL=ance.name[XXX]}
ins4.phone.disp 30 PHONE L VAL=IF{@ins4.mnemonic.disp^XXX,@MIS.INS.DICT.phone[XXX
VAL=];@insurance.phone[XXX]}
ins4.state.disp 20 FREE L VAL=IF{@ins4.mnemonic.disp^XXX,@MIS.INS.DICT.state[XXX
VAL=];@insurance.state[XXX]}
ins4.zip.disp 10 FREE L VAL=IF{@ins4.mnemonic.disp^XXX,@MIS.INS.DICT.zip[XXX];
VAL=@insurance.zip[XXX]}
insurance.balance 9 SMONEY R :BZ[bz]|4
int.number 12 FREE L :BZ[bz]D|8
interest.held 1 YN L :BZ[bz]S|8
interest.last.posted 8 DATE L :BZ[bz]S|10
interest.reinstated 8 DATE L :BZ[bz]S|9
interest.total 12 MONEY R :BZ[bz]S|11
last.bill.txn 5 PINT R :BZ[bz]|9
last.hosp 30 FREE L :BZ[bz]D["D4"]|4
last.hosp.frm.date 8 DATE L :BZ[bz]D["D4"]|5
last.hosp.thr.date 8 DATE L :BZ[bz]D["D4"]|6
last.pay.date 8 DATE L :BZ[bz]|14
last.post.txn 5 PINT R :BZ[bz]|26
last.st.txn 5 PINT R :BZ[bz]|8
last.txn 5 PINT R :BZ[bz]|0
late.chg.total 9 SMONEY R :BZ[bz]|7
lifetime.rsrv.days 3 INT R :BZ[bz]D["U"]|2
lifetime.rsrv.rate 9 SMONEY R :BZ[bz]D["U"]|1
los 4 PINT R VAL=IF{@adm.date %Z.date.sub(IF{@dis.date;@.today},@ad
VAL=m.date)!1;0}
marital.status 10 FREE L MIS.MAR.STATUS :BZ[bz]D["D1"]|16
master.pt.urn 20 FREE L :BZ[bz]D["D1"]|1
mcal.2.month 1 FREE L :BZ[bz]D["ML"]|3
mcal.attachments 1 FREE L :BZ[bz]D["ML"]|2
mcal.date.ra.eomb 8 DATE L :BZ[bz]D["ML"]|5
mcal.emer.cert 1 FREE L :BZ[bz]D["ML"]|1
mcal.lab.addr1 38 FREE L :BZ[bz]D["ML"]|8
mcal.lab.addr2 38 FREE L :BZ[bz]D["ML"]|9
mcal.lab.name 38 FREE L :BZ[bz]D["ML"]|7
mcal.medicare 1 FREE L :BZ[bz]D["ML"]|4
mcal.medicare.disallowed 8 MONEY R :BZ[bz]D["ML"]|6
mcal.other.cov 1 FREE L :BZ[bz]D["ML"]|0
mcal.remark.sys.keep 1 YN L :BZ[bz]D["ML"]|10
mother 12 FREE L :BZ[bz]D["D4"]|22
moved.date 8 DATE L :BZ[bz]D|15
moved.to.acct 44 FREE L :BZ[bz]D|14
msa.code 10 FREE L MIS.MSA.DICT :BZ[bz]D["D1"]|23
multiplier.1 3 INT R :BZ[bz]D["U"]|15
multiplier.2 3 INT R :BZ[bz]D["U"]|16
name 30 NAME L :BZ[bz]D|1
newborn.adm.src 10 FREE L MIS.NEWBORN :BZ[bz]D["D4"]|2
newborn.weight.gr 6 PINT R :BZ[bz]D["N"]|2
newborn.weight.lbs 3 PINT R :BZ[bz]D["N"]|0
newborn.weight.ozs 2 PINT R :BZ[bz]D["N"]|1
next.stmt.ctrc.offset 2 PINT R :BZ[bz]NSD|4
next.stmt.date 8 DATE L :BZ[bz]NSD|0
next.stmt.date.disp 8 DATE L VAL=IF{"P"=@BAR.PARAM.pt.or.guar.stmts @BAR.PAT.next.s
VAL=tmt.date;@BAR.GUAR.next.stmt.date[@BAR.PAT.guar.id
VAL=]}
next.stmt.dunning.msg 8 FREE L BAR.DUN.MSG :BZ[bz]NSD|3
next.stmt.msg.number 2 PINT R :BZ[bz]NSD|1
next.stmt.no 3 PINT R :BZ[bz]S|0
next.stmt.period 3 PINT R :BZ[bz]NSD|2
next.stmt.seq.no 3 PINT R :BZ[bz]S|2
number 12 FREE L :BZ[bz]D|0
number.and.name 44 FREE L VAL=@p.BAR.PAT.number_" "_@p.BAR.PAT.name'=" "
occupation 20 FREE L :BZ[bz]D["D2"]|1
old.health.care.number 14 FREE L :BZ[bz]D["DCAN"]|3
on.hold.by 10 FREE L MIS.USER :BZ[bz]S|6
on.hold.date 8 DATE L :BZ[bz]S|7
other.phys 10 FREE L MIS.DOC.DICT :BZ[bz]D["D3"]|3
outpt.locn 10 FREE L MIS.LOCN.DICT :BZ[bz]D["D3"]|6
outpt.service 10 FREE L MIS.SVC.DICT :BZ[bz]D["D3"]|16
override.acct.type 8 FREE L BAR.ACCT.TYPE :BZ[bz]D["D1"]|19
override.msa 10 FREE L MIS.MSA.DICT :BZ[bz]D["D1"]|24
override.sp.biller 8 FREE L BAR.BILLER :BZ[bz]D["D1"]|21
override.sp.coll 8 FREE L BAR.COLLECTOR :BZ[bz]D["D1"]|20
prim.care.phys 10 FREE L MIS.DOC.DICT :BZ[bz]D["D3"]|15
primary.ins 10 FREE L MIS.INS.DICT VAL=IF{@BAR.PAT.ins.mnemonic[1];@MIS.PARAM.self.pay.in
VAL=s;"SP"}
primary.insurance 30 FREE L VAL=IF{@p.primary.ins^XXX,@MIS.INS.DICT.other.type[XXX
VAL=]="Y" @BAR.PAT.insurance.name[XXX];@MIS.INS.DICT.n
VAL=ame[XXX]}
print.cd.screen 0 FREE L VAL=IF{@cd.screen account^/account,%MIS.SCREEN.print(@
VAL=cd.screen,^@customer.def.fields,"",0),""}
print.cd.screen.verbatim 0 FREE L VAL=IF{@cd.screen account^/account,%MIS.SCREEN.print(@
VAL=cd.screen,^@customer.def.fields,1,0),""}
pro.chg.total 11 MONEY R :BZ[bz]|28
pt.balance 9 SMONEY R :BZ[bz]|3
pt.balance.billed 9 SMONEY R VAL=(@pt.balance-@ur.chg.total)
pt.rcvbl.balance 9 SMONEY R VAL=(@BAR.PAT.ar.chg.total-@BAR.PAT.insurance.balance)
pt.relat 10 FREE L MIS.RELAT.DICT :BZ[bz]D["D5"]|2
pt.status 8 FREE L BAR.PSTATS :BZ[bz]D["D3"]|5
pt.type 1 CHOICE L :BZ[bz]|19
race 10 FREE L MIS.RACE.DICT :BZ[bz]D["D1"]|13
rcpt.total 11 MONEY R VAL=%BAR.PAT.get.credit.total("R",account)
ref.total 11 MONEY R VAL=%BAR.PAT.get.credit.total("P",account)
reimb.drg 6 FREE L MIS.DRG.NAME :BZ[bz]D["D7"]|9
remark 50 FREE L :BZ[bz]D|3
remark1 39 FREE L :BZ[bz]D["U"]R|0
remark2 39 FREE L :BZ[bz]D["U"]R|1
remark3 39 FREE L :BZ[bz]D["U"]R|2
remark4 39 FREE L :BZ[bz]D["U"]R|3
remark5 39 FREE L :BZ[bz]D["U"]R|4
room 10 FREE L MIS.ROOM.DICT :BZ[bz]D["D3"]|8
ser.date 8 DATE L :BZ[bz]D["D4"]|11
ser.date.rec 8 DATE L :BZ[bz]D["D4"]|15
ser.dis.date 8 DATE L :BZ[bz]D["D4"]|12
ser.time 4 TIME L :BZ[bz]D["D4"]|14
sex 1 CHOICE L :BZ[bz]D["D1"]|12
soc.sec 15 FREE L :BZ[bz]D["D1"]|2
sort.id 44 FREE L
sort.name 30 NAME L :BZ[bz]D|2
sp.prog 10 FREE L MIS.SPEC.PROG :BZ[bz]D["D4"]|3
state 2 FREE L :BZ[bz]D["D1"]|6
status.date 8 DATE L VAL=%BAR.PAT.get.status.date(BAR.PAT.account)
stmt.age.date 8 DATE L :BZ[bz]S|13
stmt.date 8 DATE L VAL=@BAR.PAT.txn.ser.date["O",@BAR.PAT.last.st.txn]
stmt.date.and.hold 10 FREE L VAL=IF{@hold.stmt="Y"&(@BAR.PAT.guar.id's.hold.stmts="
VAL=Y") "B ";@hold.stmt="Y" "H ";@BAR.PAT.guar.id's.ho
VAL=ld.stmts="Y" "G "}_%Z.date.out(@BAR.PAT.txn.ser.da
VAL=te["O",@BAR.PAT.last.st.txn])
stmt.grp 8 FREE L BAR.STMT.GRP :BZ[bz]|27
stmt.reset 1 YN L :BZ[bz]S|5
stmt.start 8 DATE L :BZ[bz]S|4
stripped.num 12 FREE L :BZ[bz]D|9
suppress.stmt 1 YN L :BZ[bz]S|12
total.insurance.adjusts 9 MONEY R VAL=IF{@MIS.PARAM.self.pay.ins^SP,""^TOT,DO{@Next(BAR.
VAL=PAT.ins) IF{BAR.PAT.ins=SP;@BAR.PAT.ins.adj+TOT^TO
VAL=T}},TOT:2D}
total.insurance.receipts 9 MONEY R VAL=IF{@MIS.PARAM.self.pay.ins^SP,""^TOT,DO{@Next(BAR.
VAL=PAT.ins) IF{BAR.PAT.ins=SP;@BAR.PAT.ins.rcpt+TOT^T
VAL=OT}},TOT:2D}
total.insurance.refunds 9 MONEY R VAL=IF{@MIS.PARAM.self.pay.ins^SP,""^TOT,DO{@Next(BAR.
VAL=PAT.ins) IF{BAR.PAT.ins=SP;@BAR.PAT.ins.ref+TOT^TO
VAL=T}},TOT:2D}
total.patient.receipts 9 MONEY R VAL=IF{@MIS.PARAM.self.pay.ins^SP,""^TOT,DO{@Next(BAR.
VAL=PAT.ins) IF{BAR.PAT.ins=SP @BAR.PAT.ins.rcpt+TOT^T
VAL=OT;""}},TOT:2D}
total.patient.refunds 9 MONEY R VAL=IF{@MIS.PARAM.self.pay.ins^SP,""^TOT,DO{@Next(BAR.
VAL=PAT.ins) IF{BAR.PAT.ins=SP @BAR.PAT.ins.ref+TOT^TO
VAL=T;""}},TOT:2D}
total.selfpay.adjusts 9 MONEY R VAL=IF{@MIS.PARAM.self.pay.ins^SP,""^TOT,DO{@Next(BAR.
VAL=PAT.ins) IF{BAR.PAT.ins=SP @BAR.PAT.ins.adj+TOT^TO
VAL=T;""}},TOT:2D}
treat.auth.no 10 FREE L :BZ[bz]D["D4"]|7
type 8 FREE L BAR.ACCT.TYPE :BZ[bz]|10
type.of.bill 3 FREE L :BZ[bz]D["U"]|0
unit.number 26 FREE L :BZ[bz]D["D1"]|0
ur.app.from 8 DATE L :BZ[bz]D["D4"]|19
ur.app.thru 8 DATE L :BZ[bz]D["D4"]|20
ur.chg.total 9 SMONEY R :BZ[bz]|5
ur.code 1 INT R :BZ[bz]D["D4"]|18
ur.grace 2 INT R :BZ[bz]D["D4"]|21
usual.visit.insurances 1 YN L :BZ[bz]D["D1"]|22
vip 1 YN L :BZ[bz]D|12
vip.confidential.disp 19 FREE R VAL=IF{"Y"=@vip "<VIP>"}_IF{"Y"=@confidential "&
VAL=lt;CONFIDENTIAL>"}
visit.reason 50 FREE L :BZ[bz]D["D3"]|0
zcus.cl.postal 10 ZIP.POST L MIS.ZIP :BZ[bz]D["ZCUSCL"]|2
zcus.cl.province 30 FREE L :BZ[bz]D["ZCUSCL"]|1
zcus.comment1 30 FREE L :BZ[bz]D["D1"]ZCUSD|7
zcus.comment2 30 FREE L :BZ[bz]D["D1"]ZCUSD|8
zcus.comment3 30 FREE L :BZ[bz]D["D1"]ZCUSD|9
zcus.comment4 30 FREE L :BZ[bz]D["D1"]ZCUSD|10
zcus.comment5 30 FREE L :BZ[bz]D["D1"]ZCUSD|12
zcus.driver.bar.acct 44 URN L BAR.PAT :BZ[bz]D["D1"]ZCUSD3|8
zcus.driver.city 20 FREE L :BZ[bz]D["D1"]ZCUSD3|3
zcus.driver.district 10 FREE L MIS.CNTY.DICT :BZ[bz]D["D1"]ZCUSD3|7
zcus.driver.home.phone FREE L :BZ[bz]D["D1"]ZCUSD3|6
zcus.driver.postal.code 10 ZIP.POST L MIS.ZIP :BZ[bz]D["D1"]ZCUSD3|5
zcus.driver.province 30 FREE L :BZ[bz]D["D1"]ZCUSD3|4
zcus.driver.state 20 FREE L :BZ[bz]D["D1"]ZCUSD3|4
zcus.driver.street 30 FREE L :BZ[bz]D["D1"]ZCUSD3|1
zcus.driver.street2 30 FREE L :BZ[bz]D["D1"]ZCUSD3|2
zcus.driver.zip 10 ZIP.POST L MIS.ZIP :BZ[bz]D["D1"]ZCUSD3|5
zcus.er.driver 30 FREE L :BZ[bz]D["D1"]ZCUSD3|0
zcus.er.visit.type 1 CHOICE L :BZ[bz]D["D1"]ZCUSD3|9
zcus.mis.tax.code 3 FREE L MIS.TAX.CODE :BZ[bz]D["ZCUSCL"]|0
zcus.npa.name 35 FREE L :BZ[bz]D["D1"]ZCUSD|5
zcus.npa.staff.use 15 FREE L :BZ[bz]D["D1"]ZCUSD|11
zcus.pat.overseas.visitor 1 YN L :BZ[bz]D["D1"]ZCUSD|2
zcus.pat.perm.city 20 FREE L :BZ[bz]D["D1"]ZCUSD2|2
zcus.pat.perm.district 10 FREE L MIS.CNTY.DICT :BZ[bz]D["D1"]ZCUSD2|6
zcus.pat.perm.home.phone 18 FREE L :BZ[bz]D["D1"]ZCUSD2|5
zcus.pat.perm.postal.code 10 ZIP.POST L :BZ[bz]D["D1"]ZCUSD2|4
zcus.pat.perm.province 30 FREE L :BZ[bz]D["D1"]ZCUSD2|3
zcus.pat.perm.state 20 FREE L :BZ[bz]D["D1"]ZCUSD2|3
zcus.pat.perm.street 30 FREE L :BZ[bz]D["D1"]ZCUSD2|0
zcus.pat.perm.street2 30 FREE L :BZ[bz]D["D1"]ZCUSD2|1
zcus.pat.perm.zip 10 ZIP.POST L MIS.ZIP :BZ[bz]D["D1"]ZCUSD2|4
zcus.pat.temp.resident 1 YN L :BZ[bz]D["D1"]ZCUSD|3
zcus.ref.gp.referral.num 10 FREE L :BZ[bz]D["D1"]ZCUSD|6
zcus.uk.detail.last.txn 5 INT R :BZ[bz]ZCUSUKT|0
zcus.uk.location 10 FREE L MIS.LOCN.DICT :BZ[bz]D["D1"]ZCUSD|4
zcus.uk.nok.title 10 FREE L :BZ[bz]D["D1"]ZCUSD|1
zcus.uk.patient.title 10 FREE L :BZ[bz]D["D1"]ZCUSD|0
zcus.uk.postal 10 ZIP.POST L MIS.ZIP :BZ[bz]D["D1"]ZCUSD2|8
zcus.uk.province 20 FREE L :BZ[bz]D["D1"]ZCUSD2|7
zero.date 8 DATE L :BZ[bz]|16
zip 10 ZIP.POST L :BZ[bz]D["D1"]|7
Ì € i 2
bar.acct.old.canadian.num (can.acct.numbers)
[account, old.can.number.seq.no]
:BZ[bz]D["CNN",bzCQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
old.can.number.seq.no 2 PINT R bzCQ
old.can.acct.number 12 FREE L :BZ[bz]D["CNN",bzCQ]|0
Ì € i 2
bar.acct.conditions (conditions)
[account, seq.no]
:BZ[bz]D["C",bzCN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
seq.no 1 PINT R bzCN
cond 10 FREE L MIS.COND :BZ[bz]D["C",bzCN]|0
Ì € i 2
bar.acct.customer.def.queries (customer.def.queries)
[account, cd.query]
:BZ[bz]D["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 :BZ[bz]D["CD",ggv]INIT
cd.response 75 QRY.RESP L :BZ[bz]D["CD",ggv]|0
Ì € i 2
bar.acct.cust.def.mult.queries (customer.def.mult.queries)
[account,cd.query, cdm.seq.no]
:BZ[bz]D["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 :BZ[bz]D["CD",ggv]M[ggvN]|0
Ì € i 2
bar.acct.apc.total (apc.data)
[account, apc.date]
:BZ[bz]D["D7"]APC[bzapD]
Field Name Len Dat Typ J DPM Offset/Local/VAL
apc.date 8 DATE L bzapD
apc.grouped.thru.date 8 DATE L :BZ[bz]D["D7"]APC[bzapD]|6
apc.outlier 10 DEC2 R :BZ[bz]D["D7"]APC[bzapD]|7
apc.status 1 CHOICE L :BZ[bz]D["D7"]APC[bzapD]|4
apc.total.copay 10 DEC2 R :BZ[bz]D["D7"]APC[bzapD]|2
apc.total.cost.wt 10 DEC R :BZ[bz]D["D7"]APC[bzapD]|0
apc.total.pay 10 DEC2 R :BZ[bz]D["D7"]APC[bzapD]|1
apc.total.reimb 10 DEC3 R :BZ[bz]D["D7"]APC[bzapD]|3
apc.version 10 FREE L MIS.APC.VERSION:BZ[bz]D["D7"]APC[bzapD]|5
Ì € i 2
bar.acct.apc (apcs)
[account,apc.date, apc.seq.no]
:BZ[bz]D["D7"]APC[bzapD,bzapS]
Field Name Len Dat Typ J DPM Offset/Local/VAL
apc.seq.no 3 PINT R bzapS
apc 5 PINT R MIS.APC :BZ[bz]D["D7"]APC[bzapD,bzapS]|0
apc.copay 10 DEC2 R :BZ[bz]D["D7"]APC[bzapD,bzapS]|4
apc.cs.wt 10 DEC R :BZ[bz]D["D7"]APC[bzapD,bzapS]|1
apc.medical 1 YN L :BZ[bz]D["D7"]APC[bzapD,bzapS]|7
apc.pay 10 DEC2 R :BZ[bz]D["D7"]APC[bzapD,bzapS]|3
apc.pct 6 DEC2 R :BZ[bz]D["D7"]APC[bzapD,bzapS]|2
apc.reimb 10 DEC2 R VAL=(@apc.pay+@apc.copay)
apc.st 2 FREE L :BZ[bz]D["D7"]APC[bzapD,bzapS]|6
apc.type 1 FREE L :BZ[bz]D["D7"]APC[bzapD,bzapS]|5
Ì € i 2
bar.acct.apc.cpts (apc.cpts)
[account,apc.date,apc.seq.no, apc.cpt.seq]
:BZ[bz]D["D7"]APC[bzapD,bzapS]C[bzapC]
Field Name Len Dat Typ J DPM Offset/Local/VAL
apc.cpt.seq 4 PINT R bzapC
apc.cpt 8 FREE L ABS.CPT :BZ[bz]D["D7"]APC[bzapD,bzapS]C[bzapC]|0
apc.cpt.date 8 DATE L :BZ[bz]D["D7"]APC[bzapD,bzapS]C[bzapC]|6
apc.cpt.loc 3 FREE L MIS.CPT.LOC :BZ[bz]D["D7"]APC[bzapD,bzapS]C[bzapC]|8
apc.cpt.mod1 2 FREE L MIS.CPT.MOD :BZ[bz]D["D7"]APC[bzapD,bzapS]C[bzapC]|1
apc.cpt.mod2 2 FREE L MIS.CPT.MOD :BZ[bz]D["D7"]APC[bzapD,bzapS]C[bzapC]|2
apc.cpt.mod3 2 FREE L MIS.CPT.MOD :BZ[bz]D["D7"]APC[bzapD,bzapS]C[bzapC]|3
apc.cpt.mod4 2 FREE L MIS.CPT.MOD :BZ[bz]D["D7"]APC[bzapD,bzapS]C[bzapC]|4
apc.cpt.mod5 2 FREE L MIS.CPT.MOD :BZ[bz]D["D7"]APC[bzapD,bzapS]C[bzapC]|5
apc.cpt.qty 3 INT R :BZ[bz]D["D7"]APC[bzapD,bzapS]C[bzapC]|7
apc.cpt.rev.code 4 FREE L :BZ[bz]D["D7"]APC[bzapD,bzapS]C[bzapC]|9
Ì € i 2
bar.acct.apc.reimb.date (apc.reimb.date)
[account, apcr.date]
:BZ[bz]D["D7"]APCR[bzapR]
Field Name Len Dat Typ J DPM Offset/Local/VAL
apcr.date 8 DATE L bzapR
Ì € i 2
bar.acct.apc.reimb.data (apc.reimb.data)
[account,apcr.date, apcr.seq.no]
:BZ[bz]D["D7"]APCR[bzapR,bzapQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
apcr.seq.no 3 PINT R bzapQ
apcr 5 PINT R MIS.APC :BZ[bz]D["D7"]APCR[bzapR,bzapQ]|0
Ì € i 2
bar.acct.apg (apgs)
[apg.seq.no]
:BZ[bz]D["D7"]A[bzapS]
Field Name Len Dat Typ J DPM Offset/Local/VAL
apg.seq.no 3 PINT R bzapS
apg 6 PINT R MIS.APG.NAME :BZ[bz]D["D7"]A[bzapS]|0
apg.cs.wt 10 DEC R :BZ[bz]D["D7"]A[bzapS]|1
apg.pct 6 DEC2 R :BZ[bz]D["D7"]A[bzapS]|2
Ì € i 2
bar.acct.cpt.codes (cpt.codes)
[account, cpt.seq.no]
:BZ[bz]D["D7"]CP[bzCPT]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cpt.seq.no 1 URN L bzCPT
cpt.code 8 FREE L :BZ[bz]D["D7"]CP[bzCPT]|0
cpt.code.date 8 DATE L :BZ[bz]D["D7"]CP[bzCPT]|2
cpt.code.desc 30 FREE L :BZ[bz]D["D7"]CP[bzCPT]|1
cpt.code.loc 3 FREE L MIS.CPT.LOC :BZ[bz]D["D7"]CP[bzCPT]|3
cpt.code.rev.code 4 FREE L :BZ[bz]D["D7"]CP[bzCPT]|4
Ì € i 2
bar.acct.cpt.code.modifiers (cpt.codes.mods)
[account,cpt.seq.no, cpt.mod.no]
:BZ[bz]D["D7"]CP[bzCPT]M[bzCPM]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cpt.mod.no 2 PINT R bzCPM
cpt.mod 2 FREE L MIS.CPT.MOD :BZ[bz]D["D7"]CP[bzCPT]M[bzCPM]|0
cpt.mod.desc 30 FREE L :BZ[bz]D["D7"]CP[bzCPT]M[bzCPM]|1
Ì € i 2
bar.acct.diagnoses (diag)
[account, diag.seq.no]
:BZ[bz]D["D7"]DX[bzDN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
diag.seq.no 1 URN L bzDN
diag.code 6 FREE L :BZ[bz]D["D7"]DX[bzDN]|0
diag.desc 45 FREE L :BZ[bz]D["D7"]DX[bzDN]|1
Ì € i 2
bar.acct.surgical.procs (surg.proc)
[account, proc.seq.no]
:BZ[bz]D["D7"]P[bzPN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
proc.seq.no 1 URN L bzPN
proc.code 6 FREE L :BZ[bz]D["D7"]P[bzPN]|0
proc.date 8 DATE L :BZ[bz]D["D7"]P[bzPN]|1
proc.desc 45 FREE L :BZ[bz]D["D7"]P[bzPN]|3
proc.dr 10 FREE L MIS.DOC.DICT :BZ[bz]D["D7"]P[bzPN]|2
proc.dr.number 10 FREE L :BZ[bz]D["D7"]P[bzPN]|4
Ì € i 2
bar.acct.employee (emp.info)
[account, eid.seq]
:BZ[bz]D["E",bzEN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
eid.seq 1 PINT R bzEN
eid 10 FREE L MIS.EID :BZ[bz]D["E",bzEN]|0
emplr.id 10 FREE L MIS.EMPLR.DICT :BZ[bz]D["E",bzEN]|2
emplr.locn 30 FREE L :BZ[bz]D["E",bzEN]|4
emplr.name 30 FREE L :BZ[bz]D["E",bzEN]|3
emplye.id 11 FREE L :BZ[bz]D["E",bzEN]|6
esc 10 FREE L MIS.EMP.STATUS :BZ[bz]D["E",bzEN]|1
Ì € i 2
bar.hhrg.data (hhrg)
[account, cert.start.date]
:BZ[bz]D["D9",bzCSD]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cert.start.date 8 DATE L bzCSD
cert.claim.no 12 FREE L :BZ[bz]D["D9",bzCSD]|1
cert.end.date 8 DATE L :BZ[bz]D["D9",bzCSD]|0
hhrg.amount 15 MONEY R VAL=%BAR.PAT.hhrg.amount(account,hhrg.code,cert.start.
VAL=date,MIS.MSA.DICT.code)
Ì € i 2
bar.hhrg.visits (hhrg.visits)
[account,cert.start.date, hhrg.start.date]
:BZ[bz]D["D9",bzCSD]V[bzHSD]
Field Name Len Dat Typ J DPM Offset/Local/VAL
hhrg.start.date 8 DATE L bzHSD
hhrg.assessment.code 2 FREE L :BZ[bz]D["D9",bzCSD]V[bzHSD]|3
hhrg.assessment.date 8 DATE L :BZ[bz]D["D9",bzCSD]V[bzHSD]|2
hhrg.assessment.time 4 HHMM L :BZ[bz]D["D9",bzCSD]V[bzHSD]|6
hhrg.code 10 FREE L MIS.HHRG.DICT :BZ[bz]D["D9",bzCSD]V[bzHSD]|0
hhrg.end.date 8 DATE L :BZ[bz]D["D9",bzCSD]V[bzHSD]|1
hhrg.hipps 5 FREE L :BZ[bz]D["D9",bzCSD]V[bzHSD]|4
hhrg.oasis.key 18 FREE L :BZ[bz]D["D9",bzCSD]V[bzHSD]|5
Ì € i 2
hhrg.visits.audit.date (hhrg.visits.aud.date)
[account,cert.start.date,hhrg.start.date, aud.hh.asmnt.date]
:BZ[bz]D["D9",bzCSD]V[bzHSD,hasD]
Field Name Len Dat Typ J DPM Offset/Local/VAL
aud.hh.asmnt.date 8 DATE L hasD
Ì € i 2
hhrg.visits.audit (hhrg.visits.audit)
[account,cert.start.date,hhrg.start.date,aud.hh.asmnt.date, aud.hh.asmnt.time]
:BZ[bz]D["D9",bzCSD]V[bzHSD,hasD,hasT]
Field Name Len Dat Typ J DPM Offset/Local/VAL
aud.hh.asmnt.time 4 HHMM L hasT
aud.hh.asmnt.code 2 FREE L :BZ[bz]D["D9",bzCSD]V[bzHSD,hasD,hasT]|4
aud.hh.code 10 FREE L MIS.HHRG.DICT :BZ[bz]D["D9",bzCSD]V[bzHSD,hasD,hasT]|1
aud.hh.end.date 8 DATE L :BZ[bz]D["D9",bzCSD]V[bzHSD,hasD,hasT]|3
aud.hh.hipps 5 FREE L :BZ[bz]D["D9",bzCSD]V[bzHSD,hasD,hasT]|5
aud.hh.oasis.key 18 FREE L :BZ[bz]D["D9",bzCSD]V[bzHSD,hasD,hasT]|6
Ì € i 2
bar.hhrg.visit.audit.diag (hhrg.visit.audit.diag)
[account,cert.start.date,hhrg.start.date,aud.hh.asmnt.date,aud.hh.asmnt.time, aud.hh.dx.seq.no]
:BZ[bz]D["D9",bzCSD]V[bzHSD,hasD,hasT]D[bzHVS]
Field Name Len Dat Typ J DPM Offset/Local/VAL
aud.hh.dx.seq.no 2 PINT R bzHVS
aud.hh.dx.code 7 FREE L :BZ[bz]D["D9",bzCSD]V[bzHSD,hasD,hasT]D[bzHVS]|0
Ì i 2
bar.hhrg.visit.diag (hhrg.visit.diag)
[account,cert.start.date,hhrg.start.date2, hhrg.dx.seq.no]
:BZ[bz]D["D9",bzCSD]VD[bzHSD]D[bzHDV]
Field Name Len Dat Typ J DPM Offset/Local/VAL
hhrg.dx.seq.no 2 PINT R bzHDV
hhrg.dx.code 7 FREE L :BZ[bz]D["D9",bzCSD]VD[bzHSD]D[bzHDV]|0
Ì € i 2
bar.acct.calif.remarks (medi.cal.remarks)
[account, mcal.remark.queue]
:BZ[bz]D["ML"]R[bzMLQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
mcal.remark.queue 3 PINT R bzMLQ
mcal.remark 60 FREE L :BZ[bz]D["ML"]R[bzMLQ]|0
Ì € i 2
bar.acct.calif.sys.remarks (medi.cal.remarks.sys)
[account, mcal.remark.sys.queue]
:BZ[bz]D["ML"]S[bzMRS]
Field Name Len Dat Typ J DPM Offset/Local/VAL
mcal.remark.sys.queue 3 PINT R bzMRS
mcal.remark.sys 65 FREE L :BZ[bz]D["ML"]S[bzMRS]|0
Ì € i 2
bar.acct.moved.frm.accts (moved.from.accts)
[account, moved.from.acct]
:BZ[bz]D["MF",bzmf]
Field Name Len Dat Typ J DPM Offset/Local/VAL
moved.from.acct 44 URN L bzmf
Ì € i 2
bar.acct.non.covered.periods (non.cov)
[account, non.cov.frm]
:BZ[bz]D["U1",bzND]
Field Name Len Dat Typ J DPM Offset/Local/VAL
non.cov.frm 8 DATE L bzND
non.cov.thru 8 DATE L :BZ[bz]D["U1",bzND]|0
Ì € i 2
bar.acct.occurances (occurances)
[account, occur.seq.no]
:BZ[bz]D["O",bzON]
Field Name Len Dat Typ J DPM Offset/Local/VAL
occur.seq.no 1 PINT R bzON
occur.date 8 DATE L :BZ[bz]D["O",bzON]|1
occur.time 4 TIME L :BZ[bz]D["O",bzON]|2
occur.type 10 FREE L MIS.ACCID.TYPE :BZ[bz]D["O",bzON]|0
Ì € i 2
bar.acct.rugs.codes (rugs)
[account, rugs.seq.no]
:BZ[bz]D["D8",bzLCN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
rugs.seq.no 3 PINT R bzLCN
rugs.code.mcr.w.modifier 5 FREE L VAL=@rugs.mcr.code_@rugs.modifier.mcr
rugs.end.date 8 DATE L :BZ[bz]D["D8",bzLCN]|3
rugs.mcd.code 3 FREE L MIS.RUGS.DICT :BZ[bz]D["D8",bzLCN]|1
rugs.mcr.code 3 FREE L MIS.RUGS.DICT :BZ[bz]D["D8",bzLCN]|0
rugs.mds.ref.date 8 DATE L :BZ[bz]D["D8",bzLCN]|5
rugs.mds.urn 8 FREE L :BZ[bz]D["D8",bzLCN]|4
rugs.modifier.mcr 2 FREE L :BZ[bz]D["D8",bzLCN]|6
rugs.start.date 8 DATE L :BZ[bz]D["D8",bzLCN]|2
Ì € i 2
bar.acct.value.codes (value.codes)
[account, val.seq.no]
:BZ[bz]D["V",bzVN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
val.seq.no 2 PINT R bzVN
value.amt 9 FREE L :BZ[bz]D["V",bzVN]|1
value.code 8 FREE L BAR.UB82.VALCDS:BZ[bz]D["V",bzVN]|0
Ì € i 2
zcus.acct.rta.patients (zcus.rta)
[account, zcus.rta.accounts]
:BZ[bz]D["ZCUSRTA",rta]
Field Name Len Dat Typ J DPM Offset/Local/VAL
zcus.rta.accounts 44 URN L BAR.PAT rta
Ì € i 2
bar.acct.bills (bills)
[account, bill.no]
:BZ[bz]B[bzBN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
bill.no 3 INT R bzBN
additional.bill 5 PINT R :BZ[bz]B[bzBN]|39
bill.charges 10 SMONEY R :BZ[bz]B[bzBN]|5
bill.eff.date 8 DATE L :BZ[bz]B[bzBN]|37
bill.from.date 8 DATE L :BZ[bz]B[bzBN]DR|0
bill.net.pre.ib 10 SMONEY R :BZ[bz]B[bzBN]|21
bill.next.ub.ptr 5 PINT R :BZ[bz]B[bzBN]DR|2
bill.prof.comp 10 SMONEY R :BZ[bz]B[bzBN]|22
bill.rule 8 FREE L BAR.BRULE :BZ[bz]B[bzBN]|1
bill.status 11 CHOICE L :BZ[bz]B[bzBN]|7
bill.thru.date 8 DATE L :BZ[bz]B[bzBN]DR|1
bill.type 10 CHOICE L :BZ[bz]B[bzBN]|4
bill.user 10 FREE L MIS.USER :BZ[bz]B[bzBN]O|1
bill.writeoff 10 SMONEY R :BZ[bz]B[bzBN]|20
cutoff.date 8 DATE L :BZ[bz]B[bzBN]|0
deductible 8 SMONEY R :BZ[bz]B[bzBN]|27
first.trans.date 8 DATE L :BZ[bz]B[bzBN]|6
hold.bill 1 YN L :BZ[bz]B[bzBN]|9
initial.bill 1 YN L :BZ[bz]B[bzBN]|40
last.mark 5 PINT R :BZ[bz]B[bzBN]|3
last.post 5 PINT R :BZ[bz]B[bzBN]|29
last.trans.date 8 DATE L :BZ[bz]B[bzBN]|8
lc.on.stmts.pre.4.4 8 SMONEY R :BZ[bz]B[bzBN]|24
mark.ptr 5 PINT R :BZ[bz]B[bzBN]|2
ncovd.priv.rm 8 SMONEY R :BZ[bz]B[bzBN]|25
old.pt.net.deleted 8 SMONEY R :BZ[bz]B[bzBN]|19
other.holds 7 FREE L :BZ[bz]B[bzBN]O|0
override.bill.user 10 FREE L MIS.USER :BZ[bz]B[bzBN]O|2
post.date 8 DATE L :BZ[bz]B[bzBN]|15
post.ptr 5 PINT R :BZ[bz]B[bzBN]|31
pro.rule 10 FREE L BAR.PRORATE :BZ[bz]B[bzBN]|18
prorate.date 8 DATE L :BZ[bz]B[bzBN]|17
pt.exp.reimb 10 MONEY R :BZ[bz]B[bzBN]|36
pt.no.rcpts 3 INT R :BZ[bz]B[bzBN]|13
pt.num.rcpts 3 INT R :BZ[bz]B[bzBN]|35
pt.pro.amt 10 SMONEY R :BZ[bz]B[bzBN]|10
pt.real.bal 10 SMONEY R :BZ[bz]B[bzBN]|34
pt.writeoff 10 SMONEY R :BZ[bz]B[bzBN]|11
pt.writeoff.proc 10 FREE L BAR.PROC :BZ[bz]B[bzBN]|14
rev.last.bill 5 PINT R :BZ[bz]B[bzBN]|38
xxx.deleted.acct.charges 8 SMONEY R :BZ[bz]B[bzBN]|23
xxx.deleted.bal.fwd 10 SMONEY R :BZ[bz]B[bzBN]|33
xxx.pt.exp.adj.not.used 10 SMONEY R :BZ[bz]B[bzBN]|12
zcus.uk.editing.date 8 DATE L :BZ[bz]B[bzBN]ZCUSUKC|3
zcus.uk.editing.user 10 FREE L MIS.USER :BZ[bz]B[bzBN]ZCUSUKC|1
zcus.uk.initiating.date 8 DATE L :BZ[bz]B[bzBN]ZCUSUKC|2
zcus.uk.initiating.user 10 FREE L MIS.USER :BZ[bz]B[bzBN]ZCUSUKC|0
Ì € i 2
bar.acct.ins.for.claim (bills.claims.ins)
[account,bill.no, bills.claim,bills.claim.ins]
:BZ[bz]B[bzBN]F1[bec,ggm]
Field Name Len Dat Typ J DPM Offset/Local/VAL
bills.claim 10 FREE L BAR.CLAIM bec
bills.claim.ins 10 FREE L MIS.INS.DICT ggm
claim.amount 10 SMONEY R :BZ[bz]B[bzBN]F1[bec,ggm]|8
claim.first.fail.date 8 DATE L :BZ[bz]B[bzBN]F1[bec,ggm]|9
claim.from 8 DATE L :BZ[bz]B[bzBN]F1[bec,ggm]|3
claim.ins.1 10 FREE L MIS.INS.DICT :BZ[bz]B[bzBN]F1[bec,ggm]|5
claim.ins.2 10 FREE L MIS.INS.DICT :BZ[bz]B[bzBN]F1[bec,ggm]|6
claim.ins.3 10 FREE L MIS.INS.DICT :BZ[bz]B[bzBN]F1[bec,ggm]|7
claim.ins.date 8 DATE L :BZ[bz]B[bzBN]F1[bec,ggm]|1
claim.ins.dcn 16 FREE L :BZ[bz]B[bzBN]F1[bec,ggm]|11
claim.ins.status 1 FREE L :BZ[bz]B[bzBN]F1[bec,ggm]|0
claim.ins.tob3 1 FREE L :BZ[bz]B[bzBN]F1[bec,ggm]|12
claim.ins.ucr 8 FREE L :BZ[bz]B[bzBN]F1[bec,ggm]|10
claim.ins.user 10 FREE L MIS.USER :BZ[bz]B[bzBN]F1[bec,ggm]|2
claim.thru 8 DATE L :BZ[bz]B[bzBN]F1[bec,ggm]|4
Ì € i 2
bar.acct.claim.txns.for.bills (bills.claims.ins.bills)
[account,bill.no,bills.claim,bills.claim.ins, claim.bill]
:BZ[bz]B[bzBN]F1[bec,ggm]B[bzBL]
Field Name Len Dat Typ J DPM Offset/Local/VAL
claim.bill 3 INT R bzBL
Ì € i 2
bar.acct.chks.for.claim.ins (bills.claims.ins.checks)
[account,bill.no,bills.claim,bills.claim.ins, claim.ins.check]
:BZ[bz]B[bzBN]F1[bec,ggm]K[bek]
Field Name Len Dat Typ J DPM Offset/Local/VAL
claim.ins.check 15 FREE L BAR.CLAIM.CHK bek
failed.cc.msg 30 FREE L :BZ[bz]B[bzBN]F1[bec,ggm]K[bek]|0
failed.chk.override 1 FREE L :BZ[bz]B[bzBN]F1[bec,ggm]K[bek]|1
Ì € i 2
bar.acct.chg.txns.for.bills (bills.date.range.txns)
[account,bill.no, bill.from.txn]
:BZ[bz]B[bzBN]DR[bzT]
Field Name Len Dat Typ J DPM Offset/Local/VAL
bill.from.txn 5 PINT R bzT
bill.thru.txn 5 PINT R :BZ[bz]B[bzBN]DR[bzT]|0
Ì € i 2
bar.acct.bill.failed.pro.chks (bills.pro.checks)
[account,bill.no, pro.check]
:BZ[bz]B[bzBN]PC[bek]
Field Name Len Dat Typ J DPM Offset/Local/VAL
pro.check 15 FREE L BAR.CLAIM.CHK bek
failed.pc.msg 30 FREE L :BZ[bz]B[bzBN]PC[bek]|0
Ì € i 2
bar.acct.bills.chg.categories (chg.categ)
[account,bill.no, chg.cat]
:BZ[bz]B[bzBN]CC[br]
Field Name Len Dat Typ J DPM Offset/Local/VAL
chg.cat 8 FREE L BAR.CH.CAT br
categ.amt 9 SMONEY R :BZ[bz]B[bzBN]CC[br]|2
categ.count 4 INT R :BZ[bz]B[bzBN]CC[br]|3
Ì € i 2
bar.acct.bill.proration (proration)
[account,bill.no, pro.ins.order]
:BZ[bz]B[bzBN]P[bzIO]
Field Name Len Dat Typ J DPM Offset/Local/VAL
pro.ins.order 1 PINT R bzIO
bill.rcpts 3 INT R :BZ[bz]B[bzBN]P[bzIO]|12
pro.amt 10 SMONEY R :BZ[bz]B[bzBN]P[bzIO]|1
pro.exp.reimb 10 MONEY R :BZ[bz]B[bzBN]P[bzIO]|15
pro.ins 10 FREE L MIS.INS.DICT :BZ[bz]B[bzBN]P[bzIO]|0
pro.num.rcpt 3 INT R :BZ[bz]B[bzBN]P[bzIO]|2
pro.writeoff 9 SMONEY R :BZ[bz]B[bzBN]P[bzIO]|6
pro.writeoff.proc 10 FREE L BAR.PROC :BZ[bz]B[bzBN]P[bzIO]|8
pro.writeoff.proc2 10 FREE L BAR.PROC :BZ[bz]B[bzBN]P[bzIO]|17
pro.writeoff2 9 SMONEY R :BZ[bz]B[bzBN]P[bzIO]|16
timeout.delay 3 INT R :BZ[bz]B[bzBN]P[bzIO]|14
xxx.bill.ins.bal.deleted 10 SMONEY R :BZ[bz]B[bzBN]P[bzIO]|10
xxx.bill.real.bal.deleted 10 SMONEY R :BZ[bz]B[bzBN]P[bzIO]|11
xxx.pro.exp.adj.not.used 9 SMONEY R :BZ[bz]B[bzBN]P[bzIO]|5
Ì € i 2
zcus.uk.bill.comment.text (zcus.uk.bill.comment.text)
[account,bill.no, zcus.uk.comment.text.q]
:BZ[bz]B[bzBN]ZCUSUKC["ZCUSTXT",bzTQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
zcus.uk.comment.text.q 3 PINT R bzTQ
zcus.uk.comment.text.line 40 FREE L :BZ[bz]B[bzBN]ZCUSUKC["ZCUSTXT",bzTQ]
Ì € i 2
bar.client.aged.balances (cl.aged.ar)
[account, cl.age.date]
:BZ[bz]1[bzCD]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cl.age.date 8 DATE L bzCD
cl.age.amount 9 SMONEY R :BZ[bz]1[bzCD]
cl.f.inq.bill.date 8 DATE L VAL=+@cl.aged.ar[account,""]^cl.age.date
cl.inq.bill.amount 9 SMONEY R VAL=IF{cl.age.date @cl.age.amount}
cl.inq.bill.date 8 DATE L VAL=IF{cl.age.date +@cl.aged.ar[account,cl.age.date]^c
VAL=l.age.date}
cl.inq.bill.days 3 PINT R VAL=IF{cl.age.date %Z.date.sub(@.today,cl.age.date)}
Ì € i 2
bar.cl.dict.alt.cd.priority (cl.alt.code.priorities)
[account, cl.alt.code.priority]
:BZ[bz]D["ACP",bzACP]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cl.alt.code.priority 2 PINT R bzACP
cl.alt.code.type 10 FREE L :BZ[bz]D["ACP",bzACP]|0
Ì € i 2
bar.client.discounts (cl.discount.structure)
[account, cl.discount.dollar.volume]
:BZ[bz]D["C3",bzCV]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cl.discount.dollar.volume 10 MONEY R bzCV
cl.discount.per.cent 6 PDEC R :BZ[bz]D["C3",bzCV]
Ì € i 2
bar.client.special.prices (cl.special.rates)
[account, cl.procedure]
:BZ[bz]D["C4",bd]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cl.procedure 10 FREE L BAR.PROC bd
cl.procedure.amount 9 MONEY R :BZ[bz]D["C4",bd]
Ì € i 2
bar.txns.needing.phys (doctor.need.txn)
[account, physician.identifier]
:BZ[bz]MD[byUR]
Field Name Len Dat Typ J DPM Offset/Local/VAL
physician.identifier 20 URN L byUR
performing.physician 10 FREE L MIS.DOC.DICT :BZ[bz]MD[byUR]|0
Ì € i 2
bar.acct.ins.order (ins.order)
[account, insurance.order]
:BZ[bz]O[bzIO]
Field Name Len Dat Typ J DPM Offset/Local/VAL
insurance.order 2 PINT R bzIO
ins.mnemonic 10 FREE L MIS.INS.DICT :BZ[bz]O[bzIO]|0
Ì € i 2
bar.acct.insurance.ledger (insurance.ledger)
[account, ins]
:BZ[bz]0[ggm]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ins 10 FREE L MIS.INS.DICT ggm
ins.adj 9 MONEY R :BZ[bz]0[ggm]|4
ins.auto.transfer 9 MONEY R :BZ[bz]0[ggm]|7
ins.balance 9 MONEY R :BZ[bz]0[ggm]|0
ins.biller 8 FREE L BAR.BILLER :BZ[bz]0[ggm]|17
ins.collector 8 FREE L BAR.COLLECTOR :BZ[bz]0[ggm]|9
ins.exp.reimb 10 MONEY R :BZ[bz]0[ggm]|15
ins.last.pay.txn 4 INT R :BZ[bz]0[ggm]|16
ins.manual.edit 9 MONEY R :BZ[bz]0[ggm]|6
ins.num.adjs 3 PINT R :BZ[bz]0[ggm]|12
ins.num.exp.rcpts 4 PINT R :BZ[bz]0[ggm]|10
ins.num.rcpts 3 PINT R :BZ[bz]0[ggm]|11
ins.num.refs 3 PINT R :BZ[bz]0[ggm]|13
ins.nxt.reminder.dt 8 DATE L :BZ[bz]0[ggm]|19
ins.orig.post.date 8 DATE L :BZ[bz]0[ggm]|18
ins.prorate.adj 9 MONEY R :BZ[bz]0[ggm]|2
ins.prorate.amount 9 MONEY R :BZ[bz]0[ggm]|1
ins.rcpt 9 MONEY R :BZ[bz]0[ggm]|3
ins.ref 9 MONEY R :BZ[bz]0[ggm]|5
transfer.date 8 DATE L :BZ[bz]0[ggm]|14
xxx.ins.exp.adj.not.used 9 MONEY R :BZ[bz]0[ggm]|8
Ì € i 2
bar.acct.ins.bill.ledger (insurance.bill.ledger)
[account,ins, ins.bill.no]
:BZ[bz]0[ggm]B[bzBN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ins.bill.no 3 FREE L bzBN
ins.bill.adj 9 MONEY R :BZ[bz]0[ggm]B[bzBN]|4
ins.bill.age.date 8 DATE L :BZ[bz]0[ggm]B[bzBN]|16
ins.bill.auto.transfer 9 MONEY R :BZ[bz]0[ggm]B[bzBN]|7
ins.bill.balance 9 SMONEY R :BZ[bz]0[ggm]B[bzBN]|0
ins.bill.date.sent 8 DATE L :BZ[bz]0[ggm]B[bzBN]|17
ins.bill.exp.reimb 10 MONEY R :BZ[bz]0[ggm]B[bzBN]|15
ins.bill.manual.edit 9 MONEY R :BZ[bz]0[ggm]B[bzBN]|6
ins.bill.num.adjs 3 PINT R :BZ[bz]0[ggm]B[bzBN]|12
ins.bill.num.exp.rcpts 4 PINT R :BZ[bz]0[ggm]B[bzBN]|10
ins.bill.num.rcpts 3 PINT R :BZ[bz]0[ggm]B[bzBN]|11
ins.bill.num.refs 3 PINT R :BZ[bz]0[ggm]B[bzBN]|13
ins.bill.prorate.adj 9 MONEY R :BZ[bz]0[ggm]B[bzBN]|2
ins.bill.prorate.amount 9 MONEY R :BZ[bz]0[ggm]B[bzBN]|1
ins.bill.rcpt 9 MONEY R :BZ[bz]0[ggm]B[bzBN]|3
ins.bill.ref 9 MONEY R :BZ[bz]0[ggm]B[bzBN]|5
ins.bill.resolved.date 8 DATE L :BZ[bz]0[ggm]B[bzBN]|18
ins.bill.transfer.date 8 DATE L :BZ[bz]0[ggm]B[bzBN]|14
xxx.ins.bill.exp.adj.old 9 MONEY R :BZ[bz]0[ggm]B[bzBN]|8
Ì € i 2
bar.open.remind.by.ins (insurance.reminders)
[account, reminder.insurance,reminder.txn.urn]
:BZ[bz]TI[ggm,bzT]
Field Name Len Dat Typ J DPM Offset/Local/VAL
reminder.insurance 10 FREE L MIS.INS.DICT ggm
reminder.txn.urn 5 PINT R bzT
Ì € i 2
bar.acct.insurances (insurances)
[account, insurance]
:BZ[bz]I[ggm]
Field Name Len Dat Typ J DPM Offset/Local/VAL
insurance 10 FREE L MIS.INS.DICT ggm
assign.ben 1 YN L :BZ[bz]I[ggm]|12
ins.auth.diag.code 6 FREE L :BZ[bz]I[ggm]A|1
ins.auth.diag.desc 30 FREE L :BZ[bz]I[ggm]A|2
ins.auth.eff.date 8 DATE L :BZ[bz]I[ggm]A|7
ins.auth.exp.date 8 DATE L :BZ[bz]I[ggm]A|8
ins.auth.ipa.reimb.amt 9 MONEY R :BZ[bz]I[ggm]A|10
ins.auth.last.user 10 FREE L MIS.USER :BZ[bz]I[ggm]A|12
ins.auth.number 18 FREE L VAL=@ins.treatment.auth.no
ins.auth.process 4 FREE L VAL="AUTH"
ins.auth.process.status 8 CHOICE L :BZ[bz]I[ggm]A|5
ins.auth.process.tried.q 1 FREE L :BZ[bz]I[ggm]A|11
ins.auth.ref.provider 10 FREE L MIS.DOC.DICT :BZ[bz]I[ggm]A|9
ins.auth.status 9 CHOICE L :BZ[bz]I[ggm]A|4
ins.auth.status.date 8 DATE L :BZ[bz]I[ggm]A|6
ins.auth.units 3 PINT R :BZ[bz]I[ggm]A|3
ins.deductible 9 SMONEY R :BZ[bz]I[ggm]|13
ins.dem.id 44 FREE L VAL=@p.number_" "_@p.name'=" "
ins.elig.last.user 10 FREE L MIS.USER :BZ[bz]I[ggm]L|3
ins.elig.process 4 FREE L VAL="ELIG"
ins.elig.process.tried.q 1 FREE L :BZ[bz]I[ggm]L|2
ins.elig.status 8 CHOICE L :BZ[bz]I[ggm]L|0
ins.elig.status.date 8 DATE L :BZ[bz]I[ggm]L|1
ins.ncovd.priv.rm 9 SMONEY R :BZ[bz]I[ggm]|16
ins.print.cds 0 FREE L VAL=%BAR.PAT.print.ins.screen(urn,insurance,"",0)
ins.print.cds.verbatim 0 FREE L VAL=%BAR.PAT.print.ins.screen(urn,insurance,1,0)
ins.print.queries 8 FREE L VAL=%BAR.PAT.print.ins.screen(urn,insurance,"",0,1)
ins.treatment.auth.no 18 FREE L :BZ[bz]I[ggm]I1|10
insurance.active.flag 1 YN L :BZ[bz]I[ggm]|0
insurance.addr 30 FREE L :BZ[bz]I[ggm]|3
insurance.addr2 30 FREE L :BZ[bz]I[ggm]|4
insurance.benefit.plan 20 FREE L :BZ[bz]I[ggm]I1|14
insurance.biller 8 FREE L BAR.BILLER :BZ[bz]I[ggm]|19
insurance.city 30 FREE L :BZ[bz]I[ggm]|5
insurance.collector 8 FREE L BAR.COLLECTOR :BZ[bz]I[ggm]|10
insurance.comment 20 FREE L :BZ[bz]I[ggm]I1|9
insurance.cov.no 20 FREE L :BZ[bz]I[ggm]I1|8
insurance.eff.date 8 DATE L :BZ[bz]I[ggm]I1|6
insurance.exp.date 8 DATE L :BZ[bz]I[ggm]I1|7
insurance.from.adm 10 FREE L :BZ[bz]I[ggm]|1
insurance.name 30 FREE L :BZ[bz]I[ggm]|2
insurance.phone 30 PHONE L :BZ[bz]I[ggm]|8
insurance.remark 60 FREE L :BZ[bz]I[ggm]|17
insurance.state 20 FREE L :BZ[bz]I[ggm]|6
insurance.zip 10 ZIP.POST L :BZ[bz]I[ggm]|7
insured.emp.addr 30 FREE L :BZ[bz]I[ggm]I2|2
insured.emp.city 20 FREE L :BZ[bz]I[ggm]I2|3
insured.emp.name 30 FREE L :BZ[bz]I[ggm]I2|1
insured.emp.phone 18 PHONE L :BZ[bz]I[ggm]I2|6
insured.emp.state 20 FREE L :BZ[bz]I[ggm]I2|4
insured.emp.status 10 FREE L MIS.EMP.STATUS :BZ[bz]I[ggm]I2|8
insured.emp.zip 10 ZIP.POST L :BZ[bz]I[ggm]I2|5
insured.empl.status 10 FREE L MIS.EMP.STATUS :BZ[bz]I[ggm]I1|11
insured.employer 10 FREE L MIS.EMPLR.DICT :BZ[bz]I[ggm]I2|0
insured.emplr.loc 30 FREE L :BZ[bz]I[ggm]I1|13
insured.emplr.name 10 FREE L MIS.EMPLR.DICT :BZ[bz]I[ggm]I1|12
insured.emplye.id 20 FREE L :BZ[bz]I[ggm]I2|9
insured.group.name 30 FREE L :BZ[bz]I[ggm]I1|4
insured.group.number 15 FREE L :BZ[bz]I[ggm]I1|3
insured.name 30 NAME L :BZ[bz]I[ggm]I1|0
insured.policy.number 30 FREE L :BZ[bz]I[ggm]I1|2
insured.relationship 10 FREE L MIS.RELAT.DICT :BZ[bz]I[ggm]I1|1
insured.sex 1 CHOICE L :BZ[bz]I[ggm]I1|5
override.biller 8 FREE L BAR.BILLER :BZ[bz]I[ggm]|18
override.collector 8 FREE L BAR.COLLECTOR :BZ[bz]I[ggm]|9
release.info 1 CHOICE L :BZ[bz]I[ggm]|11
sub.addr1 30 FREE L :BZ[bz]I[ggm]I3|0
sub.addr2 30 FREE L :BZ[bz]I[ggm]I3|1
sub.birthdate 8 BDATE L :BZ[bz]I[ggm]I3|10
sub.citizenship 15 FREE L :BZ[bz]I[ggm]I3|6
sub.city 20 FREE L :BZ[bz]I[ggm]I3|2
sub.country 3 FREE L :BZ[bz]I[ggm]I3|5
sub.email 40 FREE L :BZ[bz]I[ggm]I4|6
sub.group.name 30 FREE L :BZ[bz]I[ggm]I4|2
sub.group.number 15 FREE L :BZ[bz]I[ggm]I4|1
sub.marital.status 10 FREE L MIS.MAR.STATUS :BZ[bz]I[ggm]I3|12
sub.name 30 NAME L :BZ[bz]I[ggm]I1|0
sub.phone.home 18 PHONE L :BZ[bz]I[ggm]I3|7
sub.phone.work 18 PHONE L :BZ[bz]I[ggm]I3|8
sub.policy.number 30 FREE L :BZ[bz]I[ggm]I4|0
sub.prior.auth 15 FREE L :BZ[bz]I[ggm]I4|3
sub.race 10 FREE L MIS.RACE.DICT :BZ[bz]I[ggm]I3|11
sub.referral 15 FREE L :BZ[bz]I[ggm]I4|5
sub.relationship 10 FREE L MIS.RELAT.DICT :BZ[bz]I[ggm]I1|1
sub.sex 1 CHOICE L :BZ[bz]I[ggm]I1|5
sub.soc.sec 15 FREE L :BZ[bz]I[ggm]I3|9
sub.state 20 FREE L :BZ[bz]I[ggm]I3|3
sub.urn 35 FREE L :BZ[bz]I[ggm]I4|7
sub.zip 10 ZIP.POST L :BZ[bz]I[ggm]I3|4
zcus.contract 20 FREE L WL.CONTRACTS :BZ[bz]I[ggm]ZCUSPUR|0
zcus.contract.approve 1 YN L :BZ[bz]I[ggm]ZCUSPUR|4
zcus.contract.approve.no 10 FREE L :BZ[bz]I[ggm]ZCUSPUR|3
zcus.contract.ecr 1 YN L :BZ[bz]I[ggm]ZCUSPUR|2
zcus.contract.final.count 6 INT R :BZ[bz]I[ggm]ZCUSPUZ|2
zcus.contract.ind.chg 1 CHOICE L :BZ[bz]I[ggm]ZCUSPUZ|5
zcus.contract.num.visits 6 PINT R :BZ[bz]I[ggm]ZCUSPUZ|6
zcus.contract.perdiem 10 FREE L BAR.PROC :BZ[bz]I[ggm]ZCUSPUR|5
zcus.contract.proc.code 10 FREE L BAR.PROC :BZ[bz]I[ggm]ZCUSPUR|1
zcus.contract.reg.typ.grp 10 FREE L WL.REG.TYP.GRP :BZ[bz]I[ggm]ZCUSPUR|6
zcus.contract.reg.type 10 FREE L :BZ[bz]I[ggm]ZCUSPUR|9
zcus.contract.specialty 10 FREE L MIS.SVC.DICT :BZ[bz]I[ggm]ZCUSPUZ|4
zcus.last.day.billed 5 FREE L :BZ[bz]I[ggm]ZCUSPUZ|1
zcus.prev.days.billed 5 FREE L :BZ[bz]I[ggm]ZCUSPUZ|0
zcus.proc.code.batch 10 URN L BAR.BCH :BZ[bz]I[ggm]ZCUSPUR|8
zcus.proc.code.created 7 CHOICE L :BZ[bz]I[ggm]ZCUSPUR|7
zcus.purchaser.addr1 30 FREE L :BZ[bz]I[ggm]ZCUSPUZ|3
Ì € i 2
bar.acct.ins.auth.procedures (ins.auth.procedures)
[account,insurance, ins.auth.proc.seq.no]
:BZ[bz]I[ggm]A["P",bzIAP]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ins.auth.proc.seq.no 2 PINT R bzIAP
ins.auth.proc 10 FREE L :BZ[bz]I[ggm]A["P",bzIAP]|0
ins.auth.proc.amt 9 MONEY R :BZ[bz]I[ggm]A["P",bzIAP]|1
ins.auth.proc.copay 8 MONEY R :BZ[bz]I[ggm]A["P",bzIAP]|3
ins.auth.proc.units 3 PINT R :BZ[bz]I[ggm]A["P",bzIAP]|2
Ì € i 2
bar.pat.ins.custom.def.queries (ins.cd.queries)
[account,insurance, ins.cd.query]
:BZ[bz]I[ggm]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 :BZ[bz]I[ggm]CD[ggv]INIT
ins.cd.response 75 QRY.RESP L :BZ[bz]I[ggm]CD[ggv]|0
Ì € i 2
bar.pat.ins.cd.mult.queries (ins.cd.mult.queries)
[account,insurance,ins.cd.query, ins.cdm.seq.no]
:BZ[bz]I[ggm]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 :BZ[bz]I[ggm]CD[ggv]M[ggvN]|0
Ì € i 2
bar.acct.ins.non.cov.days (ins.non.cov.days)
[account,insurance, ins.non.cov.frm]
:BZ[bz]I[ggm]NC[bzNC]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ins.non.cov.frm 8 DATE L bzNC
ins.non.cov.thru 8 DATE L :BZ[bz]I[ggm]NC[bzNC]|0
Ì € i 2
bar.acct.insurance.queries (ins.queries)
[account,insurance, query.no]
:BZ[bz]I[ggm]Q[bzIQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
query.no 2 PINT R bzIQ
query.info 75 QRY.RESP L :BZ[bz]I[ggm]Q[bzIQ]|0
query.mnemonic 10 FREE L MIS.QUERY :BZ[bz]I[ggm]Q[bzIQ]|1
query.screen 60 FREE L VAL=@Set.attr(@Z.color.labels1)_@MIS.QUERY.text[@BAR.P
VAL=AT.query.mnemonic[BAR.PAT.account,ins,query.no]]:6
VAL=4L_@Set.attr(@Z.color.data1)
query.text 40 FREE L :BZ[bz]I[ggm]Q[bzIQ]|2
Ì € i 2
bar.acct.ins.subscriber.id.cds (ins.subscriber.id.codes)
[account,insurance, sub.id.code.seq.no]
:BZ[bz]I[ggm]I3["SID",bzsid]
Field Name Len Dat Typ J DPM Offset/Local/VAL
sub.id.code.seq.no 1 URN L bzsid
sub.id.code 2 FREE L :BZ[bz]I[ggm]I3["SID",bzsid]|0
sub.id.code.number 15 FREE L :BZ[bz]I[ggm]I3["SID",bzsid]|1
Ì € i 2
bar.acct.ins.subscriber.id.cds (ins.subscriber.id.codes)
[account,insurance, sub.id.code.seq.no]
:BZ[bz]I[ggm]I3["SID",bzsid]
Field Name Len Dat Typ J DPM Offset/Local/VAL
sub.id.code.seq.no 1 URN L bzsid
sub.id.code 2 FREE L :BZ[bz]I[ggm]I3["SID",bzsid]|0
sub.id.code.number 15 FREE L :BZ[bz]I[ggm]I3["SID",bzsid]|1
Ì € i 2
bar.acct.interest.ytd (interest.ytd)
[account, interest.year]
:BZ[bz]SI[bzSY]
Field Name Len Dat Typ J DPM Offset/Local/VAL
interest.year 4 PINT R bzSY
interest.ytd.total 8 MONEY R :BZ[bz]SI[bzSY]
Ì € i 2
bar.acct.log.flag (log.flag)
[account, log]
:BZ[bz]L[blg]
Field Name Len Dat Typ J DPM Offset/Local/VAL
log 8 FREE L BAR.LOG.DICT blg
log.fiscal.yr 4 YEAR L :BZ[bz]L[blg]|0
log.num 3 PINT R :BZ[bz]L[blg]|1
log.status 8 CHOICE L :BZ[bz]L[blg]|2
Ì € i 2
bar.acct.hold.from.tape (tape.holds)
[account, tape.to.hold,insurance.hold]
:BZ[bz]H[bec,ggm]
Field Name Len Dat Typ J DPM Offset/Local/VAL
tape.to.hold 10 FREE L BAR.CLAIM bec
insurance.hold 10 FREE L MIS.INS.DICT ggm
failed.check 15 FREE L BAR.CLAIM.CHK :BZ[bz]H[bec,ggm]|3
failed.check.msg 30 FREE L :BZ[bz]H[bec,ggm]|4
held.by.user 10 FREE L MIS.USER :BZ[bz]H[bec,ggm]|0
hold.type 1 CHOICE L :BZ[bz]H[bec,ggm]|2
taken.off.hold 10 PINT R :BZ[bz]H[bec,ggm]|1
Ì € i 2
bar.acct.transactions (transactions)
[account, txn.class,txn.urn]
:BZ[bz]T[bzC,bzT]
Field Name Len Dat Typ J DPM Offset/Local/VAL
txn.class 1 CHOICE L bzC
txn.urn 5 URN L bzT
txn.adj.to.date 12 SMONEY R :BZ[bz]T[bzC,bzT]|34
txn.amount 12 SMONEY R :BZ[bz]T[bzC,bzT]|5
txn.balance 9 SMONEY R :BZ[bz]T[bzC,bzT]|18
txn.bch 8 PINT R :BZ[bz]T[bzC,bzT]|3
txn.bch.date 8 DATE L VAL=(@BAR.PAT.txn.ser.date-@BAR.PAT.txn.bch.date.offse
VAL=t)
txn.bch.date.offset 8 INT R :BZ[bz]T[bzC,bzT]|2
txn.bill.no 3 INT R :BZ[bz]T[bzC,bzT]|19
txn.canned.text.code 8 FREE L BAR.COMMENT :BZ[bz]T[bzC,bzT]|11
txn.cd.screen 15 FREE L MIS.SCREEN VAL=IF{@txn.procedure's.cd.screen;@txn.procedure's.chg
VAL=.cat's.cd.screen}
txn.chg.to.date 12 SMONEY R :BZ[bz]T[bzC,bzT]|32
txn.comment 50 FREE L :BZ[bz]T[bzC,bzT]|11
txn.comment.by.system 1 PINT R :BZ[bz]T[bzC,bzT]|10
txn.comment.editor 0 FREE L VAL=%Z.text.ed.shell(^/BZTC["T"],1,8,27,40,"D")
txn.corp 4 FREE L MIS.GL.CORP :BZ[bz]T[bzC,bzT]|12
txn.count 4 PINT R :BZ[bz]T[bzC,bzT]|6
txn.dis.exemption 1 YN L :BZ[bz]T[bzC,bzT]|7
txn.edit.from 20 FREE L :BZ[bz]T[bzC,bzT]|12
txn.edit.to 20 FREE L :BZ[bz]T[bzC,bzT]|13
txn.end.pointer 5 PINT R :BZ[bz]T[bzC,bzT]|10
txn.fixed 20 FREE L :BZ[bz]T[bzC,bzT]|10
txn.for.reminder 5 PINT R :BZ[bz]T[bzC,bzT]|7
txn.gen.screen.editor 0 FREE L VAL=%Z.text.ed.shell(/TEXT.FILE.NAME,/TEXT.TOP,/TEXT.B
VAL=OTTOM,/TEXT.WIDTH,/TEXT.LM,"D")
txn.guar.screen.editor 0 FREE L VAL=%Z.text.ed.shell(^c.guar.txn.text,9,24,27,25,"D")
txn.ins 10 FREE L MIS.INS.DICT :BZ[bz]T[bzC,bzT]|8
txn.ord.physician 10 FREE L MIS.DOC.DICT :BZ[bz]T[bzC,bzT]|25
txn.perf.physician 10 FREE L MIS.DOC.DICT :BZ[bz]T[bzC,bzT]|21
txn.phys.identifier 20 URN L :BZ[bz]T[bzC,bzT]|26
txn.pointer 5 PINT R :BZ[bz]T[bzC,bzT]|7
txn.procedure 10 FREE L BAR.PROC :BZ[bz]T[bzC,bzT]|4
txn.prof.comp 12 SMONEY R :BZ[bz]T[bzC,bzT]|9
txn.rcp.to.date 12 SMONEY R :BZ[bz]T[bzC,bzT]|33
txn.receipt.date 8 DATE L :BZ[bz]T[bzC,bzT]|37
txn.receipt.num 10 PINT R :BZ[bz]T[bzC,bzT]|38
txn.receipt.num.disp 11 FREE L VAL=@txn.receipt.num+10000000000%0^RCP$9_"-"_(RCP#9)
txn.ref.to.date 12 SMONEY R :BZ[bz]T[bzC,bzT]|35
txn.rem.res.editor 0 FREE L VAL=%Z.text.ed.shell(^/BZ.TXT,18,25,27,31,"D")
txn.reminder.ack 1 YN L :BZ[bz]T[bzC,bzT]|36
txn.reminder.active 1 CHOICE L :BZ[bz]T[bzC,bzT]|17
txn.reminder.balance 9 SMONEY R :BZ[bz]T[bzC,bzT]|18
txn.reminder.date 8 DATE L :BZ[bz]T[bzC,bzT]|16
txn.reminder.editor 0 FREE L VAL=%Z.text.ed.shell(^/BZTR["T"],1,8,27,40,"D")
txn.reminder.for.user 10 FREE L MIS.USER :BZ[bz]T[bzC,bzT]|15
txn.reminder.resolved.by 5 PINT R :BZ[bz]T[bzC,bzT]|10
txn.remit.code 10 FREE L BAR.REMIT :BZ[bz]T[bzC,bzT]|30
txn.screen.editor 0 FREE L VAL=%Z.text.ed.shell(^/BZ[account]T["O",@t.txn.urn]T,1
VAL=0,24,27,25,"D")
txn.ser.date 8 DATE L :BZ[bz]T[bzC,bzT]|1
txn.spool.file 5 PINT R MIS.SPOOL :BZ[bz]T[bzC,bzT]|27
txn.spool.page.beg 5 FREE L :BZ[bz]T[bzC,bzT]|28
txn.spool.page.end 5 FREE L :BZ[bz]T[bzC,bzT]|29
txn.stmt.msg 8 FREE L BAR.DUN.MSG :BZ[bz]T[bzC,bzT]|12
txn.stmt.no 3 PINT R :BZ[bz]T[bzC,bzT]|19
txn.stmt.seq.no 3 PINT R :BZ[bz]T[bzC,bzT]|20
txn.tax.code 3 FREE L MIS.TAX.CODE :BZ[bz]T[bzC,bzT]|24
txn.temp.cd.screen 15 FREE L MIS.SCREEN VAL=IF{@tx.procedure's.cd.screen;@tx.chg.cat's.cd.scre
VAL=en}
txn.temp.print.cd.screen 0 FREE L VAL=IF{@txn.temp.cd.screen "C"^txn.class,@tx.urn^txn.u
VAL=rn,%BAR.PAT.process.cds.txns.print.M.cds(@txn.temp
VAL=.cd.screen,^@transaction.cd.screen),""}
txn.transfer.neg.bal 1 FREE L :BZ[bz]T[bzC,bzT]|22
txn.transfer.pos.bal 1 FREE L :BZ[bz]T[bzC,bzT]|23
txn.type 1 CHOICE L :BZ[bz]T[bzC,bzT]|0
txn.ucrn 8 FREE L :BZ[bz]T[bzC,bzT]|31
txn.user 10 FREE L MIS.USER :BZ[bz]T[bzC,bzT]|14
txn.user1 10 FREE L MIS.USER VAL=@txn.user
Ì € i 2
bar.acct.transaction.cdqs (transaction.cd.queries)
[account,txn.class,txn.urn, txn.cd.query]
:BZ[bz]T[bzC,bzT]CD[ggv]
Field Name Len Dat Typ J DPM Offset/Local/VAL
txn.cd.query 10 FREE L MIS.QUERY ggv
txn.cd.response 75 QRY.RESP L :BZ[bz]T[bzC,bzT]CD[ggv]|0
Ì € i 2
bar.acct.transactions.ins (transaction.ins.detail)
[account,txn.class,txn.urn, txn.ins.detail]
:BZ[bz]T[bzC,bzT]I[ggm]
Field Name Len Dat Typ J DPM Offset/Local/VAL
txn.ins.detail 10 FREE L MIS.INS.DICT ggm
txn.exp.reimb 10 SMONEY R :BZ[bz]T[bzC,bzT]I[ggm]|5
txn.ins.adj 9 SMONEY R :BZ[bz]T[bzC,bzT]I[ggm]|2
txn.ins.amount 9 SMONEY R :BZ[bz]T[bzC,bzT]I[ggm]|1
txn.ins.auto.xfer.amount 9 SMONEY R :BZ[bz]T[bzC,bzT]I[ggm]|3
txn.ins.manual.edit 9 SMONEY R :BZ[bz]T[bzC,bzT]I[ggm]|4
txn.ins.num.exp.rcpts 3 SINT R :BZ[bz]T[bzC,bzT]I[ggm]|0
txn.stmt.select 1 FREE L :BZ[bz]T[bzC,bzT]I[ggm]|4
Ì € i 2
bar.acct.transaction.text (transaction.text)
[account,txn.class,txn.urn, txn.text.urn]
:BZ[bz]T[bzC,bzT]T[bzTT]
Field Name Len Dat Typ J DPM Offset/Local/VAL
txn.text.urn 3 URN L bzTT
txn.text 27 FREE L :BZ[bz]T[bzC,bzT]T[bzTT]
Ì € i 2
bar.acct.ucrn (unique.claim.ref)
[account, ucr.num]
:BZ[bz]UCR[bucr]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ucr.num 8 FREE L bucr
ucr.adj.amt 10 SMONEY R :BZ[bz]UCR[bucr]|7
ucr.bill.no 3 PINT R :BZ[bz]UCR[bucr]|1
ucr.claim 10 FREE L BAR.CLAIM :BZ[bz]UCR[bucr]|2
ucr.ins 10 FREE L MIS.INS.DICT :BZ[bz]UCR[bucr]|0
ucr.no.rcpts 3 PINT R :BZ[bz]UCR[bucr]|8
ucr.rcp.amt 10 SMONEY R :BZ[bz]UCR[bucr]|6
ucr.remit.date 8 DATE L :BZ[bz]UCR[bucr]|5
ucr.submit.amt 10 SMONEY R :BZ[bz]UCR[bucr]|4
ucr.submit.date 8 DATE L :BZ[bz]UCR[bucr]|3
Ì € i 2
bar.reminders.by.user (user.reminders)
[account, reminder.user,reminder.txn.number]
:BZ[bz]TU[gu,bzT]
Field Name Len Dat Typ J DPM Offset/Local/VAL
reminder.user 10 FREE L MIS.USER gu
reminder.txn.number 5 PINT R bzT
Ì € i 2
gl.clients (zcus.uk.gl.clients)
[account, zcus.cl.account,zcus.cl.last.bill.sent]
:BZ[bz]ZCUSUKC[bzCL,zukbs]
Field Name Len Dat Typ J DPM Offset/Local/VAL
zcus.cl.account 12 URN L bzCL
zcus.cl.last.bill.sent 6 URN L zukbs
zcus.cl.acct.type 8 FREE L :BZ[bz]ZCUSUKC[bzCL,zukbs]|3
zcus.cl.bill.contract 15 FREE L :BZ[bz]ZCUSUKC[bzCL,zukbs]|5
zcus.cl.bill.purchaser 10 FREE L :BZ[bz]ZCUSUKC[bzCL,zukbs]|4
zcus.cl.date.sent 8 DATE L :BZ[bz]ZCUSUKC[bzCL,zukbs]|6
zcus.cl.from.trans 6 PINT R :BZ[bz]ZCUSUKC[bzCL,zukbs]|0
zcus.cl.last.status 2 CHOICE L :BZ[bz]ZCUSUKC[bzCL,zukbs]|2
zcus.cl.thru.trans 6 PINT R :BZ[bz]ZCUSUKC[bzCL,zukbs]|1
Ì € i 2
gl.flags (zcus.uk.gl.flags)
[account, zcus.uk.bill.no]
:BZ[bz]ZCUSUKB[zukbn]
Field Name Len Dat Typ J DPM Offset/Local/VAL
zcus.uk.bill.no 4 URN L zukbn
zcus.bill.acct.type 8 FREE L :BZ[bz]ZCUSUKB[zukbn]|2
zcus.bill.contract 15 FREE L :BZ[bz]ZCUSUKB[zukbn]|4
zcus.bill.date 8 DATE L :BZ[bz]ZCUSUKB[zukbn]|6
zcus.bill.purchaser 10 FREE L :BZ[bz]ZCUSUKB[zukbn]|3
zcus.bill.status 2 CHOICE L :BZ[bz]ZCUSUKB[zukbn]|5
zcus.first.trans 6 PINT R :BZ[bz]ZCUSUKB[zukbn]|0
zcus.last.trans 6 PINT R :BZ[bz]ZCUSUKB[zukbn]|1
Ì € i 2
gl.late.flag (zcus.uk.gl.late.flags)
[account, zcus.from.txn,zcus.thru.txn]
:BZ[bz]ZCUSUKL[zukl,zuklt]
Field Name Len Dat Typ J DPM Offset/Local/VAL
zcus.from.txn 4 URN L zukl
zcus.thru.txn 9 URN L zuklt
zcus.last.late.date 8 DATE L :BZ[bz]ZCUSUKL[zukl,zuklt]|5
zcus.late.acct.type 8 FREE L :BZ[bz]ZCUSUKL[zukl,zuklt]|2
zcus.late.contract 15 FREE L :BZ[bz]ZCUSUKL[zukl,zuklt]|4
zcus.late.last.bill 4 PINT R :BZ[bz]ZCUSUKL[zukl,zuklt]|1
zcus.late.purchaser 10 FREE L :BZ[bz]ZCUSUKL[zukl,zuklt]|3
zcus.late.status 2 CHOICE L :BZ[bz]ZCUSUKL[zukl,zuklt]|0
Ì i 2
bar.acct.pe.status.vector (pe.status.vector)
[period,pe.account]
?BZPE[bzP,bz]
Field Name Len Dat Typ J DPM Offset/Local/VAL
period 8 DATE L bzP
pe.account 44 URN L BAR.PAT bz
pe.agency 8 FREE L BAR.COL.AG ?BZPE[bzP,bz]|15
pe.any.cl.dis.exemptions 1 YN L ?BZPE[bzP,bz]|25
pe.ar.age.date 8 DATE L ?BZPE[bzP,bz]|12
pe.ar.chg.total 9 SMONEY R ?BZPE[bzP,bz]|6
pe.balance 9 SMONEY R ?BZPE[bzP,bz]|2
pe.bar.status 2 CHOICE L ?BZPE[bzP,bz]|1
pe.bd.age.date 8 DATE L ?BZPE[bzP,bz]|13
pe.billing.rule 8 FREE L BAR.BRULE ?BZPE[bzP,bz]|18
pe.chg.total 9 SMONEY R VAL=(@BAR.PAT.pe.ur.chg.total+@BAR.PAT.pe.ar.chg.total
VAL=+@BAR.PAT.pe.late.chg.total)
pe.cl.pending.charges 11 SMONEY R ?BZPE[bzP,bz]|23
pe.cl.unapplied.credits 9 SMONEY R ?BZPE[bzP,bz]|24
pe.client.urn 10 FREE L ?BZPE[bzP,bz]|17
pe.contract.1st.pmt.dt 8 DATE L ?BZPE[bzP,bz]|29
pe.contract.amount 8 MONEY R ?BZPE[bzP,bz]|21
pe.contract.date 8 DATE L ?BZPE[bzP,bz]|20
pe.contract.paid 8 MONEY R ?BZPE[bzP,bz]|22
pe.corp 4 FREE L MIS.GL.CORP ?BZPE[bzP,bz]|30
pe.fee.schedule 12 FREE L BAR.FEE.SCH ?BZPE[bzP,bz]|11
pe.insurance.balance 9 SMONEY R ?BZPE[bzP,bz]|4
pe.last.bill.txn 5 PINT R ?BZPE[bzP,bz]|9
pe.last.pay.date 8 DATE L ?BZPE[bzP,bz]|14
pe.last.post.txn 5 PINT R ?BZPE[bzP,bz]|26
pe.last.st.txn 5 PINT R ?BZPE[bzP,bz]|8
pe.last.txn 5 PINT R ?BZPE[bzP,bz]|0
pe.late.chg.total 9 SMONEY R ?BZPE[bzP,bz]|7
pe.pro.chg.total 11 MONEY R ?BZPE[bzP,bz]|28
pe.pt.balance 9 SMONEY R ?BZPE[bzP,bz]|3
pe.pt.type 1 CHOICE L ?BZPE[bzP,bz]|19
pe.stmt.grp 8 FREE L BAR.STMT.GRP ?BZPE[bzP,bz]|27
pe.type 8 FREE L BAR.ACCT.TYPE ?BZPE[bzP,bz]|10
pe.ur.chg.total 9 SMONEY R ?BZPE[bzP,bz]|5
pe.zero.date 8 DATE L ?BZPE[bzP,bz]|16
Ì € i 2
bar.acct.pe.client.aged.ar (pe.cl.aged.ar)
[period,pe.account, pe.cl.age.date]
?BZPE[bzP,bz]1[bzCD]
Field Name Len Dat Typ J DPM Offset/Local/VAL
pe.cl.age.date 8 DATE L bzCD
pe.cl.age.amount 11 SMONEY R ?BZPE[bzP,bz]1[bzCD]
Ì € i 2
bar.acct.pe.ins.order (pe.ins.order)
[period,pe.account, pe.insurance.order]
?BZPE[bzP,bz]O[bzIO]
Field Name Len Dat Typ J DPM Offset/Local/VAL
pe.insurance.order 2 PINT R bzIO
pe.ins.mnemonic 10 FREE L MIS.INS.DICT ?BZPE[bzP,bz]O[bzIO]|0
Ì € i 2
bar.acct.pe.insurance.ledger (pe.insurance.ledger)
[period,pe.account, pe.ins]
?BZPE[bzP,bz]0[ggm]
Field Name Len Dat Typ J DPM Offset/Local/VAL
pe.ins 10 FREE L MIS.INS.DICT ggm
pe.ins.adj 9 MONEY R ?BZPE[bzP,bz]0[ggm]|4
pe.ins.auto.transfer 9 MONEY R ?BZPE[bzP,bz]0[ggm]|7
pe.ins.balance 9 MONEY R ?BZPE[bzP,bz]0[ggm]|0
pe.ins.biller 8 FREE L BAR.BILLER ?BZPE[bzP,bz]0[ggm]|17
pe.ins.collector 8 FREE L BAR.COLLECTOR ?BZPE[bzP,bz]0[ggm]|9
pe.ins.exp.reimb 10 MONEY R ?BZPE[bzP,bz]0[ggm]|15
pe.ins.last.pay.txn 4 INT R ?BZPE[bzP,bz]0[ggm]|16
pe.ins.manual.edit 9 MONEY R ?BZPE[bzP,bz]0[ggm]|6
pe.ins.num.adjs 3 PINT R ?BZPE[bzP,bz]0[ggm]|12
pe.ins.num.exp.rcpts 4 PINT R ?BZPE[bzP,bz]0[ggm]|10
pe.ins.num.rcpts 3 PINT R ?BZPE[bzP,bz]0[ggm]|11
pe.ins.num.refs 3 PINT R ?BZPE[bzP,bz]0[ggm]|13
pe.ins.nxt.reminder.dt 8 DATE L ?BZPE[bzP,bz]0[ggm]|19
pe.ins.orig.post.date 8 DATE L ?BZPE[bzP,bz]0[ggm]|18
pe.ins.prorate.adj 9 MONEY R ?BZPE[bzP,bz]0[ggm]|2
pe.ins.prorate.amount 9 MONEY R ?BZPE[bzP,bz]0[ggm]|1
pe.ins.rcpt 9 MONEY R ?BZPE[bzP,bz]0[ggm]|3
pe.ins.ref 9 MONEY R ?BZPE[bzP,bz]0[ggm]|5
pe.ins.transfer.date 8 DATE L ?BZPE[bzP,bz]0[ggm]|14
xxx.pe.ins.exp.adj.old 9 MONEY R ?BZPE[bzP,bz]0[ggm]|8
Ì € i 2
bar.acct.pe.ins.bill.ledger (pe.insurance.bill.ledger)
[period,pe.account,pe.ins, pe.ins.bill.no]
?BZPE[bzP,bz]0[ggm]B[bzBN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
pe.ins.bill.no 3 PINT R bzBN
pe.ins.bill.adj 9 MONEY R ?BZPE[bzP,bz]0[ggm]B[bzBN]|4
pe.ins.bill.age.date 8 DATE L ?BZPE[bzP,bz]0[ggm]B[bzBN]|16
pe.ins.bill.auto.transfer 9 MONEY R ?BZPE[bzP,bz]0[ggm]B[bzBN]|7
pe.ins.bill.balance 9 MONEY R ?BZPE[bzP,bz]0[ggm]B[bzBN]|0
pe.ins.bill.date.sent 8 DATE L ?BZPE[bzP,bz]0[ggm]B[bzBN]|17
pe.ins.bill.exp.reimb 10 MONEY R ?BZPE[bzP,bz]0[ggm]B[bzBN]|15
pe.ins.bill.manual.edit 9 MONEY R ?BZPE[bzP,bz]0[ggm]B[bzBN]|6
pe.ins.bill.num.adjs 3 PINT R ?BZPE[bzP,bz]0[ggm]B[bzBN]|12
pe.ins.bill.num.exp.rcpts 4 PINT R ?BZPE[bzP,bz]0[ggm]B[bzBN]|10
pe.ins.bill.num.rcpts 3 PINT R ?BZPE[bzP,bz]0[ggm]B[bzBN]|11
pe.ins.bill.num.refs 3 PINT R ?BZPE[bzP,bz]0[ggm]B[bzBN]|13
pe.ins.bill.prorate.adj 9 MONEY R ?BZPE[bzP,bz]0[ggm]B[bzBN]|2
pe.ins.bill.prorate.amt 9 MONEY R ?BZPE[bzP,bz]0[ggm]B[bzBN]|1
pe.ins.bill.rcpt 9 MONEY R ?BZPE[bzP,bz]0[ggm]B[bzBN]|3
pe.ins.bill.ref 9 MONEY R ?BZPE[bzP,bz]0[ggm]B[bzBN]|5
pe.ins.bill.resolved.date 8 DATE L ?BZPE[bzP,bz]0[ggm]B[bzBN]|18
pe.ins.bill.transfer.date 8 DATE L ?BZPE[bzP,bz]0[ggm]B[bzBN]|14
xxx.pe.ins.bill.exp.adj 9 MONEY R ?BZPE[bzP,bz]0[ggm]B[bzBN]|8
| | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | |