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: 14

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  

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: 8

Package Total Caller Graph
Accounts Receivable 8 RCDPEAA2  RCDPEAD  RCDPEAP1  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) ;
; 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

External References

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

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+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!

Label References

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

Local Variables

Legend:

>> 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*
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