155. EPMO Open Source Coordination Office Redaction File Detail Report

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

155.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMLADA2.m Mon Nov 5 16:43:24 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMLADA2.m Mon Nov 5 17:49:52 2018 UTC

155.2 Comparison summary

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

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

155.4 Active regular expressions

No regular expressions were active.

155.5 Comparison detail

  1   CHMLADA2 ; MCR/DEN;CO NVERT ADA  UPDATE TO  FILEMAN;1/ 22/13 3:55 PM
  2    ;;1.0;CHA MPVA SYSTE M;;JULY 4,  1990;
  3    ;V1.0
  4    ;CLONE OF  CHMLHCP3
  5    ;MTN02003 7 DEV01655 4 DPT, COD E UPDATE,  REPLACE DE CNET WITH  FTP, CHNG  EOF
  6     ;MTN     DPT  REMOV E ENVIRONM ENT EDITS  FY2018 MAN UALLY M0VE  FILE TO C ACHE
  7     K ^UTILI TY("ADA")   
  8     S DIR(0) ="D" S DIR ("A")="Ent er Effecti ve Date(fi leman form at)" D ^DI R K DIR
  9    Q:$D(DIRU T)!($D(DUO UT))
  10    S EFFDATE =Y                  ; EFFECTIVE  DATE
  11     S DA=999 9999-EFFDA TE         ;SETTING D A YYYMMDD
  12    S UPDTYR= "2012"                 ;SETTING  NEW YEAR
  13    ;SET ADA  FILE NAME
  14    S DIR(0)= "F^3:50"
  15    S DIR("A" )="Enter A DA file na me (08anwe b.txt)" D  ^DIR K DIR
  16    Q:$D(DUOU T)
  17    Q:Y="^"!( Y="")
  18    S CHFNM=Y  K DIR
  19    ;SET ENVI RONMENT
  20    ;S AYGSYS =XQVOL
  21    ;S AYGSYS =$S(AYGSYS ="ROU":"LI VE",AYGSYS ="XOU":"TR AIN",AYGSY S="TOU":"T EST",AYGSY S="DOU":"D EV")
  22    ;S ENVIR= AYGSYS
  23    ;S FILE=" HACFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. ADAUPDT."_ ENVIR_"]"_ CHFNM
  24    ; N FOLDE R,CNTR 
  25     S IOF="# ,*27,*91,* 50,*74,*27 ,*91,*72"
  26    ;S FILE=C HFNM,FOLDE R="" ;DEV0 16554 DPT
  27    ;X ^%ZOSF ("UCI") S  UCI=$P(Y," ,",1) ;DEV 016554 DPT
  28    ;S FOLDER ="HAC_HFS$ :[SCR.TEMP _FILES]" ; DEV016554  DPT
  29    ;I UCI'=" HAC" S FOL DER="HAC_H FS$:[DSMMA NAG.CHAMPV A]" ;DEV01 6554 DPT
  30    ;I UCI="H AC" S UCI= "LIVE"
  31    ;S FILE=F OLDER_FILE
  32    ;S FLDR=" /FS3BIG/CO DEUPDT/ADA UPDT/"_UCI
  33    ;D FTPFIL E^CHTFLIB9 (FILE," DNS     fs3. DNS             ",FLDR,"GE T") ;DEV01 6554 DPT
  34    S FILE="H AC_HFS$:[D SMMANAG.CH AMPVA]"_CH FNM ;MTN D PT
  35    S POP=0,C NTR=0
  36    F  S CNTR =CNTR+1 Q: (CNTR>5)!P OP  D
  37     . S POP= $$OPENFIRD ^CHTFLIB9( .FILE,"FIL E")
  38     .Q
  39    I 'POP G  END 
  40    ;Q