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.
# | 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 |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 130 |
Changed | 1 | 2 |
Inserted | 0 | 0 |
Removed | 0 | 0 |
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 |
No regular expressions were active.
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 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.