196. EPMO Open Source Coordination Office Redaction File Detail Report

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

196.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMLIDMRW.m Mon Nov 5 16:40:05 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMLIDMRW.m Mon Nov 5 17:50:21 2018 UTC

196.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 5 110
Changed 4 8
Inserted 0 0
Removed 0 0

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

196.4 Active regular expressions

No regular expressions were active.

196.5 Comparison detail

  1   CHMLIDMRW  ;JEH/DEN;R EAD IN FI  PROVIDER/Z IP2WAGE FI LE;08/31/0 7  8:40 AM
  2    ;V1.0
  3    ;MTN02176 0 DPT 9/15 /14 MODIFY  EXTRACTIO N OF DATA  FOR FY2015
  4    ;DEV01655 4 ENC01289 3 DPT REMO VE DECNET
  5    ;MTN02428 3 DPT 9/24 /15 MODIFY  LOAD FOR  FY2016
  6    ;inc02215 32   DPT 4 /11/18 REM OVE EDIT F OR ENVIRON MENT RELOA D ZIP2WAGE  and PROVF I
  7    D INIT
  8    
  9    Q:$D(DUOU T)
  10    G:EFFDATE ="^"!(ENDD ATE="^") E ND
  11   START ;
  12    I FTYPE=1  D GTPDATA    ;GETTIN G & LOADIN G FI PROVI DER DATA I NTO ^CHMDI C(741006.0 7,
  13    I FTYPE=2  D GTZDATA    ;GETTIN G & LOADIN G ZIP CODE  TO WAGE I NDEX CROSS WALK DATA  INTO ^CHMD IC(741006. 03,
  14    G END
  15    ;
  16   GTPDATA ;G ATHERING F I PROVIDER  DATA
  17    U 0 W !!, "Reading i n FI Provi der Data.. .",!
  18    ;S $ZE="" ,$ZT="ENDC ^CHMLIDMRW "
  19    ;S CHIO=" HACFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. IDMEUPDT." _ENVIR_"]" _FNAME
  20    ;O CHIO:" R":5
  21     S CHIO=F NAME,FOLDE R="" ;DEV0 16554 DPT
  22    X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1) ;DEV0 16554 DPT
  23    ;S FOLDER ="HAC_HFS$ :[SCR.TEMP _FILES]" ; DEV016554  DPT
  24    ;I UCI'=" HAC" S FOL DER="HAC_H FS$:[DSMMA NAG.CHAMPV A]" ;DEV01 2893 DPT
  25    ;S CHIO=F OLDER_CHIO
  26    ; S FLDR= "/FS3BIG/C ODEUPDT/ID MEUPDT/"_U CI
  27    ;D FTPFIL E^CHTFLIB9 (CHIO," DNS     fs3. DNS             ",FLDR,"GE T")    ;DEV016554  DPT
  28    S CHIO="H AC_HFS$:[D SMMANAG.CH AMPVA]"_FN AME ;inc02 21532   DP T  4/11/18
  29    S POP=0,C NTR=0 ;DEV 016554 DPT
  30    F  S CNTR =CNTR+1 Q: (CNTR>5)!P OP  D ;DEV 016554 DPT
  31     . X "D $ SYSTEM.Pro cess.SetZE OF(1)" ;DE V016554 DP T
  32     . S POP= $$OPENFIRD ^CHTFLIB9( .CHIO,"CHI O") ;DEV01 6554 DPT
  33     .Q ;DEV0 16554 DPT
  34    I 'POP G  ENDC ;DEV0 16554 DPT
  35    
  36    F  U CHIO  R REC G:$ $STATUS^%Z ISH ENDC D
  37    .D:EFFDAT E<3050110  FMTP1   ;F Y04/05 FOR MAT 
  38    .D:EFFDAT E>3050111& EFFDATE<31 41001 FMTP 2   ;FI PR OVIDER FOR MAT
  39    .D:EFFDAT E>3140930& EFFDATE<31 51001 FMT4     ;MTN02 1760 DPT
  40    .D:EFFDAT E>3150930  FMTP2                     ;MTN02 4283 DPT
  41    .D LDPRV
  42    Q
  43    ;
  44   GTZDATA ;G ATHERING Z IP2WAGE DA TA
  45    Q:CTR=10
  46    U 0 W !!, "Reading i n Zip Code  to Wage I ndex Cross walk Data. ..",!
  47    S $ZE="", $ZT="ENDC^ CHMLIDMRW"
  48    ;S CHIO=" HACFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. IDMEUPDT." _ENVIR_"]" _FNAME
  49    ;O CHIO:" R":5
  50     ;S CHIO= FNAME,FOLD ER="" ;DEV 016554 DPT
  51     ;X ^%ZOS F("UCI") S  UCI=$P(Y, ",",1) ;DE V016554 DP T
  52    ;S FOLDER ="HAC_HFS$ :[SCR.TEMP _FILES]" ; DEV016554  DPT
  53    ;S CHIO=F OLDER_CHIO
  54    ;I UCI'=" HAC" S FOL DER="HAC_H FS$:[DSMMA NAG.CHAMPV A]" ;DEV01 2893 DPT
  55    ;S CHIO=F OLDER_CHIO
  56    ;S CHUCI= $S(UCI="DE V":"DEV",U CI="TST":" TEST",UCI= "TRN":"TRA IN",UCI="S LA":"LIVE" ,UCI="HAC" :"LIVE") ; DEV012893  DPT
  57    ;S FLDR=" /FS3BIG/CO DEUPDT/IDM EUPDT/"_CH UCI  ;DEV0 12893 DPT
  58    ;D FTPFIL E^CHTFLIB9 (CHIO," DNS     fs3. DNS             ",FLDR,"GE T")    ;DEV016554  DPd
  59     S CHIO=" HAC_HFS$:[ DSMMANAG.C HAMPVA]"_F NAME ;  DP T 4/11/18