source: FOIAVistA/trunk/r/HINQ-DVB--DVBA--DVBE--DVBC/DVB458P6.m@ 635

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

initial load of FOIAVistA 6/30/08 version
File size: 6.0 KB
Line 
1DVB458P6 ;ALB/RBS/JAM - POST-INSTALL FOR PATCH DVB*4*58 (CONT.) ; 07/24/07 11:13am
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 ;;5237
28 ;;905.7~0^724.6~0
29 ;;5295
30 ;;724.6~0^905.7~0
31 ;;6101
32 ;;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~0^389.18~1^389.2~0^389.7~0^389.8~0^389.9~0
33 ;;6102
34 ;;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~0^389.18~1^389.2~0^389.7~0^389.8~0^389.9~0
35 ;;6103
36 ;;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~0^389.18~1^389.2~0^389.7~0^389.8~0^389.9~0
37 ;;6104
38 ;;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~0^389.18~0^389.2~0^389.7~0^389.8~0^389.9~0
39 ;;6105
40 ;;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~0^389.18~1^389.2~0^389.7~0^389.8~0^389.9~0
41 ;;6106
42 ;;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~0^389.18~1^389.2~0^389.7~0^389.8~0^389.9~0
43 ;;6107
44 ;;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~0^389.18~1^389.2~0^389.7~0^389.8~0^389.9~0
45 ;;6108
46 ;;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~0^389.18~1^389.2~0^389.7~0^389.8~0^389.9~0
47 ;;6109
48 ;;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~0^389.18~1^389.2~0^389.7~0^389.8~0^389.9~0
49 ;;6110
50 ;;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~0^389.18~1^389.2~0^389.7~0^389.8~0^389.9~0
51 ;;6206
52 ;;383.1~0
53 ;;6250
54 ;;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~0^389.18~1^389.2~0^389.7~0^389.8~0^389.9~0
55 ;;6277
56 ;;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~0^389.18~1^389.2~0^389.7~0^389.8~0^389.9~0
57 ;;6278
58 ;;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~0^389.18~1^389.2~0^389.7~0^389.8~0^389.9~0
59 ;;6281
60 ;;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~0^389.18~1^389.2~0^389.7~0^389.8~0^389.9~0
61 ;;6282
62 ;;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~0^389.18~1^389.2~0^389.7~0^389.8~0^389.9~0
63 ;;6284
64 ;;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~0^389.18~1^389.2~0^389.7~0^389.8~0^389.9~0
65 ;;6286
66 ;;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~0^389.14~1^389.16~1^389.18~0^389.2~1^389.7~0^389.8~0^389.9~0
67 ;;6287
68 ;;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~0^389.18~1^389.2~0^389.7~0^389.8~0^389.9~0
69 ;;6288
70 ;;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~0^389.14~0^389.16~1^389.18~1^389.2~0^389.7~1^389.8~0^389.9~0
71 ;;6289
72 ;;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~0^389.14~0^389.16~1^389.18~1^389.2~0^389.7~1^389.8~0^389.9~0
73 ;;6290
74 ;;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~0^389.14~0^389.16~1^389.18~1^389.2~0^389.7~1^389.8~0^389.9~0
75 ;;6291
76 ;;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~0^389.14~0^389.16~1^389.18~1^389.2~0^389.7~1^389.8~0^389.9~0
77 ;;6292
78 ;;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~0^389.14~0^389.16~1^389.18~1^389.2~0^389.7~1^389.8~0^389.9~0
79 ;;6293
80 ;;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~0^389.14~0^389.16~1^389.18~1^389.2~0^389.7~1^389.8~0^389.9~0
81 ;;6294
82 ;;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~0^389.14~0^389.16~1^389.18~1^389.2~0^389.7~1^389.8~0^389.9~0
83 ;;6295
84 ;;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~0^389.14~0^389.16~1^389.18~1^389.2~0^389.7~1^389.8~0^389.9~0
85 ;;6296
86 ;;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~0^389.14~0^389.16~1^389.18~1^389.2~0^389.7~1^389.8~0^389.9~0
87 ;;6297
88 ;;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~0^389.18~1^389.2~0^389.7~0^389.8~0^389.9~0
89 ;;6801
90 ;;502.~1
91 ;;6802
92 ;;500.~1^503.~1^504.~1^505.~1
93 ;;6803
94 ;;039.1~1
95 ;;6806
96 ;;117.1~1
97 ;;7810
98 ;;103.0~1^103.1~1^103.2~1^103.3~1^103.9~1
99 ;;9206
100 ;;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^;
101 ;;296.46~1^296.50~1^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
102 ;;9207
103 ;;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
104 ;;9402
105 ;;300.10~1^300.11~1^300.15~1
106 ;;9405
107 ;;300.4~1
108 ;;$EXIT
Note: See TracBrowser for help on using the repository browser.