$$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.
|
|