Routine: RCDPTAR

Package	Total	Call Graph
Accounts Receivable	4	($$CUTOFF,CHKEFT)^RCDPEWLP ($$DATE,$$NOW)^RCDPRU (SUM,SUM2)^RCDPTAR1 $$FMSSTAT^RCDPUREC
Kernel	4	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$UP^XLFSTR
VA FileMan	3	(,IX)^DIC ($$GET1,GETS)^DIQ ^DIR

Package	Total	Caller Graph
Accounts Receivable	3	RCDPE EFT TRANSACTION AUD REP RCDPTAR1 RCDPTAR2

Entry Points

Name	Comments	DBIA/ICR reference
EN	; Main entry point for this report ; Ask Summary or Detail output
ASKSUM2()	; Ask the user if they want to display the summary report by Deposit Date ; or by Deposit Number ; Input: None ; Returns: -1 - User quit or timed out ; 1 - Display Summary report by Deposit Date ; 2 - Display Summary report by Deposit Number
DET	; Entry point for detailed report ; Input: variable RCREP defined and equal to "D" ; Output: Written to device
DET1	; Prompt for user selection criteria
SHOWONE(STOP)	; Prompt for device and output data for one EFT ; Input: STOP - Initially set to 0 ; Output: STOP - 1 user entered '^', 0 otherwise
RUN(RCDATA)	; Compile and output the report ; Input: RCDATA - see subroutine EFTDA for delimited list of fields ; Output: none
DN(RCDATA)	; Lookup by Deposit Number ; Input: RCDATA - null on entry ; Output: RCDATA - passed by refence - see subroutine EFTDATA for delimited list of fields ; Note variable RCDEFLUP is needed by LOOKUP^RCDPUDEP, which is called by the .01 field
DN2	; Lookup Deposit Number ;PRCA4.5371 Added looping Tag
DT(RCDATA)	; Deposit Date ; Input: RCDATA - null on entry ; Output: RCDATA - passed by refence - see subroutine EFTDATA for delimited list of fields
DT1	; Ask the user for the Deposit Date
DT2	; Multiple entries found so prompt for the one that is wanted ;PRCA4.5371 Added looping Tag
TR(RCDATA)	; Lookup by Trace Number ; Input: RCDATA - null on entry ; Output: RCDATA - passed by refence - see subroutine EFTDATA for delimited list of fields
TR2	; Use "F" index in EDI EFT Detail file ;PRCA4.5371 Added looping Tag
EFT(LOCKIEN)	; Select a single EFT Number ; Input: LOCKIEN - IEN for LOCKBOX DEPOSIT (#344.3) ; Return: LIST(Y) - Delimiter list of information as returned by suboutine EFTDATA
EFT1	;
EFTDATA(EFTIEN)	; Get associated records for this EFT ; Input: EFTIEN - IEN for EFT [344.31] ; Returns: A1^A2^A3^A4^45 ; where A1=ERAIEN - IEN for ERA (#344.4) ; A2=LOCKIEN - IEN for LOCKBOX DEPOSIT (#344.3) ; A3=EFTIEN - IEN for EFT (#344.31) ; A4=DEPIEN - IEN for AR DEPOSIT (#344.1) ; A5=BATCHIEN - IEN for AR BATCH PAYMENT (#344)
DISPLAY(EFTIEN,LOCKIEN)	; Display EFT detail during user selection process ; Input: EFTIEN - IEN for EFT (#344.31) ; LOCKIEN - IEN for LOCKBOX DEPOSIT (#344.3) ; Return: X1_" "_X2_" "_X3_" "_X4_" "_X5 ; where X1=PAYER NAME ; X2=TRACE NUMBER ; X3=AMOUNT OF PAYMENT ; X4=DEPOSIT NUMBER ; X5=DEPOSIT DATE
COMPILE(RCDATA)	; Compile data for display ; Input: RCDATA - see subroutine EFTDA for delimited list of fields ; Output: ^TMP("RCDPTAR",$J)
REPORT(RCDATA)	; Print out the report ; Input: RCDATA - see subroutine EFTDA about for delimited list of fields ; Output: Write statements
HEADER(RCNOW,RCPG,RCHR,RCDATA)	; Print Header Section ; Input: RCNOW - DATE/TIME in external format ; RCPG - Current page number ; RCHR - Line of "-" to margin width ; RCDATA - See subroutine EFTDA about for delimited list of fields ; Output: Write statements
PAUSE()	; Pause at end of each page for user input ; Input: None ; Output: User response
CHKP(RCNOW,RCPG,RCHR,RCDATA,RCSCR,LINES)	; Check if we need to do a page break ; Input: RCNOW - DATE/TIME in external format ; RCPG - Current page number ; RCHR - Line of "-" to margin width ; RCDATA - See subroutine EFTDA about for delimited list of fields ; RCSCR - 1 - Output is going to the users screen, 0 - to printer ; LINES - Current line count
AGED(EFTIEN)	; Check if EFT is locked or stale ; Input ; EFTIEN: IEN of EDI THIRD PARTY EFT DETAIL (#344.31) ; Output ; "" - Warning; "*" - Error; Null - Good

External References

Name	Field # of Occurrence
^%ZIS	SHOWONE+6
HOME^%ZIS	SHOWONE+16
^%ZISC	REPORT+27
^%ZTLOAD	SHOWONE+14
^DIC	DN2+4
IX^DIC	TR2+6
$$GET1^DIQ	EFT+23, EFT+26, EFTDATA+13, EFTDATA+14, EFTDATA+15, DISPLAY+12, DISPLAY+15, DISPLAY+16, DISPLAY+17, COMPILE+23 , COMPILE+25, COMPILE+43, COMPILE+48, COMPILE+52, COMPILE+55, COMPILE+57, COMPILE+62, HEADER+16, AGED+6, AGED+8
GETS^DIQ	COMPILE+17, COMPILE+36
^DIR	EN+8, ASKSUM2+10, DET1+14, DT1+4, DT2+13, EFT+29, PAUSE+6
$$CUTOFF^RCDPEWLP	AGED+7
CHKEFT^RCDPEWLP	AGED+9
$$DATE^RCDPRU	DT1+30, DT2+1, DISPLAY+17, COMPILE+44, COMPILE+62, REPORT+22, HEADER+18
$$NOW^RCDPRU	REPORT+8
SUM^RCDPTAR1	EN+17
SUM2^RCDPTAR1	EN+18
$$FMSSTAT^RCDPUREC	COMPILE+51, COMPILE+60
$$UP^XLFSTR	REPORT+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: EN+4
Function Call: WRITE	Prompt: !,$S($D(ZTSK):"REQUEST QUEUED TASK="_ZTSK,1:"REQUEST CANCELLED") Line Location: SHOWONE+15
Function Call: WRITE	Prompt: ! Line Location: DN2+1
Function Call: WRITE	Prompt: !!,"EFT NOT FOUND - please check Deposit" Line Location: DN2+9
Function Call: WRITE	Prompt: !,"Date ",$$DATE^RCDPRU(RCDT)," does not have any valid deposits, please try again...",! Line Location: DT1+30
Function Call: WRITE	Prompt: !!,"Deposits on ",$$DATE^RCDPRU(RCDT) Line Location: DT2+1
Function Call: WRITE	Prompt: !," ",$P(DATA,U,3) Line Location: DT2+9
Function Call: WRITE	Prompt: ! Line Location: DT2+12
Function Call: WRITE	Prompt: ! Line Location: TR2+1
Function Call: WRITE	Prompt: !!,"No EFT detail for this selection" Line Location: EFT+4
Function Call: WRITE	Prompt: !!,"No EFT detail for this selection" Line Location: EFT+12
Function Call: WRITE	Prompt: !,"No data found" Line Location: REPORT+12
Function Call: WRITE	Prompt: !,$$DATE^RCDPRU(DATE,"2DZ"),?10,$P(DATA,U,1),?51,$P(DATA,U,2) Line Location: REPORT+22
Function Call: WRITE	Prompt: !,?10,$P(DATA,U,3),?51,$P(DATA,U,4) Line Location: REPORT+23
Function Call: WRITE	Prompt: !,@IOF Line Location: REPORT+25
Function Call: WRITE	Prompt: @IOF Line Location: HEADER+10
Function Call: WRITE	Prompt: "EFT TRANSACTION AUDIT REPORT" Line Location: HEADER+12
Function Call: WRITE	Prompt: ?(IOM-$L(LINE)),LINE Line Location: HEADER+14
Function Call: WRITE	Prompt: !,"EFT#: ",$$AGED(+$P(RCDATA,U,3)),$$GET1^DIQ(344.31,$P(RCDATA,U,3)_",",.01,"E"),?19,"DEPOSIT#: ",$P($G(^RCY(344.3,+$P(RCDATA,U,2),0)),U,6),?42,"EFT TOTAL AMT: "_$S($P(EFTDATA,U,16)="D":"-",1:"")_$P(EFTDATA,U,7) Line Location: HEADER+16
Function Call: WRITE	Prompt: !,"EFT TRACE#: ",$P(EFTDATA,U,4) Line Location: HEADER+17
Function Call: WRITE	Prompt: !,"DATE RECEIVED: ",$$DATE^RCDPRU($P(EFTDATA,U,12)),?26,"PAYER/ID: "_$P(EFTDATA,U,2)_"/"_$P(EFTDATA,U,3) Line Location: HEADER+18
Function Call: WRITE	Prompt: !,"DATE",?10,"ACTION/DETAILS",?51,"STATUS" Line Location: HEADER+20
Function Call: WRITE	Prompt: !,RCHR Line Location: HEADER+21
Routine Call	%ZIS Line Location: SHOWONE+6
Routine Call	%ZIS Line Location: SHOWONE+16
Routine Call	DIC Line Location: DN2+4
Routine Call	DIC Line Location: TR2+6
Routine Call	DIR Line Location: EN+8 ASKSUM2+10 DET1+14 DT1+4 DT2+13 EFT+29 PAUSE+6

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^RCY(344 - [#344]	GET1^DIQ
^RCY(344.1 - [#344.1]	Classic Fileman Calls, GET1^DIQ
^RCY(344.3 - [#344.3]	GET1^DIQ, GETS^DIQ
^RCY(344.31 - [#344.31]	Classic Fileman Calls, GET1^DIQ
344.314	GETS^DIQ
^RCY(344.4 - [#344.4]	GET1^DIQ
^RCY(344.61 - [#344.61]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^RCY(344 - [#344]	EFTDATA+16, COMPILE+24
^RCY(344.1 - [#344.1]	DT1+16
^RCY(344.3 - [#344.3]	DN2+7, DT1+11, DT1+13, DT1+14, HEADER+16
^RCY(344.31 - [#344.31]	EFT+9, COMPILE+32, COMPILE+34, HEADER+8
^TMP("RCDPTAR"	RUN+10!, COMPILE+8!, COMPILE+20, COMPILE+27, COMPILE+44, COMPILE+52, COMPILE+62, COMPILE+63, REPORT+12, REPORT+15 , REPORT+16, REPORT+17
^VA(200 - [#200]	DT1+21

Label References

Name	Line Occurrences
$$AGED	HEADER+16
$$ASKSUM2	EN+14
$$DISPLAY	EFT+25, EFT+28
$$EFT	DN2+13, DT1+34, DT2+16
$$EFTDATA	TR2+8, EFT+10
$$PAUSE	REPORT+30, CHKP+9
@(	DET1+21
CHKP	REPORT+21
COMPILE	RUN+5
DET	EN+19
DN2	DN2+8, DN2+20
DT1	DT1+29, DT1+33, DT2+15
DT2	DT2+23
EFT1	EFT+15
HEADER	REPORT+11, CHKP+10
PAUSE	DN2+10, EFT+4, EFT+12
REPORT	RUN+8
RUN	SHOWONE+18
SHOWONE	DN2+18, DT1+39, DT2+21, TR2+13
TR2	TR2+15

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	SHOWONE+4~, SHOWONE+5*
BATCHIEN	EFTDATA+11~, EFTDATA+12, EFTDATA+16, EFTDATA+17, COMPILE+6~, COMPILE+12, COMPILE+24, COMPILE+47, COMPILE+48, COMPILE+51 , COMPILE+52, COMPILE+55, COMPILE+56, COMPILE+57, COMPILE+60, COMPILE+62
CNT	DT+5~, DT1+10, DT1+18, DT1+20, DT1+26, DT1+29, DT1+33, DT1+34, DT2+6, DT2+11 , EFT+6~, EFT+8, EFT+10, EFT+12, EFT+15, EFT+22, EFT+26, EFT+27, EFT+28, REPORT+4~ , REPORT+16*, REPORT+17
D	TR+3~, TR2+2*
DATA	DT+5~, DT1+16, DT1+17, DT1+20, DT1+21, DT1+22, DT1+23, DT1+24, DT1+25, DT1+26 , DT2+7, DT2+8, DT2+9, EFT+6~, EFT+10, EFT+23, EFT+26, REPORT+4~, REPORT+17*, REPORT+19 , REPORT+22, REPORT+23
DATE	REPORT+4~, REPORT+15*, REPORT+16, REPORT+17, REPORT+22
DAYSLIMT	AGED+5~, AGED+9
DAYSLIMT("M"	AGED+8*
DAYSLIMT("P"	AGED+8*
DEPDATE	COMPILE+6~, COMPILE+25*, COMPILE+26, COMPILE+27, COMPILE+50, COMPILE+58
DEPIEN	DT+5~, DT1+14, DT1+15, DT1+16, EFTDATA+11~, EFTDATA+12, EFTDATA+15, EFTDATA+16, EFTDATA+17, COMPILE+6~ , COMPILE+12, COMPILE+25
DIC	DN+5~, DN2+2, TR+3~, TR2+2
DIC("A"	DN2+2, TR2+2
DIC("W"	DN2+2, TR2+5
DIC(0	DN2+2, TR2+2
DIR	EN+3~, ASKSUM2+6~, DET1+1!, DT+5~, DT1+1!, DT2+2!, EFT+18~, PAUSE+4~
DIR("A"	EN+6, ASKSUM2+8, DET1+12, DT1+3, DT2+4, EFT+20
DIR("B"	EN+7, ASKSUM2+9, DT1+2*
DIR("L"	DET1+5, DET1+6, DET1+7, DET1+8, DET1+9, DET1+10, DET1+11, DT2+5, DT2+8, DT2+11! , EFT+21, EFT+25, EFT+28*
DIR("PRE"	DET1+4*
DIR(0	EN+5, ASKSUM2+7, DET1+2, DT1+2, DT2+3, DT2+7, DT2+10, EFT+19, EFT+24, EFT+27 , PAUSE+5*
DIROUT	EN+3~, ASKSUM2+6~, DT+5~, EFT+18~, PAUSE+4~
DIRUT	EN+3~, ASKSUM2+6~, DT+5~, EFT+18~, PAUSE+4~
DT	DT1+2
DTOUT	EN+3~, EN+9, ASKSUM2+6~, ASKSUM2+11, DET1+15, DN+5~, DN2+5, DT+5~, DT1+5, DT2+14 , TR+3~, TR2+7, EFT+18~, EFT+30, PAUSE+4~
DUOUT	EN+3~, EN+9, ASKSUM2+6~, ASKSUM2+11, DET1+15, DN+5~, DN2+5, DT+5~, DT1+5, DT2+14 , TR+3~, TR2+7, EFT+18~, EFT+30, PAUSE+4~
EFTDATA	HEADER+7~, HEADER+8*, HEADER+16, HEADER+17, HEADER+18
EFTIEN	EFT+6~, EFT+8, EFT+9, EFT+10, EFT+23, EFT+25, EFT+26, EFT+28, EFTDATA~, EFTDATA+9 , EFTDATA+13, EFTDATA+14, EFTDATA+17, DISPLAY~, DISPLAY+10, DISPLAY+12, DISPLAY+15, DISPLAY+16, COMPILE+6~, COMPILE+11 , COMPILE+23, COMPILE+30, COMPILE+32, COMPILE+34, COMPILE+35, COMPILE+43, AGED~, AGED+6, AGED+9
ERAIEN	EFTDATA+11~, EFTDATA+12, EFTDATA+13, EFTDATA+17, COMPILE+6~, COMPILE+11*, COMPILE+55
FILEDATE	COMPILE+6~, COMPILE+18*, COMPILE+19, COMPILE+20
FMSDOCNO	COMPILE+6~, COMPILE+51, COMPILE+52, COMPILE+60, COMPILE+63
IENS	COMPILE+6~, COMPILE+35*, COMPILE+36, COMPILE+37, COMPILE+39, COMPILE+44
IO	SHOWONE+17, REPORT+10
IO("Q"	SHOWONE+9
IOF	REPORT+25, HEADER+10
IOM	REPORT+8, HEADER+14
ION	SHOWONE+11
IOSL	CHKP+8
IOST	REPORT+7
ITEM	DT+5~, DT2+2!
ITEM(	DT2+8*, DT2+16
LASTIEN	COMPILE+6~, COMPILE+32*, COMPILE+43
LINE	DT+5~, DT1+20, DT1+21, DT1+23, DT1+24, DT1+25, DT1+26, DT2+6, DT2+7, DT2+8 , COMPILE+6~, COMPILE+41, COMPILE+43, COMPILE+44, HEADER+7~, HEADER+13*, HEADER+14
LINES	REPORT+4~, REPORT+18, REPORT+19, REPORT+20*, REPORT+21, CHKP~, CHKP+8
LIST	DT+5~, DT1+9!, EFT+6~
LIST(	DT1+26, DT1+34, DT2+7, EFT+10, EFT+23, EFT+26, EFT1+1
LOCKIEN	DN+5~, DN2+7, DN2+8, DN2+13, EFT~, EFT+4, EFT+9, EFT+23, EFT+25, EFT+26* , EFT+28, EFTDATA+11~, EFTDATA+14, EFTDATA+15, EFTDATA+17, DISPLAY~, DISPLAY+11, DISPLAY+16, DISPLAY+17, COMPILE+6~ , COMPILE+11*, COMPILE+16, COMPILE+17, COMPILE+18, COMPILE+20, COMPILE+24, COMPILE+27
MATCHDATE	COMPILE+7~, COMPILE+37*, COMPILE+38, COMPILE+44
MATCHIEN	COMPILE+7~, COMPILE+34*, COMPILE+35, COMPILE+43
POP	SHOWONE+4~, SHOWONE+7, SHOWONE+8
PROCDATE	COMPILE+7~, COMPILE+48, COMPILE+49, COMPILE+50, COMPILE+52, COMPILE+57, COMPILE+58, COMPILE+59, COMPILE+62, COMPILE+63
RCDATA	DET+4~, DET1+19, SHOWONE+18, RUN~, RUN+5, RUN+8, DN~, DN2+5, DN2+13, DN2+16 , DN2+17, DT~, DT1+5, DT1+34, DT1+37, DT1+38, DT2+14, DT2+16, DT2+19, DT2+20 , TR~, TR2+7, TR2+8*, TR2+11, TR2+12, COMPILE~, COMPILE+4, COMPILE+11, COMPILE+12, COMPILE+15! , REPORT~, REPORT+11, REPORT+12, REPORT+21, HEADER~, HEADER+8, HEADER+16, CHKP~, CHKP+10
RCDATA(	COMPILE+18, COMPILE+20, COMPILE+24, COMPILE+27, COMPILE+37, COMPILE+39, COMPILE+44
RCDEFLUP	DN+5~, DN2+3*
RCDET	DET+4~, DET1+16*, DET1+21
RCDT	DT+5~, DT1+6*, DT1+11, DT1+13, DT1+30, DT2+1
RCHR	REPORT+4~, REPORT+8*, REPORT+11, REPORT+21, HEADER~, HEADER+21, CHKP~, CHKP+10
RCI	DT+5~, DT1+10, DT1+11, DT1+13
RCIEN	DT+5~, DT1+12, DT1+13, DT1+14, DT1+26
RCNOW	REPORT+4~, REPORT+8*, REPORT+11, REPORT+21, HEADER~, HEADER+13, CHKP~, CHKP+10
RCPG	REPORT+4~, REPORT+8, REPORT+11, REPORT+15, REPORT+16, REPORT+21, REPORT+30, HEADER~, HEADER+11, HEADER+13 , CHKP~, CHKP+9*, CHKP+10
RCREP	EN+3~, EN+10*, EN+14, EN+17, EN+18, EN+19
RCREP2	EN+3~, EN+13, EN+14, EN+15, EN+17, EN+18
RCSCR	REPORT+4~, REPORT+7*, REPORT+20, REPORT+21, REPORT+25, REPORT+30, CHKP~, CHKP+9
RECVDT	AGED+5~, AGED+6*, AGED+7, AGED+9
ROW	EFT+18~, EFT+22*, EFT+23, EFT+24, EFT+25
STATUS	COMPILE+7~, COMPILE+39, COMPILE+40, COMPILE+41, COMPILE+43
STOP	SHOWONE~, SHOWONE+7, DN+5~, DN+6, DN2+18, DN2+19, DT+5~, DT+6, DT1+33, DT1+39 , DT2+21, DT2+22, TR+3~, TR+4, TR2+13, TR2+14, REPORT+30*
SUFX	DISPLAY+9~, DISPLAY+12, DISPLAY+13, DISPLAY+14
TRANS	EFT+18~, EFT+23, EFT+24, EFT+25, EFT+26, EFT+27, EFT+28, COMPILE+7~, COMPILE+23*, COMPILE+24
TRARRY	AGED+5~, AGED+9
TRARRY("ERROR"	AGED+10
TRARRY("WARNING"	AGED+11
U	DT1+14, DT1+20, DT1+26, DT2+7, DT2+8, DT2+9, EFT+23, EFT+26, EFTDATA+17, COMPILE+11 , COMPILE+12, COMPILE+52, COMPILE+63, REPORT+19, REPORT+22, REPORT+23, HEADER+8, HEADER+16, HEADER+17, HEADER+18
USERDN	DN+5~
X	EN+3~, ASKSUM2+6~, DT+5~, TR+3~, EFT+18~, DISPLAY+9~, DISPLAY+14, DISPLAY+15, DISPLAY+16, DISPLAY+17 , DISPLAY+18, PAUSE+4~
Y	EN+3~, EN+9, EN+10, ASKSUM2+6~, ASKSUM2+12, DET1+15, DET1+16, DN+5~, DN2+5, DN2+7 , DT+5~, DT1+6, DT2+15, DT2+16, TR+3~, TR2+7, TR2+8, EFT+6~, EFT+15*, EFT+30 , EFT1+1, PAUSE+4~, PAUSE+7
ZTDESC	SHOWONE+4~, SHOWONE+13*
ZTIO	SHOWONE+4~, SHOWONE+11*
>> ZTQUEUED	REPORT+26
>> ZTREQ	REPORT+26*
ZTRTN	SHOWONE+4~, SHOWONE+10*
ZTSAVE	SHOWONE+4~
ZTSAVE("*"	SHOWONE+12*
ZTSK	SHOWONE+4~, SHOWONE+15

Customize PDF page

Package: Accounts Receivable

Routine: RCDPTAR

Information

Source Information

Call Graph

Call Graph Total: 11

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: