Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: DVB458P5

DVB458P5.m

Go to the documentation of this file.
  1. DVB458P5 ;ALB/RBS - POST-INSTALL FOR PATCH DVB*4*58 (CONT.) ; 1/3/07 2:20pm
  1. ;;4.0;HINQ;**58**;03/25/92;Build 29
  1. ;
  1. Q ;no direct entry
  1. ;
  1. ;
  1. ;NOTE:
  1. ;The following TEXT lines are a combination of a single 4 digit VBA
  1. ;rated disabilities code (DX CODE) on one line followed by on the
  1. ;next sequential line(s), all of the related ICD9 DIAGNOSIS codes
  1. ;that are to be mapped together. Each IDC9 code also has a (1/0)
  1. ;match value that will be filed with it.
  1. ;
  1. ;Example:
  1. ; ;;5000 = a single (VBA) Rated Disabilities (VA) DX CODE
  1. ; ;;003.24~1^376.03~1^730.00~1^... = string of ICD9 DIAGNOSIS CODES
  1. ; (delimited by (^) up-arrow)
  1. ; Each (^) piece contains 2 pieces of data delimited by (~):
  1. ; $P(1) = a single ICD9 diagnosis code
  1. ; $P(2) = (1/0) match code value
  1. ;
  1. ; Note: If the TEXT line ends with a (;) semi-colon, this means the
  1. ; next sequential line is associated with the same DX CODE.
  1. ; (No sequential line(s) are carried over to the next
  1. ; post-install Routine.)
  1. ;
  1. TEXT ;;7710
  1. ;;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
  1. ;;7714
  1. ;;282.60~1^282.61~1^282.62~1^282.63~1^282.64~1^282.68~1^282.69~1
  1. ;;7715
  1. ;;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
  1. ;;7716
  1. ;;284.01~1^284.8~1^284.9~1^284.09~1^284.1~1^284.2~1
  1. ;;7805
  1. ;;701.4~0^709.2~0
  1. ;;7806
  1. ;;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
  1. ;;7807
  1. ;;085.4~1^085.5~1
  1. ;;7808
  1. ;;085.1~1^085.2~1^085.3~1
  1. ;;7809
  1. ;;373.34~1^695.4~1
  1. ;;7811
  1. ;;017.00~1^017.01~1^017.02~1^017.03~1^017.04~1^017.05~1^017.06~1
  1. ;;7813
  1. ;;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
  1. ;;7815
  1. ;;277.1~0^694.0~1^694.2~1^694.4~1^694.5~1^694.60~1^694.8~1^694.9~1
  1. ;;7816
  1. ;;696.1~1
  1. ;;7818
  1. ;;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
  1. ;;7819
  1. ;;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
  1. ;;7820
  1. ;;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^;
  1. ;;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
  1. ;;7821
  1. ;;710.3~1
  1. ;;7822
  1. ;;696.2~0^696.4~0^697.0~0^697.1~0^697.8~0^697.9~0^698.2~0^698.3~0
  1. ;;7823
  1. ;;709.01~1
  1. ;;7824
  1. ;;701.1~0^098.81~0
  1. ;;7825
  1. ;;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
  1. ;;7826
  1. ;;287.0~0^446.20~0^446.29~0
  1. ;;7827
  1. ;;695.1~1
  1. ;;7828
  1. ;;706.1~1
  1. ;;7830
  1. ;;704.09~1
  1. ;;7831
  1. ;;704.01~1
  1. ;;7832
  1. ;;705.21~1^705.22~1^780.8~1
  1. ;;7833
  1. ;;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
  1. ;;7900
  1. ;;242.01~1^242.41~1^242.81~1^242.91~1
  1. ;;7901
  1. ;;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
  1. ;;7902
  1. ;;240.0~1^240.9~1^241.0~1^241.1~1^241.9~1
  1. ;;7903
  1. ;;244.0~1^244.1~1^244.2~1^244.3~1^244.9~1
  1. ;;7904
  1. ;;252.01~1^252.02~1^588.81~1
  1. ;;7905
  1. ;;252.1~1
  1. ;;7907
  1. ;;255.0~1
  1. ;;7908
  1. ;;253.0~1
  1. ;;7909
  1. ;;253.5~1^588.1~1
  1. ;;7911
  1. ;;255.4~1
  1. ;;7912
  1. ;;258.0~1^258.1~1^258.8~1^258.9~1
  1. ;;7913
  1. ;;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^;
  1. ;;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
  1. ;;7914
  1. ;;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
  1. ;;7915
  1. ;;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
  1. ;;7917
  1. ;;255.10~1^255.12~1^255.14~1
  1. ;;7918
  1. ;;255.6~1
  1. ;;7919
  1. ;;193.~1
  1. ;;8000
  1. ;;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^;
  1. ;;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
  1. ;;8002
  1. ;;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
  1. ;;8003
  1. ;;225.0~1^225.2~1^228.02~1
  1. ;;8004
  1. ;;332.0~1^332.1~1
  1. ;;8005
  1. ;;335.22~1
  1. ;;8007
  1. ;;434.10~1^434.11~1
  1. ;;8008
  1. ;;434.00~1^434.01~1
  1. ;;8009
  1. ;;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
  1. ;;8010
  1. ;;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
  1. ;;8011
  1. ;;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
  1. ;;8013
  1. ;;094.1~1^094.3~1^094.81~1^094.89~1^094.9~1
  1. ;;8014
  1. ;;091.81~1^094.2~1
  1. ;;8015
  1. ;;094.0~1
  1. ;;8017
  1. ;;335.20~1
  1. ;;8018
  1. ;;340.~1
  1. ;;8019
  1. ;;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
  1. ;;8020
  1. ;;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
  1. ;;8021
  1. ;;192.2~1^192.3~1^198.3~1
  1. ;;8022
  1. ;;225.3~1^225.4~1
  1. ;;8023
  1. ;;335.21~1
  1. ;;8024
  1. ;;336.0~1
  1. ;;8025
  1. ;;358.00~1^358.01~1
  1. ;;8045
  1. ;;905.0~0^907.0~1^907.1~0
  1. ;;8046
  1. ;;437.0~1^437.1~1
  1. ;;8100
  1. ;;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
  1. ;;8105
  1. ;;392.0~1^392.9~1
  1. ;;8106
  1. ;;333.4~1
  1. ;;8107
  1. ;;333.71~1^333.72~0^333.79~1
  1. ;;8108
  1. ;;347.00~1
  1. ;;8205
  1. ;;350.9~1
  1. ;;8207
  1. ;;351.0~1
  1. ;;8209
  1. ;;352.2~1
  1. ;;8210
  1. ;;352.3~1
  1. ;;8211
  1. ;;352.4~0
  1. ;;8212
  1. ;;352.5~0
  1. ;;8305
  1. ;;350.1~1
  1. ;;8307
  1. ;;351.8~0
  1. ;;8309
  1. ;;352.1~1
  1. ;;8310
  1. ;;352.3~0
  1. ;;8311
  1. ;;352.4~0
  1. ;;8312
  1. ;;352.5~0
  1. ;;8405
  1. ;;053.12~1^350.1~1
  1. ;;8407
  1. ;;351.8~0
  1. ;;8409
  1. ;;352.1~1
  1. ;;8410
  1. ;;352.3~0
  1. ;;8411
  1. ;;352.4~0
  1. ;;8412
  1. ;;352.5~0
  1. ;;8514
  1. ;;354.3~0
  1. ;;8515
  1. ;;354.1~0
  1. ;;8516
  1. ;;354.2~0
  1. ;;8520
  1. ;;355.0~0
  1. ;;8521
  1. ;;355.3~0
  1. ;;8526
  1. ;;355.2~0
  1. ;;8529
  1. ;;355.1~0
  1. ;;8530
  1. ;;355.79~0
  1. ;;8614
  1. ;;723.4~0
  1. ;;8615
  1. ;;354.1~0
  1. ;;8620
  1. ;;724.3~0
  1. ;;8621
  1. ;;355.3~0
  1. ;;8625
  1. ;;355.5~0
  1. ;;8626
  1. ;;355.2~0
  1. ;;8629
  1. ;;355.1~0
  1. ;;8715
  1. ;;354.1~0
  1. ;;8720
  1. ;;724.3~0
  1. ;;8725
  1. ;;355.5~0
  1. ;;8729
  1. ;;355.1~0
  1. ;;8910
  1. ;;345.10~1^345.11~1^345.3~1
  1. ;;8911
  1. ;;345.00~1^345.01~1^345.2~1
  1. ;;8912
  1. ;;345.50~1^345.51~1
  1. ;;8913
  1. ;;345.40~1^345.41~1
  1. ;;8914
  1. ;;345.40~1^345.41~1
  1. ;;9201
  1. ;;295.10~1^295.11~1^295.12~1^295.13~1^295.14~1^295.15~1
  1. ;;9202
  1. ;;295.20~1^295.21~1^295.22~1^295.23~1^295.24~1^295.25~1
  1. ;;9203
  1. ;;295.30~1^295.31~1^295.32~1^295.33~1^295.34~1^295.35~1
  1. ;;9204
  1. ;;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
  1. ;;9205
  1. ;;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
  1. ;;9208
  1. ;;297.0~1^297.1~1^297.2~1^297.3~1^297.8~1^297.9~1^298.3~1^298.4~1
  1. ;;9210
  1. ;;290.20~0^290.8~0^291.89~0^291.9~0^292.9~0^298.9~0
  1. ;;9211
  1. ;;295.70~1^295.71~1^295.72~1^295.73~1^295.74~1^295.75~1
  1. ;;9300
  1. ;;291.0~0^292.81~0^293.0~0^293.1~0
  1. ;;9301
  1. ;;042.~0^094.1~0^294.10~0
  1. ;;9304
  1. ;;294.10~0^294.11~0^310.2~0^905.0~0^907.0~0^907.1~0
  1. ;;9305
  1. ;;290.40~1^290.41~1^290.42~1^290.43~1
  1. ;;9310
  1. ;;290.12~0^290.13~0^290.3~0^331.19~0
  1. ;;9312
  1. ;;331.0~1
  1. ;;9326
  1. ;;290.0~0^290.10~0^290.11~0^290.20~0^290.21~0^291.2~0^292.82~0
  1. ;;9400
  1. ;;300.02~1
  1. ;;9403
  1. ;;300.20~1^300.23~1^300.29~1
  1. ;;9404
  1. ;;300.3~1
  1. ;;9410
  1. ;;300.89~1^300.9~1
  1. ;;9411
  1. ;;308.3~1^309.81~1
  1. ;;9412
  1. ;;300.01~1^300.21~1^300.22~1
  1. ;;9413
  1. ;;300.00~1^300.02~1^300.09~1^309.21~1
  1. ;;9416
  1. ;;300.12~1^300.13~1^300.14~1^300.15~1
  1. ;;9417
  1. ;;300.6~1
  1. ;;9421
  1. ;;300.81~1
  1. ;;9422
  1. ;;307.80~1^307.89~1^338.4~1
  1. ;;9423
  1. ;;300.82~1
  1. ;;9424
  1. ;;300.10~1^300.11~1^300.15~1
  1. ;;9425
  1. ;;300.7~1
  1. ;;9431
  1. ;;301.13~1
  1. ;;9432
  1. ;;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^;
  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
  1. ;;9433
  1. ;;300.4~1
  1. ;;9434
  1. ;;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
  1. ;;9435
  1. ;;296.89~0^296.90~0^296.99~0
  1. ;;9440
  1. ;;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
  1. ;;9520
  1. ;;307.1~1
  1. ;;9521
  1. ;;307.51~1
  1. ;;9905
  1. ;;524.52~1^524.60~0^524.61~1^524.62~0^524.63~0^524.69~0
  1. ;;$EXIT