Routine: RCDPTAR2

Information

RCDPTAR2 ;AITC/CJE - EFT TRANSACTION AUDIT REPORT (Continued) ;08/14/23

Name	Comments	DBIA/ICR reference
RC(RCDATA)	; Lookup by Receipt Number ; Input: RCDATA - null on entry ; RCDET - Environmental variable assumed to be set to "R" - Reciept or "F" - FMS Document ; Output: RCDATA - passed by refence - see subroutine EFTDATA for delimited list of fields
RC2	;
DEPBAL(RCDIEN)	;Is the deposit total in balance with EFT amounts ; New subroutine PRCA4.5439 ; If modified, also check DEPBAL^RCDPEDA4 ; Input: RCDIEN - IEN for EDI LOCKBOX DEPOSIT, #344.3
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
HEADER(RCNOW,RCPG,RCHR,RCDATA,RCDBAL)	; 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 ; 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 ; Output: Write statements
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

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: RC2+1
Function Call: WRITE	Prompt: !!,"EFT NOT FOUND - please check Receipt" Line Location: RC2+35
Function Call: WRITE	Prompt: @IOF Line Location: HEADER+14
Function Call: WRITE	Prompt: "EFT TRANSACTION AUDIT REPORT" Line Location: HEADER+16
Function Call: WRITE	Prompt: ?(IOM-$L(LINE)),LINE Line Location: HEADER+18
Function Call: WRITE	Prompt: !,"EFT#: ",$$AGED^RCDPTAR(+$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) Line Location: HEADER+20
Function Call: WRITE	Prompt: " UNBAL",?51,"EFT TOTAL AMT: "_$S($P(EFTDATA,U,16)="D":"-",1:"")_$P(EFTDATA,U,7) Line Location: HEADER+21
Function Call: WRITE	Prompt: ?42,"EFT TOTAL AMT: "_$S($P(EFTDATA,U,16)="D":"-",1:"")_$P(EFTDATA,U,7) Line Location: HEADER+22
Function Call: WRITE	Prompt: !,"EFT TRACE#: ",$P(EFTDATA,U,4) Line Location: HEADER+23
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+24
Function Call: WRITE	Prompt: !,"DATE",?10,"ACTION/DETAILS",?51,"STATUS" Line Location: HEADER+26
Function Call: WRITE	Prompt: !,RCHR Line Location: HEADER+27