| $$DUP(IBMSG,IBIFN,IBAMT) | 
This function determines if the EOB data for a given
bill number already exists in the EXPLANATION OF BENEFITS file (#361.1) by
comparing the calculated checksum of the raw 835 data of the new EOB for the
bill against the checksums of each of the bill's existing EOB records.
 
 | 
| VARIABLES | 
TYPE | 
VARIABLES DESCRIPTION | 
 
IBIFN | 
Input | 
The pointer (ien) to the bill in file 399.
 
 | 
$$DUP | 
Output | 
FUNCTION RETURNS: 0 if no duplicate was found or the
ien of the existing entry if found to be a duplicate EOB.
 
 | 
 
 | 
$$ADD3611(IBMSG,IBTBILL,IBBATCH,IBIFN,IBAR) | 
Adds a stub record to file 361.1.
 
 | 
| VARIABLES | 
TYPE | 
VARIABLES DESCRIPTION | 
 
IBMSG | 
Input | 
The mailman message # in which the EOB was received.
 
 | 
IBTBILL | 
Input | 
The pointer to the transmitted bill in file 364.
Optional for calls from A/R.
 
 | 
IBBATCH | 
Input | 
The pointer to the batch in file 364.1 that the
transmitted bill was in.  Optional for calls from A/R.
 
 | 
IBIFN | 
Input | 
The pointer (ien) to the bill in file 399.
 
 | 
IBAR | 
Input | 
This is a flag set equal to 1 to indicate the call
was made from Accounts Receivable.
 
 | 
$$ADD3611 | 
Output | 
FUNCTION RETURNS: = -1 if record is not added, ien of
record if successful.
 
 | 
 
 | 
$$UPD3611(IBEOB,IBTDA,IBAR) | 
Adds detail from electronic EOB to file 361.1.
 
 | 
| VARIABLES | 
TYPE | 
VARIABLES DESCRIPTION | 
 
IBEOB | 
Input | 
The ien of the entry in file 361.1 being updated.
 
 | 
IBTDA | 
Input | 
The entry # in the source file where the detail data
to be stored can be found.
 
 | 
IBAR | 
Input | 
This is a flag set equal to 1 to indicate the call
was made from Accounts Receivable.  This determines the name of the source
file where the detail data will be found.
 
 | 
 
 | 
ERRUPD(IBEOB,IBEGBL) | 
Adds error messages to the MESSAGE STORAGE ERRORS
field.
 
 | 
| VARIABLES | 
TYPE | 
VARIABLES DESCRIPTION | 
 
IBEOB | 
Input | 
The ien of the entry in file 361.1 being updated.
 
 | 
IBEGBL | 
Input | 
The subscript in global ^TMP(subscript,$J, where the
error text to be stored can be found.
 
 | 
 
 |