109 lines
6.0 KiB
Mathematica
109 lines
6.0 KiB
Mathematica
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
|