- DVB458P4 ;ALB/RBS - POST-INSTALL FOR PATCH DVB*4*58 (CONT.) ; 1/3/07 2:19pm
- ;;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 ;;7200
- ;;873.70~0^873.71~0^873.72~0^873.74~0^873.75~0
- ;;7203
- ;;530.0~1^530.3~1^530.6~1
- ;;7301
- ;;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
- ;;7304
- ;;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
- ;;7305
- ;;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
- ;;7306
- ;;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
- ;;7307
- ;;535.10~1^535.11~1^535.20~1^535.21~1
- ;;7308
- ;;564.2~1
- ;;7309
- ;;537.6~1
- ;;7310
- ;;536.2~0^536.3~0^536.8~0^537.5~0^537.6~0^908.1~0
- ;;7311
- ;;573.0~0^573.4~0^573.8~0^908.1~0
- ;;7312
- ;;571.2~1^571.5~1^571.6~1
- ;;7314
- ;;574.10~1^574.11~1^574.70~1^574.71~1^574.80~1^574.81~1^575.11~1^575.12~1
- ;;7315
- ;;574.00~1^574.01~1^574.20~1^574.21~1^574.50~1^574.51~1^574.90~1^574.91~1
- ;;7316
- ;;576.1~1
- ;;7317
- ;;575.2~0^575.3~0^575.4~0^575.5~0^575.8~0^908.1~0
- ;;7319
- ;;564.1~1
- ;;7321
- ;;006.0~1^006.1~1^006.2~1^006.9~1
- ;;7322
- ;;004.0~1^004.1~1^004.2~1^004.3~1^004.8~1^004.9~1
- ;;7323
- ;;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
- ;;7324
- ;;121.9~1
- ;;7325
- ;;555.0~1
- ;;7326
- ;;008.45~0
- ;;7327
- ;;562.11~1^562.13~1
- ;;7328
- ;;579.2~1^579.3~1
- ;;7330
- ;;569.81~1
- ;;7331
- ;;014.00~1^014.01~1^014.02~1^014.03~1^014.04~1^014.05~1^014.06~1
- ;;7332
- ;;787.6~1
- ;;7333
- ;;569.2~1
- ;;7334
- ;;569.1~1
- ;;7335
- ;;565.1~1
- ;;7336
- ;;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
- ;;7337
- ;;698.0~1
- ;;7338
- ;;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
- ;;7339
- ;;551.21~0^552.21~0^553.21~0
- ;;7340
- ;;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
- ;;7343
- ;;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^;
- ;;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^;
- ;;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^;
- ;;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
- ;;7344
- ;;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
- ;;7345
- ;;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
- ;;7346
- ;;551.3~1^552.3~1^553.3~1
- ;;7347
- ;;577.0~1^577.1~1
- ;;7351
- ;;996.82~1^V42.7~1
- ;;7354
- ;;070.41~1^070.44~1^070.51~1^070.54~1
- ;;7501
- ;;590.2~1
- ;;7502
- ;;582.0~1^582.1~1^582.2~1^582.4~1^582.81~1^582.89~1^582.9~1
- ;;7504
- ;;590.00~1^590.01~1
- ;;7505
- ;;016.00~1^016.01~1^016.02~1^016.03~1^016.04~1^016.05~1^016.06~1
- ;;7507
- ;;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
- ;;7508
- ;;274.11~1^592.0~1
- ;;7509
- ;;591.~0
- ;;7510
- ;;592.1~0
- ;;7511
- ;;593.3~0
- ;;7512
- ;;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
- ;;7515
- ;;594.0~1^594.1~1
- ;;7516
- ;;596.2~1
- ;;7518
- ;;598.00~1^598.01~1^598.1~1^598.2~1^598.8~1^598.9~1
- ;;7519
- ;;599.1~1
- ;;7523
- ;;608.3~1
- ;;7525
- ;;098.33~1
- ;;7527
- ;;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
- ;;7528
- ;;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^;
- ;;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
- ;;7529
- ;;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
- ;;7530
- ;;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
- ;;7531
- ;;996.81~1^V42.0~1
- ;;7532
- ;;255.13~1^271.4~1^584.5~1^270.0~1
- ;;7533
- ;;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
- ;;7534
- ;;440.1~1^445.81~1
- ;;7535
- ;;584.5~0
- ;;7536
- ;;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
- ;;7538
- ;;583.7~1
- ;;7539
- ;;277.39~0^583.81~0
- ;;7540
- ;;286.6~0^583.6~0
- ;;7541
- ;;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
- ;;7542
- ;;344.61~1^596.53~1^596.54~1
- ;;7610
- ;;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
- ;;7611
- ;;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
- ;;7612
- ;;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
- ;;7613
- ;;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
- ;;7614
- ;;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
- ;;7615
- ;;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
- ;;7621
- ;;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
- ;;7622
- ;;621.6~1
- ;;7623
- ;;618.01~0^618.02~0^618.03~0^618.04~0^618.05~0^618.89~0^677.~1
- ;;7627
- ;;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^;
- ;;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
- ;;7628
- ;;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
- ;;7629
- ;;617.1~1^617.2~1^617.3~1^617.4~1^617.5~1^617.6~1^617.8~1^617.9~1
- ;;7700
- ;;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
- ;;7702
- ;;288.00~1^288.02~1^288.03~1^288.04~1^288.09~1
- ;;7703
- ;;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
- ;;7704
- ;;238.4~1
- ;;7705
- ;;287.30~1^287.31~1^287.39~1^287.4~1^287.5~1
- ;;7709
- ;;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^;
- ;;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^;
- ;;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
- ;;$EXIT