42. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 11/9/2018 12:33:45 AM Central Standard Time. See www.araxis.com for information about Merge. This report uses XHTML and CSS2, and is best viewed with a modern standards-compliant browser. For optimum results when printing this report, use landscape orientation and enable printing of background images and colours in your browser.

42.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHDRGFLG.m Mon Nov 5 16:44:01 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHDRGFLG.m Thu Nov 8 21:42:20 2018 UTC

42.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 3 222
Changed 2 4
Inserted 0 0
Removed 0 0

42.3 Comparison options

Whitespace
Character case Differences in character case are significant
Line endings Differences in line endings (CR and LF characters) are ignored
CR/LF characters Not shown in the comparison detail

42.4 Active regular expressions

No regular expressions were active.

42.5 Comparison detail

  1   CHDRGFLG ; CVA/TLH;DR G    REPOR T FOR MEDI CARE FLAGS ;11/29/04  12:01 PM
  2    ;:VERSION  1
  3    ;;DEF0165 54, SBB, 1 1/26/13 -  Modified W riting to  a file as  per VHA st andard.
  4    ;;                                 Convert ing from D ECNET to F TP.
  5    ;;DEF0165 54, SBB, 0 7/30/15 -  Adding cha nges for D ECNET
  6    ;
  7    ;This rou tine is to  provide C PD with a  report tha t lists DR G Flags th at are not  set for t he Vendor  type of Ho siptals an d the Spec iality set  to Hospit al Service s.
  8    ;VARIABLE  LIST
  9    ;
  10    ;IVAL.... .Temporary  I value o f ^CHMVEN
  11    ;VENST... Vendor sta tus
  12    ;JVAL.... Temporary  J value of  ^CHMVEN
  13    ;DRGFLG.. .DRG flag
  14    ;DRGMN... .DRG Medic are Number
  15    ;DPULVN.. ..DUP-LV M edicare Nu mber
  16    ;RHBNUM.. ..RHB Medi care Numbe
  17    ;RTCNUM.. ..RTC Medi care Numbe
  18    ;VENTYP.. ..Vendor T ype 
  19    ;VENNAM.. ..Vendor N ame
  20    ;PLSTATE. ..Physical  location  State 
  21    ;RTSTATE. ..Remit to  State  
  22    ;TAXID... Vendor tax  ID
  23    ;VENADR.. .Vendor Ad dress Code
  24    ;
  25   START ;
  26    ;DEF01655 4 SBB 11/2 6/13  - Co nverting f rom DECNET  to FTP.
  27    ;S FIO="H ACFS3"" DNS       Welcome1!" "::D:[FS3B IG]DRGF.DA T"
  28    X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1)
  29    S FILENM= "DRGF.DAT"
  30    I UCI'="H AC" S FILE NM=UCI_FIL ENM
  31    S FILELOC ="HAC_HFS$ :[SCR.TEMP _FILES]"
  32    I UCI'="H AC" S FILE LOC="HAC_H FS$:[DSMMA NAG.CHAMPV A]"
  33    S FIO=FIL ELOC_FILEN M
  34    ;DEF01655 4-11/26/13 -SBB use O PEN^%ZISH  to open fi le
  35    ;O FIO:"N WS" S T=$C (9)
  36    ;SBB 07/3 0/15 DEF01 6554
  37    X "D $SYS TEM.Proces s.SetZEOF( 1)"
  38    I '$$OPEN FIWR^CHTFL IB9(.FIO," FIO") X "D  $SYSTEM.P rocess.Set ZEOF(0)" Q
  39    S T=$C(9)
  40    DO HEAD
  41    SET IVAL= 0,VENST="" ,CT=0
  42   A1 SET IVA L=$O(^CHMV EN(IVAL))  G:'IVAL EX IT
  43    I '$D(^CH MVEN(IVAL, 0)) G A1
  44    SET VENST =$P(^CHMVE N(IVAL,0), "^",8)
  45    I '$D(^CH MVEN(IVAL, 1)) G A1
  46    I VENST'= 0 G A1
  47    SET VENTY P=$P(^CHMV EN(IVAL,1) ,"^",7)
  48    I (VENTYP '=24) I (V ENTYP'=21)  G A1
  49    D CHK
  50    I DRGFLG= 1 D FRITE  G A1
  51    ;This wil l write th e Yes or Y  set for t he Medicar e number.
  52    I DPULVN= "" D FRITE  G A1
  53    ;This wil l allow th e display  of the Yes  or No tha t may be o n the scre en that CP D has acce ss to.  
  54    I RHBNUM= "" D FRITE  G A1
  55    ;This wil l allow th e display  of the Yes  or No tha t may be o n the scre en that CP D has acce ss to.
  56    I RTCNUM= "" D FRITE  G A1
  57    ;This wil l allow th e display  of the Yes  or No tha t may be o n the scre en that CP D has acce ss to.
  58    G A1
  59   CHK ;This  is to chec k for a DR G Medicare  Number fo r the vend or.  If th ere is not  one there  the displ ay will be  blank.  I f what is  in the fie ld is not  numeric th en seting  the flag w ill allow  for a Yes  to be seen  by CPD.
  60    SET JVAL= 999999999, DRGMN="",D RGFLG=1
  61    SET JVAL= $O(^CHMVEN (IVAL,80,J VAL),-1) G :'JVAL F1
  62    I '$D(^CH MVEN(IVAL, 80,JVAL,0) ) G F1
  63    SET DRGMN =$P(^CHMVE N(IVAL,80, JVAL,0),"^ ",2)
  64    S:+DRGMN> 0 DRGFLG=0
  65   F1 ;Check  to see if  there is a nything in  the field  for the D PULVN numb er.  If th ere is no  reference  in the Glo bal the fi eld will d ispay a bl ank.  If t here is a  reference  and the 2n d piece is  null then  the displ ay will be  NO.  
  66    SET JVAL= 999999999, DPULVN=""
  67    S JVAL=$O (^CHMVEN(I VAL,81,JVA L),-1) G:' JVAL F2
  68    I '$D(^CH MVEN(IVAL, 81,JVAL,0) ) G F2
  69    S DPULVN= $P(^CHMVEN (IVAL,81,J VAL,0),"^" ,2)
  70    I DPULVN= "" S DPULV N="NO"
  71   F2 ;Same a s above no  reference  in the gl obal will  be blank,  reference  in the Glo bal but nu ll the dis play will  be NO.
  72    S JVAL=99 9999999,RH BNUM=""
  73    S JVAL=$O (^CHMVEN(I VAL,82,JVA L),-1) G:' JVAL F3
  74    I '$D(^CH MVEN(IVAL, 82,JVAL,0) ) G F3
  75    S RHBNUM= $P(^CHMVEN (IVAL,82,J VAL,0),"^" ,2)
  76    I RHBNUM= "" S RHBNU M="NO"
  77   F3 ;Same a s above no  reference  in the gl obal will  be blank,  reference  in the Glo bal but nu ll the dis play will  be NO.
  78    S JVAL=99 9999999,RT CNUM=""
  79    S JVAL=$O (^CHMVEN(I VAL,83,JVA L),-1) Q:' JVAL
  80    I '$D(^CH MVEN(IVAL, 83,JVAL,0) ) Q
  81    S RTCNUM= $P(^CHMVEN (IVAL,83,J VAL,0),"^" ,2)
  82    I RTCNUM= "" S RTCNU M="NO"
  83    Q
  84   FRITE ;
  85    S PLSTATE =$P(^CHMVE N(IVAL,1), "^",4)
  86    S:PLSTATE '="" PLSTA TE=$P(^DIC (5,PLSTATE ,0),"^",2)
  87    S RTSTATE =$P(^CHMVE N(IVAL,2), "^",4)
  88    S:RTSTATE '="" RTSTA TE=$P(^DIC (5,RTSTATE ,0),"^",2)
  89    S VENNAM= $P(^CHMVEN (IVAL,0)," ^",1)
  90    S TAXID=$ P(^CHMVEN( IVAL,0),"^ ",3)
  91    S VENADR= $P(^CHMVEN (IVAL,0)," ^",23)
  92    U FIO W ! ,PLSTATE_T _RTSTATE_T _TAXID_T_V ENADR_T_VE NNAM_T_DRG MN_T_DPULV N_T_RHBNUM _T_RTCNUM
  93    S CT=CT+1
  94    Q
  95   EXIT ;
  96    U FIO W ! ,"TOTAL RE CORDS FOUN D ",CT
  97    ;DEF01655 4-11/26/13 -SBB use C LOSE^%ZISH  to close  file
  98    ;C FIO
  99    D CLOSEF^ CHTFLIB9(F IO,"FIO")
  100    ;SBB 07/3 0/15 DEF01 6554
  101    X "D $SYS TEM.Proces s.SetZEOF( 0)"
  102    D FTPFILE ^CHTFLIB9( FIO," DNS     . DNS             ","/FS3BIG ","PUT")
  103    K IVAL,VE NST,JVAL,D RGMN,DPULV N,RHBNUM,R TCNUM,VENT YP
  104    K VENNAME ,VENADR,CT ,DRGFLG
  105    K ^CHMZHO LD($J,"DRG _DATA")
  106    Q
  107   HEAD S TIT LE="HEALTH  ADMINISTR ATION CENT ER"
  108    U FIO W D UZ_T_TITLE
  109    S TITLE=" HOSPITAL M EDICARE FL AGS"
  110    U FIO W ! ,$$FMTE^XL FDT(DT,"5D ")_T_TITLE ,!
  111   HDRS U FIO  W !,"PHYS ICAL STATE "_T_"REMIT  TO STATE" _T_"TAX ID "_T_"ADDRE SS CODE"_T _"VENDOR N AME"_T_"DR G #"_T_"DP ULV #"_T_" RHB #"_T_" RTC #"
  112    Q
  113