Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: RCDPESR3

Package: Accounts Receivable

Routine: RCDPESR3


Information

RCDPESR3 ;ALB/TMK/PJH - Server auto-update utilities - EDI Lockbox ;Jun 06, 2014@19:11:19

Source Information

Source file <RCDPESR3.m>

Entry Points

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RCY(344.3 - [#344.3] Classic Fileman Calls,  GET1^DIQ
^RCY(344.31 - [#344.31] Classic Fileman Calls
Info |  Source |  Entry Points |  FileMan Files Accessed Via FileMan Db Call