Produced by Araxis Merge on 11/9/2018 12:34:00 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 | CHMKOHIC.m | Mon Nov 5 16:39:58 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMKOHIC.m | Mon Nov 5 17:49:09 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 530 |
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 | CHMKOHIC ; HAC/AHJ; C HAMPVA CHA MPVA Surve y Mailing | |
2 | ;;V1.0 | |
3 | ; | |
4 | ;AGE OVER 18 | |
5 | ;HAVE CLA IMS LAST 1 20 DAYS | |
6 | ;NO BAD A DDRESS RO NO DOD | |
7 | ; | |
8 | CHAMPVA ; | |
9 | S (YESCNT ,NOCNT,YCN T,NCNT)=0 | |
10 | S (SW9,BE NCNT,ECNT, IECNT,RCNT ,NRCNT,TCN T,NTCNT,NS CNT,DCNT)= 0 | |
11 | S (SEQNO, TOTCLM,COU NT,SW1,CLM CNT,CLAIM, CNT,TOTCNT ,CCNT)=0 | |
12 | S DFN=0,U ="^" | |
13 | K ^CHMZHO LD("ACCEPT -CR1276-YE S") | |
14 | K ^CHMZHO LD("ACCEPT -CR1276-NO ") | |
15 | K ^CHMZHO LD("CR645Y ESOHI") | |
16 | K ^CHMZHO LD("CR645N OOHI") | |
17 | K ^CHMZHO LD("ACCEPT -TRC") | |
18 | K ^CHMZHO LD("NOT-EL IG-TRC") | |
19 | K ^CHMZHO LD("ACCEPT -TRC-BU") | |
20 | K ^CHMZHO LD("NO-CLA IMS-OVER18 -TRC") | |
21 | K ^CHMZHO LD("NOT-EL IG-6MO-CLA IM-TRC") | |
22 | K ^CHMZHO LD("ACCEPT -TOTAL-REC ORDS-TRC") | |
23 | K ^CHMZHO LD("FY03-C LAIMS-TRC" ) | |
24 | K ^CHMZHO LD("TRC122 5-BADADDR" ) | |
25 | K ^CHMZHO LD("TRC122 5-DOD") | |
26 | ;K ^CHMZH OLD("ACCEP T-TRC1313- UNDER") | |
27 | S ^CHMZHO LD("BENE-N A-OHI-RAN- LABELS")=" " | |
28 | ; | |
29 | A2 ; | |
30 | ;FIND TOD AYS DATE F OR AGE TES T | |
31 | D NOW^%DT C S CHDATE =X | |
32 | S TODAY=C HDATE | |
33 | ; COMPUTE 120 DAYS | |
34 | S X1=CHDA TE S X2=-1 20 D C^%DT C S STRDAT =X | |
35 | D GETDFN, END | |
36 | Q | |
37 | ;******** ********** ********** ********** ********** ***** | |
38 | ; | |
39 | GETDFN ; | |
40 | S TOTCNT= TOTCNT+1 | |
41 | ;TEST ONL Y HERE NEX T LINE | |
42 | ;I TOTCNT =2000 Q | |
43 | S DFN=$O( ^AHCHVA(DF N)) Q:'DFN | |
44 | G:'$D(^AH CHVA(DFN,1 00)) GETDF N | |
45 | S (TFMDT, BFN)=0 | |
46 | GETBFN ; | |
47 | S BFN=$O( ^AHCHVA(DF N,100,BFN) ) G:'BFN G ETDFN | |
48 | G:'$D(^AH CHVA(DFN,1 00,BFN,0)) GETBFN | |
49 | G:'$D(^AH CHVA(DFN,1 00,BFN,109 )) GETBFN | |
50 | ;W !,DFN, " ",BFN | |
51 | S J1=9999 9999 | |
52 | G2 S J1=$O (^AHCHVA(D FN,100,BFN ,109,J1),- 1) G:'J1 G ETBFN | |
53 | S J2=9999 9999 | |
54 | S J2=$O(^ AHCHVA(DFN ,100,BFN,1 09,J1,J2), -1) G:'J2 G2 | |
55 | ; | |
56 | ;CHECK FO R DATES OF ELIGIBILI TY | |
57 | G:J1>CHDA TE OUT1 | |
58 | G:J2<CHDA TE OUT1 | |
59 | ; | |
60 | G:'$D(^AH CHVA(DFN,1 00,BFN,0)) GETBFN | |
61 | S BDATA=^ AHCHVA(DFN ,100,BFN,0 ) | |
62 | S BDOD=$P (BDATA,"^" ,6) | |
63 | I $L(BDOD )=7 G GETB FN | |
64 | G:'$D(^AH CHVA(DFN,1 00,BFN,1)) GETBFN | |
65 | ; | |
66 | ;NEXT LIN E CHECK BE GIN/END EL IGIBLE DAT ES | |
67 | S NAMLAB= ^AHCHVA(DF N,100,BFN, 0) | |
68 | ; | |
69 | ;CHECK FO R DATE OF DEATH | |
70 | S DOD=$P( NAMLAB,U,6 ) | |
71 | I DOD'="" G OUT6 | |
72 | S ADDRLAB =^AHCHVA(D FN,100,BFN ,1) | |
73 | ; | |
74 | ;CHECK FO R BAD ADDR ESS CODE | |
75 | S BADADDR =$P(ADDRLA B,U,10) | |
76 | I BADADDR =0 G OUT5 | |
77 | I BADADDR =2 G OUT5 | |
78 | ; | |
79 | ;FORMAT S OC SEC NUM BER | |
80 | S SSN=$P( NAMLAB,U,9 ) | |
81 | S SSN3=$E (SSN,1,3) | |
82 | S SSN2=$E (SSN,4,5) | |
83 | S SSN4=$E (SSN,6,9) | |
84 | S SSN=SSN 3_"-"_SSN2 _"-"_SSN4 | |
85 | ; | |
86 | ;SAVE TEL EPHONE NUM BER | |
87 | S PHONE=$ P(ADDRLAB, U,6) | |
88 | I $E(PHON E,4,4)="-" S TELENO= PHONE G OK NOW | |
89 | I $E(PHON E,1,1)="(" S TELENO= PHONE G OK NOW | |
90 | I $E(PHON E,4,4)=" " S TELENO= PHONE G OK NOW | |
91 | I PHONE'= "" I $L(PH ONE)<9 I $ E(PHONE,4, 4)'=("")!( "-") S PPH ONE=$E(PHO NE,1,3)_"- "_$E(PHONE ,4,6)_"-"_ $E(PHONE,7 ,10) | |
92 | I PHONE'= "" I $E(PH ONE,1,1)'= "(" S PPHO NE=$E(PHON E,1,3)_"-" _$E(PHONE, 4,6)_"-"_$ E(PHONE,7, 10) | |
93 | I PHONE=" " S PPHONE ="" | |
94 | S TELENO= PPHONE | |
95 | ; | |
96 | OKNOW ; | |
97 | ;CHECK FO R SEX | |
98 | S SEX=$P( NAMLAB,U,2 ) | |
99 | ; | |
100 | ;CHECK FO R BAD STAT E ADDRESS | |
101 | S STATE=$ P(ADDRLAB, U,4) | |
102 | I STATE=" " G GETBFN | |
103 | ; | |
104 | ;CHECK FO R DATE OF BIRTH AGE 19 AND OVE R | |
105 | S DOB=$P( NAMLAB,U,3 ) | |
106 | G:'DOB GE TBFN | |
107 | S BRTHDAY =DOB | |
108 | S TAGE=$$ AGE^CHTFLI B(BRTHDAY, TODAY) | |
109 | I TAGE<20 G GETBFN | |
110 | ;W !," AGE TEST H ERE ",DFN, " ",BFN," ",TAGE | |
111 | ;NEED TO FIND CLAIM S FROM STA RT DATE TO TODAY FOR THIS BENE | |
112 | ; | |
113 | L3 S CHDFN I=$O(^CHMD FN("B",DFN ,0)) G GET DFN:'CHDFN I | |
114 | S CHDFNJ= $O(^CHMDFN (CHDFNI,10 0,"B",BFN, 0)) G GETD FN:'CHDFNJ | |
115 | S CHDFNK= 99999999 | |
116 | LOOP ; | |
117 | S CHDFNK= $O(^CHMDFN (CHDFNI,10 0,CHDFNJ,1 00,CHDFNK) ,-1) G:'CH DFNK CKEND | |
118 | G:$D(^CHM DFN(CHDFNI ,100,CHDFN J,100,CHDF NK,0)) MAI N | |
119 | G L3 | |
120 | MAIN ; | |
121 | S DFNDATA =^CHMDFN(C HDFNI,100, CHDFNJ,100 ,CHDFNK,0) | |
122 | G LOOP:'$ D(^CHMPAY( DFNDATA,0) ) | |
123 | ;CONVERT PDI TO CLA IM FILED D ATE | |
124 | S PDIJ="" | |
125 | S PDIJ=$O (^CHMPAY(D FNDATA,"PD I","B",PDI J),-1) | |
126 | G:PDIJ="" LOOP | |
127 | S TFMDT=$ $PDIJULFM^ CHMFPDI2(P DIJ) | |
128 | ; | |
129 | I TFMDT<S TRDAT G OU T3 ;CLAIMS LAST | |
130 | ; | |
131 | BENWITH ;B ENE WITH C LAIMS LAST 120 DAYS, OVER 19 A GE, BYPASS BAD ADDRE SS AND DOD | |
132 | ; | |
133 | S OHISW=" N" | |
134 | S OHIBEG= "" | |
135 | S CHDFNPT =0 | |
136 | S CHDFNPT =$O(^CHMDF N("B",DFN, CHDFNPT)) G:'CHDFNPT NOTOHI | |
137 | G:'$D(^CH MDFN(CHDFN PT,0)) NOT OHI | |
138 | G:'$D(^CH MDFN(CHDFN PT,100,"B" ,BFN)) NOT OHI | |
139 | S CHBFNPT =0 | |
140 | S CHBFNPT =$O(^CHMDF N(CHDFNPT, 100,"B",BF N,CHBFNPT) ) G:'CHBFN PT NOTOHI | |
141 | G:'$D(^CH MDFN(CHDFN PT,100,CHB FNPT,2)) N OTOHI | |
142 | S CHKVAL= 99999 | |
143 | OHICK1 S C HKVAL=$O(^ CHMDFN(CHD FNPT,100,C HBFNPT,2,C HKVAL),-1) G:'CHKVAL NOTOHI | |
144 | G:'$D(^CH MDFN(CHDFN PT,100,CHB FNPT,2,CHK VAL,0)) OH ICK1 | |
145 | S OHIBEG= $P(^CHMDFN (CHDFNPT,1 00,CHBFNPT ,2,CHKVAL, 0),"^",1) | |
146 | S OHIEND= $P(^CHMDFN (CHDFNPT,1 00,CHBFNPT ,2,CHKVAL, 0),"^",2) | |
147 | S OHICODE =$P(^CHMDF N(CHDFNPT, 100,CHBFNP T,2,CHKVAL ,0),"^",3) | |
148 | I OHICODE =1 G NOTOH I | |
149 | I OHICODE =8 G NOTOH I | |
150 | ; | |
151 | G:'$D(OHI BEG) NOTOH I | |
152 | I OHIBEG= "" I OHIEN D="" G NOT OHI | |
153 | G:OHIBEG> CHDATE NOT OHI | |
154 | I OHIEND= "" S OHISW ="Y" G NEX TCK | |
155 | G:OHIEND< CHDATE NOT OHI | |
156 | NOTOHI S O HISW="N" | |
157 | NEXTCK ; | |
158 | D ACCEPT | |
159 | S TOTCLM= 0 | |
160 | G GETBFN | |
161 | Q | |
162 | ACCEPT ; | |
163 | ;USE THIS NAME AND ADDRESS TO BE PUT IN FILE TO B E USED FOR RANDOM | |
164 | S SEQNO=S EQNO+1 | |
165 | ;S ^CHMZH OLD("ACCEP T-TRC",SEQ NO)=DFN_U_ BFN_U_SSN_ U_SEX_U_OH ISW_U_TELE NO_T_TAGE_ T_ | |
166 | ;S ^CHMZH OLD("ACCEP T-TRC-BU", SEQNO)=DFN _U_BFN_U_S SN_U_SEX_U _OHISW_U_T ELENO_T_TA GE_T_ | |
167 | S STATE=$ P(ADDRLAB, U,4) | |
168 | I STATE=" " Q | |
169 | G GETBFN: '$D(^DIC(5 ,STATE,0)) | |
170 | S:STATE S TATE=$P(^D IC(5,STATE ,0),U,2) | |
171 | S (ZIP,ZI PZ)="" | |
172 | S ZIPZ=$P (ADDRLAB,U ,5) | |
173 | I $L(ZIPZ )>5 S ZIP1 =$E(ZIPZ,1 ,5) S ZIP2 =$E(ZIPZ,6 ,9) S ZIPZ =ZIP1_"-"_ ZIP2 | |
174 | S T=$C(9) | |
175 | S ADDR1=$ P(NAMLAB,U ,1) | |
176 | S ADDR2=$ P(ADDRLAB, U,1) | |
177 | S ADDR3=$ P(ADDRLAB, U,2) | |
178 | S ADDR4=$ P(ADDRLAB, U,12) | |
179 | S ADDR5=$ P(ADDRLAB, U,3) | |
180 | S ADDR6=S TATE | |
181 | S ADDR7=Z IPZ | |
182 | S TMP=ADD R1_T_ADDR2 _T_ADDR3_T _ADDR4_T_A DDR5_T_ADD R6_T_ADDR7 _T | |
183 | ;NEXT TWO FILE ARE FOR QA TO VERIFY DAT A | |
184 | I OHISW=" Y" S YESCN T=YESCNT+1 S ^CHMZHO LD("CR645Y ESOHI",DFN ,BFN,YESCN T)=OHICODE _U_OHIBEG_ U_OHIEND_U _CHDFNPT_U _CHBFNPT_U _CHKVAL_U | |
185 | I OHISW=" N" S NOCNT =NOCNT+1 S ^CHMZHOLD ("CR645NOO HI",DFN,BF N,NOCNT)=O HICODE_U_O HIBEG_U_OH IEND_U_CHD FNPT_U_CHB FNPT_U_CHK VAL_U | |
186 | ;NEXT TWO FILES ARE FOR PULLI NG 300 RAN DOM BENE'S IN ROUTIN ES ZALC645 Y AND ZALC 645N | |
187 | I OHISW=" Y" S ^CHMZ HOLD("ACCE PT-CR1276- YES",YESCN T)=DFN_U_B FN_U_ADDR1 _U_TELENO_ U_ADDR2_U_ ADDR3_U_AD DR4_U_ADDR 5_U_ADDR6_ U_ADDR7_U_ SEX_U_SSN_ U_OHICODE_ U_TAGE_U | |
188 | I OHISW=" N" S ^CHMZ HOLD("ACCE PT-CR1276- NO",NOCNT) =DFN_U_BFN _U_ADDR1_U _TELENO_U_ ADDR2_U_AD DR3_U_ADDR 4_U_ADDR5_ U_ADDR6_U_ ADDR7_U_SE X_U_SSN_U_ OHISW_U_TA GE_U | |
189 | ; | |
190 | ;W !,DFN, " ",BFN," ",OHISW | |
191 | S OHISW=" N" | |
192 | ; | |
193 | Q | |
194 | CKEND ; | |
195 | S ^CHMZHO LD("NO-CLA IMS-OVER18 -TRC",DFN, BFN)="" | |
196 | I TOTCLM= 0 S SW=0 G GETBFN | |
197 | S SW1=0 G OUT4 | |
198 | Q | |
199 | OUT1 ;NOT ELIG | |
200 | S ^CHMZHO LD("NOT-EL IG-TRC",DF N,BFN,J1,J 2)="" | |
201 | G GETBFN | |
202 | ; | |
203 | OUT2 ;NOT ELIG 6 MO BEFORE 5TH OLDEST CL AIM OVER 1 8 MON | |
204 | S ^CHMZHO LD("NOT-EL IG-6MO-CLA IM-TRC",DF N,BFN)="" | |
205 | G GETBFN | |
206 | OUT3 ;CLAI MS FY 03 | |
207 | S ^CHMZHO LD("FY03-C LAIMS-TRC" ,DFN,BFN,D FNDATA,PDI J,TFMDT)=" " | |
208 | G GETBFN | |
209 | OUT4 ; COU NT CLAIMS | |
210 | S ^CHMZHO LD("FY03-T OTCLAIMS-9 09",DFN,BF N,TOTCLM,T FMDT)="" | |
211 | S TOTCLM= 0 | |
212 | G GETBFN | |
213 | OUT5 ; | |
214 | S ^CHMZHO LD("TRC122 5-BADADDR" ,DFN,BFN)= BADADDR | |
215 | G GETBFN | |
216 | OUT6 ; | |
217 | S ^CHMZHO LD("TRC122 5-DOD",DFN ,BFN)=DOD | |
218 | G GETBFN | |
219 | BYPASS ; | |
220 | G GETBFN | |
221 | Q | |
222 | WRITEIT ; | |
223 | ;W !,J1," ",J2,"CL AIM DATE=" ,TFMDT," C LAIM COUNT =",COUNT," DFN=",DFN ," BFN= ", BFN | |
224 | G GETBFN | |
225 | END ; | |
226 | ; | |
227 | S ^CHMZHO LD("ACCEPT -TOTAL-REC ORDS-CR127 6YES")=YES CNT | |
228 | S ^CHMZHO LD("ACCEPT -TOTAL-REC ORDS-CR127 6NO")=NOCN T | |
229 | ;D ^ZAL12 76Y | |
230 | ;D ^ZAL12 76N | |
231 | D ^CHMKOH IY | |
232 | D ^CHMKOH IN | |
233 | S Y=CHDAT E D DD^%DT S PTODAYD T=Y | |
234 | ;K ADDRLA B,BFN,CHDA TE,CHDFNI, CHDFNJ,CHD FNK,DFN,DF NDATA,FIO, J1,J2 | |
235 | ;K NAMELA B,PCNT,PDI J,PG,RUNTI ME,STATE,S TRDAT,T,TF MDT,TMPS,U | |
236 | S CNTZ=1, ^CHMZHOLD( $J,"BENERA N-TEXTMESS 1",CNTZ)=" ",CNTZ=CNT Z+1 | |
237 | S ^CHMZHO LD($J,"BEN ERAN-TEXTM ESS1",CNTZ )="******* ********** ********** ********** ********** ***",CNTZ= CNTZ+1 | |
238 | S ^CHMZHO LD($J,"BEN ERAN-TEXTM ESS1",CNTZ )=" BENEF ICIARY NAM E AND ADDR ESS LIST ",C NTZ=CNTZ+1 | |
239 | S ^CHMZHO LD($J,"BEN ERAN-TEXTM ESS1",CNTZ )=" OHI R ANDOM COUN T HAS COM PLETED " ,CNTZ=CNTZ +1 | |
240 | S ^CHMZHO LD($J,"BEN ERAN-TEXTM ESS1",CNTZ )=" ",CNTZ =CNTZ+1 | |
241 | S ^CHMZHO LD($J,"BEN ERAN-TEXTM ESS1",CNTZ )="TODAYS DATE="_PTO DAYDT,CNTZ =CNTZ+1 | |
242 | S ^CHMZHO LD($J,"BEN ERAN-TEXTM ESS1",CNTZ )="YES OHI COUNT="_Y CNT,CNTZ=C NTZ+1 | |
243 | S ^CHMZHO LD($J,"BEN ERAN-TEXTM ESS1",CNTZ )="NO OHI COUNT="_NC NT,CNTZ=CN TZ+1 | |
244 | S ^CHMZHO LD($J,"BEN ERAN-TEXTM ESS1",CNTZ )=" (OUTPU T FILES ON FS3BIG) ", CNTZ=CNTZ+ 1 | |
245 | S ^CHMZHO LD($J,"BEN ERAN-TEXTM ESS1",CNTZ )="YES OHI FILE NAME /ADDRESS O N FS3BIG=C ROHIBENEYE SNA.XLS",C NTZ=CNTZ+1 | |
246 | S ^CHMZHO LD($J,"BEN ERAN-TEXTM ESS1",CNTZ )="YES OHI FILE INFO ON FS3BIG =CROHIBENE YESINFO.TX T",CNTZ=CN TZ+1 | |
247 | S ^CHMZHO LD($J,"BEN ERAN-TEXTM ESS1",CNTZ )="NO OHI FILE NAME/ ADDRESS ON FS3BIG=CR OHIBENENON A.TXT",CNT Z=CNTZ+1 | |
248 | S ^CHMZHO LD($J,"BEN ERAN-TEXTM ESS1",CNTZ )="NO OHI FILE INFO ON FS3BIG= CROHIBENEN OINFO.TXT" ,CNTZ=CNTZ +1 | |
249 | S ^CHMZHO LD($J,"BEN ERAN-TEXTM ESS1",CNTZ )="YOU MUS T IMMEDIAT ELY CHANGE FILE NAME ON FS3BIG ",CNTZ= CNTZ+1 | |
250 | S ^CHMZHO LD($J,"BEN ERAN-TEXTM ESS1",CNTZ )="******* ********** ********** ********** ********** ***",CNTZ= CNTZ+1 | |
251 | S ^CHMZHO LD($J,"BEN ERAN-TEXTM ESS1",CNTZ )="" | |
252 | S XMTEXT= "^CHMZHOLD ($J,""BENE RAN-TEXTME SS1""," | |
253 | S XMDUZ=. 5 | |
254 | ;S NAMDUZ =$P(^VA(20 0,DUZ,0)," ^",1) | |
255 | ;S LAST=$ P(NAMDUZ," ,",1) | |
256 | ;S FIRST= $P(NAMDUZ, ",",2) | |
257 | ;S NAME=L AST_", "_F IRST | |
258 | ;S NAMEOU T= PII " | |
259 | ;S XMY(NA MEOUT)="" | |
260 | S XMY(DUZ )="" | |
261 | S XMSUB=" BENE NAME AND ADDRES S OHI RAND OM SELECTE D" D ^XMD ; | |
262 | K ^CHMZHO LD("BENE-N A-OHI-RAN- LABELS") | |
263 | K ^CHMZHO LD("ACCEPT -TOTAL-REC ORDS-CR127 6YES") | |
264 | K ^CHMZHO LD("ACCEPT -TOTAL-REC ORDS-CR127 6NO") | |
265 | Q | |
266 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.