- DVB458P5 ;ALB/RBS - POST-INSTALL FOR PATCH DVB*4*58 (CONT.) ; 1/3/07 2:20pm
- ;;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 ;;7710
- ;;012.10~1^012.11~1^012.12~1^012.13~1^012.14~1^012.15~1^012.16~1^017.20~1^017.21~1^017.22~1^017.23~1^017.24~1^017.25~1^017.26~1
- ;;7714
- ;;282.60~1^282.61~1^282.62~1^282.63~1^282.64~1^282.68~1^282.69~1
- ;;7715
- ;;202.80~1^202.81~1^202.82~1^202.83~1^202.84~1^202.85~1^202.86~1^202.87~1^202.88~1
- ;;7716
- ;;284.01~1^284.8~1^284.9~1^284.09~1^284.1~1^284.2~1
- ;;7805
- ;;701.4~0^709.2~0
- ;;7806
- ;;690.10~0^690.18~0^690.8~0^691.8~0^692.0~0^692.1~0^692.2~0^692.3~0^692.4~0^692.5~0^692.6~0^692.70~0^692.72~0^692.74~1^692.79~0^692.81~0^692.82~0^692.83~0^692.89~1^692.9~1^693.0~0^693.8~0^693.9~0
- ;;7807
- ;;085.4~1^085.5~1
- ;;7808
- ;;085.1~1^085.2~1^085.3~1
- ;;7809
- ;;373.34~1^695.4~1
- ;;7811
- ;;017.00~1^017.01~1^017.02~1^017.03~1^017.04~1^017.05~1^017.06~1
- ;;7813
- ;;110.0~0^110.1~0^110.2~0^110.3~0^110.4~0^110.5~0^110.6~0^110.8~0^110.9~0
- ;;7815
- ;;277.1~0^694.0~1^694.2~1^694.4~1^694.5~1^694.60~1^694.8~1^694.9~1
- ;;7816
- ;;696.1~1
- ;;7818
- ;;173.0~0^173.1~0^173.2~0^173.3~0^173.4~0^173.5~0^173.6~0^173.7~0^173.8~0^173.9~0^198.2~0^232.0~0^232.1~0^232.2~0^232.3~0^232.4~0^232.5~0^232.6~0^232.7~0^232.8~0^232.9~0
- ;;7819
- ;;214.0~0^214.1~0^216.0~0^216.1~0^216.2~0^216.3~0^216.4~0^216.5~0^216.6~0^216.7~0^216.8~0^216.9~0^228.01~0
- ;;7820
- ;;022.0~0^078.10~0^078.11~0^078.19~0^111.0~0^111.1~0^111.2~0^111.3~0^111.8~0^111.9~0^132.0~0^132.1~0^132.2~0^132.3~0^132.9~0^133.0~0^133.8~0^133.9~0^134.0~0^134.1~0^134.2~0^134.8~0^681.00~0^681.01~0^;
- ;;681.02~0^681.10~0^681.11~0^681.9~0^682.0~0^682.1~0^682.2~0^682.3~0^682.4~0^682.5~0^682.6~0^682.7~0^682.8~0^682.9~0^686.00~0^686.01~0^686.09~0^686.1~0^686.8~0
- ;;7821
- ;;710.3~1
- ;;7822
- ;;696.2~0^696.4~0^697.0~0^697.1~0^697.8~0^697.9~0^698.2~0^698.3~0
- ;;7823
- ;;709.01~1
- ;;7824
- ;;701.1~0^098.81~0
- ;;7825
- ;;698.2~1^708.0~1^708.1~1^708.2~1^708.3~1^708.4~1^708.5~1^708.8~1^708.9~1
- ;;7826
- ;;287.0~0^446.20~0^446.29~0
- ;;7827
- ;;695.1~1
- ;;7828
- ;;706.1~1
- ;;7830
- ;;704.09~1
- ;;7831
- ;;704.01~1
- ;;7832
- ;;705.21~1^705.22~1^780.8~1
- ;;7833
- ;;172.0~0^172.1~0^172.3~0^172.4~0^172.5~0^172.6~0^172.7~0^172.8~0^172.9~0
- ;;7900
- ;;242.01~1^242.41~1^242.81~1^242.91~1
- ;;7901
- ;;242.00~1^242.01~1^242.10~1^242.11~1^242.20~1^242.21~1^242.30~1^242.31~1^242.40~1^242.41~1^242.80~1^242.81~1^242.90~1^242.91~1
- ;;7902
- ;;240.0~1^240.9~1^241.0~1^241.1~1^241.9~1
- ;;7903
- ;;244.0~1^244.1~1^244.2~1^244.3~1^244.9~1
- ;;7904
- ;;252.01~1^252.02~1^588.81~1
- ;;7905
- ;;252.1~1
- ;;7907
- ;;255.0~1
- ;;7908
- ;;253.0~1
- ;;7909
- ;;253.5~1^588.1~1
- ;;7911
- ;;255.4~1
- ;;7912
- ;;258.0~1^258.1~1^258.8~1^258.9~1
- ;;7913
- ;;250.00~1^250.01~1^250.02~1^250.03~1^250.10~1^250.11~1^250.12~1^250.13~1^250.20~1^250.21~1^250.22~1^250.23~1^250.30~1^250.31~1^250.32~1^250.33~1^250.40~0^250.41~0^250.42~0^250.43~0^250.50~0^250.51~0^;
- ;;250.52~0^250.53~0^250.60~0^250.61~0^250.62~0^250.63~0^250.70~0^250.71~0^250.72~0^250.73~0^250.80~0^250.81~0^250.82~1^250.83~1^250.90~0^250.91~0^250.92~1^250.93~1^648.00~0^648.01~0^648.02~0^648.03~0^648.04~0
- ;;7914
- ;;157.4~0^193.~0^194.0~0^194.1~0^194.3~0^194.4~0^194.5~0^194.6~0^194.8~0^194.9~0^198.7~0
- ;;7915
- ;;211.7~0^226.~0^227.0~0^227.1~0^227.3~0^227.4~0^227.5~0^227.6~0^227.8~0^227.9~0
- ;;7917
- ;;255.10~1^255.12~1^255.14~1
- ;;7918
- ;;255.6~1
- ;;7919
- ;;193.~1
- ;;8000
- ;;013.60~0^013.61~0^013.62~0^013.63~0^013.64~0^013.65~0^013.66~0^036.1~0^054.3~0^062.1~0^062.2~0^062.3~0^062.4~0^062.5~0^062.8~0^062.9~0^063.0~0^063.2~0^063.8~0^063.9~0^064.~0^066.41~0^323.61~0^052.0~0^;
- ;;055.0~0^056.01~0^130.0~0^323.01~0^323.1~0^323.2~0^323.41~0^323.51~0^323.62 ~0^323.71~0^323.81~0^323.9~0
- ;;8002
- ;;191.0~1^191.1~1^191.2~1^191.3~1^191.4~1^191.5~1^191.6~1^191.7~1^191.8~1^191.9~1^192.1~1^198.3~0
- ;;8003
- ;;225.0~1^225.2~1^228.02~1
- ;;8004
- ;;332.0~1^332.1~1
- ;;8005
- ;;335.22~1
- ;;8007
- ;;434.10~1^434.11~1
- ;;8008
- ;;434.00~1^434.01~1
- ;;8009
- ;;431.~1^432.0~1^432.1~1^432.9~1^853.00~1^853.01~1^853.02~1^853.03~1^853.04~1^853.05~1^853.06~1^853.09~1^853.10~1^853.11~1^853.12~1^853.13~1^853.14~1^853.15~1^853.16~1^853.19~1^997.02~0
- ;;8010
- ;;013.60~1^013.61~1^013.62~1^013.63~1^013.64~1^013.65~1^013.66~1^052.2~1^054.74~1^053.14~1^323.02~1^323.1~1^323.2~1^323.42~1^323.52~1^323.63~1^323.72~1^323.82~1^323.9~1
- ;;8011
- ;;045.00~1^045.01~1^045.02~1^045.03~1^045.10~1^045.11~1^045.12~1^045.13~1^045.20~1^045.21~1^045.22~1^045.23~1^045.90~1^045.91~1^045.92~1^045.93~1^138.~1
- ;;8013
- ;;094.1~1^094.3~1^094.81~1^094.89~1^094.9~1
- ;;8014
- ;;091.81~1^094.2~1
- ;;8015
- ;;094.0~1
- ;;8017
- ;;335.20~1
- ;;8018
- ;;340.~1
- ;;8019
- ;;036.0~0^098.82~0^320.0~0^320.1~0^320.2~0^320.3~0^320.7~0^320.81~0^320.82~0^320.89~0^320.9~0
- ;;8020
- ;;006.5~1^013.30~1^013.31~1^013.32~1^013.33~1^013.34~1^013.35~1^013.36~1^324.0~1^326.~1
- ;;8021
- ;;192.2~1^192.3~1^198.3~1
- ;;8022
- ;;225.3~1^225.4~1
- ;;8023
- ;;335.21~1
- ;;8024
- ;;336.0~1
- ;;8025
- ;;358.00~1^358.01~1
- ;;8045
- ;;905.0~0^907.0~1^907.1~0
- ;;8046
- ;;437.0~1^437.1~1
- ;;8100
- ;;346.00~1^346.01~1^346.10~1^346.11~1^346.20~1^346.21~1^346.80~1^346.81~1^346.90~1^346.91~1
- ;;8105
- ;;392.0~1^392.9~1
- ;;8106
- ;;333.4~1
- ;;8107
- ;;333.71~1^333.72~0^333.79~1
- ;;8108
- ;;347.00~1
- ;;8205
- ;;350.9~1
- ;;8207
- ;;351.0~1
- ;;8209
- ;;352.2~1
- ;;8210
- ;;352.3~1
- ;;8211
- ;;352.4~0
- ;;8212
- ;;352.5~0
- ;;8305
- ;;350.1~1
- ;;8307
- ;;351.8~0
- ;;8309
- ;;352.1~1
- ;;8310
- ;;352.3~0
- ;;8311
- ;;352.4~0
- ;;8312
- ;;352.5~0
- ;;8405
- ;;053.12~1^350.1~1
- ;;8407
- ;;351.8~0
- ;;8409
- ;;352.1~1
- ;;8410
- ;;352.3~0
- ;;8411
- ;;352.4~0
- ;;8412
- ;;352.5~0
- ;;8514
- ;;354.3~0
- ;;8515
- ;;354.1~0
- ;;8516
- ;;354.2~0
- ;;8520
- ;;355.0~0
- ;;8521
- ;;355.3~0
- ;;8526
- ;;355.2~0
- ;;8529
- ;;355.1~0
- ;;8530
- ;;355.79~0
- ;;8614
- ;;723.4~0
- ;;8615
- ;;354.1~0
- ;;8620
- ;;724.3~0
- ;;8621
- ;;355.3~0
- ;;8625
- ;;355.5~0
- ;;8626
- ;;355.2~0
- ;;8629
- ;;355.1~0
- ;;8715
- ;;354.1~0
- ;;8720
- ;;724.3~0
- ;;8725
- ;;355.5~0
- ;;8729
- ;;355.1~0
- ;;8910
- ;;345.10~1^345.11~1^345.3~1
- ;;8911
- ;;345.00~1^345.01~1^345.2~1
- ;;8912
- ;;345.50~1^345.51~1
- ;;8913
- ;;345.40~1^345.41~1
- ;;8914
- ;;345.40~1^345.41~1
- ;;9201
- ;;295.10~1^295.11~1^295.12~1^295.13~1^295.14~1^295.15~1
- ;;9202
- ;;295.20~1^295.21~1^295.22~1^295.23~1^295.24~1^295.25~1
- ;;9203
- ;;295.30~1^295.31~1^295.32~1^295.33~1^295.34~1^295.35~1
- ;;9204
- ;;295.60~0^295.61~0^295.62~0^295.63~0^295.64~0^295.65~0^295.80~0^295.81~0^295.82~0^295.83~0^295.84~0^295.85~0
- ;;9205
- ;;295.60~1^295.61~1^295.62~1^295.63~1^295.64~1^295.65~1^295.80~1^295.81~1^295.82~1^295.83~1^295.84~1^295.85~1^295.90~1^295.91~1^295.92~1^295.93~1^295.94~1^295.95~1
- ;;9208
- ;;297.0~1^297.1~1^297.2~1^297.3~1^297.8~1^297.9~1^298.3~1^298.4~1
- ;;9210
- ;;290.20~0^290.8~0^291.89~0^291.9~0^292.9~0^298.9~0
- ;;9211
- ;;295.70~1^295.71~1^295.72~1^295.73~1^295.74~1^295.75~1
- ;;9300
- ;;291.0~0^292.81~0^293.0~0^293.1~0
- ;;9301
- ;;042.~0^094.1~0^294.10~0
- ;;9304
- ;;294.10~0^294.11~0^310.2~0^905.0~0^907.0~0^907.1~0
- ;;9305
- ;;290.40~1^290.41~1^290.42~1^290.43~1
- ;;9310
- ;;290.12~0^290.13~0^290.3~0^331.19~0
- ;;9312
- ;;331.0~1
- ;;9326
- ;;290.0~0^290.10~0^290.11~0^290.20~0^290.21~0^291.2~0^292.82~0
- ;;9400
- ;;300.02~1
- ;;9403
- ;;300.20~1^300.23~1^300.29~1
- ;;9404
- ;;300.3~1
- ;;9410
- ;;300.89~1^300.9~1
- ;;9411
- ;;308.3~1^309.81~1
- ;;9412
- ;;300.01~1^300.21~1^300.22~1
- ;;9413
- ;;300.00~1^300.02~1^300.09~1^309.21~1
- ;;9416
- ;;300.12~1^300.13~1^300.14~1^300.15~1
- ;;9417
- ;;300.6~1
- ;;9421
- ;;300.81~1
- ;;9422
- ;;307.80~1^307.89~1^338.4~1
- ;;9423
- ;;300.82~1
- ;;9424
- ;;300.10~1^300.11~1^300.15~1
- ;;9425
- ;;300.7~1
- ;;9431
- ;;301.13~1
- ;;9432
- ;;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
- ;;9433
- ;;300.4~1
- ;;9434
- ;;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
- ;;9435
- ;;296.89~0^296.90~0^296.99~0
- ;;9440
- ;;309.1~0^309.21~1^309.22~0^309.23~0^309.24~0^309.28~0^309.29~0^309.3~1^309.4~1^309.82~1^309.83~1^309.89~1^309.9~1
- ;;9520
- ;;307.1~1
- ;;9521
- ;;307.51~1
- ;;9905
- ;;524.52~1^524.60~0^524.61~1^524.62~0^524.63~0^524.69~0
- ;;$EXIT