Routine: RCDPESR2

Information

RCDPESR2 ;ALB/TMK/DWA - Server auto-upd - EDI Lockbox ;30 July 2018 20:13:45

Source file <RCDPESR2.m>

Name	Comments	DBIA/ICR reference
TASKERA(RCTDA)	; Task to upd ERA ; RCTDA = ien 344.5
NEWERA(RCTDA,RCREFILE)	;Tasked ; Add new EOB's to IB & ERA tot rec to AR ; RCTDA = ien 344.5 ; RCREFILE = 1: re-filing rec via exc proc
QNEW
UPDEOB(RCTDA,RCFILE,DUP)	;Upd 361.1 from ERA msg in 344.5 or .4

FileNo	Call Tags
^RCY(344.5 - [#344.5]	Classic Fileman Calls, WP^DIE