RCDPESR3 ;ALB/TMK/PJH - Server auto-update utilities - EDI Lockbox ;Jun 06, 2014@19:11:19
Source file <RCDPESR3.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EFTIN(RCTXN,RCD,XMZ,RCGBL,RCEFLG) | ; Adds a new EFT record to AR file 344.3
; from Lockbox EFT msg ; Input: RCTXN - Data on the header record of the message text ; RCD - Array containing formatted mail message header data ; XMZ - Mail message number ; RCGBL - Name of the array or global where the message is stored ; Output: RCEFLG - Error flag returned if passed by reference |
|
EFTQ | ;
|
|
ADDEFT(RCTXN,RCXMZ,RCGBL,RCERR) | ; File EFT TOTAL record in file 344.3
; RCTXN = the data on the header record of the message text ; RCXMZ = the mail message number ; RCGBL = the name of the array or global where the message is stored ; Function returns the ien of the total record found/added ; and also returns RCERR if passed by reference |
|
ADDQ | ||
CHKSUM(RCTDA) | ; Calc the checksum for EFT record stored in RCTDA in 344.3
|
|
DISP(RCTIT,RCCT,RCDXM,RCXMZ) | ; Sends bulletin with formatted data from message
; RCTIT = title of bulletin ; RCCT = # of lines previously populated ; RCXDM = array containing the text of the bulletin |
|
DUP(RCM,RCIFN,RCAMT,RCAMT1) | ; EOB in mail message already stored in 361.1?
; RCM = msg # EOB was received in ; RCIFN = bill ien ; RCAMT = amt pd ; RCAMT1 = amt reported billed ; Returns 0 if none found, entry #^message checksum on file if found |
|
DUPERA(DUP,RCNOUPD) | ; Msg for duplicate ERA
; RCNOUPD = # of message with duplicate data ; DUP = flag = -1 if duplicate message received in same mail msg # |
|
BULLS(RCFILE,RCTDA,DUP,RCXMSG) | ; Error bulletins for ERA
; PRCA*4.5*298 - DUPLICATE TRANSMISSION MSG AND EEOB - EXCEPTIONS message disabled - 14 Feb 2014 |
|
ADJERR(RCERR) | ; Set up adj error text in RCERR(n) - pass by ref
; Function returns # of lines for error text |
FileNo | Call Tags |
---|---|
^RCY(344.3 - [#344.3] | Classic Fileman Calls, GET1^DIQ |
^RCY(344.31 - [#344.31] | Classic Fileman Calls |