RCDPEAP ;ALB/PJH - AUTO POST MATCHING EFT ERA PAIR ;Oct 15, 2014@12:36:51
Source file <RCDPEAP.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ;Auto-post ERA Receipts
|
|
| EN1 | ;Auto-post newly matched and matched but unprocessed ERA
|
|
| AUTOPOST(RCEFTDA,RCERA,RCZERO) | ; PRCA*4.5*424 add parameter
; RCEFTDA = ien of file #344.31 ; RCERA = ien of file #344.4 ; RCZERO = 1 if this ERA is zero balance, otherwise 0 ; PRCA*4.5*424 |
|
| AUTOQ | ||
| EN2 | ;Auto-Post Previously Processed ERA
|
|
| ACTIVE(EOBIEN) | ;Verify claim is active
; EOBIEN - IEN of file 361.1 |
|
| ALLOK(RCERA,RCSCR,ZEROBAL,RCLINES) | ;Verify which scratchpad lines are able to auto-post
; RCERA - 344.4 ien ; RCSCR - 344.49 ien ; ZEROBAL - flag that represents if ERA has zero payment balance after processing ; matched positive/negative pairs, passed by reference ; RCLINES - array of ERA line references (passed in by reference) ; NOTE: ORIGINAL ERA SEQUENCES (344.491, .09) can have multiple ERA line ; references separated by commas (e.g., 3,4) ; returns 0 or 1 (ALLOK) |
|
| AUDITLOG(DA,RCNEWST,RCREASON) | ;
; Update the Auto-post Audit Log |
|
| BUILD(RCSCR,ARRAY) | ; EP from EN2^RCDPEAD - Build list of ERA lines
; RCSCR = ien of file 344.49 ; ARRAY = the array that will hold the list of ERA lines, passed by reference |
|
| CHECKPAY(ARRAY,CLAIM) | ;Check balance versus payments
; ARRAY = array of claim numbers and respective payment amounts ; e.g. ARRAY(430 ien) = 123.04 ; CLAIM = AR BILL (344.491, .07) - IEN of file 430 |
|
| CLEAR(DA) | ;Clear scratchpad
|
|
| COMPLETE(RCSCR) | ;Check for non-zero lines without a receipt
; RCSCR = ien of file 344.49 ; Returns status of check (1 or 0) |
|
| ERAREF(RCSCR,RCRCPTDA) | ; update ERA reference and EFT record IEN in file 344
; RCSCR - IEN of record in file 344.49 ; RCRCPTDA - ien of record in file 344 (receipt ien) |
|
| NOTOK(RCSCR) | ;Verify all scratchpad lines passed auto verify (V)
; RCSCR = ien of file 344.49 ; Returns status of check (1 or 0) |
|
| POSTALL(RCERA) | ; all lines in ERA get posted on first attempt of auto-post
; RCERA = ien of 344.4 |
|
| POSTERA(RCERA,RCLINES) | ; only some of the EEOB lines passed validation on first attempt (DAY 1) of auto-post
; therefore assign the receipt number and 'partial' post status to ERA summary ; RCERA = ien of 344.4 ; RCLINES = array of ERA line references ; no lines passed validation; at lease 1 EEOB line needs to pass validation before assigning a receipt to the ERA |
|
| POSTERAQ | ;
|
|
| POSTLNS(RCERA,RCRCPTDA,RCLINES) | ; this subroutine should only be called when some of the EEOB lines
; passed validation on FIRST attempt (DAY 1) of auto-post ; RCERA = ien of ERA entry in 344.4 ; RCRCPTDA = ien of receipt entry in 344 or undefined if receipt not created since none of the lines passed validation ; RCLINES = array of ERA line references |
|
| SCRPAD(RCERA,RCZERO) | ;Build Scratchpad entry in #344.49 for the ERA
; Input - RCERA - IEN for #344.4 ; RCZERO - Optional, if passed, 1 if zero balance ERA. 0 otherwise ; Output - RCSCR = Scratchpad IEN (Success) or 0 (Fail) |
|
| SCRPADX | ;Return Scratchpad IEN
|
|
| SETSTA(DA,STATUS,RCREASON) | ;Set ERA auto-post status
; Log status change |
|
| UNLOCKR | ;Unlock ERA receipt and deposit ticket
|
|
| UNLOCKE | ;Unlock ERA
|
| FileNo | Call Tags |
|---|---|
| ^RCY(344 - [#344] | Classic Fileman Calls |
| ^RCY(344.4 - [#344.4] | Classic Fileman Calls, GET1^DIQ |
| ^RCY(344.49 - [#344.49] | Classic Fileman Calls |
| 344.491 | GET1^DIQ |
| ^PRCA(430 - [#430] | GET1^DIQ |
