Produced by Araxis Merge on 11/9/2018 12:34:06 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 | CHMMBMCM.m | Mon Nov 5 16:39:34 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMMBMCM.m | Mon Nov 5 17:50:53 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 416 |
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 | CHMMBMCM ; HAC/AHJ;CM OP/MBM BEN EFICIARIES LIST | |
2 | ;;V1.0 | |
3 | ;AHJ | |
4 | ;JEH 9/10 /08 BUG005 337-04-01 - CHG REFE RERNCE TO AHCHVA | |
5 | CHAMPVA ; | |
6 | S (CNT109 ,TOTDFN,TO TCNT,NOCLM ,NOCCNT,SB CNT,CNT,PC NT,NOAECNT ,YAECNT)=0 | |
7 | S (NOZIPC NT,ICNT,DF NCNT,TOTDF N1,BICNT,B CNT,FMPCNT ,YES12CNT, NO12CNT)=0 | |
8 | S PG=1 | |
9 | S DFN=0,U ="^",CDFN= 0 | |
10 | S BENESW= 0 | |
11 | S ^CHMZHO LD("BENE-N A-LABELS") ="" | |
12 | K ^CHMZHO LD("NAME-A DD5337") | |
13 | K ^CHMZHO LD("FMP533 7") | |
14 | K ^CHMZHO LD("NO12CL AIM5337") | |
15 | K ^CHMZHO LD("YES12C LAIM5337") | |
16 | K ^CHMZHO LD("NOTELI G5337") | |
17 | K ^CHMZHO LD("SB5337 ") | |
18 | K ^CHMZHO LD("FMP533 7") | |
19 | K ^CHMZHO LD("NOCLAI M5337") | |
20 | K ^CHMZHO LD("VBA-SP ONSOR-BENE -CLAIMS") | |
21 | ; | |
22 | ; | |
23 | A1 ; | |
24 | ;FIND TOD AYS DATE F OR AGE TES T | |
25 | D NOW^%DT C S RUNTIM E=% | |
26 | S Y=$E(RU NTIME,1,7) | |
27 | S CHDATE= Y | |
28 | ; 12 MO NTHS | |
29 | S X1=CHDA TE S X2=-3 65 D C^%DT C S STRDAT =X | |
30 | ; STRDAT = Start D ate | |
31 | ; CHDATE = Todays Date | |
32 | S TODAY=C HDATE | |
33 | S Y=$E(RU NTIME,1,7) | |
34 | S FILEDAT =$$FMTE^XL FDT(Y,"5D" ) ; | |
35 | S DAY=$E( RUNTIME,4, 5) | |
36 | S MO=$E(R UNTIME,6,7 ) | |
37 | S YR=$P(F ILEDAT,"/" ,3) | |
38 | S FILEDAT =DAY_"-"_M O_"-"_YR | |
39 | ; | |
40 | ; | |
41 | S DEVICE= "HACFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG ]MbM-Maili ng-Address es-"_FILED AT_".TXT" | |
42 | O DEVICE C DEVICE:" D" | |
43 | O DEVICE: "NWV" | |
44 | ; | |
45 | D GETDFN, END | |
46 | Q | |
47 | ; | |
48 | ; | |
49 | ; ALL ELI GIBLE/ACTI VE BENE'S ON TODAY | |
50 | ;******** ********** ********** ********** ********** ***** | |
51 | ; CHAMPVA BENE FILE | |
52 | GETDFN ; | |
53 | S CDFN=$O (^CHMDFN(C DFN)) Q:'C DFN | |
54 | S DFN=0 S DFN=$P(^C HMDFN(CDFN ,0),"^",1) | |
55 | G:$G(DFN) ="" GETDFN ;JEH 9 /11/08 | |
56 | ; | |
57 | S CBFN=0 | |
58 | GETBFN ; | |
59 | S CBFN=$O (^CHMDFN(C DFN,100,CB FN)) G:'CB FN GETDFN | |
60 | G:'$D(^CH MDFN(CDFN, 100,CBFN,0 )) GETDFN ;JEH 9/1 1/08 | |
61 | S BFN=0 S BFN=$P(^C HMDFN(CDFN ,100,CBFN, 0),"^",1) | |
62 | ;S BFN=$O (^AHCHVA(D FN,100,BFN )) G:'BFN GETDFN | |
63 | G:$G(BFN) ="" GETDFN | |
64 | G:'$D(^AH CHVA(DFN,1 00,BFN,0)) GETDFN | |
65 | S NAMLAB= ^AHCHVA(DF N,100,BFN, 0) | |
66 | G:'$D(^AH CHVA(DFN,1 00,BFN,1)) GETDFN | |
67 | S ADDRLAB =^AHCHVA(D FN,100,BFN ,1) | |
68 | I $P(ADDR LAB,U,10)' =1 S BCNT= BCNT+1 G G ETBFN ; | |
69 | ;ACCEPT O NLY MBM NE XT LINE | |
70 | ;G GETBFN :'$D(^AHCH VA("SB",DF N,BFN)) | |
71 | ; | |
72 | ;FIND AGE DOB | |
73 | S DOB=$P( NAMLAB,"^" ,3) | |
74 | S BRTHDAY =DOB | |
75 | S TODAY=C HDATE | |
76 | S TAGE=$$ AGE^CHTFLI B(BRTHDAY, TODAY) | |
77 | ; test on ly | |
78 | ; | |
79 | NEXT ; | |
80 | ; | |
81 | G:'$D(^AH CHVA(DFN,1 00,BFN,0)) NO109 | |
82 | G:'$D(^AH CHVA(DFN,1 00,BFN,1)) NO109 | |
83 | G:'$D(^AH CHVA(DFN,1 00,BFN,109 )) NO109 | |
84 | S J1=0 | |
85 | G2 S J1=$O (^AHCHVA(D FN,100,BFN ,109,J1)) G:'J1 GETB FN | |
86 | S J2=0 | |
87 | S J2=$O(^ AHCHVA(DFN ,100,BFN,1 09,J1,J2)) G:'J2 G2 | |
88 | G:J1>CHDA TE NOTELIG | |
89 | G:J2<CHDA TE NOTELIG | |
90 | S YAECNT= YAECNT+1 | |
91 | ;W !,DFN, " ",BFN," ",TAGE," " ,J1," ",J2 | |
92 | ;I TAGE>6 5 W !,"OVE R 65 AND E LIG",DFN," ",BFN," " ,TAGE," ", J1," ",J2 | |
93 | G:TAGE>65 OK | |
94 | ; | |
95 | UNDER65 ;T HIS TEST U NDER 65 ON LY FOR OHI CODES and CMOP Elig code | |
96 | S OHISW=" N" | |
97 | S OHIBEG= "" | |
98 | S CHDFNPT =0 | |
99 | S CHDFNPT =$O(^CHMDF N("B",DFN, CHDFNPT)) G:'CHDFNPT NOTOHI | |
100 | G:'$D(^CH MDFN(CHDFN PT,0)) NOT OHI | |
101 | G:'$D(^CH MDFN(CHDFN PT,100,"B" ,BFN)) NOT OHI | |
102 | S CHBFNPT =0 | |
103 | S CHBFNPT =$O(^CHMDF N(CHDFNPT, 100,"B",BF N,CHBFNPT) ) G:'CHBFN PT NOTOHI | |
104 | G:'$D(^CH MDFN(CHDFN PT,100,CHB FNPT,2)) N OTOHI | |
105 | S CHKVAL= 99999 | |
106 | OHICK1 ; | |
107 | S CHKVAL= $O(^CHMDFN (CHDFNPT,1 00,CHBFNPT ,2,CHKVAL) ,-1) G:'CH KVAL NOTOH I | |
108 | G:'$D(^CH MDFN(CHDFN PT,100,CHB FNPT,2,CHK VAL,0)) OH ICK1 | |
109 | ; | |
110 | S OHICODE =$P(^CHMDF N(CHDFNPT, 100,CHBFNP T,2,CHKVAL ,0),"^",3) | |
111 | I OHICODE =2 G GETBF N | |
112 | I OHICODE =3 G GETBF N | |
113 | I OHICODE =8 G GETBF N | |
114 | I OHICODE =10 G GETB FN | |
115 | I OHICODE =11 G GETB FN | |
116 | I OHICODE =13 G GETB FN | |
117 | I OHICODE =15 G GETB FN | |
118 | I OHICODE =17 G GETB FN | |
119 | I OHICODE =18 G GETB FN | |
120 | I OHICODE =20 G GETB FN | |
121 | I OHICODE =21 G GETB FN | |
122 | I OHICODE =23 G GETB FN | |
123 | I OHICODE =24 G GETB FN | |
124 | S CHKCMP= 99999 | |
125 | OHICK2 ;TH IS FILTER FOR UNDER 65 WITH CM OP INDICAT OR OF 1=EL IGIBLE-ACT IVE | |
126 | S CHKCMP= $O(^CHMDFN (CHDFNPT,1 00,CHBFNPT ,5,CHKCMP) ,-1) G:'CH KCMP NOTOH I | |
127 | G:'$D(^CH MDFN(CHDFN PT,100,CHB FNPT,5,CHK CMP,0)) OH ICK2 | |
128 | ; | |
129 | S CMPCODE =$P(^CHMDF N(CHDFNPT, 100,CHBFNP T,5,CHKCMP ,0),"^",3) | |
130 | I CMPCODE '=1 G GETB FN | |
131 | ;W !,"UND ER 65"," " ,DFN," ",B FN," ",TAG E," ",J1," ",J2," ", CHDFNPT," ",OHICODE, " ",CMPCOD E | |
132 | G OK | |
133 | ; | |
134 | NOTOHI ; | |
135 | G GETBFN | |
136 | Q | |
137 | OK ; | |
138 | G:'$D(^AH CHVA(DFN,1 00,BFN,0)) GETDFN | |
139 | S NAMLAB= ^AHCHVA(DF N,100,BFN, 0) | |
140 | G:'$D(^AH CHVA(DFN,1 00,BFN,1)) GETDFN | |
141 | S ADDRLAB =^AHCHVA(D FN,100,BFN ,1) | |
142 | I $P(ADDR LAB,U,10)' =1 S BCNT= BCNT+1 G G ETBFN ;BYP ASS BAD AD DRESSES HE RE | |
143 | ; | |
144 | S T=$C(9) | |
145 | ; | |
146 | S NAME=$P (NAMLAB,U, 1) | |
147 | S LAST=$P (NAME,",", 1) | |
148 | S FIRST=$ P(NAME,"," ,2) | |
149 | S NAME=FI RST_" "_LA ST | |
150 | S ADD2=$P (ADDRLAB,U ,1) | |
151 | S ADD3=$P (ADDRLAB,U ,2) | |
152 | S ADD4=$P (ADDRLAB,U ,12) | |
153 | S CITY=$P (ADDRLAB,U ,3) | |
154 | S STATE1= $P(ADDRLAB ,U,4) | |
155 | S:STATE1 STATE1=$P( ^DIC(5,STA TE1,0),U,2 ) | |
156 | I STATE1= "" S STATE 1="" | |
157 | S PZIP=$P (ADDRLAB,U ,5) | |
158 | S:'$D(PZI P) PZIP="" | |
159 | I $L(PZIP )>5 I $E(P ZIP,6,6)'= "-" S PZIP =$E(PZIP,1 ,5)_"-"_$E (PZIP,6,9) | |
160 | ;S ZIP1=$ P(ADDRLAB, U,5) | |
161 | ;S ZIP=$E (ZIP1,1,5) | |
162 | ; | |
163 | S TEMP=NAME_ T_ADD2_T_A DD3_T_CITY _T_STATE1_ T_PZIP_T | |
164 | U DEVICE W TEMP,! | |
165 | S CNT=CNT +1 | |
166 | ;W !,TEMP | |
167 | G GETBFN | |
168 | ; | |
169 | NOZIP ; | |
170 | S NOZIPCN T=NOZIPCNT +1 | |
171 | G GETBFN | |
172 | NODFN100 ; | |
173 | S DFNCNT= DFNCNT+1 | |
174 | G GETDFN | |
175 | NOICNT ; | |
176 | S ICNT=IC NT+1 | |
177 | G GETDFN | |
178 | SB ; | |
179 | ;W !,"SB= ",DFN," " ,BFN | |
180 | S SBCNT=S BCNT+1 | |
181 | S ^CHMZHO LD("SB5337 ",DFN,BFN) ="" | |
182 | G GETBFN | |
183 | FMP ; | |
184 | S FMPCNT= FMPCNT+1 | |
185 | S ^CHMZHO LD("FMP533 7",DFN)="" | |
186 | G GETDFN | |
187 | NO109 ; | |
188 | S CNT109= CNT109+1 | |
189 | G GETBFN | |
190 | NOCLM ; | |
191 | S NOCLM=N OCLM+1 | |
192 | ;W !," NO CLAI M ",DFN," ",BFN | |
193 | S ^CHMZHO LD("NOCLAI M5337",DFN ,BFN)="" | |
194 | G GETBFN | |
195 | NO12CLM ; | |
196 | S NO12CNT =NO12CNT+1 | |
197 | ;W !," NO CLAIM S 12 MOS ",DFN, " ",BFN," ",TFMDT | |
198 | S ^CHMZHO LD("NO12CL AIM5337",D FN,BFN)="" | |
199 | G GETBFN | |
200 | NOTELIG ; | |
201 | ;W !," NOT ELIG DATES ",DF N," ",BFN, " ",J1," " ,J2 | |
202 | ;S ^CHMZH OLD("NOTEL IG5337",DF N,BFN)="" | |
203 | S NOAECNT =NOAECNT+1 | |
204 | G GETBFN | |
205 | END ; | |
206 | C DEVICE | |
207 | W !," C OUNT=",CNT | |
208 | Q | |
209 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.