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

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