Routine: RCDPTAR

Package	Total	Call Graph
Accounts Receivable	5	($$CUTOFF,CHKEFT)^RCDPEWLP ($$DATE,$$NOW)^RCDPRU ($$ASKDNUM,$$DEPEFTS,$$SELDT,SUM,SUM2)^RCDPTAR1 ($$ASKSUM2,$$DEPBAL,HEADER)^RCDPTAR2 $$FMSSTAT^RCDPUREC
Kernel	5	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT $$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
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.5439 Begin
DN3	; Lookup Deposit Number by Deposit Date
DN4
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
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
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(ROW,EFTIEN,TRANS)	; Display EFT detail during user selection process ; PRCA4.5439 Modified display ; Input: ROW - Current row number ; EFTIEN - IEN for EFT (#344.31) ; TRANS - EFT transaction number e.g. 999.1
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
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
READ(BEG,END,CNT)	; Read number of EFT line from 1 to END ; Input: BEG - Begining of current numeric range displayed ; END - End of numeric current range displayed ; CNT - Number of last record in the list

External References

Name	Field # of Occurrence
^%ZIS	SHOWONE+6
HOME^%ZIS	SHOWONE+16
^%ZISC	REPORT+29
^%ZTLOAD	SHOWONE+14
IX^DIC	TR2+6
$$GET1^DIQ	EFT+19, EFT+20, EFTDATA+13, EFTDATA+14, EFTDATA+15, DISPLAY+7, DISPLAY+8, DISPLAY+10, DISPLAY+15, DISPLAY+16 , COMPILE+23, COMPILE+25, COMPILE+43, COMPILE+48, COMPILE+52, COMPILE+55, COMPILE+57, COMPILE+62, AGED+6, AGED+8
GETS^DIQ	COMPILE+17, COMPILE+36
^DIR	EN+8, DET1+14, DT1+5, DT2+13, PAUSE+6, READ+8
$$CUTOFF^RCDPEWLP	AGED+7
CHKEFT^RCDPEWLP	AGED+9
$$DATE^RCDPRU	DT1+34, DT2+1, EFT+20, COMPILE+44, COMPILE+62, REPORT+24
$$NOW^RCDPRU	REPORT+8
$$ASKDNUM^RCDPTAR1	DN2+6
$$DEPEFTS^RCDPTAR1	DN4
$$SELDT^RCDPTAR1	DN3+8, DN3+21
SUM^RCDPTAR1	EN+17
SUM2^RCDPTAR1	EN+18
$$ASKSUM2^RCDPTAR2	EN+14
$$DEPBAL^RCDPTAR2	DN3+15, DT1+23, DT2+20, EFT+21, REPORT+10
HEADER^RCDPTAR2	REPORT+13, CHKP+10
$$FMSSTAT^RCDPUREC	COMPILE+51, COMPILE+60
$$FMTE^XLFDT	DN3+11
$$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: !!,"EFT NOT FOUND - please check Deposit" Line Location: DN2+11
Function Call: WRITE	Prompt: !,"Select Deposit:" Line Location: DN3+4
Function Call: WRITE	Prompt: !,$J(CTR,3)," ",RCDNUM," on: ",XX Line Location: DN3+12
Function Call: WRITE	Prompt: $J($P(RCDBAL,U,3),19,2) Line Location: DN3+18
Function Call: WRITE	Prompt: " UNBALANCED" Line Location: DN3+19
Function Call: WRITE	Prompt: !,"Date ",$$DATE^RCDPRU(RCDT)," does not have any valid deposits, please try again...",! Line Location: DT1+34
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: !!,"Deposit #: "_$J($$GET1^DIQ(344.3,LOCKIEN_",",.06),10)_" " Line Location: EFT+19
Function Call: WRITE	Prompt: "Deposit Date: "_$$DATE^RCDPRU($$GET1^DIQ(344.3,LOCKIEN_",",.07,"I"),"2DZ") Line Location: EFT+20
Function Call: WRITE	Prompt: " UNBALANCED" Line Location: EFT+21
Function Call: WRITE	Prompt: !,$E(ROW_". ",1,5) Line Location: DISPLAY+12
Function Call: WRITE	Prompt: $J(TRANS_SUFX,9) Line Location: DISPLAY+13
Function Call: WRITE	Prompt: " "_$E(PAYER,1,45)_$E($J("",45),1,45-$L(PAYER)) Line Location: DISPLAY+14
Function Call: WRITE	Prompt: " "_$J($$GET1^DIQ(344.31,EFTIEN_",",.07),19) Line Location: DISPLAY+15
Function Call: WRITE	Prompt: !,$J(" ",15)_$$GET1^DIQ(344.31,EFTIEN_",",.04) Line Location: DISPLAY+16
Function Call: WRITE	Prompt: !,"No data found" Line Location: REPORT+14
Function Call: WRITE	Prompt: !,$$DATE^RCDPRU(DATE,"2DZ"),?10,$P(DATA,U,1),?51,$P(DATA,U,2) Line Location: REPORT+24
Function Call: WRITE	Prompt: !,?10,$P(DATA,U,3),?51,$P(DATA,U,4) Line Location: REPORT+25
Function Call: WRITE	Prompt: !,@IOF Line Location: REPORT+27
Routine Call	%ZIS Line Location: SHOWONE+6
Routine Call	%ZIS Line Location: SHOWONE+16
Routine Call	DIC Line Location: TR2+6
Routine Call	DIR Line Location: EN+8 DET1+14 DT1+5 DT2+13 PAUSE+6 READ+8

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^RCY(344 - [#344]	GET1^DIQ
^RCY(344.1 - [#344.1]	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+18
^RCY(344.3 - [#344.3]	DN2+9, DN3+5, DN3+14, DT1+13, DT1+15, DT1+16
^RCY(344.31 - [#344.31]	EFT+9, COMPILE+32, COMPILE+34
^TMP("RCDPTAR"	RUN+10!, COMPILE+8!, COMPILE+20, COMPILE+27, COMPILE+44, COMPILE+52, COMPILE+62, COMPILE+63, REPORT+14, REPORT+17 , REPORT+18, REPORT+19
^VA(200 - [#200]	DT1+24

Label References

Name	Line Occurrences
$$EFT	DT1+38, DT2+16
$$EFTDATA	TR2+8, EFT+10
$$PAUSE	REPORT+31, CHKP+9
$$READ	EFT+27
@(	DET1+21
CHKP	REPORT+23
COMPILE	RUN+5
DET	EN+19
DISPLAY	EFT+26
DN2	DN2+10
DN3	DN4+2, DN4+8
DN4	DN4+9
DT1	DT1+33, DT1+37, DT2+15
DT2	DT2+24
EFT1	EFT+15
PAUSE	DN2+12, EFT+4, EFT+12
REPORT	RUN+8
RUN	SHOWONE+18
SHOWONE	DN4+6, DT1+42, DT2+21, TR2+12
TR2	TR2+14

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	SHOWONE+4~, SHOWONE+5*
ARR	DN2+2~, DN3+8, DN3+21
ARR(	DN3+10*
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
BEG	READ~, READ+5, READ+7
CDDT	DN2+2~, DN3+2, DN3+5, DN3+6, DN3+10, DN3+11, DN3+14
CNT	DT+4~, DT1+12, DT1+20, DT1+22, DT1+30, DT1+33, DT1+37, DT1+38, DT2+6, DT2+11 , EFT+6~, EFT+8, EFT+10, EFT+12, EFT+15, EFT+24, EFT+27, REPORT+4~, REPORT+18*, REPORT+19 , READ~, READ+6
CTR	DN2+2~, DN3+1, DN3+2, DN3+4, DN3+7, DN3+8, DN3+10, DN3+12, DN3+20, DN3+21
D	TR+3~, TR2+2*
DATA	DT+4~, DT1+18, DT1+19, DT1+22, DT1+24, DT1+25, DT1+26, DT1+27, DT1+29, DT1+30 , DT2+7, DT2+8, DT2+9, EFT+6~, EFT+10, EFT+25, REPORT+4~, REPORT+19, REPORT+21, REPORT+24 , REPORT+25
DATE	REPORT+4~, REPORT+17*, REPORT+18, REPORT+19, REPORT+24
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+4~, DT1+16, DT1+17, DT1+18, EFTDATA+11~, EFTDATA+12, EFTDATA+15, EFTDATA+16, EFTDATA+17, COMPILE+6~ , COMPILE+12, COMPILE+25
DIC	DN+5~, TR+3~, TR2+2*
DIC("A"	TR2+2*
DIC("W"	TR2+5*
DIC(0	TR2+2*
DIR	EN+3~, DET1+1!, DT+4~, DT1+1!, DT2+2!, PAUSE+4~, READ+4~
DIR("A"	EN+6, DET1+12, DT1+4, DT2+4, READ+6, READ+7
DIR("B"	EN+7, DT1+3
DIR("L"	DET1+5, DET1+6, DET1+7, DET1+8, DET1+9, DET1+10, DET1+11, DT2+5, DT2+8, DT2+11!
DIR("PRE"	DET1+4*
DIR(0	EN+5, DET1+2, DT1+2, DT2+3, DT2+7, DT2+10, PAUSE+5, READ+5
DIROUT	EN+3~, DT+4~, PAUSE+4~
DIRUT	EN+3~, DT+4~, PAUSE+4~, READ+4~
DT	DT1+2
DTOUT	EN+3~, EN+9, DET1+15, DN+5~, DT+4~, DT1+6, DT2+14, TR+3~, TR2+7, PAUSE+4~ , READ+4~, READ+9
DUOUT	EN+3~, EN+9, DET1+15, DN+5~, DT+4~, DT1+6, DT2+14, TR+3~, TR2+7, PAUSE+4~ , READ+4~, READ+9
EFTIEN	EFT+6~, EFT+8, EFT+9, EFT+10, EFT+25, EFT+26, EFTDATA~, EFTDATA+9, EFTDATA+13, EFTDATA+14 , EFTDATA+17, DISPLAY~, DISPLAY+7, DISPLAY+8, DISPLAY+10, 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
END	READ~, READ+5, READ+6, READ+7
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+12
IO("Q"	SHOWONE+9
IOF	REPORT+27
IOM	REPORT+8
ION	SHOWONE+11
IOSL	CHKP+8
IOST	REPORT+7
ITEM	DT+4~, DT2+2!
ITEM(	DT2+8*, DT2+16, DT2+20
LASTIEN	COMPILE+6~, COMPILE+32*, COMPILE+43
LCNT	EFT+22~, EFT+23*
LINE	DT+4~, DT1+22, DT1+24, DT1+26, DT1+27, DT1+28, DT1+29, DT1+30, DT2+6, DT2+7 , DT2+8, COMPILE+6~, COMPILE+41, COMPILE+43*, COMPILE+44
LINES	REPORT+4~, REPORT+20, REPORT+21, REPORT+22*, REPORT+23, CHKP~, CHKP+8
LIST	DT+4~, DT1+11!, EFT+6~
LIST(	DT1+30, DT1+38, DT2+7, EFT+10, EFT+25, EFT1+1
LOCKIEN	DN+5~, DN2+9, DN2+10, EFT~, EFT+4, EFT+9, EFT+19, EFT+20, EFT+21, EFTDATA+11~ , EFTDATA+14, EFTDATA+15, EFTDATA+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
PAYER	DISPLAY+6~, DISPLAY+10*, DISPLAY+14
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
QUIT	EFT+22~, EFT+23*, EFT+24
RCBAL	DN+5~
RCDATA	DET+4~, DET1+19, SHOWONE+18, RUN~, RUN+5, RUN+8, DN~, DN2+7, DN4, DN4+2 , DN4+4, DN4+5, DT~, DT1+6, DT1+7, DT1+38, DT1+40, DT1+41, DT2+14, DT2+16 , DT2+18, DT2+19, TR~, TR2+7, TR2+8, TR2+10, TR2+11, COMPILE~, COMPILE+4, COMPILE+11 , COMPILE+12, COMPILE+15!, REPORT~, REPORT+10, REPORT+13, REPORT+14, REPORT+23, CHKP~, CHKP+10
RCDATA(	COMPILE+18, COMPILE+20, COMPILE+24, COMPILE+27, COMPILE+37, COMPILE+39, COMPILE+44
RCDBAL	DN+5~, DN3+13, DN3+16, DN3+17, DN3+18, DN3+19, DT+4~, DT1+23, DT1+28, DT1+29 , DT2+20, REPORT+4~, REPORT+10, REPORT+13
RCDBAL1	DN+5~, DN3+15*, DN3+16, DN3+17
RCDDT	DN2+3~, DN3+2, DN3+3, DN3+8, DN3+9, DN3+20, DN3+21*, DN3+22, DN3+23, DN4
RCDEFLUP	DN+5~
RCDET	DET+4~, DET1+16*, DET1+21
RCDIEN	DN2+3~, DN3+13, DN3+14, DN3+15
RCDNUM	DN2+3~, DN2+4~, DN2+6*, DN2+7, DN2+9, DN3+5, DN3+12, DN3+14, DN4
RCDT	DT+4~, DT1+8*, DT1+13, DT1+15, DT1+34, DT2+1
RCEFTCNT	DN2+3~, DN4, DN4+8
RCHR	REPORT+4~, REPORT+8*, REPORT+13, REPORT+23, CHKP~, CHKP+10
RCI	DT+4~, DT1+12, DT1+13, DT1+15
RCIEN	DT+4~, DT1+14, DT1+15, DT1+16, DT1+23, DT1+30
RCLOOP	DN2+3~, DN2+5, DN3+1, DN3+8, DN3+21, DN4+1, DT+4~, DT+5, DT1+3, DT1+7 , DT1+43, DT2+22*
RCNOW	REPORT+4~, REPORT+8*, REPORT+13, REPORT+23, CHKP~, CHKP+10
RCPG	REPORT+4~, REPORT+8, REPORT+13, REPORT+17, REPORT+18, REPORT+23, REPORT+31, 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+22, REPORT+23, REPORT+27, REPORT+31, CHKP~, CHKP+9
RCSTOP	DN2+3~, DN3+2, DN3+3, DN3+9, DN3+22*, DN3+23
RECVDT	AGED+5~, AGED+6*, AGED+7, AGED+9
ROW	EFT+18~, EFT+24*, EFT+25, EFT+26, EFT+27, DISPLAY~, DISPLAY+12
STATUS	COMPILE+7~, COMPILE+39, COMPILE+40, COMPILE+41, COMPILE+43
STOP	SHOWONE~, SHOWONE+7, DN+5~, DN+6, DN4+6, DN4+7, DT+4~, DT+5, DT1+37, DT1+42 , DT2+21, DT2+23, TR+3~, TR+4, TR2+12, TR2+13, REPORT+31*
SUFX	DISPLAY+6~, DISPLAY+8, DISPLAY+9, DISPLAY+13
TRANS	EFT+18~, DISPLAY~, DISPLAY+6~, DISPLAY+7, DISPLAY+13, COMPILE+7~, COMPILE+23, COMPILE+24
TRARRY	AGED+5~, AGED+9
TRARRY("ERROR"	AGED+10
TRARRY("WARNING"	AGED+11
U	DN3+16, DN3+17, DN3+18, DT1+16, DT1+22, DT1+30, DT2+7, DT2+8, DT2+9, EFT+25 , EFTDATA+17, COMPILE+11, COMPILE+12, COMPILE+52, COMPILE+63, REPORT+10, REPORT+21, REPORT+24, REPORT+25
USERDN	DN+5~
X	EN+3~, DT+4~, TR+3~, EFT+18~, PAUSE+4~, READ+4~
XRCDT1	DN2+3~
XRCDT2	DN2+3~
XX	DN2+3~, DN3+11*, DN3+12
Y	EN+3~, EN+9, EN+10, DET1+15, DET1+16, DN+5~, DT+4~, DT1+7, DT1+8, DT2+15 , DT2+16, DT2+20, TR+3~, TR2+7, TR2+8, EFT+6~, EFT+15, EFT+23, EFT+27*, EFT+28 , EFT1+1, PAUSE+4~, PAUSE+7, READ+4~, READ+10
ZTDESC	SHOWONE+4~, SHOWONE+13*
ZTIO	SHOWONE+4~, SHOWONE+11*
>> ZTQUEUED	REPORT+28
>> ZTREQ	REPORT+28*
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: 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: