Ì i 2
bar.acct.abs.xfer.file (abs.xfer.file)
[abs.date]
:BZAB[bzABS]
Field Name Len Dat Typ J DPM Offset/Local/VAL
abs.date 8 DATE L bzABS
abs.ca.status 10 CHOICE L :BZAB[bzABS]|1
abs.cm.status 10 CHOICE L :BZAB[bzABS]|0
abs.procs.by.period 1 CHOICE L :BZAB[bzABS]|2
Ì € i 2
bar.acct.abs.xfer.accts (abs.xfer.accts)
[abs.date, abs.acct.no]
:BZAB[bzABS,bzR]
Field Name Len Dat Typ J DPM Offset/Local/VAL
abs.acct.no 12 FREE L bzR
abs.chg.total 9 SMONEY R :BZAB[bzABS,bzR]|0
abs.claim 10 FREE L BAR.CLAIM :BZAB[bzABS,bzR]|11
abs.ins.bal 9 SMONEY R :BZAB[bzABS,bzR]|3
abs.ins.rec 9 SMONEY R :BZAB[bzABS,bzR]|1
abs.last.txn 4 PINT R :BZAB[bzABS,bzR]|9
abs.next.bill.date 8 DATE L :BZAB[bzABS,bzR]|7
abs.pri.ins.deductible 13 SMONEY R :BZAB[bzABS,bzR]|8
abs.process.chgs 9 SMONEY R :BZAB[bzABS,bzR]|10
abs.pt.bal 9 SMONEY R :BZAB[bzABS,bzR]|4
abs.pt.rec 9 SMONEY R :BZAB[bzABS,bzR]|2
abs.reimb.changed 1 CHOICE L :BZAB[bzABS,bzR]|5
abs.type.of.next.bill 4 FREE L :BZAB[bzABS,bzR]|6
Ì € i 2
bar.acct.abs.xfer.chg.cats (abs.xfer.chg.cats)
[abs.date,abs.acct.no, abs.chg.cat]
:BZAB[bzABS,bzR]C[br]
Field Name Len Dat Typ J DPM Offset/Local/VAL
abs.chg.cat 8 FREE L BAR.CH.CAT br
abs.chg.cat.amount 9 SMONEY R :BZAB[bzABS,bzR]C[br]|0
abs.chg.cat.qty 3 PINT R :BZAB[bzABS,bzR]C[br]|1
Ì € i 2
bar.acct.abs.xfer.procs (abs.xfer.procs)
[abs.date,abs.acct.no, abs.proc]
:BZAB[bzABS,bzR]P[bd]
Field Name Len Dat Typ J DPM Offset/Local/VAL
abs.proc 10 FREE L BAR.PROC bd
abs.proc.count 6 PINT R :BZAB[bzABS,bzR]P[bd]|0
Ì € i 2
bar.acct.abs.xfer.alt.codes (abs.xfer.alt.codes)
[abs.date,abs.acct.no,abs.proc, abs.alt.pc.date,abs.alt.code.types]
:BZAB[bzABS,bzR]P[bd]ALT[gpSD,bdAC]
Field Name Len Dat Typ J DPM Offset/Local/VAL
abs.alt.pc.date 8 DATE L gpSD
abs.alt.code.types 12 FREE L bdAC
old.abs.alt.code 12 FREE L :BZAB[bzABS,bzR]P[bd]ALT[gpSD,bdAC]|0
old.abs.alt.description 30 FREE L :BZAB[bzABS,bzR]P[bd]ALT[gpSD,bdAC]|1
Ì € i 2
bar.acct.abs.xfer.line.items (abs.xfer.line.items)
[abs.date,abs.acct.no,abs.proc,abs.alt.pc.date,abs.alt.code.types, abs.alt.line]
:BZAB[bzABS,bzR]P[bd]ALT[gpSD,bdAC,altn]
Field Name Len Dat Typ J DPM Offset/Local/VAL
abs.alt.line 12 FREE L altn
abs.alt.amount 9 FREE L :BZAB[bzABS,bzR]P[bd]ALT[gpSD,bdAC,altn]|9
abs.alt.code 12 FREE L :BZAB[bzABS,bzR]P[bd]ALT[gpSD,bdAC,altn]|0
abs.alt.description 30 FREE L :BZAB[bzABS,bzR]P[bd]ALT[gpSD,bdAC,altn]|1
abs.alt.mod1 2 FREE L :BZAB[bzABS,bzR]P[bd]ALT[gpSD,bdAC,altn]|3
abs.alt.mod2 2 FREE L :BZAB[bzABS,bzR]P[bd]ALT[gpSD,bdAC,altn]|4
abs.alt.mod3 2 FREE L :BZAB[bzABS,bzR]P[bd]ALT[gpSD,bdAC,altn]|5
abs.alt.mod4 2 FREE L :BZAB[bzABS,bzR]P[bd]ALT[gpSD,bdAC,altn]|6
abs.alt.mod5 2 FREE L :BZAB[bzABS,bzR]P[bd]ALT[gpSD,bdAC,altn]|7
abs.alt.no.group 2 FREE L :BZAB[bzABS,bzR]P[bd]ALT[gpSD,bdAC,altn]|10
abs.alt.qty 5 FREE L :BZAB[bzABS,bzR]P[bd]ALT[gpSD,bdAC,altn]|2
abs.alt.rev.code 5 FREE L :BZAB[bzABS,bzR]P[bd]ALT[gpSD,bdAC,altn]|8
abs.alt.to.be.grpcode 9 FREE L :BZAB[bzABS,bzR]P[bd]ALT[gpSD,bdAC,altn]|11
Ì € i 2
bar.acct.abs.xfer.corps (abs.xfer.corps)
[abs.date,abs.acct.no,abs.proc, abs.corp]
:BZAB[bzABS,bzR]P[bd]CR[gn]
Field Name Len Dat Typ J DPM Offset/Local/VAL
abs.corp 4 FREE L MIS.GL.CORP gn
Ì € i 2
bar.acct.abs.xfer.periods (abs.xfer.periods)
[abs.date,abs.acct.no,abs.proc,abs.corp, abs.pp.date]
:BZAB[bzABS,bzR]P[bd]CR[gn]G[gpD]
Field Name Len Dat Typ J DPM Offset/Local/VAL
abs.pp.date 8 DATE L gpD
abs.pp.amount 9 SMONEY R :BZAB[bzABS,bzR]P[bd]CR[gn]G[gpD]|1
abs.pp.count 6 PINT R :BZAB[bzABS,bzR]P[bd]CR[gn]G[gpD]|0
Ì € i 2
bar.acct.abs.xfer.chgs (abs.xfer.chgs)
[abs.date,abs.acct.no,abs.proc,abs.corp,abs.pp.date, abs.pc.date]
:BZAB[bzABS,bzR]P[bd]CR[gn]G[gpD]D[gpSD]
Field Name Len Dat Typ J DPM Offset/Local/VAL
abs.pc.date 8 DATE L gpSD
abs.pc.amount 9 SMONEY R :BZAB[bzABS,bzR]P[bd]CR[gn]G[gpD]D[gpSD]|1
abs.pc.count 6 PINT R :BZAB[bzABS,bzR]P[bd]CR[gn]G[gpD]D[gpSD]|0
Ì € i 2
bar.abs.xfer.date.site (abs.xfer.date.site)
[abs.date,abs.acct.no,abs.proc,abs.corp,abs.pp.date,abs.pc.date, abs.date.rev.site]
:BZAB[bzABS,bzR]P[bd]CR[gn]G[gpD]D[gpSD]R[gyr]
Field Name Len Dat Typ J DPM Offset/Local/VAL
abs.date.rev.site 10 FREE L MIS.REV.SITE gyr
abs.date.rs.amount 9 SMONEY R :BZAB[bzABS,bzR]P[bd]CR[gn]G[gpD]D[gpSD]R[gyr]|1
abs.date.rs.count 6 PINT R :BZAB[bzABS,bzR]P[bd]CR[gn]G[gpD]D[gpSD]R[gyr]|0
Ì € i 2
bar.abs.xfer.site (abs.xfer.site)
[abs.date,abs.acct.no,abs.proc,abs.corp,abs.pp.date, abs.rev.site]
:BZAB[bzABS,bzR]P[bd]CR[gn]G[gpD]R[gyr]
Field Name Len Dat Typ J DPM Offset/Local/VAL
abs.rev.site 10 FREE L MIS.REV.SITE gyr
abs.rs.amount 9 SMONEY R :BZAB[bzABS,bzR]P[bd]CR[gn]G[gpD]R[gyr]|1
abs.rs.count 6 PINT R :BZAB[bzABS,bzR]P[bd]CR[gn]G[gpD]R[gyr]|0
Ì € i 2
bar.acct.abs.xfer.ord.diags (abs.xfer.ord.diags)
[abs.date,abs.acct.no,abs.proc, abs.xfer.o.diag.seq.no]
:BZAB[bzABS,bzR]P[bd]ODX[odxN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
abs.xfer.o.diag.seq.no 1 URN L odxN
abs.xfer.o.diag.code 6 FREE L :BZAB[bzABS,bzR]P[bd]ODX[odxN]|0
Ì € i 2
bar.acct.abs.xfer.remit.codes (abs.xfer.remit.codes)
[abs.date,abs.acct.no, abs.rc.date,abs.rc.ins,abs.rc.code]
:BZAB[bzABS,bzR]RC[rdt,ggm,bnr]
Field Name Len Dat Typ J DPM Offset/Local/VAL
abs.rc.date 8 DATE L rdt
abs.rc.ins 10 FREE L MIS.INS.DICT ggm
abs.rc.code 10 FREE L BAR.REMIT bnr
abs.rc.amt 10 SMONEY R :BZAB[bzABS,bzR]RC[rdt,ggm,bnr]|0
Ì € i 2
bar.acct.abs.xfer.rev.codes (abs.xfer.rev.codes)
[abs.date,abs.acct.no, abs.rev.code,abs.rev.date]
:BZAB[bzABS,bzR]RV[bes,rvdt]
Field Name Len Dat Typ J DPM Offset/Local/VAL
abs.rev.code 5 FREE L bes
abs.rev.date 8 FREE L rvdt
abs.rev.amount FREE L :BZAB[bzABS,bzR]RV[bes,rvdt]|1
abs.rev.qty FREE L :BZAB[bzABS,bzR]RV[bes,rvdt]|0
abs.rev.surg.flag FREE L :BZAB[bzABS,bzR]RV[bes,rvdt]|2
Ì € i 2
bar.acct.abs.xfer.dbs (abs.xfer.dbs)
[abs.date, abs.xfer.db]
:BZAB[bzABS]DBS[iaD]
Field Name Len Dat Typ J DPM Offset/Local/VAL
abs.xfer.db 12 FREE L MIS.APPL iaD
abs.xfer.db.read 1 YN L :BZAB[bzABS]DBS[iaD]|0
Ì i 2
bar.acct.ansi.835.remit.main (ansi.835.remit.main)
[ansi.835.account,ansi.835.bill.no,ansi.835.ins,ansi.835.clm.type,ansi.835.bch.urn]
:BZANSI[bz,bzBN,ggm,bzCLT,by]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ansi.835.account 44 INT R bz
ansi.835.bill.no 3 INT R bzBN
ansi.835.ins 10 FREE L MIS.INS.DICT ggm
ansi.835.clm.type 4 FREE L bzCLT
ansi.835.bch.urn 10 INT R by
ansi.835.value 150 FREE L :BZANSI[bz,bzBN,ggm,bzCLT,by]
Ì € i 2
bar.acct.ansi.835.remit.clm (ansi.835.remit.clm)
[ansi.835.account,ansi.835.bill.no,ansi.835.ins,ansi.835.clm.type,ansi.835.bch.urn, ansi.835.clm.seg.type,ansi.835.clm.
:BZANSI[bz,bzBN,ggm,bzCLT,by]CLM[bzSGT,bzCLN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ansi.835.clm.seg.type 8 FREE L bzSGT
ansi.835.clm.seq.no 4 INT R bzCLN
ansi.835.clm.value 150 FREE L :BZANSI[bz,bzBN,ggm,bzCLT,by]CLM[bzSGT,bzCLN]
Ì € i 2
bar.acct.ansi.835.remit.svc (ansi.835.remit.svc)
[ansi.835.account,ansi.835.bill.no,ansi.835.ins,ansi.835.clm.type,ansi.835.bch.urn, ansi.835.svc.seq.no]
:BZANSI[bz,bzBN,ggm,bzCLT,by]SVC[bzSVN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ansi.835.svc.seq.no 4 INT R bzSVN
ansi.835.svc.value 150 FREE L :BZANSI[bz,bzBN,ggm,bzCLT,by]SVC[bzSVN]
Ì € i 2
bar.acct.ansi.835.remit.svc.ln (ansi.835.remit.svc.ln)
[ansi.835.account,ansi.835.bill.no,ansi.835.ins,ansi.835.clm.type,ansi.835.bch.urn,ansi.835.svc.seq.no, ansi.835.svc.ln
:BZANSI[bz,bzBN,ggm,bzCLT,by]SVC[bzSVN,bzSGT,bzSLN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ansi.835.svc.ln.seg 8 FREE L bzSGT
ansi.835.svc.ln.seq 4 INT R bzSLN
ansi.835.svc.ln.value 150 FREE L :BZANSI[bz,bzBN,ggm,bzCLT,by]SVC[bzSVN,bzSGT,bzSLN]
Ì i 2
bar.acct.ansi.835.rmt.tmp.main (ansi.835.remit.tmp.main)
[ansi.835.tmp.account,ansi.835.tmp.bill.no,ansi.835.tmp.ins,ansi.835.tmp.clm.type,ansi.835.tmp.bch.urn]
:BZANSITMP[bz,bzBN,ggm,bzCLT,by]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ansi.835.tmp.account 44 INT R bz
ansi.835.tmp.bill.no 3 INT R bzBN
ansi.835.tmp.ins 10 FREE L MIS.INS.DICT ggm
ansi.835.tmp.clm.type 4 FREE L bzCLT
ansi.835.tmp.bch.urn 10 INT R by
ansi.835.tmp.value 150 FREE L :BZANSITMP[bz,bzBN,ggm,bzCLT,by]
Ì € i 2
bar.acct.ansi.835.rmt.tmp.clm (ansi.835.remit.tmp.clm)
[ansi.835.tmp.account,ansi.835.tmp.bill.no,ansi.835.tmp.ins,ansi.835.tmp.clm.type,ansi.835.tmp.bch.urn, ansi.835.tmp.cl
:BZANSITMP[bz,bzBN,ggm,bzCLT,by]CLM[bzSGT,bzCLN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ansi.835.tmp.clm.seg.type 8 FREE L bzSGT
ansi.835.tmp.clm.seq.no 4 INT R bzCLN
ansi.835.tmp.clm.value 150 FREE L :BZANSITMP[bz,bzBN,ggm,bzCLT,by]CLM[bzSGT,bzCLN]
Ì € i 2
bar.acct.ansi.835.rmt.tmp.svc (ansi.835.remit.tmp.svc)
[ansi.835.tmp.account,ansi.835.tmp.bill.no,ansi.835.tmp.ins,ansi.835.tmp.clm.type,ansi.835.tmp.bch.urn, ansi.835.tmp.sv
:BZANSITMP[bz,bzBN,ggm,bzCLT,by]SVC[bzSVN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ansi.835.tmp.svc.seq.no 4 INT R bzSVN
ansi.835.tmp.svc.value 150 FREE L :BZANSITMP[bz,bzBN,ggm,bzCLT,by]SVC[bzSVN]
Ì € i 2
bar.acct.ansi.835.rmt.tmp.sv.l (ansi.835.remit.tmp.svc.ln)
[ansi.835.tmp.account,ansi.835.tmp.bill.no,ansi.835.tmp.ins,ansi.835.tmp.clm.type,ansi.835.tmp.bch.urn,ansi.835.tmp.svc
:BZANSITMP[bz,bzBN,ggm,bzCLT,by]SVC[bzSVN,bzSGT,bzSLN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ansi.835.tmp.svc.ln.seg 8 FREE L bzSGT
ansi.835.tmp.svc.ln.seq 4 INT R bzSLN
ansi.835.tmp.svc.ln.value 150 FREE L :BZANSITMP[bz,bzBN,ggm,bzCLT,by]SVC[bzSVN,bzSGT,bzSLN]
Ì 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.comb.reminder.index (comb.reminder.index)
[comb.file.name,comb.reminder.for.user,comb.reminder.date,comb.reminder.account,comb.reminder.txn.urn]
?[bzCRX,gu,bzRd,bz,bzT]
Field Name Len Dat Typ J DPM Offset/Local/VAL
comb.file.name 4 CHOICE L bzCRX
comb.reminder.for.user 10 FREE L MIS.USER gu
comb.reminder.date 8 DATE L bzRd
comb.reminder.account 44 URN L BAR.PAT bz
comb.reminder.txn.urn 5 URN L bzT
Ì i 2
bar.acct.computed.stuff (computed.stuff)
Field Name Len Dat Typ J DPM Offset/Local/VAL
account.age 4 PINT R VAL=IF{@bar.status="FB" %Z.date.sub(@.today,@ar.age.da
VAL=te);@bar.status="BD" %Z.date.sub(@.today,@bd.age.d
VAL=ate);""}
age.and.sex 9 FREE L VAL=@current.age_" "_@sex
any.stmt.hold 10 FREE L VAL=IF{@BAR.PAT.hold.stmt="Y"!@BAR.PAT.guar.id's.hold.
VAL=stmts="Y"}
bar.adm.date 8 DATE L VAL=IF{@BAR.PAT.adm.date;@BAR.PAT.ser.date}
bar.dis.date 8 DATE L VAL=IF{@BAR.PAT.dis.date;@BAR.PAT.ser.dis.date}
colm.gr.addr 134 FREE L
colm.gr.addr1 30 FREE L VAL=/colm.gr.addr|0
colm.gr.addr1.s 30 FREE L VAL=colm.gr.addr|0
colm.gr.addr2 30 FREE L VAL=/colm.gr.addr|1
colm.gr.addr2.s 30 FREE L VAL=colm.gr.addr|1
colm.gr.addr3 37 FREE L VAL=/colm.gr.addr|2
colm.gr.addr3.s 37 FREE L VAL=colm.gr.addr|2
colm.gr.addr4 37 FREE L VAL=/colm.gr.addr|3
colm.gr.addr4.s 37 FREE L VAL=colm.gr.addr|3
colm.gr.addr5 37 FREE L VAL=/colm.gr.addr|4
colm.gr.addr5.s 37 FREE L VAL=colm.gr.addr|4
colm.pt.addr 134 FREE L
colm.pt.addr1 30 FREE L VAL=/colm.pt.addr|0
colm.pt.addr1.s 30 FREE L VAL=colm.pt.addr|0
colm.pt.addr2 30 FREE L VAL=/colm.pt.addr|1
colm.pt.addr2.s 30 FREE L VAL=colm.pt.addr|1
colm.pt.addr3 37 FREE L VAL=/colm.pt.addr|2
colm.pt.addr3.s 37 FREE L VAL=colm.pt.addr|2
colm.pt.addr4 37 FREE L VAL=/colm.pt.addr|3
colm.pt.addr4.s 37 FREE L VAL=colm.pt.addr|3
colm.pt.addr5 37 FREE L VAL=/colm.pt.addr|4
colm.pt.addr5.s 37 FREE L VAL=colm.pt.addr|4
computed.biller 8 FREE L BAR.BILLER VAL=IF{insurance=@MIS.PARAM.self.pay.ins IF{@override.
VAL=sp.biller;@ins.biller};@override.biller;@insurance
VAL=.biller}
contract.disp 28 FREE L VAL=IF{@BAR.PAT.contract.amount %BAR.PAT.process.contr
VAL=act("")}
contract.odue.disp 4 PINT R VAL=IF{@contract.date&(@BAR.PAT.pt.balance.billed+0:2D
VAL=>0.00) %Z.date.sub(@.today,@BAR.PAT.contract.1s
VAL=t.pmt.dt)-(@BAR.PAT.contract.paid/@BAR.PAT.contrac
VAL=t.amount*@BAR.PAT.next.stmt.period)>0}
guar.num.or.client 37 FREE L VAL=IF{"CR"=@BAR.PAT.bar.status "CLIENT: "_@BAR.PAT.cl
VAL=ient;"GUAR: "_@BAR.PAT.guar.num}
guar.or.client.name 37 FREE L VAL=IF{"CR"=@BAR.PAT.bar.status @BAR.PAT.cl.name[@BAR.
VAL=PAT.client.urn]:37T;@BAR.PAT.guar.name.disp}
inquiry.field.1 13 FREE L VAL=IF{@BAR.PAT.agency;@BAR.PAT.client;@BAR.PAT.contra
VAL=ct.date "CON "_%Z.date.out(@BAR.PAT.contract.date)
VAL=}
inquiry.field.2 25 FREE L VAL=IF{@BAR.PAT.client.urn^XX @BAR.PAT.name[XX]:13T;@B
VAL=AR.PAT.contract.amount %BAR.PAT.process.contract("
VAL=")}
ins.1 10 FREE L VAL=/i|1
ins.2 10 FREE L VAL=/i|2
ins.3 10 FREE L VAL=/i|3
ins.4 10 FREE L VAL=/i|4
ins.5 10 FREE L VAL=/i|5
line.gr 134 FREE L
line.gr.addr 120 FREE L VAL=/line.gr|0
line.gr.phone 18 PHONE L VAL=/line.gr|1
line.pt 134 FREE L
line.pt.addr 120 FREE L VAL=/line.pt|0
line.pt.phone 18 PHONE L VAL=/line.pt|1
rpt.exp.prof.rcpts 2 PINT R VAL=/RECPC
stmt.hold.bar.status 1 PINT R VAL=IF{@bar.status="BD" 2;1}
svc.or.locn 10 FREE L VAL=IF{@BAR.ACCT.TYPE.in.out[@BAR.PAT.type]="I" @BAR.P
VAL=AT.inpt.service;@BAR.PARAM.observs.get.service="Y"
VAL=&(@BAR.PAT.pt.status="OBSERV") @BAR.PAT.inpt.servi
VAL=ce;@BAR.PAT.outpt.locn}
Ì i 2
bar.acct.conv.comment (conv.comment)
[conv.com.urn]
*BZCOM[comm]
Field Name Len Dat Typ J DPM Offset/Local/VAL
conv.com.urn 10 URN L comm
conv.com.date 8 DATE L *BZCOM[comm]|1
conv.com.number 12 INT L *BZCOM[comm]|0
conv.com.text 78 *BZCOM[comm]|2
Ì € i 2
bar.acct.conv.comment.reason (conv.comment.reason)
[conv.com.urn, conv.com.reason]
*BZCOM[comm]R[reas]
Field Name Len Dat Typ J DPM Offset/Local/VAL
conv.com.reason 15 FREE L reas
Ì i 2
bar.acct.conv.comment.out (conv.comment.out)
[tape.cmt.out.number]
*BZCMOUT[tcon]
Field Name Len Dat Typ J DPM Offset/Local/VAL
tape.cmt.out.number 3 tcon
tape.cmt.out.count 7 PINT R *BZCMOUT[tcon]|0
tape.cmt.out.pat.count 7 PINT R *BZCMOUT[tcon]|1
Ì i 2
bar.acct.conv.comment.totals (conv.comment.totals)
*BZCOM
Field Name Len Dat Typ J DPM Offset/Local/VAL
conv.com.num.accepted 9 INT R *BZCOM|1
conv.com.num.processed 9 INT R *BZCOM|0
conv.com.num.rejected 9 INT R *BZCOM|2
conv.com.recs.per.block 3 PINT R *BZCOM|3
Ì i 2
bar.acct.conv.ov.balances (conv.ov.balances)
[conv.number]
*BZOVBAL[bzR]
Field Name Len Dat Typ J DPM Offset/Local/VAL
conv.number 12 FREE L bzR
conv.acct.bal 9 MONEY R *BZOVBAL[bzR]|0
conv.sp.bal 9 MONEY R *BZOVBAL[bzR]|1
Ì € i 2
bar.acct.conv.ov.balances.ins (conv.ov.balances.ins)
[conv.number, conv.ins.order]
*BZOVBAL[bzR]I[bzIO]
Field Name Len Dat Typ J DPM Offset/Local/VAL
conv.ins.order 1 PINT R bzIO
conv.ins 10 FREE L MIS.INS.DICT *BZOVBAL[bzR]I[bzIO]|0
conv.ins.bal 9 MONEY R *BZOVBAL[bzR]I[bzIO]|1
conv.ins.exp.rcpts 3 PINT R *BZOVBAL[bzR]I[bzIO]|2
Ì 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.current.acct 10 FREE L :BZTAPE[bzv]|11
tape.errors 1 PINT R :BZTAPE[bzv]|4
tape.file.name 50 FREE L :BZTAPE[bzv]|8
tape.finish.time 9 FREE L :BZTAPE[bzv]|1
tape.finish.urn 12 PINT R :BZTAPE[bzv]|6
tape.halt 15 FREE L :BZTAPE[bzv]|12
tape.load.status 15 FREE L :BZTAPE[bzv]|2
tape.master.job.num 4 FREE L :BZTAPE[bzv]|7
tape.recs.acc 8 PINT R :BZTAPE[bzv]|9
tape.recs.read 8 PINT R :BZTAPE[bzv]|3
tape.recs.rej 8 PINT R :BZTAPE[bzv]|10
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
bar.cl.rem.queue.responses (cs.cl.activity.file)
[cs.cl.for.user,cs.cl.on.date,cs.cl.by.user,cs.cl.for.date,cs.cl.account,cs.cl.txn.urn]
?BZCRR[gu,bzTS,gu1,bzRd,bz,bzT]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cs.cl.for.user 10 FREE L MIS.USER gu
cs.cl.on.date 8 DATE L bzTS
cs.cl.by.user 10 FREE L MIS.USER gu1
cs.cl.for.date 8 DATE L bzRd
cs.cl.account 44 URN L BAR.PAT bz
cs.cl.txn.urn 5 PINT R bzT
cs.cl.canned.txt.mnemonic 8 FREE L BAR.COMMENT ?BZCRR[gu,bzTS,gu1,bzRd,bz,bzT]|0
cs.cl.xfered.in 1 PINT R ?BZCRR[gu,bzTS,gu1,bzRd,bz,bzT]|1
Ì i 2
cs.cl.reminders.xfer.out (cs.cl.rem.xfer.out)
[cs.cl.xfer.user,cs.cl.xfer.date,cs.cl.acct,cs.cl.txn]
?BZCRX[gu,bzD,bz,bzT]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cs.cl.xfer.user 10 FREE L MIS.USER gu
cs.cl.xfer.date 8 DATE L bzD
cs.cl.acct 44 URN L BAR.PAT bz
cs.cl.txn 5 PINT R bzT
cs.cl.xfered.out 10 FREE L MIS.USER ?BZCRX[gu,bzD,bz,bzT]|0
Ì 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.inp (inp)
[inp.account]
:BZINP[bz]
Field Name Len Dat Typ J DPM Offset/Local/VAL
inp.account 44 URN L BAR.PAT bz
Ì € i 2
bar.acct.inp.ins.q (inp.ins.q)
[inp.account, inp.insurance]
:BZINP[bz,ggm]
Field Name Len Dat Typ J DPM Offset/Local/VAL
inp.insurance 10 FREE L MIS.INS.DICT ggm
Ì 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
alt.address 1 YN L :BZ[bz]D["D1"]|25
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 2 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
cbsa.code 10 FREE L MIS.MSA.DICT :BZ[bz]D["D1"]M|4
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.billing.rule 10 FREE L BAR.CLBRULE :BZ[bz]D["C2"]|11
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.print.ssno 1 YN L :BZ[bz]D["C2"]|10
cl.remark 65 FREE L :BZ[bz]D|3
cl.sort.name 30 FREE L :BZ[bz]D|2
cl.state 2 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
cpt.surgeon 10 FREE L MIS.DOC.DICT :BZ[bz]D["D7"]CPD|0
cpt.surgeon.name 30 FREE L VAL=@MIS.DOC.DICT.name[@cpt.surgeon]
current.age 7 FREE L VAL=%Z.age(@dob,IF{"Y"=@MIS.DIS.DICT.expired[@pt.dis.d
VAL=isp]!("Y"=@MIS.DIS.DICT.expired[@dis.disp]) @dis.d
VAL=ate})
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
dun.override.last.update 8 DATE L :BZ[bz]S["OD"]|2
dun.override.mnemonic 8 FREE L BAR.DUN.MSG :BZ[bz]S["OD"]|0
dun.override.no.stmts 2 PINT R :BZ[bz]S["OD"]|1
dun.override.user 10 FREE L MIS.USER :BZ[bz]S["OD"]|3
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.addr2 30 FREE L :BZ[bz]D["D2"]|12
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 2 FREE L :BZ[bz]D["D2"]|9
employer.state.disp 2 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
gl.conv.in.process 1 YN L :BZ[bz]GLCONV|0
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.addr2 30 FREE L :BZ[bz]D["D6"]|11
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 2 FREE L :BZ[bz]D["D6"]|8
guar.emp.state.disp 2 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 2 FREE L :BZ[bz]D["D5"]|6
guar.state.disp 2 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
health.care.province 2 FREE L :BZ[bz]D["DCAN"]|6
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=%BAR.PAT.inhouse.status(account,"NONE")
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 2 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 2 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 2 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 2 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
irf.adm.calc.hipps.cmg.cd 5 FREE L VAL=IF{@irf.adm.cmg&@irf.adm.com @irf.adm.com_@irf.adm
VAL=.cmg}
irf.adm.cmg 10 FREE L :BZ[bz]D["IRF"]|0
irf.adm.com 1 CHOICE L :BZ[bz]D["IRF"]|1
irf.dis.calc.cmg.reimb.rt 10 MONEY R VAL=%BAR.PAT.get.irf.cmg.reimbursement(account)
irf.dis.calc.hipps.cmg.cd 5 FREE L VAL=IF{@irf.dis.cmg&@irf.dis.com @irf.dis.com_@irf.dis
VAL=.cmg}
irf.dis.cmg 10 FREE L :BZ[bz]D["IRF"]|2
irf.dis.com 1 CHOICE L :BZ[bz]D["IRF"]|3
irf.dis.final.assess.dt 8 DATE L :BZ[bz]D["IRF"]|5
last.bill.txn 5 PINT R :BZ[bz]|9
last.billed.date 8 DATE L :BZ[bz]|33
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
last.txn.pre.4.4 4 PINT R :BZ[bz]CONV4|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}
mam.archive.acct.urn 44 URN L :BZ[bz]D["D1"]M|2
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.gr.can 6 INT R :BZ[bz]D["N"]|2
newborn.weight.lbs 3 PINT R :BZ[bz]D["N"]|0
newborn.weight.ozs 5 DEC2 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.irf.calc.hipps.cmg.cd 5 FREE L :BZ[bz]D["IRF"]|4
on.hold.by 10 FREE L MIS.USER :BZ[bz]S|6
on.hold.date 8 DATE L :BZ[bz]S|7
os.agency.xfer.date 8 DATE L :BZ[bz]|32
other.phone 18 PHONE L :BZ[bz]D["D1"]M|0
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
outreach.pt.number 15 FREE L :BZ[bz]D["D1"]M|3
outsourced.agency 1 FREE L VAL=(@BAR.PAT.bar.status="FB"&("Y"=@BAR.COL.AG.outsour
VAL=ced[@BAR.PAT.agency]))
outsourced.agency.pfx 1 FREE L VAL=IF{"Y"=@BAR.COL.AG.outsourced[@BAR.PAT.agency] "o"
VAL=}
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
pe.inhouse.status 10 CHOICE L VAL=%BAR.PAT.inhouse.status(account,period)
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.dis.disp 10 FREE L MIS.DIS.DICT :BZ[bz]D["D4"]|24
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 SMONEY 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 SMONEY 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 SMONEY 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 SMONEY 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 SMONEY 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 SMONEY 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 4 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
ur.last.txn.eval 3 :BZ[bz]CC|0
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
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 2 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.oth.pat.resp 10 DEC2 R :BZ[bz]D["D7"]APC[bzapD]|8
apc.total.pay 10 DEC2 R :BZ[bz]D["D7"]APC[bzapD]|1
apc.total.reimb 10 DEC2 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 FREE L 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.line.outlier 10 DEC2 R :BZ[bz]D["D7"]APC[bzapD,bzapS]|8
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 5 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 FREE L 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.apg.cpts (apg.cpts)
[apg.seq.no, apg.cpt.seq]
:BZ[bz]D["D7"]A[bzapS]C[bzapC]
Field Name Len Dat Typ J DPM Offset/Local/VAL
apg.cpt.seq 4 PINT R bzapC
apg.cpt 8 FREE L ABS.CPT :BZ[bz]D["D7"]A[bzapS]C[bzapC]|0
apg.cpt.mod 2 CHOICE L :BZ[bz]D["D7"]A[bzapS]C[bzapC]|1
Ì € 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 2 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 2 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
diag.poa 1 CHOICE L :BZ[bz]D["D7"]DX[bzDN]|2
Ì € i 2
diag.reason.for.visit (diag.reason.for.visit)
[account, diag.rv.seq.no]
:BZ[bz]D["D7"]RV[bzRV]
Field Name Len Dat Typ J DPM Offset/Local/VAL
diag.rv.seq.no 2 URN L bzRV
diag.rv.code 6 FREE L :BZ[bz]D["D7"]RV[bzRV]|0
diag.rv.desc 45 FREE L :BZ[bz]D["D7"]RV[bzRV]|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 2 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.assist 10 FREE L MIS.DOC.DICT :BZ[bz]D["D7"]P[bzPN]|5
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.acct.guar.email (guar.emails)
[account, guar.email.seq]
:BZ[bz]D["D5"]E[bzGE]
Field Name Len Dat Typ J DPM Offset/Local/VAL
guar.email.seq 2 PINT R bzGE
guar.email 40 FREE L :BZ[bz]D["D5"]E[bzGE]|0
Ì € 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
hhrg.scic 1 YN L :BZ[bz]D["D9",bzCSD]V[bzHSD]|7
Ì € 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
aud.hh.scic 1 YN L :BZ[bz]D["D9",bzCSD]V[bzHSD,hasD,hasT]|7
Ì € 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.acct.hhrg.visits2 (hhrg.visits2)
[account,cert.start.date, hhrg.start.date2]
:BZ[bz]D["D9",bzCSD]VD[bzHSD]
Field Name Len Dat Typ J DPM Offset/Local/VAL
hhrg.start.date2 8 DATE L bzHSD
Ì € 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
images (images)
[account, form,form.seq.no]
:BZ[bz]D["IM",gi,fsn]
Field Name Len Dat Typ J DPM Offset/Local/VAL
form 15 FREE L MIS.MR.FORM gi
form.seq.no 2 PINT R fsn
date.created 8 DATE L :BZ[bz]D["IM",gi,fsn]|0
time.created 4 TIME L :BZ[bz]D["IM",gi,fsn]|1
user 10 FREE L MIS.USER :BZ[bz]D["IM",gi,fsn]|2
Ì € i 2
image.pages (image.pages)
[account,form,form.seq.no, page]
:BZ[bz]D["IM",gi,fsn]P[imp]
Field Name Len Dat Typ J DPM Offset/Local/VAL
page 2 PINT R imp
page.full.path 128 FREE L :BZ[bz]D["IM",gi,fsn]P[imp]|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 2 PINT R bzON
occur.date 8 DATE L :BZ[bz]D["O",bzON]|1
occur.state 2 FREE L MIS.CAN.PROV :BZ[bz]D["O",bzON]|3
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.adm.comments (ptadmcomments)
[account, adm.comment.number]
:BZ[bz]D["ADMCOM",bzCOM]
Field Name Len Dat Typ J DPM Offset/Local/VAL
adm.comment.number 3 PINT R bzCOM
bar.txn.urn 5 URN L :BZ[bz]D["ADMCOM",bzCOM]|0
Ì € i 2
bar.acct.ptid.email (ptid.emails)
[account, email.seq]
:BZ[bz]D["D1"]E[bzE]
Field Name Len Dat Typ J DPM Offset/Local/VAL
email.seq 2 PINT R bzE
email 40 FREE L :BZ[bz]D["D1"]E[bzE]|0
email.usable 1 YN L :BZ[bz]D["D1"]E[bzE]|1
Ì € 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 10 SMONEY R :BZ[bz]D["V",bzVN]|1
value.code 8 FREE L BAR.UB82.VALCDS:BZ[bz]D["V",bzVN]|0
Ì € 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
bills.last.billed.date 8 DATE L :BZ[bz]B[bzBN]T|0
cl.bill.billing.rule 10 FREE L BAR.CLBRULE :BZ[bz]B[bzBN]O|3
cl.bill.converted 1 FREE L :BZ[bz]B[bzBN]O|4
cl.bill.discount.pointer 5 PINT R :BZ[bz]B[bzBN]O|7
cl.bill.pt.chg.pointer 5 PINT R :BZ[bz]B[bzBN]O|6
cl.bill.rev.bill.printed 1 YN L :BZ[bz]B[bzBN]O|10
cl.bill.rev.pointer 5 PINT R :BZ[bz]B[bzBN]O|8
cl.bill.summarized 1 YN L :BZ[bz]B[bzBN]O|9
cl.bill.was.purged 1 YN L :BZ[bz]B[bzBN]O|5
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
zero.amt.chgs 3 PINT R :BZ[bz]B[bzBN]|41
Ì € i 2
bar.bills.cl.accounts (bills.cl.accounts)
[account,bill.no, cl.bill.account.urn]
:BZ[bz]B[bzBN]CLA[bzCR]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cl.bill.account.urn 44 FREE L bzCR
cl.bill.account.no 12 FREE L :BZ[bz]B[bzBN]CLA[bzCR]|0
cl.bill.transfer.amount 10 SMONEY R :BZ[bz]B[bzBN]CLA[bzCR]|1
cl.bill.xfer.out 1 FREE L :BZ[bz]B[bzBN]CLA[bzCR]|2
| | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | |