RCDPESP3 ;BIRM/EWL - ePayment Lockbox Payer Implementation Report ;Jun 11, 2014@13:00:05
;;4.5;Accounts Receivable;**298,326**;Nov 11, 2013;Build 26
;Per VA Directive 6402, this routine should not be modified.
RPT ; RUN THE PAYER IMPLEMENTATION REPORT
;
; DESCRIPTION: This report is a simple listing of the RCDPE PARAMETER AUDIT file
; including data concerning changes to the RCDPE AUTO PAY EXCLUSION file.
;
; GLOBALS: ^RCY(344.7, RCDPE PARAMETER AUDIT
; ^RCY(344.6, RCDPE AUTO PAY EXCLUSION
; ^TMP("RCDPESP2",$J, TMP FILE FOR LIST DIC OUTPUT
;
; INPUT PARAMETERS: NONE
;
; LOCAL VARIABLES:
; RCGET - HOLDS POINTER TO TMP FILE RESULTS FROM LIST^DIC CALL
; RCMSG - HOLDS ERRORS FROM LIST^DIC
; RCRUN - DATE THE REPORT RAN
; RCLINECT- LINE COUNTER
; RCPAGE - PAGE COUNTER
; RCSTOP - STOP DISPLAYING THE REPORT
; RCIEN - IEN OF CURRENT PAYER
; RCPAYER - PAYER NAME
; RCID - PAYER ID
; RCTIME - TIMESTAMP PAYER WAS ADDED
;
; FOR REPORT FORMATTING
; SPT - TOTAL LINE SPACE - DATE & 2 SPACES
; SPI - LINE SPACE AVAILABLE FOR PAYER ID
; SPN - LINE SPACE AVAILABLE FOR PAYER NAME
; T1 - 1ST TAB STOP
; T2 - 2ND TAB STOP
N %ZIS,CT,RCGET,RCID,RCIEN,RCLINECT,RCPAGE,RCPAYER,RCRUNDT,RCSTOP,RCTIME,RCTYPE,SPI,SPN,SPT,T1,T2
; FILEMAN VARIABLES
N POP,X,X1,X2,Y,ZIS
S (RCPAGE,RCSTOP,RCIEN,RCLINECT)=0
;
; PRCA*4.5*326 - Filter by MEDICAL, PHARMACY, TRICARE OR ALL
S RCTYPE=$$RTYPE^RCDPEU1 I RCTYPE=-1 Q
;Select output device
S %ZIS="M" D ^%ZIS Q:POP U IO
; SET UP PAGE FORMATTING
I IOM<100 D
. S SPT=IOM-10 ; SPACE AVAILABLE FOR PAYER ID AND PAYER NAME
. S SPI=(SPT\3)-1 ; SPACE FOR PAYER ID
. S SPN=SPT-SPI ; SPACE FOR PAYER NAME
I IOM'<100 D
. S SPT=90 ; SPACE AVAILABLE FOR PAYER ID AND PAYER NAME
. S SPI=30 ; SPACE FOR PAYER ID
. S SPN=60 ; SPACE FOR PAYER NAME
S T1=SPI+1,T2=SPT+2
;
; ********************************
; PROCESS THE PAYERS
; ********************************
D HDR S RCLINECT=6
F S RCIEN=$O(^RCY(344.6,RCIEN)) Q:('RCIEN)!RCSTOP D
. ; PRCA*4.5*326 - Filter by MEDICAL, PHARMACY, TRICARE OR ALL
. I '$$CHKTYPE^RCDPEU1(RCIEN,RCTYPE) Q
. S RCPAYER=$$GET1^DIQ(344.6,RCIEN_",",.01)
. S RCID=$$GET1^DIQ(344.6,RCIEN_",",.02)
. S RCTIME=$$FMTE^XLFDT($$GET1^DIQ(344.6,RCIEN_",",.03,"I"),"2D")
. I $L($P(RCTIME,"/",1))=1 S $P(RCTIME,"/",1)="0"_$P(RCTIME,"/",1)
. I $L($P(RCTIME,"/",2))=1 S $P(RCTIME,"/",2)="0"_$P(RCTIME,"/",2)
. I RCLINECT+1>IOSL D HDR S RCLINECT=6
. S RCLINECT=RCLINECT+1
. W !,$E(RCID,1,SPI),?T1,$E(RCPAYER,1,SPN),?T2,RCTIME
I 'RCSTOP D ASK^RCDPEARL()
Q
;
HDR ; Report header
; LOCAL VARIABLES
; LN - SEPARATION LINE
N LN,XX
I RCPAGE D ASK^RCDPEARL(.RCSTOP) Q:RCSTOP
W @IOF
S RCPAGE=RCPAGE+1 I RCPAGE=1 S RCRUNDT=$$FMTE^XLFDT($$NOW^XLFDT,2)
; PRCA*4.5*326 - Start modifications
W $$CNTR^RCDPESP2("PAYER IMPLEMENTATION REPORT"),?IOM-8,"Page: "_RCPAGE
S XX="RUN DATE: "_RCRUNDT_" MEDICAL/PHARMACY/TRICARE: "
S XX=XX_$S(RCTYPE="M":"MEDICAL",RCTYPE="P":"PHARMACY",RCTYPE="T":"TRICARE",1:"ALL")
W !,$$CNTR^RCDPESP2(XX)
; PRCA*4.5*326 - End modifications
W !!,"PAYER TIN",?T1,"PAYER NAME",?T2-2,"DATE ADDED"
S $P(LN,"=",SPT+11)="" W !,LN
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRCDPESP3 3394 printed Apr 09, 2024@20:47:07 Page 2
RCDPESP3 ;BIRM/EWL - ePayment Lockbox Payer Implementation Report ;Jun 11, 2014@13:00:05
+1 ;;4.5;Accounts Receivable;**298,326**;Nov 11, 2013;Build 26
+2 ;Per VA Directive 6402, this routine should not be modified.
RPT ; RUN THE PAYER IMPLEMENTATION REPORT
+1 ;
+2 ; DESCRIPTION: This report is a simple listing of the RCDPE PARAMETER AUDIT file
+3 ; including data concerning changes to the RCDPE AUTO PAY EXCLUSION file.
+4 ;
+5 ; GLOBALS: ^RCY(344.7, RCDPE PARAMETER AUDIT
+6 ; ^RCY(344.6, RCDPE AUTO PAY EXCLUSION
+7 ; ^TMP("RCDPESP2",$J, TMP FILE FOR LIST DIC OUTPUT
+8 ;
+9 ; INPUT PARAMETERS: NONE
+10 ;
+11 ; LOCAL VARIABLES:
+12 ; RCGET - HOLDS POINTER TO TMP FILE RESULTS FROM LIST^DIC CALL
+13 ; RCMSG - HOLDS ERRORS FROM LIST^DIC
+14 ; RCRUN - DATE THE REPORT RAN
+15 ; RCLINECT- LINE COUNTER
+16 ; RCPAGE - PAGE COUNTER
+17 ; RCSTOP - STOP DISPLAYING THE REPORT
+18 ; RCIEN - IEN OF CURRENT PAYER
+19 ; RCPAYER - PAYER NAME
+20 ; RCID - PAYER ID
+21 ; RCTIME - TIMESTAMP PAYER WAS ADDED
+22 ;
+23 ; FOR REPORT FORMATTING
+24 ; SPT - TOTAL LINE SPACE - DATE & 2 SPACES
+25 ; SPI - LINE SPACE AVAILABLE FOR PAYER ID
+26 ; SPN - LINE SPACE AVAILABLE FOR PAYER NAME
+27 ; T1 - 1ST TAB STOP
+28 ; T2 - 2ND TAB STOP
+29 NEW %ZIS,CT,RCGET,RCID,RCIEN,RCLINECT,RCPAGE,RCPAYER,RCRUNDT,RCSTOP,RCTIME,RCTYPE,SPI,SPN,SPT,T1,T2
+30 ; FILEMAN VARIABLES
+31 NEW POP,X,X1,X2,Y,ZIS
+32 SET (RCPAGE,RCSTOP,RCIEN,RCLINECT)=0
+33 ;
+34 ; PRCA*4.5*326 - Filter by MEDICAL, PHARMACY, TRICARE OR ALL
+35 SET RCTYPE=$$RTYPE^RCDPEU1
IF RCTYPE=-1
QUIT
+36 ;Select output device
+37 SET %ZIS="M"
DO ^%ZIS
if POP
QUIT
USE IO
+38 ; SET UP PAGE FORMATTING
+39 IF IOM<100
Begin DoDot:1
+40 ; SPACE AVAILABLE FOR PAYER ID AND PAYER NAME
SET SPT=IOM-10
+41 ; SPACE FOR PAYER ID
SET SPI=(SPT\3)-1
+42 ; SPACE FOR PAYER NAME
SET SPN=SPT-SPI
End DoDot:1
+43 IF IOM'<100
Begin DoDot:1
+44 ; SPACE AVAILABLE FOR PAYER ID AND PAYER NAME
SET SPT=90
+45 ; SPACE FOR PAYER ID
SET SPI=30
+46 ; SPACE FOR PAYER NAME
SET SPN=60
End DoDot:1
+47 SET T1=SPI+1
SET T2=SPT+2
+48 ;
+49 ; ********************************
+50 ; PROCESS THE PAYERS
+51 ; ********************************
+52 DO HDR
SET RCLINECT=6
+53 FOR
SET RCIEN=$ORDER(^RCY(344.6,RCIEN))
if ('RCIEN)!RCSTOP
QUIT
Begin DoDot:1
+54 ; PRCA*4.5*326 - Filter by MEDICAL, PHARMACY, TRICARE OR ALL
+55 IF '$$CHKTYPE^RCDPEU1(RCIEN,RCTYPE)
QUIT
+56 SET RCPAYER=$$GET1^DIQ(344.6,RCIEN_",",.01)
+57 SET RCID=$$GET1^DIQ(344.6,RCIEN_",",.02)
+58 SET RCTIME=$$FMTE^XLFDT($$GET1^DIQ(344.6,RCIEN_",",.03,"I"),"2D")
+59 IF $LENGTH($PIECE(RCTIME,"/",1))=1
SET $PIECE(RCTIME,"/",1)="0"_$PIECE(RCTIME,"/",1)
+60 IF $LENGTH($PIECE(RCTIME,"/",2))=1
SET $PIECE(RCTIME,"/",2)="0"_$PIECE(RCTIME,"/",2)
+61 IF RCLINECT+1>IOSL
DO HDR
SET RCLINECT=6
+62 SET RCLINECT=RCLINECT+1
+63 WRITE !,$EXTRACT(RCID,1,SPI),?T1,$EXTRACT(RCPAYER,1,SPN),?T2,RCTIME
End DoDot:1
+64 IF 'RCSTOP
DO ASK^RCDPEARL()
+65 QUIT
+66 ;
HDR ; Report header
+1 ; LOCAL VARIABLES
+2 ; LN - SEPARATION LINE
+3 NEW LN,XX
+4 IF RCPAGE
DO ASK^RCDPEARL(.RCSTOP)
if RCSTOP
QUIT
+5 WRITE @IOF
+6 SET RCPAGE=RCPAGE+1
IF RCPAGE=1
SET RCRUNDT=$$FMTE^XLFDT($$NOW^XLFDT,2)
+7 ; PRCA*4.5*326 - Start modifications
+8 WRITE $$CNTR^RCDPESP2("PAYER IMPLEMENTATION REPORT"),?IOM-8,"Page: "_RCPAGE
+9 SET XX="RUN DATE: "_RCRUNDT_" MEDICAL/PHARMACY/TRICARE: "
+10 SET XX=XX_$SELECT(RCTYPE="M":"MEDICAL",RCTYPE="P":"PHARMACY",RCTYPE="T":"TRICARE",1:"ALL")
+11 WRITE !,$$CNTR^RCDPESP2(XX)
+12 ; PRCA*4.5*326 - End modifications
+13 WRITE !!,"PAYER TIN",?T1,"PAYER NAME",?T2-2,"DATE ADDED"
+14 SET $PIECE(LN,"=",SPT+11)=""
WRITE !,LN
+15 QUIT
