source: WorldVistAEHR/trunk/r/HINQ-DVB--DVBA--DVBE--DVBC/DVB458P3.m@ 701

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

initial load of WorldVistAEHR

File size: 8.3 KB
Line 
1DVB458P3 ;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 ;;6205
28 ;;386.00~1^386.01~1^386.02~1^386.03~1^386.04~1
29 ;;6208
30 ;;160.1~0
31 ;;6210
32 ;;112.82~0^380.14~0^380.15~0^380.16~0^380.23~0
33 ;;6211
34 ;;384.20~0^384.21~0^384.22~0^384.23~0^384.24~0^384.25~0^872.61~0^872.71~0
35 ;;6260
36 ;;388.30~1^388.31~1^388.32~1
37 ;;6300
38 ;;001.0~1^001.1~1^001.9~1^V06.0~1
39 ;;6301
40 ;;085.0~1
41 ;;6302
42 ;;030.0~1^030.1~1^030.2~1^030.3~1^030.8~1^030.9~1
43 ;;6304
44 ;;084.0~1^084.1~1^084.2~1^084.3~1^084.4~1^084.5~1^084.6~1^084.8~1^084.9~1^647.40~1^647.41~1^647.42~1^647.43~1^647.44~1
45 ;;6305
46 ;;125.0~1^125.1~1^125.2~1^125.3~1^125.4~1^125.5~1^125.6~1^125.7~1^125.9~1
47 ;;6306
48 ;;088.0~1
49 ;;6307
50 ;;020.0~1^020.1~1^020.2~1^020.3~1^020.4~1^020.5~1^020.8~1^020.9~1
51 ;;6308
52 ;;087.0~1^087.1~1^087.9~1
53 ;;6309
54 ;;390.~1^391.0~1^391.1~1^391.2~1^391.8~1^391.9~1
55 ;;6310
56 ;;091.0~1^091.1~1^091.2~1^091.3~1^091.4~1^091.7~1^091.82~1^091.89~1^091.9~1^095.0~1^095.1~1^095.2~1^095.3~1^095.4~1^095.5~1^095.7~1^095.8~1^095.9~1^097.9~1^102.0~1^102.1~1^102.2~1^102.3~1^102.4~1^;
57 ;;102.5~1^102.6~1^102.7~1^102.9~1^104.0~1
58 ;;6311
59 ;;018.00~1^018.01~1^018.02~1^018.03~1^018.04~1^018.05~1^018.06~1^018.80~1^018.81~1^018.82~1^018.83~1^018.84~1^018.85~1^018.86~1^018.90~1^018.91~1^018.92~1^018.93~1^018.94~1^018.95~1^018.96~1
60 ;;6313
61 ;;264.8~1^264.9~1
62 ;;6314
63 ;;265.0~1
64 ;;6315
65 ;;265.2~1
66 ;;6316
67 ;;023.0~1^023.1~1^023.2~1^023.3~1^023.8~1^023.9~1
68 ;;6317
69 ;;081.2~1
70 ;;6318
71 ;;025.~1
72 ;;6319
73 ;;088.81~1
74 ;;6320
75 ;;120.0~0^120.1~0^120.2~0^120.3~0^120.8~0^120.9~0^121.0~0^121.1~0^121.2~0^121.3~0^121.4~0^121.5~0^121.8~0^121.9~0^122.0~0^122.1~0^122.2~0^122.3~0^122.4~0^122.5~0^122.6~0^122.7~0^122.8~0^122.9~0^124.~0^;
76 ;;126.0~0^126.1~0^126.2~0^126.3~0^126.8~0^126.9~0^127.1~0^127.2~0^127.3~0^127.5~0^127.6~0^127.7~0^127.8~0^127.9~0^136.8~0
77 ;;6350
78 ;;710.0~1
79 ;;6351
80 ;;042.~1^079.53~1^795.71~1^V08.~1
81 ;;6354
82 ;;780.71~1
83 ;;6510
84 ;;473.8~1
85 ;;6511
86 ;;473.2~1
87 ;;6512
88 ;;473.1~1
89 ;;6513
90 ;;473.0~1
91 ;;6514
92 ;;473.3~1
93 ;;6515
94 ;;012.30~1^012.31~1^012.32~1^012.33~1^012.34~1^012.35~1^012.36~1
95 ;;6516
96 ;;476.0~1
97 ;;6519
98 ;;784.41~1
99 ;;6520
100 ;;478.74~1
101 ;;6522
102 ;;477.0~1^477.1~1^477.8~1^477.9~1
103 ;;6523
104 ;;040.1~1
105 ;;6524
106 ;;117.0~1^472.0~1
107 ;;6600
108 ;;491.0~1^491.1~1^491.20~1^491.21~1^491.8~1^491.9~1
109 ;;6601
110 ;;011.50~1^011.51~1^011.52~1^011.53~1^011.54~1^011.55~1^011.56~1^494.0~1^494.1~1
111 ;;6602
112 ;;493.00~1^493.01~1^493.02~1^493.10~1^493.11~1^493.12~1^493.20~1^493.21~1^493.22~1^493.81~1^493.82~1^493.90~1^493.91~1^493.92~1
113 ;;6603
114 ;;492.0~1^492.8~1
115 ;;6604
116 ;;496.~1
117 ;;6704
118 ;;011.00~1^011.01~1^011.02~1^011.03~1^011.04~1^011.05~1^011.06~1^011.10~1^011.11~1^011.12~1^011.13~1^011.14~1^011.15~1^011.16~1^011.20~1^011.21~1^011.22~1^011.23~1^011.24~1^011.25~1^011.26~1^011.30~1^;
119 ;;011.31~1^011.32~1^011.33~1^011.34~1^011.35~1^011.36~1^011.40~1^011.41~1^011.42~1^011.43~1^011.44~1^011.45~1^011.46~1^011.50~1^011.51~1^011.52~1^011.53~1^011.54~1^011.55~1^011.56~1^011.60~1^011.61~1^;
120 ;;011.62~1^011.63~1^011.64~1^011.65~1^011.66~1^011.70~1^011.71~1^011.72~1^011.73~1^011.74~1^011.75~1^011.76~1^011.80~1^011.81~1^011.82~1^011.83~1^011.84~1^011.85~1^011.86~1^011.90~1^011.91~1^011.92~1^;
121 ;;011.93~1^011.94~1^011.95~1^011.96~1^012.20~1^012.21~1^012.22~1^012.23~1^012.24~1^012.25~1^012.26~1
122 ;;6724
123 ;;137.0~0
124 ;;6730
125 ;;011.00~1^011.01~1^011.02~1^011.03~1^011.04~1^011.05~1^011.06~1^011.10~1^011.11~1^011.12~1^011.14~1^011.15~1^011.16~1^011.20~1^011.21~1^011.22~1^011.23~1^011.24~1^011.25~1^011.26~1^011.30~1^011.31~1^;
126 ;;011.32~1^011.33~1^011.34~1^011.35~1^011.36~1^011.40~1^011.41~1^011.42~1^011.43~1^011.44~1^011.45~1^011.46~1^011.50~1^011.51~1^011.52~1^011.53~1^011.54~1^011.55~1^011.56~1^011.60~1^011.61~1^011.62~1^;
127 ;;011.63~1^011.64~1^011.65~1^011.66~1^011.70~1^011.71~1^011.72~1^011.73~1^011.74~1^011.75~1^011.76~1^011.80~1^011.81~1^011.83~1^011.84~1^011.85~1^011.86~1^011.90~1^011.91~1^011.92~1^011.93~1^011.94~1^;
128 ;;011.95~1^011.96~1^012.20~1^012.21~1^012.22~1^012.23~1^012.24~1^012.25~1^012.26~1
129 ;;6732
130 ;;010.10~1^010.11~1^010.12~1^010.13~1^010.14~1^010.15~1^010.16~1^012.00~1^012.01~1^012.02~1^012.03~1^012.04~1^012.05~1^012.06~1
131 ;;6817
132 ;;416.0~1
133 ;;6819
134 ;;146.0~0^146.1~0^146.2~0^146.3~0^146.4~0^146.5~0^146.6~0^146.7~0^146.8~0^146.9~0^147.0~0^147.1~0^147.2~0^147.3~0^147.8~0^147.9~0^148.0~0^148.1~0^148.2~0^148.3~0^148.8~0^148.9~0^149.0~0^149.1~0^160.0~0^;
135 ;;160.1~0^160.2~0^160.3~0^160.4~0^160.5~0^160.8~0^160.9~0^161.0~0^161.1~0^161.8~0^161.9~0^162.0~0^162.2~0^162.3~0^162.4~0^162.5~0^162.8~0^162.9~0^163.0~0^163.1~0^163.8~0^163.9~0^164.2~0^164.3~0^165.0~0^;
136 ;;165.8~0^165.9~0^197.0~0^197.2~0^197.3~0^231.0~0^231.1~0^231.2~0^231.8~0^231.9~0
137 ;;6820
138 ;;212.0~0^212.1~0^212.2~0^212.3~0^212.4~0^212.8~0^212.9~0^214.2~0^471.0~0^471.8~0^471.9~0
139 ;;6822
140 ;;039.1~1
141 ;;6823
142 ;;039.1~1
143 ;;6824
144 ;;006.4~1^513.0~1
145 ;;6825
146 ;;515.~1^516.3~1
147 ;;6827
148 ;;516.0~1
149 ;;6829
150 ;;508.8~0^518.7~1
151 ;;6830
152 ;;508.0~1^508.1~1
153 ;;6831
154 ;;495.0~1^495.1~1^495.2~1^495.3~1^495.4~1^495.5~1^495.6~1^495.7~1^495.8~1^495.9~1
155 ;;6832
156 ;;500.~1^502.~1^503.~1^504.~1^505.~1
157 ;;6833
158 ;;501.~1
159 ;;6834
160 ;;115.05~1^115.15~1^115.95~1
161 ;;6835
162 ;;114.0~1^114.3~1^114.4~1^114.5~1
163 ;;6836
164 ;;116.0~1
165 ;;6837
166 ;;117.5~1
167 ;;6838
168 ;;484.6~1^518.6~1
169 ;;6839
170 ;;117.7~1
171 ;;6840
172 ;;519.4~0
173 ;;6844
174 ;;512.1~1^518.5~0
175 ;;6845
176 ;;510.0~1^510.9~1^511.1~1^511.8~1^511.9~1^515.~1
177 ;;6846
178 ;;135.~1
179 ;;6847
180 ;;327.20~1^327.21~1^327.23~1^327.27~1^327.29~1^780.51~1^780.53~1^780.57~1
181 ;;7000
182 ;;394.0~0^394.1~0^394.2~0^394.9~0^395.0~0^395.1~0^395.2~0^395.9~0^396.0~0^396.1~0^396.2~0^396.3~0^396.8~0^396.9~0^397.0~0^397.1~0^397.9~0^424.0~0^424.1~0^424.2~0^424.3~0
183 ;;7001
184 ;;036.42~0^074.22~0^098.84~0^112.81~0^115.04~0^115.14~0^115.94~0^421.0~0^421.1~0^421.9~0
185 ;;7002
186 ;;036.41~0^074.21~0^098.83~0^115.03~0^115.13~0^115.93~0^391.0~0^393.~0^411.0~0^420.0~0^420.90~0^420.91~0^420.99~0^423.2~0
187 ;;7003
188 ;;423.1~0
189 ;;7004
190 ;;093.0~1^093.1~1^093.20~1^093.21~1^093.23~1^093.24~1^093.81~1^093.82~1^093.89~1^093.9~1
191 ;;7005
192 ;;411.1~1^411.81~1^411.89~1^414.00~1^414.01~1^414.02~1^414.03~1^414.04~1^414.05~1^414.8~0^414.9~0^429.2~1
193 ;;7006
194 ;;410.00~1^410.01~1^410.02~1^410.10~1^410.11~1^410.12~1^410.20~1^410.21~1^410.22~1^410.30~1^410.31~1^410.32~1^410.40~1^410.41~1^410.42~1^410.50~1^410.51~1^410.52~1^410.60~1^410.61~1^410.62~1^410.70~1^;
195 ;;410.71~1^410.72~1^410.80~1^410.81~1^410.82~1^410.90~1^410.91~1^410.92~1
196 ;;7007
197 ;;402.00~1^402.01~1^402.10~1^402.11~1
198 ;;7010
199 ;;427.0~1^427.31~1^427.32~1^427.61~1
200 ;;7011
201 ;;427.41~1^427.42~1^427.69~0
202 ;;7015
203 ;;426.0~1^426.10~1^426.11~1^426.12~1^426.13~1^426.2~1^426.3~1^426.4~1^426.50~1^426.51~1^426.52~1^426.53~1^426.54~1
204 ;;7016
205 ;;V42.2~1^V43.3~1
206 ;;7017
207 ;;414.02~1^414.03~1^414.04~1^414.05~1^414.07~1^996.03~1^996.61~0^996.72~0^V45.81~1
208 ;;7018
209 ;;996.01~1^996.61~0^996.72~0^V45.01~1^V53.31~1
210 ;;7019
211 ;;996.83~1^V42.1~1
212 ;;7020
213 ;;086.0~1^425.0~1^425.1~1^425.2~1^425.3~1^425.4~1^425.5~1^425.7~1^425.8~1^425.9~1
214 ;;7101
215 ;;401.0~1^401.1~1^401.9~1^405.09~1^405.19~1^405.99~1
216 ;;7110
217 ;;093.0~1^441.00~1^441.01~1^441.02~1^441.03~1^441.1~1^441.2~1^441.3~1^441.4~1^441.5~1^441.6~1^441.7~1^441.9~1
218 ;;7111
219 ;;442.1~0^442.2~0^442.3~0^442.82~0
220 ;;7112
221 ;;414.11~0
222 ;;7114
223 ;;440.20~0^440.21~0^440.22~0^440.23~0^440.24~0^440.29~0^440.30~0^440.31~0^440.32~0^445.01~0^445.02~0
224 ;;7115
225 ;;443.1~1
226 ;;7117
227 ;;443.0~1
228 ;;7118
229 ;;995.1~1
230 ;;7119
231 ;;443.82~1
232 ;;7120
233 ;;454.0~0^454.1~0^454.2~0^454.8~0
234 ;;7121
235 ;;459.10~0^459.11~0^459.12~0^459.13~0^459.19~0
236 ;;7122
237 ;;991.0~1^991.1~1^991.2~1^991.3~1^991.4~1^991.5~1^991.6~0^991.8~0^991.9~0
238 ;;$EXIT
Note: See TracBrowser for help on using the repository browser.