source: FOIAVistA/trunk/r/DRG_GROUPER-ICD--ICPT/ICD1824N.m@ 794

Last change on this file since 794 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 6.0 KB
Line 
1ICD1824N ; ALB/JAT - FY 2007 UPDATE; 7/27/05 14:50;
2 ;;18.0;DRG Grouper;**24**;Oct 13,2000;Build 5
3 Q
4 ;
5DIAG ;
6 D BMES^XPDUTL(">>>DRG Reclassification changes")
7 D MES^XPDUTL(">>>Modifying diagnosis codes - file 80")
8 D MES^XPDUTL(">>>for new DRGs")
9 N LINE,X,ICDDIAG,ENTRY,FDA
10 F LINE=1:1 S X=$T(REVD+LINE) S ICDDIAG=$P(X,";;",2) Q:ICDDIAG="EXIT" D
11 .S ENTRY=+$O(^ICD9("BA",$P(ICDDIAG,U)_" ",0))
12 .I ENTRY D
13 ..;check for possible inactive dupe
14 ..I $P($G(^ICD9(ENTRY,0)),U,9)=1 S ENTRY=+$O(^ICD9("BA",$P(ICDDIAG,U)_" ",ENTRY)) I 'ENTRY Q
15 ..;check if already created in case patch being re-installed
16 ..Q:$D(^ICD9(ENTRY,3,"B",3061001))
17 ..; add 80.071 and 80.711 records
18 ..S FDA(1820,80,"?1,",.01)="`"_ENTRY
19 ..S FDA(1820,80.071,"+2,?1,",.01)=3061001
20 ..D UPDATE^DIE("","FDA(1820)") K FDA(1820)
21 ..S FDA(1820,80,"?1,",.01)="`"_ENTRY
22 ..S FDA(1820,80.071,"?2,?1,",.01)=3061001
23 ..S FDA(1820,80.711,"+3,?2,?1,",.01)=$P(ICDDIAG,U,2)
24 ..I $P(ICDDIAG,U,3) S FDA(1820,80.711,"+4,?2,?1,",.01)=$P(ICDDIAG,U,3)
25 ..I $P(ICDDIAG,U,4) S FDA(1820,80.711,"+5,?2,?1,",.01)=$P(ICDDIAG,U,4)
26 ..D UPDATE^DIE("","FDA(1820)") K FDA(1820)
27 Q
28REVD ;
29 ;;100.81^561^
30 ;;100.89^561^
31 ;;112.83^561^489
32 ;;114.2^561^489
33 ;;115.01^561^489
34 ;;115.11^561^489
35 ;;115.91^561^489
36 ;;320.0^560^
37 ;;320.1^560^
38 ;;320.2^560^
39 ;;320.3^560^
40 ;;320.7^560^
41 ;;320.9^560^
42 ;;321.1^561^
43 ;;321.2^561^
44 ;;321.3^561^
45 ;;321.4^561^
46 ;;321.8^561^
47 ;;322.1^561^
48 ;;322.2^561^
49 ;;322.9^561^
50 ;;323.1^561^
51 ;;323.2^561^
52 ;;323.9^561^489
53 ;;324.1^560^
54 ;;324.9^560^
55 ;;003.21^560^489
56 ;;006.5^561^
57 ;;013.00^560^489
58 ;;013.01^560^489
59 ;;013.02^560^489
60 ;;013.03^560^489
61 ;;013.04^560^489
62 ;;013.05^560^489
63 ;;013.06^560^489
64 ;;013.10^560^489
65 ;;013.11^560^489
66 ;;013.12^560^489
67 ;;013.13^560^489
68 ;;013.14^560^489
69 ;;013.15^560^489
70 ;;013.16^560^489
71 ;;013.20^560^489
72 ;;013.21^560^489
73 ;;013.22^560^489
74 ;;013.23^560^489
75 ;;013.24^560^489
76 ;;013.25^560^489
77 ;;013.26^560^489
78 ;;013.30^560^489
79 ;;013.31^560^489
80 ;;013.32^560^489
81 ;;013.33^560^489
82 ;;013.34^560^489
83 ;;013.35^560^489
84 ;;013.36^560^489
85 ;;013.40^560^489
86 ;;013.41^560^489
87 ;;013.42^560^489
88 ;;013.43^560^489
89 ;;013.44^560^489
90 ;;013.45^560^489
91 ;;013.46^560^489
92 ;;013.50^560^489
93 ;;013.51^560^489
94 ;;013.52^560^489
95 ;;013.53^560^489
96 ;;013.54^560^489
97 ;;013.55^560^489
98 ;;013.56^560^489
99 ;;013.60^560^489
100 ;;013.61^560^489
101 ;;013.62^560^489
102 ;;013.63^560^489
103 ;;013.64^560^489
104 ;;013.65^560^489
105 ;;013.66^560^489
106 ;;013.80^560^489
107 ;;013.81^560^489
108 ;;013.82^560^489
109 ;;013.83^560^489
110 ;;013.84^560^489
111 ;;013.85^560^489
112 ;;013.86^560^489
113 ;;013.90^560^489
114 ;;013.91^560^489
115 ;;013.92^560^489
116 ;;013.93^560^489
117 ;;013.94^560^
118 ;;013.95^560^
119 ;;013.96^560^
120 ;;036.0^560^
121 ;;036.1^560^
122 ;;045.00^561^
123 ;;045.01^561^
124 ;;045.02^561^
125 ;;045.03^561^
126 ;;045.10^561^
127 ;;045.11^561^
128 ;;045.12^561^
129 ;;045.13^561^
130 ;;045.90^561^
131 ;;045.91^561^
132 ;;045.92^561^
133 ;;045.93^561^
134 ;;049.8^561^489
135 ;;049.9^561^489
136 ;;052.0^561^
137 ;;054.3^561^489
138 ;;055.0^561^
139 ;;056.01^561^
140 ;;056.09^561^
141 ;;062.0^561^
142 ;;062.1^561^
143 ;;062.2^561^
144 ;;062.3^561^
145 ;;062.4^561^
146 ;;062.5^561^
147 ;;062.8^561^
148 ;;062.9^561^
149 ;;063.0^561^
150 ;;063.1^561^
151 ;;063.2^561^
152 ;;063.8^561^
153 ;;063.9^561^
154 ;;064.^561^
155 ;;066.2^561^
156 ;;071.^561^
157 ;;072.2^561^
158 ;;090.40^561^
159 ;;090.41^561^
160 ;;090.42^561^
161 ;;090.49^561^
162 ;;091.81^561^
163 ;;094.2^561^
164 ;;094.3^561^
165 ;;094.81^561^
166 ;;098.82^560^
167 ;;130.0^561^489
168 ;;321.0^561^
169 ;;322.0^561^
170 ;;324.0^560^
171 ;;357.0^560^
172 ;;320.82^560^
173 ;;320.81^560^
174 ;;320.89^560^
175 ;;307.81^26^564
176 ;;310.2^26^564
177 ;;345.2^26^562^563
178 ;;345.3^26^562^563
179 ;;348.2^26^564
180 ;;437.4^26^564
181 ;;349.0^26^564
182 ;;784.0^26^564
183 ;;345.00^26^562^563
184 ;;345.01^26^562^563
185 ;;345.10^26^562^563
186 ;;345.11^26^562^563
187 ;;345.40^26^562^563
188 ;;345.41^26^562^563
189 ;;345.50^26^562^563
190 ;;345.51^26^562^563
191 ;;345.60^26^562^563
192 ;;345.61^26^562^563
193 ;;345.70^26^562^563
194 ;;345.71^26^562^563
195 ;;345.80^26^562^563
196 ;;345.81^26^562^563
197 ;;345.90^26^562^563
198 ;;345.91^26^562^563
199 ;;346.01^26^564
200 ;;346.11^26^564
201 ;;346.21^26^564
202 ;;346.81^26^564
203 ;;346.91^26^564
204 ;;346.00^26^564
205 ;;346.10^26^564
206 ;;346.20^26^564
207 ;;346.80^26^564
208 ;;346.90^26^564
209 ;;780.31^26^562^563
210 ;;780.39^26^562^563
211 ;;017.80^571^489
212 ;;017.81^571^489
213 ;;017.82^571^489
214 ;;017.83^571^489
215 ;;017.84^571^489
216 ;;017.85^571^489
217 ;;017.86^571^489
218 ;;112.84^571^489
219 ;;456.0^571
220 ;;456.1^571
221 ;;456.20^571
222 ;;530.4^571
223 ;;530.7^571
224 ;;530.82^571
225 ;;530.84^571
226 ;;750.3^571
227 ;;750.4^571
228 ;;862.22^571
229 ;;947.2^571
230 ;;001.0^572
231 ;;001.1^572
232 ;;001.9^572
233 ;;003.0^572
234 ;;004.0^572
235 ;;004.1^572
236 ;;004.2^572
237 ;;004.3^572
238 ;;004.8^572
239 ;;004.9^572
240 ;;005.0^572
241 ;;005.2^572
242 ;;005.3^572
243 ;;005.4^572
244 ;;005.81^572
245 ;;005.89^572
246 ;;006.0^572
247 ;;006.1^572
248 ;;006.2^572
249 ;;007.0^572
250 ;;007.1^572
251 ;;007.2^572^489
252 ;;007.3^572
253 ;;007.4^572
254 ;;007.5^572
255 ;;007.8^572
256 ;;007.9^572
257 ;;008.00^572
258 ;;008.01^572
259 ;;008.02^572
260 ;;008.03^572
261 ;;008.04^572
262 ;;008.09^572
263 ;;008.1^572
264 ;;008.2^572
265 ;;008.3^572
266 ;;008.41^572
267 ;;008.42^572
268 ;;008.43^572
269 ;;008.44^572
270 ;;008.45^572
271 ;;008.46^572
272 ;;008.47^572
273 ;;008.49^572
274 ;;008.5^572
275 ;;4.00^572
276 ;;014.01^572
277 ;;014.02^572
278 ;;014.03^572
279 ;;014.04^572
280 ;;014.05^572
281 ;;014.06^572
282 ;;014.80^572
283 ;;014.81^572
284 ;;014.82^572
285 ;;014.83^572
286 ;;014.84^572
287 ;;014.85^572
288 ;;014.86^572
289 ;;021.1^572
290 ;;022.2^572
291 ;;032.83^572
292 ;;039.2^572^489
293 ;;095.2^572
294 ;;098.86^572
295 ;;123.1^572
296 ;;123.5^572
297 ;;123.6^572
298 ;;123.8^572
299 ;;123.9^572
300 ;;126.0^572
301 ;;126.1^572
302 ;;126.2^572
303 ;;126.3^572
304 ;;126.8^572
305 ;;126.9^572
306 ;;540.0^572
307 ;;540.1^572
308 ;;567.0^572
309 ;;567.1^572
310 ;;567.21^572
311 ;;567.22^572
312 ;;567.23^572
313 ;;567.29^572
314 ;;567.31^572
315 ;;567.38^572
316 ;;7.39^572
317 ;;567.89^572
318 ;;567.9^572
319 ;;569.5^572
320 ;;279.11^574
321 ;;279.12^574
322 ;;279.13^574
323 ;;279.19^574
324 ;;279.2^574
325 ;;283.0^574
326 ;;283.10^574
327 ;;283.19^574
328 ;;283.2^574
329 ;;283.9^574
330 ;;284.8^574
331 ;;284.9^574
332 ;;288.1^574
333 ;;288.2^574
334 ;;996.85^574
335 ;;EXIT
Note: See TracBrowser for help on using the repository browser.