IBCNSBL2 ;ALB/CPM - 'BILL NEXT PAYOR' BULLETIN ;08-AUG-96
Source file <IBCNSBL2.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EOB(IBIFN,IBORIG,IBPYMT,IBTXT) | ; determine if there may be another payer for this claim that should be billed
; in general the EOB of the current bill is required to be sent with the next TP bill in the series ; if there is another Third Party Payer then returns true, if any other payer (including patient) then set array |
|
| EOBQ | ||
| BULL(IBIFN,IBORIG,IBPYMT) | ; Generate bulletin detailing next payer for a claim, if any
|
|
| BULLQ | ||
| CHPSUP(DFN) | ; Does the patient have a TRICARE Supplemental policy?
; Input: DFN -- Pointer to the patient in file #2 ; Output: 0 - Has no TRICARE Supplemental policy ; 1 - Yes, patient has such a policy. |
|
| WLCK(IBIFN) | ; does this claim need to be removed from the worklist?
; IBIFN = claim ien, if collected/closed and NO subsequent payer, remove from worklist if there ; |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGCR(399 - [#399] | EOB+23, EOB+48, EOB+49, EOB+72, EOB+73, BULL+24, BULL+43, BULL+45, BULL+47, WLCK+5 |
| ^DGCR(399.3 - [#399.3] | EOB+28, BULL+38 |
| ^DIC(36 - [#36] | EOB+74, BULL+45, BULL+48, BULL+49, BULL+50 |
| ^IBA(355.3 - [#355.3] | EOB+50 |
| ^IBE(350.9 - [#350.9] | BULL+54 |
| ^IBE(355.1 - [#355.1] | EOB+50, CHPSUP+8 |
| ^PRCA(430 - [#430] | EOB+19, BULL+36 |
| ^XMB("NETNAME" | BULL+55 |
| ^XMB(3.8 - [#3.8] | BULL+54 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DFN | CHPSUP~, CHPSUP+6 |
| DT | CHPSUP+6 |
| DUZ | BULL+31 |
| IB | EOB+17~, EOB+23*, EOB+28, EOB+63, BULL+10~, BULL+24*, BULL+25, BULL+38 |
| IBARCAT | EOB+17~, EOB+28*, EOB+31, EOB+36, EOB+41, EOB+45, EOB+60 |
| IBCS | EOB+17~, EOB+50*, EOB+51, CHPSUP+5~, CHPSUP+7*, CHPSUP+8*, CHPSUP+9 |
| IBGRP | BULL+10~, BULL+54*, BULL+55 |
| IBIFN | EOB~, EOB+18, EOB+19, EOB+23, EOB+48, EOB+49, EOB+72, EOB+73, BULL~, BULL+12 , BULL+20, BULL+24, BULL+36, BULL+43, BULL+45, BULL+47, WLCK~, WLCK+4, WLCK+5, WLCK+6 |
| IBINS | EOB+17~, EOB+73*, EOB+74, CHPSUP+5~ |
| IBINS( | CHPSUP+7, CHPSUP+8 |
| IBORIG | EOB~, EOB+20, EOB+26, BULL~, BULL+12, BULL+20, BULL+39 |
| IBP | BULL+10~, BULL+25*, BULL+37 |
| IBPOL | EOB+17~, EOB+49*, EOB+50 |
| IBPYMT | EOB~, EOB+21, EOB+26, BULL~, BULL+12, BULL+20, BULL+40 |
| IBRETURN | EOB+17~*, EOB+32*, EOB+37*, EOB+42*, EOB+56*, EOB+64*, EOB+74*, EOB+76, EOBQ |
| IBSEC | EOB+17~ |
| IBSEQ | EOB+17~, EOB+48*, EOB+49, EOB+72*, EOB+73, EOB+75 |
| IBTXT | EOB~, BULL+10~, BULL+12 |
| IBTXT(1 | BULL+33* |
| IBTXT(10 | BULL+44*, BULL+48* |
| IBTXT(11 | BULL+45*, BULL+49* |
| IBTXT(12 | BULL+50* |
| IBTXT(13 | BULL+51* |
| IBTXT(14 | EOB+33*, EOB+38*, EOB+42*, EOB+52*, EOB+57*, EOB+65*, EOB+69*, EOB+75* |
| IBTXT(15 | EOB+53*, EOB+66*, EOB+76* |
| IBTXT(2 | BULL+34* |
| IBTXT(3 | BULL+35* |
| IBTXT(4 | BULL+36* |
| IBTXT(5 | BULL+37* |
| IBTXT(6 | BULL+38* |
| IBTXT(7 | BULL+39* |
| IBTXT(8 | BULL+40* |
| IBTXT(9 | BULL+41* |
| IBWLF | BULL+10~, BULL+19*, BULL+20 |
| IBX | BULL+10~, BULL+12*, BULL+19, BULL+43*, BULL+44, BULL+47*, BULL+48, BULL+49, BULL+50 |
| U | EOB+48, EOB+72, EOB+73, EOB+74, EOB+76, BULL+19, BULL+44, BULL+45, BULL+48, BULL+49 , BULL+50, WLCK+4 |
| X | EOB+17~, BULL+10~, CHPSUP+5~, CHPSUP+7*, CHPSUP+8, WLCK+3~, WLCK+6* |
| XMDUZ | BULL+28~, BULL+30* |
| XMSUB | BULL+28~, BULL+29* |
| XMTEXT | BULL+28~, BULL+30* |
| XMY | BULL+28~, BULL+31! |
| XMY( | BULL+31* |
| XMY("G." | BULL+55* |
