RCDPEP1 ;AITC/CJE - FLAG PAYERS AS PHARMACY/TRICARE ; 19-APR-2017
;;4.5;Accounts Receivable;**439**;;Build 29
;Per VA Directive 6402, this routine should not be modified.
;
EXCEL ; Output identify payer list in Excel format
; Inputs DATEFILT - Date Filter
; FILTER - Filter by Type
;
I RCDISP D INFO^RCDPEM6 ; Display capture information for Excel
S %ZIS="QM" D ^%ZIS Q:POP ; Select output device
;
D HEADER
D GETPAY^RCDPEP(FILTER,DATEFILT) ; Retrieve the payors sorted and filtered
D OUTPUT
W !!,"*** END OF REPORT ***",!
N STOP S STOP=""
D ASK^RCDPEARL(.STOP)
Q
W !,"Payer Name^TIN^Pharmacy^Tricare^CHAMPVA^Date Added^EFT Only"
Q
OUTPUT ; Output records in ^TMP($J, "RCDPEPIX"), already filtered list
; See GETPAY^RCDPEP for documentation of record format
N CNT,FLD,J,REC
S CNT=0
F S CNT=$O(^TMP($J,"RCDPEPIX",CNT)) Q:'CNT D ;
. S REC=^TMP($J,"RCDPEPIX",CNT)
. W !
. F J=2,3,5,6,8,4 D ;
. . S FLD=$P(REC,"^",J)
. . ;I FLD["," S FLD=""""_FLD_"""" ; If data contains "," add quotes for Excel
. . W FLD_"^"
. W $P(REC,"^",7)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRCDPEP1 1226 printed Sep 23, 2025@19:21:12 Page 2
RCDPEP1 ;AITC/CJE - FLAG PAYERS AS PHARMACY/TRICARE ; 19-APR-2017
+1 ;;4.5;Accounts Receivable;**439**;;Build 29
+2 ;Per VA Directive 6402, this routine should not be modified.
+3 ;
EXCEL ; Output identify payer list in Excel format
+1 ; Inputs DATEFILT - Date Filter
+2 ; FILTER - Filter by Type
+3 ;
+4 ; Display capture information for Excel
IF RCDISP
DO INFO^RCDPEM6
+5 ; Select output device
SET %ZIS="QM"
DO ^%ZIS
if POP
QUIT
+6 ;
+7 DO HEADER
+8 ; Retrieve the payors sorted and filtered
DO GETPAY^RCDPEP(FILTER,DATEFILT)
+9 DO OUTPUT
+10 WRITE !!,"*** END OF REPORT ***",!
+11 NEW STOP
SET STOP=""
+12 DO ASK^RCDPEARL(.STOP)
+13 QUIT
+1 WRITE !,"Payer Name^TIN^Pharmacy^Tricare^CHAMPVA^Date Added^EFT Only"
+2 QUIT
OUTPUT ; Output records in ^TMP($J, "RCDPEPIX"), already filtered list
+1 ; See GETPAY^RCDPEP for documentation of record format
+2 NEW CNT,FLD,J,REC
+3 SET CNT=0
+4 ;
FOR
SET CNT=$ORDER(^TMP($JOB,"RCDPEPIX",CNT))
if 'CNT
QUIT
Begin DoDot:1
+5 SET REC=^TMP($JOB,"RCDPEPIX",CNT)
+6 WRITE !
+7 ;
FOR J=2,3,5,6,8,4
Begin DoDot:2
+8 SET FLD=$PIECE(REC,"^",J)
+9 ;I FLD["," S FLD=""""_FLD_"""" ; If data contains "," add quotes for Excel
+10 WRITE FLD_"^"
End DoDot:2
+11 WRITE $PIECE(REC,"^",7)
End DoDot:1
+12 QUIT
