150. EPMO Open Source Coordination Office Redaction File Detail Report

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

150.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMKSMLY.m Mon Nov 5 16:43:39 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMKSMLY.m Mon Nov 5 17:49:28 2018 UTC

150.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 5 164
Changed 4 8
Inserted 0 0
Removed 0 0

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

150.4 Active regular expressions

No regular expressions were active.

150.5 Comparison detail

  1   CHMKSMLY ; JEH/DEN;BE NE YES OHI  RANDOM 30 0;11/07/08   5:20 AM
  2    ;V1.0
  3    ;DEV01289 3 1/20/201 4 DGC - MO DIFY DECNE T WRITE
  4    ;MTN02426 5 09/23/15  SBB - Fix  the DECNE T routines  that have  a typo
  5    ;
  6    ;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
  7    ;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 
  8    ;BENE FIL E FOR THE  RANDOM NUM BERS.
  9    ;
  10    ;THIS COD E BELOW US ES FILE CR EATED WITH  ALL REQUI RED DATA R EQUESTED W ITH A GENE RATED SEQ  NUMBER AT 
  11    ;CREATION  TIME THEN  MATCH TO  RANDOM NUM BER.
  12    ;
  13    ;DGC 1/20 /2014 DEV0 12893 - BE GIN
  14    S (YCNT,C NT,GETTOT, SAVSEQ)=0
  15    ;S DEVICE ="HACFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG ]CHMKSML_B ENEYESINFO .XLS"
  16    ;O DEVICE  C DEVICE: "D"
  17    ;O DEVICE :"NWS" ;
  18    X ^%ZOSF( "UCI") S U CI=$P(Y,"1 ,",1)
  19    X "D $SYS TEM.Proces s.SetZEOF( 1)" ;DGC 7 /30/2015 D EV012893
  20    S FILENM2 =CHMKSML_B ENEYESINFO .XLS
  21    S DEVICE= "HAC_HFS$: [SCR.TEMP_ FILES)"_FI LENM2
  22    I UCI'="H AC" S DEVI CE="HAC_HF S$:[DSMMAN AG.CHAMPVA ]"_FILENM2
  23    I '$$OPEN FIWR^CHTFL IB9(.DEVIC E,"DEVICE" ) X "D $SY STEM.Proce ss.SetZEOF (0)" Q ;DG C 7/30/201 5 DEV01289 3
  24    ;S FIO="H ACFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG ]CHMKSML_B ENEYESNA.X LS"
  25    ;O FIO C  FIO:"D"
  26    ;O FIO:"N WS"
  27    X ^%ZOSF( "UCI") S U CI=$P(Y,"1 ,",1)
  28    S FILENM2 =CHMKSML_B ENEYESNA.X LS
  29    S FIO="HA C_HFS$:[SC R.TEMP_FIL ES)"_FILEN M2
  30    I UCI'="H AC" S FIO= "HAC_HFS$: [DSMMANAG. CHAMPVA]"_ FILENM2
  31    I '$$OPEN FIWR^CHTFL IB9(.FIO," FIO") X "D  $SYSTEM.P rocess.Set ZEOF(0)" Q  ;DGC 7/30 /2015 DEV0 12893 ;DGC  1/20/2014  DEV012893  - END
  32    S GETTOT= ^CHMZHOLD( "ACCEPT-TO TAL-RECORD S-CR1276YE S")
  33    ;
  34   START ;
  35    F X=1:1:3 00 S SAVSE Q(X)=$R(GE TTOT)+1 S  USENO=SAVS EQ(X) D
  36    .;NEXT LI NE FOR TES T ONLY- TA KE OUT FOR  PROCESSIN G
  37    .;Q:'$D(C HMZHOLD("A CCEPT-CR64 5-YES",USE NO))
  38    .S DATA=^ CHMZHOLD(" ACCEPT-CR1 276-YES",U SENO)
  39    .;W !,"           DA TA=",DATA
  40    .;S DFN=$ P(DFNBFN," ^",1)
  41    .;S BFN=$ P(DFNBFN," ^",2)
  42    .;GET DFN ,BFN NAME  AND ADDRES S HERE
  43    .;S DATA= ^CHMZHOLD( "CR645NOOH I",DFN,BFN )
  44    .;
  45    .;S NAMLA B=^AHCHVA( DFN,100,BF N,0)
  46    .;S ADDRL AB=^AHCHVA (DFN,100,B FN,1)
  47    .S NAM1=$ P(DATA,"^" ,3)
  48    .;S NAME= $P(NAMELAB ,U,1)
  49    .S LAST=$ P(NAM1,"," ,1)
  50    .S FIRST= $P(NAM1,", ",2)
  51    .S NAM1=F IRST_" "_L AST
  52    .S ADDR1= $P(DATA,"^ ",5)
  53    .S ADDR2= $P(DATA,"^ ",6)
  54    .S ADDR3= $P(DATA,"^ ",7)
  55    .S CITY=$ P(DATA,"^" ,8)
  56    .S STATE= $P(DATA,"^ ",9)
  57    .S ZIP=$P (DATA,"^", 10) 
  58    .;I STATE ="" Q
  59    .;S:STATE  STATE=$P( ^DIC(5,STA TE,0),U,2)
  60    .;S (ZIP, ZIPZ)=""
  61    .;I $L(ZI PZ)>5 S ZI P1=$E(ZIPZ ,1,5) S ZI P2=$E(ZIPZ ,6,9) S ZI PZ=ZIP1_"- "_ZIP2
  62    .S TELENO =$P(DATA," ^",4)
  63    .S SEX=$P (DATA,"^", 11)
  64    .S SSN=$P (DATA,"^", 12)
  65    .S OHI=$P (DATA,"^", 13)
  66    .S AGE=$P (DATA,"^", 14)
  67    .S T=$C(9 )
  68    .S TMP=NA M1_T_ADDR1 _T_ADDR2_T _ADDR3_T_C ITY_T_STAT E_T_ZIP_T_ TELENO_T_S EX_T_SSN_T _OHI_T_AGE _T
  69    .;W !,TMP
  70    .U DEVICE  W TMP,!
  71    .S TEMP=N AM1_T_ADDR 1_T_ADDR2_ T_ADDR3_T_ CITY_T_STA TE_T_ZIP_T
  72    .;W !,TEM P
  73    .U FIO W  TEMP,!
  74    .S YCNT=Y CNT+1
  75    .S GETTOT =GETTOT-1
  76    .Q
  77   END ;DGC 1 /20/2014 D EV012893 -  BEGIN
  78    D CLOSEF^ CHTFLIB9(F IO,"FIO")  ;C FIO
  79    D FTPFILE ^CHTFLIB9( FIO," DNS     fs3. DNS             ","/FS3BIG ","PUT")
  80    D CLOSEF^ CHTFLIB9(D EVICE,"DEV ICE") ;C D EVICE
  81    X "D $SYS TEM.Proces s.SetZEOF( 0)" ;DGC 7 /30/2015 D EV012893
  82    D FTPFILE ^CHTFLIB9( DEVICE," DNS     fs3. DNS             ","/FS3BIG ","PUT")
  83    ;DGC 1/20 /2014 DEV0 12893 - EN D
  84     ;W !,"CO UNT=",YCNT
  85    ;
  86    Q