source: WorldVistAEHR/trunk/r/HINQ-DVB--DVBA--DVBE--DVBC/DVB458P4.m@ 1639

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

initial load of WorldVistAEHR
File size: 8.7 KB
Line 
1DVB458P4 ;ALB/RBS - POST-INSTALL FOR PATCH DVB*4*58 (CONT.) ; 1/3/07 2:19pm
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 ;;7200
28 ;;873.70~0^873.71~0^873.72~0^873.74~0^873.75~0
29 ;;7203
30 ;;530.0~1^530.3~1^530.6~1
31 ;;7301
32 ;;567.21~0^567.22~1^567.23~0^567.29~0^567.31~0^567.38~0^567.39~0^567.81~0^567.82~0^567.89~0^567.9~0^568.0~1
33 ;;7304
34 ;;531.00~1^531.01~1^531.10~1^531.11~1^531.20~1^531.21~1^531.40~1^531.41~1^531.50~1^531.51~1^531.60~1^531.61~1^531.70~1^531.90~1^531.91~1
35 ;;7305
36 ;;532.00~1^532.01~1^532.10~1^532.11~1^532.20~1^532.21~1^532.30~1^532.31~1^532.40~1^532.41~1^532.50~1^532.51~1^532.60~1^532.61~1^532.70~1^532.71~1^532.90~1^532.91~1
37 ;;7306
38 ;;534.00~1^534.01~1^534.10~1^534.11~1^534.20~1^534.21~1^534.30~1^534.31~1^534.40~1^534.41~1^534.50~1^534.51~1^534.60~1^534.61~1^534.70~1^534.71~1^534.90~1^534.91~1
39 ;;7307
40 ;;535.10~1^535.11~1^535.20~1^535.21~1
41 ;;7308
42 ;;564.2~1
43 ;;7309
44 ;;537.6~1
45 ;;7310
46 ;;536.2~0^536.3~0^536.8~0^537.5~0^537.6~0^908.1~0
47 ;;7311
48 ;;573.0~0^573.4~0^573.8~0^908.1~0
49 ;;7312
50 ;;571.2~1^571.5~1^571.6~1
51 ;;7314
52 ;;574.10~1^574.11~1^574.70~1^574.71~1^574.80~1^574.81~1^575.11~1^575.12~1
53 ;;7315
54 ;;574.00~1^574.01~1^574.20~1^574.21~1^574.50~1^574.51~1^574.90~1^574.91~1
55 ;;7316
56 ;;576.1~1
57 ;;7317
58 ;;575.2~0^575.3~0^575.4~0^575.5~0^575.8~0^908.1~0
59 ;;7319
60 ;;564.1~1
61 ;;7321
62 ;;006.0~1^006.1~1^006.2~1^006.9~1
63 ;;7322
64 ;;004.0~1^004.1~1^004.2~1^004.3~1^004.8~1^004.9~1
65 ;;7323
66 ;;556.0~1^556.1~1^556.2~1^556.3~1^556.4~1^556.5~1^556.6~1^556.8~1^556.9~1
67 ;;7324
68 ;;121.9~1
69 ;;7325
70 ;;555.0~1
71 ;;7326
72 ;;008.45~0
73 ;;7327
74 ;;562.11~1^562.13~1
75 ;;7328
76 ;;579.2~1^579.3~1
77 ;;7330
78 ;;569.81~1
79 ;;7331
80 ;;014.00~1^014.01~1^014.02~1^014.03~1^014.04~1^014.05~1^014.06~1
81 ;;7332
82 ;;787.6~1
83 ;;7333
84 ;;569.2~1
85 ;;7334
86 ;;569.1~1
87 ;;7335
88 ;;565.1~1
89 ;;7336
90 ;;455.0~1^455.1~1^455.2~1^455.3~1^455.4~1^455.5~1^455.6~1^455.7~1^455.8~1
91 ;;7337
92 ;;698.0~1
93 ;;7338
94 ;;550.00~0^550.01~0^550.02~1^550.03~1^550.10~0^550.11~0^550.12~1^550.13~1^550.90~0^550.91~0^550.92~1^550.93~1
95 ;;7339
96 ;;551.21~0^552.21~0^553.21~0
97 ;;7340
98 ;;551.00~0^551.01~0^551.02~1^551.03~1^552.00~0^552.01~0^552.02~1^552.03~1^553.00~0^553.01~0^553.02~1^553.03~1
99 ;;7343
100 ;;141.0~0^141.1~0^142.0~0^142.2~0^142.8~0^142.9~0^143.0~0^143.1~0^143.8~0^143.9~0^144.0~0^144.1~0^144.8~0^144.9~0^145.0~0^145.1~0^145.2~0^145.3~0^145.4~0^145.5~0^145.6~0^145.8~0^145.9~0^149.8~0^149.9~0^;
101 ;;150.0~0^150.1~0^150.2~0^150.3~0^150.4~0^150.5~0^150.8~0^150.9~0^151.0~0^151.1~0^151.2~0^151.3~0^151.4~0^151.5~0^151.6~0^151.8~0^151.9~0^152.0~0^152.1~0^152.2~0^152.3~0^152.8~0^152.9~0^153.0~0^153.1~0^;
102 ;;153.2~0^153.3~0^153.4~0^153.5~0^153.6~0^153.7~0^153.8~0^153.9~0^154.0~0^154.1~0^154.2~0^154.3~0^154.8~0^155.0~0^155.1~0^155.2~0^156.0~0^156.1~0^156.2~0^156.8~0^156.9~0^157.0~0^157.1~0^157.2~0^157.3~0^;
103 ;;157.8~0^157.9~0^158.0~0^158.8~0^158.9~0^159.0~0^159.1~0^159.8~0^159.9~0^197.4~0^197.5~0^197.6~0^197.7~0^197.8~0^230.0~0^230.1~0^230.2~0^230.3~0^230.4~0^230.5~0^230.6~0^230.7~0^230.8~0^230.9~0
104 ;;7344
105 ;;210.4~0^211.0~0^211.1~0^211.2~0^211.3~0^211.4~0^211.5~0^211.6~0^211.8~0^211.9~1
106 ;;7345
107 ;;070.22~1^070.23~1^070.32~1^070.33~1^571.40~1^571.41~1^571.49~1^571.8~0^571.9~0^573.1~1^573.3~0
108 ;;7346
109 ;;551.3~1^552.3~1^553.3~1
110 ;;7347
111 ;;577.0~1^577.1~1
112 ;;7351
113 ;;996.82~1^V42.7~1
114 ;;7354
115 ;;070.41~1^070.44~1^070.51~1^070.54~1
116 ;;7501
117 ;;590.2~1
118 ;;7502
119 ;;582.0~1^582.1~1^582.2~1^582.4~1^582.81~1^582.89~1^582.9~1
120 ;;7504
121 ;;590.00~1^590.01~1
122 ;;7505
123 ;;016.00~1^016.01~1^016.02~1^016.03~1^016.04~1^016.05~1^016.06~1
124 ;;7507
125 ;;403.00~0^403.10~0^403.90~0^404.00~0^404.01~0^404.10~0^404.11~0^404.90~0^404.91~0
126 ;;7508
127 ;;274.11~1^592.0~1
128 ;;7509
129 ;;591.~0
130 ;;7510
131 ;;592.1~0
132 ;;7511
133 ;;593.3~0
134 ;;7512
135 ;;016.10~1^016.11~1^016.12~1^016.13~1^016.14~1^016.15~1^016.16~1^098.31~1^595.1~1^595.2~1^595.3~1^595.4~1^595.81~1^595.82~1^595.89~1
136 ;;7515
137 ;;594.0~1^594.1~1
138 ;;7516
139 ;;596.2~1
140 ;;7518
141 ;;598.00~1^598.01~1^598.1~1^598.2~1^598.8~1^598.9~1
142 ;;7519
143 ;;599.1~1
144 ;;7523
145 ;;608.3~1
146 ;;7525
147 ;;098.33~1
148 ;;7527
149 ;;098.32~1^600.00~1^600.01~1^600.10~1^600.11~1^600.20~1^600.21~1^601.1~1^601.2~1^601.4~1
150 ;;7528
151 ;;186.0~0^186.9~0^187.1~0^187.2~0^187.3~0^187.4~0^187.5~0^187.6~0^187.7~0^187.8~0^187.9~0^188.0~0^188.1~0^188.2~0^188.3~0^188.4~0^188.5~0^188.6~0^188.7~0^188.8~0^188.9~0^189.0~0^189.1~0^189.2~0^189.3~0^;
152 ;;189.4~0^189.8~0^189.9~0^198.0~0^198.1~0^233.4~0^233.5~0^233.6~0^233.7~0^233.9~0
153 ;;7529
154 ;;214.4~0^222.0~0^222.1~0^222.2~0^222.3~0^222.4~0^222.8~0^222.9~0^223.0~0^223.1~0^223.2~0^223.3~0^223.9~0
155 ;;7530
156 ;;403.01~0^403.11~0^403.91~0^404.02~0^404.03~0^404.12~0^404.13~0^404.92~0^404.93~0^585.6~1^V56.0~1^V56.1~1^V56.31~1^V56.32~1^V56.8~1
157 ;;7531
158 ;;996.81~1^V42.0~1
159 ;;7532
160 ;;255.13~1^271.4~1^584.5~1^270.0~1
161 ;;7533
162 ;;593.2~1^753.10~1^753.12~1^753.13~1^753.14~1^753.15~1^753.16~1^753.17~1^753.19~1
163 ;;7534
164 ;;440.1~1^445.81~1
165 ;;7535
166 ;;584.5~0
167 ;;7536
168 ;;581.0~1^581.1~1^581.2~1^581.3~1^581.81~1^581.9~1^582.0~1^582.1~1^582.2~1^582.4~1^582.81~1^582.89~1^582.9~1
169 ;;7538
170 ;;583.7~1
171 ;;7539
172 ;;277.39~0^583.81~0
173 ;;7540
174 ;;286.6~0^583.6~0
175 ;;7541
176 ;;250.40~1^250.41~1^250.42~1^250.43~1^282.60~0^282.61~0^282.62~0^282.63~0^282.64~0^282.68~0^282.69~0^446.21~1^581.81~1^710.0~0
177 ;;7542
178 ;;344.61~1^596.53~1^596.54~1
179 ;;7610
180 ;;098.2~0^616.10~0^616.11~0^616.4~0^616.50~0^616.51~0^624.0~0^624.1~0^624.2~0^624.3~0^624.4~0^624.5~0^624.6~0^624.8~0^624.9~0^939.2~0^616.81~0^616.89~0
181 ;;7611
182 ;;616.10~0^616.11~0^616.2~0^616.3~0^623.0~0^623.1~0^623.2~0^623.3~0^623.4~0^623.5~0^623.6~0^623.7~0^623.8~0^623.9~0^939.2~0^616.81~0^616.89~0
183 ;;7612
184 ;;616.0~0^622.0~0^622.10~0^622.11~0^622.12~0^622.2~0^622.3~0^622.4~0^622.5~0^622.6~0^622.7~0^622.8~0^622.9~0^616.81~0^616.89~0
185 ;;7613
186 ;;016.70~0^016.71~0^016.72~0^016.73~0^016.74~0^016.75~0^098.36~0^615.1~0^621.0~0^621.1~0^621.2~0^621.30~0^621.31~0^621.32~0^621.33~0^621.4~0^621.5~0^621.6~0^621.7~0^621.8~0^621.9~0^939.1~0
187 ;;7614
188 ;;016.60~0^016.61~0^016.62~0^016.63~0^016.64~0^016.65~0^016.66~0^614.1~0^614.4~0^614.7~0^620.3~0^620.4~0^620.5~0^620.8~0
189 ;;7615
190 ;;016.60~0^016.61~0^016.62~0^016.63~0^016.64~0^016.65~0^614.1~0^620.1~0^620.2~0^620.3~0^620.4~0^620.5~0^620.8~0
191 ;;7621
192 ;;618.01~0^618.02~0^618.03~0^618.04~0^618.05~0^618.1~1^618.2~1^618.3~1^618.4~1^618.6~0^618.89~1^618.84~1
193 ;;7622
194 ;;621.6~1
195 ;;7623
196 ;;618.01~0^618.02~0^618.03~0^618.04~0^618.05~0^618.89~0^677.~1
197 ;;7627
198 ;;174.0~0^174.1~0^174.2~0^174.3~0^174.4~0^174.5~0^174.6~0^174.8~0^174.9~0^179.~0^180.0~0^180.1~0^180.8~0^180.9~0^181.~0^182.0~0^182.1~0^182.8~0^183.0~0^183.2~0^183.3~0^183.4~0^183.5~0^183.8~0^183.9~0^;
199 ;;184.0~0^184.1~0^184.2~0^184.3~0^184.4~0^184.8~0^184.9~0^198.6~0^198.81~0^233.0~0^233.1~0^233.2~0^233.3~0
200 ;;7628
201 ;;217.~0^218.0~0^218.1~0^218.2~0^218.9~0^219.0~0^219.1~0^219.8~0^219.9~0^220.~0^221.0~0^221.1~0^221.2~0^221.8~0
202 ;;7629
203 ;;617.1~1^617.2~1^617.3~1^617.4~1^617.5~1^617.6~1^617.8~1^617.9~1
204 ;;7700
205 ;;280.0~0^280.1~0^280.8~0^280.9~0^281.0~0^281.1~0^281.2~0^281.3~0^281.4~0^281.8~0^281.9~0^283.0~0^283.10~0^283.11~0^283.19~0^283.2~0^283.9~0^285.0~0^285.22~0^285.29~0
206 ;;7702
207 ;;288.00~1^288.02~1^288.03~1^288.04~1^288.09~1
208 ;;7703
209 ;;204.00~1^204.10~1^204.20~1^204.80~1^204.90~1^205.00~1^205.10~1^205.20~1^205.80~1^205.90~1^206.00~1^206.10~1^206.20~1^206.80~1^206.90~1^207.00~1^207.10~1^207.20~1^207.80~1^208.00~1^208.10~1^208.20~1^208.80~1^208.90~1
210 ;;7704
211 ;;238.4~1
212 ;;7705
213 ;;287.30~1^287.31~1^287.39~1^287.4~1^287.5~1
214 ;;7709
215 ;;201.00~1^201.01~1^201.03~1^201.04~1^201.05~1^201.06~1^201.07~1^201.08~1^201.10~1^201.11~1^201.12~1^201.13~1^201.14~1^201.15~1^201.16~1^201.17~1^201.18~1^201.20~1^201.21~1^201.22~1^201.23~1^201.24~1^;
216 ;;201.25~1^201.26~1^201.27~1^201.28~1^201.41~1^201.42~1^201.43~1^201.44~1^201.45~1^201.46~1^201.47~1^201.48~1^201.51~1^201.52~1^201.53~1^201.54~1^201.55~1^201.56~1^201.57~1^201.58~1^201.61~1^201.62~1^;
217 ;;201.63~1^201.64~1^201.65~1^201.66~1^201.67~1^201.68~1^201.71~1^201.72~1^201.73~1^201.74~1^201.75~1^201.76~1^201.77~1^201.78~1^201.90~1^201.91~1^201.92~1^201.93~1^201.94~1^201.95~1^201.96~1^201.97~1^201.98~1
218 ;;$EXIT
Note: See TracBrowser for help on using the repository browser.