278. EPMO Open Source Coordination Office Redaction File Detail Report

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

278.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHSSNDOD.m Mon Nov 5 16:43:59 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHSSNDOD.m Mon Nov 5 17:55:34 2018 UTC

278.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 2 130
Changed 1 2
Inserted 0 0
Removed 0 0

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

278.4 Active regular expressions

No regular expressions were active.

278.5 Comparison detail

  1   CHSSNDOD   ;CVA/DPT S ET DOD IN  AHCHVA FOR  SPON;;1.0 ;CHAMPVA S YSTEM;;MAR  28 2012;
  2     ;
  3     ;MTN0147 62 As part  of the mo st recent  DEERS file  match,ide ntified 29 ,864 uniqu e Veterans  in the Vi stA that h ave no
  4     ;data en tered for  Date of De ath, but h ave a matc hing recor ds on the  DEERS file  
  5     ;that do es include  a Date of  Death
  6     ;CHSSN -  SSN FROM  SPREADSHEE T
  7     ;CHDOD -  DATE OF D EATH FROM  SPREAD SHE ET
  8     ;CI - PO INT IN ^AH CHVA
  9     ;READ FI LE
  10     ;FIND DF N
  11     ;SET CHD OD IN ^AHC HVA
  12   ZSET D ^CH MFSET X CH RESET
  13    S:'$D(DUZ ) DUZ=1,DU Z(0)="" I  '$D(DT) S  %DT="",X=" T" D ^%DT  S DT=Y
  14    S:'$D(IOZ FO) IOZFO= "^^" S:'$D (IOZBK) IO ZBK="^" S: '$D(DTIME)  DTIME=60
  15    I '$D(IOZ ) S %ZIS=" N",IOP="HO ME" D HOME ^%ZIS S IO Z=IO,IOZL= IOSL,IOZW= IOM,IOZF=I OF,IOZT=IO ST,IOZN=IO N,IOZS=IOS
  16    K ^CHMZHO LD("SSNDOD ") K ^CHMZ HOLD("SSND OD2")
  17    S (CHSSN, CHDOD)=0,R EC="" 
  18    ;SET ENVI RONMENT
  19    S ENVIR=$ $ENVIR^CHT FLIB
  20    S $ZE="", $ZT="END"
  21    S (CNT,FC NT,NOCNT,D FN)=0 
  22    ;SET SSN  DOD FILE N AME
  23    S DIR(0)= "F^3:50"
  24    S DIR("A" )="Enter S SNDOD file  name" D ^ DIR K DIR
  25    Q:$D(DUOU T)
  26    Q:Y="^"!( Y="")
  27    S CNAME=Y  K DIR
  28    S FILE="H ACFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG .DORTHEA"_ "]"_CNAME     ; NAME OF  SSN DOD FI LE
  29    C FILE O  FILE:"R":1 0
  30    I '$T W ! !,"NOT ABL E TO OPEN  FILE" G EN D
  31    U FILE
  32   AI ;LOADIN G DATE OF  DEATH
  33     R REC   
  34     ;W REC
  35     I REC=""  G END 
  36     S FCNT=F CNT+1
  37     S CHSSN= $P(REC,"^" ,1) S CHDO D=$P(REC," ^",2) S EF FDATE=$$YR 8FMYR^CHTF LIB(CHDOD)
  38     ;W CHSSN ,CHDOD 
  39     S ^CHMZH OLD("SSNDO D",$J,CHSS N)=EFFDATE
  40     I $D(^AH CHVA("C",C HSSN))  D  MATCH 
  41     I '$D(^A HCHVA("C", CHSSN))  D  EXCEPTION
  42      
  43   A2 G AI
  44    ; Q
  45   END  C FIL E  
  46      W !,"RE CORDS IN F ILE = ",FC NT
  47      W !,"MA TCHES = ",  CNT,"  NO  MATCHES =  ",NOCNT
  48      K DFN,C ISSN,CHSSN ,CHDOD,CNT ,REC,FCNT, NOCNT
  49      Q
  50   EXCEPTION
  51       S ^CHM ZHOLD("SSN DOD",$J,CH SSN)=EFFDA TE
  52       S $P(^ CHMZHOLD(" SSNDOD2",$ J,CHSSN)," ^",2)="NO  MATCH" S N OCNT=NOCNT +1
  53      Q
  54   MATCH
  55     S DFN=0, DFN=$O(^AH CHVA("C",C HSSN,DFN))  G:'DFN MA TCHE 
  56     S CISSN= 0,CISSN=$P (^AHCHVA(D FN,0),"^", 9)  
  57     I CISSN' =CHSSN D E XCEPTION G  MATCHE 
  58     S CNT=CN T+1
  59     S $P(^CH MZHOLD("SS NDOD",$J,C HSSN),"^", 2)="MATCH" ,$P(^CHMZH OLD("SSNDO D",$J,CHSS N),"^",3)= DFN 
  60     ;W !,"MA TCH FOUND  ",CHSSN,"  DFN = ",DF N," CHDOD  = ",CHDOD, " CONVERTE D DATE = " ,EFFDATE S  CNT=CNT+1
  61     S $P(^AH CHVA(DFN,0 ),"^",4)=E FFDATE
  62    
  63   MATCHE  Q
  64     
  65    
  66