Routine: RCDPTAR2

Package	Total	Call Graph
VA FileMan	3	(,IX)^DIC ($$GET1,GETS)^DIQ ^DIR
Accounts Receivable	2	$$DATE^RCDPRU ($$AGED,$$EFT,$$EFTDATA,PAUSE,SHOWONE)^RCDPTAR

Package	Total	Caller Graph
Accounts Receivable	2	RCDPTAR RCDPTAR1

Entry Points

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
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
Routine Call	DIC Line Location: RC2+7
Routine Call	DIC Line Location: RC2+8
Routine Call	DIR Line Location: ASKSUM2+10

Name	Line Occurrences (* Changed, ! Killed)
^RCY(344 - [#344]	RC2+13
^RCY(344.1 - [#344.1]	RC2+18
^RCY(344.3 - [#344.3]	RC2+22, DEPBAL+17, HEADER+20
^RCY(344.31 - [#344.31]	RC2+31, HEADER+12, MDATE+12
^RCY(344.4 - [#344.4]	RC2+28, RC2+29

Name	Line Occurrences
RC2	RC2+34, RC2+42

Name	Field # of Occurrence
D	RC+5~, RC2+8*
DEPDATA	DEPBAL+12~, DEPBAL+17*, DEPBAL+18
DIC	RC+5~, RC2+2*
DIC("A"	RC2+4*
DIC("S"	RC2+6*
DIC("W"	RC2+5*
DIC(0	RC2+3*
DIR	ASKSUM2+6~
DIR("A"	ASKSUM2+8*
DIR("B"	ASKSUM2+9*
DIR(0	ASKSUM2+7*
DIROUT	ASKSUM2+6~
DIRUT	ASKSUM2+6~
DTOT	DEPBAL+12~, DEPBAL+18*, DEPBAL+20
DTOUT	RC+5~, RC2+9, ASKSUM2+6~, ASKSUM2+11
DUOUT	RC+5~, RC2+9, ASKSUM2+6~, ASKSUM2+11
EFTDATA	DEPBAL+12~, HEADER+11~, HEADER+12*, HEADER+21, HEADER+22, HEADER+23, HEADER+24
EFTIEN	RC+5~, RC2+31*, RC2+32, MDATE~, MDATE+7, MDATE+12, MDATE+16
ERAIEN	RC+5~, RC2+28, RC2+29, RC2+30, RC2+31
IENS	MDATE+9~, MDATE+16*, MDATE+17, MDATE+20, MDATE+21
IOF	HEADER+14
IOM	HEADER+18
LINE	HEADER+11~, HEADER+17*, HEADER+18
MIEN	MDATE+9~, MDATE+12*, MDATE+13, MDATE+16
RCBALS	DEPBAL+12~, DEPBAL+13, DEPBAL+15, DEPBAL+17, DEPBAL+20, DEPBAL+21*, DEPBAL+23
RCDATA	RC~, RC2+9, RC2+12, RC2+24, RC2+32, RC2+34, RC2+38, RC2+39, HEADER~, HEADER+12 , HEADER+20, MDATE+9~
RCDATA(	MDATE+20, MDATE+21
RCDBAL	HEADER~, HEADER+10*, HEADER+21, HEADER+22
>> RCDET	RC2+3, RC2+4, RC2+7, RC2+8
RCDIEN	DEPBAL~, DEPBAL+15, DEPBAL+17, DEPBAL+21
RCDTN	RC+5~, RC2+18*, RC2+19, RC2+22
RCED	RC+5~, RC2+22*, RC2+23, RC2+24
RCHR	HEADER~, HEADER+27
RCIEN	RC+5~, RC2+13*, RC2+16, RC2+18, RC2+27
RCNOW	HEADER~, HEADER+17
RCPG	HEADER~, HEADER+15*, HEADER+17
STATUS	MDATE~, MDATE+6
STOP	RC+5~, RC+6*, RC2+40, RC2+41
U	RC2+13, RC2+18, DEPBAL+18, DEPBAL+20, DEPBAL+21, HEADER+12, HEADER+20, HEADER+21, HEADER+22, HEADER+23 , HEADER+24
X	RC+5~, ASKSUM2+6~
Y	RC+5~, RC2+9, RC2+13, RC2+28, RC2+29, ASKSUM2+6~, ASKSUM2+12