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

163.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMLAI5.m Mon Nov 5 16:44:35 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMLAI5.m Mon Nov 5 17:49:55 2018 UTC

163.2 Comparison summary

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

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

163.4 Active regular expressions

No regular expressions were active.

163.5 Comparison detail

  1   CHMLAI5 ;M CR/DEN;Loa d AI test  into ADA;0 3/08/99  1 1:26 AM
  2    ;V 1.0
  3    ;MTN01419 0 DPT 1/25 /12 UPDATE  AI TEST C ODES FOR A DA COPIED  FROM CHMLA I3
  4    ;MTN01993 0 DEV01655 4 DPT CODE  UPDATE EO F REPLACE  DECNET
  5    ;MTN   DP T  OMIT CH ECK FOR EN VIRONMENT  MANUALLY M OVE FILE F ROM FS3 TO  CACHE FY2 018
  6    ;S FILE=" HAC_HFS$:[ DSMMANAG]2 002_CPT.DA T"
  7    ; S FILE= "HACFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT] ADA2AI.TXT "
  8    ; S $ZE=" ",$ZT="END ",CNT=0
  9    ; O FILE: READ
  10    ;U FILE
  11    ;K ^CHMZH OLD("CHMLA I5")
  12    ;F  R REC  D
  13    ;.S CNT=C NT+1  
  14    ;.S CODE= $P(REC,"^" ,1),TEST=$ P(REC,"^", 3)
  15    ;.S CHPGP T=6
  16    ;.S ERR=$ $^CHMLAI5L (CHPGPT,CO DE,TEST)
  17    ;.S:ERR]" " ^CHMZHOL D("CHMLAI5 ",ERR)=""
  18    ;END S CN T=CNT+1 C  FILE
  19    ;S ^CHMZH OLD("CHMLA I5",0)=CNT
  20    ;Q
  21   START ;
  22    S CDCOL=1  ;CODE AI  COLUMN IN  PMPAY SPRE ADSHEET
  23    S CVCOL=7  ;CVA AI C OLUMN IN P MPAY SPREA DSHEET  MT N014190 DP T 1/25/12
  24    S SBCOL=8  ;SB AI CO LUMN IN PM PAY SPREAD SHEET MTN0 14190 DPT  1/25/12
  25    S $ZE="", $ZT="END", CNT=0
  26    ;SET ENVI RONMENT
  27    ; S AYGSY S=XQVOL
  28    ; S AYGSY S=$S(AYGSY S="ROU":"L IVE",AYGSY S="XOU":"T RAIN",AYGS YS="TOU":" TEST",AYGS YS="DOU":" DEV")
  29    ; S ENVIR =AYGSYS
  30    ; S DIR(" B")=ENVIR
  31    ;S DIR(0) ="SO^1:LIV E;2:TRAIN; 3:TEST;4:D EV"
  32    ;S DIR("L ",1)="Sele ct one of  the follow ing enviro nments"
  33    ;S DIR("L ",2)=""
  34    ;S DIR("L ",3)="   1   LIVE"
  35    ;S DIR("L ",4)="   2   TRAIN"
  36    ;S DIR("L ",5)="   3   TEST"
  37    ;S DIR("L ",6)="   4   DEV"
  38    ;S DIR("L ",7)=""
  39    ;S DIR("L ")="   ^    QUIT"
  40    ;D ^DIR K  DIR
  41    ;Q:$D(DUO UT)
  42    ;Q:Y=""
  43    ;Q:Y="^"! (Y="")
  44    ;S ENVIR= Y(0)
  45    ;S $ZE="" ,$ZT="END"
  46    ;SET ADA  FILE NAME
  47    S DIR(0)= "F^3:50"
  48    S DIR("A" )="Enter A DA file na me" D ^DIR  K DIR
  49    Q:$D(DUOU T)
  50    Q:Y="^"!( Y="")
  51    S CNAME=Y  K DIR
  52    ;S FILE=" HACFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. ADAUPDT."_ ENVIR_"]"_ CNAME     ; NAME OF  ADA FILE
  53    ;O FILE:" R":5
  54    ; N FOLDE R,CNTR 
  55    ; S IOF=" #,*27,*91, *50,*74,*2 7,*91,*72"
  56    ;S FILE=C NAME,FOLDE R="" ;DEV0 16554 DPT
  57    ;X ^%ZOSF ("UCI") S  UCI=$P(Y," ,",1) ;DEV 016554 DPT
  58    ;S FOLDER ="HAC_HFS$ :[SCR.TEMP _FILES]" ; DEV016554  DPT
  59    ;I UCI'=" HAC" S FOL DER="HAC_H FS$:[DSMMA NAG.CHAMPV A]" ;DEV01 6554 DPT
  60    ;S FILE=F OLDER_FILE
  61    ;S FLDR=" /FS3BIG/CO DEUPDT/ADA UPDT/"_UCI
  62    ;D FTPFIL E^CHTFLIB9 (FILE," DNS     fs3. DNS             ",FLDR,"GE T") ;DEV01 6554 DPT
  63    ;S POP=0, CNTR=0 ;DE V016554 DP T
  64    ;F  S CNT R=CNTR+1 Q :(CNTR>5)! POP  D ;DE V016554 DP T
  65    ; . S POP =$$OPENFIR D^CHTFLIB9 (.FILE,"FI LE") ;DEV0 16554 DPT
  66    ; .Q ;DEV 016554 DPT
  67    ;I 'POP G  END  ;DEV 016554 DPT
  68    S FILE="H AC_HFS$:[D SMMANAG.CH AMPVA]"_CN AME ;MTN     DPT
  69    O FILE:"R ":5   ;MTN   DPT
  70    ;U FILE
  71    K ^CHMZHO LD("CHMLAI 5")
  72   AILD ;LOAD ING AI TES TS
  73    F  U FILE  R REC D
  74    .G:$$STAT US^%ZISH E ND   ;DEV0 16554 DPT
  75    .S CNT=CN T+1  
  76    .S CODE=$ P(REC,"^", CDCOL),TES T=$P(REC," ^",CVCOL)
  77    .I TEST'[ "TEST" S T EST="TEST  #"_TEST
  78    .S CHPGPT =1 ; 1 = C VA, 6 = SB , 7 = CWVV   ; <--- C HANGE
  79    .D AIUPDT    ;JEH 2/ 8/08
  80    .S CODE=$ P(REC,"^", CDCOL),TES T=$P(REC," ^",SBCOL)
  81    .I TEST'[ "TEST" S T EST="TEST  #"_TEST
  82    .S CHPGPT =6 ; 1 = C VA, 6 = SB , 7 = CWVV   ; <--- C HANGE
  83    .D AIUPDT    ;JEH 2/ 8/08
  84   END ;S CNT =CNT+1 
  85    C FILE
  86    ;D CLOSEF ^CHTFLIB9( FILE,"FILE ") ;DEV016 554 DPT
  87    S ^CHMZHO LD("CHMLAI 5",0)=$G(C NT) ;DEV01 6554 DPT
  88    Q
  89   AIUPDT ;UP DATES THE  AI GBLS  ; JEH 1/7/08  ADD SUBRT N
  90    S:DUZ=""  DUZ=1
  91    S ERR=$$^ CHMLAI5L(C HPGPT,CODE ,TEST,DUZ)
  92    S:ERR]""  ^CHMZHOLD( "CHMLAI5", ERR)=""
  93    Q
  94