Routine: RCDPEAP

Information

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

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:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 10

Package	Total	Caller Graph
Accounts Receivable	10	RCDPEAA2 RCDPEAD RCDPEAD3 RCDPEAD4 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*

Customize PDF page

Package: Accounts Receivable