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

161.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMLAI3A.m Mon Nov 5 16:42:00 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMLAI3A.m Mon Nov 5 17:49:54 2018 UTC

161.2 Comparison summary

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

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

161.4 Active regular expressions

No regular expressions were active.

161.5 Comparison detail

  1   CHMLAI3A ; JEH/DEN;*A LTERNATIVE * Load AI  test into  CPT;08/12/ 08  11:26  AM
  2    ;V 1.0
  3    ;***COPY  OF CHMLAI3  ***  USE  WHEN FILE  IS FROM PM  PAY WITH  "^" IN IT
  4    ;
  5   START ;
  6    S $ZE="", $ZT="END", CNT=0
  7    ;SET ENVI RONMENT
  8    S AYGSYS= XQVOL
  9    S AYGSYS= $S(AYGSYS= "ROU":"LIV E",AYGSYS= "XOU":"TRA IN",AYGSYS ="TOU":"TE ST",AYGSYS ="DOU":"DE V")
  10    S ENVIR=A YGSYS
  11    S DIR("B" )=ENVIR
  12    S DIR(0)= "SO^1:LIVE ;2:TRAIN;3 :TEST;4:DE V"
  13    S DIR("L" ,1)="Selec t one of t he followi ng environ ments"
  14    S DIR("L" ,2)=""
  15    S DIR("L" ,3)="   1   LIVE"
  16    S DIR("L" ,4)="   2   TRAIN"
  17    S DIR("L" ,5)="   3   TEST"
  18    S DIR("L" ,6)="   4   DEV"
  19    S DIR("L" ,7)=""
  20    S DIR("L" )="   ^    QUIT"
  21    D ^DIR K  DIR
  22    Q:$D(DUOU T)
  23    Q:Y=""
  24    Q:Y="^"!( Y="")
  25    S ENVIR=Y (0)
  26    S $ZE="", $ZT="END"
  27    ;SET CPT  FILE NAME
  28    S DIR(0)= "F^3:50"
  29    S DIR("A" )="Enter C PT file na me" D ^DIR  K DIR
  30    Q:$D(DUOU T)
  31    Q:Y="^"!( Y="")
  32    S CNAME=Y  K DIR
  33    S FILE="H ACFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. CPT4UPDT." _ENVIR_"]" _CNAME     ; NAME OF  CPT FILE
  34    O FILE:"R ":5
  35    U FILE
  36    K ^CHMZHO LD("CHMLAI 3")
  37   AILD ;LOAD ING AI TES TS
  38    F  R REC  D
  39    .S CNT=CN T+1  
  40    .;S CODE= $P(REC,"^" ,1),TEST=" TEST #"_$P (REC,"^",7 )
  41    .S CODE=$ P(REC,"^", 1),TEST=$P (REC,"^",7 )
  42    .S CHPGPT =1 ; 1 = C VA, 6 = SB , 7 = CWVV   ; <--- C HANGE
  43    .D AIUPDT    ;JEH 2/ 8/08
  44    .;S CODE= $P(REC,"^" ,1),TEST=" TEST #"_$P (REC,"^",8 )
  45    .S CODE=$ P(REC,"^", 1),TEST=$P (REC,"^",8 )
  46    .S CHPGPT =6 ; 1 = C VA, 6 = SB , 7 = CWVV   ; <--- C HANGE
  47    .D AIUPDT    ;JEH 2/ 8/08
  48   END S CNT= CNT+1 C FI LE
  49    S ^CHMZHO LD("CHMLAI 3",0)=CNT
  50    Q
  51   AIUPDT ;UP DATES THE  AI GBLS  ; JEH 1/7/08  ADD SUBRT N
  52    S:DUZ=""  DUZ=1
  53    S ERR=$$^ CHMLAI3L(C HPGPT,CODE ,TEST,DUZ)
  54    S:ERR]""  ^CHMZHOLD( "CHMLAI3", ERR)=""
  55    Q
  56