102. EPMO Open Source Coordination Office Redaction File Detail Report

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

102.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMERDIC.m Mon Nov 5 16:41:41 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMERDIC.m Mon Nov 5 17:44:28 2018 UTC

102.2 Comparison summary

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

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

102.4 Active regular expressions

No regular expressions were active.

102.5 Comparison detail

  1   CHMERDIC ; HAC/AEB;RE AD FILE AN D LOAD BEN E INTO NEX T DEERS RU N;07/18/08   8:40 AM
  2    ;V1.0
  3    ;CT - COU NT OF RECO RDS READ
  4    ;CHX - VA RIABLE SET  TO RECODE  READ FROM  FILE
  5    ;FILE - N AME OF FIL E ON FS3BI G TO BE RE AD IN
  6    ;GET - FI LE NAME
  7    ;CT1 - NU MBER OF EN TRIES NOT  ADDED TO D EERS
  8    ;DFN - PO INTER TO S PONSOR
  9    ;BFN - PO INTER TO B ENE
  10    K ^TMP("A F","PR")
  11    W !!,"FIL E MUST BE  TAB DELIMI TED, AND H AVE THE SP ONSOR NAME  THEN SPON SOR SSN"
  12    W !,"THEN  REASON TH EN BENE NA ME THEN BE NE SSN"
  13    W !!,"ie. ..JONES,AL L<TAB>XXXX X7865<TAB> REASON<TAB >JONES,BEN E<TAB>XXXX XX564",!!
  14    S DIR(0)= "F^3:50"
  15    S DIR("A" )="Enter f ile name ( DICMAILINF O112607.tx t)" D ^DIR  K DIR  ;I NPUTFILE N AME
  16    Q:$D(DUOU T)
  17    Q:Y="^"!( Y="")
  18    S CHFNM=Y ,(CT1,CT)= 0,T=$C(9)
  19    ;SET ENVI RONMENT
  20    ;S $ZE="" ,$ZT="END^ CHMERDIC"
  21    ;S FILE=" HACFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG ]"_CHFNM
  22    ;O FILE:" R":10  ;OP EN FILE      
  23    ;I '$T W  !!,"NOT AB LE TO OPEN  FILE" G E ND
  24    X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1)
  25       S FILE NM2=CHFNM
  26       S FIO= "HAC_HFS$: [SCR.TEMP_ FILES]"_FI LENM2
  27       I UCI' ="HAC" S F IO="HAC_HF S$:[DSMMAN AG.CHAMPVA ]"_FILENM2
  28    S (CT1,CT )=0,T=$C(9 )
  29    D FTPFILE ^CHTFLIB9( FIO," DNS     fs3. DNS             ","/FS3BIG ","GET")
  30    X "D $SYS TEM.Proces s.SetZEOF( 1)"
  31    I '$$OPEN FIRD^CHTFL IB9(.FIO," FIO") Q
  32   RD1 U FIO  R CHX G:$$ STATUS^%ZI SH END S C T=CT+1
  33    S CHBSSN= $P(CHX,T,5 ) G:CHBSSN ="" RD1  ; GET BENE S SN
  34    D BLKUP   ;DO LOOKUP  AND ADD B ENE TO DEE RS FILE
  35    G RD1
  36   END ;
  37    ;C FILE
  38    
  39    D CLOSEF^ CHTFLIB9(F IO,"FIO")
  40    X "D $SYS TEM.Proces s.SetZEOF( 0)"
  41    W !!,"Tot al number  of records  in file:  ",CT
  42    W !,"Tota l number o f records  omitted: " ,CT1
  43    K CHX,CT, FIO
  44    Q
  45   BLKUP ;LOO KUP BENE I F GOOD AD  TO DEERS F ILE RUN
  46    I CHBSSN= "" S CT1=C T1+1 U 0 W  !,CHX Q   ;QUIT IF N O SSN READ  IN
  47    I '$D(^AH CHVA("G",C HBSSN)) S  CT1=CT1+1  U 0 W !,CH X Q  ;QUIT  IF NO DAT ABASE ENTR Y FOR SSN 
  48    S DFN=0,D FN=$O(^AHC HVA("G",CH BSSN,DFN))  I 'DFN S  CT1=CT1+1  W !,CHX Q   ;QUIT IF  NO SPONSOR  FOR SSN
  49    S BFN=0,B FN=$O(^AHC HVA("G",CH BSSN,DFN,B FN)) I 'BF N S CT1=CT 1+1 W !,CH X Q  ;QUIT  IF NO BEN E FOR SSN
  50    ;S ^TMP(" AF","PR",C T,DFN,BFN) =CHBSSN  ; UNCOMMENT  TO TEST
  51    S ^AHCHVA ("AF","PR" ,DFN,BFN)= ""  ;ADD T O NEXT DEE RS RUN  ;C OMMENT OFF  TO TEST
  52    Q