Routine: RCDPENR3

Information

RCDPENR3 ;ALB/SAB - EPay National Reports - ERA/EFT Trending Report, part 2 ;20 Aug 2018 13:01:41

Name	Comments	DBIA/ICR reference
COMPILE	;
COMPILEX(J,RCDATA,RCINSTIN,RCMETHOD,RCERATYP,RCCLAIM)	; PRCA4.5349 subroutine split off
GETEFT(RCSDATE,RCEDATE,RCRATE,RCCLM)	;EP
CLOSEDB(RCBILL)	;EP ; PRCA4.5349 - Added subroutine ; Check to see if a bill is closed ; Input: RCBILL - IEN for 361.1 of the bill to be checked ; Returns: 1 - Bill is closed, 0 Otherwise
PRINTGT(RCTITLE,RCDATA,RCDISP,RCERAFLG,RCEXCEL)	;PRCA4.5332 - added comments below, 20 August 2018 ; Print the Grand Total/Summary data for the EFT/ERA Trending Report ; Input: RCTITLE - Name of the report ; RCDATA - Array of compiled data being processed. RCDATA("A") autoposted, RCDATA("M") manually posted ; RCDISP - 1 - Display to screen, 0 otherwise ; RCERAFLG - 1 if we're in the ERA matched to an EFT section ; 0 otherwise ; RCEXCEL - 1 output to excel, 0 otherwise ; RCSTOP - Initialized to 0 ; Output: RCSTOP - User stopped the display of the report
GDTXT	;

Name	Line Occurrences
Function Call: WRITE	Prompt: RCSTRNG,! Line Location: PRINTGT+75
Function Call: WRITE	Prompt: RCDTXT,?65,$J($P(RCSCDATA,U,I),13,2),! Line Location: PRINTGT+78
Function Call: WRITE	Prompt: RCDTXT,?65,$J($P($P(RCSCDATA,U,I),"."),12),"%",! Line Location: PRINTGT+80
Function Call: WRITE	Prompt: RCDTXT,?65,$J($P(RCSCDATA,U,I),13),! Line Location: PRINTGT+84
Function Call: WRITE	Prompt: RCLINE,! Line Location: PRINTGT+86