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)	; 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 ; 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
MDATE(STATUS,EFTIEN)	; Finds the Match Date from the Match History Global for the EFT ; Input: STATUS - Internal value from the EFT MATCH STATUS field ; EFTIEN - EDI THIRD PARTY EFT DETAIL (#344.31) IEN ; Returns: Match Date from the MATCH STATUS HISTORY (#344.314) multiple
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)	; 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 ; Output: RCPG - Updated page number
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 #

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: *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,$P(DATA,U,1,8) Line Location: REPORT+25
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+28
Function Call: WRITE	Prompt: !,?4,$P(DATA,U,6) Line Location: REPORT+29
Function Call: WRITE	Prompt: !,?11,$P(DATA,U,7),"/",$P(DATA,U,8) Line Location: REPORT+30
Function Call: WRITE	Prompt: !,@IOF Line Location: REPORT+32
Function Call: WRITE	Prompt: !,"No data found" Line Location: REPORT2+15
Function Call: WRITE	Prompt: !,$$EFT(EFTIEN),"^",DATA Line Location: REPORT2+27
Function Call: WRITE	Prompt: !,$$EFT(EFTIEN),?13,$P(DATA,"^",1),?26,$P(DATA,"^",2) Line Location: REPORT2+30
Function Call: WRITE	Prompt: ?40,$P(DATA,"^",3),?55,$J($P(DATA,"^",4),13,2) Line Location: REPORT2+31
Function Call: WRITE	Prompt: !,?4,$P(DATA,"^",5) Line Location: REPORT2+32
Function Call: WRITE	Prompt: !,?11,$P(DATA,"^",6),"/",$P(DATA,"^",7) Line Location: REPORT2+33
Function Call: WRITE	Prompt: !!,"Total for Deposit #: ",RCDNUM," Deposit Date: ",$$FMTE^XLFDT(RCDDT,"5DZ") Line Location: REPORT2+36
Function Call: WRITE	Prompt: ?51,$J(GTOT,13,2) Line Location: REPORT2+37
Function Call: WRITE	Prompt: !,@IOF Line Location: REPORT2+38
Function Call: WRITE	Prompt: @IOF Line Location: HEADER+11
Function Call: WRITE	Prompt: !,"EFT#^DATE RECEIVED^DEPOSIT#^EFT TOTAL AMT^DATE MATCHED^DATE POSTED^TRACE #^PAYER NAME^PAYER ID" Line Location: HEADER+17
Function Call: WRITE	Prompt: !,"EFT#^DEPOSIT#^DEPOSIT DATE^DATE RECEIVED^EFT TOTAL AMT^TRACE #^PAYER NAME^PAYER ID" Line Location: HEADER+19
Function Call: WRITE	Prompt: !?(IOM-$L(LINE)\2),LINE Line Location: HEADER+26
Function Call: WRITE	Prompt: !?(IOM-$L(LINE)\2),LINE Line Location: HEADER+28
Function Call: WRITE	Prompt: !?(IOM-$L(LINE)\2),LINE Line Location: HEADER+32
Function Call: WRITE	Prompt: !!,"EFT#",?13,"DATE RECVD",?25,"DEPOSIT#",?37,"EFT TOTAL AMT",?54,"DATE MATCHED",?69,"DATE POSTED" Line Location: HEADER+33
Function Call: WRITE	Prompt: !,?4,"TRACE #",!,?11,"PAYER NAME/ID" Line Location: HEADER+34
Function Call: WRITE	Prompt: !,RCHR Line Location: HEADER+35
Function Call: WRITE	Prompt: !?(IOM-$L(LINE)\2),LINE Line Location: HEADER+39
Function Call: WRITE	Prompt: !!,"EFT#",?13,"DEPOSIT#",?26,"DEPOSIT DATE",?40,"DATE RECEIVED",?55,"EFT TOTAL AMT" 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: !!?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

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

Customize PDF page

Package: Accounts Receivable

Routine: RCDPTAR1

Information

Source Information

Entry Points

Interaction Calls

FileMan Files Accessed Via FileMan Db Call