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 |