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.
# | Location | File | Last Modified |
---|---|---|---|
1 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMKVEA1.m | Mon Nov 5 16:44:48 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMKVEA1.m | Mon Nov 5 17:49:42 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 3 | 410 |
Changed | 2 | 4 |
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 | CHMKVEA1 ; HAC/AHJ;SE LECT VETS VEA WITH B ENE'S WITH NO CLAIMS LAST 12 M O'S | |
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 | ;SELECT V ETS MATCH DOB MO TO ENTERED MO NTH | |
7 | ;ELIMINAT E VETS WIT H ANNUAL E LIG VERIFI CATION (AE V) = YES W ITHIN 12 M O'S | |
8 | ;SELECT V ETS WITH B ENE'S WHO ARE CURREN TLY ELIGIB LE | |
9 | ;SELECT V ETS WITH B ENE'S WITH OUT CLAIMS LAST 12 M ONTHS | |
10 | ; | |
11 | ;OUTPUT O N FS3BIG List Veter ans name, gender, do b, ssn, ae v status, aev date | |
12 | CHAMPVA ; | |
13 | S (CNT109 ,TOTDFN,TO TCNT,NOCLM ,NOCCNT,SB CNT,CNT,PC NT,NOAECNT ,YAECNT)=0 | |
14 | S (NOZIPC NT,ICNT,DF NCNT,TOTDF N1,BICNT,B CNT,FMPCNT ,YES12CNT, NO12CNT)=0 | |
15 | S PG=1 | |
16 | S T=$C(9) | |
17 | S DFN=0,U ="^" | |
18 | S BENESW= 0 | |
19 | S ^CHMZHO LD("BENE-N A-LABELS") ="" | |
20 | K ^CHMZHO LD("NAME-A DD262") | |
21 | K ^CHMZHO LD("FMP262 ") | |
22 | K ^CHMZHO LD("NO12CL AIM262") | |
23 | K ^CHMZHO LD("YES12C LAIM262") | |
24 | K ^CHMZHO LD("NOTELI G262") | |
25 | K ^CHMZHO LD("SB262" ) | |
26 | K ^CHMZHO LD("FMP262 ") | |
27 | K ^CHMZHO LD("NOCLAI M262") | |
28 | K ^CHMZHO LD("AEV-SP ONSOR-SPOU SE-NOCLAIM S-262") | |
29 | ; | |
30 | A1 ; | |
31 | ;FIND TOD AYS DATE F OR AGE TES T | |
32 | D NOW^%DT C S RUNTIM E=% | |
33 | S Y=$E(RU NTIME,1,7) | |
34 | S CHDATE= Y | |
35 | ; 12 MO NTHS | |
36 | S X1=CHDA TE S X2=-3 65 D C^%DT C S STRDAT =X | |
37 | ; STRDAT = Start D ate | |
38 | ; CHDATE = Todays Date | |
39 | S TODAY=C HDATE | |
40 | S DAT12=S TRDAT | |
41 | MONS ; | |
42 | W !!,"Ent er Veteran 's DOB two numeric m onth to se lect (Ent er ""END"" to Quit: " | |
43 | D CSBRS^C HSC2 | |
44 | ;G:$D(DFO UT) END G: $D(DUOUT) ESSN | |
45 | I $D(DQOU T) D G MO NS | |
46 | .W !," days input must be n umeric num ber." | |
47 | Q:Y="END" | |
48 | I Y="" D G MONS | |
49 | .W !," The month input Numb er is mand atory." | |
50 | .W " You may not p roceed wit hout it." | |
51 | I (Y?2N) S MONTHNUM =Y G OKMOS | |
52 | G MONS | |
53 | ; | |
54 | OKMOS ;DGC 1/20/2014 DEV012893 - BEGIN | |
55 | ;S DEVICE ="HACFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG ]AEV-SPONS OR-ELIG-BE NE-"_MONTH NUM_".XLS" | |
56 | ;O DEVICE C DEVICE: "D" | |
57 | ;O DEVICE :"NWV" | |
58 | X ^%ZOSF( "UCI") S U CI=$P(Y,"1 ,",1) | |
59 | X "D $SYS TEM.Proces s.SetZEOF( 1)" ;DGC 7 /30/2015 D EV012893 | |
60 | S FILENM2 =AEV-SPONS OR-ELIG-BE NE-_MONTHN UM_".XLS" | |
61 | S DEVICE= "HAC_HFS$: [SCR.TEMP_ FILES)"_FI LENM2 | |
62 | I UCI'="H AC" S DEVI CE="HAC_HF S$:[DSMMAN AG.CHAMPVA ]"_FILENM2 | |
63 | I '$$OPENFIW R^CHTFLIB9 (.DEVICE," DEVICE") X "D $SYSTE M.Process. SetZEOF(0) " Q ;DGC 7 /30/2015 D EV012893 ; DGC 1/20/2 014 DEV012 893 - END | |
64 | U DEVICE W "VET NAM E"_T_"VET GENDER"_T_ "VET DOB"_ T_"VET SSN "_T_"AEV S TAT"_T_"AE V DATE"_T, ! | |
65 | ; | |
66 | D GETDFN, END | |
67 | Q | |
68 | ; ALL ELI GIBLE/ACTI VE BENE'S ON TODAY | |
69 | ;******** ********** ********** ********** ********** ***** | |
70 | ; CHAMPVA BENE FILE | |
71 | GETDFN ; | |
72 | I BENESW= 1 D WANTIT | |
73 | S DFN=$O( ^AHCHVA(DF N)) Q:'DFN | |
74 | S TOTDFN= TOTDFN+1 | |
75 | G:$D(^AHC HVA("FMP", DFN)) FMP | |
76 | ;G:'$D(^A HCHVA(DFN, 100)) GETD FN | |
77 | S TOTDFN1 =TOTDFN1+1 | |
78 | G:'$D(^AH CHVA(DFN,0 )) GETDFN | |
79 | S SPON=^A HCHVA(DFN, 0) | |
80 | S VDOB=$P (SPON,U,3) | |
81 | I $E(VDOB ,4,5)'=MON THNUM G GE TDFN ;matc h dob mont h | |
82 | G:'$D(^AH CHVA(DFN,1 )) GETDFN | |
83 | S SPON1=^ AHCHVA(DFN ,1) | |
84 | S CHAEV=9 9999999 | |
85 | GETDFNJ5 ; | |
86 | S CHAEV=$ O(^AHCHVA( DFN,5,CHAE V),-1) G:' CHAEV GETD FN | |
87 | G:$D(^AHC HVA(DFN,5, CHAEV,0)) GETDFN1 | |
88 | G GETDFN | |
89 | GETDFN1 ; | |
90 | S AEVDATA =^AHCHVA(D FN,5,CHAEV ,0) | |
91 | S AEVSTAT =$P(AEVDAT A,U,1) | |
92 | S AEVDAT= $P(AEVDATA ,U,3) | |
93 | S AEVDAT= $E(AEVDAT, 1,7) | |
94 | ;W !," AEVDAT =",DFN," " ,AEVDAT," ",AEVSTAT | |
95 | S Y=AEVDA T D DD^%DT S AEVPDAT =Y ; FORMA T TO PRINT | |
96 | I AEVSTAT =1 I AEVD AT<STRDAT G GETDFN ; ELIMINATE AEV="Y" LA ST 12 MONT HS | |
97 | ;W !," GOOD AEVDAT 12 MO=",DFN," ",AEVDAT, " ",AEVSTA T | |
98 | S BFN=0 | |
99 | GETBFN S B FN=$O(^AHC HVA(DFN,10 0,BFN)) G: 'BFN GETDF N | |
100 | ;W !,"DFN =",DFN," B FN=",BFN," SW=",BENE SW | |
101 | S BICNT=B ICNT+1 | |
102 | G:$D(^AHC HVA("SB",D FN,BFN)) S B | |
103 | ;ELIMINAT E FMP | |
104 | G:'$D(^AH CHVA(DFN,1 00,BFN,0)) GETBFN | |
105 | S BEN0=^A HCHVA(DFN, 100,BFN,0) | |
106 | S BFNSAV= BFN | |
107 | ;CHECK DA TES OF ELI GIBILITY F OR BENE | |
108 | ; | |
109 | G:'$D(^AH CHVA(DFN,1 00,BFN,0)) NO109 | |
110 | G:'$D(^AH CHVA(DFN,1 00,BFN,1)) NO109 | |
111 | G:'$D(^AH CHVA(DFN,1 00,BFN,109 )) NO109 | |
112 | S J1=0 | |
113 | G2 S J1=$O (^AHCHVA(D FN,100,BFN ,109,J1)) G:'J1 GETB FN | |
114 | S J2=0 | |
115 | S J2=$O(^ AHCHVA(DFN ,100,BFN,1 09,J1,J2)) G:'J2 G2 | |
116 | ;W !," AL L ELIG =", DFN," ",BF N," ",J1," ",J2 | |
117 | G:J1>CHDA TE NOTELIG | |
118 | G:J2<CHDA TE NOTELIG | |
119 | ;W !," GOOD ELI G DATES=", DFN," ",BF N," ",J1," ",J2 | |
120 | ; | |
121 | ; | |
122 | C1 ;NEED T O FIND CLA IMS IN LAS T 12 MONTH S, SELECT NO CLAIMS LAST 12 MO NTHS | |
123 | ; | |
124 | L3 S CHDFN I=$O(^CHMD FN("B",DFN ,0)) G NOI CNT:'CHDFN I | |
125 | ;S CHDFNJ =$O(^CHMDF N(CHDFNI,1 00,"B",BFN ,0)) G GET DFN:'CHDFN J | |
126 | S CHDFNJ= $O(^CHMDFN (CHDFNI,10 0,"B",BFN, 0)) G NOCL M:'CHDFNJ | |
127 | S CHDFNK= 99999999 | |
128 | LOOP ;W !, " LOOP ",DFN," = ",CHDF NK | |
129 | S CHDFNK= $O(^CHMDFN (CHDFNI,10 0,CHDFNJ,1 00,CHDFNK) ,-1) G:'CH DFNK NOCLM | |
130 | G:$D(^CHM DFN(CHDFNI ,100,CHDFN J,100,CHDF NK,0)) MAI N | |
131 | G L3 | |
132 | MAIN ; | |
133 | S CLAIMNO =^CHMDFN(C HDFNI,100, CHDFNJ,100 ,CHDFNK,0) | |
134 | G LOOP:'$ D(^CHMPAY( CLAIMNO,0) ) | |
135 | ;CONVERT PDI TO CLA IM FILED D ATE | |
136 | S PDIJ="" | |
137 | S PDIJ=$O (^CHMPAY(C LAIMNO,"PD I","B",PDI J),-1) | |
138 | G:PDIJ="" LOOP | |
139 | S TFMDT=$ $PDIJULFM^ CHMFPDI2(P DIJ) | |
140 | ; | |
141 | I TFMDT>STRD AT G NO12C LM | |
142 | GOODONE ; | |
143 | S BENESW= 1 ; NO CLA IMS LAST 1 2 MONTHS | |
144 | ;W !," BENE WITH NO CL AIMS=",DFN ," ",BFN," ",TFMDT | |
145 | S SAVCLMN O=CLAIMNO | |
146 | S SAVCLMD T=TFMDT | |
147 | G GETBFN | |
148 | ; | |
149 | WANTIT ;SP ONSOR WITH A BENE WI TH DATES O F ELIGIBIL ITY AND NO 12 MO CLA IMS | |
150 | OK ; | |
151 | S BENESW= 0 | |
152 | S T=$C(9) | |
153 | S CNT=CNT +1 | |
154 | S VNAME=$ P(SPON,U,1 ) | |
155 | S VSEX=$P (SPON,U,2) | |
156 | S VDOB=$P (SPON,U,3) | |
157 | S Y=VDOB D DD^%DT S VPDOB=Y | |
158 | S VSSN=$P (SPON,U,9) | |
159 | S VSSN=$E (VSSN,1,3) _"-"_$E(VS SN,4,5)_"- "_$E(VSSN, 6,9) | |
160 | S TMP=VNA ME_T_VSEX_ T_VPDOB_T_ VSSN_T_AEV STAT_T_AEV PDAT_T | |
161 | U DEVICE W TMP,! | |
162 | S ^CHMZHO LD("AEV-SP ONSOR-SPOU SE-NOCLAIM S-262",DFN ,BFNSAV)=V NAME_U_VSE X_U_VPDOB_ U_VSSN_U_A EVSTAT_U_A EVPDAT_U_S AVCLMNO_U_ SAVCLMDT_U | |
163 | Q | |
164 | NOZIP ; | |
165 | S NOZIPCN T=NOZIPCNT +1 | |
166 | G GETBFN | |
167 | NODFN100 ; | |
168 | S DFNCNT= DFNCNT+1 | |
169 | G GETDFN | |
170 | NOICNT ; | |
171 | S ICNT=IC NT+1 | |
172 | G GETDFN | |
173 | SB ; | |
174 | ;W !,"SB= ",DFN," " ,BFN | |
175 | S SBCNT=S BCNT+1 | |
176 | S ^CHMZHO LD("SB262" ,DFN,BFN)= "" | |
177 | G GETBFN | |
178 | FMP ; | |
179 | S FMPCNT= FMPCNT+1 | |
180 | S ^CHMZHO LD("FMP262 ",DFN)="" | |
181 | G GETDFN | |
182 | NO109 ; | |
183 | S CNT109= CNT109+1 | |
184 | G GETBFN | |
185 | NOCLM ; | |
186 | S NOCLM=N OCLM+1 | |
187 | ;W !," NO CLAI M ",DFN," ",BFN | |
188 | S ^CHMZHO LD("NOCLAI M262",DFN, BFN)="" | |
189 | G GETBFN | |
190 | NO12CLM ; | |
191 | S NO12CNT =NO12CNT+1 | |
192 | ;W !," NO CLAIM S 12 MOS ",DFN, " ",BFN," ",TFMDT | |
193 | S ^CHMZHO LD("NO12CL AIM262",DF N,BFN)="" | |
194 | G GETBFN | |
195 | NOTELIG ; | |
196 | ;W !," NOT ELIG DATES ",DF N," ",BFN, " ",J1," " ,J2 | |
197 | S ^CHMZHO LD("NOTELI G262",DFN, BFN)="" | |
198 | S NOAECNT =NOAECNT+1 | |
199 | G GETBFN | |
200 | END ;DGC 1 /20/2014 D EV012893 - BEGIN | |
201 | D CLOSEF^ CHTFLIB9(D EVICE,"DEV ICE") ;C D EVICE | |
202 | X "D $SYS TEM.Proces s.SetZEOF( 0)" ;DGC 7 /30/2015 D EV012893 | |
203 | D FTPFILE^ CHTFLIB9(D EIVE," DNS fs3. DNS ","/FS3BIG ","PUT") | |
204 | ;D GC 1/20/20 14 DEV0128 93 - END | |
205 | ;W !," COUNT=",CN T | |
206 | Q | |
207 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.