215. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 11/9/2018 12:34:07 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.

215.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMRZIP1.m Mon Nov 5 16:43:17 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMRZIP1.m Mon Nov 5 17:51:28 2018 UTC

215.2 Comparison summary

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

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

215.4 Active regular expressions

No regular expressions were active.

215.5 Comparison detail

  1   CHMRZIP1 ; CVA/AHJ;Co nvert Flat  file to T emp Global
  2    ;;1.0
  3    ; JEH 12/ 31/08 TT E NC006359 -  MODIFIED  TO ALLOW U SER TO RUN  REPORTS,  PROMPTS CO MMENTED OF F FOR FUTU RE USE
  4    ;DEV01289 3 1/17/201 4 DGC - MO DIFY DECNE T READ
  5    ;MTN02426 5 09/23/15  SBB - Fix  the DECNE T routines  that have  a typo
  6    ;
  7    ; INPUT F ILE FROM Z IP CODE .T XT FILE
  8    ; OUPUT F ILE ^CHMZH OLD("ZIP-M ATCH"
  9    S ZIPCODE =0
  10   START ;
  11    ;K ^CHMZH OLD("ZIP-M ATCH")
  12    S (TOTCNT ,CNT,FCNT, BADCNT,ADD CNT)=0
  13    S CNT=0,F ILE="NONE"
  14    S FNAME=" ZIPMATCH"   ;OUTPUT F ILE
  15    ;
  16    S DIR(0)= "SO^I:INDI VIDUAL;F:F ILE"
  17    S DIR("A" )="OPTION"
  18    S DIR("B" )="I"
  19    S DIR("?" )="SELECT  I, F, or < enter> to  exit"
  20    D ^DIR K  DIR
  21    ;Q:Y=""
  22    Q:$D(DIRU T)
  23    ;SET FILE  NAME
  24    S DIR(0)= "F^3:50"
  25    S DIR("B" )="ZIPMATC H"
  26    S DIR("A" )="Enter n ame of out put file"  D ^DIR K D IR
  27    Q:$D(DUOU T)
  28    Q:Y="^"!( Y="")
  29    S FNAME=Y  K DIR
  30    I Y="F" G  START1    ;READ IN F ILE
  31    ;GETTING  INDIVIDUAL  ZIP
  32    K ^CHMZHO LD("ZIPS", FNAME,"ZIP -MATCH")
  33    S TOTCNT= TOTCNT+1
  34    S CNT=CNT +1
  35    S ^CHMZHO LD("ZIPS", FNAME,"ZIP -MATCH",ZI PCODE)=""
  36    S Y=1
  37    F PRMPT=1 :1 Q:Y=""! (Y="^")  D
  38    .S DIR(0) ="FO^5:5"  S DIR("A") ="ENTER 5  DIGIT ZIPC ODE (HIT < enter> WHE N DONE"
  39    .D ^DIR
  40    .S:Y'=""  ^CHMZHOLD( "ZIPS",FNA ME,"ZIP-MA TCH",Y)=""
  41    .S:Y'=""  ^CHMZHOLD( "ZIPS",FNA ME,"BENE-N A-ZIP-LABE LS")=""
  42    K DIR
  43    Q:Y="^"
  44    W !
  45    G END+1
  46    Q
  47   START1 ;
  48    ;
  49    W !,"Requ ested zip  codes must  be entere d in TEXT  file on FS 3BIG"
  50    W !,"Comp leted file  on FS3BIG  will be Z IPMATCH.TX T, Please  rename imm ediately!! !"
  51   START2 ;
  52    W !,"Ente r your req uested Zip  Code File  name with  .TXT (""E ND"")=QUIT  " 
  53   S1 D SBRS  Q:$D(DFOUT )  Q:$D(DU OUT)
  54    I Y="END"  G END1
  55    I $L(Y)<5  W !,*7,"M UST BE MOR E THAN 5 C HARS" G ST ART1
  56    S INNAME= Y
  57    ;
  58   A1 ;DGC 1/ 17/2014 DE V012893 -  BEGIN
  59    ;S DEVICE  ="HACFS3" " DNS     decnet HAC dec741!"": :D:[FS3BIG .COMMO_RPT S.BENE_LST ]"_INNAME
  60    ;O DEVICE :"R":5
  61    ;I '$T S  $ZE="WRONG  NAME !! U NABLE TO O PEN-TRY AG AIN"_INNAM E_" File"  G BOMB
  62    N FOLDER, CNTR
  63    S DEVICE= INNAME,FOL DER=""
  64    X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1)
  65    X "D $SYS TEM.Proces s.SetZEOF( 1)" ;DGC 7 /30/2015 D EV012893
  66    S FOLDER= "HAC_HFS$: [SCR.TEMP_ FILES]"
  67    I UCI'="H AC" S FOLD ER="HAC_HF S$:[DSMMAN AG.CHAMPVA ]"
  68    S DEVICE= FOLDER_DEV ICE
  69    D FTPFILE ^CHTFLIB9( DEVICE," DNS     fs3. DNS             ","/FS3BIG /COMMO_RPT S/BENE_LST ","GET")
  70    S POP=0,C NTR=0
  71    F  S CNTR =CNTR+1 Q: (CNTR>5)!P OP  D
  72    .S POP=$$ OPENFIRD^C HTFLIB9(.D EVICE,"DEV ICE")
  73    .Q
  74    I 'POP S  $ZE="WRONG  NAME !! U NABLE TO O PEN-TRY AG AIN"_INNAM E_" File"  G BOMB
  75    ;DGC 1/17 2014 DEV01 2893 - END
  76    K ^CHMZHO LD("ZIPS", FNAME,"ZIP -MATCH")
  77    S ^CHMZHO LD("ZIPS", FNAME,"BEN E-NA-ZIP-L ABELS")=""
  78   A2 ;
  79    S TOTCNT= TOTCNT+1
  80    ;
  81    U DEVICE  R RCD#5
  82    S $ZE="",  $ZT="END"  
  83    ;
  84    S ZIPCODE =$E(RCD,1, 5)
  85    ;
  86    S CNT=CNT +1
  87    S ^CHMZHO LD("ZIPS", FNAME,"ZIP -MATCH",ZI PCODE)=""
  88    G A2
  89   A3 ;
  90    ;
  91   END D CLOS EF^CHTFLIB 9(DEVICE," DEVICE") ; C DEVICE -  DGC 1/17/ 2014 DEV01 2893
  92    X "D $SYS TEM.Proces s.SetZEOF( 0)" ;DGC 7 /30/2015 D EV012893
  93    S X=$ZF(- 1,"DELETE" _DEVICE_"; *") ;DGC 1 /17/2014 D EV012893
  94    D CHAMPVA ^CHMRZIP2  ; comment  out for te st only
  95    Q
  96    ;
  97    S Y=CHDAT E D DD^%DT  S PTODAYD T=Y
  98    ;
  99    S CNTZ=1, ^CHMZHOLD( "ZIPS",FNA ME,"BENE3- TEXTMESS3" ,CNTZ)="", CNTZ=CNTZ+ 1
  100    S ^CHMZHO LD("ZIPS", FNAME,"BEN E3-TEXTMES S3",CNTZ)= "********* ********** ********** ********** ********** *",CNTZ=CN TZ+1
  101    S ^CHMZHO LD("ZIPS", FNAME,"BEN E3-TEXTMES S3",CNTZ)= "  BENEFIC IARY NAME  AND ADDRES S LIST                 ",CNTZ=CN TZ+1      
  102    S ^CHMZHO LD("ZIPS", FNAME,"BEN E3-TEXTMES S3",CNTZ)= "  BY SELE CTED ZIP C ODES HAS   COMPLETED              ",CNTZ=CN TZ+1
  103    S ^CHMZHO LD("ZIPS", FNAME,"BEN E3-TEXTMES S3",CNTZ)= "                                                       ",CNTZ=CN TZ+1
  104    S ^CHMZHO LD("ZIPS", FNAME,"BEN E3-TEXTMES S3",CNTZ)= "TODAYS DA TE="_PTODA YDT,CNTZ=C NTZ+1
  105    S ^CHMZHO LD("ZIPS", FNAME,"BEN E3-TEXTMES S3",CNTZ)= "COUNT="_C NT,CNTZ=CN TZ+1
  106    S ^CHMZHO LD("ZIPS", FNAME,"BEN E3-TEXTMES S3",CNTZ)= "                                                       ",CNTZ=CN TZ+1
  107    S ^CHMZHO LD("ZIPS", FNAME,"BEN E3-TEXTMES S3",CNTZ)= "FILE NAME  CAN BE FO UND HERE:                         ",CNTZ=CN TZ+1
  108    S ^CHMZHO LD("ZIPS", FNAME,"BEN E3-TEXTMES S3",CNTZ)= "   FS3BIG .COMMO_RPT S.BENE_LST ="_FNAME_" .TXT",CNTZ =CNTZ+1
  109    S ^CHMZHO LD("ZIPS", FNAME,"BEN E3-TEXTMES S3",CNTZ)= "********* ********** ********** ********** ********** *",CNTZ=CN TZ+1
  110    S ^CHMZHO LD("ZIPS", FNAME,"BEN E3-TEXTMES S3",CNTZ)= ""
  111    S XMTEXT= "^CHMZHOLD ($J,""ZIPS "",FNAME," "BENE3-TEX TMESS3"","
  112    S XMDUZ=. 5
  113    S XMY(DUZ )=""
  114    S XMSUB=" BENE NAME  AND ADDRES S SELECTED  ZIP CODES " D ^XMD
  115    ;
  116    K ^CHMZHO LD("ZIPS", FNAME,"ZIP -MATCH",ZI PCODE)
  117    K ^CHMZHO LD("ZIPS", FNAME,"BEN E-NA-ZIP-L ABELS")
  118    Q
  119   SBRS R Y:$ S($D(DTIME ):DTIME,1: 60)
  120    I '$T W * 7 R Y:15 G  SBRS:Y=". " S:'$T Y= IOZFO
  121   SBRS1 K DF OUT,DUOUT, DQOUT S:'$ D(IOZFO) I OZFO="^^"  S:'$D(IOZB K) IOZBK=" ^"
  122    I IOZFO=Y  W:$D(IOZF ) @IOZF S  (DFOUT,Y)= "" Q
  123    S:Y=IOZBK  (DUOUT,Y) ="" S:Y?1" ?".E!(Y["^ ") (DQOUT, Y)=""
  124    Q
  125   END1 ;
  126    W !,"NO D ATA INPUT"
  127    Q
  128   BOMB ;
  129    D CLOSEF^ CHTFLIB9(D EVICE,"DEV ICE") ;C D EVICE - DG C 1/17/201 4 DEV01289 3
  130    X "D $SYS TEM.Proces s.SetZEOF( 0)" ;DGC 7 /30/2015 D EV012893
  131    S X=$ZF(- 1,"DELETE" _DEVICE_"; *") ;DGC 1 /17/2014 D EV012893
  132    ;W !,MESS AGE
  133    W !,$ZE
  134    G START2
  135    Q
  136    D INT^%ET
  137    Q
  138    ;