Ì i 2
abs.xfer.accts
[abs.date, abs.acct.no]
*(B1)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 *(B1)BZAB[bzABS,bzR]|0
abs.ins.bal 9 SMONEY R *(B1)BZAB[bzABS,bzR]|3
abs.ins.rec 9 SMONEY R *(B1)BZAB[bzABS,bzR]|1
abs.last.txn 4 INT R *(B1)BZAB[bzABS,bzR]|9
abs.next.bill.date 8 DATE L *(B1)BZAB[bzABS,bzR]|7
abs.next.type.of.bill 3 FREE L *(B1)BZAB[bzABS,bzR]|6
abs.pri.ins.deductible 13 SMONEY R *(B1)BZAB[bzABS,bzR]|8
abs.pt.bal 9 SMONEY R *(B1)BZAB[bzABS,bzR]|4
abs.pt.rec 9 SMONEY R *(B1)BZAB[bzABS,bzR]|2
abs.reimb.changed 1 CHOICE L *(B1)BZAB[bzABS,bzR]|5
abs.xfer.claim 10 FREE L BAR.CLAIM *(B1)BZAB[bzABS,bzR]|10
Ì € i 2
abs.xfer.procs
[abs.date,abs.acct.no, abs.proc]
*(B1)BZAB[bzABS,bzR]P[bd]
Field Name Len Dat Typ J DPM Offset/Local/VAL
abs.proc 10 FREE L BAR.PROC bd
Ì € i 2
abs.xfer.alt.code
[abs.date,abs.acct.no,abs.proc, abs.alt.pc.date,abs.alt.code.type]
*(B1)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.type 12 FREE L bdAC
old.abs.alt.code 12 FREE L *(B1)BZAB[bzABS,bzR]P[bd]ALT[gpSD,bdAC]|0
old.abs.alt.description 30 FREE L *(B1)BZAB[bzABS,bzR]P[bd]ALT[gpSD,bdAC]|1
Ì € i 2
abs.xfer.alt.code.line
[abs.date,abs.acct.no,abs.proc,abs.alt.pc.date,abs.alt.code.type, abs.alt.line]
*(B1)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 *(B1)BZAB[bzABS,bzR]P[bd]ALT[gpSD,bdAC,altn]|9
abs.alt.code 12 FREE L *(B1)BZAB[bzABS,bzR]P[bd]ALT[gpSD,bdAC,altn]|0
abs.alt.description 30 FREE L *(B1)BZAB[bzABS,bzR]P[bd]ALT[gpSD,bdAC,altn]|1
abs.alt.mod1 2 FREE L *(B1)BZAB[bzABS,bzR]P[bd]ALT[gpSD,bdAC,altn]|3
abs.alt.mod2 2 FREE L *(B1)BZAB[bzABS,bzR]P[bd]ALT[gpSD,bdAC,altn]|4
abs.alt.mod3 2 FREE L *(B1)BZAB[bzABS,bzR]P[bd]ALT[gpSD,bdAC,altn]|5
abs.alt.mod4 2 FREE L *(B1)BZAB[bzABS,bzR]P[bd]ALT[gpSD,bdAC,altn]|6
abs.alt.mod5 2 FREE L *(B1)BZAB[bzABS,bzR]P[bd]ALT[gpSD,bdAC,altn]|7
abs.alt.qty 5 FREE L *(B1)BZAB[bzABS,bzR]P[bd]ALT[gpSD,bdAC,altn]|2
abs.alt.rev.code 5 FREE L *(B1)BZAB[bzABS,bzR]P[bd]ALT[gpSD,bdAC,altn]|8
Ì € i 2
abs.xfer.corps
[abs.date,abs.acct.no,abs.proc, abs.corp]
*(B1)BZAB[bzABS,bzR]P[bd]CR[gvCN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
abs.corp 4 FREE L MIS.GL.CORP gvCN
Ì € i 2
abs.xfer.periods
[abs.date,abs.acct.no,abs.proc,abs.corp, abs.pp.date]
*(B1)BZAB[bzABS,bzR]P[bd]CR[gvCN]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 *(B1)BZAB[bzABS,bzR]P[bd]CR[gvCN]G[gpD]|1
abs.pp.count 6 PINT R *(B1)BZAB[bzABS,bzR]P[bd]CR[gvCN]G[gpD]|0
Ì € i 2
abs.xfer.dates
[abs.date,abs.acct.no,abs.proc,abs.corp,abs.pp.date, abs.pc.date]
*(B1)BZAB[bzABS,bzR]P[bd]CR[gvCN]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 *(B1)BZAB[bzABS,bzR]P[bd]CR[gvCN]G[gpD]D[gpSD]|1
abs.pc.count 6 PINT R *(B1)BZAB[bzABS,bzR]P[bd]CR[gvCN]G[gpD]D[gpSD]|0
Ì € i 2
abs.xfer.date.site
[abs.date,abs.acct.no,abs.proc,abs.corp,abs.pp.date,abs.pc.date, abs.date.rev.site]
*(B1)BZAB[bzABS,bzR]P[bd]CR[gvCN]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 *(B1)BZAB[bzABS,bzR]P[bd]CR[gvCN]G[gpD]D[gpSD]R[gyr]|1
abs.date.rs.count 6 PINT R *(B1)BZAB[bzABS,bzR]P[bd]CR[gvCN]G[gpD]D[gpSD]R[gyr]|0
Ì € i 2
abs.xfer.site
[abs.date,abs.acct.no,abs.proc,abs.corp,abs.pp.date, abs.rev.site]
*(B1)BZAB[bzABS,bzR]P[bd]CR[gvCN]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 *(B1)BZAB[bzABS,bzR]P[bd]CR[gvCN]G[gpD]R[gyr]|1
abs.rs.count 6 PINT R *(B1)BZAB[bzABS,bzR]P[bd]CR[gvCN]G[gpD]R[gyr]|0
Ì i 2
cl.bills
[cl.bill.client,cl.bill.seq.number]
*(B)BZCLB[bzCL,bzCB]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cl.bill.client 8 FREE L bzCL
cl.bill.seq.number 4 URN L bzCB
cl.bill.date 8 DATE L *(B)BZCLB[bzCL,bzCB]|3
cl.bill.discount 11 SMONEY R *(B)BZCLB[bzCL,bzCB]|2
cl.bill.exempt.chg 11 SMONEY R *(B)BZCLB[bzCL,bzCB]|1
cl.bill.purged 1 YN L *(B)BZCLB[bzCL,bzCB]|4
cl.bill.total.chg 11 SMONEY R *(B)BZCLB[bzCL,bzCB]|0
Ì € i 2
cl.bill.drs
[cl.bill.client,cl.bill.seq.number, cl.bill.dr]
*(B)BZCLB[bzCL,bzCB,ggg]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cl.bill.dr 10 FREE L MIS.DOC ggg
cl.bill.dr.discount 11 SMONEY R *(B)BZCLB[bzCL,bzCB,ggg]|2
cl.bill.dr.exempt.chg 11 SMONEY R *(B)BZCLB[bzCL,bzCB,ggg]|1
cl.bill.dr.total.chg 11 SMONEY R *(B)BZCLB[bzCL,bzCB,ggg]|0
Ì € i 2
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.
*(B)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
conv.tape.load.results
[tape.volume]
*(B)BZTAPE[bzv]
Field Name Len Dat Typ J DPM Offset/Local/VAL
tape.volume 4 PINT R bzv
tape.errors 1 PINT R *(B)BZTAPE[bzv]|4
tape.finish.time 9 FREE L *(B)BZTAPE[bzv]|1
tape.finish.urn 12 PINT R *(B)BZTAPE[bzv]|6
tape.load.status 15 FREE L *(B)BZTAPE[bzv]|2
tape.master.job.num 4 FREE L *(B)BZTAPE[bzv]|7
tape.recs.read 8 PINT R *(B)BZTAPE[bzv]|3
tape.start.time 9 FREE L *(B)BZTAPE[bzv]|0
tape.start.urn 12 PINT R *(B)BZTAPE[bzv]|5
Ì i 2
cs.activity.file
[cs.for.user,cs.on.date,cs.by.user,cs.for.date,cs.account,cs.txn.urn]
*(B1)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 10 FREE L BAR.COMMENT *(B1)BZRR[gu,bzTS,gu1,bzRd,bz,bzT]|0
cs.xfered.in 1 PINT R *(B1)BZRR[gu,bzTS,gu1,bzRd,bz,bzT]|1
Ì i 2
cs.rem.xfer.out
[cs.xfer.user,cs.xfer.date,cs.acct,cs.txn]
*(B1)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 *(B1)BZRX[gu,bzD,bz,bzT]|0
Ì i 2
pe.status.vector
[period,pe.account]
*(B2)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 *(B2)BZPE[bzP,bz]|15
pe.any.cl.dis.exemptions 1 YN L *(B2)BZPE[bzP,bz]|25
pe.ar.age.date 8 DATE L *(B2)BZPE[bzP,bz]|12
pe.ar.chg.total 9 SMONEY R *(B2)BZPE[bzP,bz]|6
pe.balance 9 SMONEY R *(B2)BZPE[bzP,bz]|2
pe.bar.status 2 CHOICE L *(B2)BZPE[bzP,bz]|1
pe.bd.age.date 8 DATE L *(B2)BZPE[bzP,bz]|13
pe.billing.rule 8 FREE L BAR.BRULE *(B2)BZPE[bzP,bz]|18
pe.chg.total 9 SMONEY R VAL=(@BAR.PAT.pe.ur.chg.total+@BAR.PAT.pe.ar.chg.total
VAL=)
pe.cl.pending.charges 11 SMONEY R *(B2)BZPE[bzP,bz]|23
pe.cl.unapplied.credits 9 SMONEY R *(B2)BZPE[bzP,bz]|24
pe.client.urn 10 FREE L *(B2)BZPE[bzP,bz]|17
pe.contract.amount 8 MONEY R *(B2)BZPE[bzP,bz]|21
pe.contract.date 8 DATE L *(B2)BZPE[bzP,bz]|20
pe.contract.paid 8 MONEY R *(B2)BZPE[bzP,bz]|22
pe.corp 4 FREE L MIS.GL.CORP *(B2)BZPE[bzP,bz]|30
pe.fee.schedule 12 FREE L BAR.FEE.SCH *(B2)BZPE[bzP,bz]|11
pe.inhouse.status 10 CHOICE L VAL=IF{@pe.ur.chg.total+0'=0 IF{@pe.pt.type="I" IF{@di
VAL=s.date'>period "DIS-IN";"INHOUSE"};(/(.S).PTO@T
VAL=r.l2u)};""}
pe.insurance.balance 9 SMONEY R *(B2)BZPE[bzP,bz]|4
pe.last.bill.txn 5 PINT R *(B2)BZPE[bzP,bz]|9
pe.last.pay.date 8 DATE L *(B2)BZPE[bzP,bz]|14
pe.last.post.txn 5 PINT R *(B2)BZPE[bzP,bz]|26
pe.last.st.txn 5 PINT R *(B2)BZPE[bzP,bz]|8
pe.last.txn 5 PINT R *(B2)BZPE[bzP,bz]|0
pe.pt.balance 9 SMONEY R *(B2)BZPE[bzP,bz]|3
pe.pt.type 1 CHOICE L *(B2)BZPE[bzP,bz]|19
pe.stmt.grp 8 FREE L BAR.STMT.GRP *(B2)BZPE[bzP,bz]|27
pe.type 8 FREE L BAR.ACCT.TYPE *(B2)BZPE[bzP,bz]|10
pe.ur.chg.total 9 SMONEY R *(B2)BZPE[bzP,bz]|5
pe.vector.final 8 DATE L *(B2)BZPE[bzP,bz]|33
pe.zero.date 8 DATE L *(B2)BZPE[bzP,bz]|16
Ì € i 2
pe.cl.aged.ar
[period,pe.account, pe.cl.age.date]
*(B2)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 *(B2)BZPE[bzP,bz]1[bzCD]
Ì € i 2
pe.ins.order
[period,pe.account, pe.insurance.order]
*(B2)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 *(B2)BZPE[bzP,bz]O[bzIO]|0
Ì € i 2
pe.insurance.ledger
[period,pe.account, pe.ins]
*(B2)BZPE[bzP,bz]0[ggm]
Field Name Len Dat Typ J DPM Offset/Local/VAL
pe.ins 10 FREE L MIS.INS ggm
pe.ins.adj 9 MONEY R *(B2)BZPE[bzP,bz]0[ggm]|4
pe.ins.auto.transfer 9 MONEY R *(B2)BZPE[bzP,bz]0[ggm]|7
pe.ins.balance 9 MONEY R *(B2)BZPE[bzP,bz]0[ggm]|0
pe.ins.biller 8 FREE L BAR.BILLER *(B2)BZPE[bzP,bz]0[ggm]|17
pe.ins.collector 8 FREE L BAR.COLLECTOR *(B2)BZPE[bzP,bz]0[ggm]|9
pe.ins.exp.reimb 10 MONEY R *(B2)BZPE[bzP,bz]0[ggm]|15
pe.ins.last.pay.txn 4 INT R *(B2)BZPE[bzP,bz]0[ggm]|16
pe.ins.manual.edit 9 MONEY R *(B2)BZPE[bzP,bz]0[ggm]|6
pe.ins.num.adjs 3 PINT R *(B2)BZPE[bzP,bz]0[ggm]|12
pe.ins.num.exp.rcpts 3 PINT R *(B2)BZPE[bzP,bz]0[ggm]|10
pe.ins.num.rcpts 3 PINT R *(B2)BZPE[bzP,bz]0[ggm]|11
pe.ins.num.refs 3 PINT R *(B2)BZPE[bzP,bz]0[ggm]|13
pe.ins.nxt.reminder.dt 8 DATE L *(B2)BZPE[bzP,bz]0[ggm]|19
pe.ins.orig.post.date 8 DATE L *(B2)BZPE[bzP,bz]0[ggm]|18
pe.ins.prorate.adj 9 MONEY R *(B2)BZPE[bzP,bz]0[ggm]|2
pe.ins.prorate.amount 9 MONEY R *(B2)BZPE[bzP,bz]0[ggm]|1
pe.ins.rcpt 9 MONEY R *(B2)BZPE[bzP,bz]0[ggm]|3
pe.ins.ref 9 MONEY R *(B2)BZPE[bzP,bz]0[ggm]|5
pe.ins.transfer.date 8 DATE L *(B2)BZPE[bzP,bz]0[ggm]|14
Ì € i 2
pe.insurance.bill.ledger
[period,pe.account,pe.ins, pe.ins.bill.no]
*(B2)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 *(B2)BZPE[bzP,bz]0[ggm]B[bzBN]|4
pe.ins.bill.age.date 8 DATE L *(B2)BZPE[bzP,bz]0[ggm]B[bzBN]|16
pe.ins.bill.auto.transfer 9 MONEY R *(B2)BZPE[bzP,bz]0[ggm]B[bzBN]|7
pe.ins.bill.balance 9 MONEY R *(B2)BZPE[bzP,bz]0[ggm]B[bzBN]|0
pe.ins.bill.date.sent 8 DATE L *(B2)BZPE[bzP,bz]0[ggm]B[bzBN]|17
pe.ins.bill.exp.reimb 10 MONEY R *(B2)BZPE[bzP,bz]0[ggm]B[bzBN]|15
pe.ins.bill.manual.edit 9 MONEY R *(B2)BZPE[bzP,bz]0[ggm]B[bzBN]|6
pe.ins.bill.num.adjs 3 PINT R *(B2)BZPE[bzP,bz]0[ggm]B[bzBN]|12
pe.ins.bill.num.exp.rcpts 3 PINT R *(B2)BZPE[bzP,bz]0[ggm]B[bzBN]|10
pe.ins.bill.num.rcpts 3 PINT R *(B2)BZPE[bzP,bz]0[ggm]B[bzBN]|11
pe.ins.bill.num.refs 3 PINT R *(B2)BZPE[bzP,bz]0[ggm]B[bzBN]|13
pe.ins.bill.prorate.adj 9 MONEY R *(B2)BZPE[bzP,bz]0[ggm]B[bzBN]|2
pe.ins.bill.prorate.amt 9 MONEY R *(B2)BZPE[bzP,bz]0[ggm]B[bzBN]|1
pe.ins.bill.rcpt 9 MONEY R *(B2)BZPE[bzP,bz]0[ggm]B[bzBN]|3
pe.ins.bill.ref 9 MONEY R *(B2)BZPE[bzP,bz]0[ggm]B[bzBN]|5
pe.ins.bill.resolved.date 8 DATE L *(B2)BZPE[bzP,bz]0[ggm]B[bzBN]|18
pe.ins.bill.transfer.date 8 DATE L *(B2)BZPE[bzP,bz]0[ggm]B[bzBN]|14
Ì i 2
top
[account]
$(B1)BZ[bz]
Field Name Len Dat Typ J DPM Offset/Local/VAL
account 44 URN L bz
abs.status 10 CHOICE L $(B1)BZ[bz]M["D"]D7|15
acct.type 8 FREE L BAR.ACCT.TYPE $(B1)BZ[bz]M["D"]D1|10
acct.urn 44 URN L
activity.date 8 DATE L
activity.type 1 CHOICE L
addr1 30 FREE L $(B1)BZ[bz]M["D"]D1|3
addr2 30 FREE L $(B1)BZ[bz]M["D"]D1|4
adj.total 11 MONEY R VAL=%BAR.PAT.get.credit.total("A",account)
adm.date 8 DATE L $(B1)BZ[bz]M["D"]D3|12
adm.diagnosis 30 FREE L $(B1)BZ[bz]M["D"]D3|11
adm.er.phys 10 FREE L MIS.DOC VAL=IF{@BAR.PAT.admit.phys;@BAR.PAT.er.phys}
adm.er.phys.name 30 FREE L VAL=%Z.name.inversion(@MIS.DOC.name[IF{@BAR.PAT.admit.
VAL=phys;@BAR.PAT.er.phys}],1)
adm.priority 10 FREE L MIS.ADM.PRIORT $(B1)BZ[bz]M["D"]D4|0
adm.purge.date 8 DATE L $(B1)BZ[bz]M["D"]|4
adm.src 10 FREE L MIS.ADM.SOURCE $(B1)BZ[bz]M["D"]D4|1
adm.status 8 FREE L $(B1)BZ[bz]M["D"]D3|16
adm.time 4 TIME L $(B1)BZ[bz]M["D"]D3|13
admit.diag 6 FREE L $(B1)BZ[bz]M["D"]D7|5
admit.diag.desc 50 FREE L $(B1)BZ[bz]M["D"]D7|7
admit.phys 10 FREE L MIS.DOC $(B1)BZ[bz]M["D"]D3|1
admit.phys.name 30 FREE L VAL=%Z.name.inversion(@MIS.DOC.name[@BAR.PAT.admit.phy
VAL=s],1)
age 3 INT R $(B1)BZ[bz]M["D"]D1|15
agency 8 FREE L BAR.COL.AG $(B1)BZ[bz]M|15
agency.addr1 30 FREE L VAL=IF{@BAR.PAT.agency^BAR.COL.AG.mnemonic @BAR.COL.AG
VAL=.address1}
agency.addr2 30 FREE L VAL=IF{@BAR.PAT.agency^BAR.COL.AG.mnemonic @BAR.COL.AG
VAL=.address2}
agency.addr3 30 FREE L VAL=IF{@BAR.PAT.agency^BAR.COL.AG.mnemonic @BAR.COL.AG
VAL=.address3}
agency.name 30 FREE L VAL=IF{@BAR.PAT.agency^BAR.COL.AG.mnemonic @BAR.COL.AG
VAL=.name}
agency.phone 18 FREE L VAL=IF{@BAR.PAT.agency^BAR.COL.AG.mnemonic @BAR.COL.AG
VAL=.phone}
any.cl.dis.exemptions 1 YN L $(B1)BZ[bz]M|25
apc.charges 4 INT R $(B1)BZ[bz]M["D"]D7|16
apg.summary 6 FREE L MIS.APG.NAME $(B1)BZ[bz]M["D"]D7["A"]|0
apg.tot.cost.wt 10 DEC R $(B1)BZ[bz]M["D"]D7["A"]|1
apg.tot.exp.reimb 10 DEC2 R $(B1)BZ[bz]M["D"]D7["A"]|2
apg.tot.rate 10 DEC R $(B1)BZ[bz]M["D"]D7["A"]|3
ar.age.date 8 DATE L $(B1)BZ[bz]M|12
ar.chg.total 9 SMONEY R $(B1)BZ[bz]M|6
attend.phys 10 FREE L MIS.DOC $(B1)BZ[bz]M["D"]D3|2
attend.phys.name 30 FREE L VAL=%Z.name.inversion(@MIS.DOC.name[@BAR.PAT.attend.ph
VAL=ys],1)
balance 9 SMONEY R $(B1)BZ[bz]M|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 $(B1)BZ[bz]M["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 $(B1)BZ[bz]M|1
bd.age.date 8 DATE L $(B1)BZ[bz]M|13
bed 3 FREE L $(B1)BZ[bz]M["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 $(B1)BZ[bz]M|18
birthdate 10 BDATE L $(B1)BZ[bz]M["D"]D1|14
blood.ded 2 INT R $(B1)BZ[bz]M["D"]U|14
blood.furn 2 INT R $(B1)BZ[bz]M["D"]U|11
blood.not.repl 2 INT R $(B1)BZ[bz]M["D"]U|13
blood.repl 2 INT R $(B1)BZ[bz]M["D"]U|12
bus.phone 18 PHONE L $(B1)BZ[bz]M["D"]D1|9
calc.drg 6 FREE L MIS.DRG.NAME $(B1)BZ[bz]M["D"]D7|1
calc.next.stmt.msg.no 3 PINT R VAL=%BAR.PAT.next.stmt.msg(BAR.PAT.account,stmt.grp)
cancelled 1 YN L $(B1)BZ[bz]M["D"]|13
cci.acct.status.at.cci 15 FREE L $(B1)BZ[bz]M["D"]CCI|9
cci.comment 59 FREE L $(B1)BZ[bz]M["D"]CCI|8
cci.delete.reason 1 FREE L $(B1)BZ[bz]M["D"]CCI|5
cci.last.edit.date 8 DATE L $(B1)BZ[bz]M["D"]CCI|7
cci.last.rej.date 8 DATE L $(B1)BZ[bz]M["D"]CCI|6
cci.last.txn 4 INT R $(B1)BZ[bz]M["D"]CCI|2
cci.retd.from.cci.date 8 DATE L $(B1)BZ[bz]M["D"]CCI|4
cci.sent.to.cci.date 8 DATE L $(B1)BZ[bz]M["D"]CCI|3
cci.status 3 FREE L $(B1)BZ[bz]M["D"]CCI|0
cci.status.edit.type 3 FREE L $(B1)BZ[bz]M["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)
city 20 FREE L $(B1)BZ[bz]M["D"]D1|5
cl.acct.type 8 FREE L BAR.ACCT.TYPE $(B1)BZ[bz]M["D"]D1|10
cl.active 1 YN L $(B1)BZ[bz]M["D"]C2|4
cl.addr1 30 FREE L $(B1)BZ[bz]M["D"]D1|3
cl.addr2 30 FREE L $(B1)BZ[bz]M["D"]D1|4
cl.city 20 FREE L $(B1)BZ[bz]M["D"]D1|5
cl.current.bill.number 6 INT R $(B1)BZ[bz]M["D"]C2|2
cl.discount.direct 1 YN L $(B1)BZ[bz]M["D"]C2|5
cl.discount.procedure 10 FREE L BAR.PROC $(B1)BZ[bz]M["D"]C2|1
cl.fee.schedule 12 FREE L BAR.FEE.SCH $(B1)BZ[bz]M["D"]C2|3
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 $(B1)BZ[bz]M["D"]C2|7
cl.last.pat.purge 8 DATE L $(B1)BZ[bz]M["D"]C2|6
cl.name 30 FREE L $(B1)BZ[bz]M["D"]|1
cl.number 12 FREE L $(B1)BZ[bz]M["D"]|0
cl.pat.purge.count 6 INT R $(B1)BZ[bz]M["D"]C2|8
cl.pending.charges 9 SMONEY R $(B1)BZ[bz]M|23
cl.phone 18 PHONE L $(B1)BZ[bz]M["D"]D1|8
cl.remark 60 FREE L $(B1)BZ[bz]M["D"]|3
cl.sort.name 30 FREE L $(B1)BZ[bz]M["D"]|2
cl.state 2 FREE L $(B1)BZ[bz]M["D"]D1|6
cl.unapplied.credits 9 SMONEY R $(B1)BZ[bz]M|24
cl.zip 10 ZIP.POST L $(B1)BZ[bz]M["D"]D1|7
client 12 FREE L $(B1)BZ[bz]M["D"]D1|11
client.addr1 30 FREE L VAL=%BAR.PAT.get.field.client(A,B,C)
client.addr2 30 FREE L VAL=%BAR.PAT.get.field.client(A,B,C)
client.city 20 FREE L VAL=%BAR.PAT.get.field.client(A,B,C)
client.name 30 FREE L VAL=%BAR.PAT.get.field.client(A,B,C)
client.phone 18 PHONE L VAL=%BAR.PAT.get.field.client(A,B,C)
client.state 2 FREE L VAL=%BAR.PAT.get.field.client(A,B,C)
client.urn 10 FREE L $(B1)BZ[bz]M|17
client.zip 10 ZIP.POST L VAL=%BAR.PAT.get.field.client(A,B,C)
coinsurance.days 3 INT R $(B1)BZ[bz]M["D"]U|4
coinsurance.rate 9 SMONEY R $(B1)BZ[bz]M["D"]U|3
collection.event 10 FREE L BAR.COL.EV $(B1)BZ[bz]M["S"]|14
confidential 1 YN L $(B1)BZ[bz]M["D"]|11
contract.1st.pmt.dt 8 DATE L $(B1)BZ[bz]M|29
contract.amount 8 MONEY R $(B1)BZ[bz]M|21
contract.date 8 DATE L $(B1)BZ[bz]M|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 $(B1)BZ[bz]M|22
corp 4 FREE L MIS.GL.CORP $(B1)BZ[bz]M|30
current.age 7 FREE L VAL=%Z.age(@dob,IF{"Y"=@MIS.DIS.expired[@pt.dis.disp]!
VAL=("Y"=@MIS.DIS.expired[@dis.disp]) @dis.date})
current.coll.group 8 FREE L BAR.STMT.GRP $(B1)BZ[bz]M["S"]|16
current.coll.ins 10 FREE L MIS.INS $(B1)BZ[bz]M["S"]|17
cycle.day 2 PINT R $(B1)BZ[bz]M["S"]|3
dis.date 8 DATE L $(B1)BZ[bz]M["D"]D4|8
dis.diagnosis 30 FREE L $(B1)BZ[bz]M["D"]D4|13
dis.disp 10 FREE L MIS.DIS $(B1)BZ[bz]M["D"]D4|10
dis.time 4 TIME L $(B1)BZ[bz]M["D"]D4|9
dob 10 BDATE L $(B1)BZ[bz]M["D"]D1|17
dont.use 8 DATE L $(B1)BZ[bz]M|33
drg.arith.los 5 DEC R $(B1)BZ[bz]M["D"]D7|13
drg.dol 9 SMONEY R $(B1)BZ[bz]M["D"]D7|6
drg.geom.los 5 DEC R $(B1)BZ[bz]M["D"]D7|14
drg.max.stay 6 DEC R $(B1)BZ[bz]M["D"]D7|3
drg.min.stay 6 DEC R $(B1)BZ[bz]M["D"]D7|2
drg.status 1 CHOICE L $(B1)BZ[bz]M["D"]D7|0
drg.std.stay 6 DEC R $(B1)BZ[bz]M["D"]D7|4
edit.date 8 DATE L $(B1)BZ[bz]M["D"]|7
edit.or.switch.guar.num 1 CHOICE L $(B1)BZ[bz]M["D"]D1|24
email.guar 40 FREE L $(B1)BZ[bz]M["D"]DE|3
email.guar.yn 1 YN L $(B1)BZ[bz]M["D"]DE|2
email.pat 40 FREE L $(B1)BZ[bz]M["D"]DE|1
email.pat.bus 40 FREE L $(B1)BZ[bz]M["D"]DE|4
email.pat.yn 1 YN L $(B1)BZ[bz]M["D"]DE|0
emp.addr 30 FREE L VAL=IF{@employer.addr;@MIS.EMPLR.address[@employer]}
emp.city 30 FREE L VAL=IF{@employer.city;@MIS.EMPLR.city[@employer]}
emp.name 30 FREE L VAL=IF{@employer.name;@MIS.EMPLR.name[@employer]}
emp.phone 18 PHONE L VAL=IF{@employer.phone;@MIS.EMPLR.phone[@employer]}
emp.state 2 FREE L VAL=IF{@employer.state;@MIS.EMPLR.state[@employer]}
emp.status 10 FREE L MIS.EMP.STATUS $(B1)BZ[bz]M["D"]D2|2
emp.zip 10 ZIP.POST L VAL=IF{@employer.zip;@MIS.EMPLR.zip[@employer]}
employee.id 10 FREE L $(B1)BZ[bz]M["D"]D2|3
employer 10 FREE L MIS.EMPLR $(B1)BZ[bz]M["D"]D2|4
employer.addr 30 FREE L $(B1)BZ[bz]M["D"]D2|6
employer.addr.disp 30 FREE L VAL=IF{@employer's.address;@employer.addr}
employer.city 30 FREE L $(B1)BZ[bz]M["D"]D2|8
employer.city.disp 30 FREE L VAL=IF{@employer's.city;@employer.city}
employer.name 30 FREE L $(B1)BZ[bz]M["D"]D2|5
employer.name.disp 30 FREE L VAL=IF{@employer's.name;@employer.name}
employer.phone 18 PHONE L $(B1)BZ[bz]M["D"]D2|11
employer.phone.disp 18 PHONE L VAL=IF{@employer's.phone;@employer.phone}
employer.state 2 FREE L $(B1)BZ[bz]M["D"]D2|9
employer.state.disp 2 FREE L VAL=IF{@employer's.state;@employer.state}
employer.zip 10 ZIP.POST L $(B1)BZ[bz]M["D"]D2|10
employer.zip.disp 10 ZIP.POST L VAL=IF{@employer's.zip;@employer.zip}
er.phys 10 FREE L MIS.DOC $(B1)BZ[bz]M["D"]D3|14
er.phys.name 30 FREE L VAL=%Z.name.inversion(@MIS.DOC.name[@BAR.PAT.er.phys],
VAL=1)
event.dnq 8 FREE L BAR.STMT.GRP $(B1)BZ[bz]M["S"]|26
event.dnq.no.ccg 1 YN L $(B1)BZ[bz]M["S"]|27
event.started 1 YN L $(B1)BZ[bz]M["S"]|15
exp.cost.ol 9 SMONEY R $(B1)BZ[bz]M["D"]D7|10
exp.day.ol 9 SMONEY R $(B1)BZ[bz]M["D"]D7|11
facility 10 FREE L MIS.FACILITY $(B1)BZ[bz]M["D"]D4|23
family.phys 10 FREE L MIS.DOC $(B1)BZ[bz]M["D"]D3|4
family.phys.name 30 FREE L VAL=%Z.name.inversion(@MIS.DOC.name[@BAR.PAT.family.ph
VAL=ys],1)
fee.schedule 12 FREE L BAR.FEE.SCH $(B1)BZ[bz]M|11
filer.time.stamp 10 FREE L $(B1)BZ[bz]M["D"]|10
fin.class 10 FREE L MIS.FIN.CLASS $(B1)BZ[bz]M["D"]D1|18
frm.loc.2 30 FREE L $(B1)BZ[bz]M["D"]U|6
frm.loc.27 8 FREE L $(B1)BZ[bz]M["D"]U|9
frm.loc.45 16 FREE L $(B1)BZ[bz]M["D"]U|8
frm.loc.9 7 FREE L $(B1)BZ[bz]M["D"]U|7
from.adm.date 8 DATE L $(B1)BZ[bz]M["D"]|6
grouper.version 3 FREE L $(B1)BZ[bz]M["D"]D7|12
guar.adr1 30 FREE L $(B1)BZ[bz]M["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.adr1.ul 30 FREE L VAL=%BAR.PAT.get.field.guarantor(A,B,C)
guar.adr2 30 FREE L $(B1)BZ[bz]M["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.adr2.ul 30 FREE L VAL=%BAR.PAT.get.field.guarantor(A,B,C)
guar.bus.phone 18 PHONE L $(B1)BZ[bz]M["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 $(B1)BZ[bz]M["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.city.ul 20 FREE L VAL=%BAR.PAT.get.field.guarantor(A,B,C)
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 $(B1)BZ[bz]M["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 $(B1)BZ[bz]M["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 $(B1)BZ[bz]M["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 $(B1)BZ[bz]M["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 $(B1)BZ[bz]M["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 $(B1)BZ[bz]M["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 $(B1)BZ[bz]M["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 $(B1)BZ[bz]M["D"]D6|3
guar.emplye.id 10 FREE L $(B1)BZ[bz]M["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.first.name 15 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}#"1,"
guar.home.phone 18 PHONE L $(B1)BZ[bz]M["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 $(B1)BZ[bz]M["D"]D5|11
guar.last.name 15 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}#"0,"
guar.name 30 FREE L $(B1)BZ[bz]M["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.name.fl 30 FREE L VAL=%Z.name.inversion(IF{@BAR.PARAM.pt.or.guar.stmts="
VAL=P" @p.guar.name;""^BAR.GUAR.guar.urn,@guar.num^BAR
VAL=.GUAR.guar.num,@Next(BAR.GUAR.guar.urn,BAR.GUAR.nu
VAL=mber.x),@BAR.GUAR.guar.name})
guar.name.fl.ul 30 FREE L VAL=%BAR.PAT.get.field.guarantor(A,B,C)
guar.num 15 FREE L $(B1)BZ[bz]M["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 $(B1)BZ[bz]M["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.pt.relat 30 FREE L VAL=%BAR.PAT.get.field.guarantor(A,B,C)
guar.soc.sec 15 FREE L $(B1)BZ[bz]M["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 $(B1)BZ[bz]M["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 $(B1)BZ[bz]M["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}
guarantor.adr1 30 FREE L VAL=%BAR.PAT.get.field.guarantor(A,B,C)
guarantor.adr2 30 FREE L VAL=%BAR.PAT.get.field.guarantor(A,B,C)
guarantor.bus.phone 18 PHONE L VAL=%BAR.PAT.get.field.guarantor(A,B,C)
guarantor.city 20 FREE L VAL=%BAR.PAT.get.field.guarantor(A,B,C)
guarantor.emp 10 FREE L VAL=%BAR.PAT.get.field.guarantor(A,B,C)
guarantor.emp.addr 30 FREE L VAL=%BAR.PAT.get.field.guarantor(A,B,C)
guarantor.emp.city 30 FREE L VAL=%BAR.PAT.get.field.guarantor(A,B,C)
guarantor.emp.name 30 FREE L VAL=%BAR.PAT.get.field.guarantor(A,B,C)
guarantor.emp.phone 18 PHONE L VAL=%BAR.PAT.get.field.guarantor(A,B,C)
guarantor.emp.state 2 FREE L VAL=%BAR.PAT.get.field.guarantor(A,B,C)
guarantor.emp.zip 10 ZIP.POST L VAL=%BAR.PAT.get.field.guarantor(A,B,C)
guarantor.home.phone 18 PHONE L VAL=%BAR.PAT.get.field.guarantor(A,B,C)
guarantor.occupation 20 FREE L VAL=%BAR.PAT.get.field.guarantor(A,B,C)
guarantor.state 2 FREE L VAL=%BAR.PAT.get.field.guarantor(A,B,C)
guarantor.zip 10 ZIP.POST L VAL=%BAR.PAT.get.field.guarantor(A,B,C)
hc.subscriber.inits 3 FREE L $(B1)BZ[bz]M["D"]DCAN|1
hc.subscriber.relation 10 FREE L MIS.RELAT $(B1)BZ[bz]M["D"]DCAN|2
health.care.number 14 FREE L $(B1)BZ[bz]M["D"]DCAN|0
hold.bd.xfer 1 YN L $(B1)BZ[bz]M["S"]|23
hold.bd.xfer.by 10 FREE L MIS.USER $(B1)BZ[bz]M["S"]|24
hold.bd.xfer.date 8 DATE L $(B1)BZ[bz]M["S"]|25
hold.letter 1 YN L $(B1)BZ[bz]M["S"]|20
hold.letter.by 10 FREE L MIS.USER $(B1)BZ[bz]M["S"]|21
hold.letter.date 8 DATE L $(B1)BZ[bz]M["S"]|22
hold.stmt 1 YN L $(B1)BZ[bz]M["S"]|1
home.phone 18 PHONE L $(B1)BZ[bz]M["D"]D1|8
inhouse.status 10 CHOICE L VAL=%BAR.PAT.inhouse.status(account)
inpt.service 10 FREE L MIS.SVC $(B1)BZ[bz]M["D"]D3|7
ins.elig.trace.num.disp 30 FREE L VAL=@BAR.PAT.ins.elig.trace.num[/insurance]
ins1.addr.disp 30 FREE L VAL=IF{@ins1.mnemonic.disp^XXX,@MIS.INS.address[XXX];@
VAL=insurance.addr[XXX]}
ins1.balance.disp 9 MONEY R VAL=IF{@ins1.mnemonic.disp^XXX @ins.balance[XXX]}
ins1.city.disp 30 FREE L VAL=IF{@ins1.mnemonic.disp^XXX,@MIS.INS.city[XXX];@ins
VAL=urance.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.name[@ins.mnemonic[1]^XXX];@insurance.
VAL=name[XXX]}
ins1.phone.disp 30 PHONE L VAL=IF{@ins1.mnemonic.disp^XXX,@MIS.INS.phone[XXX];@in
VAL=surance.phone[XXX]}
ins1.state.disp 2 FREE L VAL=IF{@ins1.mnemonic.disp^XXX,@MIS.INS.state[XXX];@in
VAL=surance.state[XXX]}
ins1.zip.disp 10 FREE L VAL=IF{@ins1.mnemonic.disp^XXX,@MIS.INS.zip[XXX];@insu
VAL=rance.zip[XXX]}
ins2.addr.disp 30 FREE L VAL=IF{@ins2.mnemonic.disp^XXX,@MIS.INS.address[XXX];@
VAL=insurance.addr[XXX]}
ins2.balance.disp 9 MONEY R VAL=IF{@ins2.mnemonic.disp^XXX @ins.balance[XXX]}
ins2.city.disp 30 FREE L VAL=IF{@ins2.mnemonic.disp^XXX,@MIS.INS.city[XXX];@ins
VAL=urance.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.name[@ins.mnemonic[2]^XXX];@insurance.
VAL=name[XXX]}
ins2.phone.disp 30 PHONE L VAL=IF{@ins2.mnemonic.disp^XXX,@MIS.INS.phone[XXX];@in
VAL=surance.phone[XXX]}
ins2.state.disp 2 FREE L VAL=IF{@ins2.mnemonic.disp^XXX,@MIS.INS.state[XXX];@in
VAL=surance.state[XXX]}
ins2.zip.disp 10 FREE L VAL=IF{@ins2.mnemonic.disp^XXX,@MIS.INS.zip[XXX];@insu
VAL=rance.zip[XXX]}
ins3.addr.disp 30 FREE L VAL=IF{@ins3.mnemonic.disp^XXX,@MIS.INS.address[XXX];@
VAL=insurance.addr[XXX]}
ins3.balance.disp 9 MONEY R VAL=IF{@ins3.mnemonic.disp^XXX @ins.balance[XXX]}
ins3.city.disp 30 FREE L VAL=IF{@ins3.mnemonic.disp^XXX,@MIS.INS.city[XXX];@ins
VAL=urance.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.name[@ins.mnemonic[3]^XXX];@insurance.
VAL=name[XXX]}
ins3.phone.disp 30 PHONE L VAL=IF{@ins3.mnemonic.disp^XXX,@MIS.INS.phone[XXX];@in
VAL=surance.phone[XXX]}
ins3.state.disp 2 FREE L VAL=IF{@ins3.mnemonic.disp^XXX,@MIS.INS.state[XXX];@in
VAL=surance.state[XXX]}
ins3.zip.disp 10 FREE L VAL=IF{@ins3.mnemonic.disp^XXX,@MIS.INS.zip[XXX];@insu
VAL=rance.zip[XXX]}
ins4.addr.disp 30 FREE L VAL=IF{@ins4.mnemonic.disp^XXX,@MIS.INS.address[XXX];@
VAL=insurance.addr[XXX]}
ins4.balance.disp 9 MONEY R VAL=IF{@ins4.mnemonic.disp^XXX @ins.balance[XXX]}
ins4.city.disp 30 FREE L VAL=IF{@ins4.mnemonic.disp^XXX,@MIS.INS.city[XXX];@ins
VAL=urance.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.name[@ins.mnemonic[4]^XXX];@insurance.
VAL=name[XXX]}
ins4.phone.disp 30 PHONE L VAL=IF{@ins4.mnemonic.disp^XXX,@MIS.INS.phone[XXX];@in
VAL=surance.phone[XXX]}
ins4.state.disp 2 FREE L VAL=IF{@ins4.mnemonic.disp^XXX,@MIS.INS.state[XXX];@in
VAL=surance.state[XXX]}
ins4.zip.disp 10 FREE L VAL=IF{@ins4.mnemonic.disp^XXX,@MIS.INS.zip[XXX];@insu
VAL=rance.zip[XXX]}
insurance.balance 9 SMONEY R $(B1)BZ[bz]M|4
int.number 12 FREE L $(B1)BZ[bz]M["D"]|8
interest.held 1 YN L $(B1)BZ[bz]M["S"]|8
interest.last.posted 8 DATE L $(B1)BZ[bz]M["S"]|10
interest.reinstated 8 DATE L $(B1)BZ[bz]M["S"]|9
interest.total 12 MONEY R $(B1)BZ[bz]M["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 $(B1)BZ[bz]M["D"]IRF|0
irf.adm.com 1 CHOICE L $(B1)BZ[bz]M["D"]IRF|1
irf.calc.hipps.cmg.cd.xxx 5 FREE L $(B1)BZ[bz]M["D"]IRF|4
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 $(B1)BZ[bz]M["D"]IRF|2
irf.dis.com 1 CHOICE L $(B1)BZ[bz]M["D"]IRF|3
irf.dis.final.assess.dt 8 DATE L $(B1)BZ[bz]M["D"]IRF|5
last.bill.txn 5 PINT R $(B1)BZ[bz]M|9
last.billed.date 8 DATE L $(B1)BZ[bz]M|32
last.event.date 8 DATE L VAL=@BAR.PAT.txn.ser.date["O",@BAR.PAT.last.st.txn]
last.hosp 30 FREE L $(B1)BZ[bz]M["D"]D4|4
last.hosp.frm.date 8 DATE L $(B1)BZ[bz]M["D"]D4|5
last.hosp.thr.date 8 DATE L $(B1)BZ[bz]M["D"]D4|6
last.letter 8 FREE L BAR.LETTER $(B1)BZ[bz]M["S"]|18
last.letter.date 8 DATE L $(B1)BZ[bz]M["S"]|19
last.pay.amount 15 SMONEY R VAL=%BAR.PAT.get.field(A,B,C)
last.pay.date 8 DATE L $(B1)BZ[bz]M|14
last.post.txn 5 PINT R $(B1)BZ[bz]M|26
last.st.txn 5 PINT R $(B1)BZ[bz]M|8
last.stmt.txn 5 PINT R $(B1)BZ[bz]M|35
last.txn 5 PINT R $(B1)BZ[bz]M|0
lifetime.rsrv.days 3 INT R $(B1)BZ[bz]M["D"]U|2
lifetime.rsrv.rate 9 SMONEY R $(B1)BZ[bz]M["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 $(B1)BZ[bz]M["D"]D1|16
master.pt.urn 20 FREE L $(B1)BZ[bz]M["D"]D1|1
mcal.2.month 1 FREE L $(B1)BZ[bz]M["D"]ML|3
mcal.attachments 1 FREE L $(B1)BZ[bz]M["D"]ML|2
mcal.date.ra.eomb 8 DATE L $(B1)BZ[bz]M["D"]ML|5
mcal.emer.cert 1 FREE L $(B1)BZ[bz]M["D"]ML|1
mcal.lab.addr1 38 FREE L $(B1)BZ[bz]M["D"]ML|8
mcal.lab.addr2 38 FREE L $(B1)BZ[bz]M["D"]ML|9
mcal.lab.name 38 FREE L $(B1)BZ[bz]M["D"]ML|7
mcal.medicare 1 FREE L $(B1)BZ[bz]M["D"]ML|4
mcal.medicare.disallowed 8 MONEY R $(B1)BZ[bz]M["D"]ML|6
mcal.other.cov 1 FREE L $(B1)BZ[bz]M["D"]ML|0
mcal.remark.sys.keep 1 YN L $(B1)BZ[bz]M["D"]ML|10
mother 12 FREE L $(B1)BZ[bz]M["D"]D4|22
msa.code 10 FREE L MIS.MSA.DICT $(B1)BZ[bz]M["D"]D1|25
multiplier.1 3 INT R $(B1)BZ[bz]M["D"]U|15
multiplier.2 3 INT R $(B1)BZ[bz]M["D"]U|16
name 30 NAME L $(B1)BZ[bz]M["D"]|1
newborn.adm.src 10 FREE L MIS.NEWBORN $(B1)BZ[bz]M["D"]D4|2
next.stmt.ctrc.offset 2 PINT R $(B1)BZ[bz]M["NSD"]|4
next.stmt.date 8 DATE L $(B1)BZ[bz]M["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 $(B1)BZ[bz]M["NSD"]|3
next.stmt.msg.number 2 PINT R $(B1)BZ[bz]M["NSD"]|1
next.stmt.no 3 PINT R $(B1)BZ[bz]M["S"]|0
next.stmt.period 3 PINT R $(B1)BZ[bz]M["NSD"]|2
next.stmt.seq.no 3 PINT R $(B1)BZ[bz]M["S"]|2
next.stmt.temp.msg.cnt 2 INT R $(B1)BZ[bz]M["NSD"]|6
next.stmt.temp.msg.max 2 PINT R $(B1)BZ[bz]M["NSD"]|5
number 12 FREE L $(B1)BZ[bz]M["D"]|0
occupation 20 FREE L $(B1)BZ[bz]M["D"]D2|1
old.version 4 FREE L $(B1)BZ[bz]M|31
on.hold.by 10 FREE L MIS.USER $(B1)BZ[bz]M["S"]|6
on.hold.date 8 DATE L $(B1)BZ[bz]M["S"]|7
other.phys 10 FREE L MIS.DOC $(B1)BZ[bz]M["D"]D3|3
other.phys.name 30 FREE L VAL=%Z.name.inversion(@MIS.DOC.name[@BAR.PAT.other.phy
VAL=s],1)
outpt.locn 10 FREE L MIS.LOCN $(B1)BZ[bz]M["D"]D3|6
outpt.service 10 FREE L MIS.SVC $(B1)BZ[bz]M["D"]D3|17
outreach.pt.number 15 FREE L $(B1)BZ[bz]M["D"]|14
override.acct.type 8 FREE L BAR.ACCT.TYPE $(B1)BZ[bz]M["D"]D1|19
override.msa 10 FREE L MIS.MSA.DICT $(B1)BZ[bz]M["D"]D1|26
override.sp.biller 8 FREE L BAR.BILLER $(B1)BZ[bz]M["D"]D1|21
override.sp.coll 8 FREE L BAR.COLLECTOR $(B1)BZ[bz]M["D"]D1|20
prim.care.phys 10 FREE L MIS.DOC $(B1)BZ[bz]M["D"]D3|15
prim.care.phys.name 30 FREE L VAL=%Z.name.inversion(@MIS.DOC.name[@BAR.PAT.prim.care
VAL=.phys],1)
primary.ins 10 FREE L MIS.INS 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.other.type[XXX]="Y"
VAL= @BAR.PAT.insurance.name[XXX];@MIS.INS.name[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),""}
pt.addr1.ul 30 FREE L VAL=%BAR.PAT.get.field(A,B,C)
pt.addr2.ul 30 FREE L VAL=%BAR.PAT.get.field(A,B,C)
pt.balance 9 SMONEY R $(B1)BZ[bz]M|3
pt.balance.billed 9 SMONEY R VAL=(@pt.balance-@ur.chg.total)
pt.city.ul 20 FREE L VAL=%BAR.PAT.get.field(A,B,C)
pt.depart.date 8 DATE L $(B1)BZ[bz]M["D"]D4|25
pt.dis.disp 10 FREE L MIS.DIS $(B1)BZ[bz]M["D"]D4|24
pt.first.name 15 FREE L VAL=@name#"1,"
pt.last.name 15 FREE L VAL=@name#"0,"
pt.name 30 FREE L VAL=%Z.name.inversion(@name)
pt.name.ul 30 FREE L VAL=%BAR.PAT.get.field(A,B,C)
pt.rcvbl.balance 9 SMONEY R VAL=(@BAR.PAT.ar.chg.total-@BAR.PAT.insurance.balance)
pt.relat 10 FREE L MIS.RELAT $(B1)BZ[bz]M["D"]D5|2
pt.status 8 FREE L BAR.PSTATS $(B1)BZ[bz]M["D"]D3|5
pt.type 1 CHOICE L $(B1)BZ[bz]M|19
race 10 FREE L MIS.RACE $(B1)BZ[bz]M["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 $(B1)BZ[bz]M["D"]D7|9
remark 50 FREE L $(B1)BZ[bz]M["D"]|3
remark1 39 FREE L $(B1)BZ[bz]M["D"]U["R"]|0
remark2 39 FREE L $(B1)BZ[bz]M["D"]U["R"]|1
remark3 39 FREE L $(B1)BZ[bz]M["D"]U["R"]|2
remark4 39 FREE L $(B1)BZ[bz]M["D"]U["R"]|3
remark5 39 FREE L $(B1)BZ[bz]M["D"]U["R"]|4
room 10 FREE L MIS.ROOM $(B1)BZ[bz]M["D"]D3|8
ser.date 8 DATE L $(B1)BZ[bz]M["D"]D4|11
ser.date.rec 8 DATE L $(B1)BZ[bz]M["D"]D4|15
ser.dis.date 8 DATE L $(B1)BZ[bz]M["D"]D4|12
ser.time 4 TIME L $(B1)BZ[bz]M["D"]D4|14
service.location 10 FREE L VAL=IF{@inpt.service;@outpt.locn}
sex 1 CHOICE L $(B1)BZ[bz]M["D"]D1|12
soc.sec 15 FREE L $(B1)BZ[bz]M["D"]D1|2
sort.name 30 NAME L $(B1)BZ[bz]M["D"]|2
sp.prog 10 FREE L MIS.SPEC.PROG $(B1)BZ[bz]M["D"]D4|3
state 2 FREE L $(B1)BZ[bz]M["D"]D1|6
status.date 8 DATE L VAL=%BAR.PAT.get.status.date(BAR.PAT.account)
stmt.age.date 8 DATE L $(B1)BZ[bz]M["S"]|13
stmt.date 8 DATE L VAL=@BAR.PAT.txn.ser.date["O",@BAR.PAT.last.stmt.txn]
stmt.date.and.hold 10 FREE L VAL=%BAR.PAT.stmt.date.and.hold(account)
stmt.grp 8 FREE L BAR.STMT.GRP $(B1)BZ[bz]M|27
stmt.reset 1 YN L $(B1)BZ[bz]M["S"]|5
stmt.start 8 DATE L $(B1)BZ[bz]M["S"]|4
stripped.num 12 FREE L $(B1)BZ[bz]M["D"]|9
suppress.stmt 1 YN L $(B1)BZ[bz]M["S"]|12
treat.auth.no 10 FREE L $(B1)BZ[bz]M["D"]D4|7
type 8 FREE L BAR.ACCT.TYPE $(B1)BZ[bz]M|10
type.of.bill 3 FREE L $(B1)BZ[bz]M["D"]U|0
unit.number 26 FREE L $(B1)BZ[bz]M["D"]D1|0
ur.app.from 8 DATE L $(B1)BZ[bz]M["D"]D4|19
ur.app.thru 8 DATE L $(B1)BZ[bz]M["D"]D4|20
ur.chg.total 9 SMONEY R $(B1)BZ[bz]M|5
ur.code 1 INT R $(B1)BZ[bz]M["D"]D4|18
ur.grace 2 INT R $(B1)BZ[bz]M["D"]D4|21
usual.visit.guarantor 1 YN L $(B1)BZ[bz]M["D"]D1|23
usual.visit.insurances 1 YN L $(B1)BZ[bz]M["D"]D1|22
vip 1 YN L $(B1)BZ[bz]M["D"]|12
vip.confidential.disp 19 FREE R VAL=IF{"Y"=@vip "<VIP>"}_IF{"Y"=@confidential "&
VAL=lt;CONFIDENTIAL>"}
visit.reason 50 FREE L $(B1)BZ[bz]M["D"]D3|0
web.access 1 YN L $(B1)BZ[bz]M|34
zero.date 8 DATE L $(B1)BZ[bz]M|16
zip 10 ZIP.POST L $(B1)BZ[bz]M["D"]D1|7
Ì € i 2
can.acct.numbers
[account, old.can.number.seq.no]
$(B1)BZ[bz]M["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 $(B1)BZ[bz]M["D"]CNN[bzCQ]|0
Ì € i 2
conditions
[account, seq.no]
$(B1)BZ[bz]M["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 $(B1)BZ[bz]M["D"]C[bzCN]|0
Ì € i 2
customer.def.queries
[account, cd.query]
$(B1)BZ[bz]M["D"]CD[ggv]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cd.query 10 FREE L MIS.QUERY ggv
cd.response 75 FREE L $(B1)BZ[bz]M["D"]CD[ggv]|0
cd.response.for.letter 75 QRY.RESP L VAL=%BAR.PAT.get.field(A,B,C)
cd.yn.comment 75 FREE L $(B1)BZ[bz]M["D"]CD[ggv]|5
Ì € i 2
cust.def.query.mult
[account,cd.query, cd.query.mult.q]
$(B1)BZ[bz]M["D"]CD[ggv]M[bzMQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cd.query.mult.q 2 PINT R bzMQ
cd.qyery.mult.response 30 QRY.RESP L $(B1)BZ[bz]M["D"]CD[ggv]M[bzMQ]|0
Ì € i 2
apc.data
[account, apc.date]
$(B1)BZ[bz]M["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 $(B1)BZ[bz]M["D"]D7["APC",bzapD]|6
apc.outlier 10 DEC2 R $(B1)BZ[bz]M["D"]D7["APC",bzapD]|7
apc.status 1 CHOICE L $(B1)BZ[bz]M["D"]D7["APC",bzapD]|4
apc.total.copay 10 DEC2 R $(B1)BZ[bz]M["D"]D7["APC",bzapD]|2
apc.total.cost.wt 10 DEC R $(B1)BZ[bz]M["D"]D7["APC",bzapD]|0
apc.total.pay 10 DEC2 R $(B1)BZ[bz]M["D"]D7["APC",bzapD]|1
apc.total.reimb 10 DEC3 R $(B1)BZ[bz]M["D"]D7["APC",bzapD]|3
apc.version 10 FREE L $(B1)BZ[bz]M["D"]D7["APC",bzapD]|5
Ì € i 2
apcs
[account,apc.date, apc.seq.no]
$(B1)BZ[bz]M["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.NAME $(B1)BZ[bz]M["D"]D7["APC",bzapD,bzapS]|0
apc.copay 10 DEC2 R $(B1)BZ[bz]M["D"]D7["APC",bzapD,bzapS]|4
apc.cs.wt 10 DEC R $(B1)BZ[bz]M["D"]D7["APC",bzapD,bzapS]|1
apc.line.outlier 10 DEC2 R $(B1)BZ[bz]M["D"]D7["APC",bzapD,bzapS]|8
apc.medical 1 YN L $(B1)BZ[bz]M["D"]D7["APC",bzapD,bzapS]|7
apc.pay 10 DEC2 R $(B1)BZ[bz]M["D"]D7["APC",bzapD,bzapS]|3
apc.pct 6 DEC2 R $(B1)BZ[bz]M["D"]D7["APC",bzapD,bzapS]|2
apc.reimb 10 DEC2 R VAL=(@apc.pay-@apc.copay)
apc.st 2 FREE L $(B1)BZ[bz]M["D"]D7["APC",bzapD,bzapS]|6
apc.type 1 FREE L $(B1)BZ[bz]M["D"]D7["APC",bzapD,bzapS]|5
Ì € i 2
apc.cpts
[account,apc.date,apc.seq.no, apc.cpt.seq]
$(B1)BZ[bz]M["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 10 FREE L MIS.CPT $(B1)BZ[bz]M["D"]D7["APC",bzapD,bzapS]C[bzapC]|0
apc.cpt.mod1 2 FREE L MIS.CPT.MOD $(B1)BZ[bz]M["D"]D7["APC",bzapD,bzapS]C[bzapC]|1
apc.cpt.mod2 2 FREE L MIS.CPT.MOD $(B1)BZ[bz]M["D"]D7["APC",bzapD,bzapS]C[bzapC]|2
apc.cpt.mod3 2 FREE L MIS.CPT.MOD $(B1)BZ[bz]M["D"]D7["APC",bzapD,bzapS]C[bzapC]|3
apc.cpt.mod4 2 FREE L MIS.CPT.MOD $(B1)BZ[bz]M["D"]D7["APC",bzapD,bzapS]C[bzapC]|4
apc.cpt.mod5 2 FREE L MIS.CPT.MOD $(B1)BZ[bz]M["D"]D7["APC",bzapD,bzapS]C[bzapC]|5
Ì € i 2
apc.reimb.date
[account, apcr.date]
$(B1)BZ[bz]M["D"]D7["APCR",bzapR]
Field Name Len Dat Typ J DPM Offset/Local/VAL
apcr.date 8 DATE L bzapR
Ì € i 2
apc.reimb.data
[account,apcr.date, apcr.seq.no]
$(B1)BZ[bz]M["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.NAME $(B1)BZ[bz]M["D"]D7["APCR",bzapR,bzapQ]|0
Ì € i 2
apgs
[account, apg.seq.no]
$(B1)BZ[bz]M["D"]D7["A",bzapS]
Field Name Len Dat Typ J DPM Offset/Local/VAL
apg.seq.no 2 PINT R bzapS
apg 6 FREE L MIS.APG.NAME $(B1)BZ[bz]M["D"]D7["A",bzapS]|0
apg.cs.wt 10 DEC R $(B1)BZ[bz]M["D"]D7["A",bzapS]|1
apg.pct 6 DEC2 R $(B1)BZ[bz]M["D"]D7["A",bzapS]|2
Ì € i 2
apg.cpts
[account,apg.seq.no, apg.cpt.seq]
$(B1)BZ[bz]M["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 $(B1)BZ[bz]M["D"]D7["A",bzapS]C[bzapC]|0
apg.cpt.mod 2 CHOICE L $(B1)BZ[bz]M["D"]D7["A",bzapS]C[bzapC]|1
Ì € i 2
cpt.codes
[account, cpt.seq.no]
$(B1)BZ[bz]M["D"]D7["CP",bzCPT]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cpt.seq.no 1 PINT R bzCPT
cpt.code 8 FREE L $(B1)BZ[bz]M["D"]D7["CP",bzCPT]|0
cpt.code.date 8 DATE L $(B1)BZ[bz]M["D"]D7["CP",bzCPT]|2
cpt.code.desc 30 FREE L $(B1)BZ[bz]M["D"]D7["CP",bzCPT]|1
cpt.code.loc 3 FREE L MIS.CPT.LOC $(B1)BZ[bz]M["D"]D7["CP",bzCPT]|3
Ì € i 2
cpt.codes.modifiers
[account,cpt.seq.no, cpt.code.mod.seq.no]
$(B1)BZ[bz]M["D"]D7["CP",bzCPT]M[bzCPM]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cpt.code.mod.seq.no 2 PINT R bzCPM
cpt.code.modifier 2 FREE L MIS.CPT.MOD $(B1)BZ[bz]M["D"]D7["CP",bzCPT]M[bzCPM]|0
cpt.code.modifier.desc 40 FREE L $(B1)BZ[bz]M["D"]D7["CP",bzCPT]M[bzCPM]|1
Ì € i 2
diag
[account, diag.seq.no]
$(B1)BZ[bz]M["D"]D7["DX",bzDN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
diag.seq.no 1 PINT R bzDN
diag.code 6 FREE L $(B1)BZ[bz]M["D"]D7["DX",bzDN]|0
diag.desc 45 FREE L $(B1)BZ[bz]M["D"]D7["DX",bzDN]|1
pri.diag.desc.for.letter 45 FREE L VAL=IF{1^BAR.PAT.diag.seq.no @BAR.PAT.diag.desc}
pri.diag.for.letter 6 FREE L VAL=IF{1^BAR.PAT.diag.seq.no @BAR.PAT.diag.code}
Ì € i 2
surg.proc
[account, proc.seq.no]
$(B1)BZ[bz]M["D"]D7["P",bzPN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
proc.seq.no 1 PINT R bzPN
proc.code 6 FREE L $(B1)BZ[bz]M["D"]D7["P",bzPN]|0
proc.date 8 DATE L $(B1)BZ[bz]M["D"]D7["P",bzPN]|1
proc.desc 45 FREE L $(B1)BZ[bz]M["D"]D7["P",bzPN]|3
proc.dr 10 FREE L MIS.DOC $(B1)BZ[bz]M["D"]D7["P",bzPN]|2
proc.dr.number 10 FREE L $(B1)BZ[bz]M["D"]D7["P",bzPN]|4
Ì € i 2
emp.info
[account, eid.seq]
$(B1)BZ[bz]M["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 $(B1)BZ[bz]M["D"]E[bzEN]|0
emplr.id 10 FREE L MIS.EMPLR $(B1)BZ[bz]M["D"]E[bzEN]|2
emplr.locn 30 FREE L $(B1)BZ[bz]M["D"]E[bzEN]|4
emplr.name 30 FREE L $(B1)BZ[bz]M["D"]E[bzEN]|3
emplye.id 11 FREE L $(B1)BZ[bz]M["D"]E[bzEN]|6
esc 10 FREE L MIS.EMP.STATUS $(B1)BZ[bz]M["D"]E[bzEN]|1
Ì € i 2
hhrg
[account, cert.start.date]
$(B1)BZ[bz]M["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 $(B1)BZ[bz]M["D"]D9[bzCSD]|1
cert.end.date 8 DATE L $(B1)BZ[bz]M["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
hhrg.visits
[account,cert.start.date, hhrg.visit.queue]
$(B1)BZ[bz]M["D"]D9[bzCSD]V[hhQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
hhrg.visit.queue 2 PINT R hhQ
hhrg.assessment.code 2 FREE L $(B1)BZ[bz]M["D"]D9[bzCSD]V[hhQ]|5
hhrg.assessment.date 8 DATE L $(B1)BZ[bz]M["D"]D9[bzCSD]V[hhQ]|4
hhrg.care.start.date 8 DATE L $(B1)BZ[bz]M["D"]D9[bzCSD]V[hhQ]|8
hhrg.code 10 FREE L MIS.HHRG.DICT $(B1)BZ[bz]M["D"]D9[bzCSD]V[hhQ]|2
hhrg.end.date 8 DATE L $(B1)BZ[bz]M["D"]D9[bzCSD]V[hhQ]|3
hhrg.hipps 5 FREE L $(B1)BZ[bz]M["D"]D9[bzCSD]V[hhQ]|6
hhrg.oasis.key 18 FREE L $(B1)BZ[bz]M["D"]D9[bzCSD]V[hhQ]|7
hhrg.start.date 8 DATE L $(B1)BZ[bz]M["D"]D9[bzCSD]V[hhQ]|0
hhrg.start.time 4 TIME L $(B1)BZ[bz]M["D"]D9[bzCSD]V[hhQ]|1
Ì € i 2
hhrg.diags
[account,cert.start.date,hhrg.visit.queue, hhrg.dx.seq.no]
$(B1)BZ[bz]M["D"]D9[bzCSD]V[hhQ]D[bDXS]
Field Name Len Dat Typ J DPM Offset/Local/VAL
hhrg.dx.seq.no 2 PINT R bDXS
hhrg.dx.alt.name 60 FREE L $(B1)BZ[bz]M["D"]D9[bzCSD]V[hhQ]D[bDXS]|1
hhrg.dx.class 1 CHOICE L $(B1)BZ[bz]M["D"]D9[bzCSD]V[hhQ]D[bDXS]|4
hhrg.dx.code 7 FREE L $(B1)BZ[bz]M["D"]D9[bzCSD]V[hhQ]D[bDXS]|0
hhrg.dx.date 8 DATE L $(B1)BZ[bz]M["D"]D9[bzCSD]V[hhQ]D[bDXS]|2
hhrg.dx.time 4 TIME L $(B1)BZ[bz]M["D"]D9[bzCSD]V[hhQ]D[bDXS]|3
Ì € i 2
medi.cal.remarks
[account, mcal.remark.queue]
$(B1)BZ[bz]M["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 $(B1)BZ[bz]M["D"]ML["R",bzMLQ]|0
Ì € i 2
medi.cal.remarks.sys
[account, mcal.remark.sys.queue]
$(B1)BZ[bz]M["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 $(B1)BZ[bz]M["D"]ML["S",bzMRS]|0
Ì € i 2
non.cov
[account, non.cov.frm]
$(B1)BZ[bz]M["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 $(B1)BZ[bz]M["D"]U1[bzND]|0
Ì € i 2
occurances
[account, occur.seq.no]
$(B1)BZ[bz]M["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 $(B1)BZ[bz]M["D"]O[bzON]|1
occur.time 4 TIME L $(B1)BZ[bz]M["D"]O[bzON]|2
occur.type 10 FREE L MIS.ACCID.TYPE $(B1)BZ[bz]M["D"]O[bzON]|0
Ì € i 2
rugs
[account, rug.from.date]
$(B1)BZ[bz]M["D"]D8[rugFR]
Field Name Len Dat Typ J DPM Offset/Local/VAL
rug.from.date 8 DATE L rugFR
rug.code.medicaid 3 FREE L MIS.RUG.CODE $(B1)BZ[bz]M["D"]D8[rugFR]|1
rug.code.medicare 3 FREE L MIS.RUG.CODE $(B1)BZ[bz]M["D"]D8[rugFR]|0
rug.code.medicare.w.mod 5 FREE L VAL=@rug.code.medicare_@rug.modifier
rug.mds.ref.date 8 DATE L $(B1)BZ[bz]M["D"]D8[rugFR]|4
rug.mds.urn 8 FREE L $(B1)BZ[bz]M["D"]D8[rugFR]|3
rug.modifier 2 FREE L $(B1)BZ[bz]M["D"]D8[rugFR]|5
rug.thru.date 8 DATE L $(B1)BZ[bz]M["D"]D8[rugFR]|2
Ì € i 2
value.codes
[account, val.seq.no]
$(B1)BZ[bz]M["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 $(B1)BZ[bz]M["D"]V[bzVN]|1
value.code 8 FREE L BAR.UB82.VALCDS$(B1)BZ[bz]M["D"]V[bzVN]|0
Ì € i 2
bills
[account, bill.no]
$(B1)BZ[bz]M["B",bzBN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
bill.no 3 INT R bzBN
additional.bill 5 PINT R $(B1)BZ[bz]M["B",bzBN]|39
bill.charges 10 SMONEY R $(B1)BZ[bz]M["B",bzBN]|5
bill.eff.date 8 DATE L $(B1)BZ[bz]M["B",bzBN]|37
bill.prof.comp 10 SMONEY R $(B1)BZ[bz]M["B",bzBN]|22
bill.rule 8 FREE L BAR.BRULE $(B1)BZ[bz]M["B",bzBN]|1
bill.status 11 CHOICE L $(B1)BZ[bz]M["B",bzBN]|7
bill.type 10 CHOICE L $(B1)BZ[bz]M["B",bzBN]|4
bill.user 10 FREE L MIS.USER $(B1)BZ[bz]M["B",bzBN]O|1
bill.writeoff 10 SMONEY R $(B1)BZ[bz]M["B",bzBN]|20
bills.last.billed.date 8 DATE L $(B1)BZ[bz]M["B",bzBN]T|0
cutoff.date 8 DATE L $(B1)BZ[bz]M["B",bzBN]|0
deductible 8 SMONEY R $(B1)BZ[bz]M["B",bzBN]|27
first.trans.date 8 DATE L $(B1)BZ[bz]M["B",bzBN]|6
hold.bill 1 YN L $(B1)BZ[bz]M["B",bzBN]|9
initial.bill 1 YN L $(B1)BZ[bz]M["B",bzBN]|40
last.mark 5 PINT R $(B1)BZ[bz]M["B",bzBN]|3
last.post 5 PINT R $(B1)BZ[bz]M["B",bzBN]|29
last.trans.date 8 DATE L $(B1)BZ[bz]M["B",bzBN]|8
mark.ptr 5 PINT R $(B1)BZ[bz]M["B",bzBN]|2
ncovd.priv.rm 8 SMONEY R $(B1)BZ[bz]M["B",bzBN]|25
other.holds 7 FREE L $(B1)BZ[bz]M["B",bzBN]O|0
override.bill.user 10 FREE L MIS.USER $(B1)BZ[bz]M["B",bzBN]O|2
post.date 8 DATE L $(B1)BZ[bz]M["B",bzBN]|15
post.ptr 5 PINT R $(B1)BZ[bz]M["B",bzBN]|31
pro.rule 10 FREE L BAR.PRORATE $(B1)BZ[bz]M["B",bzBN]|18
prorate.date 8 DATE L $(B1)BZ[bz]M["B",bzBN]|17
pt.exp.reimb 10 MONEY R $(B1)BZ[bz]M["B",bzBN]|36
pt.no.rcpts 3 INT R $(B1)BZ[bz]M["B",bzBN]|13
pt.num.rcpts 3 INT R $(B1)BZ[bz]M["B",bzBN]|35
pt.pro.amt 10 SMONEY R $(B1)BZ[bz]M["B",bzBN]|10
pt.real.bal 10 SMONEY R $(B1)BZ[bz]M["B",bzBN]|34
pt.writeoff 10 SMONEY R $(B1)BZ[bz]M["B",bzBN]|11
pt.writeoff.proc 10 FREE L BAR.PROC $(B1)BZ[bz]M["B",bzBN]|14
rev.last.bill 5 PINT R $(B1)BZ[bz]M["B",bzBN]|38
Ì € i 2
bills.claims.ins
[account,bill.no, bills.claim,bills.claim.ins]
$(B1)BZ[bz]M["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 ggm
claim.amount 10 SMONEY R $(B1)BZ[bz]M["B",bzBN]F1[bec,ggm]|8
claim.first.fail.date 8 DATE L $(B1)BZ[bz]M["B",bzBN]F1[bec,ggm]|9
claim.from 8 DATE L $(B1)BZ[bz]M["B",bzBN]F1[bec,ggm]|3
claim.ins.1 10 FREE L MIS.INS $(B1)BZ[bz]M["B",bzBN]F1[bec,ggm]|5
claim.ins.2 10 FREE L MIS.INS $(B1)BZ[bz]M["B",bzBN]F1[bec,ggm]|6
claim.ins.3 10 FREE L MIS.INS $(B1)BZ[bz]M["B",bzBN]F1[bec,ggm]|7
claim.ins.date 8 DATE L $(B1)BZ[bz]M["B",bzBN]F1[bec,ggm]|1
claim.ins.dcn 17 FREE L $(B1)BZ[bz]M["B",bzBN]F1[bec,ggm]|11
claim.ins.status 1 FREE L $(B1)BZ[bz]M["B",bzBN]F1[bec,ggm]|0
claim.ins.tob3 1 FREE L $(B1)BZ[bz]M["B",bzBN]F1[bec,ggm]|12
claim.ins.ucr 8 FREE L $(B1)BZ[bz]M["B",bzBN]F1[bec,ggm]|10
claim.ins.user 10 FREE L MIS.USER $(B1)BZ[bz]M["B",bzBN]F1[bec,ggm]|2
claim.thru 8 DATE L $(B1)BZ[bz]M["B",bzBN]F1[bec,ggm]|4
Ì € i 2
bills.claims.ins.bills
[account,bill.no,bills.claim,bills.claim.ins, claim.bill]
$(B1)BZ[bz]M["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
bills.claims.ins.checks
[account,bill.no,bills.claim,bills.claim.ins, claim.ins.check]
$(B1)BZ[bz]M["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 $(B1)BZ[bz]M["B",bzBN]F1[bec,ggm]K[bek]|0
Ì € i 2
bills.date.ranges
[account,bill.no, bills.ser.date.seq.no]
$(B1)BZ[bz]M["B",bzBN]DR[bzSDN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
bills.ser.date.seq.no 2 PINT R bzSDN
bills.ser.date.from 8 DATE L $(B1)BZ[bz]M["B",bzBN]DR[bzSDN]|0
bills.ser.date.thru 8 DATE L $(B1)BZ[bz]M["B",bzBN]DR[bzSDN]|1
Ì € i 2
bills.pro.checks
[account,bill.no, pro.check]
$(B1)BZ[bz]M["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 $(B1)BZ[bz]M["B",bzBN]PC[bek]|0
Ì € i 2
bills.transactions
[account,bill.no, bills.txn.ser.date,bills.txn.urn]
$(B1)BZ[bz]M["B",bzBN]T[bzTS,bzT]
Field Name Len Dat Typ J DPM Offset/Local/VAL
bills.txn.ser.date 8 DATE L bzTS
bills.txn.urn 5 PINT R bzT
bills.txn.include 1 FREE L $(B1)BZ[bz]M["B",bzBN]T[bzTS,bzT]|0
Ì € i 2
chg.categ
[account,bill.no, chg.cat]
$(B1)BZ[bz]M["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 $(B1)BZ[bz]M["B",bzBN]CC[br]|2
categ.count 4 INT R $(B1)BZ[bz]M["B",bzBN]CC[br]|3
Ì € i 2
proration
[account,bill.no, pro.ins.order]
$(B1)BZ[bz]M["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 $(B1)BZ[bz]M["B",bzBN]P[bzIO]|12
pro.amt 10 SMONEY R $(B1)BZ[bz]M["B",bzBN]P[bzIO]|1
pro.exp.reimb 10 MONEY R $(B1)BZ[bz]M["B",bzBN]P[bzIO]|15
pro.ins 10 FREE L MIS.INS $(B1)BZ[bz]M["B",bzBN]P[bzIO]|0
pro.num.rcpt 3 INT R $(B1)BZ[bz]M["B",bzBN]P[bzIO]|2
pro.num.rcpt.hold 3 INT R $(B1)BZ[bz]M["B",bzBN]P[bzIO]|3
pro.writeoff 9 SMONEY R $(B1)BZ[bz]M["B",bzBN]P[bzIO]|6
pro.writeoff.proc 10 FREE L BAR.PROC $(B1)BZ[bz]M["B",bzBN]P[bzIO]|8
pro.writeoff.proc2 10 FREE L BAR.PROC $(B1)BZ[bz]M["B",bzBN]P[bzIO]|17
pro.writeoff2 9 SMONEY R $(B1)BZ[bz]M["B",bzBN]P[bzIO]|16
timeout.delay 3 INT R $(B1)BZ[bz]M["B",bzBN]P[bzIO]|14
Ì € i 2
cl.aged.ar
[account, cl.age.date]
$(B1)BZ[bz]M["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 $(B1)BZ[bz]M["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
cl.discount.structure
[account, cl.discount.dollar.volume]
$(B1)BZ[bz]M["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 $(B1)BZ[bz]M["D"]C3[bzCV]
Ì € i 2
cl.special.rates
[account, cl.procedure]
$(B1)BZ[bz]M["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 $(B1)BZ[bz]M["D"]C4[bd]
Ì € i 2
doctor.need.txn
[account, physician.identifier]
$(B1)BZ[bz]M["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 $(B1)BZ[bz]M["MD",byUR]|0
Ì € i 2
ins.order
[account, insurance.order]
$(B1)BZ[bz]M["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 $(B1)BZ[bz]M["O",bzIO]|0
pri.ins.addr 30 FREE L VAL=%BAR.PAT.get.field(A,B,C)
pri.ins.addr2 30 FREE L VAL=%BAR.PAT.get.field(A,B,C)
pri.ins.cd.response 75 QRY.RESP L VAL=%BAR.PAT.get.field(A,B,C)
pri.ins.city 30 FREE L VAL=%BAR.PAT.get.field(A,B,C)
pri.ins.insured.name 30 FREE L VAL=%BAR.PAT.get.field(A,B,C)
pri.ins.name 30 FREE L VAL=%BAR.PAT.get.field(A,B,C)
pri.ins.pol.num 15 FREE L VAL=%BAR.PAT.get.field(A,B,C)
pri.ins.state 2 FREE L VAL=%BAR.PAT.get.field(A,B,C)
pri.ins.zip 9 FREE L VAL=%BAR.PAT.get.field(A,B,C)
qua.ins.addr 30 FREE L VAL=%BAR.PAT.get.field(A,B,C)
qua.ins.addr2 30 FREE L VAL=%BAR.PAT.get.field(A,B,C)
qua.ins.cd.response 75 QRY.RESP L VAL=%BAR.PAT.get.field(A,B,C)
qua.ins.city 30 FREE L VAL=%BAR.PAT.get.field(A,B,C)
qua.ins.insured.name 30 FREE L VAL=%BAR.PAT.get.field(A,B,C)
qua.ins.name 30 FREE L VAL=%BAR.PAT.get.field(A,B,C)
qua.ins.pol.num 15 FREE L VAL=%BAR.PAT.get.field(A,B,C)
qua.ins.state 2 FREE L VAL=%BAR.PAT.get.field(A,B,C)
qua.ins.zip 9 FREE L VAL=%BAR.PAT.get.field(A,B,C)
sec.ins.addr 30 FREE L VAL=%BAR.PAT.get.field(A,B,C)
sec.ins.addr2 30 FREE L VAL=%BAR.PAT.get.field(A,B,C)
sec.ins.cd.response 75 QRY.RESP L VAL=%BAR.PAT.get.field(A,B,C)
sec.ins.city 30 FREE L VAL=%BAR.PAT.get.field(A,B,C)
sec.ins.insured.name 30 FREE L VAL=%BAR.PAT.get.field(A,B,C)
sec.ins.name 30 FREE L VAL=%BAR.PAT.get.field(A,B,C)
sec.ins.pol.num 15 FREE L VAL=%BAR.PAT.get.field(A,B,C)
sec.ins.state 2 FREE L VAL=%BAR.PAT.get.field(A,B,C)
sec.ins.zip 9 FREE L VAL=%BAR.PAT.get.field(A,B,C)
ter.ins.addr 30 FREE L VAL=%BAR.PAT.get.field(A,B,C)
ter.ins.addr2 30 FREE L VAL=%BAR.PAT.get.field(A,B,C)
ter.ins.cd.response 75 QRY.RESP L VAL=%BAR.PAT.get.field(A,B,C)
ter.ins.city 30 FREE L VAL=%BAR.PAT.get.field(A,B,C)
ter.ins.insured.name 30 FREE L VAL=%BAR.PAT.get.field(A,B,C)
ter.ins.name 30 FREE L VAL=%BAR.PAT.get.field(A,B,C)
ter.ins.pol.num 15 FREE L VAL=%BAR.PAT.get.field(A,B,C)
ter.ins.state 2 FREE L VAL=%BAR.PAT.get.field(A,B,C)
ter.ins.zip 9 FREE L VAL=%BAR.PAT.get.field(A,B,C)
Ì € i 2
insurance.ledger
[account, ins]
$(B1)BZ[bz]M["0",ggm]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ins 10 FREE L MIS.INS ggm
ins.adj 9 MONEY R $(B1)BZ[bz]M["0",ggm]|4
ins.auto.transfer 9 MONEY R $(B1)BZ[bz]M["0",ggm]|7
ins.balance 9 MONEY R $(B1)BZ[bz]M["0",ggm]|0
ins.biller 8 FREE L BAR.BILLER $(B1)BZ[bz]M["0",ggm]|17
ins.collect.grp 8 FREE L BAR.STMT.GRP $(B1)BZ[bz]M["0",ggm]|20
ins.collector 8 FREE L BAR.COLLECTOR $(B1)BZ[bz]M["0",ggm]|9
ins.exp.reimb 10 MONEY R $(B1)BZ[bz]M["0",ggm]|15
ins.last.pay.txn 4 INT R $(B1)BZ[bz]M["0",ggm]|16
ins.manual.edit 9 MONEY R $(B1)BZ[bz]M["0",ggm]|6
ins.num.adjs 3 PINT R $(B1)BZ[bz]M["0",ggm]|12
ins.num.exp.rcpts 3 PINT R $(B1)BZ[bz]M["0",ggm]|10
ins.num.rcpts 3 PINT R $(B1)BZ[bz]M["0",ggm]|11
ins.num.refs 3 PINT R $(B1)BZ[bz]M["0",ggm]|13
ins.nxt.reminder.dt 8 DATE L $(B1)BZ[bz]M["0",ggm]|19
ins.orig.post.date 8 DATE L $(B1)BZ[bz]M["0",ggm]|18
ins.prorate.adj 9 MONEY R $(B1)BZ[bz]M["0",ggm]|2
ins.prorate.amount 9 MONEY R $(B1)BZ[bz]M["0",ggm]|1
ins.rcpt 9 MONEY R $(B1)BZ[bz]M["0",ggm]|3
ins.ref 9 MONEY R $(B1)BZ[bz]M["0",ggm]|5
transfer.date 8 DATE L $(B1)BZ[bz]M["0",ggm]|14
Ì € i 2
insurance.bill.ledger
[account,ins, ins.bill.no]
$(B1)BZ[bz]M["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 $(B1)BZ[bz]M["0",ggm]B[bzBN]|4
ins.bill.age.date 8 DATE L $(B1)BZ[bz]M["0",ggm]B[bzBN]|16
ins.bill.auto.transfer 9 MONEY R $(B1)BZ[bz]M["0",ggm]B[bzBN]|7
ins.bill.balance 9 SMONEY R $(B1)BZ[bz]M["0",ggm]B[bzBN]|0
ins.bill.date.sent 8 DATE L $(B1)BZ[bz]M["0",ggm]B[bzBN]|17
ins.bill.exp.reimb 10 MONEY R $(B1)BZ[bz]M["0",ggm]B[bzBN]|15
ins.bill.manual.edit 9 MONEY R $(B1)BZ[bz]M["0",ggm]B[bzBN]|6
ins.bill.num.adjs 3 PINT R $(B1)BZ[bz]M["0",ggm]B[bzBN]|12
ins.bill.num.exp.rcpts 3 PINT R $(B1)BZ[bz]M["0",ggm]B[bzBN]|10
ins.bill.num.rcpts 3 PINT R $(B1)BZ[bz]M["0",ggm]B[bzBN]|11
ins.bill.num.rcpts.hold 3 PINT R $(B1)BZ[bz]M["0",ggm]B[bzBN]|19
ins.bill.num.refs 3 PINT R $(B1)BZ[bz]M["0",ggm]B[bzBN]|13
ins.bill.prorate.adj 9 MONEY R $(B1)BZ[bz]M["0",ggm]B[bzBN]|2
ins.bill.prorate.amount 9 MONEY R $(B1)BZ[bz]M["0",ggm]B[bzBN]|1
ins.bill.rcpt 9 MONEY R $(B1)BZ[bz]M["0",ggm]B[bzBN]|3
ins.bill.ref 9 MONEY R $(B1)BZ[bz]M["0",ggm]B[bzBN]|5
ins.bill.resolved.date 8 DATE L $(B1)BZ[bz]M["0",ggm]B[bzBN]|18
ins.bill.transfer.date 8 DATE L $(B1)BZ[bz]M["0",ggm]B[bzBN]|14
Ì € i 2
insurances
[account, insurance]
$(B1)BZ[bz]M["I",ggm]
Field Name Len Dat Typ J DPM Offset/Local/VAL
insurance 10 FREE L MIS.INS ggm
assign.ben 1 YN L $(B1)BZ[bz]M["I",ggm]|12
ins.auth.diag.code 6 FREE L $(B1)BZ[bz]M["I",ggm]A|1
ins.auth.diag.desc 30 FREE L $(B1)BZ[bz]M["I",ggm]A|2
ins.auth.eff.date 8 DATE L $(B1)BZ[bz]M["I",ggm]A|7
ins.auth.exp.date 8 DATE L $(B1)BZ[bz]M["I",ggm]A|8
ins.auth.ipa.reimb.amt 9 MONEY R $(B1)BZ[bz]M["I",ggm]A|10
ins.auth.last.user 10 FREE L MIS.USER $(B1)BZ[bz]M["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 $(B1)BZ[bz]M["I",ggm]A|5
ins.auth.process.tried.q 1 FREE L $(B1)BZ[bz]M["I",ggm]A|11
ins.auth.ref.provider 10 FREE L MIS.DOC $(B1)BZ[bz]M["I",ggm]A|9
ins.auth.status 9 CHOICE L $(B1)BZ[bz]M["I",ggm]A|4
ins.auth.status.date 8 DATE L $(B1)BZ[bz]M["I",ggm]A|6
ins.auth.units 4 PINT R $(B1)BZ[bz]M["I",ggm]A|3
ins.coinsurance 9 SMONEY R $(B1)BZ[bz]M["I",ggm]|22
ins.collect.group 8 FREE L BAR.STMT.GRP $(B1)BZ[bz]M["I",ggm]|20
ins.copay 9 SMONEY R $(B1)BZ[bz]M["I",ggm]|21
ins.deductible 9 SMONEY R $(B1)BZ[bz]M["I",ggm]|13
ins.dem.id 44 FREE L VAL=@p.number_" "_@p.name'=" "
ins.elig.inq.seq.no 3 PINT R $(B1)BZ[bz]M["I",ggm]L|5
ins.elig.last.user 10 FREE L MIS.USER $(B1)BZ[bz]M["I",ggm]L|3
ins.elig.process 4 FREE L VAL="ELIG"
ins.elig.process.tried.q 1 FREE L $(B1)BZ[bz]M["I",ggm]L|2
ins.elig.status 8 CHOICE L $(B1)BZ[bz]M["I",ggm]L|0
ins.elig.status.date 8 DATE L $(B1)BZ[bz]M["I",ggm]L|1
ins.elig.trace.num 30 FREE L $(B1)BZ[bz]M["I",ggm]L|4
ins.ncovd.priv.rm 9 SMONEY R $(B1)BZ[bz]M["I",ggm]|16
ins.print.queries 8 FREE L VAL=%BAR.PAT.print.ins.screen(urn,insurance,"",0,1)
ins.treatment.auth.no 18 FREE L $(B1)BZ[bz]M["I",ggm]I1|10
ins1.group.number 15 FREE L VAL=IF{1^insurance.order,@ins.mnemonic^ins.mnemonic @i
VAL=nsured.group.number}
ins1.treatment.auth.no 18 FREE L VAL=IF{1^insurance.order,@ins.mnemonic^ins.mnemonic @P
VAL=gm.trans(%BAR.PAT.get.treatment.auth.number)(ins.m
VAL=nemonic)}
ins2.group.number 15 FREE L VAL=IF{2^insurance.order,@ins.mnemonic^ins.mnemonic @i
VAL=nsured.group.number}
ins2.treatment.auth.no 18 FREE L VAL=IF{2^insurance.order,@ins.mnemonic^ins.mnemonic @P
VAL=gm.trans(%BAR.PAT.get.treatment.auth.number)(ins.m
VAL=nemonic)}
ins3.group.number 15 FREE L VAL=IF{3^insurance.order,@ins.mnemonic^ins.mnemonic @i
VAL=nsured.group.number}
ins3.treatment.auth.no 18 FREE L VAL=IF{3^insurance.order,@ins.mnemonic^ins.mnemonic @P
VAL=gm.trans(%BAR.PAT.get.treatment.auth.number)(ins.m
VAL=nemonic)}
ins4.group.number 15 FREE L VAL=IF{4^insurance.order,@ins.mnemonic^ins.mnemonic @i
VAL=nsured.group.number}
ins4.treatment.auth.no 18 FREE L VAL=IF{4^insurance.order,@ins.mnemonic^ins.mnemonic @P
VAL=gm.trans(%BAR.PAT.get.treatment.auth.number)(ins.m
VAL=nemonic)}
insurance.active.flag 1 YN L $(B1)BZ[bz]M["I",ggm]|0
insurance.addr 30 FREE L $(B1)BZ[bz]M["I",ggm]|3
insurance.addr2 30 FREE L $(B1)BZ[bz]M["I",ggm]|4
insurance.benefit.plan 10 FREE L MIS.INS.BENE $(B1)BZ[bz]M["I",ggm]I1|14
insurance.biller 8 FREE L BAR.BILLER $(B1)BZ[bz]M["I",ggm]|19
insurance.city 30 FREE L $(B1)BZ[bz]M["I",ggm]|5
insurance.collector 8 FREE L BAR.COLLECTOR $(B1)BZ[bz]M["I",ggm]|10
insurance.comment 20 FREE L $(B1)BZ[bz]M["I",ggm]I1|9
insurance.cov.no 20 FREE L $(B1)BZ[bz]M["I",ggm]I1|8
insurance.eff.date 8 DATE L $(B1)BZ[bz]M["I",ggm]I1|6
insurance.exp.date 8 DATE L $(B1)BZ[bz]M["I",ggm]I1|7
insurance.from.adm 10 FREE L $(B1)BZ[bz]M["I",ggm]|1
insurance.name 30 FREE L $(B1)BZ[bz]M["I",ggm]|2
insurance.phone 30 PHONE L $(B1)BZ[bz]M["I",ggm]|8
insurance.remark 60 FREE L $(B1)BZ[bz]M["I",ggm]|17
insurance.state 2 FREE L $(B1)BZ[bz]M["I",ggm]|6
insurance.zip 10 ZIP.POST L $(B1)BZ[bz]M["I",ggm]|7
insured.emp.addr 30 FREE L $(B1)BZ[bz]M["I",ggm]I2|2
insured.emp.city 20 FREE L $(B1)BZ[bz]M["I",ggm]I2|3
insured.emp.name 30 FREE L $(B1)BZ[bz]M["I",ggm]I2|1
insured.emp.phone 18 PHONE L $(B1)BZ[bz]M["I",ggm]I2|6
insured.emp.state 2 FREE L $(B1)BZ[bz]M["I",ggm]I2|4
insured.emp.status 10 FREE L MIS.EMP.STATUS $(B1)BZ[bz]M["I",ggm]I2|8
insured.emp.zip 10 ZIP.POST L $(B1)BZ[bz]M["I",ggm]I2|5
insured.empl.status 10 FREE L MIS.EMP.STATUS $(B1)BZ[bz]M["I",ggm]I1|11
insured.employer 10 FREE L MIS.EMPLR $(B1)BZ[bz]M["I",ggm]I2|0
insured.emplr.loc 30 FREE L $(B1)BZ[bz]M["I",ggm]I1|13
insured.emplr.name 10 FREE L MIS.EMPLR $(B1)BZ[bz]M["I",ggm]I1|12
insured.emplye.id 20 FREE L $(B1)BZ[bz]M["I",ggm]I2|9
insured.group.name 30 FREE L $(B1)BZ[bz]M["I",ggm]I1|4
insured.group.number 15 FREE L $(B1)BZ[bz]M["I",ggm]I1|3
insured.name 30 NAME L $(B1)BZ[bz]M["I",ggm]I1|0
insured.name.out 30 NAME L VAL=%BAR.PAT.insured.name.out(account,insurance)
insured.policy.number 30 FREE L $(B1)BZ[bz]M["I",ggm]I1|2
insured.relationship 10 FREE L MIS.RELAT $(B1)BZ[bz]M["I",ggm]I1|1
insured.sex 1 CHOICE L $(B1)BZ[bz]M["I",ggm]I1|5
order.of.insurance 2 FREE L VAL=%BAR.PAT.get.ins.order.from.mnemonic(account,insur
VAL=ance)
override.biller 8 FREE L BAR.BILLER $(B1)BZ[bz]M["I",ggm]|18
override.collector 8 FREE L BAR.COLLECTOR $(B1)BZ[bz]M["I",ggm]|9
release.info 1 CHOICE L $(B1)BZ[bz]M["I",ggm]|11
subscriber.benefit.plan 10 FREE L MIS.INS.BENE $(B1)BZ[bz]M["I",ggm]I1|14
subscriber.emp.location 30 FREE L $(B1)BZ[bz]M["I",ggm]I1|13
subscriber.emp.name 10 FREE L MIS.EMPLR $(B1)BZ[bz]M["I",ggm]I1|12
subscriber.emp.status 10 FREE L MIS.EMP.STATUS $(B1)BZ[bz]M["I",ggm]I1|11
subscriber.group.name 30 FREE L $(B1)BZ[bz]M["I",ggm]I1|4
subscriber.group.number 15 FREE L $(B1)BZ[bz]M["I",ggm]I1|3
subscriber.ins.cov.no 20 FREE L $(B1)BZ[bz]M["I",ggm]I1|8
subscriber.ins.eff.date 8 DATE L $(B1)BZ[bz]M["I",ggm]I1|6
subscriber.ins.elig 8 CHOICE L $(B1)BZ[bz]M["I",ggm]L|0
subscriber.ins.elig.date 8 DATE L $(B1)BZ[bz]M["I",ggm]L|1
subscriber.ins.exp.date 8 DATE L $(B1)BZ[bz]M["I",ggm]I1|7
subscriber.name 30 NAME L $(B1)BZ[bz]M["I",ggm]I1|0
subscriber.policy.number 30 FREE L $(B1)BZ[bz]M["I",ggm]I1|2
subscriber.relationship 10 FREE L MIS.RELAT $(B1)BZ[bz]M["I",ggm]I1|1
subscriber.sex 1 CHOICE L $(B1)BZ[bz]M["I",ggm]I1|5
subscriber.urn 35 URN L MRI.SUBSCRIBER $(B1)BZ[bz]M["I",ggm]I1|15
Ì € i 2
ins.auth.procedures
[account,insurance, ins.auth.proc.seq.no]
$(B1)BZ[bz]M["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 $(B1)BZ[bz]M["I",ggm]A["P",bzIAP]|0
ins.auth.proc.amt 9 MONEY R $(B1)BZ[bz]M["I",ggm]A["P",bzIAP]|1
ins.auth.proc.copay 8 MONEY R $(B1)BZ[bz]M["I",ggm]A["P",bzIAP]|3
ins.auth.proc.units 4 PINT R $(B1)BZ[bz]M["I",ggm]A["P",bzIAP]|2
Ì € i 2
ins.authm.data
[account,insurance, ins.authm.urn]
$(B1)BZ[bz]M["I",ggm]AM[bzANU]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ins.authm.urn 18 FREE L bzANU
ins.authm.diag.code 6 FREE L $(B1)BZ[bz]M["I",ggm]AM[bzANU]|1
ins.authm.diag.desc 30 FREE L $(B1)BZ[bz]M["I",ggm]AM[bzANU]|2
ins.authm.eff.date 8 DATE L $(B1)BZ[bz]M["I",ggm]AM[bzANU]|7
ins.authm.exp.date 8 DATE L $(B1)BZ[bz]M["I",ggm]AM[bzANU]|8
ins.authm.ipa.reimb.amt 9 MONEY R $(B1)BZ[bz]M["I",ggm]AM[bzANU]|10
ins.authm.last.user 10 FREE L MIS.USER $(B1)BZ[bz]M["I",ggm]AM[bzANU]|12
ins.authm.number 18 FREE L $(B1)BZ[bz]M["I",ggm]AM[bzANU]|0
ins.authm.process 4 FREE L VAL="AUTH"
ins.authm.process.status 9 CHOICE L $(B1)BZ[bz]M["I",ggm]AM[bzANU]|5
ins.authm.process.tried.q 1 FREE L $(B1)BZ[bz]M["I",ggm]AM[bzANU]|11
ins.authm.ref.provider 10 FREE L MIS.DOC $(B1)BZ[bz]M["I",ggm]AM[bzANU]|9
ins.authm.ref.type 10 FREE L MIS.REF.TYPE $(B1)BZ[bz]M["I",ggm]AM[bzANU]|13
ins.authm.rm 1 YN L $(B1)BZ[bz]M["I",ggm]AM[bzANU]|14
ins.authm.status 9 CHOICE L $(B1)BZ[bz]M["I",ggm]AM[bzANU]|4
ins.authm.status.date 8 DATE L $(B1)BZ[bz]M["I",ggm]AM[bzANU]|6
ins.authm.track.number 10 FREE L $(B1)BZ[bz]M["I",ggm]AM[bzANU]|15
ins.authm.units 4 PINT R $(B1)BZ[bz]M["I",ggm]AM[bzANU]|3
Ì € i 2
ins.authm.procedures
[account,insurance,ins.authm.urn, ins.authm.proc.seq.no]
$(B1)BZ[bz]M["I",ggm]AM[bzANU]PM[bzIAP]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ins.authm.proc.seq.no 2 PINT R bzIAP
ins.authm.proc 10 FREE L $(B1)BZ[bz]M["I",ggm]AM[bzANU]PM[bzIAP]|0
ins.authm.proc.amt 9 MONEY R $(B1)BZ[bz]M["I",ggm]AM[bzANU]PM[bzIAP]|1
ins.authm.proc.copay 8 MONEY R $(B1)BZ[bz]M["I",ggm]AM[bzANU]PM[bzIAP]|3
ins.authm.proc.units 4 PINT R $(B1)BZ[bz]M["I",ggm]AM[bzANU]PM[bzIAP]|2
Ì € i 2
ins.cd.queries
[account,insurance, ins.cd.query]
$(B1)BZ[bz]M["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.response 75 QRY.RESP L $(B1)BZ[bz]M["I",ggm]CD[ggv]|0
ins.cd.yn.comment 70 QRY.RESP L $(B1)BZ[bz]M["I",ggm]CD[ggv]|5
Ì € i 2
ins.cd.queries.mult
[account,insurance,ins.cd.query, ins.cd.query.q]
$(B1)BZ[bz]M["I",ggm]CD[ggv]M[ggvIQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ins.cd.query.q 2 PINT R ggvIQ
ins.cd.query.resp.mult 30 QRY.RESP L $(B1)BZ[bz]M["I",ggm]CD[ggv]M[ggvIQ]|0
Ì € i 2
ins.elig.data.trace
[account,insurance, ins.elig.trn.seq.no]
$(B1)BZ[bz]M["I",ggm]L[gimTQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ins.elig.trn.seq.no 3 PINT R gimTQ
ins.elig.trn.last.user 10 FREE L MIS.USER $(B1)BZ[bz]M["I",ggm]L[gimTQ]|3
ins.elig.trn.number 30 FREE L $(B1)BZ[bz]M["I",ggm]L[gimTQ]|0
ins.elig.trn.status 8 CHOICE L $(B1)BZ[bz]M["I",ggm]L[gimTQ]|1
ins.elig.trn.status.date 8 DATE L $(B1)BZ[bz]M["I",ggm]L[gimTQ]|2
Ì € i 2
ins.non.cov.days
[account,insurance, ins.non.cov.frm]
$(B1)BZ[bz]M["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 $(B1)BZ[bz]M["I",ggm]NC[bzNC]|0
Ì € i 2
interest.ytd
[account, interest.year]
$(B1)BZ[bz]M["SI",bzSY]
Field Name Len Dat Typ J DPM Offset/Local/VAL
interest.year 4 PINT R bzSY
interest.ytd.total 8 MONEY R $(B1)BZ[bz]M["SI",bzSY]
Ì € i 2
log.flag
[account, log]
$(B1)BZ[bz]M["L",blh]
Field Name Len Dat Typ J DPM Offset/Local/VAL
log 8 FREE L BAR.LOG.DICT blh
log.fiscal.yr 4 YEAR L $(B1)BZ[bz]M["L",blh]|0
log.num 3 PINT R $(B1)BZ[bz]M["L",blh]|1
log.status 8 CHOICE L $(B1)BZ[bz]M["L",blh]|2
Ì € i 2
rec.procedures
[account,rec.schedule, rec.procedure]
$(B1)BZ[bz]M["RS",bds]RP[bd]
Field Name Len Dat Typ J DPM Offset/Local/VAL
rec.procedure 10 FREE L BAR.PROC bd
rec.amount 10 SMONEY R $(B1)BZ[bz]M["RS",bds]RP[bd]|0
rec.bill.no 3 PINT R $(B1)BZ[bz]M["RS",bds]RP[bd]|1
Ì € i 2
stmt.coll.events
[account, event.type,event.sort1,event.sort2,event.sort3]
$(B1)BZ[bz]M["S"]E[bET,bES1,bES2,bES3]
Field Name Len Dat Typ J DPM Offset/Local/VAL
event.type 8 CHOICE L bET
event.sort1 12 FREE L bES1
event.sort2 12 FREE L bES2
event.sort3 12 FREE L bES3
event.date 8 DATE L $(B1)BZ[bz]M["S"]E[bET,bES1,bES2,bES3]|1
event.mnemonic 10 FREE L BAR.COL.EV $(B1)BZ[bz]M["S"]E[bET,bES1,bES2,bES3]|2
event.msg.no 3 PINT R $(B1)BZ[bz]M["S"]E[bET,bES1,bES2,bES3]|0
event.pay.type 1 FREE L $(B1)BZ[bz]M["S"]E[bET,bES1,bES2,bES3]|3
Ì € i 2
tape.holds
[account, tape.to.hold,insurance.hold]
$(B1)BZ[bz]M["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 ggm
failed.check 15 FREE L BAR.CLAIM.CHK $(B1)BZ[bz]M["H",bec,ggm]|3
failed.check.msg 30 FREE L $(B1)BZ[bz]M["H",bec,ggm]|4
held.by.user 10 FREE L MIS.USER $(B1)BZ[bz]M["H",bec,ggm]|0
hold.type 1 CHOICE L $(B1)BZ[bz]M["H",bec,ggm]|2
taken.off.hold 10 PINT R $(B1)BZ[bz]M["H",bec,ggm]|1
Ì € i 2
unique.claim.ref
[account, ucr.num]
$(B1)BZ[bz]M["UCR",bucr]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ucr.num 8 FREE L bucr
ucr.adj.amt 10 SMONEY R $(B1)BZ[bz]M["UCR",bucr]|7
ucr.bill.no 3 PINT R $(B1)BZ[bz]M["UCR",bucr]|1
ucr.claim 10 FREE L BAR.CLAIM $(B1)BZ[bz]M["UCR",bucr]|2
ucr.ins 10 FREE L MIS.INS $(B1)BZ[bz]M["UCR",bucr]|0
ucr.no.rcpts 3 PINT R $(B1)BZ[bz]M["UCR",bucr]|8
ucr.rcp.amt 10 SMONEY R $(B1)BZ[bz]M["UCR",bucr]|6
ucr.remit.date 8 DATE L $(B1)BZ[bz]M["UCR",bucr]|5
ucr.submit.amt 10 SMONEY R $(B1)BZ[bz]M["UCR",bucr]|4
ucr.submit.date 8 DATE L $(B1)BZ[bz]M["UCR",bucr]|3
Ì € i 2
user.reminders
[account, reminder.user,reminder.txn.number]
$(B1)BZ[bz]M["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
insurance.reminders
[account, reminder.insurance,reminder.txn.urn]
$(B1)BZ[bz]T["TI",ggm,bzT]
Field Name Len Dat Typ J DPM Offset/Local/VAL
reminder.insurance 10 FREE L MIS.INS ggm
reminder.txn.urn 5 PINT R bzT
Ì € i 2
transaction.unbilled
[account, txn.ub.ser.date,txn.ub.urn]
$(B1)BZ[bz]T["UB",bzTS,bzT]
Field Name Len Dat Typ J DPM Offset/Local/VAL
txn.ub.ser.date 8 DATE L bzTS
txn.ub.urn 5 URN L bzT
txn.ub.value 1 FREE L $(B1)BZ[bz]T["UB",bzTS,bzT]|0
Ì € i 2
transactions
[account, txn.class,txn.urn]
$(B1)BZ[bz]T["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 $(B1)BZ[bz]T["T",bzC,bzT]|34
txn.amount 12 SMONEY R $(B1)BZ[bz]T["T",bzC,bzT]|5
txn.balance 9 SMONEY R $(B1)BZ[bz]T["T",bzC,bzT]|18
txn.bch 8 PINT R $(B1)BZ[bz]T["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 $(B1)BZ[bz]T["T",bzC,bzT]|2
txn.bill.no 3 INT R $(B1)BZ[bz]T["T",bzC,bzT]|19
txn.canned.text.code 10 FREE L BAR.COMMENT $(B1)BZ[bz]T["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 $(B1)BZ[bz]T["T",bzC,bzT]|32
txn.comment 50 FREE L $(B1)BZ[bz]T["T",bzC,bzT]|11
txn.comment.ack.date 8 DATE L $(B1)BZ[bz]T["T",bzC,bzT]|40
txn.comment.ack.user 10 FREE L MIS.USER $(B1)BZ[bz]T["T",bzC,bzT]|41
txn.comment.by.system 1 PINT R $(B1)BZ[bz]T["T",bzC,bzT]|10
txn.corp 4 FREE L MIS.GL.CORP $(B1)BZ[bz]T["T",bzC,bzT]|12
txn.count 4 PINT R $(B1)BZ[bz]T["T",bzC,bzT]|6
txn.dis.exemption 1 YN L $(B1)BZ[bz]T["T",bzC,bzT]|7
txn.edit.from 20 FREE L $(B1)BZ[bz]T["T",bzC,bzT]|12
txn.edit.to 20 FREE L $(B1)BZ[bz]T["T",bzC,bzT]|13
txn.end.pointer 5 PINT R $(B1)BZ[bz]T["T",bzC,bzT]|10
txn.fixed 20 FREE L $(B1)BZ[bz]T["T",bzC,bzT]|10
txn.for.reminder 5 PINT R $(B1)BZ[bz]T["T",bzC,bzT]|7
txn.guar.amt 9 SMONEY R $(B1)BZ[bz]T["T",bzC,bzT]|46
txn.info.comment 1 YN L $(B1)BZ[bz]T["T",bzC,bzT]|39
txn.ins 10 FREE L MIS.INS $(B1)BZ[bz]T["T",bzC,bzT]|8
txn.ins.coins 9 SMONEY R $(B1)BZ[bz]T["T",bzC,bzT]|44
txn.ins.copay 9 SMONEY R $(B1)BZ[bz]T["T",bzC,bzT]|43
txn.ins.deduct 9 SMONEY R $(B1)BZ[bz]T["T",bzC,bzT]|42
txn.ord.physician 10 FREE L MIS.DOC $(B1)BZ[bz]T["T",bzC,bzT]|25
txn.perf.physician 10 FREE L MIS.DOC $(B1)BZ[bz]T["T",bzC,bzT]|21
txn.phys.identifier 20 URN L $(B1)BZ[bz]T["T",bzC,bzT]|26
txn.pointer 5 PINT R $(B1)BZ[bz]T["T",bzC,bzT]|7
txn.procedure 10 FREE L BAR.PROC $(B1)BZ[bz]T["T",bzC,bzT]|4
txn.prof.comp 12 SMONEY R $(B1)BZ[bz]T["T",bzC,bzT]|9
txn.rcp.to.date 12 SMONEY R $(B1)BZ[bz]T["T",bzC,bzT]|33
txn.receipt.date 8 DATE L $(B1)BZ[bz]T["T",bzC,bzT]|37
txn.receipt.num 10 PINT R $(B1)BZ[bz]T["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 $(B1)BZ[bz]T["T",bzC,bzT]|35
txn.reminder.active 1 CHOICE L $(B1)BZ[bz]T["T",bzC,bzT]|17
txn.reminder.balance 9 SMONEY R $(B1)BZ[bz]T["T",bzC,bzT]|18
txn.reminder.date 8 DATE L $(B1)BZ[bz]T["T",bzC,bzT]|16
txn.reminder.for.user 10 FREE L MIS.USER $(B1)BZ[bz]T["T",bzC,bzT]|15
txn.reminder.resolved.by 5 PINT R $(B1)BZ[bz]T["T",bzC,bzT]|10
txn.remit.amt 10 SMONEY R $(B1)BZ[bz]T["T",bzC,bzT]|48
txn.remit.code 5 FREE L BAR.REMIT $(B1)BZ[bz]T["T",bzC,bzT]|30
txn.rev.site 10 FREE L MIS.REV.SITE $(B1)BZ[bz]T["T",bzC,bzT]|45
txn.ser.date 8 DATE L $(B1)BZ[bz]T["T",bzC,bzT]|1
txn.spool.file 5 PINT R MIS.SPOOL $(B1)BZ[bz]T["T",bzC,bzT]|27
txn.spool.page.beg 5 FREE L $(B1)BZ[bz]T["T",bzC,bzT]|28
txn.spool.page.end 5 FREE L $(B1)BZ[bz]T["T",bzC,bzT]|29
txn.stmt.grp 8 FREE L BAR.STMT.GRP $(B1)BZ[bz]T["T",bzC,bzT]|47
txn.stmt.msg 8 FREE L BAR.DUN.MSG $(B1)BZ[bz]T["T",bzC,bzT]|12
txn.stmt.no 3 PINT R $(B1)BZ[bz]T["T",bzC,bzT]|19
txn.stmt.seq.no 3 PINT R $(B1)BZ[bz]T["T",bzC,bzT]|20
txn.tax.code 3 FREE L MIS.TAX.CODE $(B1)BZ[bz]T["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 $(B1)BZ[bz]T["T",bzC,bzT]|22
txn.transfer.pos.bal 1 FREE L $(B1)BZ[bz]T["T",bzC,bzT]|23
txn.type 1 CHOICE L $(B1)BZ[bz]T["T",bzC,bzT]|0
txn.ucrn 8 FREE L $(B1)BZ[bz]T["T",bzC,bzT]|31
txn.user 10 FREE L MIS.USER $(B1)BZ[bz]T["T",bzC,bzT]|14
txn.user1 10 FREE L MIS.USER VAL=@txn.user
Ì € i 2
transaction.cd.queries
[account,txn.class,txn.urn, txn.cd.query]
$(B1)BZ[bz]T["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 FREE L $(B1)BZ[bz]T["T",bzC,bzT]CD[ggv]|0
Ì € i 2
transaction.text
[account,txn.class,txn.urn, txn.text.urn]
$(B1)BZ[bz]T["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 TEXT L $(B1)BZ[bz]T["T",bzC,bzT]T[bzTT]
| | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | |