Produced by Araxis Merge on 11/9/2018 12:33:57 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 | CHMKAEV1.m | Mon Nov 5 16:45:05 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMKAEV1.m | Mon Nov 5 17:48:34 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 4 | 510 |
Changed | 3 | 6 |
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 | CHMKAEV1 ; HAC/AHJ;SE LECT VETS VEA WITH B ENE'S WITH NO CLAIMS LAST 12 M O'S | |
2 | ;;V1.0 | |
3 | ;SELECT V ETS MATCH DOB MO TO ENTERED MO NTH | |
4 | ;ELIMINAT E VETS WIT H ANNUAL E LIG VERIFI CATION (AE V) = YES W ITHIN 12 M O'S | |
5 | ;SELECT V ETS WITH B ENE'S WHO ARE CURREN TLY ELIGIB LE | |
6 | ;SELECT V ETS WITH B ENE'S WITH OUT CLAIMS LAST 12 M ONTHS | |
7 | ; | |
8 | ;OUTPUT O N FS3BIG List Veter ans name, gender, do b, ssn, ae v status, aev date | |
9 | CHAMPVA ; | |
10 | S (CNT109 ,TOTDFN,TO TCNT,NOCLM ,NOCCNT,SB CNT,CNT,PC NT,NOAECNT ,YAECNT)=0 | |
11 | S (NOZIPC NT,ICNT,DF NCNT,TOTDF N1,BICNT,B CNT,FMPCNT ,YES12CNT, NO12CNT)=0 | |
12 | S PG=1 | |
13 | S T=$C(9) | |
14 | S DFN=0,U ="^" | |
15 | S BENESW= 0 | |
16 | S ^CHMZHO LD("BENE-N A-LABELS") ="" | |
17 | K ^CHMZHO LD("NAME-A DD262") | |
18 | K ^CHMZHO LD("FMP262 ") | |
19 | K ^CHMZHO LD("NO12CL AIM262") | |
20 | K ^CHMZHO LD("YES12C LAIM262") | |
21 | K ^CHMZHO LD("NOTELI G262") | |
22 | K ^CHMZHO LD("SB262" ) | |
23 | K ^CHMZHO LD("FMP262 ") | |
24 | K ^CHMZHO LD("NOCLAI M262") | |
25 | K ^CHMZHO LD("AEV-SP ONSOR-SPOU SE-NOCLAIM S-262") | |
26 | K ^CHMZHO LD("AEV-SP ONSOR-BENE -DFNBFN") | |
27 | ; | |
28 | A1 ; | |
29 | ;FIND TOD AYS DATE F OR AGE TES T | |
30 | D NOW^%DT C S RUNTIM E=% | |
31 | S Y=$E(RU NTIME,1,7) | |
32 | S CHDATE= Y | |
33 | ; 12 MO NTHS | |
34 | S X1=CHDA TE S X2=-3 65 D C^%DT C S STRDAT =X | |
35 | ; STRDAT = Start D ate | |
36 | ; CHDATE = Todays Date | |
37 | S TODAY=C HDATE | |
38 | S DAT12=S TRDAT | |
39 | MONS ; | |
40 | W !!,"Ent er Veteran 's DOB two numeric m onth to se lect (Ent er ""END"" to Quit:) " | |
41 | D CSBRS^C HSC2 | |
42 | ;G:$D(DFO UT) END G: $D(DUOUT) ESSN | |
43 | I $D(DQOU T) D G MO NS | |
44 | .W !," days input must be n umeric num ber." | |
45 | Q:Y="END" | |
46 | I Y="" D G MONS | |
47 | .W !," The month input Numb er is mand atory." | |
48 | .W " You may not p roceed wit hout it." | |
49 | I (Y?2N) S MONTHNUM =Y G OKMOS | |
50 | G MONS | |
51 | OKMOS ; | |
52 | W !!,"PL EASE SELEC T DEVICE F OR PRINTOU T(MUST USE ""WIDE"" PRINTER) O R ""FILE"" FOR TEXT FILE ON FS 3BIG: " ; TLH 4/21/0 8 DEV00441 6 | |
53 | K %IS,IO( "Q") D ^%Z IS Q:POP S CHFILE=" " | |
54 | I ION="FI LE" D ;TL H 4/21/08 DEV004416 | |
55 | .W !!,?24 ,"COPY YOU R QUEUED F ILE TO FS3 BIG" ;TLH 4/21/08 D EV004416 | |
56 | A .W !!,"E nter the n ew 1-8 cha racter fil e name EXI T// " ;TL H 4/21/08 DEV004416 | |
57 | .D CSBRS^ CHSC2 ;TL H 4/21/08 DEV004416 | |
58 | .Q:$D(DFO UT) Q:$D( DTOUT) G: $D(DQOUT) A ;TLH 4/2 1/08 DEV00 4416 | |
59 | .S CHFILE =Y ;TLH 4 /21/08 DEV 004416 | |
60 | .I Y["." W !,"DO NO T ENTER AN EXTENTION . EXTENTIO N WILL BE '.TXT'" G A | |
61 | .Q:Y="" ;TLH 4/21/ 08 DEV0044 16 | |
62 | .G:Y'?1.8 AN A ;TLH 4/21/08 D EV004416 | |
63 | .W !!,"Yo ur file wi ll now be copied to FS3BIG: " ;TLH 4/21 /08 DEV004 416 | |
64 | .W "\\ DNS FS3\FS3BIG \",CHFILE, ".TXT" ;TLH 4/21/ 08 DEV0044 16 | |
65 | .Q ;TLH 4/21/08 DE V004416 | |
66 | G:$D(IO(" Q"))!(IO'= IO(0)) QUE UEIT | |
67 | ;G OKMOS1 | |
68 | ;Q UE TO PRIN TER | |
69 | ;; ;;;;;K %IS ,IO("Q") D ^%ZIS Q:P OP | |
70 | ; ;;;;;G:$D( IO("Q"))!( IO'=IO(0)) QUEUEIT | |
71 | ;* ********** ********** ********ne xt to auto matic que job | |
72 | ;S ZTSAVE ("CHDATE") ="",ZTSAVE ("*")="",Z TSAVE("MON THNUM")="" | |
73 | ;S ZTRTN= "OKMOS1^CH MKAEV1",ZT DESC="AEV VETS",ZTIO ="" | |
74 | ;D ^%ZTLO AD S IOP=0 D HOME^%Z IS | |
75 | END1 ; | |
76 | D ^CHMKAE V2 | |
77 | Q | |
78 | ; | |
79 | OKMOS1 ; | |
80 | S PG=1 | |
81 | S T=$C(9) | |
82 | S DFN=0,U ="^" | |
83 | S BENESW= 0 | |
84 | ; | |
85 | D GETDFN, END | |
86 | Q | |
87 | ; ALL ELI GIBLE/ACTI VE BENE'S ON TODAY | |
88 | ;******** ********** ********** ********** ********** ***** | |
89 | ; CHAMPVA BENE FILE | |
90 | GETDFN ; | |
91 | I BENESW= 1 D WANTIT | |
92 | S DFN=$O( ^AHCHVA(DF N)) Q:'DFN | |
93 | S TOTDFN= TOTDFN+1 | |
94 | G:$D(^AHC HVA("FMP", DFN)) FMP | |
95 | ;G:'$D(^A HCHVA(DFN, 100)) GETD FN | |
96 | S TOTDFN1 =TOTDFN1+1 | |
97 | G:'$D(^AH CHVA(DFN,0 )) GETDFN | |
98 | S SPON=^A HCHVA(DFN, 0) | |
99 | S VDOB=$P (SPON,U,3) | |
100 | ;W !," ALL DFNS =",DFN | |
101 | I $E(VDOB ,4,5)'=MON THNUM G GE TDFN ;matc h dob mont h | |
102 | ;W !," DFN=",DFN, " ",VDOB | |
103 | G:'$D(^AH CHVA(DFN,1 )) GETDFN | |
104 | S SPON1=^ AHCHVA(DFN ,1) | |
105 | S CHAEV=9 9999999 | |
106 | GETDFNJ5 ; | |
107 | S CHAEV=$ O(^AHCHVA( DFN,5,CHAE V),-1) G:' CHAEV GETD FN | |
108 | G:$D(^AHC HVA(DFN,5, CHAEV,0)) GETDFN1 | |
109 | G GETDFN | |
110 | GETDFN1 ; | |
111 | S AEVDATA =^AHCHVA(D FN,5,CHAEV ,0) | |
112 | S AEVSTAT =$P(AEVDAT A,U,1) | |
113 | S AEVDAT= $P(AEVDATA ,U,3) | |
114 | S AEVDAT= $E(AEVDAT, 1,7) | |
115 | ;W !," AEVDAT =",DFN," " ,AEVDAT," ",AEVSTAT | |
116 | S Y=AEVDA T D DD^%DT S AEVPDAT =Y ; FORMA T TO PRINT | |
117 | I AEVSTAT =1 I AEVD AT>STRDAT G GETDFN ; ELIMINATE AEV="Y" LA ST 12 MONT HS | |
118 | ;W !," GOOD AEVDAT 12 MO=",DFN," ",AEVDAT, " ",AEVSTA T | |
119 | S BFN=0 | |
120 | GETBFN S B FN=$O(^AHC HVA(DFN,10 0,BFN)) G: 'BFN GETDF N | |
121 | ;W !,"DFN =",DFN," B FN=",BFN," SW=",BENE SW | |
122 | S BICNT=B ICNT+1 | |
123 | G:$D(^AHC HVA("SB",D FN,BFN)) S B | |
124 | ;ELIMINAT E FMP | |
125 | G:'$D(^AH CHVA(DFN,1 00,BFN,0)) GETBFN | |
126 | S BEN0=^A HCHVA(DFN, 100,BFN,0) | |
127 | S BFNSAV= BFN | |
128 | ;CHECK DA TES OF ELI GIBILITY F OR BENE | |
129 | ; | |
130 | G:'$D(^AH CHVA(DFN,1 00,BFN,0)) NO109 | |
131 | G:'$D(^AH CHVA(DFN,1 00,BFN,1)) NO109 | |
132 | G:'$D(^AH CHVA(DFN,1 00,BFN,109 )) NO109 | |
133 | S J1=0 | |
134 | G2 S J1=$O (^AHCHVA(D FN,100,BFN ,109,J1)) G:'J1 GETB FN | |
135 | S J2=0 | |
136 | S J2=$O(^ AHCHVA(DFN ,100,BFN,1 09,J1,J2)) G:'J2 G2 | |
137 | ;W !," AL L ELIG =", DFN," ",BF N," ",J1," ",J2 | |
138 | G:J1>CHDA TE NOTELIG | |
139 | G:J2<CHDA TE NOTELIG | |
140 | ;W !," GOOD E LIG DATES= ",DFN," ", BFN," ",J1 ," ",J2 | |
141 | ; | |
142 | ; | |
143 | C1 ;NEED T O FIND CLA IMS IN LAS T 12 MONTH S, SELECT NO CLAIMS LAST 12 MO NTHS | |
144 | ; | |
145 | L3 S CHDFN I=$O(^CHMD FN("B",DFN ,0)) G NOI CNT:'CHDFN I | |
146 | ;S CHDFNJ =$O(^CHMDF N(CHDFNI,1 00,"B",BFN ,0)) G GET DFN:'CHDFN J | |
147 | ;S CHDFNJ =$O(^CHMDF N(CHDFNI,1 00,"B",BFN ,0)) G NOC LM:'CHDFNJ | |
148 | S CHDFNJ= $O(^CHMDFN (CHDFNI,10 0,"B",BFN, 0)) G GOOD ONE:'CHDFN J | |
149 | S CHDFNK= 99999999 | |
150 | LOOP ;W !, " LOOP ",DFN," = ",CHDF NK | |
151 | ;S CHDFNK =$O(^CHMDF N(CHDFNI,1 00,CHDFNJ, 100,CHDFNK ),-1) G:'C HDFNK NOCL M | |
152 | S CHDFNK= $O(^CHMDFN (CHDFNI,10 0,CHDFNJ,1 00,CHDFNK) ,-1) G:'CH DFNK GOODO NE | |
153 | G:$D(^CHM DFN(CHDFNI ,100,CHDFN J,100,CHDF NK,0)) MAI N | |
154 | G L3 | |
155 | MAIN ; | |
156 | S CLAIMNO =^CHMDFN(C HDFNI,100, CHDFNJ,100 ,CHDFNK,0) | |
157 | G LOOP:'$ D(^CHMPAY( CLAIMNO,0) ) | |
158 | ;CONVERT PDI TO CLA IM FILED D ATE | |
159 | S PDIJ="" | |
160 | S PDIJ=$O (^CHMPAY(C LAIMNO,"PD I","B",PDI J),-1) | |
161 | G:PDIJ="" LOOP | |
162 | S TFMDT=$ $PDIJULFM^ CHMFPDI2(P DIJ) | |
163 | ; !," CLAIMS TO TEST=", DFN," ",BF N," ",TFMD T | |
164 | I TFMDT>STRD AT G NO12C LM | |
165 | GOODONE ; | |
166 | S BENESW= 1 ; NO CLA IMS LAST 1 2 MONTHS | |
167 | ;W !," CLAIM OV ER 12 MON OLD=",DFN, " ",BFN," ",TFMDT | |
168 | S SAVCLMN O=CLAIMNO | |
169 | S SAVCLMD T=TFMDT | |
170 | S VNAME=$ P(SPON,U,1 ) | |
171 | S ^CHMZHO LD($J,"AEV -SPONSOR-B ENE-DFNBFN ",VNAME,DF N,BFN)=J1_ U_J2_U_"TW O" | |
172 | G GETBFN | |
173 | ; | |
174 | WANTIT ;SP ONSOR WITH A BENE WI TH DATES O F ELIGIBIL ITY AND NO 12 MO CLA IMS | |
175 | OK ; | |
176 | S BENESW= 0 | |
177 | S T=$C(9) | |
178 | S CNT=CNT +1 | |
179 | S VNAME=$ P(SPON,U,1 ) | |
180 | S VSEX=$P (SPON,U,2) | |
181 | S VDOB=$P (SPON,U,3) | |
182 | S Y=VDOB D DD^%DT S VPDOB=Y | |
183 | S VSSN=$P (SPON,U,9) | |
184 | S VSSN=$E (VSSN,1,3) _"-"_$E(VS SN,4,5)_"- "_$E(VSSN, 6,9) | |
185 | ;W !," SELECTED THIS ONE=" ,DFN," ",T FMDT | |
186 | ;S ^CHMZH OLD("AEV-S PONSOR-SPO USE-NOCLAI MS-262",VN AME,DFN,BF NSAV)=VNAM E_U_VSEX_U _VPDOB_U_V SSN_U_AEVS TAT_U_AEVP DAT_U_SAVC LMNO_U_SAV CLMDT_U | |
187 | Q | |
188 | QUEUEIT ; | |
189 | S ZTDTH=$H | |
190 | S ZTRTN="OK MOS1^CHMKA EV1" | |
191 | S ZTDESC="A EV REPORT" | |
192 | S ZTSAVE("* ")="" | |
193 | D ^%ZTLOAD | |
194 | W !!?5,"Rep ort Queued !" | |
195 | D HOME^%ZIS Q | |
196 | Q | |
197 | NOZIP ; | |
198 | S NOZIPCN T=NOZIPCNT +1 | |
199 | G GETBFN | |
200 | NODFN100 ; | |
201 | S DFNCNT= DFNCNT+1 | |
202 | G GETDFN | |
203 | NOICNT ; | |
204 | S ICNT=IC NT+1 | |
205 | ;W !," NO IN CLAI M=",DFN," ",BFN | |
206 | G GETDFN | |
207 | SB ; | |
208 | ;W !,"SB= ",DFN," " ,BFN | |
209 | S SBCNT=S BCNT+1 | |
210 | S ^CHMZHO LD("SB262" ,DFN,BFN)= "" | |
211 | G GETBFN | |
212 | FMP ; | |
213 | S FMPCNT= FMPCNT+1 | |
214 | S ^CHMZHO LD("FMP262 ",DFN)="" | |
215 | G GETDFN | |
216 | NO109 ; | |
217 | S CNT109= CNT109+1 | |
218 | G GETBFN | |
219 | NOCLM ; | |
220 | S NOCLM=N OCLM+1 | |
221 | ;W !," NO CLAI M ",DFN," ",BFN | |
222 | S ^CHMZHO LD("NOCLAI M262",DFN, BFN)="" | |
223 | G GETBFN | |
224 | NO12CLM ; | |
225 | S NO12CNT =NO12CNT+1 | |
226 | ;W !," NO CLAIM S 12 MOS ",DFN, " ",BFN," ",TFMDT | |
227 | S ^CHMZHO LD("NO12CL AIM262",DF N,BFN)="" | |
228 | G GETBFN | |
229 | NOTELIG ; | |
230 | ;W !," NOT ELIG DATES ",DF N," ",BFN, " ",J1," " ,J2 | |
231 | S ^CHMZHO LD("NOTELI G262",DFN, BFN)="" | |
232 | S NOAECNT =NOAECNT+1 | |
233 | G GETBFN | |
234 | END ; | |
235 | D ^CHMKAE V2 | |
236 | I ION="FI LE" D MOVE ;TLH 4/2 1/08 DEV00 4416 | |
237 | ; | |
238 | Q | |
239 | ;;TLH 4/2 1/08 DEV00 4416 | |
240 | MOVE | |
241 | S ZTRTN=" COPY^CHMKA EV1",ZTDES C="COPY TE XT FILE TO PC DISK" | |
242 | S ZTSAVE( "CHFILE")= "",ZTIO="" D ^%ZTLOA D | |
243 | ;W !!,"Yo ur file wi ll now be copied to FS3BIG: " | |
244 | ;W "\\ DNS FS3\FS3BIG \",CHFILE, ".TXT" Q | |
245 | COPY S CHC OM="HAC_HF S$:[DSMMAN AG]DHCPCOP Y.COM" | |
246 | S CHVAL=" /NOLOG/QUE UE=SYS$BAT CH" | |
247 | S CHPAR=C HFILE_".TX T" | |
248 | ;S X=$ZF( -1,"SUBMIT CHCOM,CHV AL,CHPAR") | |
249 | ;S X=$ZF( -1,"SUBMIT HAC_HFS$: [DSMMANAG] DHCPCOPY.C OM /NOLOG/ QUEUE=SCRA TCH$/PARAM ="_CHPAR) ;SKD | |
250 | S CHPAR=" HACFS3"" DNS COLEDEC We lcome1!"": :d:[FS3BIG ]"_$G(CHPA R) ;SKD | |
251 | S X=$ZF(- 1,"COPY HA C_HFS$:[TM P]TEMP.TMP "_CHPAR) | |
252 | S X=$ZF(- 1,"DELE HA C_HFS$:[TM P]TEMP.TMP ;*") | |
253 | Q | |
254 | ;;TLH 4/2 1/08 DEV00 4416 | |
255 | ; DEVICE | |
256 | ;W !," COUNT=",CN T | |
257 | Q | |
258 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.