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

160.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMLAI3.m Mon Nov 5 16:43:14 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMLAI3.m Mon Nov 5 17:49:54 2018 UTC

160.2 Comparison summary

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

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

160.4 Active regular expressions

No regular expressions were active.

160.5 Comparison detail

  1   CHMLAI3 ;M CR/DEN;Loa d AI test  into CPT;0 3/08/99  1 1:26 AM
  2    ;V 1.0
  3    ;JEH 2/8/ 08 ENC0001 18: P&C ad d codes fo r payment
  4    ;DPT 7/15 /10 change d column t o pick up  data
  5    ;MTN01985 3 CODE UPD ATE CHANGE  
  6    ;DEV10655 4 DEV01289 3 EOF REPL ACE DECNET  
  7    ;MTN02636 4 DPT AI C HANGE
  8    ;MTN02658 2 DPT JUL2 016 UPDATE
  9     ; NSD I1 8491550FY1 8 DPT  add  cpt 0011M . omit env ironment c heck
  10    ;
  11   START ;
  12    S CDCOL=1  ;CODE AI  COLUMN IN  PMPAY SPRE ADSHEET
  13    S CVCOL=6  ;CVA AI C OLUMN IN P MPAY SPREA DSHEET  dp t 7/15/10  change loc ation
  14    S SBCOL=7  ;SB AI CO LUMN IN PM PAY SPREAD SHEET dpt  7/15/10 ch ange locat ion
  15    ;S $ZE="" ,$ZT="END" ,CNT=0
  16    ;SET ENVI RONMENT
  17    ;S AYGSYS =XQVOL
  18    ;S AYGSYS =$S(AYGSYS ="ROU":"LI VE",AYGSYS ="XOU":"TR AIN",AYGSY S="TOU":"T EST",AYGSY S="DOU":"D EV")
  19    ;S ENVIR= AYGSYS
  20    ;S DIR("B ")=ENVIR
  21    ;S DIR(0) ="SO^1:LIV E;2:TRAIN; 3:TEST;4:D EV"
  22    ;S DIR("L ",1)="Sele ct one of  the follow ing enviro nments"
  23    ;S DIR("L ",2)=""
  24    ;S DIR("L ",3)="   1   LIVE"
  25    ;S DIR("L ",4)="   2   TRAIN"
  26    ;S DIR("L ",5)="   3   TEST"
  27    ;S DIR("L ",6)="   4   DEV"
  28    ;S DIR("L ",7)=""
  29    ;S DIR("L ")="   ^    QUIT"
  30    ;D ^DIR K  DIR
  31    ;Q:$D(DUO UT)
  32    ;Q:Y=""
  33    ;Q:Y="^"! (Y="")
  34    ;S ENVIR= Y(0)
  35    ;S $ZE="" ,$ZT="END"
  36    ;SET CPT  FILE NAME
  37     S DIR(0) ="F^3:50"
  38    S DIR("A" )="Enter C PT file na me" D ^DIR  K DIR
  39    Q:$D(DUOU T)
  40    Q:Y="^"!( Y="")
  41    S CNAME=Y  K DIR
  42    ;N FOLDER ,CNTR 
  43     S IOF="# ,*27,*91,* 50,*74,*27 ,*91,*72"
  44    ;S FILE=C NAME,FOLDE R="" ;DEV0 16554 DPT
  45    ;;X ^%ZOS F("UCI") S  UCI=$P(Y, ",",1) ;DE V016554 DP T
  46    ;S FOLDER ="HAC_HFS$ :[SCR.TEMP _FILES]" ; DEV016554  DPT
  47    ;I UCI'=" HAC" S FOL DER="HAC_H FS$:[DSMMA NAG.CHAMPV A]" ;DEV01 6554 DPT
  48    ;S FILE=F OLDER_FILE
  49    ;S FLDR=" /FS3BIG/CO DEUPDT/CPT 4UPDT/"_UC I
  50    ;S FILE=" HACFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. CPT4UPDT." _ENVIR_"]" _CNAME     ; NAME OF  CPT FILE
  51    ;D FTPFIL E^CHTFLIB9 (FILE," DNS     fs3. DNS             ",FLDR,"GE T")    ;DEV012893  DPT
  52    S FILE="H AC_HFS$:[D SMMANAG.CH AMPVA]"_CN AME ;  NSD  I18491550 FY18 DPT
  53    O FILE:"R ":5
  54    ;S POP=0, CNTR=0 ;DE V012893 DP T
  55    ;F  S CNT R=CNTR+1 Q :(CNTR>5)! POP  D  ;D EV012893 D PT
  56    ; . X "D  $SYSTEM.Pr ocess.SetZ EOF(1)"  ; DEV016554  DPT
  57    ; . S POP =$$OPENFIR D^CHTFLIB9 (.FILE,"FI LE")  ;DEV 012893 DPT
  58    ; .Q ;DEV 012893 DPT
  59    ;I 'POP G  END ;DEV0 12893 DPT
  60    ;H 5        ;MTN0265 82 DPT 
  61    S CNT=0   ;MTN026582  DPT 
  62    K ^CHMZHO LD("CHMLAI 3")
  63   AILD ;LOAD ING AI TES TS
  64     F   U FI LE R REC G :$$STATUS^ %ZISH END   D ;DEV016 554 DPT
  65    .S CNT=CN T+1  
  66    .S CODE=$ P(REC,"^", CDCOL),TES T=$P(REC," ^",CVCOL)
  67    .I TEST'[ "TEST" S T EST="TEST  #"_TEST
  68    .S CHPGPT =1 ; 1 = C VA, 6 = SB , 7 = CWVV   ; <--- C HANGE
  69    .D AIUPDT    ;JEH 2/ 8/08
  70    .S CODE=$ P(REC,"^", CDCOL),TES T=$P(REC," ^",SBCOL)
  71    .I TEST'[ "TEST" S T EST="TEST  #"_TEST
  72    .S CHPGPT =6 ; 1 = C VA, 6 = SB , 7 = CWVV   ; <--- C HANGE
  73    .D AIUPDT    ;JEH 2/ 8/08
  74   END S CNT= CNT+1 
  75      C FILE
  76      D CLOSE F^CHTFLIB9 (FILE,"FIL E") ;DEV01 6554 DPT
  77     X "D $SY STEM.Proce ss.SetZEOF (0)"  ;DEV 016554 DPT
  78    S ^CHMZHO LD("CHMLAI 3",0)=$G(C NT) ;DEV01 6554 DPT
  79    Q
  80   AIUPDT ;UP DATES THE  AI GBLS  ; JEH 1/7/08  ADD SUBRT N
  81    S:DUZ=""  DUZ=1
  82    S ERR=$$^ CHMLAI3L(C HPGPT,CODE ,TEST,DUZ)
  83    S:ERR]""  ^CHMZHOLD( "CHMLAI3", ERR)=""
  84    Q
  85