Routine: RCDPTAR1

Entry Points

Name	Comments	DBIA/ICR reference
SUM	;EP from RCDPTAR ; Display EFT Transaction Audit Report in original summary mode by Deposit Date
SUM2	;EP from RCDPTAR ; Display EFT Transaction Audit Report in summary mode by Deposit Number
ASKDNUM()	; Ask the user for the deposit number to select ; Input: None ; Returns: -1 - User quit or timed out ; Deposit Number
DNUM2	; looping tag
SELDT(CTR,ARR,RCLOOP)	; Ask the user to select a deposit date for the selected Deposit Number ; Input: CTR - Current # of choices displayed ; ARR - Array of available choices ARR(A1)=A2 Where: ; A1 - Selection # ; A2 - Deposit Date ; RCLOOP - Flag that indicates if selection is being made after displaying a EFT for the first time. ; Makes selection optional. PRCA4.5439 ; Returns: "" - Nothing selected, Otherwise selected deposit date is returned ; -1 if user '^' or timed out
ASKDEV(WHICH)	; Prompt user for device ; Input: WHICH - 0 - Original summary report, 1 - New summary report ; Retunrs: -1 - Unable to open device, 1 otherwise ; Prompt for device
RUN(RCDT1,RCDT2,RCEXCEL)	; Compile and run the report (original summary mode) ; Input: RCDT1 - Start Date ; RCDT2 - End Date ; RCEXCEL - 1 - Excel output, 0 otherwise
RUN2(RDNUM,RCDDT,RCEXCEL)	; Compile and run the report (new summary mode) ; Input: RCDNUM - Deposit Number ; RCDDT - Deposit Date ; RCEXCEL - 1 - Excel output, 0 otherwise
COMPILE(RCDT1,RCDT2)	; Compile the report (original summary mode) ; Input: RCDT1 - Start Date ; RCDT2 - End Date
COMPILE2(RCDNUM,RCDDT)	; Compile the report (new summary mode) ; Input: RCDNUM - Deposit Number ; RCDDT - Deposit Date
REPORT(RCDT1,RCDT2,RCEXCEL)	; Output the report (original summary mode) ; Input: RCDT1 - Start Date ; RCDT2 - End Date ; RCEXCEL - 1 - Excel output, 0 otherwise
REPORT2(RCDNUM,RCDDT,RCEXCEL)	; Output the report (new summary mode) ; Input: RCDNUM - Deposit Number ; RCDDT - Deposit Date ; RCEXCEL - 1 - Excel output, 0 otherwise
HEADER(RCNOW,RCPG,RCHR,RCDT1,RCDT2,RCEXCEL,RCDNUM,RCDDT,RCDBAL)	; Display the report header ; Input: RCNOW - External Run Date/Time ; RCPG - Current page number ; RCHR - Dashed line ; RCDT1 - Start Date or null if new summary report ; RCDT2 - End Date or null if new summary report ; RCEXCEL - 1 - Excel output, 0 otherwise ; RCDNUM - Deposit Number or null if original summary report ; RCDDT - Internal Deposit Date or null if original summary report ; RCDBAL - Piece 1: 1 if deposit is in balance, 0 otherwise ; Add parameter PRCA4.5439 ; Piece 2: Total of EFTs on the deposit ; Piece 3: Deposit Total
EXMSG	;
PAUSE()	; Display press return to continue message
CHKP(RCNOW,RCPG,RCHR,RCDT1,RCDT2,RCEXCEL,RCSCR,LINES,RCDNUM,RCDDT)	; Check if we need to do a page break ; Input: RCNOW - Run date/time ; RCPG - Current Page Number ; RCHR - Dashed line ; RCDT1 - Start Date or null if new summary report ; RCDT2 - End Date or null if new summary report ; RCEXCEL - 1 if output to Excel, 0 otherwise ; RSCR - 1 output to screen, otherwise output to paper ; LINES - Current # of lines on the page ; RCDNUM - Deposit Number or null if original summary report ; RCDDT - Deposit Date or null if original summary report ; Output: RCPG - New Page Number or 0 if user quit display
EFT(EFTIEN)	; Format EFT output - EFT.SEQ - PRCA4.5326 ; Input: EFTIEN - Internal EFT number ; Returns: EFT.Sequence #
DEPEFTS(RCDNUM,RCDDT,RCEFTCNT)	; List EFTs for a given deposit number and date. Added for PRCA4.5439 ; Input - RCDNUM - Deposit # ; RCDDT - Deposit Date ; Output - Return value LIST(Y) containing data of selected EFT ; RCEFTCNT - Count of EFTs passed by reference
EFT1	;

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Select Deposit:" Line Location: SUM2+7
Function Call: WRITE	Prompt: !,$J(CTR,3)," ",RCDNUM," on: ",XX Line Location: SUM2+16
Function Call: WRITE	Prompt: $J($P(RCDBAL,U,3),19,2) Line Location: SUM2+22
Function Call: WRITE	Prompt: " UNBALANCED" Line Location: SUM2+23
Function Call: WRITE	Prompt: *7,"Deposit Number: ",X," does not exist" Line Location: DNUM2+7
Function Call: WRITE	Prompt: !,$S($D(ZTSK):"REQUEST QUEUED TASK="_ZTSK,1:"REQUEST CANCELLED") Line Location: ASKDEV+15
Function Call: WRITE	Prompt: !,"No data found" Line Location: REPORT+15
Function Call: WRITE	Prompt: !,$P(DATA,U,9),$$EFT(EFTIEN),U,RCDBAL,U,$$DEPBAL^RCDPTAR2(RCDIEN),U,$P(DATA,U,1,8) Line Location: REPORT+26
Function Call: WRITE	Prompt: !,$P(DATA,U,9),$$EFT(EFTIEN),?13,$P(DATA,U,1),?25,$P(DATA,U,2),?37,$J($P(DATA,U,3),13,2),?54,$P(DATA,U,4),?69,$P(DATA,U,5) Line Location: REPORT+29
Function Call: WRITE	Prompt: !,?4,$P(DATA,U,6) Line Location: REPORT+31
Function Call: WRITE	Prompt: !,?11,$P(DATA,U,7),"/",$P(DATA,U,8) Line Location: REPORT+32
Function Call: WRITE	Prompt: !,@IOF Line Location: REPORT+34
Function Call: WRITE	Prompt: !,"No data found" Line Location: REPORT2+19
Function Call: WRITE	Prompt: !,$P(DATA,U,9),$$EFT(EFTIEN),U,RCDBAL2,U,DATA Line Location: REPORT2+32
Function Call: WRITE	Prompt: !,$$EFT(EFTIEN),?13,$P(DATA,U,1),?26,$P(DATA,U,2) Line Location: REPORT2+35
Function Call: WRITE	Prompt: ?40,$P(DATA,U,3),?55,$J($P(DATA,U,4),13,2) Line Location: REPORT2+36
Function Call: WRITE	Prompt: !,?4,$P(DATA,U,5) Line Location: REPORT2+38
Function Call: WRITE	Prompt: !,?11,$P(DATA,U,6),"/",$P(DATA,U,7) Line Location: REPORT2+39
Function Call: WRITE	Prompt: !!,"Total for Deposit #: ",RCDNUM," Deposit Date: ",$$FMTE^XLFDT(RCDDT,"5DZ") Line Location: REPORT2+42
Function Call: WRITE	Prompt: ?51,$J(GTOT,13,2) Line Location: REPORT2+44
Function Call: WRITE	Prompt: ?55,$J($P(RCDBAL,U,3),13,2) Line Location: REPORT2+45
Function Call: WRITE	Prompt: !,"Sum of EFT Amounts : UNBALANCED",?55,$J($P(RCDBAL,U,2),13,2) Line Location: REPORT2+46
Function Call: WRITE	Prompt: !,@IOF Line Location: REPORT2+47
Function Call: WRITE	Prompt: @IOF Line Location: HEADER+15
Function Call: WRITE	Prompt: !,"EFT#^UNBALANCED^DATE RECEIVED^DEPOSIT#^EFT TOTAL AMT^DATE MATCHED^DATE POSTED^TRACE #^PAYER NAME^PAYER ID" Line Location: HEADER+24
Function Call: WRITE	Prompt: !,"EFT#^UNBALANCED^DEPOSIT#^DEPOSIT DATE^DATE RECEIVED^EFT TOTAL AMT^TRACE #^PAYER NAME^PAYER ID" Line Location: HEADER+26
Function Call: WRITE	Prompt: !?(IOM-$L(LINE)\2),LINE Line Location: HEADER+33
Function Call: WRITE	Prompt: !?(IOM-$L(LINE)\2),LINE Line Location: HEADER+35
Function Call: WRITE	Prompt: !?(IOM-$L(LINE)\2),LINE Line Location: HEADER+39
Function Call: WRITE	Prompt: !!,"EFT#",?13,"DATE RECVD",?25,"DEPOSIT#",?37,"EFT TOTAL AMT",?54,"DATE MATCHED",?69,"DATE POSTED" Line Location: HEADER+40
Function Call: WRITE	Prompt: !,?4,"TRACE #",!,?11,"PAYER NAME/ID" Line Location: HEADER+41
Function Call: WRITE	Prompt: !,RCHR Line Location: HEADER+42
Function Call: WRITE	Prompt: !?(IOM-$L(LINE)\2),LINE Line Location: HEADER+46
Function Call: WRITE	Prompt: !!,"EFT#",?13,"DEPOSIT#",?26,"DEPOSIT DATE",?40,"DATE RECEIVED",?55,"EFT TOTAL AMT" Line Location: HEADER+47
Function Call: WRITE	Prompt: !,?4,"TRACE #",!,?11,"PAYER NAME/ID" Line Location: HEADER+48
Function Call: WRITE	Prompt: !,RCHR Line Location: HEADER+49
Function Call: WRITE	Prompt: !!?5,"To capture as an Excel format, it is recommended that you queue this" Line Location: EXMSG+3
Function Call: WRITE	Prompt: !?5,"report to a spool device with margins of 256 and page length of 99999" Line Location: EXMSG+4
Function Call: WRITE	Prompt: !?5,"(e.g. spoolname;256;99999). This should help avoid wrapping problems." Line Location: EXMSG+5
Function Call: WRITE	Prompt: !!?5,"Another method would be to set up your terminal to capture the detail" Line Location: EXMSG+6
Function Call: WRITE	Prompt: !?5,"report data. On some terminals, this can be done by clicking on the" Line Location: EXMSG+7
Function Call: WRITE	Prompt: !?5,"'Tools' menu above, then click on 'Capture Incoming Data' to save to" Line Location: EXMSG+8
Function Call: WRITE	Prompt: !?5,"Desktop. To avoid undesired wrapping of the data saved to the file," Line Location: EXMSG+9
Function Call: WRITE	Prompt: !?5,"please enter '0;256;99999' at the 'DEVICE:' prompt.",! Line Location: EXMSG+10
Function Call: WRITE	Prompt: !!,"No EFT detail for this selection" Line Location: DEPEFTS+21
Function Call: WRITE	Prompt: !!,"Deposit #: "_$J($$GET1^DIQ(344.3,LOCKIEN_",",.06),10)_" " Line Location: DEPEFTS+28
Function Call: WRITE	Prompt: "Deposit Date: "_$$DATE^RCDPRU(RCDDT,"2DZ") Line Location: DEPEFTS+29
Function Call: WRITE	Prompt: $J($P(RCDBAL,U,3),19,2) Line Location: DEPEFTS+30
Function Call: WRITE	Prompt: " UNBALANCED" Line Location: DEPEFTS+31

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

Customize PDF page

Package: Accounts Receivable

Routine: RCDPTAR1

Information

Source Information

Entry Points

Interaction Calls

FileMan Files Accessed Via FileMan Db Call