214. EPMO Open Source Coordination Office Redaction File Detail Report

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

214.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMRNAR2.m Mon Nov 5 16:44:51 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMRNAR2.m Mon Nov 5 17:51:18 2018 UTC

214.2 Comparison summary

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

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

214.4 Active regular expressions

No regular expressions were active.

214.5 Comparison detail

  1   CHMRNAR2 ; AHJ/DEN;BE NE RANDOM  2500 name  and Addres s
  2    ;V1.0
  3    ;
  4    ;DEV01289 3 1/16/201 4 DGC - MO DIFY DECNE T
  5    ;MTN02426 5 09/23/15  SBB - Fix  the DECNE T routines  that have  a typo
  6    ;
  7    ;RANDOM C AN BE USED  TWO WAYS,  YOU CAN C REATE FILE  WITH SEQ  NUMBERS AN D INCLUDE  ALL DATA W ITH THIS F ILE
  8    ;OR YOU C AN CREATE  FILE ONLY  WITH SEQ N UMBER AND  ONLY DFN A ND BFN AND  USE THIS  FILE TO SE ARCH THE 
  9    ;BENE FIL E FOR THE  RANDOM NUM BERS.
  10    ;
  11    ;THIS COD E BELOW US ES FILE CR EATED WITH  ALL REQUI RED DATA R EQUESTED W ITH A GENE RATED SEQ  NUMBER AT 
  12    ;CREATION  TIME THEN  MATCH TO  RANDOM NUM BER.
  13    S T=$C(9)
  14    S TEMP=0
  15    S (RANCNT ,GETTOT,SA VSEQ)=0
  16    ;S FIO="H ACFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG ]BENE_NAME _RANDOM_25 00.XLS" -  DGC 1/16/2 014 DEV012 893 - BEGI N
  17    ;O FIO C  FIO:"D"
  18    ;O FIO:"N WS"
  19    X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1)
  20    X "D $SYS TEM.Proces s.SetZEOF( 1)" ;DGC 7 /30/2015 D EV012893
  21    S FILENM2 ="BENE_NAM E_RANDOM_2 500.XLS"
  22    S FIO="HA C_HFS$:[SC R.TEMP_FIL ES]"_FILEN M2
  23    I UCI'="H AC" S FIO= "HAC_HFS$: [DSMMANAG. CHAMPVA]"_ FILENM2
  24    I '$$OPEN FIWR^CHTFL IB9(.FIO," FIO") X "D  $SYSTEM.P rocess.Set ZEOF(0)" Q  ;DGC 7/30 /2015 DEV0 12893
  25    ;DGE 1/16 /2014 DEV0 12893 - EN D
  26    S GETTOT= ^CHMZHOLD( "ACCEPT-TO TAL-RECORD S-CR2081YE S")
  27    ;
  28   START ;
  29    F X=1:1:2 500 S SAVS EQ(X)=$R(G ETTOT)+1 S  USENO=SAV SEQ(X)  D
  30    .S:'$D(^C HMZHOLD("A CCEPT-CR20 81-YES",US ENO)) X=X- 1
  31    .Q:'$D(^C HMZHOLD("A CCEPT-CR20 81-YES",US ENO))
  32    .S DATA=^ CHMZHOLD(" ACCEPT-CR2 081-YES",U SENO)
  33    .S NAM1=$ P(DATA,"^" ,3)
  34    .S LAST=$ P(NAM1,"," ,1)
  35    .S FIRST= $P(NAM1,", ",2)
  36    .S NAM1=F IRST_" "_L AST
  37    .;S TELEN O=$P(DATA, "^",4)
  38    .S ADD1=$ P(DATA,"^" ,4)
  39    .S ADD2=$ P(DATA,"^" ,5)
  40    .S CITY=$ P(DATA,"^" ,6)
  41    .S STATE= $P(DATA,"^ ",7)
  42    .S ZIP=$P (DATA,"^", 8)
  43    .S TEMP=N AM1_T_ADD1 _T_ADD2_T_ CITY_T_STA TE_T_ZIP_T
  44    .U FIO W  TEMP,!
  45    .S RANCNT =RANCNT+1
  46    .S GETTOT =GETTOT-1
  47    .K ^CHMZH OLD("ACCEP T-CR2081-Y ES",USENO)
  48    .Q
  49   END ;
  50    ;C FIO -  DGC 1/16/2 014 DEV012 893 - BEGI N
  51    D CLOSEF^ CHTFLIB9(F IO,"FIO")
  52    X "D $SYS TEM.Proces s.SetZEOF( 0)" ;DGC 7 /30/2015 D EV012893
  53    D FTPFILE ^CHTFLIB9( FIO," DNS     fs3. DNS             ","/FS3BIG ","PUT")
  54    ;W !,"COU NT=",CNT
  55    ;
  56    Q