DVB458P6 ;ALB/RBS/JAM - POST-INSTALL FOR PATCH DVB*4*58 (CONT.) ; 07/24/07 11:13am
;;4.0;HINQ;**58**;03/25/92;Build 29
;
Q ;no direct entry
;
;
;NOTE:
;The following TEXT lines are a combination of a single 4 digit VBA
;rated disabilities code (DX CODE) on one line followed by on the
;next sequential line(s), all of the related ICD9 DIAGNOSIS codes
;that are to be mapped together. Each IDC9 code also has a (1/0)
;match value that will be filed with it.
;
;Example:
; ;;5000 = a single (VBA) Rated Disabilities (VA) DX CODE
; ;;003.24~1^376.03~1^730.00~1^... = string of ICD9 DIAGNOSIS CODES
; (delimited by (^) up-arrow)
; Each (^) piece contains 2 pieces of data delimited by (~):
; $P(1) = a single ICD9 diagnosis code
; $P(2) = (1/0) match code value
;
; Note: If the TEXT line ends with a (;) semi-colon, this means the
; next sequential line is associated with the same DX CODE.
; (No sequential line(s) are carried over to the next
; post-install Routine.)
;
TEXT ;;5237
;;905.7~0^724.6~0
;;5295
;;724.6~0^905.7~0
;;6101
;;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
;;6102
;;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
;;6103
;;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
;;6104
;;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
;;6105
;;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
;;6106
;;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
;;6107
;;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
;;6108
;;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
;;6109
;;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
;;6110
;;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
;;6206
;;383.1~0
;;6250
;;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
;;6277
;;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
;;6278
;;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
;;6281
;;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
;;6282
;;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
;;6284
;;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
;;6286
;;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
;;6287
;;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
;;6288
;;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
;;6289
;;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
;;6290
;;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
;;6291
;;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
;;6292
;;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
;;6293
;;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
;;6294
;;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
;;6295
;;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
;;6296
;;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
;;6297
;;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
;;6801
;;502.~1
;;6802
;;500.~1^503.~1^504.~1^505.~1
;;6803
;;039.1~1
;;6806
;;117.1~1
;;7810
;;103.0~1^103.1~1^103.2~1^103.3~1^103.9~1
;;9206
;;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^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
;;9207
;;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
;;9402
;;300.10~1^300.11~1^300.15~1
;;9405
;;300.4~1
;;$EXIT
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDVB458P6 6202 printed Dec 13, 2024@01:57:45 Page 2
DVB458P6 ;ALB/RBS/JAM - POST-INSTALL FOR PATCH DVB*4*58 (CONT.) ; 07/24/07 11:13am
+1 ;;4.0;HINQ;**58**;03/25/92;Build 29
+2 ;
+3 ;no direct entry
QUIT
+4 ;
+5 ;
+6 ;NOTE:
+7 ;The following TEXT lines are a combination of a single 4 digit VBA
+8 ;rated disabilities code (DX CODE) on one line followed by on the
+9 ;next sequential line(s), all of the related ICD9 DIAGNOSIS codes
+10 ;that are to be mapped together. Each IDC9 code also has a (1/0)
+11 ;match value that will be filed with it.
+12 ;
+13 ;Example:
+14 ; ;;5000 = a single (VBA) Rated Disabilities (VA) DX CODE
+15 ; ;;003.24~1^376.03~1^730.00~1^... = string of ICD9 DIAGNOSIS CODES
+16 ; (delimited by (^) up-arrow)
+17 ; Each (^) piece contains 2 pieces of data delimited by (~):
+18 ; $P(1) = a single ICD9 diagnosis code
+19 ; $P(2) = (1/0) match code value
+20 ;
+21 ; Note: If the TEXT line ends with a (;) semi-colon, this means the
+22 ; next sequential line is associated with the same DX CODE.
+23 ; (No sequential line(s) are carried over to the next
+24 ; post-install Routine.)
+25 ;
TEXT ;;5237
+1 ;;905.7~0^724.6~0
+2 ;;5295
+3 ;;724.6~0^905.7~0
+4 ;;6101
+5 ;;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
+6 ;;6102
+7 ;;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
+8 ;;6103
+9 ;;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
+10 ;;6104
+11 ;;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
+12 ;;6105
+13 ;;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
+14 ;;6106
+15 ;;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
+16 ;;6107
+17 ;;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
+18 ;;6108
+19 ;;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
+20 ;;6109
+21 ;;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
+22 ;;6110
+23 ;;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
+24 ;;6206
+25 ;;383.1~0
+26 ;;6250
+27 ;;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
+28 ;;6277
+29 ;;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
+30 ;;6278
+31 ;;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
+32 ;;6281
+33 ;;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
+34 ;;6282
+35 ;;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
+36 ;;6284
+37 ;;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
+38 ;;6286
+39 ;;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
+40 ;;6287
+41 ;;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
+42 ;;6288
+43 ;;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
+44 ;;6289
+45 ;;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
+46 ;;6290
+47 ;;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
+48 ;;6291
+49 ;;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
+50 ;;6292
+51 ;;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
+52 ;;6293
+53 ;;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
+54 ;;6294
+55 ;;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
+56 ;;6295
+57 ;;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
+58 ;;6296
+59 ;;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
+60 ;;6297
+61 ;;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
+62 ;;6801
+63 ;;502.~1
+64 ;;6802
+65 ;;500.~1^503.~1^504.~1^505.~1
+66 ;;6803
+67 ;;039.1~1
+68 ;;6806
+69 ;;117.1~1
+70 ;;7810
+71 ;;103.0~1^103.1~1^103.2~1^103.3~1^103.9~1
+72 ;;9206
+73 ;;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^;
+74 ;;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
+75 ;;9207
+76 ;;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
+77 ;;9402
+78 ;;300.10~1^300.11~1^300.15~1
+79 ;;9405
+80 ;;300.4~1
+81 ;;$EXIT
