IBCEOB0 ;ALB/TMP/PJH - 835 EDI EOB MSG PROCESSING ; 8/24/10 7:23pm
Source file <IBCEOB0.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| LINE() | ;Extract Provider Line Reference from 42 record
|
|
| 30(IB0,IBEOB,IBOK) | ; Process record type 30 for EOB
; IB0 = the record being processed ; IBEOB = the ien of the EOB entry in file 361.1 ; IBOK = Returned as 1 if record filed OK, 0 if error occurred |
|
| Q30 | ||
| 40(IB0,IBEOB,IBOK) | ; Process record type 40 for EOB
; IB0 = the record being processed ; IBEOB = the ien of the EOB entry in file 361.1 ; IBOK = Returned as 1 if record filed OK, 0 if error occurred |
|
| Q40 | ||
| 41(IB0,IBEOB,IBOK) | ; Process record type 41 for EOB
; IB0 = the record being processed ; IBEOB = the ien of the EOB entry in file 361.1 ; IBOK = Returned as 1 if record filed OK, 0 if error occurred |
|
| Q41 | ||
| 42(IB0,IBEOB,IBOK) | ; Process record type 42 for EOB
; IB0 = the record being processed ; IBEOB = the ien of the EOB entry in file 361.1 ; IBOK = Returned as 1 if record filed OK, 0 if error occurred |
|
| Q42 | ||
| 45(IB0,IBEOB,IBOK) | ; Process record type 45 for EOB
; IB0 = the record being processed ; IBEOB = the ien of the EOB entry in file 361.1 ; IBOK = Returned as 1 if record filed OK, 0 if error occurred |
|
| Q45 | ||
| 46(IB0,IBEOB,IBOK) | ; Process record type 46 for EOB
; IB0 = the record being processed ; IBEOB = the ien of the EOB entry in file 361.1 ; IBOK = Returned as 1 if record filed OK, 0 if error occurred |
|
| Q46 | ||
| ERRTXT(X,IBEOB) | ; Set error text based on circumstances
; Input - X = Standard Error message passed in ; IB0 ; Returns modified error message text |
|
| EBILL(IBEOB) | ; Check If EOB was billed electronically
; Input : IBEOB = Internal entry number from file 361.1 ; Returns : 1 - Billed electronically ; 0 - Not billed electronically |
| FileNo | Call Tags |
|---|---|
| ^IBM(361.1 - [#361.1] | GET1^DIQ |
| ^IBA(364 - [#364] | GET1^DIQ |
