IBCCCB ;ALB/ARH - COPY BILL FOR COB ;2/13/06 10:46am
Source file <IBCCCB.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ASK | ;
|
|
| CHKB | ; Entrypoint-COB processing via EDI's COB Mgmt
; Ask if final EOB was received for previous bill |
|
| CHKB1 | ; Entry point for Automatic/Silent COB Processing.
; No writes or reads can occur from this point forward if variable ; IBSILENT=1. Any and all error messages should be processed with ; the ERROR procedure below. |
|
| NEXTP | ; If current bill=MEDICARE WNR and valid 'next payer', use same
; bill for new payer ; If next valid 'payer' is ins co or MEDICARE WNR, create new bill |
|
| SKIP | ; Jump here if skipping over the preceeding reads
|
|
| END | ;
|
|
| ASK1 | ; If entering thru EDI COB processing, don't ask for new bill, quit
|
|
| ERROR | ; Display/Save error message
|
|
| EXIT | ||
| KVAR | ||
| DSPRB(IBIFN) | ; display related bills
|
|
| CTCOPY(IBIFN,IBMRA) | ; based on the type of bill, copy without cancelling
; IBMRA = 1 if an MRA bill and copy for prof components is desired |
|
| PCERR | ; Display/pause error message for interaction - *690
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|