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 |
|