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