Routine: RCDPEM3

Package	Total	Call Graph
Kernel	6	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD ($$FMTE,$$NOW)^XLFDT $$NAME^XUSER OWNSKEY^XUSRB
Accounts Receivable	5	($$ASKLM,$$ENDORPRT,$$NOW,$$PAD,ASK,HDRLST,LMRPT,SL)^RCDPEARL ($$DTPRB,$$DTRNG)^RCDPEM4 INFO^RCDPEM6 ($$ISTYPE,$$RTYPE)^RCDPEU1 $$ASKEFT^RCDPEU2
VA FileMan	3	^DIE $$GET1^DIQ ^DIR
Registration	1	DIVISION^VAUTOMA

Package	Total	Caller Graph
Accounts Receivable	12	RCDPE REMOVE DUP DEPOSITS RCDPE REMOVED ERA AUDIT RCDPE8NZ RCDPEAC RCDPEAR1 RCDPEAR2 RCDPEDAR RCDPEM2 RCDPEM6 RCDPEOP RCDPESP2 RCDPESPA

Entry Points

Name	Comments	DBIA/ICR reference
EN	; EP - Remove ERA from Active Worklist Audit Report [RCDPE REMOVED ERA AUDIT]
ENFRMQ	; entry point from queue
DISPTY()	; Ask display/output type ; Input: None ; Returns: 0-Display, 1-MS Excel, -1=timeout or '^'
ERASTA(ERAIEN)	; Returns "station name ^ station #" for an ERA ; Input: ERAIEN - IEN of the ERA
REPRT	; Generate the report lines into ^TMP array ; Input: RCSSD - Selected Start Date ; W:Date Removed from Worklist R:Date ERA Received B:Both Dates ; RCDTRNG - Date/Time range of report (range flag^start date^end date)
DISP(RCDISPTY)	; Format the display for screen/printer or MS Excel ; RCDISPTY - Display/print/Excel flag ; LOCAL VARIABLES: IEN - line number of the data in ^TMP (see above)
PROC(ERAIEN)	; Put data into ^TMP based on filters ; Input: ERAIEN - IEN of the ERA
HDRBLD	; Create the report header ; Input: RCDISPTY - Display/print/Excel flag ; RCDTRNG - Date range ; RCXCLUDE - TRICARE /CHAMPVA flags ; Returns: RCHDR(0) - Header text line count ; RCHDR("XECUTE") - M code for page number ; RCHDR("RUNDATE")- Date/time report generated, external format ; RCPGNUM - Page counter ; RCSTOP - Flag to exit
HDRLM	; Create the Listman header ; Input: RCDTRNG - Date range ; RCXCLUDE - TRICARE /CHAMPVA flags ; Returns: RCHDR(0) - Header text line count
HDRNM()	; Returns the report name
EXIT	; Exit the report
WP(RR)	; Format Removed Reason comments ; Input: RR - Removed Reason
RETN	; Entry point for Remove Duplicate EFT Deposits [RCDPE REMOVE DUP DEPOSITS]
NOCHNG	;
DICW	; Identifier code for EFT lookup - EP MATCH1^RCDPEM3 and MATCH2^RCDPEM2 ; Input - Y = EFT DETAIL #344.31 IEN ; D = Index ("B","C","E","F","FNLZ") ; DZ = User input from ^DIE call, "?" or "??" if help list was requested
OUT(RCEFT)	; EP UNMATCH^RCDPEM2 ; INPUT - RCEFT - #344.31 ien ; OUTPUT - EFT_"."_TRAN - formatted EFT line

External References

Name	Field # of Occurrence
^%ZIS	EN+58
HOME^%ZIS	EN+68
^%ZISC	EXIT+1
^%ZTLOAD	EN+65
^DIE	RETN+27, RETN+33
$$GET1^DIQ	ERASTA+24, RETN+18, DICW+10, DICW+11, DICW+12, DICW+13, DICW+14, DICW+15, OUT+4, OUT+5
^DIR	DISPTY+6, RETN+3, RETN+9, RETN+25, RETN+38, NOCHNG+5
$$ASKLM^RCDPEARL	EN+36
$$ENDORPRT^RCDPEARL	DISP+37
$$NOW^RCDPEARL	HDRBLD+11
$$PAD^RCDPEARL	DISP+19, DISP+24, DISP+25, DISP+29
ASK^RCDPEARL	DISP+39
HDRLST^RCDPEARL	DISP+6, DISP+16
LMRPT^RCDPEARL	EN+54
SL^RCDPEARL	DISP+23, DISP+30, DISP+36, DISP+37, WP+13
$$DTPRB^RCDPEM4	EN+10
$$DTRNG^RCDPEM4	EN+12
INFO^RCDPEM6	EN+31
$$ISTYPE^RCDPEU1	REPRT+15, REPRT+18, REPRT+32, REPRT+35
$$RTYPE^RCDPEU1	EN+24
$$ASKEFT^RCDPEU2	RETN+16
DIVISION^VAUTOMA	EN+16
$$FMTE^XLFDT	PROC+24, PROC+28, HDRBLD+27, HDRLM+8, DICW+15
$$NOW^XLFDT	RETN+33
$$NAME^XUSER	PROC+33
OWNSKEY^XUSRB	RETN+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$S($G(ZTSK):"Task number "_ZTSK_" queued.",1:"Unable to queue this task.") Line Location: EN+66
Function Call: WRITE	Prompt: !,ZZ Line Location: DISP+15
Function Call: WRITE	Prompt: !,"You are not authorized to use this option.",! Line Location: RETN+3
Function Call: WRITE	Prompt: !!," WARNING: Removing an EFT is NOT reversible." Line Location: RETN+4
Function Call: WRITE	Prompt: !," Use this option only if you are sure you want to remove this EFT." Line Location: RETN+5
Function Call: WRITE	Prompt: !," Please be aware that once an EFT is removed - it cannot be restored.",!! Line Location: RETN+6
Function Call: WRITE	Prompt: ! Line Location: RETN+24
Function Call: WRITE	Prompt: !! Line Location: RETN+34
Function Call: WRITE	Prompt: !! Line Location: NOCHNG+5
Function Call: WRITE	Prompt: ?10,EFTID,?20," ",PAYNAM Line Location: DICW+19
Function Call: WRITE	Prompt: !,?20," ",PAYTR,?48," ",$J(PAYAMT,10) Line Location: DICW+20
Function Call: WRITE	Prompt: ?59," ",DEPNO,?71," ",DEPDAT Line Location: DICW+21
Function Call: WRITE	Prompt: ?25," ",PAYNAM Line Location: DICW+25
Function Call: WRITE	Prompt: !,?25," ",PAYTR,?48," ",$J(PAYAMT,10) Line Location: DICW+26
Function Call: WRITE	Prompt: ?59," ",DEPNO,?71," ",DEPDAT Line Location: DICW+27
Function Call: WRITE	Prompt: " ",EFTID Line Location: DICW+29
Function Call: WRITE	Prompt: !,?20," ",PAYTR,?48," ",$J(PAYAMT,10) Line Location: DICW+30
Function Call: WRITE	Prompt: ?59," ",DEPNO,?71," ",DEPDAT Line Location: DICW+31
Function Call: WRITE	Prompt: " ",EFTID,?25," ",PAYNAM Line Location: DICW+33
Function Call: WRITE	Prompt: !,?25," ",PAYTR,?48," ",$J(PAYAMT,10) Line Location: DICW+34
Function Call: WRITE	Prompt: ?59," ",DEPNO,?71," ",DEPDAT Line Location: DICW+35
Function Call: WRITE	Prompt: " ",EFTID,?48,$J(PAYAMT,10),?59," ",DEPNO,?71," ",DEPDAT Line Location: DICW+37
Function Call: WRITE	Prompt: !,?25," ",PAYNAM Line Location: DICW+38
Routine Call	%ZIS Line Location: EN+58
Routine Call	%ZIS Line Location: EN+68
Routine Call	DIE Line Location: RETN+27 RETN+33
Routine Call	DIR Line Location: DISPTY+6 RETN+3 RETN+9 RETN+25 RETN+38 NOCHNG+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^RCY(344.3 - [#344.3]	GET1^DIQ
^RCY(344.31 - [#344.31]	Classic Fileman Calls, GET1^DIQ
^DG(40.8 - [#40.8]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DG(40.8 - [#40.8]	ERASTA+26
^DGCR(399 - [#399]	ERASTA+20
^IBM(361.1 - [#361.1]	ERASTA+14
^RCY(344.31 - [#344.31]	DICW+7
^RCY(344.4 - [#344.4]	ERASTA+11, ERASTA+12, REPRT+9, REPRT+11, REPRT+12, REPRT+25, REPRT+27, REPRT+28, REPRT+29, PROC+21
^TMP($J	EN+42!, EN+51, EN+54, REPRT+5!, REPRT+16, REPRT+17, REPRT+31, REPRT+33, REPRT+34, DISP+9 , DISP+10, PROC+42, EXIT+2!

Label References

Name	Line Occurrences
$$DISPTY	EN+26
$$ERASTA	PROC+16
$$HDRNM	EN+46, EN+63, HDRBLD+20
DISP	EN+43, ENFRMQ+2
EXIT	EN+11, EN+13, EN+18, EN+25, EN+27, EN+37, EN+55, ENFRMQ+3
HDRBLD	DISP+3
HDRLM	DISP+4
NOCHNG	RETN+26, RETN+28
PROC	REPRT+20, REPRT+38
REPRT	EN+43, ENFRMQ+1
WP	DISP+31

Naked Globals

Name	Field # of Occurrence
^(0	REPRT+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	EN+1~, EN+57*
A	DISP+5~, DISP+19, DISP+22, DISP+23, DISP+24, DISP+25, DISP+29*, DISP+30
AMT	PROC+2~, PROC+27*, PROC+42
BILLPTR	ERASTA+3~, ERASTA+16*, ERASTA+17, ERASTA+20
C	EN+20~, EN+21, EN+22
CMNT	WP+3~
CMNT(	WP+7, WP+10, WP+11*, WP+13
CNTR	WP+3~, WP+7, WP+10, WP+11, WP+13
>> D	DICW+24, DICW+28, DICW+32, DICW+36
DA	RETN+1~, RETN+27*
DATA	DICW+6~, DICW+7*, DICW+8, DICW+9
DEPDAT	DICW+6~, DICW+15*, DICW+21, DICW+27, DICW+31, DICW+35, DICW+37
DEPNO	DICW+6~, DICW+14*, DICW+21, DICW+27, DICW+31, DICW+35, DICW+37
DEPTCKT	PROC+2~
DIC	RETN+1~
DIC("A"	RETN+15*, RETN+16
DIC("S"	RETN+14*, RETN+16
DIC(0	DICW+42*
DIE	RETN+1~, RETN+27*
DIR	DISPTY+3~, RETN+1~, RETN+3!, RETN+9!, RETN+21!, RETN+25!, RETN+35!, NOCHNG+1~
DIR("A"	DISPTY+4, RETN+8, RETN+22, RETN+23, RETN+36, RETN+37, NOCHNG+3, NOCHNG+4
DIR("B"	DISPTY+5, RETN+7, RETN+21*
DIR(0	DISPTY+4, RETN+3, RETN+7, RETN+21, RETN+35, NOCHNG+2
DIRUT	DISPTY+3~, DISPTY+7
DIV	HDRBLD+18~, HDRLM+4~
DR	RETN+1~, RETN+27, RETN+33
DTERA	REPRT+4~, REPRT+36, REPRT+37, PROC+2~, PROC+24, PROC+42
DTOUT	RETN+1~, RETN+10, RETN+26, NOCHNG+1~
DTRTN	PROC+2~, PROC+28*, PROC+42
DTXREF	REPRT+4~, REPRT+8, REPRT+9, REPRT+11, REPRT+24, REPRT+25, REPRT+27
DUOUT	DISPTY+3~, DISPTY+7, RETN+10, RETN+26, NOCHNG+1~
DUZ	RETN+2, RETN+33
>> DZ	DICW+17
EFT	OUT+3~, OUT+4*, OUT+6
EFTID	DICW+6~, DICW+9*, DICW+19, DICW+29, DICW+33, DICW+37
EFTIEN	DICW+6~, DICW+8*, DICW+9, DICW+14, DICW+15
EFTTR	DICW+6~, DICW+9*
END	REPRT+4~, REPRT+8, REPRT+9, REPRT+24, REPRT+25
ERA	PROC+2~, PROC+25*, PROC+42
ERAEOB	ERASTA+3~, ERASTA+13, ERASTA+14, ERASTA+15, PROC+2~, PROC+22*
ERAIEN	ERASTA~, ERASTA+2, ERASTA+11, ERASTA+12, REPRT+4~, REPRT+10, REPRT+11, REPRT+12, REPRT+15, REPRT+18 , REPRT+20, REPRT+26, REPRT+27, REPRT+28, REPRT+29, REPRT+32, REPRT+35, REPRT+38, PROC~, PROC+16 , PROC+21
H	EN+44~, EN+47, EN+48, EN+50, EN+51*
HCNT	HDRBLD+18~, HDRBLD+19, HDRBLD+20, HDRBLD+21, HDRBLD+24, HDRBLD+30, HDRBLD+33, HDRBLD+36, HDRBLD+37, HDRBLD+40 , HDRBLD+41, HDRBLD+42, HDRBLD+43, HDRBLD+44, HDRLM+4~, HDRLM+5, HDRLM+11, HDRLM+13, HDRLM+14, HDRLM+17* , HDRLM+18, HDRLM+21, HDRLM+22, HDRLM+23, HDRLM+24
HDR	EN+44~, EN+54
HDR(	EN+48*
HDR("TITLE"	EN+46*
I	EN+1~, WP+3~, WP+8, WP+9, WP+13
IEN	DISP+5~, DISP+7, DISP+9, DISP+10
IO	EN+70
IO("Q"	EN+60, EN+67!
IOSL	DISP+16
J	EN+20~, EN+21, EN+22, ERASTA+3~, ERASTA+10, ERASTA+11, ERASTA+12
L	EN+44~, EN+45, EN+48, EN+49, EN+50
LEN	DISP+5~
M	ERASTA+3~, ERASTA+12*, ERASTA+13
MSG	RETN+1~, RETN+2
MSG(0	RETN+3
N	EN+44~, EN+50, EN+51, REPRT+4~, REPRT+16, REPRT+17, REPRT+33, REPRT+34
P	ERASTA+3~, ERASTA+13*, ERASTA+14, PROC+2~
PAYAMT	DICW+6~, DICW+13*, DICW+20, DICW+26, DICW+30, DICW+34, DICW+37
PAYER	PROC+2~, PROC+34*, PROC+42
PAYNAM	DICW+6~, DICW+10, DICW+18, DICW+19, DICW+23*, DICW+25, DICW+33, DICW+38
PAYTR	DICW+6~, DICW+12*, DICW+20, DICW+26, DICW+30, DICW+34
PCS	WP+3~, WP+7*, WP+8
POP	EN+1~, EN+59
RCDISPTY	EN+1~, EN+26*, EN+27, EN+30, EN+43, ENFRMQ+2, DISP~, DISP+13, HDRBLD+12
RCDIV	EN+1~, EN+9, EN+21, EN+22*, PROC+20, HDRBLD+32, HDRLM+13
RCDTRNG	EN+1~, EN+12*, EN+13, EN+14, REPRT+8, REPRT+24, HDRBLD+26, HDRLM+6, HDRLM+7
RCEFT	OUT~, OUT+4, OUT+5
RCEND	EN+1~, EN+14*
RCERANUM	RETN+1~, RETN+18*, RETN+22, RETN+37
RCHDR	EN+1~, DISP+6, DISP+16, HDRBLD+10!
RCHDR(	EN+48, EN+49, EN+51, HDRBLD+21, HDRBLD+24, HDRBLD+30, HDRBLD+33, HDRBLD+36, HDRBLD+37, HDRBLD+40* , HDRBLD+41, HDRBLD+42, HDRBLD+43, HDRLM+11, HDRLM+14, HDRLM+17, HDRLM+18, HDRLM+21, HDRLM+22, HDRLM+23
RCHDR("RUNDATE"	HDRBLD+11*, HDRBLD+23
RCHDR("XECUTE"	HDRBLD+13, HDRBLD+22
RCHDR(0	DISP+16, HDRBLD+13, HDRBLD+44, HDRLM+24*
RCHDR(1	HDRBLD+16*
RCLNCNT	EN+1~, EN+6*, DISP+23, DISP+30, DISP+36, DISP+37, WP+13
RCLOCDV	PROC+2~
RCLSTMGR	EN+1~, EN+4, EN+32, EN+35, EN+36*, EN+37, EN+40, DISP+3, DISP+4, DISP+6 , DISP+16, DISP+39
RCNAM	DISP+5~, DISP+26*, DISP+29
RCNTRY	PROC+2~, PROC+21*
RCNTRY(0	PROC+23, PROC+25, PROC+26, PROC+27, PROC+34
RCNTRY(1	PROC+22
RCNTRY(6	PROC+28, PROC+29, PROC+32
RCPG	EN+1~, EN+6*
RCPGNUM	EN+1~, EN+7, HDRBLD+11, HDRBLD+13*
RCSSD	EN+2~, EN+10*, EN+11, REPRT+7, REPRT+23, HDRBLD+29, HDRLM+10
RCSTA	EN+2~, PROC+17*, PROC+20, PROC+42
RCSTART	EN+2~, EN+14*
RCSTNO	EN+2~, PROC+17*
RCSTOP	EN+2~, EN+6, DISP+6, DISP+9, DISP+16, DISP+33, DISP+39, HDRBLD+11
RCTMPND	EN+2~, EN+5, EN+41, EN+42, EN+51, EN+54, DISP+23, DISP+30, DISP+36, DISP+37 , WP+13
RCTYPE	EN+2~, EN+24*, EN+25, REPRT+18, REPRT+35, HDRBLD+35, HDRLM+16
RCY	RETN+1~, RETN+16*, RETN+17, RETN+18, RETN+27
RMVRSN	PROC+2~, PROC+29*, PROC+42
RR	WP~, WP+2, WP+7, WP+9
SP	DICW+6~, DICW+8*
STANMBR	ERASTA+3~, ERASTA+26, ERASTA+28, ERASTA+29
STAPTR	ERASTA+3~, ERASTA+20*, ERASTA+21, ERASTA+24, ERASTA+26
START	REPRT+4~, REPRT+8, REPRT+24
STNAM	ERASTA+3~, ERASTA+7, ERASTA+11, ERASTA+24, ERASTA+25, ERASTA+28*, ERASTA+29
TIN	DICW+6~, DICW+11*, DICW+18, DICW+23
TRACE	PROC+2~, PROC+26*, PROC+42
TRAN	OUT+3~, OUT+5*, OUT+6
U	EN+14, ERASTA+13, ERASTA+16, ERASTA+20, ERASTA+26, REPRT+8, REPRT+24, REPRT+31, REPRT+36, DISP+14 , DISP+19, DISP+20, DISP+24, DISP+25, DISP+26, DISP+29, DISP+31, PROC+17, PROC+22, PROC+23 , PROC+25, PROC+26, PROC+27, PROC+28, PROC+29, PROC+32, PROC+34, PROC+42, HDRBLD+26, HDRLM+6 , HDRLM+7, DICW+8, DICW+9
USER	PROC+2~, PROC+32, PROC+33, PROC+42
VAUTD	EN+2~, EN+18, EN+19, PROC+20
VAUTD(	EN+22
X	EN+2~, DISPTY+3~, REPRT+4~, RETN+1~, NOCHNG+1~
Y	EN+2~, EN+17, DISPTY+3~, DISPTY+7, DISPTY+8, ERASTA+3~, ERASTA+14, ERASTA+16, DISP+5~, DISP+10* , DISP+14, DISP+19, DISP+20, DISP+24, DISP+25, DISP+26, DISP+29, DISP+31, PROC+2~, PROC+16* , PROC+17, PROC+23, PROC+24, PROC+28, PROC+32, PROC+33, HDRBLD+18~, HDRBLD+20, HDRBLD+21, HDRBLD+23* , HDRBLD+24, HDRBLD+27, HDRBLD+28, HDRBLD+29, HDRBLD+30, HDRBLD+31!, HDRBLD+32, HDRBLD+33, HDRBLD+34, HDRBLD+35* , HDRBLD+36, HDRBLD+43, HDRLM+4~, HDRLM+8, HDRLM+9, HDRLM+10, HDRLM+11, HDRLM+12!, HDRLM+13, HDRLM+14 , HDRLM+15, HDRLM+16, HDRLM+17, WP+3~, WP+9, WP+10, WP+11, RETN+1~, RETN+10, RETN+26 , RETN+28, NOCHNG+1~, DICW+7, DICW+10, DICW+11, DICW+12, DICW+13
Y(	HDRBLD+27, HDRLM+8
Y("1ST"	HDRBLD+26, HDRBLD+28, HDRLM+6, HDRLM+9
Y("LST"	HDRBLD+26, HDRBLD+28, HDRLM+7, HDRLM+9
ZROND	REPRT+4~, REPRT+13, REPRT+14, REPRT+29, REPRT+30, REPRT+31, REPRT+36
ZTDESC	EN+61~, EN+63*
>> ZTQUEUED	DISP+39
ZTRTN	EN+61~, EN+62*
ZTSAVE	EN+61~
ZTSAVE("RC*"	EN+64*
ZTSAVE("VAUTD"	EN+64*
ZTSK	EN+61~, EN+66
ZZ	DISP+5~, DISP+14, DISP+15, DISP+20, DISP+21*, DISP+22

Customize PDF page

Package: Accounts Receivable

Routine: RCDPEM3

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 12

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items