165. EPMO Open Source Coordination Office Redaction File Detail Report

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

165.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMLAMB1.m Mon Nov 5 16:42:19 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMLAMB1.m Mon Nov 5 17:49:56 2018 UTC

165.2 Comparison summary

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

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

165.4 Active regular expressions

No regular expressions were active.

165.5 Comparison detail

  1   CHMLAMB1 ; CVA/CR;ZIP  TO MSA CR OSSWALK;10 /05/98  4: 45 PM
  2    ;V1.0
  3    ;MTN01985 3,ASC UPDA TE DPT 1/8 /13
  4    ;DEV01655 4 DEV01289 3 EOF,REMV  DECNET DP T 1/8/13
  5    ;    DPT  REMOVE REF ERENCE TO  ENVIRONMEN
  6   ZSET S:'$D (DUZ) DUZ= 1,DUZ(0)=" " I '$D(DT ) S %DT="" ,X="T" D ^ %DT S DT=Y
  7    S:'$D(IOZ FO) IOZFO= "^^" S:'$D (IOZBK) IO ZBK="^" S: '$D(DTIME)  DTIME=60
  8    I '$D(IOZ ) S %IS="N ",IOP=$I D  ^%ZIS K I OP S IOZ=I O,IOZL=IOS L,IOZW=IOM ,IOZF=IOF, IOZT=IOST, IOZN=ION,I OZS=IOS
  9   ZNAM ;
  10    W !,"ZIP  TO MSA CRO SSWALK"
  11    S CHBEGDT =$E(DT,1,3 )_11_"01"        ; -  COMMENTED  OUT FOR MI D YEAR UPD T
  12    ;S CHBEGD T=3051101
  13    ;S CHBEGD T=3060101     ; MID Y EAR UPDATE  FOR ZIPMS A2.F06 DAT A
  14    ;S CHBEGD T=$E(DT,1, 3)_"04"_"0 1"     ; -  MID YEAR  UPDT
  15    W !,"Use  date: ",CH BEGDT," YE S OR NO N/ /  "
  16    R X:DTIME  
  17    Q:X="" 
  18    I X="N" D
  19     .S DIR(0 )="D" S DI R("A")="En ter BEGIN  Date(filem an format) " D ^DIR K  DIR
  20     .Q:$D(DI RUT)!($D(D UOUT))
  21     .S CHBEG DT=Y
  22    W !,"USE  DATE: " ,C HBEGDT 
  23    ;SET ENVI RONMENT
  24    ;S ENVIR= ""
  25    ;S AYGSYS =XQVOL   ;  SETTING E NVIRONMENT
  26    ;S RUNDT= "" S RUNDT =DT
  27    ;S ENVIR= $S(AYGSYS= "ROU":"LIV E",AYGSYS= "XOU":"TRA IN",AYGSYS ="TOU":"TE ST",AYGSYS ="DOU":"DE V")
  28    ;S $ZE="" ,$ZT="END"
  29    ;SET CROS SWALK OF Z IP CODE TO  MSA CODE  FILE NAME
  30    S DIR(0)= "F^3:50"
  31    S DIR("A" )="Enter C rosswalk o f zip code  to MSA co de file na me (ZIPMSA 1.F07)" D  ^DIR K DIR
  32    Q:$D(DUOU T)
  33    Q:Y="^"!( Y="")
  34    S CNAME=Y  K DIR
  35    N FOLDER, CNTR ;DEV0 16554 DPT
  36    S IOF="#, *27,*91,*5 0,*74,*27, *91,*72"
  37    ;S FILE=C NAME,FOLDE R="" ;DEV0 16554 DPT
  38    ;X ^%ZOSF ("UCI") S  UCI=$P(Y," ,",1) ;DEV 016554 DPT
  39    ;S FOLDER ="HAC_HFS$ :[SCR.TEMP _FILES]" ; DEV016554  DPT
  40    ;I UCI'=" HAC" 
  41    S FOLDER= "HAC_HFS$: [DSMMANAG. CHAMPVA]"  ;DEV016554  DPT
  42    ; S FILE= FOLDER_FIL E ;DPT DEV 016554
  43    ;S CHUCI= $S(UCI="DE V":"DEV",U CI="TST":" TEST",UCI= "TRN":"TRA IN",UCI="S LA":"LIVE" ,UCI="HAC" :"LIVE") ; DEV012893  DPT
  44    ;S FLDR=" /FS3BIG/CO DEUPDT/ASC UPDT/"_CHU CI_"" ;DEV 012893 DPT
  45    ;D FTPFIL E^CHTFLIB9 (FILE," DNS     fs3. DNS             ",FLDR,"GE T") ;DEV01 6554 DPT
  46    ;S IO="HA CFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. ASCUPDT."_ ENVIR_"]"_ CNAME
  47    ;O IO:"R" :5                  ; C IO O IO: "R":5
  48    S FILE=FO LDER_CNAME  ; DPT 4/1 6/18
  49    S POP=0,C NTR=0 ;DPT  DEV016554
  50    F  S CNTR =CNTR+1 Q: (CNTR>5)!P OP  D ;DEV 016554 DPT
  51     . X "D $ SYSTEM.Pro cess.SetZE OF(1)"  ;D EV016554 D PT
  52     .S POP=$ $OPENFIRD^ CHTFLIB9(. FILE,"FILE ") ;DEV016 554 DPT
  53     .Q ;DEV0 16554 DPT
  54     I 'POP G  END ;DEV0 16554 DPT
  55   A1 
  56    U FILE R  X G:$$STAT US^%ZISH E ND ;DEV016 554 DPT
  57    S CHST=$E (X,1,2)
  58    S CHZIP=$ E(X,3,7),C HMSA=$E(X, 8,11)
  59    I '$D(^CH MDIC(74100 2.82,"B",C HZIP)) D N EW G A2
  60    S DA=0
  61    S DA=$O(^ CHMDIC(741 002.82,"B" ,CHZIP,DA) ) I 'DA D  NEW G A2
  62    S CHLSTDT =$O(^CHMDI C(741002.8 2,DA,1,999 9999),-1)
  63    G A2:'CHL STDT
  64    G A1:$P(^ CHMDIC(741 002.82,DA, 1,CHLSTDT, 0),"^",2)= +CHMSA
  65   A2 S $P(^C HMDIC(7410 02.82,DA,1 ,CHBEGDT,0 ),"^",1)=C HBEGDT
  66    S $P(^CHM DIC(741002 .82,DA,1,C HBEGDT,0), "^",2)=+CH MSA
  67    G A1
  68   END D CLOS EF^CHTFLIB 9(FILE,"FI LE") ;DEV0 16554 DPT
  69      X "D $S YSTEM.Proc ess.SetZEO F(0)" ;DEV 016554 DPT
  70    
  71    ;S X=$ZF( -1,"DELETE "_FILE_";" ) ;DEV0165 54 DPT
  72    K CHBEGDT ,CHMSA,CHS T,CHX,CHZI P,DA,DIE,D R,X,Y Q
  73   NEW S DA=$ P(^CHMDIC( 741002.82, 0),"^",3), DA=DA+1
  74    S $P(^CHM DIC(741002 .82,0),"^" ,3)=$P(^(0 ),"^",3)+1
  75    S $P(^CHM DIC(741002 .82,0),"^" ,4)=$P(^(0 ),"^",4)+1
  76    S DIE="^C HMDIC(7410 02.82,",DR =".01///^S  X=CHZIP;. 02///^S X= CHST"
  77    D ^DIE K  DIE
  78    Q