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
|