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

DVB458P2.m

Go to the documentation of this file.
  1. DVB458P2 ;ALB/RBS - POST-INSTALL FOR PATCH DVB*4*58 (CONT.) ; 1/3/07 2:18pm
  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 ;;5005
  1. ;;041.2~0^711.00~0^711.01~0^711.02~0^711.03~0^711.04~0^711.05~0^711.06~0^711.07~0^711.08~0^711.09~0
  1. ;;5006
  1. ;;002.0~0^711.00~0^711.01~0^711.02~0^711.03~0^711.04~0^711.05~0^711.06~0^711.07~0^711.08~0^711.09~0
  1. ;;5007
  1. ;;094.0~0^713.5~0
  1. ;;5008
  1. ;;041.00~0^041.01~0^041.02~0^041.03~0^041.04~0^041.05~0^041.09~0^711.00~0^711.01~0^711.02~0^711.03~0^711.04~0^711.05~0^711.06~0^711.07~0^711.08~0^711.09~0
  1. ;;5009
  1. ;;003.23~0^036.82~0^056.71~0^711.11~0^711.12~0^711.13~0^711.14~0^711.15~0^711.16~0^711.17~0^711.18~0^711.19~0^711.31~0^711.32~0^711.33~0^711.34~0^711.35~0^711.36~0^711.37~0^711.38~0^711.39~0^711.41~0^;
  1. ;;711.42~0^711.43~0^711.44~0^711.45~0^711.46~0^711.47~0^711.48~0^711.49~0^711.51~0^711.52~0^711.53~0^711.54~0^711.55~0^711.56~0^711.57~0^711.58~0^711.59~0^711.91~0^711.92~0^711.93~0^711.94~0^711.95~0^;
  1. ;;711.96~0^711.97~0^711.98~0^711.99~0^716.38~0
  1. ;;5010
  1. ;;716.10~0^716.11~0^716.12~0^716.13~0^716.14~0^716.15~0^716.16~0^716.17~0^716.18~0^716.19~1
  1. ;;5011
  1. ;;993.3~1
  1. ;;5012
  1. ;;160.0~0^170.0~0^170.1~0^170.2~0^170.3~0^170.4~0^170.5~0^170.6~0^170.7~0^170.8~0^170.9~0^198.5~0
  1. ;;5014
  1. ;;268.2~1
  1. ;;5015
  1. ;;212.0~0^213.0~0^213.1~0^213.2~0^213.3~0^213.4~0^213.5~0^213.6~0^213.7~0^213.8~0^213.9~0^376.42~0^726.91~0
  1. ;;5016
  1. ;;731.0~0^731.1~0
  1. ;;5017
  1. ;;274.0~1^274.82~1^274.89~1^274.9~1
  1. ;;5018
  1. ;;719.30~0^719.31~0^719.32~0^719.33~0^719.34~0^719.35~0^719.36~0^719.37~0^719.38~0^719.39~0
  1. ;;5019
  1. ;;095.7~0^098.52~0^726.33~0^726.61~0^726.62~0^726.63~0^726.65~0^727.2~0^727.3~0
  1. ;;5020
  1. ;;095.7~0^098.51~0^719.20~0^719.21~0^719.22~0^719.23~0^719.24~0^719.25~0^719.26~0^719.27~0^719.28~0^719.29~0^727.00~0^727.03~0^727.04~0^727.05~0^727.06~0^727.09~0
  1. ;;5021
  1. ;;040.81~0^095.6~0^710.4~0^728.0~0^728.81~0^729.1~0
  1. ;;5022
  1. ;;091.61~0^376.02~0^730.30~0^730.31~0^730.32~0^730.33~0^730.34~0^730.35~0^730.36~0^730.37~0^730.38~0^730.39~0
  1. ;;5023
  1. ;;728.10~0^728.11~0^728.12~0^728.13~0^728.19~0
  1. ;;5024
  1. ;;098.51~0^726.11~0^726.61~0^726.62~0^726.63~0^726.64~0^726.65~0^726.72~0^727.03~0^727.04~0^727.05~0^727.06~0^727.09~0
  1. ;;5025
  1. ;;729.1~1
  1. ;;5051
  1. ;;996.40~0^996.41~0^996.42~0^996.43~0^996.44~0^996.45~0^996.46~0^996.47~0^996.49~0^996.66~0^996.77~0^V43.61~0
  1. ;;5052
  1. ;;996.40~0^996.41~0^996.42~0^996.43~0^996.44~0^996.45~0^996.46~0^996.47~0^996.49~0^996.66~0^996.77~0^V43.62~0
  1. ;;5053
  1. ;;996.40~0^996.41~0^996.42~0^996.43~0^996.44~0^996.45~0^996.46~0^996.47~0^996.49~0^996.66~0^996.77~0^V43.63~0
  1. ;;5054
  1. ;;996.40~0^996.41~0^996.42~0^996.43~0^996.44~0^996.45~0^996.46~0^996.47~0^996.49~0^996.66~0^996.77~0^V43.64~0
  1. ;;5055
  1. ;;996.40~0^996.41~0^996.42~0^996.43~0^996.44~0^996.45~0^996.46~0^996.47~0^996.49~0^996.66~0^996.77~0^V43.65~0
  1. ;;5056
  1. ;;996.40~0^996.41~0^996.42~0^996.43~0^996.44~0^996.45~0^996.46~0^996.47~0^996.49~0^996.66~0^996.77~0^V43.66~0
  1. ;;5106
  1. ;;887.6~1^887.7~1
  1. ;;5107
  1. ;;896.2~1^896.3~1
  1. ;;5108
  1. ;;887.0~0^887.1~0^887.2~0^887.3~0^887.4~0^887.5~0^896.0~0^896.1~0^V49.63~0^V49.73~0
  1. ;;5120
  1. ;;V49.67~0
  1. ;;5171
  1. ;;V49.71~0
  1. ;;5172
  1. ;;V49.72~0
  1. ;;5173
  1. ;;V49.72~0
  1. ;;5200
  1. ;;718.51~0
  1. ;;5201
  1. ;;719.51~0
  1. ;;5202
  1. ;;718.31~0^718.81~0
  1. ;;5205
  1. ;;718.52~0
  1. ;;5206
  1. ;;718.42~0
  1. ;;5207
  1. ;;718.42~0
  1. ;;5214
  1. ;;718.53~0
  1. ;;5215
  1. ;;718.43~0
  1. ;;5236
  1. ;;724.6~1
  1. ;;5238
  1. ;;723.0~0^724.00~0^724.01~0^724.02~0^724.09~0
  1. ;;5239
  1. ;;738.4~0
  1. ;;5240
  1. ;;720.0~0
  1. ;;5242
  1. ;;721.0~0^721.2~0^721.3~0^721.6~0^721.7~0^721.90~0
  1. ;;5243
  1. ;;722.70~0^722.71~0^722.72~0^722.73~0
  1. ;;5250
  1. ;;718.55~1
  1. ;;5254
  1. ;;718.85~1
  1. ;;5255
  1. ;;733.81~0^733.82~0^905.3~0
  1. ;;5256
  1. ;;718.56~0
  1. ;;5257
  1. ;;718.36~0^718.86~0
  1. ;;5258
  1. ;;718.36~0^836.0~0^836.1~0^836.2~0
  1. ;;5260
  1. ;;718.46~0
  1. ;;5261
  1. ;;718.46~0
  1. ;;5263
  1. ;;736.5~0
  1. ;;5275
  1. ;;736.81~0
  1. ;;5276
  1. ;;734.~0
  1. ;;5278
  1. ;;736.74~0
  1. ;;5279
  1. ;;355.6~0
  1. ;;5280
  1. ;;735.0~0
  1. ;;5281
  1. ;;735.2~0
  1. ;;5282
  1. ;;735.3~0^735.4~0
  1. ;;5324
  1. ;;551.3~1^552.3~1^553.3~1
  1. ;;5329
  1. ;;176.1~1
  1. ;;6000
  1. ;;053.22~0^054.44~0^091.50~0^098.41~0^360.11~0^360.12~0^363.21~0^364.00~0^364.01~0^364.02~0^364.03~0^364.04~0^364.10~0^364.11~0^364.23~0^364.24~0^364.3~0
  1. ;;6001
  1. ;;054.42~0^054.43~0^090.3~0^264.3~0^370.20~0^370.21~0^370.22~0^370.23~0^370.24~0^370.44~0^370.50~0^370.52~0^370.54~0^370.59~0^370.8~0^370.9~0
  1. ;;6002
  1. ;;095.0~0^379.00~0^379.01~0^379.02~0^379.03~0^379.05~0^379.06~0^379.07~0^379.09~0
  1. ;;6004
  1. ;;364.21~0
  1. ;;6006
  1. ;;115.02~0^115.12~0^115.92~0^130.2~0^362.74~0^363.00~0^363.01~0^363.03~0^363.04~0^363.05~0^363.06~0^363.07~0^363.08~0^363.10~0^363.11~0^363.12~0^363.13~0^363.14~0^363.15~0^363.20~0
  1. ;;6007
  1. ;;360.43~0^362.81~0^364.41~0^871.0~0^871.1~0^871.4~0^871.9~0^921.2~0^921.3~0
  1. ;;6008
  1. ;;361.00~0^361.01~0^361.02~0^361.03~0^361.04~0^361.05~0^361.06~0^361.07~0^361.2~0^361.81~0^361.89~0^362.41~0^362.42~0^362.43~0
  1. ;;6010
  1. ;;017.30~0^017.31~0^017.32~0^017.33~0^017.34~0^017.35~0^017.36~0
  1. ;;6011
  1. ;;362.31~0^362.35~0^363.32~0^363.33~0
  1. ;;6012
  1. ;;365.20~0^365.21~0^365.22~0^365.23~0^365.24~0^365.41~0^365.43~0^365.44~0^365.52~0^365.59~0^365.61~0^365.62~0^365.63~0^365.64~0^365.65~0^365.81~0^365.83~0
  1. ;;6013
  1. ;;365.10~0^365.11~0^365.12~0^365.13~0^365.15~0^365.31~0^365.32~0^365.51~0^365.82~0
  1. ;;6014
  1. ;;190.0~0^234.0~0
  1. ;;6015
  1. ;;224.0~0^224.1~0^224.2~0^224.3~0^224.4~0^224.5~0^224.6~0^224.7~0^224.9~0^228.03~0
  1. ;;6016
  1. ;;379.50~0^379.53~0^379.54~0^379.55~0^379.56~0^386.2~0
  1. ;;6017
  1. ;;076.0~0^076.1~0^076.9~0
  1. ;;6018
  1. ;;372.10~0^372.11~0^372.12~0^372.13~0^372.14~0^372.15~0
  1. ;;6019
  1. ;;374.30~0^374.31~0^374.32~0^374.33~0
  1. ;;6020
  1. ;;374.10~0^374.11~0^374.12~0^374.13~0^374.14~0
  1. ;;6021
  1. ;;374.00~0^374.01~0^374.02~0^374.03~0^374.04~0
  1. ;;6022
  1. ;;374.20~0^374.21~0^374.22~0^374.23~0
  1. ;;6025
  1. ;;375.20~0^375.21~0^375.22~0
  1. ;;6026
  1. ;;036.81~0^341.0~0^377.30~0^377.32~0^377.33~0^377.34~0^377.39~0^377.41~0
  1. ;;6027
  1. ;;366.20~0^366.21~0^366.23~0^366.45~0^366.46~0
  1. ;;6028
  1. ;;366.10~0^366.11~0^366.12~0^366.13~0^366.14~0^366.15~0^366.16~0^366.17~0^366.18~0^366.19~0^366.30~0^366.31~0^366.32~0^366.33~0^366.34~0^366.41~0^366.42~0^366.43~0^366.44~0^366.50~0^366.51~0^366.52~0^;
  1. ;;366.53~0^366.8~0^366.9~0
  1. ;;6029
  1. ;;379.31~0
  1. ;;6030
  1. ;;367.51~0
  1. ;;6031
  1. ;;375.30~0^375.31~0^375.32~0^375.33~0^375.41~0^375.42~0
  1. ;;6033
  1. ;;379.32~0^379.33~0^379.34~0
  1. ;;6034
  1. ;;372.40~0^372.41~0^372.42~0^372.43~0^372.44~0^372.45~0
  1. ;;6035
  1. ;;371.60~0^371.61~0^371.62~0
  1. ;;6062
  1. ;;369.04~1
  1. ;;6063
  1. ;;369.06~0^V45.78~0
  1. ;;6066
  1. ;;369.62~0^V45.78~0
  1. ;;6067
  1. ;;369.07~1
  1. ;;6068
  1. ;;369.13~1
  1. ;;6069
  1. ;;369.17~1^369.62~1
  1. ;;6070
  1. ;;369.62~1
  1. ;;6071
  1. ;;369.08~1
  1. ;;6072
  1. ;;369.14~1
  1. ;;6073
  1. ;;369.18~1^369.68~1
  1. ;;6074
  1. ;;369.68~1
  1. ;;6078
  1. ;;369.75~1
  1. ;;6080
  1. ;;368.45~1^368.46~1^368.47~1
  1. ;;6081
  1. ;;368.41~1^368.42~1^368.43~1
  1. ;;6090
  1. ;;368.2~1
  1. ;;6091
  1. ;;372.63~0
  1. ;;6092
  1. ;;368.2~1
  1. ;;6100
  1. ;;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~1^389.18~1^389.2~0^389.7~1^389.8~0^389.9~0
  1. ;;6200
  1. ;;382.1~0^382.2~0^382.3~0
  1. ;;6201
  1. ;;381.10~0^381.19~0^381.3~0
  1. ;;6202
  1. ;;387.0~0^387.1~0^387.2~0^387.8~0^387.9~0^387.0~0
  1. ;;6204
  1. ;;078.81~1^386.10~1^386.11~1^386.12~1^386.19~1^780.4~0^078.81~1
  1. ;;$EXIT