RCDPEAP ;ALB/PJH - AUTO POST MATCHING EFT ERA PAIR ;Oct 15, 2014@12:36:51
Source file <RCDPEAP.m>
Package | Total | Call Graph |
---|---|---|
Accounts Receivable | 10 | $$LOCKDEP^RCDPDPLU ($$UNBAL,ERADET,VALID)^RCDPEAP1 RCPTDET^RCDPEM ($$BLDRCPT,RCPTDET)^RCDPEMA $$ADDREC^RCDPEWL ADDLINES^RCDPEWLA $$LOCKREC^RCDPRPLU PROCESS^RCDPURE1 ($$BLDRCPT,$$FMSSTAT)^RCDPUREC $$PENDPAY^RCDPURET |
VA FileMan | 3 | (,UPDATE)^DIE ^DIK $$GET1^DIQ |
Kernel | 1 | $$NOW^XLFDT |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ;Auto-post ERA Receipts
|
|
EN1 | ;Auto-post newly matched and matched but unprocessed ERA
|
|
AUTOPOST(RCEFTDA,RCERA) | ;
; RCEFTDA = ien of file #344.31 ; RCERA = ien of file #344.4 |
|
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
|
|
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
|
|
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)
|
|
POSTALL(RCERA) | ; all lines in ERA get posted on first attempt of auto-post
|
|
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 |
|
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 |
|
SCRPAD(RCERA) | ;Build Scratchpad entry in #344.49 for the ERA
|
|
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
|
Name | Field # of Occurrence |
---|---|
^DIE | EN2+44, EN2+48, ERAREF+5, POSTALL+32, POSTALL+37, POSTALL+46, POSTERA+29, POSTLNS+22, POSTLNS+26, SETSTA+11 |
UPDATE^DIE | AUDITLOG+18 |
^DIK | CLEAR+1 |
$$GET1^DIQ | EN2+7, AUDITLOG+8, BUILD+14, CHECKPAY+8, CHECKPAY+9, CHECKPAY+10, CHECKPAY+11, CHECKPAY+12, POSTALL+7 |
$$LOCKDEP^RCDPDPLU | EN2+32, POSTALL+17, POSTERA+17 |
$$UNBAL^RCDPEAP1 | AUTOPOST+17 |
ERADET^RCDPEAP1 | EN2+40 |
VALID^RCDPEAP1 | EN2+13 |
RCPTDET^RCDPEM | POSTALL+9 |
$$BLDRCPT^RCDPEMA | EN2+23, POSTERA+9 |
RCPTDET^RCDPEMA | EN2+26, POSTERA+10 |
$$ADDREC^RCDPEWL | SCRPAD+22 |
ADDLINES^RCDPEWLA | SCRPAD+24 |
$$LOCKREC^RCDPRPLU | EN2+31, POSTALL+16, POSTERA+16 |
PROCESS^RCDPURE1 | EN2+34, POSTALL+20, POSTERA+20 |
$$BLDRCPT^RCDPUREC | POSTALL+8 |
$$FMSSTAT^RCDPUREC | EN1+12 |
$$PENDPAY^RCDPURET | CHECKPAY+20 |
$$NOW^XLFDT | AUDITLOG+12 |
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 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DGCR(399 - [#399] | ACTIVE+7, ACTIVE+9 |
^IBM(361.1 - [#361.1] | ACTIVE+6 |
^PRCA(430 - [#430] | ALLOK+21, ALLOK+23, ALLOK+27 |
^RC(341.1 - [#341.1] | POSTALL+8 |
^RCY(344 - [#344] | EN1+11, EN2+20, UNLOCKR+1 |
^RCY(344.1 - [#344.1] | UNLOCKR+2 |
^RCY(344.3 - [#344.3] | EN1+10, EN1+11, EN2+20 |
^RCY(344.31 - [#344.31] | EN1+6, EN1+10, EN1+11, EN2+18, EN2+20, ERAREF+4, SCRPAD+17 |
^RCY(344.4 - [#344.4] | EN1+4, AUTOPOST+5, EN2+4, COMPLETE+12, SCRPAD+7, UNLOCKE+1 |
^RCY(344.49 - [#344.49] | ALLOK+11, ALLOK+13, BUILD+8, BUILD+10, COMPLETE+8, COMPLETE+10, NOTOK+6, NOTOK+8, POSTALL+41, POSTALL+42 , SCRPAD+20 |
^TMP("RCDPE-RECEIPT-ERROR" | EN2+34, POSTALL+21, POSTERA+21 |
^TMP("RCDPEAP" | EN2+6, POSTLNS+8* |
^TMP($J | AUTOPOST+9!, AUTOPOST+15, CHECKPAY+20! |
Name | Line Occurrences |
---|---|
$$ALLOK | AUTOPOST+21 |
$$CHECKPAY | ALLOK+25 |
$$COMPLETE | EN2+42 |
$$SCRPAD | AUTOPOST+10 |
AUDITLOG | EN2+46, POSTALL+30, POSTLNS+24, SETSTA+5 |
AUTOPOST | EN1+16 |
AUTOQ | AUTOPOST+12, AUTOPOST+15, AUTOPOST+27 |
CLEAR | POSTALL+13, POSTALL+21, POSTERA+13, POSTERA+21 |
EN1 | EN+2 |
EN2 | EN+4 |
ERAREF | EN2+36, POSTALL+24, POSTERA+24 |
POSTALL | AUTOPOST+24 |
POSTERA | AUTOPOST+31 |
POSTERAQ | POSTERA+7 |
POSTLNS | POSTERAQ+1 |
SCRPADX | SCRPAD+20 |
SETSTA | AUTOPOST+12, AUTOPOST+15, AUTOPOST+18, AUTOPOST+27, POSTALL+13, POSTALL+21, POSTERA+13, POSTERA+21 |
UNLOCKE | AUTOQ, EN2+50 |
UNLOCKR | EN2+32, EN2+34, EN2+38, POSTALL+17, POSTALL+21, POSTALL+27, POSTERA+17, POSTERA+21, POSTERA+27 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ALLOK | AUTOPOST+8~, AUTOPOST+21*, AUTOPOST+24, AUTOPOST+27, AUTOPOST+31, ALLOK+7~, ALLOK+9*, ALLOK+15*, ALLOK+19*, ALLOK+23* , ALLOK+25*, ALLOK+27*, ALLOK+30 |
AMT | ALLOK+7~, ALLOK+13*, ALLOK+17, CHECKPAY+15*, CHECKPAY+17, CHECKPAY+22 |
ARRAY | BUILD~, BUILD+6!, BUILD+7*, BUILD+18*, CHECKPAY~ |
ARRAY( | BUILD+18*, CHECKPAY+15 |
AUTORCPT | EN2+1~, EN2+2* |
CLAIM | EN2+1~, ALLOK+7~, ALLOK+19*, ALLOK+21, ALLOK+23, ALLOK+25, ALLOK+27, CHECKPAY~, CHECKPAY+4, CHECKPAY+8 , CHECKPAY+9, CHECKPAY+10, CHECKPAY+11, CHECKPAY+12, CHECKPAY+15, CHECKPAY+20 |
CLARRAY | ALLOK+8!, ALLOK+25 |
CLARRAY( | ALLOK+25* |
COMPLETE | EN2+1~, EN2+42*, EN2+44, EN2+46, EN2+48, COMPLETE+4~, COMPLETE+6*, COMPLETE+8, COMPLETE+14*, COMPLETE+15 |
DA | EN2+44*, EN2+48*, AUDITLOG~, AUDITLOG+3, AUDITLOG+8, AUDITLOG+14, CLEAR~, ERAREF+3~, ERAREF+5*, POSTALL+32* , POSTALL+36*, POSTALL+46~*, POSTERA+29*, POSTLNS+11~, POSTLNS+18*, POSTLNS+26*, SETSTA~, SETSTA+2, SETSTA+5 |
DA(1 | POSTALL+46*, POSTLNS+18* |
DIE | EN2+44*, EN2+48*, AUDITLOG+6~, ERAREF+3~, ERAREF+5*, POSTALL+32*, POSTALL+34*, POSTALL+46~*, POSTERA+29*, POSTLNS+11~ , POSTLNS+18*, POSTLNS+26*, SETSTA+7~, SETSTA+8* |
DIK | CLEAR+1~* |
DIRUT | AUDITLOG+6~ |
DR | EN2+44*, EN2+48*, AUDITLOG+6~, ERAREF+3~, ERAREF+5*, POSTALL+32*, POSTALL+35*, POSTALL+46~*, POSTERA+29*, POSTLNS+11~ , POSTLNS+20*, POSTLNS+21*, POSTLNS+26*, SETSTA+7~, SETSTA+9*, SETSTA+10* |
DROUT | AUDITLOG+6~ |
DT | EN2+48, POSTALL+8, POSTALL+35, POSTALL+46, POSTLNS+21, POSTLNS+26 |
DTOUT | AUDITLOG+6~ |
DUOUT | AUDITLOG+6~ |
DUZ | AUDITLOG+13, SETSTA+10 |
EOBIEN | EN2+1~, ACTIVE~, ACTIVE+4, ACTIVE+6 |
ERALINE | ALLOK+7~, ALLOK+15*, ALLOK+19, ALLOK+21, ALLOK+23, ALLOK+25, ALLOK+27, ALLOK+29, BUILD+5~, BUILD+14* , BUILD+16, BUILD+18 |
FOUND | BUILD+5~ |
LNUM | POSTLNS+11~, POSTLNS+17*, POSTLNS+18 |
NOTOK | NOTOK+4~, NOTOK+5*, NOTOK+6, NOTOK+8*, NOTOK+9 |
PENDING | CHECKPAY+20~*, CHECKPAY+22 |
RC0 | SCRPAD+6~, SCRPAD+7*, SCRPAD+9, SCRPAD+11, SCRPAD+15 |
RC5 | SCRPAD+6~, SCRPAD+7* |
RCADMIN | CHECKPAY+7~, CHECKPAY+10*, CHECKPAY+13 |
RCAUDIT | AUDITLOG+6~ |
RCAUDIT( | AUDITLOG+12*, AUDITLOG+13*, AUDITLOG+14*, AUDITLOG+15*, AUDITLOG+16*, AUDITLOG+17* |
RCBAL | CHECKPAY+7~, CHECKPAY+13*, CHECKPAY+17 |
RCBILL | ACTIVE+2~, ACTIVE+7* |
RCCOURT | CHECKPAY+7~, CHECKPAY+12*, CHECKPAY+13 |
RCDAT | SCRPAD+6~, SCRPAD+22 |
RCDEPTDA | EN1+8~, EN1+11*, EN2+16~, EN2+20*, EN2+32, POSTALL+17, POSTERA+17, UNLOCKR+2 |
RCDUZ | EN2+1~, EN2+7*, EN2+23, AUDITLOG+13, POSTALL+6~, POSTALL+7*, POSTALL+8, POSTALL+9 |
RCEFTDA | EN1+1~, EN1+6*, EN1+10, EN1+11, EN1+16, AUTOPOST~, EN2+16~, EN2+18*, EN2+20 |
RCERA | AUTOPOST~, AUTOPOST+5, AUTOPOST+10, AUTOPOST+12, AUTOPOST+15, AUTOPOST+17, AUTOPOST+18, AUTOPOST+21, AUTOPOST+24, AUTOPOST+27 , AUTOPOST+31, EN2+1~, EN2+2*, EN2+4*, EN2+6, EN2+7, EN2+13, EN2+18, EN2+23, EN2+26 , EN2+36, EN2+40, EN2+42, EN2+44, EN2+46, EN2+48, ALLOK~, COMPLETE+4~, COMPLETE+6*, COMPLETE+12 , POSTALL~, POSTALL+7, POSTALL+13, POSTALL+21, POSTALL+30, POSTALL+32, POSTALL+36, POSTALL+41, POSTALL+42, POSTALL+46 , POSTERA~, POSTERA+9, POSTERA+13, POSTERA+21, POSTERA+29, POSTERAQ+1, POSTLNS~, POSTLNS+8, POSTLNS+18, POSTLNS+24 , POSTLNS+26, SCRPAD~, SCRPAD+7, SCRPAD+17, SCRPAD+20, SCRPAD+22, UNLOCKE+1 |
RCERR | AUTOPOST+8~, EN2+25!, EN2+26, POSTALL+9, POSTERA+10 |
RCERR("" | EN2+29, POSTALL+13, POSTERA+13 |
RCI | POSTLNS+11~, POSTLNS+17* |
RCIFN | EN2+1~, ACTIVE+2~, ACTIVE+6*, ACTIVE+7, ACTIVE+9 |
RCINT | CHECKPAY+7~, CHECKPAY+9*, CHECKPAY+13 |
RCLIN | POSTLNS+11~, POSTLNS+12*, POSTLNS+14, POSTLNS+17, POSTLNS+20 |
RCLINE | POSTALL+39~, POSTALL+44*, POSTALL+46 |
RCLINES | AUTOPOST+8~, AUTOPOST+21, AUTOPOST+31, EN2+1~, EN2+11!, EN2+12*, EN2+13, EN2+15, EN2+26, EN2+40 , ALLOK~, ALLOK+10*, ALLOK+29*, POSTERA~, POSTERA+7, POSTERA+10, POSTERAQ+1, POSTLNS~ |
RCLINES( | ALLOK+15*, ALLOK+19*, ALLOK+21*, ALLOK+23*, ALLOK+25*, ALLOK+27*, ALLOK+29*, POSTLNS+12, POSTLNS+14, POSTLNS+20 |
RCMAR | CHECKPAY+7~, CHECKPAY+11*, CHECKPAY+13 |
RCNEWST | AUDITLOG~, AUDITLOG+10*, AUDITLOG+16 |
RCOK | EN1+8~, EN1+9*, EN1+10, EN1+13* |
RCOLDST | AUDITLOG+6~, AUDITLOG+8*, AUDITLOG+10, AUDITLOG+15 |
RCPRIN | CHECKPAY+7~, CHECKPAY+8*, CHECKPAY+13 |
RCRCPTDA | AUTOPOST+8~, EN2+1~, EN2+9*, EN2+23*, EN2+24, EN2+26, EN2+31, EN2+34, EN2+36, EN2+40 , ERAREF~, ERAREF+5, POSTALL+8*, POSTALL+9, POSTALL+16, POSTALL+20, POSTALL+24, POSTALL+32, POSTALL+46, POSTERA+7* , POSTERA+9*, POSTERA+10, POSTERA+16, POSTERA+20, POSTERA+24, POSTERA+29, POSTERAQ+1, POSTLNS~, POSTLNS+9*, POSTLNS+21 , UNLOCKR+1 |
RCREASON | AUDITLOG~, AUDITLOG+4, AUDITLOG+17, SETSTA~, SETSTA+5 |
RCRECTDA | EN1+8~, EN1+11*, EN1+12, EN2+16~, EN2+20* |
RCRZ | EN1+1~, EN1+2*, EN1+4*, EN1+6, EN1+16 |
RCSCD0 | POSTALL+39~, POSTALL+42*, POSTALL+44 |
RCSCR | AUTOPOST+8~, AUTOPOST+10*, AUTOPOST+12, AUTOPOST+21, ALLOK~, ALLOK+11, ALLOK+13, BUILD~, BUILD+8, BUILD+10 , BUILD+14, COMPLETE~, COMPLETE+6, COMPLETE+8, COMPLETE+10, ERAREF~, ERAREF+4, ERAREF+5, NOTOK~, NOTOK+6 , NOTOK+8, POSTALL+9, POSTALL+13, POSTALL+21, POSTALL+24, POSTERA+10, POSTERA+13, POSTERA+21, POSTERA+24, SCRPAD+6~ , SCRPAD+20*, SCRPAD+22*, SCRPAD+24, SCRPADX+1 |
RCSCSUB | POSTALL+39~, POSTALL+40*, POSTALL+41*, POSTALL+42 |
RCSTATUS | ACTIVE+2~, ACTIVE+9*, ACTIVE+10 |
RCSUB | COMPLETE+4~, COMPLETE+12* |
RCTRDA | AUTOPOST+8~ |
REJECT | POSTLNS+11~, POSTLNS+14*, POSTLNS+20 |
SCRLINE | BUILD+5~, COMPLETE+4~, COMPLETE+10*, COMPLETE+12 |
SCRSUB | COMPLETE+4~, COMPLETE+6*, COMPLETE+8*, COMPLETE+10 |
STATUS | ALLOK+7~, ALLOK+23*, SETSTA~, SETSTA+3, SETSTA+5, SETSTA+9, SETSTA+10 |
SUB | ALLOK+7~, ALLOK+10*, ALLOK+11*, ALLOK+13, BUILD+5~, BUILD+7*, BUILD+8*, BUILD+10, NOTOK+4~, NOTOK+5* , NOTOK+6*, NOTOK+8 |
SUB1 | ALLOK+7~, ALLOK+13*, BUILD+5~, BUILD+10*, BUILD+14, BUILD+18 |
U | EN1+10, EN1+11, EN1+12, EN2+20, ACTIVE+6, ACTIVE+7, ACTIVE+9, ALLOK+13, ALLOK+15, ALLOK+19 , ALLOK+21, ALLOK+23, ALLOK+25, ALLOK+27, ALLOK+29, COMPLETE+10, COMPLETE+12, NOTOK+8, POSTALL+44, POSTLNS+14 , POSTLNS+20, SCRPAD+9, SCRPAD+11, SCRPAD+15 |
VERIFY | ALLOK+7~, ALLOK+15*, ALLOK+21 |
WLINE | ALLOK+7~, ALLOK+13*, ALLOK+15, ALLOK+19, ALLOK+25, ALLOK+29 |
X | AUDITLOG+6~, SCRPAD+6~ |
Y | AUDITLOG+6~ |
Z | EN1+12~*, ERAREF+3~, ERAREF+4*, ERAREF+5 |
ZEROBAL | AUTOPOST+8~, AUTOPOST+21, AUTOPOST+27, ALLOK~, ALLOK+9* |