RCDPEM0 ;ALB/TMK - ERA MATCHING TO EFT (cont) ;Jun 11, 2014@13:04:03
Source file <RCDPEM0.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| MATCH(RCZ,RCPROC) | ;EP from RCDPEM
; Match EFT to ERA ; Input: RCZ - IEN of file 344.31 ; RCPROC - 1 if called from EFT-EOB automatch, 0 if from manual match |
|
| ADDDEP(RCD,RCDDT,RCZ) | ; Add deposit
; RCD = deposit # ; RCDDT = deposit date FM format ; RCZ = ien of entry in file 344.3 ; Function returns IEN of new deposit entry |
|
| ADDREC(RCDEP,RCZ) | ; Add receipt, send CR to FUND 528704, Rev src cd 8NZZ for total EFT amt
; Input: RCDEP - IEN in AR DEPOSIT file (#344.1) ; RCZ - IEN in EDI LOCKBOX DEPOSIT file (#344.3) (same as $P(^RCY(344.31,IEN,0),"^",1) ; Returns: IEN of new receipt entry |
|
| SETERR(RCPROC) | ; Set up first line of error message to be stored
; RCPROC = 1 if called from EFT-EOB automatch, 0 if from manual match ; = 2 if called from EFT deposit creation |
|
| STORERR(RCFILE,RCZ,RCER) | ; Store error text in word processing field
; RCFILE = 344.3 or 344.31 ; RCZ = ien of the entry in file RCFILE ; RCER = array containing the error text (passed by ref) |
| FileNo | Call Tags |
|---|---|
| ^RCY(344 - [#344] | Classic Fileman Calls |
| ^RCY(344.1 - [#344.1] | Classic Fileman Calls |
| ^RCY(344.3 - [#344.3] | Classic Fileman Calls |
| ^RCY(344.31 - [#344.31] | Classic Fileman Calls, GET1^DIQ |
| ^RCY(344.4 - [#344.4] | GET1^DIQ |
