Routine: RCDPEDAR

Package	Total	Call Graph
Accounts Receivable	8	($$ASKLM,$$ENDORPRT,ASK,LMRPT)^RCDPEARL RPT2^RCDPEDA2 (HDR,SL,TOTSDAY,TOTSF)^RCDPEDA3 ($$DBTONLY,$$DEPBAL,$$DTRANGE,$$RTYPE,$$UNBALONLY,EXCELHDR,LMHDR)^RCDPEDA4 ($$DISPTY,$$ERASTA)^RCDPEM3 INFO^RCDPEM6 ($$ISSEL,$$ISTYPE,$$PAYRNG,$$RTYPE,$$SELPAY)^RCDPEU1 $$MATCHDT^RCDPEWL7
Kernel	4	(,HOME)^%ZIS ^%ZISC (,$$S)^%ZTLOAD $$FMTE^XLFDT
Generic Code Sheet	1	$$STATUS^GECSSGET
Registration	1	DIVISION^VAUTOMA
VA FileMan	1	$$GET1^DIQ

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
EN(RCDET,RCDT1,RCDT2,RCLSTMGR,DONLY,RCEXCEL,RCUNBAL)	; 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 ; RCEXCEL - 1 display in Excel format, 0 otherwise ;PRCA4.5439 Add Excel ; Optional, defaults to 0 ; RCUNBAL - A - All, B - Balanced, U - Unbalanced ; PRCA4.5439 Add Unbalanced/Balanced selection ; Optional, defaults to All ; 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	;
EXCEL(INPUT)	; Loop to print Excel Format ;PRCA4.5439 Add EXCEL tag ; 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 ; Output in Excel Format
EXCEL2(IEN3443,IEN34431)
EXCELTR(IEN344,IEN34431,TRDOCS,TRSTAT)	;Get TR #s ;PRCA4.5439 Add EXCELTR tag ; Input: IEN344 - Internal IEN for file 344 ; IEN34431 - Internal IEN for file 344.31 ; TRDOCS - Variable to hold list of TR document numbers
EXCELRST(IEN344,TRDOCS,TRSTAT)

External References

Name	Field # of Occurrence
^%ZIS	RPT+53
HOME^%ZIS	RPT+66
^%ZISC	ENQ+17
^%ZTLOAD	RPT+63
$$S^%ZTLOAD	EN+77
$$GET1^DIQ	EN+69, EXCEL2+9, EXCEL2+12, EXCEL2+16, EXCEL2+18, EXCEL2+19, EXCEL2+20, EXCEL2+21, EXCEL2+25, EXCEL2+27 , EXCEL2+29, EXCEL2+30, EXCEL2+34, EXCEL2+35, EXCEL2+38, EXCEL2+40, EXCEL2+42, EXCEL2+44, EXCEL2+46, EXCEL2+48 , EXCEL2+54, EXCELTR+9, EXCELTR+10, EXCELTR+13, EXCELTR+14, EXCELTR+18, EXCELTR+20, EXCELTR+28, EXCELTR+30, EXCELRST+11
$$STATUS^GECSSGET	EXCEL2+22, EXCELTR+15, EXCELRST+12
$$ASKLM^RCDPEARL	RPT+40
$$ENDORPRT^RCDPEARL	RPT1+48
ASK^RCDPEARL	ENQ+23
LMRPT^RCDPEARL	RPT+48
RPT2^RCDPEDA2	RPT1+42
HDR^RCDPEDA3	RPT1+34
SL^RCDPEDA3	RPT1+39, RPT1+40, RPT1+48
TOTSDAY^RCDPEDA3	RPT1+44
TOTSF^RCDPEDA3	RPT1+47
$$DBTONLY^RCDPEDA4	RPT+25
$$DEPBAL^RCDPEDA4	EN+50, EXCEL2+13
$$DTRANGE^RCDPEDA4	RPT+8
$$RTYPE^RCDPEDA4	RPT+6
$$UNBALONLY^RCDPEDA4	RPT+28
EXCELHDR^RCDPEDA4	EXCEL+9
LMHDR^RCDPEDA4	RPT+47
$$DISPTY^RCDPEM3	RPT+34
$$ERASTA^RCDPEM3	CHKDIV+11
INFO^RCDPEM6	RPT+36
$$ISSEL^RCDPEU1	EN+61
$$ISTYPE^RCDPEU1	EN+63
$$PAYRNG^RCDPEU1	RPT+15
$$RTYPE^RCDPEU1	RPT+12
$$SELPAY^RCDPEU1	RPT+23
$$MATCHDT^RCDPEWL7	EXCEL2+37
DIVISION^VAUTOMA	RPT+4
$$FMTE^XLFDT	RPT1+37, EXCEL2+15, EXCEL2+28

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+64
Function Call: WRITE	Prompt: !!,"* END OF REPORT *",! Line Location: EXCEL+21
Function Call: WRITE	Prompt: !,DEPNUM,"^",RCDBAL,"^",$$FMTE^XLFDT(DEPDT\1,"2Z"),$G(MULT),"^",TOTDEP,"^" Line Location: EXCEL2+15
Function Call: WRITE	Prompt: XX,"^" Line Location: EXCEL2+24
Function Call: WRITE	Prompt: XX,"^" Line Location: EXCEL2+26
Function Call: WRITE	Prompt: $$FMTE^XLFDT(XX\1,"2Z"),"^" Line Location: EXCEL2+28
Function Call: WRITE	Prompt: XX,"^" Line Location: EXCEL2+32
Function Call: WRITE	Prompt: XX,"^",YY,"^",MDT,"^" Line Location: EXCEL2+39
Function Call: WRITE	Prompt: XX,"^" Line Location: EXCEL2+41
Function Call: WRITE	Prompt: XX,"^" Line Location: EXCEL2+45
Function Call: WRITE	Prompt: PAYER,"^",PAYID,"^" Line Location: EXCEL2+49
Function Call: WRITE	Prompt: TRDOCS,"^" Line Location: EXCEL2+52
Function Call: WRITE	Prompt: XX,"^" Line Location: EXCEL2+55
Function Call: WRITE	Prompt: TRSTAT Line Location: EXCEL2+56
Routine Call	%ZIS Line Location: RPT+53
Routine Call	%ZIS Line Location: RPT+66

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^RCY(344 - [#344]	GET1^DIQ
^RCY(344.3 - [#344.3]	GET1^DIQ
^RCY(344.31 - [#344.31]	GET1^DIQ
^RCY(344.4 - [#344.4]	GET1^DIQ
344.48	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^RCY(344.3 - [#344.3]	EN+39, EN+44, EXCEL2+7, EXCEL2+10
^RCY(344.31 - [#344.31]	EN+57, CHKDIV+10
^RCY(344.4 - [#344.4]	EXCELTR+25
^TMP("RCDAILYACT"	EN+27!, EN+71, EN+73, ENQ+13!, RPT1+30, EXCEL+14, EXCEL+16, EXCEL+18
^TMP("RCDPEU1"	ENQ+15!
^TMP("RCSELPAY"	ENQ+13!
^TMP($J	RPT+45!, RPT+48, RPT+49!, EN+28!, ENQ+12!, ENQ+14!

Label References

Name	Line Occurrences
$$CHKDIV	EN+65
CHKDIVX	CHKDIV+8, CHKDIV+9, CHKDIV+12
EN	RPT+46, RPT+69
ENQ	EN+87
EXCEL	EN+86
EXCEL2	EXCEL+19
EXCELTR	EXCEL2+51
RPT1	EN+85

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	RPT+2~, RPT+52*
CURPG	RPT1+20~, RPT1+24*
DEPDT	EXCEL2+5~, EXCEL2+9*, EXCEL2+10, EXCEL2+15
DEPNUM	EXCEL2+5~, EXCEL2+9*, EXCEL2+10, EXCEL2+15
DETL	RPT1+20~, RPT1+21*, RPT1+33, RPT1+36
DFLG	EN+17~, EN+68, EN+69, EXCEL2+5~, EXCEL2+17
DONLY	EN~, EN+36, EN+68
DTADD	EN+17~, EN+33, EN+38, EN+39, EN+40, EN+41, EN+44, EN+71, EN+73, RPT1+20~ , RPT1+28, RPT1+29, RPT1+30, RPT1+31, RPT1+37, RPT1+41, EXCEL+10~, EXCEL+12, EXCEL+13, EXCEL+14 , EXCEL+16, EXCEL+18
DTEND	RPT1+20~, RPT1+26*
>> DTOUT	RPT+37
DTST	RPT1+20~, RPT1+25*
>> DUOUT	RPT+37
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
IEN344	EXCEL2+5~, EXCEL2+42*, EXCEL2+44, EXCEL2+51, EXCEL2+54, EXCELTR~, EXCELRST~, EXCELRST+11
IEN3443	EN+17~, EN+42, EN+43, EN+44, EN+45, EN+50, EN+57, EN+71, EN+73, EXCEL+10~ , EXCEL+15, EXCEL+16, EXCEL+18, EXCEL+19, EXCEL2~, EXCEL2+7, EXCEL2+9, EXCEL2+12, EXCEL2+13
IEN34431	EN+17~, EN+55, EN+56, EN+57, EN+58, EN+61, EN+63, EN+65, EN+69, EN+71 , EXCEL+10~, EXCEL+17, EXCEL+18, EXCEL+19, EXCEL2~, EXCEL2+16, EXCEL2+18, EXCEL2+19, EXCEL2+25, EXCEL2+27 , EXCEL2+29, EXCEL2+30, EXCEL2+34, EXCEL2+35, EXCEL2+37, EXCEL2+38, EXCEL2+40, EXCEL2+42, EXCEL2+46, EXCEL2+48 , EXCEL2+51, EXCELTR~, EXCELTR+9, EXCELTR+10
IEN3444	EXCELTR+7~, EXCELTR+9*, EXCELTR+11, EXCELTR+18, EXCELTR+25, EXCELTR+27
IENS	EXCELTR+7~, EXCELTR+27*, EXCELTR+28
INPUT	EN+17~, EN+25, EN+34, EN+35, EN+36, EN+37, EN+38, EN+43, EN+79, EN+82 , EN+83, EN+84, EN+85, EN+86, EN+87, 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, EXCEL~ , EXCEL+13
IO	RPT+68
IO("Q"	RPT+56, RPT+65!
LSTMAN	RPT1+20~, RPT1+22*, RPT1+33
MDT	EXCEL2+5~, EXCEL2+36, EXCEL2+37, EXCEL2+39
MULT	EXCEL2+5~, EXCEL2+7, EXCEL2+11, EXCEL2+15
NAME	CHKDIV+6~, CHKDIV+11*, CHKDIV+12, CHKDIV+13
NJ	RPT1+20~, RPT1+23*
PAMT	EXCEL2+5~, EXCEL2+18*
PAYER	EXCEL2+5~, EXCEL2+46, EXCEL2+47, EXCEL2+49
PAYID	EXCEL2+5~, EXCEL2+48*, EXCEL2+49
POP	RPT+1~, RPT+54
RCDBAL	EN+17~, EN+50, EN+52, EN+54, EXCEL2+5~, EXCEL2+13, EXCEL2+15
RCDBALOK	EN+17~, EN+49, EN+52, EN+54*
RCDEBIT	EXCEL2+5~, EXCEL2+30*, EXCEL2+31
RCDET	RPT+1~, RPT+6*, RPT+7, RPT+33, RPT+46, RPT+47, RPT+58, RPT+69, EN~, EN+25
RCDIV	RPT+1~
RCDONLY	RPT+1~, RPT+25*, RPT+26, RPT+46, RPT+47, RPT+58, RPT+69
RCDT1	RPT+1~, RPT+8, RPT+46, RPT+47, RPT+58, RPT+69, EN~, EN+33, EN+83
RCDT2	RPT+1~, RPT+8, RPT+46, RPT+47, RPT+58, RPT+69, EN~, EN+38, EN+41, EN+84
RCEXCEL	RPT+1~, RPT+33, RPT+34, RPT+36, RPT+40, RPT+69, EN~, EN+20*, EN+85, EN+86
RCEXSTOP	RPT+1~, RPT+33, RPT+34, RPT+37*
RCFLG	EN+17~, EN+55, EN+70, EN+73
RCHDR	RPT+1~, RPT+47, RPT+48
RCINC	RPT+1~
RCJOB	EN+17~, EN+26*
RCLSTMGR	RPT+1~, RPT+36, RPT+40, RPT+43, RPT+46, RPT+69, EN~, EN+19*, EN+24, EN+25
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+22, EN+60
RCPYRSEL	RPT+2~
RCRANGE	RPT+2~
RCSTA	CHKDIV+6~, CHKDIV+11*
RCSTOP	RPT+2~, RPT+47
RCT	EN+17~, EN+33, EN+74, EN+77
RCTMPND	RPT+2~, RPT+44*, RPT+45, RPT+48, RPT+49
RCTYPE	RPT+2~, RPT+12*, RPT+13, RPT+20, EN+62, EN+63
RCUNBAL	RPT+2~, RPT+28, RPT+29, RPT+46, RPT+58, RPT+69, EN~, EN+21, EN+37, EN+49 , EN+52, EN+54
RECEIPT	EXCELTR+7~, EXCELTR+10, EXCELTR+12, EXCELTR+13, EXCELTR+14, EXCELTR+18, EXCELTR+19, EXCELTR+20, EXCELTR+28*, EXCELTR+29 , EXCELTR+30
RES	CHKDIV+6~, CHKDIV+7, CHKDIV+8, CHKDIV+13*, CHKDIVX+1
TOTDEP	EXCEL2+5~, EXCEL2+12*, EXCEL2+15
TRDOC	EXCEL2+5~, EXCEL2+20, EXCEL2+22, EXCELTR+7~, EXCELTR+13, EXCELTR+15, EXCELTR+17, EXCELTR+20, EXCELTR+21, EXCELTR+22 , EXCELTR+30, EXCELTR+31, EXCELTR+32, EXCELRST+7~, EXCELRST+9, EXCELRST+10, EXCELRST+12
TRDOCS	EXCEL2+5~, EXCEL2+51, EXCEL2+52, EXCELTR~, EXCELTR+8, EXCELTR+22, EXCELTR+32*, EXCELRST~, EXCELRST+9
TRSTAT	EXCEL2+5~, EXCEL2+51, EXCEL2+56, EXCELTR~, EXCELTR+8, EXCELTR+14, EXCELTR+15, EXCELRST~, EXCELRST+8, EXCELRST+13*
U	CHKDIV+10, CHKDIV+11
VAUTD	RPT+2~, RPT+5, EN+65, CHKDIV~, CHKDIV+8, CHKDIV+13
VAUTD(	CHKDIV+13
X	RPT+2~, EXCEL2+5~, EXCEL2+21, EXCEL2+22, EXCEL2+23, EXCELRST+7~, EXCELRST+11, EXCELRST+12, EXCELRST+13
XX	RPT+2~, RPT+8, RPT+9, RPT+18, RPT+23, EN+17~, EN+24, EN+25, EN+60, EN+61 , EN+62, EN+63, ENQ+11~, ENQ+18, ENQ+21, ENQ+22, ENQ+23, EXCEL2+5~, EXCEL2+10, EXCEL2+11 , EXCEL2+19, EXCEL2+20, EXCEL2+21, EXCEL2+23, EXCEL2+24, EXCEL2+25, EXCEL2+26, EXCEL2+27, EXCEL2+28, EXCEL2+29* , EXCEL2+31, EXCEL2+32, EXCEL2+34, EXCEL2+37, EXCEL2+38, EXCEL2+39, EXCEL2+40, EXCEL2+41, EXCEL2+43, EXCEL2+44 , EXCEL2+45, EXCEL2+53, EXCEL2+54, EXCEL2+55, EXCELTR+7~, EXCELTR+23, EXCELTR+24, EXCELTR+25, EXCELTR+26, EXCELTR+27
Y	RPT+2~
YY	ENQ+11~, ENQ+19, ENQ+21, EXCEL2+5~, EXCEL2+16, EXCEL2+17, EXCEL2+35*, EXCEL2+39
Z	EN+17~
ZTDESC	RPT+57~, RPT+59*
>> ZTQUEUED	EN+77, ENQ+16, ENQ+24
ZTREQ	EN+80!, ENQ+24*
ZTRTN	RPT+57~, RPT+58*
ZTSAVE	RPT+57~
ZTSAVE("RC*"	RPT+60*
ZTSAVE("VAUTD"	RPT+60*
ZTSAVE("^TMP(""RCDPEU1"",$J,"	RPT+61*
ZTSK	RPT+57~, RPT+64, RPT+65!, EN+18
ZTSTOP	EN+18~, EN+78*
ZZ	ENQ+11~, ENQ+20*, ENQ+21

Customize PDF page

Package: Accounts Receivable

Routine: RCDPEDAR

Information

Source Information

Call Graph

Call Graph Total: 15

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: