VistA-FOIAVistA/r/HINQ-DVB--DVBA--DVBE--DVBC/DVB458P5.m

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