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 |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: RCDPEMSG

Package: Accounts Receivable

Routine: RCDPEMSG


Information

RCDPEMSG ;ALB/TMK - Server interface to CARC/RARC data from Austin ;01/20/15

Source Information

Source file <RCDPEMSG.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 3 $$FIND1^DIC  (FILE,UPDATE,WP)^DIE  ^DIWP  
MailMan 2 SENDMSG^XMXAPI  $$ZSUBJ^XMXUTIL2  
Kernel 1 $$NOW^XLFDT  

Entry Points

Name Comments DBIA/ICR reference
SERV ; Entry point for server option to process CARC RARC messages received
; from Austin. Activated by the option S.RCDPE EDI CARC-RARC SERVER which
; is subscribed to the group G.CARC_RARC_DATA
MSG(RCXMZ,RCERR) ; Read/Store message lines
; RCERR = array to hold errors
; RCXMZ = Mailman message number to be processed
;
; OUTPUT: 0 = No Errors ; 1 = Errors - details in RCERR
ERR(F,LINE,ARR) ; Record a line error
START(F,LINE) ; "CD" read, set type and indicate a record was entered
CODE(F,LINE) ; Process line beginning with "01"
DESC(F,LINE) ; Process line beginning with "02"
NOTE(F,LINE) ; Process line beginning with "03"
END(F,LINE,RCERR) ; Process record reached end of record indicator "ZZ"
; File the entry
EQ ; End Quit
EOF(F,LINE) ; Reached end of File indicator
; Check error array and see if we need to send an email.
FILEIT(FILE,IEN,DATA,RCERR) ; Add new record or update existing record
FQ ; FILEIT Quit
WPINS(DATA,REC,CD) ; Insert data into word processing field
EMSG(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 with errors

External References

Name Field # of Occurrence
$$FIND1^DIC END+13, FILEIT+10
FILE^DIE FILEIT+9
UPDATE^DIE FILEIT+10
WP^DIE WPINS+10
^DIWP WPINS+5, WPINS+8, WPINS+9
$$NOW^XLFDT FILEIT+2
SENDMSG^XMXAPI EMSG+36
$$ZSUBJ^XMXUTIL2 EMSG+9

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("RC_CARC_RARC" SERV+5!, SERV+6*, SERV+14*, SERV+16!, MSG+10*, ERR+3*, ERR+4*, END+14*, END+15*
^UTILITY($J WPINS+2!, WPINS+10

Label References

Name Line Occurrences
$$MSG SERV+9
CODE MSG+19
DESC MSG+19
EMSG SERV+10
END MSG+19
EOF MSG+19
EQ END+4
ERR MSG+14, MSG+17, END+5, FILEIT+11, WPINS+11
FILEIT END+16
FQ FILEIT+11
NOTE MSG+19
START MSG+19
WPINS FILEIT+12

Naked Globals

Name Field # of Occurrence
^( END+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ARR ERR~
ARR("ERROR" ERR+2*
CD WPINS~
CODE MSG+6~, MSG+8*, MSG+14, MSG+17, CODE+1*, END+5, END+7, END+9, END+13, EQ+1*
, FILEIT+1~, FILEIT+4*, FILEIT+5, FILEIT+10, FILEIT+11, FILEIT+12, WPINS+11
CT EMSG+4~, EMSG+6*, EMSG+22*
D0 MSG+6~, MSG+8*, DESC+1*, END+5, END+7, END+9, EQ+1*
D1 MSG+6~, MSG+8*, NOTE+1*, END+9, EQ+1*
DATA END+2~, END+9*, END+15, END+16, FILEIT~, FILEIT+4, WPINS~, WPINS+5, WPINS+6, WPINS+7
, WPINS+8, WPINS+9
DESC FILEIT+1~, FILEIT+4*, FILEIT+12
DIWF WPINS+1~, WPINS+2*, WPINS+5*, WPINS+8*
DIWL WPINS+1~, WPINS+2*, WPINS+5*, WPINS+8*
DIWR WPINS+1~, WPINS+2*, WPINS+5*, WPINS+8*
DOIT MSG+6~, MSG+7*, MSG+14*, END+4*
DUZ EMSG+35~*, EMSG+36
DUZ(0 EMSG+35*
EINC ERR+1~, ERR+2*, ERR+3, ERR+4
ERR FILEIT+1~, FILEIT+11, FQ+1!, WPINS+1~, WPINS+11
F ERR~, ERR+2, ERR+3, START~, CODE~, DESC~, NOTE~, END~, END+5, EOF~
FDA FILEIT+1~
FDA( FILEIT+5*, FILEIT+6*, FILEIT+7*, FILEIT+9, FILEIT+10, FQ+1!
FDAIEN FILEIT+1~, FILEIT+3*, FILEIT+5, FILEIT+6, FILEIT+7
FILE END+2~, END+11*, END+13, END+16, FILEIT~, FILEIT+5, FILEIT+6, FILEIT+7, FILEIT+10, WPINS+10
I FILEIT+1~, FILEIT+3*, FILEIT+5, FILEIT+6, FILEIT+7, FILEIT+9, FILEIT+10, FQ+1
IEN END+13*, END+15, END+16, FILEIT~, FILEIT+3, FILEIT+9, FILEIT+10*, FILEIT+11, FILEIT+12
INREC MSG+6~, MSG+7*, MSG+14, MSG+17, CODE+1*, EQ+1*
IX END+2~, END+14*, END+15
LGT WPINS+1~, WPINS+7*, WPINS+9
LINE ERR~, ERR+2, ERR+4, START~, START+1, CODE~, CODE+1, DESC~, DESC+1, NOTE~
, NOTE+1, END~, END+5, EOF~
LMOD FILEIT+1~, FILEIT+2*, FILEIT+7
MID WPINS+1~, WPINS+7*, WPINS+8
MISS END+2~, END+5, END+6*, END+7*
MOD MSG+6~, MSG+8*, CODE+1*, END+9, EQ+1*, FILEIT+4*, FILEIT+7
NOTE FILEIT+1~, FILEIT+4*, FILEIT+7
NXT WPINS+1~, WPINS+7*, WPINS+9
P1 MSG+6~, MSG+11*, MSG+14, MSG+17, MSG+19
RCBODY EMSG+4~
RCBODY( EMSG+22*, EMSG+23*
RCBODY(1 EMSG+10*
RCBODY(10 EMSG+19*
RCBODY(11 EMSG+20*
RCBODY(12 EMSG+21*
RCBODY(2 EMSG+11*
RCBODY(3 EMSG+12*
RCBODY(4 EMSG+13*
RCBODY(5 EMSG+14*
RCBODY(6 EMSG+15*
RCBODY(7 EMSG+16*
RCBODY(8 EMSG+17*
RCBODY(9 EMSG+18*
RCCT MSG+5~, MSG+7*, MSG+10*, MSG+14, MSG+17, MSG+19
RCD MSG+5~
RCDATE MSG+5~
RCDXM MSG+5~
RCEFLG SERV+4~, SERV+9*, SERV+10
RCEMG EMSG~, EMSG+25, EMSG+26*, EMSG+27*, EMSG+28
RCERR SERV+4~, SERV+9, SERV+10, MSG~, MSG+14, MSG+17, MSG+19, MSG+20, END~, END+16
, FILEIT~, EMSG~
RCERR("ERROR" EMSG+22
RCFLG MSG+5~, MSG+7*, MSG+20*, MSG+21
RCGBL MSG+5~
RCHD MSG+5~
RCSUBJ EMSG+4~, EMSG+9*, EMSG+17
RCTXN MSG+5~
RCTYP1 MSG+5~
RCTYPE SERV+4~
RCXM EMSG+4~
RCXMZ SERV+4~, SERV+7*, SERV+9, SERV+10, MSG~, MSG+17, EMSG~, EMSG+9, EMSG+16
RCZ FILEIT+1~, FILEIT+11*, WPINS+1~, WPINS+11
REC WPINS~, WPINS+10, WPINS+11
START MSG+6~, MSG+8*, CODE+1*, END+5, END+7, END+9, EQ+1*, FILEIT+1~, FILEIT+4*, FILEIT+6
STOP MSG+6~, MSG+8*, CODE+1*, END+9, EQ+1*, FILEIT+1~, FILEIT+4*, FILEIT+7
TYPE MSG+6~, MSG+8*, START+1*, END+5, END+6, END+11, END+14, END+15
U MSG+11, START+1, CODE+1, DESC+1, NOTE+1, END+9
X MSG+5~, MSG+17*, WPINS+5*, WPINS+8*, WPINS+9*
XMB EMSG+4~
XMBODY EMSG+4~, EMSG+33*, EMSG+36
XMDUZ MSG+5~, EMSG+4~, EMSG+32*
XMER SERV+4~, MSG+10
XMERR EMSG+4~
XMFULL EMSG+4~
XMINSTR EMSG+4~
>> XMREC MSG+10
>> XMRG MSG+10, MSG+11, MSG+14, MSG+19
XMSUBJ EMSG+4~, EMSG+33*, EMSG+36
XMTO EMSG+4~, EMSG+36
XMTO( EMSG+30
XMTO("" EMSG+30
XMTO("I:" EMSG+28*
XMTO("I:G.RCD PE PAYMENTS EXCEPTIONS" , EMSG+30*
XMTYPE EMSG+4~
XMZ SERV+6, SERV+7, EMSG+4~, EMSG+36
Y MSG+5~, MSG+17*
Z EMSG+4~, EMSG+10*, EMSG+22*, EMSG+23*, EMSG+30*
ZZ END+2~
Info |  Source |  Call Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All