source: FOIAVistA/trunk/r/HINQ-DVB--DVBA--DVBE--DVBC/DVB458P2.m@ 1757

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

initial load of FOIAVistA 6/30/08 version

File size: 7.8 KB
Line 
1DVB458P2 ;ALB/RBS - POST-INSTALL FOR PATCH DVB*4*58 (CONT.) ; 1/3/07 2:18pm
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 ;;5005
28 ;;041.2~0^711.00~0^711.01~0^711.02~0^711.03~0^711.04~0^711.05~0^711.06~0^711.07~0^711.08~0^711.09~0
29 ;;5006
30 ;;002.0~0^711.00~0^711.01~0^711.02~0^711.03~0^711.04~0^711.05~0^711.06~0^711.07~0^711.08~0^711.09~0
31 ;;5007
32 ;;094.0~0^713.5~0
33 ;;5008
34 ;;041.00~0^041.01~0^041.02~0^041.03~0^041.04~0^041.05~0^041.09~0^711.00~0^711.01~0^711.02~0^711.03~0^711.04~0^711.05~0^711.06~0^711.07~0^711.08~0^711.09~0
35 ;;5009
36 ;;003.23~0^036.82~0^056.71~0^711.11~0^711.12~0^711.13~0^711.14~0^711.15~0^711.16~0^711.17~0^711.18~0^711.19~0^711.31~0^711.32~0^711.33~0^711.34~0^711.35~0^711.36~0^711.37~0^711.38~0^711.39~0^711.41~0^;
37 ;;711.42~0^711.43~0^711.44~0^711.45~0^711.46~0^711.47~0^711.48~0^711.49~0^711.51~0^711.52~0^711.53~0^711.54~0^711.55~0^711.56~0^711.57~0^711.58~0^711.59~0^711.91~0^711.92~0^711.93~0^711.94~0^711.95~0^;
38 ;;711.96~0^711.97~0^711.98~0^711.99~0^716.38~0
39 ;;5010
40 ;;716.10~0^716.11~0^716.12~0^716.13~0^716.14~0^716.15~0^716.16~0^716.17~0^716.18~0^716.19~1
41 ;;5011
42 ;;993.3~1
43 ;;5012
44 ;;160.0~0^170.0~0^170.1~0^170.2~0^170.3~0^170.4~0^170.5~0^170.6~0^170.7~0^170.8~0^170.9~0^198.5~0
45 ;;5014
46 ;;268.2~1
47 ;;5015
48 ;;212.0~0^213.0~0^213.1~0^213.2~0^213.3~0^213.4~0^213.5~0^213.6~0^213.7~0^213.8~0^213.9~0^376.42~0^726.91~0
49 ;;5016
50 ;;731.0~0^731.1~0
51 ;;5017
52 ;;274.0~1^274.82~1^274.89~1^274.9~1
53 ;;5018
54 ;;719.30~0^719.31~0^719.32~0^719.33~0^719.34~0^719.35~0^719.36~0^719.37~0^719.38~0^719.39~0
55 ;;5019
56 ;;095.7~0^098.52~0^726.33~0^726.61~0^726.62~0^726.63~0^726.65~0^727.2~0^727.3~0
57 ;;5020
58 ;;095.7~0^098.51~0^719.20~0^719.21~0^719.22~0^719.23~0^719.24~0^719.25~0^719.26~0^719.27~0^719.28~0^719.29~0^727.00~0^727.03~0^727.04~0^727.05~0^727.06~0^727.09~0
59 ;;5021
60 ;;040.81~0^095.6~0^710.4~0^728.0~0^728.81~0^729.1~0
61 ;;5022
62 ;;091.61~0^376.02~0^730.30~0^730.31~0^730.32~0^730.33~0^730.34~0^730.35~0^730.36~0^730.37~0^730.38~0^730.39~0
63 ;;5023
64 ;;728.10~0^728.11~0^728.12~0^728.13~0^728.19~0
65 ;;5024
66 ;;098.51~0^726.11~0^726.61~0^726.62~0^726.63~0^726.64~0^726.65~0^726.72~0^727.03~0^727.04~0^727.05~0^727.06~0^727.09~0
67 ;;5025
68 ;;729.1~1
69 ;;5051
70 ;;996.40~0^996.41~0^996.42~0^996.43~0^996.44~0^996.45~0^996.46~0^996.47~0^996.49~0^996.66~0^996.77~0^V43.61~0
71 ;;5052
72 ;;996.40~0^996.41~0^996.42~0^996.43~0^996.44~0^996.45~0^996.46~0^996.47~0^996.49~0^996.66~0^996.77~0^V43.62~0
73 ;;5053
74 ;;996.40~0^996.41~0^996.42~0^996.43~0^996.44~0^996.45~0^996.46~0^996.47~0^996.49~0^996.66~0^996.77~0^V43.63~0
75 ;;5054
76 ;;996.40~0^996.41~0^996.42~0^996.43~0^996.44~0^996.45~0^996.46~0^996.47~0^996.49~0^996.66~0^996.77~0^V43.64~0
77 ;;5055
78 ;;996.40~0^996.41~0^996.42~0^996.43~0^996.44~0^996.45~0^996.46~0^996.47~0^996.49~0^996.66~0^996.77~0^V43.65~0
79 ;;5056
80 ;;996.40~0^996.41~0^996.42~0^996.43~0^996.44~0^996.45~0^996.46~0^996.47~0^996.49~0^996.66~0^996.77~0^V43.66~0
81 ;;5106
82 ;;887.6~1^887.7~1
83 ;;5107
84 ;;896.2~1^896.3~1
85 ;;5108
86 ;;887.0~0^887.1~0^887.2~0^887.3~0^887.4~0^887.5~0^896.0~0^896.1~0^V49.63~0^V49.73~0
87 ;;5120
88 ;;V49.67~0
89 ;;5171
90 ;;V49.71~0
91 ;;5172
92 ;;V49.72~0
93 ;;5173
94 ;;V49.72~0
95 ;;5200
96 ;;718.51~0
97 ;;5201
98 ;;719.51~0
99 ;;5202
100 ;;718.31~0^718.81~0
101 ;;5205
102 ;;718.52~0
103 ;;5206
104 ;;718.42~0
105 ;;5207
106 ;;718.42~0
107 ;;5214
108 ;;718.53~0
109 ;;5215
110 ;;718.43~0
111 ;;5236
112 ;;724.6~1
113 ;;5238
114 ;;723.0~0^724.00~0^724.01~0^724.02~0^724.09~0
115 ;;5239
116 ;;738.4~0
117 ;;5240
118 ;;720.0~0
119 ;;5242
120 ;;721.0~0^721.2~0^721.3~0^721.6~0^721.7~0^721.90~0
121 ;;5243
122 ;;722.70~0^722.71~0^722.72~0^722.73~0
123 ;;5250
124 ;;718.55~1
125 ;;5254
126 ;;718.85~1
127 ;;5255
128 ;;733.81~0^733.82~0^905.3~0
129 ;;5256
130 ;;718.56~0
131 ;;5257
132 ;;718.36~0^718.86~0
133 ;;5258
134 ;;718.36~0^836.0~0^836.1~0^836.2~0
135 ;;5260
136 ;;718.46~0
137 ;;5261
138 ;;718.46~0
139 ;;5263
140 ;;736.5~0
141 ;;5275
142 ;;736.81~0
143 ;;5276
144 ;;734.~0
145 ;;5278
146 ;;736.74~0
147 ;;5279
148 ;;355.6~0
149 ;;5280
150 ;;735.0~0
151 ;;5281
152 ;;735.2~0
153 ;;5282
154 ;;735.3~0^735.4~0
155 ;;5324
156 ;;551.3~1^552.3~1^553.3~1
157 ;;5329
158 ;;176.1~1
159 ;;6000
160 ;;053.22~0^054.44~0^091.50~0^098.41~0^360.11~0^360.12~0^363.21~0^364.00~0^364.01~0^364.02~0^364.03~0^364.04~0^364.10~0^364.11~0^364.23~0^364.24~0^364.3~0
161 ;;6001
162 ;;054.42~0^054.43~0^090.3~0^264.3~0^370.20~0^370.21~0^370.22~0^370.23~0^370.24~0^370.44~0^370.50~0^370.52~0^370.54~0^370.59~0^370.8~0^370.9~0
163 ;;6002
164 ;;095.0~0^379.00~0^379.01~0^379.02~0^379.03~0^379.05~0^379.06~0^379.07~0^379.09~0
165 ;;6004
166 ;;364.21~0
167 ;;6006
168 ;;115.02~0^115.12~0^115.92~0^130.2~0^362.74~0^363.00~0^363.01~0^363.03~0^363.04~0^363.05~0^363.06~0^363.07~0^363.08~0^363.10~0^363.11~0^363.12~0^363.13~0^363.14~0^363.15~0^363.20~0
169 ;;6007
170 ;;360.43~0^362.81~0^364.41~0^871.0~0^871.1~0^871.4~0^871.9~0^921.2~0^921.3~0
171 ;;6008
172 ;;361.00~0^361.01~0^361.02~0^361.03~0^361.04~0^361.05~0^361.06~0^361.07~0^361.2~0^361.81~0^361.89~0^362.41~0^362.42~0^362.43~0
173 ;;6010
174 ;;017.30~0^017.31~0^017.32~0^017.33~0^017.34~0^017.35~0^017.36~0
175 ;;6011
176 ;;362.31~0^362.35~0^363.32~0^363.33~0
177 ;;6012
178 ;;365.20~0^365.21~0^365.22~0^365.23~0^365.24~0^365.41~0^365.43~0^365.44~0^365.52~0^365.59~0^365.61~0^365.62~0^365.63~0^365.64~0^365.65~0^365.81~0^365.83~0
179 ;;6013
180 ;;365.10~0^365.11~0^365.12~0^365.13~0^365.15~0^365.31~0^365.32~0^365.51~0^365.82~0
181 ;;6014
182 ;;190.0~0^234.0~0
183 ;;6015
184 ;;224.0~0^224.1~0^224.2~0^224.3~0^224.4~0^224.5~0^224.6~0^224.7~0^224.9~0^228.03~0
185 ;;6016
186 ;;379.50~0^379.53~0^379.54~0^379.55~0^379.56~0^386.2~0
187 ;;6017
188 ;;076.0~0^076.1~0^076.9~0
189 ;;6018
190 ;;372.10~0^372.11~0^372.12~0^372.13~0^372.14~0^372.15~0
191 ;;6019
192 ;;374.30~0^374.31~0^374.32~0^374.33~0
193 ;;6020
194 ;;374.10~0^374.11~0^374.12~0^374.13~0^374.14~0
195 ;;6021
196 ;;374.00~0^374.01~0^374.02~0^374.03~0^374.04~0
197 ;;6022
198 ;;374.20~0^374.21~0^374.22~0^374.23~0
199 ;;6025
200 ;;375.20~0^375.21~0^375.22~0
201 ;;6026
202 ;;036.81~0^341.0~0^377.30~0^377.32~0^377.33~0^377.34~0^377.39~0^377.41~0
203 ;;6027
204 ;;366.20~0^366.21~0^366.23~0^366.45~0^366.46~0
205 ;;6028
206 ;;366.10~0^366.11~0^366.12~0^366.13~0^366.14~0^366.15~0^366.16~0^366.17~0^366.18~0^366.19~0^366.30~0^366.31~0^366.32~0^366.33~0^366.34~0^366.41~0^366.42~0^366.43~0^366.44~0^366.50~0^366.51~0^366.52~0^;
207 ;;366.53~0^366.8~0^366.9~0
208 ;;6029
209 ;;379.31~0
210 ;;6030
211 ;;367.51~0
212 ;;6031
213 ;;375.30~0^375.31~0^375.32~0^375.33~0^375.41~0^375.42~0
214 ;;6033
215 ;;379.32~0^379.33~0^379.34~0
216 ;;6034
217 ;;372.40~0^372.41~0^372.42~0^372.43~0^372.44~0^372.45~0
218 ;;6035
219 ;;371.60~0^371.61~0^371.62~0
220 ;;6062
221 ;;369.04~1
222 ;;6063
223 ;;369.06~0^V45.78~0
224 ;;6066
225 ;;369.62~0^V45.78~0
226 ;;6067
227 ;;369.07~1
228 ;;6068
229 ;;369.13~1
230 ;;6069
231 ;;369.17~1^369.62~1
232 ;;6070
233 ;;369.62~1
234 ;;6071
235 ;;369.08~1
236 ;;6072
237 ;;369.14~1
238 ;;6073
239 ;;369.18~1^369.68~1
240 ;;6074
241 ;;369.68~1
242 ;;6078
243 ;;369.75~1
244 ;;6080
245 ;;368.45~1^368.46~1^368.47~1
246 ;;6081
247 ;;368.41~1^368.42~1^368.43~1
248 ;;6090
249 ;;368.2~1
250 ;;6091
251 ;;372.63~0
252 ;;6092
253 ;;368.2~1
254 ;;6100
255 ;;389.00~0^389.01~0^389.02~0^389.03~0^389.04~0^389.08~0^389.15~0^389.10~0^389.12~1^389.14~1^389.16~1^389.18~1^389.2~0^389.7~1^389.8~0^389.9~0
256 ;;6200
257 ;;382.1~0^382.2~0^382.3~0
258 ;;6201
259 ;;381.10~0^381.19~0^381.3~0
260 ;;6202
261 ;;387.0~0^387.1~0^387.2~0^387.8~0^387.9~0^387.0~0
262 ;;6204
263 ;;078.81~1^386.10~1^386.11~1^386.12~1^386.19~1^780.4~0^078.81~1
264 ;;$EXIT
Note: See TracBrowser for help on using the repository browser.