Routine: RCDPENR4

Information

RCDPENR4 ;ALB/SAB - EPay National Reports - ERA/EFT Report Utilities ;12/14/15

Name	Comments	DBIA/ICR reference
SPAY()	;
M1(X,Y)	; ; first/last day of month in MMDDYYYY format (if Y=2), or date in ; external format (if Y=3).
GETERA(RCSDATE,RCEDATE,RCRATE,RCCLM)	;
TINARY(RCSTART,RCEND)	;
INTRSCT()	;
PRINTRP(RCTITLE,RCDATA,RCRPIEN,RCDISP,RCTFLG)	;
PAYSUM(RCINSTIN)	;Print the Payer Summary portion of the report for one payer. New for ; PRCA4.5349 ; Input: RCINSTIN - Payer Name/TIN combination, key to ^TMP global.
DIV(RCDIV)	; build the list of divisions to report on. ; PRCA4.5349 - Moved from RCDPENR2 for size
GETDIV(RCDIV)	; Retrieve the Division ; PRCA4.5349 - Moved from RCDPENR2 for size

Name	Line Occurrences
Function Call: WRITE	Prompt: !,RCTITLE,!! Line Location: PRINTRP+22
Function Call: WRITE	Prompt: RCLINE,! Line Location: PRINTRP+23
Function Call: WRITE	Prompt: "NUMBER OF 837s TRANSMITTED TO MEDICAL PAYERS",?65,$J(+$P(RCDATA,U),10) Line Location: PRINTRP+29
Function Call: WRITE	Prompt: !,"NUMBER OF NCPDP CLAIMS TRANSMITTED TO PHARMACY PBMs",?65,$J(+$P(RCDATA,U,2),10) Line Location: PRINTRP+30
Function Call: WRITE	Prompt: !,"NUMBER OF 835s RECEIVED FROM MEDICAL PAYERS",?65,$J(+$P(RCDATA,U,3),10) Line Location: PRINTRP+31
Function Call: WRITE	Prompt: !,"NUMBER OF 835s RECEIVED FROM PHARMACY PBMS",?65,$J(+$P(RCDATA,U,4),10) Line Location: PRINTRP+32
Function Call: WRITE	Prompt: !,"NUMBER OF 837s WITH A CORRESPONDING 835 (MRA Excluded)",?65,$J(+$P(RCDATA,U,5),10) Line Location: PRINTRP+33
Function Call: WRITE	Prompt: !,"NUMBER OF NCPDP CLAIM WITH A CORRESPONDING 835",?65,$J(+$P(RCDATA,U,6),10) Line Location: PRINTRP+34
Function Call: WRITE	Prompt: !,"AVG #DAYS BETWEEN 837 TRANSMIT AND 835 RECEIVED",?65,$J(+$P(RCDATA,U,7),10,1) Line Location: PRINTRP+35
Function Call: WRITE	Prompt: !,"AVG #DAYS BETWEEN NCPDP CLAIM TRANSMIT AND 835 RCVD",?65,$J(+$P(RCDATA,U,8),10,1) Line Location: PRINTRP+36
Function Call: WRITE	Prompt: !,RCLINE,! Line Location: PRINTRP+37