43. 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.

43.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHDRGRPT.m Mon Nov 5 16:40:56 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHDRGRPT.m Fri Nov 9 01:05:32 2018 UTC

43.2 Comparison summary

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

43.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

43.4 Active regular expressions

No regular expressions were active.

43.5 Comparison detail

  1   CHDRGRPT ; CVA/TLH;DR G REPORT F OR MEDICAR E NUMBERS; 11/01/04 1 :44 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 was t o provide  CPD with a  list of v endor type  set to ho spitals an d the spec ility set  to hospita l services  that had  Medicare n umbers set  to Yes. 
  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    ;DRGMN... .DRG Medic are Number
  14    ;VENTYP.. ..Vendor T ype
  15    ;SPECL... .Specialit y for Vend or 
  16    ;VENNAM.. ..Vendor N ame
  17    ;PLSTATE. ..Physical  location  State 
  18    ;RTSTATE. ..Remit to  State  
  19    ;TAXID... Vendor tax  ID
  20    ;VENADR.. .Vendor Ad dress Code
  21    K ^CHMZHO LD($J,"DRG _DATA")
  22   START ;
  23    ;DEF01655 4 SBB 11/2 6/13  - Co nverting f rom DECNET  to FTP.
  24    ;S FIO="H ACFS3"" DNS       Welcome1!" "::D:[FS3B IG]DRG.DAT "
  25    X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1)
  26    S FILENM= "DRG.DAT"
  27    I UCI'="H AC" S FILE NM=UCI_FIL ENM
  28    S FILELOC ="HAC_HFS$ :[SCR.TEMP _FILES]"
  29    I UCI'="H AC" S FILE LOC="HAC_H FS$:[DSMMA NAG.CHAMPV A]"
  30    S FIO=FIL ELOC_FILEN M
  31    ;DEF01655 4-11/26/13 -SBB use O PEN^%ZISH  to open fi le
  32    ;O FIO:"N WS" S T=$C (9)
  33    ;SBB 07/3 0/15 DEF01 6554
  34    X "D $SYS TEM.Proces s.SetZEOF( 1)"
  35    I '$$OPEN FIWR^CHTFL IB9(.FIO," FIO") X "D  $SYSTEM.P rocess.Set ZEOF(0)" Q
  36    S T=$C(9)
  37    DO HEAD
  38    SET IVAL= 0,VENST="" ,CT=0
  39   A1 SET IVA L=$O(^CHMV EN(IVAL))  G:'IVAL EX IT
  40    I '$D(^CH MVEN(IVAL, 0)) G A1
  41    SET VENST =$P(^CHMVE N(IVAL,0), "^",8)
  42    I '$D(^CH MVEN(IVAL, 1)) G A1
  43    I VENST'= 0 G A1 
  44    SET VENTY P=$P(^CHMV EN(IVAL,1) ,"^",7)
  45    I (VENTYP '=24) I (V ENTYP'=21)  G A1
  46    SET SPECL =$P(^CHMVE N(IVAL,1), "^",11)
  47    I SPECL'= 29 G A1
  48    SET JVAL= 999999999, DRGMN=""
  49    SET JVAL= $O(^CHMVEN (IVAL,80,J VAL),-1) G :'JVAL A1
  50    I '$D(^CH MVEN(IVAL, 80,JVAL,0) ) G A1
  51    SET DRGMN =$P(^CHMVE N(IVAL,80, JVAL,0),"^ ",2)
  52    I DRGMN'= "YES" G A1
  53    S PLSTATE =$P(^CHMVE N(IVAL,1), "^",4)
  54    S:PLSTATE '="" PLSTA TE=$P(^DIC (5,PLSTATE ,0),"^",2)
  55    S RTSTATE =$P(^CHMVE N(IVAL,2), "^",4)
  56    S:RTSTATE '="" RTSTA TE=$P(^DIC (5,RTSTATE ,0),"^",2)
  57    S VENNAM= $P(^CHMVEN (IVAL,0)," ^",1)
  58    S TAXID=$ P(^CHMVEN( IVAL,0),"^ ",3)
  59    S VENADR= $P(^CHMVEN (IVAL,0)," ^",23)
  60    ;O FIO
  61    U FIO W P LSTATE_T_R TSTATE_T_T AXID_T_VEN ADR_T_VENN AM_T_DRGMN ,!
  62    S CT=CT+1
  63    GOTO A1
  64   HEAD S TIT LE="HEALTH  ADMINISTR ATION CENT ER"
  65    U FIO W D UZ_T_TITLE
  66    S TITLE=" HOSPITAL M EDICARE FL AGS"
  67    U FIO W ! ,$$FMTE^XL FDT(DT,"5D ")_T_TITLE ,!
  68   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 #"
  69    Q
  70   EXIT ;
  71    ;W !,"TOT AL RECORDS  FOUND ",C T
  72    K IVAL,VE NST,JVAL,D RGMN,VENTY P,SPECL,VE NNAME,VENA DR,CT
  73    ;DEF01655 4-11/26/13 -SBB use C LOSE^%ZISH  to close  file
  74    ;C FIO
  75    D CLOSEF^ CHTFLIB9(F IO,"FIO")
  76    ;SBB 07/3 0/15 DEF01 6554
  77    X "D $SYS TEM.Proces s.SetZEOF( 0)"
  78    D FTPFILE ^CHTFLIB9( FIO," DNS     . DNS             ","/FS3BIG ","PUT")
  79    Q
  80