Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: RCDPEAP

Package: Accounts Receivable

Routine: RCDPEAP


Information

RCDPEAP ;ALB/PJH - AUTO POST MATCHING EFT ERA PAIR ;Oct 15, 2014@12:36:51

Source Information

Source file <RCDPEAP.m>

Call Graph

Call Graph

Call Graph Total: 16

Package Total Call Graph
Accounts Receivable 12 $$LOCKDEP^RCDPDPLU  ($$ISZERO,$$UNBAL,ERADET,VALID)^RCDPEAP1  POST0^RCDPEAP2  RCPTDET^RCDPEM  ($$BLDRCPT,RCPTDET)^RCDPEMA  $$ISTYPE^RCDPEU1  $$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  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 11

Package Total Caller Graph
Accounts Receivable 11 RCDPEAA2  RCDPEAD  RCDPEAD3  RCDPEAD4  RCDPEAP1  RCDPEAP2  RCDPEM  RCDPEM0  
RCDPEM2  RCDPEWL8  RCDPEX32  

Entry Points

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

External References

Name Field # of Occurrence
^DIE EN2+42, EN2+46, ERAREF+5, POSTALL+30, POSTALL+35, POSTALL+44, POSTERA+27, POSTLNS+20, POSTLNS+24, SETSTA+10
UPDATE^DIE AUDITLOG+17
^DIK CLEAR+1
$$GET1^DIQ EN2+7, AUDITLOG+7, BUILD+12, CHECKPAY+7, CHECKPAY+8, CHECKPAY+9, CHECKPAY+10, CHECKPAY+11, POSTALL+5
$$LOCKDEP^RCDPDPLU EN2+30, POSTALL+15, POSTERA+15
$$ISZERO^RCDPEAP1 EN1+5
$$UNBAL^RCDPEAP1 AUTOPOST+23
ERADET^RCDPEAP1 EN2+38
VALID^RCDPEAP1 EN2+13
POST0^RCDPEAP2 AUTOPOST+33
RCPTDET^RCDPEM POSTALL+7
$$BLDRCPT^RCDPEMA EN2+23, POSTERA+7
RCPTDET^RCDPEMA EN2+26, POSTERA+8
$$ISTYPE^RCDPEU1 EN1+6
$$ADDREC^RCDPEWL SCRPAD+20
ADDLINES^RCDPEWLA SCRPAD+22
$$LOCKREC^RCDPRPLU EN2+29, POSTALL+14, POSTERA+14
PROCESS^RCDPURE1 EN2+32, POSTALL+18, POSTERA+18
$$BLDRCPT^RCDPUREC POSTALL+6
$$FMSSTAT^RCDPUREC EN1+16
$$PENDPAY^RCDPURET CHECKPAY+19
$$NOW^XLFDT AUDITLOG+11

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] ACTIVE+7, ACTIVE+9
^IBM(361.1 - [#361.1] ACTIVE+6
^PRCA(430 - [#430] ALLOK+24, ALLOK+26, ALLOK+30
^RC(341.1 - [#341.1] POSTALL+6
^RCY(344 - [#344] EN1+15, EN2+20, UNLOCKR+1
^RCY(344.1 - [#344.1] UNLOCKR+2
^RCY(344.3 - [#344.3] EN1+14, EN1+15, EN2+20
^RCY(344.31 - [#344.31] EN1+9, EN1+14, EN1+15, EN2+18, EN2+20, ERAREF+4, SCRPAD+15
^RCY(344.4 - [#344.4] EN1+4, AUTOPOST+6, EN2+4, COMPLETE+11, SCRPAD+5, UNLOCKE+1
^RCY(344.49 - [#344.49] ALLOK+13, ALLOK+15, BUILD+6, BUILD+8, COMPLETE+7, COMPLETE+9, NOTOK+5, NOTOK+7, POSTALL+39, POSTALL+40
, SCRPAD+18
^TMP("RCDPE-RECEIPT-ERROR" EN2+32, POSTALL+19, POSTERA+19
^TMP("RCDPEAP" EN2+6, POSTLNS+6*
^TMP($J AUTOPOST+10!, AUTOPOST+19, CHECKPAY+19!

Label References

Name Line Occurrences
$$ALLOK AUTOPOST+28
$$CHECKPAY ALLOK+28
$$COMPLETE EN2+40
$$SCRPAD AUTOPOST+11
AUDITLOG EN2+44, POSTALL+28, POSTLNS+22, SETSTA+4
AUTOPOST EN1+20
AUTOQ AUTOPOST+15, AUTOPOST+21, AUTOPOST+25, AUTOPOST+36
CLEAR POSTALL+11, POSTALL+19, POSTERA+11, POSTERA+19
EN1 EN+2
EN2 EN+4
ERAREF EN2+34, POSTALL+22, POSTERA+22
POSTALL AUTOPOST+39
POSTERA AUTOPOST+43
POSTERAQ POSTERA+5
POSTLNS POSTERAQ+1
SCRPADX SCRPAD+18
SETSTA AUTOPOST+14, AUTOPOST+20, AUTOPOST+24, AUTOPOST+35, POSTALL+11, POSTALL+19, POSTERA+11, POSTERA+19
UNLOCKE AUTOQEN2+48
UNLOCKR EN2+30, EN2+32, EN2+36, POSTALL+15, POSTALL+19, POSTALL+25, POSTERA+15, POSTERA+19, POSTERA+25

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ALLOK AUTOPOST+9~, AUTOPOST+28*, AUTOPOST+39, AUTOPOST+43, ALLOK+9~, ALLOK+11*, ALLOK+17*, ALLOK+22*, ALLOK+26*, ALLOK+28*
, ALLOK+30*, ALLOK+33
AMT ALLOK+9~, ALLOK+15*, ALLOK+19, CHECKPAY+14*, CHECKPAY+16, CHECKPAY+21
ARRAY BUILD~, BUILD+4!, BUILD+5*, BUILD+16*, CHECKPAY~
ARRAY( BUILD+16*, CHECKPAY+14
AUTORCPT EN2+1~, EN2+2*
CLAIM EN2+1~, ALLOK+9~, ALLOK+22*, ALLOK+24, ALLOK+26, ALLOK+28, ALLOK+30, CHECKPAY~, CHECKPAY+4, CHECKPAY+7
, CHECKPAY+8, CHECKPAY+9, CHECKPAY+10, CHECKPAY+11, CHECKPAY+14, CHECKPAY+19
CLARRAY ALLOK+10!, ALLOK+28
CLARRAY( ALLOK+28*
COMPLETE EN2+1~, EN2+40*, EN2+42, EN2+44, EN2+46, COMPLETE+3~, COMPLETE+5*, COMPLETE+7, COMPLETE+13*, COMPLETE+14
DA EN2+42*, EN2+46*, AUDITLOG~, AUDITLOG+2, AUDITLOG+7, AUDITLOG+13, CLEAR~, ERAREF+3~, ERAREF+5*, POSTALL+30*
, POSTALL+34*, POSTALL+44~*, POSTERA+27*, POSTLNS+9~, POSTLNS+16*, POSTLNS+24*, SETSTA~, SETSTA+2, SETSTA+4
DA(1 POSTALL+44*, POSTLNS+16*
DIE EN2+42*, EN2+46*, AUDITLOG+5~, ERAREF+3~, ERAREF+5*, POSTALL+30*, POSTALL+32*, POSTALL+44~*, POSTERA+27*, POSTLNS+9~
, POSTLNS+16*, POSTLNS+24*, SETSTA+6~, SETSTA+7*
DIK CLEAR+1~*
DIRUT AUDITLOG+5~
DR EN2+42*, EN2+46*, AUDITLOG+5~, ERAREF+3~, ERAREF+5*, POSTALL+30*, POSTALL+33*, POSTALL+44~*, POSTERA+27*, POSTLNS+9~
, POSTLNS+18*, POSTLNS+19*, POSTLNS+24*, SETSTA+6~, SETSTA+8*, SETSTA+9*
DROUT AUDITLOG+5~
DT EN2+46, POSTALL+6, POSTALL+33, POSTALL+44, POSTLNS+19, POSTLNS+24
DTOUT AUDITLOG+5~
DUOUT AUDITLOG+5~
DUZ AUDITLOG+12, SETSTA+9
EOBIEN EN2+1~, ACTIVE~, ACTIVE+4, ACTIVE+6
ERALINE ALLOK+9~, ALLOK+17*, ALLOK+22, ALLOK+24, ALLOK+26, ALLOK+28, ALLOK+30, ALLOK+32, BUILD+3~, BUILD+12*
, BUILD+14, BUILD+16
FOUND BUILD+3~
LNUM POSTLNS+9~, POSTLNS+15*, POSTLNS+16
NOTOK NOTOK+3~, NOTOK+4*, NOTOK+5, NOTOK+7*, NOTOK+8
PENDING CHECKPAY+19~*, CHECKPAY+21
RC0 SCRPAD+4~, SCRPAD+5*, SCRPAD+7, SCRPAD+9, SCRPAD+13
RC5 SCRPAD+4~, SCRPAD+5*
RCADMIN CHECKPAY+6~, CHECKPAY+9*, CHECKPAY+12
RCAUDIT AUDITLOG+5~
RCAUDIT( AUDITLOG+11*, AUDITLOG+12*, AUDITLOG+13*, AUDITLOG+14*, AUDITLOG+15*, AUDITLOG+16*
RCBAL CHECKPAY+6~, CHECKPAY+12*, CHECKPAY+16
RCBILL ACTIVE+2~, ACTIVE+7*
RCCOURT CHECKPAY+6~, CHECKPAY+11*, CHECKPAY+12
RCDAT SCRPAD+4~, SCRPAD+20
RCDEPTDA EN1+11~, EN1+15*, EN2+16~, EN2+20*, EN2+30, POSTALL+15, POSTERA+15, UNLOCKR+2
RCDUZ EN2+1~, EN2+7*, EN2+23, AUDITLOG+12, POSTALL+4~, POSTALL+5*, POSTALL+6, POSTALL+7
RCEFTDA EN1+1~, EN1+9*, EN1+14, EN1+15, EN1+20, AUTOPOST~, EN2+16~, EN2+18*, EN2+20
RCERA AUTOPOST~, AUTOPOST+6, AUTOPOST+11, AUTOPOST+14, AUTOPOST+20, AUTOPOST+23, AUTOPOST+24, AUTOPOST+28, AUTOPOST+33, AUTOPOST+35
, AUTOPOST+39, AUTOPOST+43, EN2+1~, EN2+2*, EN2+4*, EN2+6, EN2+7, EN2+13, EN2+18, EN2+23
EN2+26, EN2+34, EN2+38, EN2+40, EN2+42, EN2+44, EN2+46, ALLOK~, COMPLETE+3~, COMPLETE+5*
, COMPLETE+11, POSTALL~, POSTALL+5, POSTALL+11, POSTALL+19, POSTALL+28, POSTALL+30, POSTALL+34, POSTALL+39, POSTALL+40
, POSTALL+44, POSTERA~, POSTERA+7, POSTERA+11, POSTERA+19, POSTERA+27, POSTERAQ+1, POSTLNS~, POSTLNS+6, POSTLNS+16
, POSTLNS+22, POSTLNS+24, SCRPAD~, SCRPAD+5, SCRPAD+15, SCRPAD+18, SCRPAD+20, UNLOCKE+1
RCERR AUTOPOST+9~, EN2+25!, EN2+26, POSTALL+7, POSTERA+8
RCERR("" EN2+27, POSTALL+11, POSTERA+11
RCI POSTLNS+9~, POSTLNS+15*
RCIFN EN2+1~, ACTIVE+2~, ACTIVE+6*, ACTIVE+7, ACTIVE+9
RCINT CHECKPAY+6~, CHECKPAY+8*, CHECKPAY+12
RCLIN POSTLNS+9~, POSTLNS+10*, POSTLNS+12, POSTLNS+15, POSTLNS+18
RCLINE POSTALL+37~, POSTALL+42*, POSTALL+44
RCLINES AUTOPOST+9~, AUTOPOST+28, AUTOPOST+43, EN2+1~, EN2+11!, EN2+12*, EN2+13, EN2+15, EN2+26, EN2+38
, ALLOK~, ALLOK+12*, ALLOK+32*, POSTERA~, POSTERA+5, POSTERA+8, POSTERAQ+1, POSTLNS~
RCLINES( ALLOK+17*, ALLOK+22*, ALLOK+24*, ALLOK+26*, ALLOK+28*, ALLOK+30*, ALLOK+32*, POSTLNS+10, POSTLNS+12, POSTLNS+18
RCMAR CHECKPAY+6~, CHECKPAY+10*, CHECKPAY+12
RCNEWST AUDITLOG~, AUDITLOG+9*, AUDITLOG+15
RCOK EN1+11~, EN1+12*, EN1+14, EN1+17*
RCOLDST AUDITLOG+5~, AUDITLOG+7*, AUDITLOG+9, AUDITLOG+14
RCPRIN CHECKPAY+6~, CHECKPAY+7*, CHECKPAY+12
RCRCPTDA AUTOPOST+9~, EN2+1~, EN2+9*, EN2+23*, EN2+24, EN2+26, EN2+29, EN2+32, EN2+34, EN2+38
, ERAREF~, ERAREF+5, POSTALL+6*, POSTALL+7, POSTALL+14, POSTALL+18, POSTALL+22, POSTALL+30, POSTALL+44, POSTERA+5*
, POSTERA+7*, POSTERA+8, POSTERA+14, POSTERA+18, POSTERA+22, POSTERA+27, POSTERAQ+1, POSTLNS~, POSTLNS+7*, POSTLNS+19
UNLOCKR+1
RCREASON AUDITLOG~, AUDITLOG+3, AUDITLOG+16, SETSTA~, SETSTA+4
RCRECTDA EN1+11~, EN1+15*, EN1+16, EN2+16~, EN2+20*
RCRZ EN1+1~, EN1+2*, EN1+4*, EN1+5, EN1+6, EN1+9, EN1+20
RCSCD0 POSTALL+37~, POSTALL+40*, POSTALL+42
RCSCR AUTOPOST+9~, AUTOPOST+11*, AUTOPOST+13, AUTOPOST+28, ALLOK~, ALLOK+13, ALLOK+15, BUILD~, BUILD+6, BUILD+8
, BUILD+12, COMPLETE~, COMPLETE+5, COMPLETE+7, COMPLETE+9, ERAREF~, ERAREF+4, ERAREF+5, NOTOK~, NOTOK+5
, NOTOK+7, POSTALL+7, POSTALL+11, POSTALL+19, POSTALL+22, POSTERA+8, POSTERA+11, POSTERA+19, POSTERA+22, SCRPAD+4~
, SCRPAD+18*, SCRPAD+20*, SCRPAD+22, SCRPADX+1
RCSCSUB POSTALL+37~, POSTALL+38*, POSTALL+39*, POSTALL+40
RCSTATUS ACTIVE+2~, ACTIVE+9*, ACTIVE+10
RCSUB COMPLETE+3~, COMPLETE+11*
RCTRDA AUTOPOST+9~
RCZERO EN1+1~, EN1+5*, EN1+6, EN1+9, EN1+14, EN1+20, AUTOPOST~, AUTOPOST+11, AUTOPOST+13, AUTOPOST+31
, SCRPAD~, SCRPAD+9, SCRPAD+15
REJECT POSTLNS+9~, POSTLNS+12*, POSTLNS+18
SCRLINE BUILD+3~, COMPLETE+3~, COMPLETE+9*, COMPLETE+11
SCRSUB COMPLETE+3~, COMPLETE+5*, COMPLETE+7*, COMPLETE+9
STATUS ALLOK+9~, ALLOK+26*, SETSTA~, SETSTA+3, SETSTA+4, SETSTA+8, SETSTA+9
SUB ALLOK+9~, ALLOK+12*, ALLOK+13*, ALLOK+15, BUILD+3~, BUILD+5*, BUILD+6*, BUILD+8, NOTOK+3~, NOTOK+4*
, NOTOK+5*, NOTOK+7
SUB1 ALLOK+9~, ALLOK+15*, BUILD+3~, BUILD+8*, BUILD+12, BUILD+16
U EN1+14, EN1+15, EN1+16, EN2+20, ACTIVE+6, ACTIVE+7, ACTIVE+9, ALLOK+15, ALLOK+17, ALLOK+22
, ALLOK+24, ALLOK+26, ALLOK+28, ALLOK+30, ALLOK+32, COMPLETE+9, COMPLETE+11, NOTOK+7, POSTALL+42, POSTLNS+12
, POSTLNS+18, SCRPAD+7, SCRPAD+9, SCRPAD+13
VERIFY ALLOK+9~, ALLOK+17*, ALLOK+24
WLINE ALLOK+9~, ALLOK+15*, ALLOK+17, ALLOK+22, ALLOK+28, ALLOK+32
X AUDITLOG+5~, SCRPAD+4~
Y AUDITLOG+5~
Z EN1+16~*, ERAREF+3~, ERAREF+4*, ERAREF+5
ZEROBAL AUTOPOST+9~, AUTOPOST+28, AUTOPOST+32, AUTOPOST+34, ALLOK~, ALLOK+11*, ALLOK+20*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All