Routine: RCDPEM

Information

RCDPEM ;ALB/TMK/PJH - POST EFT, ERA MATCHING TO EFT ;Jun 06, 2014@19:11:19

Source file <RCDPEM.m>

Name	Comments	DBIA/ICR reference
EN	; Post EFT deposits, auto-match EFT's and ERA's
ENQ
MATCH(RCMAN,RCPROC)	; match unmatched EFTs with ERAs ; RCMAN = 1 if job run manually, outside of nightly processing ; RCPROC = 1 if called from EFT-EOB automatch, 0 if from manual match
MATCHQ
LOCKDEP(RCDEP,LOCK)	; Lock/confirm deposit ien RCDEP file 341.1 ; If LOCK = 1 lock deposit ; If LOCK = 0 unlock deposit
RCPTDET(RCRZ,RECTDA1,RCER,RCDUZ)	; Adds detail to a receipt based on file 344.49 ; RCRZ = ien of ERA entry in file 344.49 ; RECTDA1 = ien of receipt entry in file 344 ; RCER = error array returned if passed by reference
SPLIT(Z,Z1,RCERA)	;Check if worklist was split but to to single claim
DET(RCZ,RCR,RECTDA1,RCTRANDA)	; Store receipt detail ; RCZ = ien of entry file 344.49 ; RCR = ien of entry in file 344.491 ; RCPROC = Function calling this subroutine ; = 1 EFT match to ERA = 0 manual add receipt ; RECTDA1 = ien of entry in file 344 ; RCTRANDA = ien of entry in subfile 344.01