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 |  Marked Items  | All
Print Page as PDF
Routine: RCDPESR1

Package: Accounts Receivable

Routine: RCDPESR1


Information

RCDPESR1 ;ALB/TMP - Server interface to AR from Austin ;Jun 06, 2014@19:11:19

Source Information

Source file <RCDPESR1.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA FileMan 2 ^DIC  ^DIK  
Accounts Receivable 1 $$ZERO^RCDPESR9  
E Claims Management Engine 1 $$VALECME^BPSUTIL2  
Integrated Billing 1 $$RXBIL^IBNCPDPU  
Kernel 1 ($$FMTE,$$NOW)^XLFDT  
MailMan 1 (SENDMSG,ZAPSERV)^XMXAPI  
Registration 1 $$SITE^VASITE  

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

Package Total Caller Graph
Accounts Receivable 5 RCDPESR2  RCDPESR3  RCDPESR4  RCDPESR6  RCDPESRV  

Entry Points

Name Comments DBIA/ICR reference
PERROR(RCERR,RCEMG,RCXMZ) ; Process Errors - Send bulletin to mail group
; RCERR = Error text array
; RCEMG = name of the mail group to which these errors should be sent
; RCXMZ = internal entry # of the mailman msg
; RCTYPE = msg type, if known
OUTMSG(RCERR,RCXMZ) ; Build message to send to Outlook address
; PRCA*4.5*349 - New subroutine
; RCERR = Error text array
; RCXMZ = internal entry # of the mailman msg
OUTERA(RAW,CT,RCMTXT) ; Format ERA/EEOB for Outlook message
; PRCA*4.5*349 - New Subroutine
; RAW - Points to raw data from the message
; CT - (Passed by Reference) Current message text line count
; RCMTXT - Pointer to message text array
OUTEFT(RAW,CT,RCMTXT) ; Format EFT for Outlook message
; PRCA*4.5*349 - New Subroutine
; RAW - Points to raw data from the message
; CT - (Passed by Reference) Current message text line count
; RCMTXT - Pointer to message text array
EMFORM(CT,RCERR,RCXM,RCXMZ) ; Format error msgs
; INPUT:
; CT = # of lines previously populated in error msg
; RCERR = array of errors
; RCXMZ = internal entry # of mailman msg
MASKPII(X) ; Return a "05" field with PII masked for sending errors
; PRCA*4.5*349 - Subroutine added
EXTERR(RCERR,RCE) ; Put error into error array
; Returns: (must be passed by reference)
; RCERR = specific error encountered, returned as 4
; RCE = error text from the word processing field update error global
ERRUPD(RCGBL,RCD,RCTYPE,RCERR) ; Set up global array to hold msg data
; RCGBL = name of the global or array where msg data is found
; RCD = array containing mail header data for the msg
; RCTYPE = type of msg (835ERA/835XFR/etc)
; RCERR = error array - text or reference to error tables below
DKILL(RCXMZ) ; Delete server mail msg from postmaster mailbox
; RCXMZ = ien of mailman msg
TEMPDEL(DA) ; Delete msg from temporary msg file
; DA = ien of the entry in file 344.5
RESTMSG(RCD,RCARRAY,XMZ) ; Read rest of msg, store in array
; RCD = last line # already in the msg
; RCARRAY = name of the array to store the data in
; XMZ = ien of the mailman msg
TAXERR(RCTYPE,RCINS,RCTID,RCCHG) ; Send a bulletin for a bad tax id
; RCTYPE = "ERA" for an ERA record, "EFT" for an EFT record
; RCINS = name and id to identify the ins co
; RCTID = tax id sent in error
; RCCHG = code describing how correction was made
; 'E'=EPHRA, 'C'=Changed by looking at claim #'s
BILL(X,RCDT,RCIB) ; Returns ien of bill in X or -1 if not valid
; RCDT = the Statement from date (used for Rx bills)
; and, if passed by reference, RCIB = 1 if an insurance bill
FMDT(X) ; Format date (X) in YYYYMMDD to Fileman format
ERROR ; Top level error msgs for msgs
ERROR2 ; Error condition msgs for msgs

External References

Name Field # of Occurrence
$$VALECME^BPSUTIL2 BILL+10
^DIC BILL+8
^DIK TEMPDEL+4
$$RXBIL^IBNCPDPU BILL+12
$$ZERO^RCDPESR9 OUTEFT+10
$$SITE^VASITE OUTMSG+27
$$FMTE^XLFDT OUTMSG+5, EMFORM+11, TAXERR+9
$$NOW^XLFDT TAXERR+9
SENDMSG^XMXAPI PERROR+23, OUTMSG+32, TAXERR+17
ZAPSERV^XMXAPI DKILL+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RCY(344.5 - [#344.5] Classic Fileman Calls
^PRCA(430 - [#430] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRCA(430 - [#430] BILL+13
^RCD(340 - [#340] BILL+14
^RCY(344.5 - [#344.5] TEMPDEL+5
^TMP("RCERR" OUTMSG+5, OUTMSG+12, OUTMSG+19, OUTMSG+21, OUTMSG+25, EMFORM+11, EMFORM+17, EMFORM+25, EMFORM+27, EMFORM+28
, ERRUPD+11!, ERRUPD+14*, ERRUPD+15*, ERRUPD+16*, ERRUPD+21*, ERRUPD+24*, ERRUPD+26, ERRUPD+28*, ERRUPD+31*, ERRUPD+32*
, ERRUPD+33*, ERRUPD+36*, ERRUPD+37*, ERRUPD+38*
^TMP("RCMSG" OUTMSG+6, EMFORM+12
^TMP("RCMSGH" ERRUPD+32, ERRUPD+37
^TMP("RCRAW" PERROR+27!, ERRUPD+35, ERRUPD+38

Label References

Name Line Occurrences
$$MASKPII OUTERA+16
EMFORM PERROR+17
OUTEFT OUTMSG+21
OUTERA OUTMSG+25
OUTMSG PERROR+26

Naked Globals

Name Field # of Occurrence
^( EMFORM+28
^("TEXT" EMFORM+25
^("TYPE" OUTMSG+12, EMFORM+17, ERRUPD+26*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ARRAY BILL+12
>> ARRAY("ECME" BILL+11*
>> ARRAY("FILLDT" BILL+11*
CT PERROR+5~, PERROR+7*, PERROR+9*, PERROR+17, OUTMSG+4~, OUTMSG+9*, OUTMSG+10*, OUTMSG+11*, OUTMSG+12, OUTMSG+14*
, OUTMSG+15, OUTMSG+17*, OUTMSG+18*, OUTMSG+19*, OUTMSG+21, OUTMSG+25, OUTERA~, OUTERA+14*, OUTERA+16*, OUTEFT~
, OUTEFT+9*, OUTEFT+10*, OUTEFT+11*, OUTEFT+12*, OUTEFT+14*, EMFORM~, EMFORM+14*, EMFORM+15*, EMFORM+16*, EMFORM+17
, EMFORM+19*, EMFORM+20*, EMFORM+22*, EMFORM+24*, EMFORM+25*, EMFORM+27*, EMFORM+28*, ERRUPD+8~, ERRUPD+12*, ERRUPD+24*
, ERRUPD+28*, ERRUPD+31*, ERRUPD+32*, ERRUPD+33*, ERRUPD+36*, ERRUPD+37*, ERRUPD+38*
DA TEMPDEL~, TEMPDEL+5
DATA OUTEFT+5~
DATA( OUTEFT+8*
DATA("01" OUTEFT+9, OUTEFT+10, OUTEFT+11, OUTEFT+12
DIC BILL+3~, BILL+8*
DIC(0 BILL+8*
DIK TEMPDEL+3~, TEMPDEL+4*
DUZ PERROR+22~*, OUTMSG+31~*, TAXERR+16~*
DUZ(0 PERROR+22*, OUTMSG+31*, TAXERR+16*
I OUTERA+5~, OUTERA+9*, OUTERA+10, OUTERA+11, OUTEFT+5~, OUTEFT+7*, OUTEFT+8, MASKPII+2~, MASKPII+6*, MASKPII+7
J OUTERA+5~, OUTERA+7*, OUTERA+8
LN OUTERA+5~, OUTERA+8*, OUTERA+10
OUTXFRM OUTERA+5~, OUTERA+12*, OUTERA+13
Q EXTERR+4~, EXTERR+6*
RAW OUTERA~, OUTERA+6, OUTERA+7, OUTERA+8, OUTERA+15, OUTERA+16, OUTEFT~, OUTEFT+6, OUTEFT+7, OUTEFT+8
, OUTEFT+13, OUTEFT+14
>> RC OUTERA+11*, OUTERA+12, OUTERA+14
RCARRAY RESTMSG~, RESTMSG+5
RCCHG TAXERR~, TAXERR+11
RCCT TAXERR+7~, TAXERR+8*, TAXERR+9*, TAXERR+10*, TAXERR+11*, TAXERR+12*
RCD ERRUPD~, RESTMSG~, RESTMSG+5*
RCD("DATE" ERRUPD+14
RCD("SUBJ" ERRUPD+16
RCDAT OUTERA+5~, OUTERA+10*, OUTERA+13*, OUTERA+14
RCDT BILL~, BILL+11
RCDXM TAXERR+7~
RCDXM( TAXERR+9*, TAXERR+10*, TAXERR+11*, TAXERR+12*
RCE EXTERR~, EXTERR+5*, EXTERR+6*, ERRUPD+8~, ERRUPD+20*, ERRUPD+21, ERRUPD+23*, ERRUPD+24
RCE("DIERR" EXTERR+6
RCEMG PERROR~, PERROR+9, PERROR+11, PERROR+12*, PERROR+13*, PERROR+14
RCERR PERROR~, PERROR+17, PERROR+26, OUTMSG~, EMFORM~, EMFORM+24, EXTERR~, EXTERR+5*, ERRUPD~, ERRUPD+10
, ERRUPD+18, ERRUPD+19
RCERR( EMFORM+27, ERRUPD+23
RCGBL ERRUPD~, ERRUPD+25, ERRUPD+28, ERRUPD+30, ERRUPD+33
RCIB BILL~, BILL+4*, BILL+14*
RCINS TAXERR~, TAXERR+9
RCMTXT OUTMSG+4~, OUTERA~, OUTERA+6, OUTERA+14, OUTERA+16, OUTEFT~, OUTEFT+6, OUTEFT+9, OUTEFT+10, OUTEFT+11
, OUTEFT+12, OUTEFT+14
RCREF OUTERA+5~, OUTERA+11*
RCTID TAXERR~, TAXERR+10
RCTYPE ERRUPD~, ERRUPD+15, ERRUPD+25*, ERRUPD+26, TAXERR~, TAXERR+9, TAXERR+17
RCXM PERROR+5~, PERROR+17, OUTMSG+4~, EMFORM~
RCXM( PERROR+9*, OUTMSG+10*, OUTMSG+12*, OUTMSG+15*, OUTMSG+17*, OUTMSG+18*, OUTMSG+19*, EMFORM+15*, EMFORM+17*, EMFORM+20*
, EMFORM+22*, EMFORM+24*, EMFORM+25*, EMFORM+27*, EMFORM+28*
RCXMZ PERROR~, PERROR+17, PERROR+26, OUTMSG~, OUTMSG+17, EMFORM~, EMFORM+22, DKILL~, DKILL+3
RCZ EXTERR+4~, EXTERR+6*
TDATE OUTMSG+4~, OUTMSG+5*, OUTMSG+15, EMFORM+9~, EMFORM+11*, EMFORM+20
TTIME EMFORM+9~, EMFORM+11*, EMFORM+20
TTYPE OUTMSG+4~, OUTMSG+6*, OUTMSG+12, OUTMSG+20, OUTMSG+24, EMFORM+9~, EMFORM+12*, EMFORM+17
U OUTERA+10, OUTERA+12, OUTERA+14, OUTEFT+8, OUTEFT+9, OUTEFT+10, OUTEFT+11, OUTEFT+12, MASKPII+4, MASKPII+5
, MASKPII+7, ERRUPD+25, BILL+14
X OUTERA+5~, OUTERA+13*, MASKPII~, MASKPII+3, MASKPII+4*, MASKPII+5, MASKPII+7*, MASKPII+8, TEMPDEL+3~, BILL~
, BILL+5*, BILL+7*, BILL+10, BILL+11, FMDT~, FMDT+1, FMDT+2*, FMDT+3
XMB PERROR+5~, TAXERR+7~
XMBODY PERROR+5~, PERROR+20*, PERROR+23, OUTMSG+4~, OUTMSG+7*, OUTMSG+32, TAXERR+7~, TAXERR+14*, TAXERR+17
XMDUZ PERROR+5~, PERROR+19*, OUTMSG+4~, OUTMSG+27*
>> XMER RESTMSG+5
XMERR PERROR+5~, TAXERR+7~
XMFULL PERROR+5~, TAXERR+7~
XMINSTR PERROR+5~, TAXERR+7~
>> XMREC RESTMSG+5
>> XMRG RESTMSG+5
XMSUBJ PERROR+5~, PERROR+20*, PERROR+23, OUTMSG+4~, OUTMSG+27*, OUTMSG+32
XMTO PERROR+5~, PERROR+23, OUTMSG+4~, OUTMSG+32, TAXERR+7~, TAXERR+17
XMTO( PERROR+9*, PERROR+16
XMTO("" PERROR+16
XMTO("I:" PERROR+14*
XMTO("I:G.RCD PE PAYMENTS EXCEPTIONS" , PERROR+16*, PE PAYMENTS" , TAXERR+14*
XMTO("Matthew.Spoon2@domain.ext" OUTMSG+29*
XMTYPE PERROR+5~, TAXERR+7~
XMZ PERROR+5~, PERROR+23, OUTMSG+4~, OUTMSG+32, RESTMSG~, TAXERR+7~, TAXERR+17
Y OUTERA+5~, OUTERA+13, TEMPDEL+3~, BILL+3~, BILL+10, BILL+12*, BILL+13, BILL+14, BILL+15
Y(0 BILL+13*, BILL+14
Z PERROR+5~, PERROR+16*, OUTERA+5~, OUTERA+15*, OUTERA+16, OUTEFT+5~, OUTEFT+13*, OUTEFT+14, EMFORM+9~, EMFORM+27*
, EMFORM+28*, ERRUPD+8~, ERRUPD+19*, ERRUPD+23*
Z0 ERRUPD+8~, ERRUPD+23*
Z1 ERRUPD+8~, ERRUPD+27*, ERRUPD+28*
Z2 ERRUPD+8~, ERRUPD+33*, ERRUPD+38*

Marked Items

Name Field # of Occurrence
$T(@RCREF OUTERA+11
$T(@Z ERRUPD+20
$T(ERROR+2 PERROR+9
$T(ERROR+RCE ERRUPD+24
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 |  Marked Items  | All