source: WorldVistAEHR/trunk/r/HINQ-DVB--DVBA--DVBE--DVBC/DVB458P5.m@ 1087

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

initial load of WorldVistAEHR
File size: 9.0 KB
Line 
1DVB458P5 ;ALB/RBS - POST-INSTALL FOR PATCH DVB*4*58 (CONT.) ; 1/3/07 2:20pm
2 ;;4.0;HINQ;**58**;03/25/92;Build 29
3 ;
4 Q ;no direct entry
5 ;
6 ;
7 ;NOTE:
8 ;The following TEXT lines are a combination of a single 4 digit VBA
9 ;rated disabilities code (DX CODE) on one line followed by on the
10 ;next sequential line(s), all of the related ICD9 DIAGNOSIS codes
11 ;that are to be mapped together. Each IDC9 code also has a (1/0)
12 ;match value that will be filed with it.
13 ;
14 ;Example:
15 ; ;;5000 = a single (VBA) Rated Disabilities (VA) DX CODE
16 ; ;;003.24~1^376.03~1^730.00~1^... = string of ICD9 DIAGNOSIS CODES
17 ; (delimited by (^) up-arrow)
18 ; Each (^) piece contains 2 pieces of data delimited by (~):
19 ; $P(1) = a single ICD9 diagnosis code
20 ; $P(2) = (1/0) match code value
21 ;
22 ; Note: If the TEXT line ends with a (;) semi-colon, this means the
23 ; next sequential line is associated with the same DX CODE.
24 ; (No sequential line(s) are carried over to the next
25 ; post-install Routine.)
26 ;
27TEXT ;;7710
28 ;;012.10~1^012.11~1^012.12~1^012.13~1^012.14~1^012.15~1^012.16~1^017.20~1^017.21~1^017.22~1^017.23~1^017.24~1^017.25~1^017.26~1
29 ;;7714
30 ;;282.60~1^282.61~1^282.62~1^282.63~1^282.64~1^282.68~1^282.69~1
31 ;;7715
32 ;;202.80~1^202.81~1^202.82~1^202.83~1^202.84~1^202.85~1^202.86~1^202.87~1^202.88~1
33 ;;7716
34 ;;284.01~1^284.8~1^284.9~1^284.09~1^284.1~1^284.2~1
35 ;;7805
36 ;;701.4~0^709.2~0
37 ;;7806
38 ;;690.10~0^690.18~0^690.8~0^691.8~0^692.0~0^692.1~0^692.2~0^692.3~0^692.4~0^692.5~0^692.6~0^692.70~0^692.72~0^692.74~1^692.79~0^692.81~0^692.82~0^692.83~0^692.89~1^692.9~1^693.0~0^693.8~0^693.9~0
39 ;;7807
40 ;;085.4~1^085.5~1
41 ;;7808
42 ;;085.1~1^085.2~1^085.3~1
43 ;;7809
44 ;;373.34~1^695.4~1
45 ;;7811
46 ;;017.00~1^017.01~1^017.02~1^017.03~1^017.04~1^017.05~1^017.06~1
47 ;;7813
48 ;;110.0~0^110.1~0^110.2~0^110.3~0^110.4~0^110.5~0^110.6~0^110.8~0^110.9~0
49 ;;7815
50 ;;277.1~0^694.0~1^694.2~1^694.4~1^694.5~1^694.60~1^694.8~1^694.9~1
51 ;;7816
52 ;;696.1~1
53 ;;7818
54 ;;173.0~0^173.1~0^173.2~0^173.3~0^173.4~0^173.5~0^173.6~0^173.7~0^173.8~0^173.9~0^198.2~0^232.0~0^232.1~0^232.2~0^232.3~0^232.4~0^232.5~0^232.6~0^232.7~0^232.8~0^232.9~0
55 ;;7819
56 ;;214.0~0^214.1~0^216.0~0^216.1~0^216.2~0^216.3~0^216.4~0^216.5~0^216.6~0^216.7~0^216.8~0^216.9~0^228.01~0
57 ;;7820
58 ;;022.0~0^078.10~0^078.11~0^078.19~0^111.0~0^111.1~0^111.2~0^111.3~0^111.8~0^111.9~0^132.0~0^132.1~0^132.2~0^132.3~0^132.9~0^133.0~0^133.8~0^133.9~0^134.0~0^134.1~0^134.2~0^134.8~0^681.00~0^681.01~0^;
59 ;;681.02~0^681.10~0^681.11~0^681.9~0^682.0~0^682.1~0^682.2~0^682.3~0^682.4~0^682.5~0^682.6~0^682.7~0^682.8~0^682.9~0^686.00~0^686.01~0^686.09~0^686.1~0^686.8~0
60 ;;7821
61 ;;710.3~1
62 ;;7822
63 ;;696.2~0^696.4~0^697.0~0^697.1~0^697.8~0^697.9~0^698.2~0^698.3~0
64 ;;7823
65 ;;709.01~1
66 ;;7824
67 ;;701.1~0^098.81~0
68 ;;7825
69 ;;698.2~1^708.0~1^708.1~1^708.2~1^708.3~1^708.4~1^708.5~1^708.8~1^708.9~1
70 ;;7826
71 ;;287.0~0^446.20~0^446.29~0
72 ;;7827
73 ;;695.1~1
74 ;;7828
75 ;;706.1~1
76 ;;7830
77 ;;704.09~1
78 ;;7831
79 ;;704.01~1
80 ;;7832
81 ;;705.21~1^705.22~1^780.8~1
82 ;;7833
83 ;;172.0~0^172.1~0^172.3~0^172.4~0^172.5~0^172.6~0^172.7~0^172.8~0^172.9~0
84 ;;7900
85 ;;242.01~1^242.41~1^242.81~1^242.91~1
86 ;;7901
87 ;;242.00~1^242.01~1^242.10~1^242.11~1^242.20~1^242.21~1^242.30~1^242.31~1^242.40~1^242.41~1^242.80~1^242.81~1^242.90~1^242.91~1
88 ;;7902
89 ;;240.0~1^240.9~1^241.0~1^241.1~1^241.9~1
90 ;;7903
91 ;;244.0~1^244.1~1^244.2~1^244.3~1^244.9~1
92 ;;7904
93 ;;252.01~1^252.02~1^588.81~1
94 ;;7905
95 ;;252.1~1
96 ;;7907
97 ;;255.0~1
98 ;;7908
99 ;;253.0~1
100 ;;7909
101 ;;253.5~1^588.1~1
102 ;;7911
103 ;;255.4~1
104 ;;7912
105 ;;258.0~1^258.1~1^258.8~1^258.9~1
106 ;;7913
107 ;;250.00~1^250.01~1^250.02~1^250.03~1^250.10~1^250.11~1^250.12~1^250.13~1^250.20~1^250.21~1^250.22~1^250.23~1^250.30~1^250.31~1^250.32~1^250.33~1^250.40~0^250.41~0^250.42~0^250.43~0^250.50~0^250.51~0^;
108 ;;250.52~0^250.53~0^250.60~0^250.61~0^250.62~0^250.63~0^250.70~0^250.71~0^250.72~0^250.73~0^250.80~0^250.81~0^250.82~1^250.83~1^250.90~0^250.91~0^250.92~1^250.93~1^648.00~0^648.01~0^648.02~0^648.03~0^648.04~0
109 ;;7914
110 ;;157.4~0^193.~0^194.0~0^194.1~0^194.3~0^194.4~0^194.5~0^194.6~0^194.8~0^194.9~0^198.7~0
111 ;;7915
112 ;;211.7~0^226.~0^227.0~0^227.1~0^227.3~0^227.4~0^227.5~0^227.6~0^227.8~0^227.9~0
113 ;;7917
114 ;;255.10~1^255.12~1^255.14~1
115 ;;7918
116 ;;255.6~1
117 ;;7919
118 ;;193.~1
119 ;;8000
120 ;;013.60~0^013.61~0^013.62~0^013.63~0^013.64~0^013.65~0^013.66~0^036.1~0^054.3~0^062.1~0^062.2~0^062.3~0^062.4~0^062.5~0^062.8~0^062.9~0^063.0~0^063.2~0^063.8~0^063.9~0^064.~0^066.41~0^323.61~0^052.0~0^;
121 ;;055.0~0^056.01~0^130.0~0^323.01~0^323.1~0^323.2~0^323.41~0^323.51~0^323.62 ~0^323.71~0^323.81~0^323.9~0
122 ;;8002
123 ;;191.0~1^191.1~1^191.2~1^191.3~1^191.4~1^191.5~1^191.6~1^191.7~1^191.8~1^191.9~1^192.1~1^198.3~0
124 ;;8003
125 ;;225.0~1^225.2~1^228.02~1
126 ;;8004
127 ;;332.0~1^332.1~1
128 ;;8005
129 ;;335.22~1
130 ;;8007
131 ;;434.10~1^434.11~1
132 ;;8008
133 ;;434.00~1^434.01~1
134 ;;8009
135 ;;431.~1^432.0~1^432.1~1^432.9~1^853.00~1^853.01~1^853.02~1^853.03~1^853.04~1^853.05~1^853.06~1^853.09~1^853.10~1^853.11~1^853.12~1^853.13~1^853.14~1^853.15~1^853.16~1^853.19~1^997.02~0
136 ;;8010
137 ;;013.60~1^013.61~1^013.62~1^013.63~1^013.64~1^013.65~1^013.66~1^052.2~1^054.74~1^053.14~1^323.02~1^323.1~1^323.2~1^323.42~1^323.52~1^323.63~1^323.72~1^323.82~1^323.9~1
138 ;;8011
139 ;;045.00~1^045.01~1^045.02~1^045.03~1^045.10~1^045.11~1^045.12~1^045.13~1^045.20~1^045.21~1^045.22~1^045.23~1^045.90~1^045.91~1^045.92~1^045.93~1^138.~1
140 ;;8013
141 ;;094.1~1^094.3~1^094.81~1^094.89~1^094.9~1
142 ;;8014
143 ;;091.81~1^094.2~1
144 ;;8015
145 ;;094.0~1
146 ;;8017
147 ;;335.20~1
148 ;;8018
149 ;;340.~1
150 ;;8019
151 ;;036.0~0^098.82~0^320.0~0^320.1~0^320.2~0^320.3~0^320.7~0^320.81~0^320.82~0^320.89~0^320.9~0
152 ;;8020
153 ;;006.5~1^013.30~1^013.31~1^013.32~1^013.33~1^013.34~1^013.35~1^013.36~1^324.0~1^326.~1
154 ;;8021
155 ;;192.2~1^192.3~1^198.3~1
156 ;;8022
157 ;;225.3~1^225.4~1
158 ;;8023
159 ;;335.21~1
160 ;;8024
161 ;;336.0~1
162 ;;8025
163 ;;358.00~1^358.01~1
164 ;;8045
165 ;;905.0~0^907.0~1^907.1~0
166 ;;8046
167 ;;437.0~1^437.1~1
168 ;;8100
169 ;;346.00~1^346.01~1^346.10~1^346.11~1^346.20~1^346.21~1^346.80~1^346.81~1^346.90~1^346.91~1
170 ;;8105
171 ;;392.0~1^392.9~1
172 ;;8106
173 ;;333.4~1
174 ;;8107
175 ;;333.71~1^333.72~0^333.79~1
176 ;;8108
177 ;;347.00~1
178 ;;8205
179 ;;350.9~1
180 ;;8207
181 ;;351.0~1
182 ;;8209
183 ;;352.2~1
184 ;;8210
185 ;;352.3~1
186 ;;8211
187 ;;352.4~0
188 ;;8212
189 ;;352.5~0
190 ;;8305
191 ;;350.1~1
192 ;;8307
193 ;;351.8~0
194 ;;8309
195 ;;352.1~1
196 ;;8310
197 ;;352.3~0
198 ;;8311
199 ;;352.4~0
200 ;;8312
201 ;;352.5~0
202 ;;8405
203 ;;053.12~1^350.1~1
204 ;;8407
205 ;;351.8~0
206 ;;8409
207 ;;352.1~1
208 ;;8410
209 ;;352.3~0
210 ;;8411
211 ;;352.4~0
212 ;;8412
213 ;;352.5~0
214 ;;8514
215 ;;354.3~0
216 ;;8515
217 ;;354.1~0
218 ;;8516
219 ;;354.2~0
220 ;;8520
221 ;;355.0~0
222 ;;8521
223 ;;355.3~0
224 ;;8526
225 ;;355.2~0
226 ;;8529
227 ;;355.1~0
228 ;;8530
229 ;;355.79~0
230 ;;8614
231 ;;723.4~0
232 ;;8615
233 ;;354.1~0
234 ;;8620
235 ;;724.3~0
236 ;;8621
237 ;;355.3~0
238 ;;8625
239 ;;355.5~0
240 ;;8626
241 ;;355.2~0
242 ;;8629
243 ;;355.1~0
244 ;;8715
245 ;;354.1~0
246 ;;8720
247 ;;724.3~0
248 ;;8725
249 ;;355.5~0
250 ;;8729
251 ;;355.1~0
252 ;;8910
253 ;;345.10~1^345.11~1^345.3~1
254 ;;8911
255 ;;345.00~1^345.01~1^345.2~1
256 ;;8912
257 ;;345.50~1^345.51~1
258 ;;8913
259 ;;345.40~1^345.41~1
260 ;;8914
261 ;;345.40~1^345.41~1
262 ;;9201
263 ;;295.10~1^295.11~1^295.12~1^295.13~1^295.14~1^295.15~1
264 ;;9202
265 ;;295.20~1^295.21~1^295.22~1^295.23~1^295.24~1^295.25~1
266 ;;9203
267 ;;295.30~1^295.31~1^295.32~1^295.33~1^295.34~1^295.35~1
268 ;;9204
269 ;;295.60~0^295.61~0^295.62~0^295.63~0^295.64~0^295.65~0^295.80~0^295.81~0^295.82~0^295.83~0^295.84~0^295.85~0
270 ;;9205
271 ;;295.60~1^295.61~1^295.62~1^295.63~1^295.64~1^295.65~1^295.80~1^295.81~1^295.82~1^295.83~1^295.84~1^295.85~1^295.90~1^295.91~1^295.92~1^295.93~1^295.94~1^295.95~1
272 ;;9208
273 ;;297.0~1^297.1~1^297.2~1^297.3~1^297.8~1^297.9~1^298.3~1^298.4~1
274 ;;9210
275 ;;290.20~0^290.8~0^291.89~0^291.9~0^292.9~0^298.9~0
276 ;;9211
277 ;;295.70~1^295.71~1^295.72~1^295.73~1^295.74~1^295.75~1
278 ;;9300
279 ;;291.0~0^292.81~0^293.0~0^293.1~0
280 ;;9301
281 ;;042.~0^094.1~0^294.10~0
282 ;;9304
283 ;;294.10~0^294.11~0^310.2~0^905.0~0^907.0~0^907.1~0
284 ;;9305
285 ;;290.40~1^290.41~1^290.42~1^290.43~1
286 ;;9310
287 ;;290.12~0^290.13~0^290.3~0^331.19~0
288 ;;9312
289 ;;331.0~1
290 ;;9326
291 ;;290.0~0^290.10~0^290.11~0^290.20~0^290.21~0^291.2~0^292.82~0
292 ;;9400
293 ;;300.02~1
294 ;;9403
295 ;;300.20~1^300.23~1^300.29~1
296 ;;9404
297 ;;300.3~1
298 ;;9410
299 ;;300.89~1^300.9~1
300 ;;9411
301 ;;308.3~1^309.81~1
302 ;;9412
303 ;;300.01~1^300.21~1^300.22~1
304 ;;9413
305 ;;300.00~1^300.02~1^300.09~1^309.21~1
306 ;;9416
307 ;;300.12~1^300.13~1^300.14~1^300.15~1
308 ;;9417
309 ;;300.6~1
310 ;;9421
311 ;;300.81~1
312 ;;9422
313 ;;307.80~1^307.89~1^338.4~1
314 ;;9423
315 ;;300.82~1
316 ;;9424
317 ;;300.10~1^300.11~1^300.15~1
318 ;;9425
319 ;;300.7~1
320 ;;9431
321 ;;301.13~1
322 ;;9432
323 ;;296.00~1^296.01~1^296.02~1^296.03~1^296.04~1^296.05~1^296.06~1^296.10~1^296.11~1^296.12~1^296.13~1^296.14~1^296.15~1^296.16~1^296.40~1^296.41~1^296.42~1^296.43~1^296.44~1^296.45~1^296.46~1^296.50~1^;
324 ;;296.51~1^296.52~1^296.53~1^296.54~1^296.55~1^296.56~1^296.60~1^296.61~1^296.62~1^296.63~1^296.64~1^296.65~1^296.66~1^296.7~1^296.80~1^296.81~1
325 ;;9433
326 ;;300.4~1
327 ;;9434
328 ;;296.20~1^296.21~1^296.22~1^296.23~1^296.24~1^296.25~1^296.26~1^296.30~1^296.31~1^296.32~1^296.33~1^296.34~1^296.35~1^296.36~1^296.82~1^298.0~1
329 ;;9435
330 ;;296.89~0^296.90~0^296.99~0
331 ;;9440
332 ;;309.1~0^309.21~1^309.22~0^309.23~0^309.24~0^309.28~0^309.29~0^309.3~1^309.4~1^309.82~1^309.83~1^309.89~1^309.9~1
333 ;;9520
334 ;;307.1~1
335 ;;9521
336 ;;307.51~1
337 ;;9905
338 ;;524.52~1^524.60~0^524.61~1^524.62~0^524.63~0^524.69~0
339 ;;$EXIT
Note: See TracBrowser for help on using the repository browser.