Routine: RCDPEDAR

Package	Total	Call Graph
Accounts Receivable	6	($$ASKLM,$$ENDORPRT,ASK,LMRPT)^RCDPEARL RPT2^RCDPEDA2 (HDR,SL,TOTSDAY,TOTSF)^RCDPEDA3 LMHDR^RCDPEDA4 $$ERASTA^RCDPEM3 ($$ISSEL,$$ISTYPE,$$PAYRNG,$$RTYPE,$$SELPAY)^RCDPEU1
Kernel	4	(,HOME)^%ZIS ^%ZISC (,$$S)^%ZTLOAD $$FMTE^XLFDT
VA FileMan	2	$$GET1^DIQ ^DIR
Registration	1	DIVISION^VAUTOMA

Package	Total	Caller Graph
Accounts Receivable	3	RCDPE EDI LOCKBOX ACT REPORT RCDPELAR RCDPEMAP

Entry Points

Name	Comments	DBIA/ICR reference
RPT	; Daily Activity Rpt On Demand
DBTONLY()	; Allows the user to select filter to only show EFTs with debits ; PRCA4.5321 Added subroutine ; Input: None ; Returns: 0 - All EFTs to display ; 1 - Only EFTs with debits to be displayed ; -1 - User up-arrowed or timed out
RTYPE()	; Allows the user to select the report type (Summary/Detail) ; Input: None ; Returns: 0 - Summary Display ; 1 - Detail Display ; -1 - User up-arrowed or timed out
DTRANGE(STDATE,ENDDATE)	; Allows the user to select the date range to by used ; Input: None ; Output: STDATE = Internal Fileman Date to start at ; ENDDATE - Internal Fileman Date to end at ; Returns: 0 - User up-arrowed or timed out, 1 otherwise
EN(RCDET,RCDT1,RCDT2,RCLSTMGR,DONLY)	; Entry point for report, might be queued ; Input: RCDET - 1 - Detail Report, 0 - Summary ; RCDT1 - Internal Fileman Start date ; RCDT2 - Internal Fileman End date ; RCLSTMGR - 1 display in list manager, 0 otherwise ; Optional, defaults to 0 ; DONLY - 1 only display EFTs with a debit flag of 'D' ; 0 display all EFTs ; RCPAY - A - All Payers selected ; - R - Range of Payers ; - S - Specific payers ; RCPYRSEL - Array of selected payers (Only present if A1=3 above ; VAUTD - 1 - All selected divisions OR an array of selected divisions
ENQ(INPUT)	; Clean up ; Input: INPUT - A1^A2^A3^...^A8 Where: ; A1 - 1 if Detail report, 0 if summary report ; A2 - 1 if displaying to Listman, 0 otherwise ; A3 - 0 if NOT called from Nightly Process, 1 otherwise ; A4 - Current Page Number ; A5 - Stop Flag ; A6 - Start of Date Range ; A7 - End of Date Range ; ZTQUEUED - Defined if Joh was queued ; Output: ZTREQ - "@" Only returned if ZTQUEUED is defined
RPT1(INPUT)	;EP from RCDPEM1 (Nightly Process) ; Output the report ; Input: INPUT - A1^A2^A3^...^An Where: ; A1 - 1 if called from Nightly Process, 0 otherwise ; A2 - 1 if displaying to Listman, 0 otherwise ; A4 - Current Page Number ; A5 - Stop Flag ; A6 - Start of Date Range ; A7 - End of Date Range ; ^TMP(B1,$J,B2,B3) = "" - Array of record IENs in 344.3 in date range ; and for selected payer(s) and division(s) ; ^TMP(B1,$J,B2,B3,"EFT",B4) = "" - Array of record IENS in 344.31 for above Where: ; B1 - "RCDAILYACT" ; B2 - Internal Date from DATE/TIME ADDED (344.3, .13) ; B3 - Internal IEN for 344.3 ; B4 - Internal IEN for file 344.31 ; Output: INPUT - A1^A2^A3^...^An - The following pieces may be updated ; A4 - Current Page Number ; A5 - Stop Flag
CHKDIV(IEN,FLG,VAUTD)	; ; IEN - ien in file 344.31 or 344.4 ; FLG - 0 if IEN contains ien in file 344.31, 1 if IEN contains ien in file 344.4 ; VAUTD - array of selected divisions from DIVISION^VAUTOMA API call ; returns 1 if division associated with an entry in 344.31 is on the list in VAUTD ; returns 0 otherwise
CHKDIVX	;

External References

Name	Field # of Occurrence
^%ZIS	RPT+40
HOME^%ZIS	RPT+53
^%ZISC	ENQ+17
^%ZTLOAD	RPT+50
$$S^%ZTLOAD	EN+61
$$GET1^DIQ	EN+53
^DIR	DBTONLY+12, RTYPE+9, DTRANGE+9, DTRANGE+16
$$ASKLM^RCDPEARL	RPT+27
$$ENDORPRT^RCDPEARL	RPT1+48
ASK^RCDPEARL	ENQ+23
LMRPT^RCDPEARL	RPT+35
RPT2^RCDPEDA2	RPT1+42
HDR^RCDPEDA3	RPT1+34
SL^RCDPEDA3	RPT1+39, RPT1+40, RPT1+48
TOTSDAY^RCDPEDA3	RPT1+44
TOTSF^RCDPEDA3	RPT1+47
LMHDR^RCDPEDA4	RPT+34
$$ERASTA^RCDPEM3	CHKDIV+11
$$ISSEL^RCDPEU1	EN+45
$$ISTYPE^RCDPEU1	EN+47
$$PAYRNG^RCDPEU1	RPT+15
$$RTYPE^RCDPEU1	RPT+12
$$SELPAY^RCDPEU1	RPT+23
DIVISION^VAUTOMA	RPT+4
$$FMTE^XLFDT	RPT1+37

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$S($D(ZTSK):"Task number "_ZTSK_" was queued.",1:"Unable to queue this task.") Line Location: RPT+51
Routine Call	%ZIS Line Location: RPT+40
Routine Call	%ZIS Line Location: RPT+53
Routine Call	DIR Line Location: DBTONLY+12 RTYPE+9 DTRANGE+9 DTRANGE+16

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^RCY(344.3 - [#344.3]	EN+32, EN+37
^RCY(344.31 - [#344.31]	EN+41, CHKDIV+10
^TMP("RCDAILYACT"	EN+21!, EN+55, EN+57, ENQ+13!, RPT1+30
^TMP("RCDPEU1"	ENQ+15!
^TMP("RCSELPAY"	ENQ+13!
^TMP($J	RPT+32!, RPT+35, RPT+36!, EN+22!, ENQ+12!, ENQ+14!

Label References

Name	Line Occurrences
$$CHKDIV	EN+49
$$DBTONLY	RPT+25
$$DTRANGE	RPT+8
$$RTYPE	RPT+6
CHKDIVX	CHKDIV+8, CHKDIV+9, CHKDIV+12
EN	RPT+33, RPT+56
ENQ	EN+70
RPT1	EN+69

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	RPT+2~, RPT+39*
CURPG	RPT1+20~, RPT1+24*
DETL	RPT1+20~, RPT1+21*, RPT1+33, RPT1+36
DFLG	EN+13~, EN+52, EN+53*
DIR	DBTONLY+6~, RTYPE+5~, DTRANGE+5~, DTRANGE+12!
DIR("?"	DBTONLY+10, DBTONLY+11, DTRANGE+6, DTRANGE+13
DIR("A"	DBTONLY+7, RTYPE+6, DTRANGE+8, DTRANGE+15
DIR("B"	DBTONLY+9, RTYPE+8, DTRANGE+14*
DIR(0	DBTONLY+8, RTYPE+7, DTRANGE+7, DTRANGE+15
DIROUT	DBTONLY+6~, RTYPE+5~, DTRANGE+5~
DIRUT	DBTONLY+6~, RTYPE+5~, DTRANGE+5~
DONLY	EN~, EN+30, EN+52
DT	DTRANGE+7, DTRANGE+15
DTADD	EN+13~, EN+27, EN+31, EN+32, EN+33, EN+34, EN+37, EN+55, EN+57, RPT1+20~ , RPT1+28, RPT1+29, RPT1+30, RPT1+31, RPT1+37, RPT1+41
DTEND	RPT1+20~, RPT1+26*
DTOUT	DBTONLY+6~, DBTONLY+13, RTYPE+5~, RTYPE+10, DTRANGE+5~, DTRANGE+10, DTRANGE+17
DTST	RPT1+20~, RPT1+25*
DUOUT	DBTONLY+6~, DBTONLY+13, RTYPE+5~, RTYPE+10, DTRANGE+5~, DTRANGE+10, DTRANGE+17
ENDDATE	DTRANGE~, DTRANGE+18*
ERA	CHKDIV+6~, CHKDIV+10*, CHKDIV+11
FLG	CHKDIV~, CHKDIV+10
HDR1	RPT1+20~, RPT1+37, RPT1+38, RPT1+39
I	CHKDIV+6~, CHKDIV+13*
IEN	CHKDIV~, CHKDIV+9, CHKDIV+10
IEN3443	EN+13~, EN+35, EN+36, EN+37, EN+38, EN+41, EN+55, EN+57
IEN34431	EN+13~, EN+39, EN+40, EN+41, EN+42, EN+45, EN+47, EN+49, EN+53, EN+55
INPUT	EN+13~, EN+19, EN+28, EN+29, EN+30, EN+31, EN+36, EN+63, EN+66, EN+67 , EN+68, EN+69, EN+70, ENQ~, ENQ+18, ENQ+19, ENQ+20, RPT1~, RPT1+21, RPT1+22 , RPT1+23, RPT1+24, RPT1+25, RPT1+26, RPT1+27, RPT1+29, RPT1+33, RPT1+34, RPT1+39, RPT1+40 , RPT1+41*, RPT1+42, RPT1+43, RPT1+44, RPT1+46, RPT1+47, RPT1+48
IO	RPT+55
IO("Q"	RPT+43, RPT+52!
LSTMAN	RPT1+20~, RPT1+22*, RPT1+33
NAME	CHKDIV+6~, CHKDIV+11*, CHKDIV+12, CHKDIV+13
NJ	RPT1+20~, RPT1+23*
POP	RPT+1~, RPT+41
RCDET	RPT+1~, RPT+6*, RPT+7, RPT+33, RPT+34, RPT+45, RPT+56, EN~, EN+19
RCDIV	RPT+1~
RCDONLY	RPT+1~, RPT+25*, RPT+26, RPT+33, RPT+34, RPT+45, RPT+56
RCDT1	RPT+1~, RPT+8, RPT+33, RPT+34, RPT+45, RPT+56, DTRANGE+15, EN~, EN+27, EN+67
RCDT2	RPT+1~, RPT+8, RPT+33, RPT+34, RPT+45, RPT+56, EN~, EN+31, EN+34, EN+68
RCFLG	EN+13~, EN+39, EN+54, EN+57
RCHDR	RPT+1~, RPT+34, RPT+35
RCINC	RPT+1~
RCJOB	EN+13~, EN+20*
RCLSTMGR	RPT+1~, RPT+27, RPT+28, RPT+30, RPT+33, RPT+56, EN~, EN+15, EN+18, EN+19
RCNJ	RPT+1~, RPT+3*
RCPAR	RPT+2~, RPT+23
RCPAR("DICA"	RPT+22*
RCPAR("FILE"	RPT+21*
RCPAR("SELC"	RPT+19*
RCPAR("TYPE"	RPT+20*
RCPAY	RPT+2~, RPT+15, RPT+16, RPT+18, RPT+19, EN+16, EN+44
RCPYRSEL	RPT+2~
RCRANGE	RPT+2~
RCSTA	CHKDIV+6~, CHKDIV+11*
RCSTOP	RPT+2~, RPT+34
RCT	EN+13~, EN+27, EN+58, EN+61
RCTMPND	RPT+2~, RPT+31*, RPT+32, RPT+35, RPT+36
RCTYPE	RPT+2~, RPT+12*, RPT+13, RPT+20, EN+46, EN+47
RES	CHKDIV+6~, CHKDIV+7, CHKDIV+8, CHKDIV+13*, CHKDIVX+1
STDATE	DTRANGE~, DTRANGE+11*
U	CHKDIV+10, CHKDIV+11
VAUTD	RPT+2~, RPT+5, EN+49, CHKDIV~, CHKDIV+8, CHKDIV+13
VAUTD(	CHKDIV+13
X	RPT+2~
XX	RPT+2~, RPT+8, RPT+9, RPT+18, RPT+23, EN+13~, EN+18, EN+19, EN+44, EN+45 , EN+46, EN+47, ENQ+11~, ENQ+18, ENQ+21, ENQ+22*, ENQ+23
Y	RPT+2~, DBTONLY+13, DBTONLY+14, RTYPE+10, RTYPE+11, DTRANGE+10, DTRANGE+11, DTRANGE+17, DTRANGE+18
Y(0	DTRANGE+14
YY	ENQ+11~, ENQ+19*, ENQ+21
Z	EN+13~
ZTDESC	RPT+44~, RPT+46*
>> ZTQUEUED	EN+61, ENQ+16, ENQ+24
ZTREQ	EN+64!, ENQ+24*
ZTRTN	RPT+44~, RPT+45*
ZTSAVE	RPT+44~
ZTSAVE("RC*"	RPT+47*
ZTSAVE("VAUTD"	RPT+47*
ZTSAVE("^TMP(""RCDPEU1"",$J,"	RPT+48*
ZTSK	RPT+44~, RPT+51, RPT+52!, EN+14
ZTSTOP	EN+14~, EN+62*
ZZ	ENQ+11~, ENQ+20*, ENQ+21

Customize PDF page

Package: Accounts Receivable

Routine: RCDPEDAR

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: