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

DVB458P4.m

Go to the documentation of this file.
  1. DVB458P4 ;ALB/RBS - POST-INSTALL FOR PATCH DVB*4*58 (CONT.) ; 1/3/07 2:19pm
  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 ;;7200
  1. ;;873.70~0^873.71~0^873.72~0^873.74~0^873.75~0
  1. ;;7203
  1. ;;530.0~1^530.3~1^530.6~1
  1. ;;7301
  1. ;;567.21~0^567.22~1^567.23~0^567.29~0^567.31~0^567.38~0^567.39~0^567.81~0^567.82~0^567.89~0^567.9~0^568.0~1
  1. ;;7304
  1. ;;531.00~1^531.01~1^531.10~1^531.11~1^531.20~1^531.21~1^531.40~1^531.41~1^531.50~1^531.51~1^531.60~1^531.61~1^531.70~1^531.90~1^531.91~1
  1. ;;7305
  1. ;;532.00~1^532.01~1^532.10~1^532.11~1^532.20~1^532.21~1^532.30~1^532.31~1^532.40~1^532.41~1^532.50~1^532.51~1^532.60~1^532.61~1^532.70~1^532.71~1^532.90~1^532.91~1
  1. ;;7306
  1. ;;534.00~1^534.01~1^534.10~1^534.11~1^534.20~1^534.21~1^534.30~1^534.31~1^534.40~1^534.41~1^534.50~1^534.51~1^534.60~1^534.61~1^534.70~1^534.71~1^534.90~1^534.91~1
  1. ;;7307
  1. ;;535.10~1^535.11~1^535.20~1^535.21~1
  1. ;;7308
  1. ;;564.2~1
  1. ;;7309
  1. ;;537.6~1
  1. ;;7310
  1. ;;536.2~0^536.3~0^536.8~0^537.5~0^537.6~0^908.1~0
  1. ;;7311
  1. ;;573.0~0^573.4~0^573.8~0^908.1~0
  1. ;;7312
  1. ;;571.2~1^571.5~1^571.6~1
  1. ;;7314
  1. ;;574.10~1^574.11~1^574.70~1^574.71~1^574.80~1^574.81~1^575.11~1^575.12~1
  1. ;;7315
  1. ;;574.00~1^574.01~1^574.20~1^574.21~1^574.50~1^574.51~1^574.90~1^574.91~1
  1. ;;7316
  1. ;;576.1~1
  1. ;;7317
  1. ;;575.2~0^575.3~0^575.4~0^575.5~0^575.8~0^908.1~0
  1. ;;7319
  1. ;;564.1~1
  1. ;;7321
  1. ;;006.0~1^006.1~1^006.2~1^006.9~1
  1. ;;7322
  1. ;;004.0~1^004.1~1^004.2~1^004.3~1^004.8~1^004.9~1
  1. ;;7323
  1. ;;556.0~1^556.1~1^556.2~1^556.3~1^556.4~1^556.5~1^556.6~1^556.8~1^556.9~1
  1. ;;7324
  1. ;;121.9~1
  1. ;;7325
  1. ;;555.0~1
  1. ;;7326
  1. ;;008.45~0
  1. ;;7327
  1. ;;562.11~1^562.13~1
  1. ;;7328
  1. ;;579.2~1^579.3~1
  1. ;;7330
  1. ;;569.81~1
  1. ;;7331
  1. ;;014.00~1^014.01~1^014.02~1^014.03~1^014.04~1^014.05~1^014.06~1
  1. ;;7332
  1. ;;787.6~1
  1. ;;7333
  1. ;;569.2~1
  1. ;;7334
  1. ;;569.1~1
  1. ;;7335
  1. ;;565.1~1
  1. ;;7336
  1. ;;455.0~1^455.1~1^455.2~1^455.3~1^455.4~1^455.5~1^455.6~1^455.7~1^455.8~1
  1. ;;7337
  1. ;;698.0~1
  1. ;;7338
  1. ;;550.00~0^550.01~0^550.02~1^550.03~1^550.10~0^550.11~0^550.12~1^550.13~1^550.90~0^550.91~0^550.92~1^550.93~1
  1. ;;7339
  1. ;;551.21~0^552.21~0^553.21~0
  1. ;;7340
  1. ;;551.00~0^551.01~0^551.02~1^551.03~1^552.00~0^552.01~0^552.02~1^552.03~1^553.00~0^553.01~0^553.02~1^553.03~1
  1. ;;7343
  1. ;;141.0~0^141.1~0^142.0~0^142.2~0^142.8~0^142.9~0^143.0~0^143.1~0^143.8~0^143.9~0^144.0~0^144.1~0^144.8~0^144.9~0^145.0~0^145.1~0^145.2~0^145.3~0^145.4~0^145.5~0^145.6~0^145.8~0^145.9~0^149.8~0^149.9~0^;
  1. ;;150.0~0^150.1~0^150.2~0^150.3~0^150.4~0^150.5~0^150.8~0^150.9~0^151.0~0^151.1~0^151.2~0^151.3~0^151.4~0^151.5~0^151.6~0^151.8~0^151.9~0^152.0~0^152.1~0^152.2~0^152.3~0^152.8~0^152.9~0^153.0~0^153.1~0^;
  1. ;;153.2~0^153.3~0^153.4~0^153.5~0^153.6~0^153.7~0^153.8~0^153.9~0^154.0~0^154.1~0^154.2~0^154.3~0^154.8~0^155.0~0^155.1~0^155.2~0^156.0~0^156.1~0^156.2~0^156.8~0^156.9~0^157.0~0^157.1~0^157.2~0^157.3~0^;
  1. ;;157.8~0^157.9~0^158.0~0^158.8~0^158.9~0^159.0~0^159.1~0^159.8~0^159.9~0^197.4~0^197.5~0^197.6~0^197.7~0^197.8~0^230.0~0^230.1~0^230.2~0^230.3~0^230.4~0^230.5~0^230.6~0^230.7~0^230.8~0^230.9~0
  1. ;;7344
  1. ;;210.4~0^211.0~0^211.1~0^211.2~0^211.3~0^211.4~0^211.5~0^211.6~0^211.8~0^211.9~1
  1. ;;7345
  1. ;;070.22~1^070.23~1^070.32~1^070.33~1^571.40~1^571.41~1^571.49~1^571.8~0^571.9~0^573.1~1^573.3~0
  1. ;;7346
  1. ;;551.3~1^552.3~1^553.3~1
  1. ;;7347
  1. ;;577.0~1^577.1~1
  1. ;;7351
  1. ;;996.82~1^V42.7~1
  1. ;;7354
  1. ;;070.41~1^070.44~1^070.51~1^070.54~1
  1. ;;7501
  1. ;;590.2~1
  1. ;;7502
  1. ;;582.0~1^582.1~1^582.2~1^582.4~1^582.81~1^582.89~1^582.9~1
  1. ;;7504
  1. ;;590.00~1^590.01~1
  1. ;;7505
  1. ;;016.00~1^016.01~1^016.02~1^016.03~1^016.04~1^016.05~1^016.06~1
  1. ;;7507
  1. ;;403.00~0^403.10~0^403.90~0^404.00~0^404.01~0^404.10~0^404.11~0^404.90~0^404.91~0
  1. ;;7508
  1. ;;274.11~1^592.0~1
  1. ;;7509
  1. ;;591.~0
  1. ;;7510
  1. ;;592.1~0
  1. ;;7511
  1. ;;593.3~0
  1. ;;7512
  1. ;;016.10~1^016.11~1^016.12~1^016.13~1^016.14~1^016.15~1^016.16~1^098.31~1^595.1~1^595.2~1^595.3~1^595.4~1^595.81~1^595.82~1^595.89~1
  1. ;;7515
  1. ;;594.0~1^594.1~1
  1. ;;7516
  1. ;;596.2~1
  1. ;;7518
  1. ;;598.00~1^598.01~1^598.1~1^598.2~1^598.8~1^598.9~1
  1. ;;7519
  1. ;;599.1~1
  1. ;;7523
  1. ;;608.3~1
  1. ;;7525
  1. ;;098.33~1
  1. ;;7527
  1. ;;098.32~1^600.00~1^600.01~1^600.10~1^600.11~1^600.20~1^600.21~1^601.1~1^601.2~1^601.4~1
  1. ;;7528
  1. ;;186.0~0^186.9~0^187.1~0^187.2~0^187.3~0^187.4~0^187.5~0^187.6~0^187.7~0^187.8~0^187.9~0^188.0~0^188.1~0^188.2~0^188.3~0^188.4~0^188.5~0^188.6~0^188.7~0^188.8~0^188.9~0^189.0~0^189.1~0^189.2~0^189.3~0^;
  1. ;;189.4~0^189.8~0^189.9~0^198.0~0^198.1~0^233.4~0^233.5~0^233.6~0^233.7~0^233.9~0
  1. ;;7529
  1. ;;214.4~0^222.0~0^222.1~0^222.2~0^222.3~0^222.4~0^222.8~0^222.9~0^223.0~0^223.1~0^223.2~0^223.3~0^223.9~0
  1. ;;7530
  1. ;;403.01~0^403.11~0^403.91~0^404.02~0^404.03~0^404.12~0^404.13~0^404.92~0^404.93~0^585.6~1^V56.0~1^V56.1~1^V56.31~1^V56.32~1^V56.8~1
  1. ;;7531
  1. ;;996.81~1^V42.0~1
  1. ;;7532
  1. ;;255.13~1^271.4~1^584.5~1^270.0~1
  1. ;;7533
  1. ;;593.2~1^753.10~1^753.12~1^753.13~1^753.14~1^753.15~1^753.16~1^753.17~1^753.19~1
  1. ;;7534
  1. ;;440.1~1^445.81~1
  1. ;;7535
  1. ;;584.5~0
  1. ;;7536
  1. ;;581.0~1^581.1~1^581.2~1^581.3~1^581.81~1^581.9~1^582.0~1^582.1~1^582.2~1^582.4~1^582.81~1^582.89~1^582.9~1
  1. ;;7538
  1. ;;583.7~1
  1. ;;7539
  1. ;;277.39~0^583.81~0
  1. ;;7540
  1. ;;286.6~0^583.6~0
  1. ;;7541
  1. ;;250.40~1^250.41~1^250.42~1^250.43~1^282.60~0^282.61~0^282.62~0^282.63~0^282.64~0^282.68~0^282.69~0^446.21~1^581.81~1^710.0~0
  1. ;;7542
  1. ;;344.61~1^596.53~1^596.54~1
  1. ;;7610
  1. ;;098.2~0^616.10~0^616.11~0^616.4~0^616.50~0^616.51~0^624.0~0^624.1~0^624.2~0^624.3~0^624.4~0^624.5~0^624.6~0^624.8~0^624.9~0^939.2~0^616.81~0^616.89~0
  1. ;;7611
  1. ;;616.10~0^616.11~0^616.2~0^616.3~0^623.0~0^623.1~0^623.2~0^623.3~0^623.4~0^623.5~0^623.6~0^623.7~0^623.8~0^623.9~0^939.2~0^616.81~0^616.89~0
  1. ;;7612
  1. ;;616.0~0^622.0~0^622.10~0^622.11~0^622.12~0^622.2~0^622.3~0^622.4~0^622.5~0^622.6~0^622.7~0^622.8~0^622.9~0^616.81~0^616.89~0
  1. ;;7613
  1. ;;016.70~0^016.71~0^016.72~0^016.73~0^016.74~0^016.75~0^098.36~0^615.1~0^621.0~0^621.1~0^621.2~0^621.30~0^621.31~0^621.32~0^621.33~0^621.4~0^621.5~0^621.6~0^621.7~0^621.8~0^621.9~0^939.1~0
  1. ;;7614
  1. ;;016.60~0^016.61~0^016.62~0^016.63~0^016.64~0^016.65~0^016.66~0^614.1~0^614.4~0^614.7~0^620.3~0^620.4~0^620.5~0^620.8~0
  1. ;;7615
  1. ;;016.60~0^016.61~0^016.62~0^016.63~0^016.64~0^016.65~0^614.1~0^620.1~0^620.2~0^620.3~0^620.4~0^620.5~0^620.8~0
  1. ;;7621
  1. ;;618.01~0^618.02~0^618.03~0^618.04~0^618.05~0^618.1~1^618.2~1^618.3~1^618.4~1^618.6~0^618.89~1^618.84~1
  1. ;;7622
  1. ;;621.6~1
  1. ;;7623
  1. ;;618.01~0^618.02~0^618.03~0^618.04~0^618.05~0^618.89~0^677.~1
  1. ;;7627
  1. ;;174.0~0^174.1~0^174.2~0^174.3~0^174.4~0^174.5~0^174.6~0^174.8~0^174.9~0^179.~0^180.0~0^180.1~0^180.8~0^180.9~0^181.~0^182.0~0^182.1~0^182.8~0^183.0~0^183.2~0^183.3~0^183.4~0^183.5~0^183.8~0^183.9~0^;
  1. ;;184.0~0^184.1~0^184.2~0^184.3~0^184.4~0^184.8~0^184.9~0^198.6~0^198.81~0^233.0~0^233.1~0^233.2~0^233.3~0
  1. ;;7628
  1. ;;217.~0^218.0~0^218.1~0^218.2~0^218.9~0^219.0~0^219.1~0^219.8~0^219.9~0^220.~0^221.0~0^221.1~0^221.2~0^221.8~0
  1. ;;7629
  1. ;;617.1~1^617.2~1^617.3~1^617.4~1^617.5~1^617.6~1^617.8~1^617.9~1
  1. ;;7700
  1. ;;280.0~0^280.1~0^280.8~0^280.9~0^281.0~0^281.1~0^281.2~0^281.3~0^281.4~0^281.8~0^281.9~0^283.0~0^283.10~0^283.11~0^283.19~0^283.2~0^283.9~0^285.0~0^285.22~0^285.29~0
  1. ;;7702
  1. ;;288.00~1^288.02~1^288.03~1^288.04~1^288.09~1
  1. ;;7703
  1. ;;204.00~1^204.10~1^204.20~1^204.80~1^204.90~1^205.00~1^205.10~1^205.20~1^205.80~1^205.90~1^206.00~1^206.10~1^206.20~1^206.80~1^206.90~1^207.00~1^207.10~1^207.20~1^207.80~1^208.00~1^208.10~1^208.20~1^208.80~1^208.90~1
  1. ;;7704
  1. ;;238.4~1
  1. ;;7705
  1. ;;287.30~1^287.31~1^287.39~1^287.4~1^287.5~1
  1. ;;7709
  1. ;;201.00~1^201.01~1^201.03~1^201.04~1^201.05~1^201.06~1^201.07~1^201.08~1^201.10~1^201.11~1^201.12~1^201.13~1^201.14~1^201.15~1^201.16~1^201.17~1^201.18~1^201.20~1^201.21~1^201.22~1^201.23~1^201.24~1^;
  1. ;;201.25~1^201.26~1^201.27~1^201.28~1^201.41~1^201.42~1^201.43~1^201.44~1^201.45~1^201.46~1^201.47~1^201.48~1^201.51~1^201.52~1^201.53~1^201.54~1^201.55~1^201.56~1^201.57~1^201.58~1^201.61~1^201.62~1^;
  1. ;;201.63~1^201.64~1^201.65~1^201.66~1^201.67~1^201.68~1^201.71~1^201.72~1^201.73~1^201.74~1^201.75~1^201.76~1^201.77~1^201.78~1^201.90~1^201.91~1^201.92~1^201.93~1^201.94~1^201.95~1^201.96~1^201.97~1^201.98~1
  1. ;;$EXIT