179. EPMO Open Source Coordination Office Redaction File Detail Report

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

179.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMLCPT.m Mon Nov 5 16:42:42 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMLCPT.m Mon Nov 5 17:50:04 2018 UTC

179.2 Comparison summary

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

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

179.4 Active regular expressions

No regular expressions were active.

179.5 Comparison detail

  1   CHMLCPT ;M CR/DEN;CPT  TAPE READ  IN;01/21/ 99  8:56 A M
  2    ;V1.0
  3    ;MTN01993 0 &DEV0165 54 DPT COD E UPDATE,  REPLACE DE CNET CHANG E EOF
  4    ; NSD I18 491550FY18  DPT  add  cpt 0011M.  omit envi ronment ch eck
  5    W @IOF,!, "CHAMPVA C ENTER - RE AD IN CPT  TAPE"
  6   A0 ;W !!," Are you re ading from  the <T>ap e or <F>il e? " D SBR S
  7    ;Q:$D(DUO UT)  Q:$D( DFOUT)  I  $D(DQOUT)  D  G A0
  8    ;.W !!,"E nter a <T>  if readin g from the  Tape, or"
  9    ;.W !,"En ter an <F>  if readin g from a F ile."
  10    ;Q:Y=""   S Y=$E(Y)  I "TFtf"'[ Y W *7," ? ?" G A0
  11    ;S:Y="t"  Y="T" S:Y= "f" Y="F"  S CHSRCE=Y
  12    S CHSRCE= "F"   ; <- --- TO ONL Y READ IN  A FILE
  13   A01 I CHSR CE="F" D F 1 Q:Y="^"   G A0:$D(D FOUT),A0:$ D(DUOUT),A 01:$D(DQOU T),A0:'$D( FILE)
  14    W !!,"REA DING IN CP T-4 DATA.. ......",!
  15    S I=0
  16    ;I CHSRCE ="T" D  Q: '$T
  17    ;.O "TAPE 1$":(FORMA T="AUF5":R ECORDSIZE= 80:BLOCKSI ZE=80):10
  18    ;.I '$T U  0 W *7,*7 ,!!,"Tape  drive not  available!  Exiting.. ." Q
  19    ;.U "TAPE 1$" W *5
  20    ;I CHSRCE ="F" O IO: "R":5 S $Z E="",$ZT=" MORE^CHMLC PT"
  21    ;I CHSRCE '="F" Q 
  22    ; 
  23    
  24   A1 S I=I+1
  25    ;I CHSRCE ="T" U "TA PE1$" R X  G MORE:($Z A\1024#2)! ($ZA\16384 #2)
  26    I CHSRCE= "F" U FILE  R X
  27    
  28    ;I CHSRCE ="F" U IO  R X
  29     G:$$STAT US^%ZISH M ORE ;DEV01 6554 DPT
  30    I $L(X)'< 1 S:'$D(^C HMZHOLD("C PT",I)) ^C HMZHOLD("C PT",I)=X
  31    S ^CHMZHO LD("CPT",0 )=I
  32    G A1
  33   MORE ;I CH SRCE="T" C  "TAPE1$": DISMOUNT
  34    I CHSRCE= "F"  C FIL E ;DEV0165 54 DPT 
  35    I CHSRCE= "F" D CLOS EF^CHTFLIB 9(FILE,"FI LE") ;DEV0 16554 DPT 
  36    X "D $SYS TEM.Proces s.SetZEOF( 0)" ;DEV01 6554 DPT
  37    W !,"Done ..."
  38    ;U 0 W *7 ,*7,*7,!!, "Tape Is F inished!"
  39   END  Q
  40   F1 ;CHECK  FILENAME I N FS1BIG.C PT4UPDT --  MODIFIED  BY DTP AUG -01
  41    ;SET ENVI RONMENT
  42    ;S AYGSYS =XQVOL
  43    ;S AYGSYS =$S(AYGSYS ="ROU":"LI VE",AYGSYS ="XOU":"TR AIN",AYGSY S="TOU":"T EST",AYGSY S="DOU":"D EV")
  44    ;S ENVIR= AYGSYS
  45    ;S DIR("B ")=ENVIR
  46    ;S DIR(0) ="SO^1:LIV E;2:TRAIN; 3:TEST;4:D EV"
  47    ;S DIR("L ",1)="Sele ct one of  the follow ing enviro nments"
  48    ;S DIR("L ",2)=""
  49    ;S DIR("L ",3)="   1   LIVE"
  50    ;S DIR("L ",4)="   2   TRAIN"
  51    ;S DIR("L ",5)="   3   TEST"
  52    ;S DIR("L ",6)="   4   DEV"
  53    ;S DIR("L ",7)=""
  54    ;S DIR("L ")="   ^    QUIT"
  55    ;D ^DIR K  DIR
  56    ;Q:$D(DUO UT)
  57    ;Q:Y=""
  58    ;Q:Y="^"! (Y="")
  59    ;S ENVIR= Y(0)
  60    S $ZE="", $ZT="END"
  61    ;SET CPT  FILE NAME
  62    S DIR(0)= "F^3:50"
  63    S DIR("A" )="Enter C PT file na me (SHORTU .txt)" D ^ DIR K DIR
  64    Q:$D(DUOU T)
  65    Q:Y="^"!( Y="")
  66    S CNAME=Y  K DIR
  67    N FOLDER, CNTR 
  68     S IOF="# ,*27,*91,* 50,*74,*27 ,*91,*72"
  69    ;S FILE=C NAME,FOLDE R="" ;DEV0 16554 DPT
  70    ;SET ENVI R
  71    ;X ^%ZOSF ("UCI") S  UCI=$P(Y," ,",1) ;DEV 016554 DPT
  72    ;S FOLDER ="HAC_HFS$ :[SCR.TEMP _FILES]" ; DEV016554  DPT
  73    ;I UCI'=" HAC" S FOL DER="HAC_H FS$:[DSMMA NAG.CHAMPV A]" ;DEV01 6554 DPT
  74    ;S FILE=F OLDER_FILE
  75    ;S CHUCI= $S(UCI="DE V":"DEV",U CI="TST":" TEST",UCI= "SLA":"LIV E",UCI="HA C":"LIVE")  ;DEV01289 3 DPT
  76    ;S FLDR=" /FS3BIG/CO DEUPDT/CPT 4UPDT/"_CH UCI  ;DEV0 12893 DPT
  77    ;S IO="HA CFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. CPT4UPDT." _ENVIR_"]" _CNAME     ; NAME OF  CPT FILE
  78       ;D FTPFILE ^CHTFLIB9( FILE," DNS     fs3. DNS             ",FLDR,"GE T")    ;DEV016554  DPT
  79     ;S POP=0 ,CNTR=0 ;D EV016554 D PT
  80     ;F  S CN TR=CNTR+1  Q:(CNTR>5) !POP  D ;D EV016554 D PT
  81     ; . X "D  $SYSTEM.P rocess.Set ZEOF(1)" ; DEV016554  DPT
  82     ;. S POP =$$OPENFIR D^CHTFLIB9 (.FILE,"FI LE") ;DEV0 16554 DPT
  83     ;.Q ;DEV 016554 DPT
  84     ;I 'POP  G MORE ;DE V016554 DP T
  85    S FILE="H AC_HFS$:[D SMMANAG.CH AMPVA]"_CN AME ; NSD  I18491550F Y18 DPT 
  86     O FILE:" R":5
  87    S (EFFDAT E,TERMDATE )=""   ;JE H 10/8/07  ENC000118  - ADDED EF FDATE AND  TERMDATE
  88    S DIR(0)= "D" S DIR( "A")="Ente r Effectiv e Date" D  ^DIR K DIR
  89    Q:$D(DIRU T)!($D(DUO UT))
  90    S EFFDATE =Y                  ; EFFECTIVE  DATE
  91    S DIR(0)= "DO" S DIR ("A")="Ent er Termina tion Date  of Previou s year" D  ^DIR K DIR
  92    Q:$D(DIRU T)!($D(DUO UT))
  93    S TERMDAT E=Y        ;TERMINATI ON DATE
  94    Q
  95   SBRS R Y:$ S($D(DTIME ):DTIME,1: 60)
  96    I '$T W * 7 R Y:5 G  SBRS:Y="."  S:'$T Y=I OZFO
  97   SBRS1 K DF OUT,DUOUT, DQOUT S:'$ D(IOZFO) I OZFO="^^"  S:'$D(IOZB K) IOZBK=" ^"
  98    I IOZFO=Y  W:$D(IOZF ) @IOZF S  (DFOUT,Y)= "" Q
  99    S:Y=IOZBK  (DUOUT,Y) ="" S:Y?1" ?".E!(Y["^ ") (DQOUT, Y)=""
  100    Q