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,RCPUZ,RCSORT)	;
TINARY(RCSTART,RCEND)	;
INTRSCT()	;
PRINTRP(RCTITLE,RCDATA,RCRPIEN,RCDISP,RCTFLG)	;
PAYSUM(RCINSTIN,RCPUZ)	;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. ; RCPUZ - P: Payment EEOBs, U: Unmatched EEOBs, Z: Zero Payment EEOBs, A: All ;PRCA4.5446
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
ASKPUZ()	; EP from RCDPENR2 - added for PRCA4.5446 ; Input: N/A ; Returns: -1 - User ^ or timed out ; P - Include Payment EEOBs only ; U - Include Unmatched EEOBs only ; Z - Include Zero payment EEOBs only ; A - Include All types
ASKSORT()	; EP from RCDPENR2 - added for PRCA4.5446 ; Input: N/A ; Returns: -1 - User ^ or timed out ; P - Sort by Payer ; A - Sort by Amount of payment
GETSDATE()
GETEDATE(RCBDATE)
GETRATE()	; ; PRCA4.5446 - 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