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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: RCDPESR3

Package: Accounts Receivable

Routine: RCDPESR3


Information

RCDPESR3 ;ALB/TMK/PJH - Server auto-update utilities - EDI Lockbox ;Jun 06, 2014@19:11:19

Source Information

Source file <RCDPESR3.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Accounts Receivable 5 BULLEFT^RCDPESR0  (ERRUPD,TAXERR)^RCDPESR1  BULL2^RCDPESR5  DISP^RCDPESR8  ($$FDT,$$ZERO)^RCDPESR9  
VA FileMan 5 ^%DT  FILE^DICN  (,FILE)^DIE  ^DIK  CLEAN^DILF  
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: 3

Package Total Caller Graph
Accounts Receivable 3 RCDPEM  RCDPESR2  RCDPESRV  

Entry Points

Name Comments DBIA/ICR reference
EFTIN(RCTXN,RCD,XMZ,RCGBL,RCEFLG) ; Adds a new EFT record to AR file 344.3
; from Lockbox EFT msg
; Input: RCTXN - Data on the header record of the message text
; RCD - Array containing formatted mail message header data
; XMZ - Mail message number
; RCGBL - Name of the array or global where the message is stored
; Output: RCEFLG - Error flag returned if passed by reference
EFTQ ;
ADDEFT(RCTXN,RCXMZ,RCGBL,RCERR) ; File EFT TOTAL record in file 344.3
; RCTXN = the data on the header record of the message text
; RCXMZ = the mail message number
; RCGBL = the name of the array or global where the message is stored
; Function returns the ien of the total record found/added
; and also returns RCERR if passed by reference
ADDQ
CHKSUM(RCTDA) ; Calc the checksum for EFT record stored in RCTDA in 344.3
DISP(RCTIT,RCCT,RCDXM,RCXMZ) ; Sends bulletin with formatted data from message
; RCTIT = title of bulletin
; RCCT = # of lines previously populated
; RCXDM = array containing the text of the bulletin
DUP(RCM,RCIFN,RCAMT,RCAMT1) ; EOB in mail message already stored in 361.1?
; RCM = msg # EOB was received in
; RCIFN = bill ien
; RCAMT = amt pd
; RCAMT1 = amt reported billed
; Returns 0 if none found, entry #^message checksum on file if found
DUPERA(DUP,RCNOUPD) ; Msg for duplicate ERA
; RCNOUPD = # of message with duplicate data
; DUP = flag = -1 if duplicate message received in same mail msg #
BULLS(RCFILE,RCTDA,DUP,RCXMSG) ; Error bulletins for ERA
; PRCA*4.5*298 - DUPLICATE TRANSMISSION MSG AND EEOB - EXCEPTIONS message disabled - 14 Feb 2014
ADJERR(RCERR) ; Set up adj error text in RCERR(n) - pass by ref
; Function returns # of lines for error text
SUMEFT(IEN) ; Add up the total amount of all the EFTs on an EDI Lockbox Deposit
; Input IEN - Internal Entry # for file #344.3
; Returns - Sum of amount in EFT Details (#344.31) associated with this EDI Lockbox Deposit

External References

Name Field # of Occurrence
^%DT ADDEFT+17, ADDEFT+30
FILE^DICN EFTIN+60, ADDEFT+47, ADDEFT+54
^DIE ADDEFT+43
FILE^DIE EFTIN+81, EFTIN+85
^DIK EFTIN+63, EFTIN+64
CLEAN^DILF EFTQ+1
BULLEFT^RCDPESR0 DISP+10
ERRUPD^RCDPESR1 EFTIN+23, EFTIN+30, EFTIN+66, EFTIN+75
TAXERR^RCDPESR1 EFTIN+57
BULL2^RCDPESR5 BULLS+3
DISP^RCDPESR8 DISP+8
$$FDT^RCDPESR9 EFTIN+49, ADDEFT+16, ADDEFT+29, ADDEFT+38
$$ZERO^RCDPESR9 EFTIN+17
$$NOW^XLFDT ADDEFT+39

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RCY(344.3 - [#344.3] Classic Fileman Calls
^RCY(344.31 - [#344.31] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("LPC" CHKSUM+7, CHKSUM+9
^IBM(361.1 - [#361.1] DUP+8, DUP+9, DUP+10
^RCY(344 - [#344] ADDEFT+23
^RCY(344.3 - [#344.3] ADDEFT+21, ADDEFT+42, ADDEFT+48, ADDEFT+51, ADDEFT+52, ADDEFT+55, CHKSUM+4
^RCY(344.31 - [#344.31] EFTIN+64, CHKSUM+9, SUMEFT+7, SUMEFT+8
^TMP("RC" DISP+5!, DISP+9, DISP+11!
^TMP("RC1" DISP+5!, DISP+11!
^TMP("RCERR1" DUPERA+3!, DUPERA+4*
^TMP("RCMSG" DISP+7
^TMP("RCMSGH" DISP+6
^TMP("RCTEMP" DISP+5!, DISP+6*, DISP+7*, DISP+11!

Label References

Name Line Occurrences
$$ADDEFT EFTIN+27
$$CHKSUM EFTIN+84
$$SUMEFT EFTIN+79
EFTQ EFTIN+22, EFTIN+29, EFTIN+33, EFTIN+70

Naked Globals

Name Field # of Occurrence
^( EFTIN+38
^("LPC" CHKSUM+7, CHKSUM+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT ADDEFT+7~, ADDEFT+17*, ADDEFT+30*
AMOUNT SUMEFT+3~, SUMEFT+10*, SUMEFT+11*, SUMEFT+12
AMT31 EFTIN+8~, EFTIN+42*, EFTIN+68
CT EFTIN+8~, EFTIN+12*, EFTIN+15*
DA EFTIN+8~, EFTIN+40~, EFTIN+63*, EFTIN+64*, ADDEFT+27~, ADDEFT+43*, ADDEFT+44!, ADDEFT+47!
DA(1 ADDEFT+46*
DD EFTIN+40~, EFTIN+61!, ADDEFT+27~, ADDEFT+54!
DEBIT EFTIN+8~, EFTIN+52*, EFTIN+53, EFTIN+68, SUMEFT+3~, SUMEFT+9*, SUMEFT+11
DEPAMT ADDEFT+27~, ADDEFT+34*, ADDEFT+39
DIC EFTIN+40~, EFTIN+59*, EFTIN+61!, ADDEFT+27~, ADDEFT+43!, ADDEFT+46*, ADDEFT+47!, ADDEFT+53*, ADDEFT+54!
DIC("DR" EFTIN+44*, EFTIN+45*, EFTIN+46*, EFTIN+47*, EFTIN+48*, EFTIN+49*, EFTIN+50*, EFTIN+51*, EFTIN+53*, ADDEFT+36*
, ADDEFT+37*, ADDEFT+38*, ADDEFT+39*, ADDEFT+43
DIC(0 EFTIN+59*, ADDEFT+46*, ADDEFT+53*
DIE EFTIN+40~, ADDEFT+27~, ADDEFT+43*, ADDEFT+44!
DIK EFTIN+8~, EFTIN+63*, EFTIN+64*
DINUM ADDEFT+27~, ADDEFT+53*, ADDEFT+54!
DLAYGO EFTIN+8~, EFTIN+59*, EFTIN+61!, ADDEFT+27~, ADDEFT+53*, ADDEFT+54!
DO EFTIN+40~, EFTIN+61!, ADDEFT+27~, ADDEFT+54!
DR EFTIN+40~, ADDEFT+27~, ADDEFT+43*, ADDEFT+44!
DT EFTIN+50
DUP DUP+6~, DUP+7*, DUP+8, DUP+10*, DUP+11*, DUP+12, DUPERA~, DUPERA+4, BULLS~
DUP1 DUP+6~, DUP+7*, DUP+9*, DUP+11
FDA EFTIN+8~, EFTIN+78!, EFTIN+83!
FDA( EFTIN+79*, EFTIN+80*, EFTIN+84*
IEN SUMEFT~, SUMEFT+5, SUMEFT+7
IEN31 SUMEFT+3~, SUMEFT+6*, SUMEFT+7*, SUMEFT+8
RC EFTIN+8~, EFTIN+37*, DISP+4~, DISP+6*, DISP+7*
RC1 EFTIN+8~, EFTIN+37*
RCAMT DUP~, DUP+10
RCAMT1 DUP~, DUP+10
RCCT DISP~, DISP+9*
RCD EFTIN~, EFTIN+23, EFTIN+30, EFTIN+66, EFTIN+75
RCDDAT ADDEFT+15~, ADDEFT+17*, ADDEFT+21
RCDEPAMT EFTIN+8~, EFTIN+17*, EFTIN+73
RCDPCSUM CHKSUM+2~, CHKSUM+4*, CHKSUM+7*, CHKSUM+9*, CHKSUM+10
RCDPDATA CHKSUM+2~, CHKSUM+6*, CHKSUM+7, CHKSUM+9*
RCDTTM ADDEFT+27~, ADDEFT+30*, ADDEFT+37
RCDUP ADDEFT+7~, ADDEFT+12*, ADDEFT+23*
RCDXM DISP~, DISP+10
RCDXM( DISP+9*
RCEFLG EFTIN~, EFTIN+12*, EFTIN+24*, EFTIN+31*, EFTIN+65*, EFTIN+74*
RCEFT EFTIN+8~, EFTIN+27*, EFTIN+33, EFTIN+41, EFTIN+63, EFTIN+64, EFTIN+79, EFTIN+80, EFTIN+84
RCERR EFTIN+9~, EFTIN+20*, EFTIN+22, EFTIN+23, EFTIN+27, EFTIN+29, EFTIN+30, EFTIN+38, EFTIN+65*, EFTIN+66
, EFTIN+70, EFTIN+74*, EFTIN+75, ADDEFT~, ADDEFT+8*, ADDEFT+58*, ADJERR~
RCERR(1 ADJERR+2*
RCERR(2 ADJERR+2*
RCERR(3 ADJERR+2*
RCERR(4 ADJERR+2*
RCFILE BULLS~, BULLS+3
RCGBL EFTIN~, EFTIN+15, EFTIN+23, EFTIN+27, EFTIN+30, EFTIN+38, EFTIN+66, EFTIN+75, ADDEFT~
RCHAC ADDEFT+7~, ADDEFT+12*
RCIFN DUP~, DUP+8
RCLAST EFTIN+8~, EFTIN+12*, EFTIN+13, EFTIN+14*, EFTIN+20
RCM DUP~, DUP+8
RCMEFTS EFTIN+9~
RCNOUPD DUPERA~, DUPERA+4
RCRCPT ADDEFT+7~
RCTDA EFTIN+9~, ADDEFT+7~, ADDEFT+8*, ADDEFT+21*, ADDEFT+24*, ADDEFT+39, ADDEFT+41, ADDEFT+42*, ADDEFT+43, ADDEFT+46
, ADDEFT+48, ADDEFT+50, ADDEFT+56*, ADDEFT+58, ADDQ, CHKSUM~, CHKSUM+4, CHKSUM+9, BULLS~, BULLS+3
RCTIT DISP~, DISP+10
RCTXN EFTIN~, EFTIN+17, EFTIN+27, EFTIN+56, EFTIN+57, ADDEFT~, ADDEFT+12, ADDEFT+13, ADDEFT+16, ADDEFT+21
, ADDEFT+29, ADDEFT+38
RCTYP1 EFTIN+9~, EFTIN+12*, EFTIN+23, EFTIN+30, EFTIN+66, EFTIN+75
RCUN EFTIN+9~, EFTIN+72*, EFTIN+74*, EFTIN+80
RCX ADDEFT+27~, ADDEFT+51*, ADDEFT+52*, ADDEFT+53, ADDEFT+55
RCXMSG BULLS~, BULLS+3
RCXMZ ADDEFT~, ADDEFT+39, ADDEFT+46, DISP~, DISP+10
RCZ EFTIN+9~, EFTIN+37*, EFTIN+38*
REC SUMEFT+3~, SUMEFT+8*, SUMEFT+9, SUMEFT+10
RETURN SUMEFT+3~, SUMEFT+4*, SUMEFT+12*, SUMEFT+13
TOT31 EFTIN+9~, EFTIN+37*, EFTIN+68*, EFTIN+73
U EFTIN+14, EFTIN+17, EFTIN+39, EFTIN+42, EFTIN+44, EFTIN+45, EFTIN+46, EFTIN+47, EFTIN+48, EFTIN+49
, EFTIN+50, EFTIN+51, EFTIN+52, EFTIN+55, EFTIN+56, EFTIN+57, ADDEFT+12, ADDEFT+13, ADDEFT+16, ADDEFT+21
, ADDEFT+23, ADDEFT+29, ADDEFT+38, CHKSUM+6, CHKSUM+9, DUP+9, DUP+10
X EFTIN+40~, EFTIN+41*, ADDEFT+7~, ADDEFT+16*, ADDEFT+29*, ADDEFT+46*, ADDEFT+52*, CHKSUM+2~, CHKSUM+4*, CHKSUM+7*
, CHKSUM+9*
>> XMER EFTIN+13
>> XMREC EFTIN+13
>> XMRG EFTIN+14, EFTIN+15
XMZ EFTIN~, EFTIN+27
XX EFTIN+9~, EFTIN+56*, EFTIN+57
Y EFTIN+40~, EFTIN+62, ADDEFT+7~, ADDEFT+17, ADDEFT+30, ADDEFT+56, CHKSUM+2~, CHKSUM+7, CHKSUM+9
Z EFTIN+9~, EFTIN+64*, ADDEFT+7~, ADDEFT+18*, ADDEFT+21*, ADDEFT+23, ADDEFT+24, CHKSUM+2~, CHKSUM+9*, DISP+4~
, DISP+7*, DISP+9*, DUP+6~, DUP+7*, DUP+8*, DUP+9, DUP+10
Z0 EFTIN+9~, EFTIN+38*, EFTIN+39, EFTIN+42, EFTIN+44, EFTIN+45, EFTIN+46, EFTIN+47, EFTIN+48, EFTIN+49
, EFTIN+50, EFTIN+51, EFTIN+52, EFTIN+55, EFTIN+56, ADDEFT+7~, ADDEFT+21*, ADDEFT+23, CHKSUM+2~, CHKSUM+4*
, CHKSUM+6, CHKSUM+9*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All