VistA-WorldVistAEHR/r/HINQ-DVB--DVBA--DVBE--DVBC/DVB458P3.m

DVB458P3 ;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 ;;6205
 ;;386.00~1^386.01~1^386.02~1^386.03~1^386.04~1
 ;;6208
 ;;160.1~0
 ;;6210
 ;;112.82~0^380.14~0^380.15~0^380.16~0^380.23~0
 ;;6211
 ;;384.20~0^384.21~0^384.22~0^384.23~0^384.24~0^384.25~0^872.61~0^872.71~0
 ;;6260
 ;;388.30~1^388.31~1^388.32~1
 ;;6300
 ;;001.0~1^001.1~1^001.9~1^V06.0~1
 ;;6301
 ;;085.0~1
 ;;6302
 ;;030.0~1^030.1~1^030.2~1^030.3~1^030.8~1^030.9~1
 ;;6304
 ;;084.0~1^084.1~1^084.2~1^084.3~1^084.4~1^084.5~1^084.6~1^084.8~1^084.9~1^647.40~1^647.41~1^647.42~1^647.43~1^647.44~1
 ;;6305
 ;;125.0~1^125.1~1^125.2~1^125.3~1^125.4~1^125.5~1^125.6~1^125.7~1^125.9~1
 ;;6306
 ;;088.0~1
 ;;6307
 ;;020.0~1^020.1~1^020.2~1^020.3~1^020.4~1^020.5~1^020.8~1^020.9~1
 ;;6308
 ;;087.0~1^087.1~1^087.9~1
 ;;6309
 ;;390.~1^391.0~1^391.1~1^391.2~1^391.8~1^391.9~1
 ;;6310
 ;;091.0~1^091.1~1^091.2~1^091.3~1^091.4~1^091.7~1^091.82~1^091.89~1^091.9~1^095.0~1^095.1~1^095.2~1^095.3~1^095.4~1^095.5~1^095.7~1^095.8~1^095.9~1^097.9~1^102.0~1^102.1~1^102.2~1^102.3~1^102.4~1^;
 ;;102.5~1^102.6~1^102.7~1^102.9~1^104.0~1
 ;;6311
 ;;018.00~1^018.01~1^018.02~1^018.03~1^018.04~1^018.05~1^018.06~1^018.80~1^018.81~1^018.82~1^018.83~1^018.84~1^018.85~1^018.86~1^018.90~1^018.91~1^018.92~1^018.93~1^018.94~1^018.95~1^018.96~1
 ;;6313
 ;;264.8~1^264.9~1
 ;;6314
 ;;265.0~1
 ;;6315
 ;;265.2~1
 ;;6316
 ;;023.0~1^023.1~1^023.2~1^023.3~1^023.8~1^023.9~1
 ;;6317
 ;;081.2~1
 ;;6318
 ;;025.~1
 ;;6319
 ;;088.81~1
 ;;6320
 ;;120.0~0^120.1~0^120.2~0^120.3~0^120.8~0^120.9~0^121.0~0^121.1~0^121.2~0^121.3~0^121.4~0^121.5~0^121.8~0^121.9~0^122.0~0^122.1~0^122.2~0^122.3~0^122.4~0^122.5~0^122.6~0^122.7~0^122.8~0^122.9~0^124.~0^;
 ;;126.0~0^126.1~0^126.2~0^126.3~0^126.8~0^126.9~0^127.1~0^127.2~0^127.3~0^127.5~0^127.6~0^127.7~0^127.8~0^127.9~0^136.8~0
 ;;6350
 ;;710.0~1
 ;;6351
 ;;042.~1^079.53~1^795.71~1^V08.~1
 ;;6354
 ;;780.71~1
 ;;6510
 ;;473.8~1
 ;;6511
 ;;473.2~1
 ;;6512
 ;;473.1~1
 ;;6513
 ;;473.0~1
 ;;6514
 ;;473.3~1
 ;;6515
 ;;012.30~1^012.31~1^012.32~1^012.33~1^012.34~1^012.35~1^012.36~1
 ;;6516
 ;;476.0~1
 ;;6519
 ;;784.41~1
 ;;6520
 ;;478.74~1
 ;;6522
 ;;477.0~1^477.1~1^477.8~1^477.9~1
 ;;6523
 ;;040.1~1
 ;;6524
 ;;117.0~1^472.0~1
 ;;6600
 ;;491.0~1^491.1~1^491.20~1^491.21~1^491.8~1^491.9~1
 ;;6601
 ;;011.50~1^011.51~1^011.52~1^011.53~1^011.54~1^011.55~1^011.56~1^494.0~1^494.1~1
 ;;6602
 ;;493.00~1^493.01~1^493.02~1^493.10~1^493.11~1^493.12~1^493.20~1^493.21~1^493.22~1^493.81~1^493.82~1^493.90~1^493.91~1^493.92~1
 ;;6603
 ;;492.0~1^492.8~1
 ;;6604
 ;;496.~1
 ;;6704
 ;;011.00~1^011.01~1^011.02~1^011.03~1^011.04~1^011.05~1^011.06~1^011.10~1^011.11~1^011.12~1^011.13~1^011.14~1^011.15~1^011.16~1^011.20~1^011.21~1^011.22~1^011.23~1^011.24~1^011.25~1^011.26~1^011.30~1^;
 ;;011.31~1^011.32~1^011.33~1^011.34~1^011.35~1^011.36~1^011.40~1^011.41~1^011.42~1^011.43~1^011.44~1^011.45~1^011.46~1^011.50~1^011.51~1^011.52~1^011.53~1^011.54~1^011.55~1^011.56~1^011.60~1^011.61~1^;
 ;;011.62~1^011.63~1^011.64~1^011.65~1^011.66~1^011.70~1^011.71~1^011.72~1^011.73~1^011.74~1^011.75~1^011.76~1^011.80~1^011.81~1^011.82~1^011.83~1^011.84~1^011.85~1^011.86~1^011.90~1^011.91~1^011.92~1^;
 ;;011.93~1^011.94~1^011.95~1^011.96~1^012.20~1^012.21~1^012.22~1^012.23~1^012.24~1^012.25~1^012.26~1
 ;;6724
 ;;137.0~0
 ;;6730
 ;;011.00~1^011.01~1^011.02~1^011.03~1^011.04~1^011.05~1^011.06~1^011.10~1^011.11~1^011.12~1^011.14~1^011.15~1^011.16~1^011.20~1^011.21~1^011.22~1^011.23~1^011.24~1^011.25~1^011.26~1^011.30~1^011.31~1^;
 ;;011.32~1^011.33~1^011.34~1^011.35~1^011.36~1^011.40~1^011.41~1^011.42~1^011.43~1^011.44~1^011.45~1^011.46~1^011.50~1^011.51~1^011.52~1^011.53~1^011.54~1^011.55~1^011.56~1^011.60~1^011.61~1^011.62~1^;
 ;;011.63~1^011.64~1^011.65~1^011.66~1^011.70~1^011.71~1^011.72~1^011.73~1^011.74~1^011.75~1^011.76~1^011.80~1^011.81~1^011.83~1^011.84~1^011.85~1^011.86~1^011.90~1^011.91~1^011.92~1^011.93~1^011.94~1^;
 ;;011.95~1^011.96~1^012.20~1^012.21~1^012.22~1^012.23~1^012.24~1^012.25~1^012.26~1
 ;;6732
 ;;010.10~1^010.11~1^010.12~1^010.13~1^010.14~1^010.15~1^010.16~1^012.00~1^012.01~1^012.02~1^012.03~1^012.04~1^012.05~1^012.06~1
 ;;6817
 ;;416.0~1
 ;;6819
 ;;146.0~0^146.1~0^146.2~0^146.3~0^146.4~0^146.5~0^146.6~0^146.7~0^146.8~0^146.9~0^147.0~0^147.1~0^147.2~0^147.3~0^147.8~0^147.9~0^148.0~0^148.1~0^148.2~0^148.3~0^148.8~0^148.9~0^149.0~0^149.1~0^160.0~0^;
 ;;160.1~0^160.2~0^160.3~0^160.4~0^160.5~0^160.8~0^160.9~0^161.0~0^161.1~0^161.8~0^161.9~0^162.0~0^162.2~0^162.3~0^162.4~0^162.5~0^162.8~0^162.9~0^163.0~0^163.1~0^163.8~0^163.9~0^164.2~0^164.3~0^165.0~0^;
 ;;165.8~0^165.9~0^197.0~0^197.2~0^197.3~0^231.0~0^231.1~0^231.2~0^231.8~0^231.9~0
 ;;6820
 ;;212.0~0^212.1~0^212.2~0^212.3~0^212.4~0^212.8~0^212.9~0^214.2~0^471.0~0^471.8~0^471.9~0
 ;;6822
 ;;039.1~1
 ;;6823
 ;;039.1~1
 ;;6824
 ;;006.4~1^513.0~1
 ;;6825
 ;;515.~1^516.3~1
 ;;6827
 ;;516.0~1
 ;;6829
 ;;508.8~0^518.7~1
 ;;6830
 ;;508.0~1^508.1~1
 ;;6831
 ;;495.0~1^495.1~1^495.2~1^495.3~1^495.4~1^495.5~1^495.6~1^495.7~1^495.8~1^495.9~1
 ;;6832
 ;;500.~1^502.~1^503.~1^504.~1^505.~1
 ;;6833
 ;;501.~1
 ;;6834
 ;;115.05~1^115.15~1^115.95~1
 ;;6835
 ;;114.0~1^114.3~1^114.4~1^114.5~1
 ;;6836
 ;;116.0~1
 ;;6837
 ;;117.5~1
 ;;6838
 ;;484.6~1^518.6~1
 ;;6839
 ;;117.7~1
 ;;6840
 ;;519.4~0
 ;;6844
 ;;512.1~1^518.5~0
 ;;6845
 ;;510.0~1^510.9~1^511.1~1^511.8~1^511.9~1^515.~1
 ;;6846
 ;;135.~1
 ;;6847
 ;;327.20~1^327.21~1^327.23~1^327.27~1^327.29~1^780.51~1^780.53~1^780.57~1
 ;;7000
 ;;394.0~0^394.1~0^394.2~0^394.9~0^395.0~0^395.1~0^395.2~0^395.9~0^396.0~0^396.1~0^396.2~0^396.3~0^396.8~0^396.9~0^397.0~0^397.1~0^397.9~0^424.0~0^424.1~0^424.2~0^424.3~0
 ;;7001
 ;;036.42~0^074.22~0^098.84~0^112.81~0^115.04~0^115.14~0^115.94~0^421.0~0^421.1~0^421.9~0
 ;;7002
 ;;036.41~0^074.21~0^098.83~0^115.03~0^115.13~0^115.93~0^391.0~0^393.~0^411.0~0^420.0~0^420.90~0^420.91~0^420.99~0^423.2~0
 ;;7003
 ;;423.1~0
 ;;7004
 ;;093.0~1^093.1~1^093.20~1^093.21~1^093.23~1^093.24~1^093.81~1^093.82~1^093.89~1^093.9~1
 ;;7005
 ;;411.1~1^411.81~1^411.89~1^414.00~1^414.01~1^414.02~1^414.03~1^414.04~1^414.05~1^414.8~0^414.9~0^429.2~1
 ;;7006
 ;;410.00~1^410.01~1^410.02~1^410.10~1^410.11~1^410.12~1^410.20~1^410.21~1^410.22~1^410.30~1^410.31~1^410.32~1^410.40~1^410.41~1^410.42~1^410.50~1^410.51~1^410.52~1^410.60~1^410.61~1^410.62~1^410.70~1^;
 ;;410.71~1^410.72~1^410.80~1^410.81~1^410.82~1^410.90~1^410.91~1^410.92~1
 ;;7007
 ;;402.00~1^402.01~1^402.10~1^402.11~1
 ;;7010
 ;;427.0~1^427.31~1^427.32~1^427.61~1
 ;;7011
 ;;427.41~1^427.42~1^427.69~0
 ;;7015
 ;;426.0~1^426.10~1^426.11~1^426.12~1^426.13~1^426.2~1^426.3~1^426.4~1^426.50~1^426.51~1^426.52~1^426.53~1^426.54~1
 ;;7016
 ;;V42.2~1^V43.3~1
 ;;7017
 ;;414.02~1^414.03~1^414.04~1^414.05~1^414.07~1^996.03~1^996.61~0^996.72~0^V45.81~1
 ;;7018
 ;;996.01~1^996.61~0^996.72~0^V45.01~1^V53.31~1
 ;;7019
 ;;996.83~1^V42.1~1
 ;;7020
 ;;086.0~1^425.0~1^425.1~1^425.2~1^425.3~1^425.4~1^425.5~1^425.7~1^425.8~1^425.9~1
 ;;7101
 ;;401.0~1^401.1~1^401.9~1^405.09~1^405.19~1^405.99~1
 ;;7110
 ;;093.0~1^441.00~1^441.01~1^441.02~1^441.03~1^441.1~1^441.2~1^441.3~1^441.4~1^441.5~1^441.6~1^441.7~1^441.9~1
 ;;7111
 ;;442.1~0^442.2~0^442.3~0^442.82~0
 ;;7112
 ;;414.11~0
 ;;7114
 ;;440.20~0^440.21~0^440.22~0^440.23~0^440.24~0^440.29~0^440.30~0^440.31~0^440.32~0^445.01~0^445.02~0
 ;;7115
 ;;443.1~1
 ;;7117
 ;;443.0~1
 ;;7118
 ;;995.1~1
 ;;7119
 ;;443.82~1
 ;;7120
 ;;454.0~0^454.1~0^454.2~0^454.8~0
 ;;7121
 ;;459.10~0^459.11~0^459.12~0^459.13~0^459.19~0
 ;;7122
 ;;991.0~1^991.1~1^991.2~1^991.3~1^991.4~1^991.5~1^991.6~0^991.8~0^991.9~0
 ;;$EXIT