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

166.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMLAMB2.m Mon Nov 5 16:42:55 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMLAMB2.m Mon Nov 5 17:49:57 2018 UTC

166.2 Comparison summary

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

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

166.4 Active regular expressions

No regular expressions were active.

166.5 Comparison detail

  1   CHMLAMB2 ; CVA/CR;ASC  PAYMENT G ROUPS LOAD ;10/05/98   4:45 PM
  2    ;;1.0;CHA MPVA SYSTE M;;JULY 4, 1990;Build  2
  3    ;V1.0 
  4    ;DPT DEF  DEF009248- 03 4/08/10  ADD TERMI NATION DAT E,DUZ, UPD ATE TO GLO BAL
  5     ;MTN0198 53,ASC UPD ATE DPT 1/ 8/13
  6    ;MTN01989 0, CODE UP DATE DPT 1 /8/13
  7    ;DEV01289 3 DEV01655 4 EOF,REMV  DECNET DP T 1/8/13
  8    ;MTN02939 99 DPT FY2 018 UPDATE  FILE LAYO UT CHANGE
  9    ;  DPT RE MOVE REFER ENCE TO EN VIRONMENT
  10   ZSET S:'$D (DUZ) DUZ= 1,DUZ(0)=" " I '$D(DT ) S %DT="" ,X="T" D ^ %DT S DT=Y
  11    S:'$D(IOZ FO) IOZFO= "^^" S:'$D (IOZBK) IO ZBK="^" S: '$D(DTIME)  DTIME=60
  12    I '$D(IOZ ) S %IS="N ",IOP=$I D  ^%ZIS K I OP S IOZ=I O,IOZL=IOS L,IOZW=IOM ,IOZF=IOF, IOZT=IOST, IOZN=ION,I OZS=IOS
  13   ZNAM ;
  14    S RUNDT=" " S RUNDT= DT
  15    ;SET ENVI RONMENT
  16    ;S ENVIR= ""
  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    ;SET ASC  FILE NAME
  36    S DIR(0)= "F^3:50"
  37    S DIR("A" )="Enter A SC Payment  Groups fi le name (A SCGRP2.F07 ) " D ^DIR  K DIR
  38    Q:$D(DUOU T)
  39    Q:Y="^"!( Y="")
  40    S CNAME=Y  K DIR
  41    N FOLDER, CNTR ;DEV0 16554 DPT
  42    S IOF="#, *27,*91,*5 0,*74,*27, *91,*72"
  43    ;S FILE=C NAME,FOLDE R="" ;DEV0 16554 DPT
  44    ;X ^%ZOSF ("UCI") S  UCI=$P(Y," ,",1) ;DEV 016554 DPT
  45    ;S FOLDER ="HAC_HFS$ :[SCR.TEMP _FILES]" ; DEV016554  DPT
  46    ;I UCI'=" HAC" 
  47    S FOLDER= "HAC_HFS$: [DSMMANAG. CHAMPVA]"  ;DEV016554  DPT
  48    S FILE=FO LDER_CNAME  ;DPT 4/16 /18
  49    ;S CHUCI= $S(UCI="DE V":"DEV",U CI="TST":" TEST",UCI= "TRN":"TRA IN",UCI="S LA":"LIVE" ,UCI="VAH" :"LIVE",UC I="HAC":"L IVE") ;DEV 012893 DPT
  50    ;S FLDR=" /FS3BIG/CO DEUPDT/ASC UPDT/"_CHU CI_"" ;DEV 012893 DPT
  51    ;D FTPFIL E^CHTFLIB9 (FILE," DNS     fs3. DNS             ",FLDR,"GE T") ;DEV01 6554 DPT
  52    
  53    ;S IO="HA CFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. ASCUPDT."_ ENVIR_"]"_ CNAME     ; NAME OF  ASC GRP FI LE
  54    S $ZE="", $ZT="END" 
  55    ;O IO:"R" :5
  56    
  57    S CNT=0
  58    ;W "IS TH E YEAR COR RECT ("_IO _")? " R X      ; JEH  - THIS SE CTION COMM ENTED OUT  DUE TO BEG DT IS IN F ILE
  59    ;I X'="Y"  W !,"NOTH ING DONE"  C IO Q
  60    ;S CHBEGD T2=$E(DT,1 ,3)_1101
  61    ;W !,"IS  ",CHBEGDT2 ," THE COR RECT BEGIN  DATE? "
  62    ;R X:DTIM E Q:X'="Y"
  63    S POP=0,C NTR=0 ;DPT  DEV016554
  64    F  S CNTR =CNTR+1 Q: (CNTR>5)!P OP  D ;DEV 016554 DPT
  65       . X "D  $SYSTEM.P rocess.Set ZEOF(1)"   ;DEV016554  DPT
  66     .S POP=$ $OPENFIRD^ CHTFLIB9(. FILE,"FILE ") ;DEV016 554 DPT
  67     .Q ;DEV0 16554 DPT
  68    I 'POP G  END ;DEV01 6554 DPT
  69    
  70   A1 U IO R  X G:$$STAT US^%ZISH E ND ;DEV016 554 DPT
  71    ;S CHCPT= $P(X,"^",1 ) ;MTN0293 999 DPT 
  72    ;S CHGRP= $P(X,"^",2 ) ;MTN0293 999 DPT 
  73    ;s CHBEGD T=$P(X,"^" ,3),CHENDD T=$P(X,"^" ,4) ;MTN02 93999 DPT 
  74    S CHCPT=$ E(X,1,5)
  75    S CHGRP=$ E(X,9,10)  S CHGRP=$T R(CHGRP,"  ","") 
  76    S CHBEGDT =$E(X,12,1 9),CHENDDT =$E(X,21,2 8) ;MTN029 3999 DPT 
  77    ;S CHGRP= $E(X,6,7), CHBEGDT=$E (X,8,15),C HENDDT=$E( X,16,23)
  78    S CHBEGDT =$$YR8FMYR ^CHTFLIB(C HBEGDT)
  79    S CHENDDT =$S(CHENDD T=99999999 :"",1:$$YR 8FMYR^CHTF LIB(CHENDD T)) ;DPT 4 /08/10 DEF 009248-03
  80    ;I CHBEGD T>2951200  S ^CHMZHOL D("ASC",CH CPT,CHGRP, CHBEGDT )= "",CHBEGDT =2950701
  81    I '$D(^CH MAGP("B",C HCPT)) D N EW G A1
  82    S DA=$O(^ CHMAGP("B" ,CHCPT,0))  G A1:'DA
  83    S ^CHMAGP (DA,1,CHBE GDT,0)=CHB EGDT_"^"_C HGRP_"^"_C HENDDT_"^" _DUZ_"^"_D T ;DPT 4/0 8/10 DEF00 9248-03
  84    U 0 W DA, ?10,CHCPT, ?20,CHGRP, ?30,CHBEGD T,?40,CHEN DDT,?50,DU Z,?60,DT,!
  85    G A1
  86   END  ;
  87    ;C IO
  88    D CLOSEF^ CHTFLIB9(F ILE,"FILE" ) ;DEV0165 54 DPT
  89     X "D $SY STEM.Proce ss.SetZEOF (0)" ;DEV0 16554 DPT
  90    W !,"Proc ess comple ted"
  91    K CHBEGDT ,CHMSA,CHS T,CHX,CHZI P,DA,DIE,D R,X,Y,CHEN DDT                   ;DPT 4/08/ 10 DEF0092 48-03
  92    Q
  93   NEW S ^CHM ZHOLD("ASC ",CHCPT,CH GRP,CHBEGD T )=""  ;, CHBEGDT=CH BEGDT2
  94    S DA=$P(^ CHMAGP(0), "^",3),DA= DA+1
  95    S $P(^CHM AGP(0),"^" ,3)=$P(^(0 ),"^",3)+1
  96    S $P(^CHM AGP(0),"^" ,4)=$P(^(0 ),"^",4)+1
  97    S $P(^CHM AGP(DA,0), "^",1)=CHC PT 
  98    S ^CHMAGP ("B",CHCPT ,DA)=""
  99    S ^CHMAGP (DA,1,CHBE GDT,0)=CHB EGDT_"^"_C HGRP_"^"_C HENDDT_"^" _DUZ_"^"_D T   ;DPT 4 /08/10 DEF 009248-03
  100    S CNT=CNT +1                  ; DPT 4/08/1 0
  101    Q