Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: RCDPESP3

RCDPESP3.m

Go to the documentation of this file. 
  1. RCDPESP3 ;BIRM/EWL - ePayment Lockbox Payer Implementation Report ;Jun 11, 2014@13:00:05
  1.  ;;4.5;Accounts Receivable;**298,326,432**;Nov 11, 2013;Build 16
  1.  ;Per VA Directive 6402, this routine should not be modified.
  1. RPT ; RUN THE PAYER IMPLEMENTATION REPORT
  1.  ;
  1.  ; DESCRIPTION: This report is a simple listing of the RCDPE PARAMETER AUDIT file
  1.  ;              including data concerning changes to the RCDPE AUTO PAY EXCLUSION file.
  1.  ;
  1.  ; GLOBALS:     ^RCY(344.7,              RCDPE PARAMETER AUDIT
  1.  ;              ^RCY(344.6,              RCDPE AUTO PAY EXCLUSION
  1.  ;              ^TMP("RCDPESP2",$J,      TMP FILE FOR LIST DIC OUTPUT
  1.  ;
  1.  ; INPUT PARAMETERS: NONE
  1.  ;
  1.  ; LOCAL VARIABLES: 
  1.  ;    RCGET   - HOLDS POINTER TO TMP FILE RESULTS FROM LIST^DIC CALL
  1.  ;    RCMSG   - HOLDS ERRORS FROM LIST^DIC
  1.  ;    RCRUN   - DATE THE REPORT RAN
  1.  ;    RCLINECT- LINE COUNTER
  1.  ;    RCPAGE  - PAGE COUNTER
  1.  ;    RCSTOP  - STOP DISPLAYING THE REPORT
  1.  ;    RCIEN   - IEN OF CURRENT PAYER
  1.  ;    RCPAYER - PAYER NAME
  1.  ;    RCID    - PAYER ID
  1.  ;    RCTIME  - TIMESTAMP PAYER WAS ADDED
  1.  ;
  1.  ; FOR REPORT FORMATTING
  1.  ;    SPT     - TOTAL LINE SPACE - DATE & 2 SPACES 
  1.  ;    SPI     - LINE SPACE AVAILABLE FOR PAYER ID
  1.  ;    SPN     - LINE SPACE AVAILABLE FOR PAYER NAME
  1.  ;    T1      - 1ST TAB STOP
  1.  ;    T2      - 2ND TAB STOP
  1.  N %ZIS,CT,RCGET,RCID,RCIEN,RCLINECT,RCPAGE,RCPAYER,RCRUNDT,RCSTOP,RCTIME,RCTYPE,SPI,SPN,SPT,T1,T2
  1.  ; FILEMAN VARIABLES
  1.  N POP,X,X1,X2,Y,ZIS
  1.  S (RCPAGE,RCSTOP,RCIEN,RCLINECT)=0
  1.  ;
  1.  ; PRCA*4.5*326 - Filter by MEDICAL, PHARMACY, TRICARE OR ALL  ;PRCA*4.5*432 Add CHAMPVA
  1.  S RCTYPE=$$RTYPE^RCDPEU1 I RCTYPE=-1 Q
  1.  ;Select output device
  1.  S %ZIS="M" D ^%ZIS Q:POP  U IO
  1.  ; SET UP PAGE FORMATTING
  1.  I IOM<100 D
  1.  . S SPT=IOM-10 ; SPACE AVAILABLE FOR PAYER ID AND PAYER NAME
  1.  . S SPI=(SPT\3)-1 ; SPACE FOR PAYER ID
  1.  . S SPN=SPT-SPI ; SPACE FOR PAYER NAME
  1.  I IOM'<100 D
  1.  . S SPT=90 ; SPACE AVAILABLE FOR PAYER ID AND PAYER NAME
  1.  . S SPI=30 ; SPACE FOR PAYER ID
  1.  . S SPN=60 ; SPACE FOR PAYER NAME
  1.  S T1=SPI+1,T2=SPT+2
  1.  ; 
  1.  ; ********************************
  1.  ; PROCESS THE PAYERS
  1.  ; ********************************
  1.  D HDR S RCLINECT=6
  1.  F  S RCIEN=$O(^RCY(344.6,RCIEN)) Q:('RCIEN)!RCSTOP  D
  1.  . ; PRCA*4.5*326 - Filter by MEDICAL, PHARMACY, TRICARE OR ALL  ;PRCA*4.5*432 Add CHAMPVA
  1.  . I '$$CHKTYPE^RCDPEU1(RCIEN,RCTYPE) Q
  1.  . S RCPAYER=$$GET1^DIQ(344.6,RCIEN_",",.01)
  1.  . S RCID=$$GET1^DIQ(344.6,RCIEN_",",.02)
  1.  . S RCTIME=$$FMTE^XLFDT($$GET1^DIQ(344.6,RCIEN_",",.03,"I"),"2D")
  1.  . I $L($P(RCTIME,"/",1))=1 S $P(RCTIME,"/",1)="0"_$P(RCTIME,"/",1)
  1.  . I $L($P(RCTIME,"/",2))=1 S $P(RCTIME,"/",2)="0"_$P(RCTIME,"/",2)
  1.  . I RCLINECT+1>IOSL D HDR S RCLINECT=6
  1.  . S RCLINECT=RCLINECT+1
  1.  . W !,$E(RCID,1,SPI),?T1,$E(RCPAYER,1,SPN),?T2,RCTIME
  1.  I 'RCSTOP D ASK^RCDPEARL()
  1.  Q
  1.  ;
  1. HDR ; Report header
  1.  ; LOCAL VARIABLES
  1.  ; LN - SEPARATION LINE
  1.  N LN,XX
  1.  I RCPAGE D ASK^RCDPEARL(.RCSTOP) Q:RCSTOP
  1.  W @IOF
  1.  S RCPAGE=RCPAGE+1 I RCPAGE=1 S RCRUNDT=$$FMTE^XLFDT($$NOW^XLFDT,2)
  1.   ; PRCA*4.5*326 - Start modifications
  1.  W $$CNTR^RCDPESP2("PAYER IMPLEMENTATION REPORT"),?IOM-8,"Page: "_RCPAGE
  1.  S XX="RUN DATE: "_RCRUNDT_"        MEDICAL/PHARMACY/TRICARE/CHAMPVA: "
  1.  S XX=XX_$S(RCTYPE="M":"MEDICAL",RCTYPE="P":"PHARMACY",RCTYPE="T":"TRICARE",RCTYPE="C":"CHAMPVA",1:"ALL") ;PRCA*4.5*432 Add CHAMPVA
  1.  W !,$$CNTR^RCDPESP2(XX)
  1.  ; PRCA*4.5*326 - End modifications
  1.  W !!,"PAYER TIN",?T1,"PAYER NAME",?T2-2,"DATE ADDED"
  1.  S $P(LN,"=",SPT+11)="" W !,LN
  1.  Q