Routine: RCDPTAR

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

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

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

Customize PDF page

Package: Accounts Receivable

Routine: RCDPTAR

Information

Source Information

Entry Points

Interaction Calls

FileMan Files Accessed Via FileMan Db Call