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

167.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMLAMB3.m Mon Nov 5 16:43:29 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMLAMB3.m Mon Nov 5 17:49:57 2018 UTC

167.2 Comparison summary

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

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

167.4 Active regular expressions

No regular expressions were active.

167.5 Comparison detail

  1   CHMLAMB3 ; CVA/CR;ASC  PAYMENT R ATES LOAD; 10/05/98   4:55 PM
  2    ;;1.0;CHA MPVA SYSTE M;;JULY 4, 1990;Build  2
  3    ;V1.0 
  4    ;DEF DEF0 09248-03 D PT 4/08/20 10 ADD TER MINATION D ATE,DUZ, U PDATE date  TO GLOBAL  increased  subscript  in NEW
  5    ;DEV01324 5 9/7/11 D PT CORRECT  DATE
  6    ;MTN01985 3 dpt amt  field chan ged for 4  to 5
  7    ;DEV01655 4 EOF,REMV  DECNET DP T 1/8/13
  8    ;MTN02939 99 DPT 10/ 17/17 2018  UPDATE 30  more grou p rates ad ded
  9    ;     DPT  4/16/18 R EMOVE REFE RENCE TO E NVIRONMENT  RELOAD 20 18 UPDATE
  10    ;INC19277 49 DPT 8/2 1/18 2 NEW  GROUPS DE LIMITED LA YOUT 
  11   ZSET S:'$D (DUZ) DUZ= 1,DUZ(0)=" " I '$D(DT ) S %DT="" ,X="T" D ^ %DT S DT=Y
  12    S:'$D(IOZ FO) IOZFO= "^^" S:'$D (IOZBK) IO ZBK="^" S: '$D(DTIME)  DTIME=60
  13    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
  14   ZNAM ;
  15    W !,"ASC  PAYMENT RA TES LOAD", !!
  16    S RT=""                                                                                        ;D PT 4/08/10  DEF009248 -03     
  17    R "Enter  Begin date  YYYYMMDD  : ",CHBEGD T:DTIME                   ;DPT 4 /08/10 DEF 009248-03        
  18    S DIR(0)= "D"
  19    S CHBEGDT =$$YR8FMYR ^CHTFLIB(C HBEGDT)  ; DPT DEV013 245 9/7/11
  20    G END:CHB EGDT="^"
  21    ;S CHBEGD T=$E(DT,1, 3)_11_"01"     ;<---  COMMENT OU T FOR MID  YR UPDT
  22    ;S CHBEGD T=$E(DT,1, 3)_"04"_"0 1"     ;<- -- CHGD FO R MID YR U PDT
  23    W !!,"Use  date: ",C HBEGDT," " "Y"" OR "" N"" //  "  R X:DTIME  G ZNAM:X=" ^" G ZNAM: X'="Y"  ;D PT 4/08/10  DEF009248 -03
  24    S CHENDDT =""
  25    R !,"Ente r end date  YYYYMMDD  // ",CHEND DT:DTIME                  ;DPT 4 /08/10 DEF 009248-03        
  26    S DIR(0)= "D"
  27    I CHENDDT ="" S CHEN DDT=" "  G  ZNAM2     ;DPT 4/08/ 10 DEF0092 48-03
  28    S CHENDDT =$$YR8FMYR ^CHTFLIB(C HENDDT)     ;DPT DEV0 13245 9/7/ 11
  29    W !!,"Use  date: ",C HENDDT," " "Y"" OR "" N"" //  "        ;DPT  4/08/10 D EF009248-0 3
  30    R X:DTIME  G END:X=" ^" G ZNAM: X'="Y"     ;DPT 4/08/ 10 DEF0092 48-03
  31    I CHENDDT <CHBEGDT G  ZNAM  W ! ,"begin an d term dat es incompa tible"       ;DPT 4/0 8/10 DEF00 9248-03
  32   ZNAM2 ;DPT  4/08/10 D EF009248-0 3 NEW TAG  NAME
  33    ;SET ENVI RONMENT
  34    ;S ENVIR= "" ;INC192 7749 DPT 
  35    ;S AYGSYS =XQVOL   ;  SETTING E NVIRONMENT  ;INC19277 49 DPT 
  36    S RUNDT=" " S RUNDT= DT
  37    ;S ENVIR= $S(AYGSYS= "ROU":"LIV E",AYGSYS= "XOU":"TRA IN",AYGSYS ="TOU":"TE ST",AYGSYS ="DOU":"DE V") ;INC19 27749 DPT 
  38    ;S $ZE="" ,$ZT="END"
  39    ;SET ASC  PAYMENT GR OUP RATES  BY MSA FIL E NAME
  40    S DIR(0)= "F^3:50"
  41    S DIR("A" )="Enter A SC payment  group rat es by MSA  file name  (ASCMSART. F07)" D ^D IR K DIR
  42    Q:$D(DUOU T)
  43    Q:Y="^"!( Y="")
  44    S CNAME=Y  K DIR
  45    N FOLDER, CNTR ;DEV0 16554 DPT
  46    S IOF="#, *27,*91,*5 0,*74,*27, *91,*72"
  47    ;S FILE=C NAME,FOLDE R="" ;DEV0 16554 DPT
  48    ;X ^%ZOSF ("UCI") S  UCI=$P(Y," ,",1) ;DEV 016554 DPT
  49    ;S FOLDER ="HAC_HFS$ :[SCR.TEMP _FILES]" ; DEV016554  DPT
  50    ;I UCI'=" HAC" 
  51    S FOLDER= "HAC_HFS$: [DSMMANAG. CHAMPVA]"  ;DEV016554  DPT
  52    ;S FILE=F OLDER_FILE  ;DPT DEV0 16554
  53    S FILE=FO LDER_CNAME  ;DPT DEV0 16554
  54    ;S FLDR=" /FS3BIG/CO DEUPDT/ASC UPDT/"_UCI _""
  55    ;D FTPFIL E^CHTFLIB9 (FILE," DNS     fs3. DNS             ",FLDR,"GE T") ;DEV01 6554 DPT
  56    S POP=0,C NTR=0 ;DPT  DEV016554
  57    F  S CNTR =CNTR+1 Q: (CNTR>5)!P OP  D ;DEV 016554 DPT
  58     . X "D $ SYSTEM.Pro cess.SetZE OF(1)"  ;D EV016554 D PT
  59     .S POP=$ $OPENFIRD^ CHTFLIB9(. FILE,"FILE ") ;DEV016 554 DPT
  60     .Q ;DEV0 16554 DPT
  61    I 'POP G  END ;DEV01 6554 DPT
  62    
  63    ;S IO="HA CFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. ASCUPDT."_ ENVIR_"]"_ CNAME
  64    ;O IO:"R" :5 C IO O  IO:"R":5
  65   A1 U IO R  X G:$$STAT US^%ZISH E ND ;DEV016 554 DPT
  66    S CHMSA=$ E(X,1,4) ; S A=5,B=10
  67     F I=1:1: 43 S CHAMT (I)=$P(X," ^",I+1) ;S  A=A+6,B=B +6  ;INC19 27744 DPT
  68    ;F I=1:1: 41 S CHAMT (I)=$TR($E (X,A,B),"  ",0) S A=A +6,B=B+6   ;MTN029399 9 DPT
  69    ;F I=1:1: 40 S CHAMT (I)=$TR($E (X,A,B),"  ",0) S A=A +6,B=B+6   ;MTN029399 9 DPT
  70    ;S CHAMT( 1)=$E(X,5, 9),CHAMT(2 )=$E(X,10, 14) ;MTN01 9853 dpt
  71    ;S CHAMT( 3)=$E(X,15 ,19),CHAMT (4)=$E(X,2 0,24) ;MTN 019853 dpt
  72    ;S CHAMT( 5)=$E(X,25 ,29),CHAMT (6)=$E(X,3 0,34) ;MTN 019853 dpt
  73    ;S CHAMT( 7)=$E(X,35 ,39),CHAMT (8)=$E(X,4 0,44) ;MTN 019853 dpt
  74    ;S CHAMT( 9)=$E(X,45 ,49),CHAMT (10)=$E(X, 50,54) ;MT N019853 dp t
  75    ;S CHAMT( 11)=$E(X,5 5,59)                                                     ;MTN019 853 dpt                                     ;DPT 4/08/ 10 DEF0092 48-03
  76    I '$D(^CH MART("B",C HMSA)) D N EW G A1
  77    S DA=$O(^ CHMART("B" ,CHMSA,0))  G A1:'DA
  78    S ^CHMART (DA,1,CHBE GDT,0)=CHB EGDT_"^"_C HENDDT_"^" _DUZ_"^"_D T        ; DPT 4/08/1 0 DEF00924 8-03                                                 
  79      F I=1:1 :43 S ^CHM ART(DA,1,C HBEGDT,100 ,I,0)=CHAM T(I)  ;INC 1927749 DP T
  80     ;F I=1:1 :41 S ^CHM ART(DA,1,C HBEGDT,100 ,I,0)=CHAM T(I)  ;MTN 0293999 DP T
  81    ;F I=1:1: 40 S ^CHMA RT(DA,1,CH BEGDT,100, I,0)=CHAMT (I)  ;MTN0 293999 DPT
  82    ;F I=1:1: 11 S ^CHMA RT(DA,1,CH BEGDT,100, I,0)=CHAMT (I)
  83    
  84    G A1
  85   END ;
  86    
  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 te"
  91    K CHBEGDT ,CHMSA,CHS T,CHX,CHZI P,DA,DIE,D R,X,Y,CHEN DDT  ;DPT  4/08/10 DE F009248-03  
  92    Q     
  93   NEW S DA=$ P(^CHMART( 0),"^",3), DA=DA+1
  94    S $P(^CHM ART(0),"^" ,3)=$P(^(0 ),"^",3)+1
  95    S $P(^CHM ART(0),"^" ,4)=$P(^(0 ),"^",4)+1
  96    S $P(^CHM ART(DA,0), "^",1)=CHM SA
  97    S ^CHMART ("B",CHMSA ,DA)=""
  98    S ^CHMART (DA,1,CHBE GDT,0)=CHB EGDT_"^"_C HENDDT_"^" _DUZ_"^"_D T       ;D PT 4/08/10  DEF009248 -03  
  99    F I=1:1:4 1 S ^CHMAR T(DA,1,CHB EGDT,100,I ,0)=CHAMT( I)  ;MTN02 93999 DPT
  100    ;F I=1:1: 11 S ^CHMA RT(DA,1,CH BEGDT,100, I,0)=CHAMT (I)                              ;DPT 4/08/ 10 DEF0092 48-03                         
  101    Q