IBCEOB00 ;ALB/ESG/PJH - 835 EDI EOB MSG PROCESSING CONT ;30-JUN-2003
Source file <IBCEOB00.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| RCRU(IBZDATA,IB0,IBLN) | ; Revenue Code Roll-up procedure check -
; Total up outbound line items by revenue code and compare with ; incoming EOB 40 record to see if it has been rolled up |
|
| RCRU2 | ; check roll-up data by rev code and unit charge
|
|
| RCRUX | ;
|
|
| ICN(IBEOB,ICN,COBN,IBOK) | ; File the 835 ICN into the Bill
|
|
| ICNX | ;
|
|
| 15(IB0,IBEGBL,IBEOB) | ; Record '15'
|
|
| Q15 | ||
| 20(IB0,IBEGBL,IBEOB) | ; Record '20'
|
|
| Q20 | ||
| 35(IB0,IBEGBL,IBEOB) | ; Record '35'
|
|
| Q35 | ||
| 37(IB0,IBEGBL,IBEOB) | ; Record '37'
|
|
| Q37 | ||
| DET40(IB0,ARRAY,ERRCOD) | ; Format important details of record 40 for error
; IB0 = data on 40 record (some pieces pre-formatted) ; ARRAY(n)=formatted line is returned if passed by ref |
|
| DET4X(RECID,IB0,ARRAY) | ; Format important details of record 41-46 for error
; RECID = 41,42,45,46 ; IB0 = data on RECID record ; ARRAY(n)=formatted line is returned if passed by ref |
|
| FDT(X) | ; Format date in X (YYYYMMDD) to MM/DD/YYYY
|
