Routine: RCDPEUPO

Package	Total	Call Graph
VA FileMan	3	(FILE,UPDATE)^DIE $$GET1^DIQ ^DIR
Kernel	2	($$FMTE,$$NOW)^XLFDT OWNSKEY^XUSRB
Accounts Receivable	1	$$GETEFTS^RCDPEWLP
MailMan	1	SENDMSG^XMXAPI
Registration	1	$$SITE^VASITE

Package	Total	Caller Graph
Accounts Receivable	2	RCDPE UNPOSTED EFT OVERRIDE RCDPEWLP

Entry Points

Name	Comments	DBIA/ICR reference
EN	; Display warning message when aged, unposted EFTs exist
DMSGS(CODES)	; display warning/error messages (if any) ; Input: CODES ; 1P - error condition for aged, unposted Pharmacy EFTs ; 2P - warning condition for aged,unposted Pharmacy EFTs ; 3P - Override exists for aged, unposted pharmacy EFTs ; 1M - error condition for aged, unposted Medical EFTs ; 2M - warning condition for aged, unposted Medical EFTs ; 3M - Override exists for aged, unposted Medical EFTs ; 1T - error condition for aged, unposted Tricare EFTs ; 2T - warning condition for aged, unposted Tricare EFTs ; 3T - Override exists for aged, unposted Tricare EFTs ; 0 - no error or warning conditions ; possible values: ; "1P" or "2P" or "3P" or "1M" or "2M" or "3M" or "1P^1M" or "1P^2M" or ; "1P^3M" or "2P^1M" or "2P^2M" or "2P^3M" or "3P^1M" or "3P^2M" or "3P^3M"
OVERRIDE(TYPE,TEXT)	; when ERROR state exists, perform the Override ; Input: TYPE - "M" Medical ; "P" Phamacy ; "T" - Tricare ; Any combination of above flags ; TEXT - Warning and/or error statements; passed by reference ; Output: TEXT - Additional text to be displayed with warning and/or error statements ; contents of TEXT array will be in the body of the mail message ; (refer to MAIL tag) ; Returns: DONE - 1 - OVERRIDE was performed; 0 - Override was not performed
OVERQ	;
MAIL(TEXT)	;generate mail message when OVERRIDE is implemented ; Input: TEXT - Lines of text that represent the body of the mail message
CHECK(TYPE,OVERRIDE)	; Determine if override exists for today's date ; Input: TYPE - "M" for medical, "P" for Pharmacy or "T" for Tricare ; OVERRIDE - Passed by reference; array to hold the OVERRIDE data ; Output: OVERRIDE - Returned array holding existing OVERRIDE data
NONE	; the system does not have any aged, unposted EFTs
NOACTION	; OVERRIDE already exists ; Input: TYPE - "M" for medical, "P" for Pharmacy or "T" for Tricare
NOENTRY	; user is not authorized to use the option
NOLOCK	; entry at 344.61 cannot be locked

External References

Name	Field # of Occurrence
FILE^DIE	OVERRIDE+45
UPDATE^DIE	OVERRIDE+57
$$GET1^DIQ	DMSGS+25, OVERRIDE+50, CHECK+8
^DIR	DMSGS+44, DMSGS+50, DMSGS+57, OVERRIDE+19, OVERRIDE+31, OVERRIDE+37, NONE+7, NOACTION+9, NOENTRY+7, NOLOCK+7
$$GETEFTS^RCDPEWLP	EN+5
$$SITE^VASITE	MAIL+8
$$FMTE^XLFDT	MAIL+8
$$NOW^XLFDT	OVERRIDE+41, MAIL+8
SENDMSG^XMXAPI	MAIL+14
OWNSKEY^XUSRB	EN+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: OVERRIDE+34
Function Call: WRITE	Prompt: !!," Need to enter a reason for Override.",!," Override not performed.",! Line Location: OVERRIDE+40
Routine Call	DIE Line Location: OVERRIDE+45
Routine Call	DIE Line Location: OVERRIDE+57
Routine Call	DIR Line Location: DMSGS+44 DMSGS+50 DMSGS+57 OVERRIDE+19 OVERRIDE+31 OVERRIDE+37 NONE+7 NOACTION+9 NOENTRY+7 NOLOCK+7

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^RCY(344.61 - [#344.61]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^RCY(344.61 - [#344.61]	OVERRIDE+12, OVERQ+1
^TMP(	MAIL+4
^VA(200 - [#200]	OVERRIDE+63

Label References

Name	Line Occurrences
$$OVERRIDE	DMSGS+52
DMSGS	EN+6
MAIL	DMSGS+53
NOENTRY	EN+3
NOLOCK	OVERRIDE+12
NONE	DMSGS+15
OVERQ	OVERRIDE+12, OVERRIDE+20, OVERRIDE+38

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AGEDEFTS	EN+4~, EN+5*, EN+6
ARRAY	MAIL+3~
CNT	MAIL+3~
CNT1	MAIL+3~
CODES	DMSGS~, DMSGS+15, DMSGS+20
DAYSLIMT	DMSGS+16~, DMSGS+25*, DMSGS+28
>> DILOCKTM	OVERRIDE+12
DIR	DMSGS+16~, OVERRIDE+11~, OVERRIDE+35!, NONE+1~, NOACTION+2~, NOENTRY+1~, NOLOCK+1~
DIR("A"	DMSGS+18, DMSGS+19, DMSGS+27, DMSGS+28, DMSGS+29, DMSGS+30, DMSGS+33, DMSGS+34, DMSGS+35, DMSGS+36 , DMSGS+39, DMSGS+40, DMSGS+41, DMSGS+43, DMSGS+46, DMSGS+48, DMSGS+49, DMSGS+55, DMSGS+56, OVERRIDE+15* , OVERRIDE+16, OVERRIDE+17, OVERRIDE+18, OVERRIDE+25, OVERRIDE+27, OVERRIDE+28, OVERRIDE+29, OVERRIDE+30, OVERRIDE+36, NONE+3 , NONE+4, NONE+5, NONE+6, NOACTION+4, NOACTION+5, NOACTION+6, NOACTION+7, NOACTION+8, NOENTRY+3, NOENTRY+4 , NOENTRY+5, NOENTRY+6, NOLOCK+3, NOLOCK+4, NOLOCK+5, NOLOCK+6
DIR(0	DMSGS+43, DMSGS+47, DMSGS+57, OVERRIDE+15, OVERRIDE+21, OVERRIDE+22, OVERRIDE+23, OVERRIDE+24, OVERRIDE+36, NONE+2 , NOACTION+3, NOENTRY+2, NOLOCK+2*
DIRUT	OVERRIDE+11~, OVERRIDE+32, OVERRIDE+38
DONE	OVERRIDE+11~, OVERRIDE+12, OVERRIDE+13, OVERRIDE+20, OVERRIDE+32, OVERRIDE+39, OVERQ+2
DT	CHECK+12
DTTM	OVERRIDE+11~, OVERRIDE+41*, OVERRIDE+42, OVERRIDE+52, OVERRIDE+64
DUOUT	OVERRIDE+11~, OVERRIDE+32, OVERRIDE+38
DUZ	EN+2, OVERRIDE+43, OVERRIDE+53, OVERRIDE+63, MAIL+11
ERROR	DMSGS+16~, DMSGS+17, DMSGS+23, DMSGS+45, DMSGS+54
GLB	MAIL+3~, MAIL+4*, MAIL+7, MAIL+9, MAIL+11
I	DMSGS+16~, DMSGS+20*
IENS	OVERRIDE+11~, OVERRIDE+51*, OVERRIDE+52, OVERRIDE+53, OVERRIDE+54, OVERRIDE+55, OVERRIDE+56
LN	DMSGS+16~, DMSGS+19, DMSGS+26, DMSGS+27, DMSGS+28, DMSGS+29, DMSGS+30, DMSGS+32, DMSGS+33, DMSGS+34 , DMSGS+35, DMSGS+36, DMSGS+39, DMSGS+40, DMSGS+41, DMSGS+48, DMSGS+55, DMSGS+56*
MSG	EN+1~, EN+2
MSG(0	EN+3
MSGTXT	DMSGS+16~, DMSGS+46*, DMSGS+52, DMSGS+53
OVERRIDE	DMSGS+16~, DMSGS+17, DMSGS+38, DMSGS+42, DMSGS+52, DMSGS+53, CHECK~, CHECK+4!, CHECK+9, CHECK+12* , CHECK+13*
OVERRIDE(	CHECK+8*, CHECK+9!, CHECK+12!
RCDFDA	OVERRIDE+11~, OVERRIDE+48!
RCDFDA(	OVERRIDE+42, OVERRIDE+43, OVERRIDE+44, OVERRIDE+52, OVERRIDE+53, OVERRIDE+54, OVERRIDE+55, OVERRIDE+56
RCPROG1	MAIL+3~, MAIL+4*
REASON	OVERRIDE+11~, OVERRIDE+41*, OVERRIDE+44, OVERRIDE+54, OVERRIDE+65
S1	DMSGS+16~, DMSGS+21*, DMSGS+22, DMSGS+31, DMSGS+37
S2	DMSGS+16~, DMSGS+21*, DMSGS+23, DMSGS+25, DMSGS+27, DMSGS+33, DMSGS+35, DMSGS+39
SBJ	MAIL+3~, MAIL+8*, MAIL+11
STATE	DMSGS+16~, DMSGS+20*, DMSGS+21
SUB	MAIL+3~, MAIL+7*
TEXT	OVERRIDE~, MAIL~, MAIL+9
TEXT(	OVERRIDE+59, OVERRIDE+61, OVERRIDE+63, OVERRIDE+64, OVERRIDE+65
TYPE	DMSGS+16~, DMSGS+23, DMSGS+52, OVERRIDE~, OVERRIDE+14, OVERRIDE+16, OVERRIDE+20, OVERRIDE+22, OVERRIDE+23, OVERRIDE+24 , OVERRIDE+25, OVERRIDE+28, OVERRIDE+29, OVERRIDE+33, OVERRIDE+42, OVERRIDE+43, OVERRIDE+44, OVERRIDE+49, OVERRIDE+55, OVERRIDE+61 , CHECK~, CHECK+8, CHECK+9, CHECK+12, NOACTION+4
U	DMSGS+20
X	DMSGS+16~
X1	OVERRIDE+11~, OVERRIDE+59, OVERRIDE+60, OVERRIDE+61, OVERRIDE+62, OVERRIDE+63, OVERRIDE+64, OVERRIDE+65
XMDUZ	MAIL+10~, MAIL+11*, MAIL+14
XMINSTR	MAIL+10~, MAIL+14
XMINSTR("FLAGS"	MAIL+13*
XMINSTR("FROM"	MAIL+12*
XMSUB	MAIL+10~, MAIL+11*, MAIL+14
XMTEXT	MAIL+10~, MAIL+11*, MAIL+14
XMY	MAIL+10~, MAIL+14
XMY("I:G.RCDP	E AUDIT" , MAIL+11*
XX	OVERRIDE+11~, OVERRIDE+49, OVERRIDE+50, OVERRIDE+56
Y	DMSGS+16~, DMSGS+51, OVERRIDE+11~, OVERRIDE+33, OVERRIDE+41

Customize PDF page

Package: Accounts Receivable

Routine: RCDPEUPO

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: