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

ATXD1S9.m

Go to the documentation of this file.
ATXD1S9 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON OCT 28, 2013;
 ;;5.1;TAXONOMY;**11**;FEB 04, 1997;Build 48
 ;
START ;
 K:'$G(ATXPGMC) ^TMP("ATX",$J)
 S ATXPGMC=$G(ATXPGMC)+1
 F ATXI=1:1 S X=$P($T(TMP+ATXI),";;",2,99) Q:X=""  S X="^TMP(""ATX"",$J,"_X,ATXI=ATXI+1,Y=$P($T(TMP+ATXI),";;",2,99) S @X=Y
 Q
 ;
TMP ;;TAXONOMY (WITH BULLETIN)
 ;;9002226.02101,"821,V35.6XXA ",.01)
 ;;V35.6XXA
 ;;9002226.02101,"821,V35.6XXA ",.02)
 ;;V35.6XXA
 ;;9002226.02101,"821,V35.6XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V35.7XXA ",.01)
 ;;V35.7XXA
 ;;9002226.02101,"821,V35.7XXA ",.02)
 ;;V35.7XXA
 ;;9002226.02101,"821,V35.7XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V35.9XXA ",.01)
 ;;V35.9XXA
 ;;9002226.02101,"821,V35.9XXA ",.02)
 ;;V35.9XXA
 ;;9002226.02101,"821,V35.9XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V36.0XXA ",.01)
 ;;V36.0XXA
 ;;9002226.02101,"821,V36.0XXA ",.02)
 ;;V36.0XXA
 ;;9002226.02101,"821,V36.0XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V36.1XXA ",.01)
 ;;V36.1XXA
 ;;9002226.02101,"821,V36.1XXA ",.02)
 ;;V36.1XXA
 ;;9002226.02101,"821,V36.1XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V36.2XXA ",.01)
 ;;V36.2XXA
 ;;9002226.02101,"821,V36.2XXA ",.02)
 ;;V36.2XXA
 ;;9002226.02101,"821,V36.2XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V36.4XXA ",.01)
 ;;V36.4XXA
 ;;9002226.02101,"821,V36.4XXA ",.02)
 ;;V36.4XXA
 ;;9002226.02101,"821,V36.4XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V36.5XXA ",.01)
 ;;V36.5XXA
 ;;9002226.02101,"821,V36.5XXA ",.02)
 ;;V36.5XXA
 ;;9002226.02101,"821,V36.5XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V36.6XXA ",.01)
 ;;V36.6XXA
 ;;9002226.02101,"821,V36.6XXA ",.02)
 ;;V36.6XXA
 ;;9002226.02101,"821,V36.6XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V36.7XXA ",.01)
 ;;V36.7XXA
 ;;9002226.02101,"821,V36.7XXA ",.02)
 ;;V36.7XXA
 ;;9002226.02101,"821,V36.7XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V36.9XXA ",.01)
 ;;V36.9XXA
 ;;9002226.02101,"821,V36.9XXA ",.02)
 ;;V36.9XXA
 ;;9002226.02101,"821,V36.9XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V37.0XXA ",.01)
 ;;V37.0XXA
 ;;9002226.02101,"821,V37.0XXA ",.02)
 ;;V37.0XXA
 ;;9002226.02101,"821,V37.0XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V37.1XXA ",.01)
 ;;V37.1XXA
 ;;9002226.02101,"821,V37.1XXA ",.02)
 ;;V37.1XXA
 ;;9002226.02101,"821,V37.1XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V37.2XXA ",.01)
 ;;V37.2XXA
 ;;9002226.02101,"821,V37.2XXA ",.02)
 ;;V37.2XXA
 ;;9002226.02101,"821,V37.2XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V37.3XXA ",.01)
 ;;V37.3XXA
 ;;9002226.02101,"821,V37.3XXA ",.02)
 ;;V37.3XXA
 ;;9002226.02101,"821,V37.3XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V37.4XXA ",.01)
 ;;V37.4XXA
 ;;9002226.02101,"821,V37.4XXA ",.02)
 ;;V37.4XXA
 ;;9002226.02101,"821,V37.4XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V37.5XXA ",.01)
 ;;V37.5XXA
 ;;9002226.02101,"821,V37.5XXA ",.02)
 ;;V37.5XXA
 ;;9002226.02101,"821,V37.5XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V37.6XXA ",.01)
 ;;V37.6XXA
 ;;9002226.02101,"821,V37.6XXA ",.02)
 ;;V37.6XXA
 ;;9002226.02101,"821,V37.6XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V37.7XXA ",.01)
 ;;V37.7XXA
 ;;9002226.02101,"821,V37.7XXA ",.02)
 ;;V37.7XXA
 ;;9002226.02101,"821,V37.7XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V37.9XXA ",.01)
 ;;V37.9XXA
 ;;9002226.02101,"821,V37.9XXA ",.02)
 ;;V37.9XXA
 ;;9002226.02101,"821,V37.9XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V38.0XXA ",.01)
 ;;V38.0XXA
 ;;9002226.02101,"821,V38.0XXA ",.02)
 ;;V38.0XXA
 ;;9002226.02101,"821,V38.0XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V38.1XXA ",.01)
 ;;V38.1XXA
 ;;9002226.02101,"821,V38.1XXA ",.02)
 ;;V38.1XXA
 ;;9002226.02101,"821,V38.1XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V38.2XXA ",.01)
 ;;V38.2XXA
 ;;9002226.02101,"821,V38.2XXA ",.02)
 ;;V38.2XXA
 ;;9002226.02101,"821,V38.2XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V38.3XXA ",.01)
 ;;V38.3XXA
 ;;9002226.02101,"821,V38.3XXA ",.02)
 ;;V38.3XXA
 ;;9002226.02101,"821,V38.3XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V38.4XXA ",.01)
 ;;V38.4XXA
 ;;9002226.02101,"821,V38.4XXA ",.02)
 ;;V38.4XXA
 ;;9002226.02101,"821,V38.4XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V38.5XXA ",.01)
 ;;V38.5XXA
 ;;9002226.02101,"821,V38.5XXA ",.02)
 ;;V38.5XXA
 ;;9002226.02101,"821,V38.5XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V38.6XXA ",.01)
 ;;V38.6XXA
 ;;9002226.02101,"821,V38.6XXA ",.02)
 ;;V38.6XXA
 ;;9002226.02101,"821,V38.6XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V38.7XXA ",.01)
 ;;V38.7XXA
 ;;9002226.02101,"821,V38.7XXA ",.02)
 ;;V38.7XXA
 ;;9002226.02101,"821,V38.7XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V38.9XXA ",.01)
 ;;V38.9XXA
 ;;9002226.02101,"821,V38.9XXA ",.02)
 ;;V38.9XXA
 ;;9002226.02101,"821,V38.9XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V39.00XA ",.01)
 ;;V39.00XA
 ;;9002226.02101,"821,V39.00XA ",.02)
 ;;V39.00XA
 ;;9002226.02101,"821,V39.00XA ",.03)
 ;;30
 ;;9002226.02101,"821,V39.09XA ",.01)
 ;;V39.09XA
 ;;9002226.02101,"821,V39.09XA ",.02)
 ;;V39.09XA
 ;;9002226.02101,"821,V39.09XA ",.03)
 ;;30
 ;;9002226.02101,"821,V39.10XA ",.01)
 ;;V39.10XA
 ;;9002226.02101,"821,V39.10XA ",.02)
 ;;V39.10XA
 ;;9002226.02101,"821,V39.10XA ",.03)
 ;;30
 ;;9002226.02101,"821,V39.19XA ",.01)
 ;;V39.19XA
 ;;9002226.02101,"821,V39.19XA ",.02)
 ;;V39.19XA
 ;;9002226.02101,"821,V39.19XA ",.03)
 ;;30
 ;;9002226.02101,"821,V39.20XA ",.01)
 ;;V39.20XA
 ;;9002226.02101,"821,V39.20XA ",.02)
 ;;V39.20XA
 ;;9002226.02101,"821,V39.20XA ",.03)
 ;;30
 ;;9002226.02101,"821,V39.29XA ",.01)
 ;;V39.29XA
 ;;9002226.02101,"821,V39.29XA ",.02)
 ;;V39.29XA
 ;;9002226.02101,"821,V39.29XA ",.03)
 ;;30
 ;;9002226.02101,"821,V39.3XXA ",.01)
 ;;V39.3XXA
 ;;9002226.02101,"821,V39.3XXA ",.02)
 ;;V39.3XXA
 ;;9002226.02101,"821,V39.3XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V39.40XA ",.01)
 ;;V39.40XA
 ;;9002226.02101,"821,V39.40XA ",.02)
 ;;V39.40XA
 ;;9002226.02101,"821,V39.40XA ",.03)
 ;;30
 ;;9002226.02101,"821,V39.49XA ",.01)
 ;;V39.49XA
 ;;9002226.02101,"821,V39.49XA ",.02)
 ;;V39.49XA
 ;;9002226.02101,"821,V39.49XA ",.03)
 ;;30
 ;;9002226.02101,"821,V39.50XA ",.01)
 ;;V39.50XA
 ;;9002226.02101,"821,V39.50XA ",.02)
 ;;V39.50XA
 ;;9002226.02101,"821,V39.50XA ",.03)
 ;;30
 ;;9002226.02101,"821,V39.59XA ",.01)
 ;;V39.59XA
 ;;9002226.02101,"821,V39.59XA ",.02)
 ;;V39.59XA
 ;;9002226.02101,"821,V39.59XA ",.03)
 ;;30
 ;;9002226.02101,"821,V39.60XA ",.01)
 ;;V39.60XA
 ;;9002226.02101,"821,V39.60XA ",.02)
 ;;V39.60XA
 ;;9002226.02101,"821,V39.60XA ",.03)
 ;;30
 ;;9002226.02101,"821,V39.69XA ",.01)
 ;;V39.69XA
 ;;9002226.02101,"821,V39.69XA ",.02)
 ;;V39.69XA
 ;;9002226.02101,"821,V39.69XA ",.03)
 ;;30
 ;;9002226.02101,"821,V39.81XA ",.01)
 ;;V39.81XA
 ;;9002226.02101,"821,V39.81XA ",.02)
 ;;V39.81XA
 ;;9002226.02101,"821,V39.81XA ",.03)
 ;;30
 ;;9002226.02101,"821,V39.89XA ",.01)
 ;;V39.89XA
 ;;9002226.02101,"821,V39.89XA ",.02)
 ;;V39.89XA
 ;;9002226.02101,"821,V39.89XA ",.03)
 ;;30
 ;;9002226.02101,"821,V39.9XXA ",.01)
 ;;V39.9XXA
 ;;9002226.02101,"821,V39.9XXA ",.02)
 ;;V39.9XXA
 ;;9002226.02101,"821,V39.9XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V40.0XXA ",.01)
 ;;V40.0XXA
 ;;9002226.02101,"821,V40.0XXA ",.02)
 ;;V40.0XXA
 ;;9002226.02101,"821,V40.0XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V40.1XXA ",.01)
 ;;V40.1XXA
 ;;9002226.02101,"821,V40.1XXA ",.02)
 ;;V40.1XXA
 ;;9002226.02101,"821,V40.1XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V40.2XXA ",.01)
 ;;V40.2XXA
 ;;9002226.02101,"821,V40.2XXA ",.02)
 ;;V40.2XXA
 ;;9002226.02101,"821,V40.2XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V40.3XXA ",.01)
 ;;V40.3XXA
 ;;9002226.02101,"821,V40.3XXA ",.02)
 ;;V40.3XXA
 ;;9002226.02101,"821,V40.3XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V40.4XXA ",.01)
 ;;V40.4XXA
 ;;9002226.02101,"821,V40.4XXA ",.02)
 ;;V40.4XXA
 ;;9002226.02101,"821,V40.4XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V40.5XXA ",.01)
 ;;V40.5XXA
 ;;9002226.02101,"821,V40.5XXA ",.02)
 ;;V40.5XXA
 ;;9002226.02101,"821,V40.5XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V40.6XXA ",.01)
 ;;V40.6XXA
 ;;9002226.02101,"821,V40.6XXA ",.02)
 ;;V40.6XXA
 ;;9002226.02101,"821,V40.6XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V40.7XXA ",.01)
 ;;V40.7XXA
 ;;9002226.02101,"821,V40.7XXA ",.02)
 ;;V40.7XXA
 ;;9002226.02101,"821,V40.7XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V40.9XXA ",.01)
 ;;V40.9XXA
 ;;9002226.02101,"821,V40.9XXA ",.02)
 ;;V40.9XXA
 ;;9002226.02101,"821,V40.9XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V41.0XXA ",.01)
 ;;V41.0XXA
 ;;9002226.02101,"821,V41.0XXA ",.02)
 ;;V41.0XXA
 ;;9002226.02101,"821,V41.0XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V41.1XXA ",.01)
 ;;V41.1XXA
 ;;9002226.02101,"821,V41.1XXA ",.02)
 ;;V41.1XXA
 ;;9002226.02101,"821,V41.1XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V41.2XXA ",.01)
 ;;V41.2XXA
 ;;9002226.02101,"821,V41.2XXA ",.02)
 ;;V41.2XXA
 ;;9002226.02101,"821,V41.2XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V41.3XXA ",.01)
 ;;V41.3XXA
 ;;9002226.02101,"821,V41.3XXA ",.02)
 ;;V41.3XXA
 ;;9002226.02101,"821,V41.3XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V41.4XXA ",.01)
 ;;V41.4XXA
 ;;9002226.02101,"821,V41.4XXA ",.02)
 ;;V41.4XXA
 ;;9002226.02101,"821,V41.4XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V41.5XXA ",.01)
 ;;V41.5XXA
 ;;9002226.02101,"821,V41.5XXA ",.02)
 ;;V41.5XXA
 ;;9002226.02101,"821,V41.5XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V41.6XXA ",.01)
 ;;V41.6XXA
 ;;9002226.02101,"821,V41.6XXA ",.02)
 ;;V41.6XXA
 ;;9002226.02101,"821,V41.6XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V41.7XXA ",.01)
 ;;V41.7XXA
 ;;9002226.02101,"821,V41.7XXA ",.02)
 ;;V41.7XXA
 ;;9002226.02101,"821,V41.7XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V41.9XXA ",.01)
 ;;V41.9XXA
 ;;9002226.02101,"821,V41.9XXA ",.02)
 ;;V41.9XXA
 ;;9002226.02101,"821,V41.9XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V42.0XXA ",.01)
 ;;V42.0XXA
 ;;9002226.02101,"821,V42.0XXA ",.02)
 ;;V42.0XXA
 ;;9002226.02101,"821,V42.0XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V42.1XXA ",.01)
 ;;V42.1XXA
 ;;9002226.02101,"821,V42.1XXA ",.02)
 ;;V42.1XXA
 ;;9002226.02101,"821,V42.1XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V42.2XXA ",.01)
 ;;V42.2XXA
 ;;9002226.02101,"821,V42.2XXA ",.02)
 ;;V42.2XXA
 ;;9002226.02101,"821,V42.2XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V42.3XXA ",.01)
 ;;V42.3XXA
 ;;9002226.02101,"821,V42.3XXA ",.02)
 ;;V42.3XXA
 ;;9002226.02101,"821,V42.3XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V42.4XXA ",.01)
 ;;V42.4XXA
 ;;9002226.02101,"821,V42.4XXA ",.02)
 ;;V42.4XXA
 ;;9002226.02101,"821,V42.4XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V42.5XXA ",.01)
 ;;V42.5XXA
 ;;9002226.02101,"821,V42.5XXA ",.02)
 ;;V42.5XXA
 ;;9002226.02101,"821,V42.5XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V42.6XXA ",.01)
 ;;V42.6XXA
 ;;9002226.02101,"821,V42.6XXA ",.02)
 ;;V42.6XXA
 ;;9002226.02101,"821,V42.6XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V42.7XXA ",.01)
 ;;V42.7XXA
 ;;9002226.02101,"821,V42.7XXA ",.02)
 ;;V42.7XXA
 ;;9002226.02101,"821,V42.7XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V42.9XXA ",.01)
 ;;V42.9XXA
 ;;9002226.02101,"821,V42.9XXA ",.02)
 ;;V42.9XXA
 ;;9002226.02101,"821,V42.9XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V43.01XA ",.01)
 ;;V43.01XA
 ;;9002226.02101,"821,V43.01XA ",.02)
 ;;V43.01XA
 ;;9002226.02101,"821,V43.01XA ",.03)
 ;;30
 ;;9002226.02101,"821,V43.02XA ",.01)
 ;;V43.02XA
 ;;9002226.02101,"821,V43.02XA ",.02)
 ;;V43.02XA
 ;;9002226.02101,"821,V43.02XA ",.03)
 ;;30
 ;;9002226.02101,"821,V43.03XA ",.01)
 ;;V43.03XA
 ;;9002226.02101,"821,V43.03XA ",.02)
 ;;V43.03XA
 ;;9002226.02101,"821,V43.03XA ",.03)
 ;;30
 ;;9002226.02101,"821,V43.04XA ",.01)
 ;;V43.04XA
 ;;9002226.02101,"821,V43.04XA ",.02)
 ;;V43.04XA
 ;;9002226.02101,"821,V43.04XA ",.03)
 ;;30
 ;;9002226.02101,"821,V43.11XA ",.01)
 ;;V43.11XA
 ;;9002226.02101,"821,V43.11XA ",.02)
 ;;V43.11XA
 ;;9002226.02101,"821,V43.11XA ",.03)
 ;;30
 ;;9002226.02101,"821,V43.12XA ",.01)
 ;;V43.12XA
 ;;9002226.02101,"821,V43.12XA ",.02)
 ;;V43.12XA
 ;;9002226.02101,"821,V43.12XA ",.03)
 ;;30
 ;;9002226.02101,"821,V43.13XA ",.01)
 ;;V43.13XA
 ;;9002226.02101,"821,V43.13XA ",.02)
 ;;V43.13XA
 ;;9002226.02101,"821,V43.13XA ",.03)
 ;;30
 ;;9002226.02101,"821,V43.14XA ",.01)
 ;;V43.14XA
 ;;9002226.02101,"821,V43.14XA ",.02)
 ;;V43.14XA
 ;;9002226.02101,"821,V43.14XA ",.03)
 ;;30
 ;;9002226.02101,"821,V43.21XA ",.01)
 ;;V43.21XA
 ;;9002226.02101,"821,V43.21XA ",.02)
 ;;V43.21XA
 ;;9002226.02101,"821,V43.21XA ",.03)
 ;;30
 ;;9002226.02101,"821,V43.22XA ",.01)
 ;;V43.22XA
 ;;9002226.02101,"821,V43.22XA ",.02)
 ;;V43.22XA
 ;;9002226.02101,"821,V43.22XA ",.03)
 ;;30
 ;;9002226.02101,"821,V43.23XA ",.01)
 ;;V43.23XA
 ;;9002226.02101,"821,V43.23XA ",.02)
 ;;V43.23XA
 ;;9002226.02101,"821,V43.23XA ",.03)
 ;;30
 ;;9002226.02101,"821,V43.24XA ",.01)
 ;;V43.24XA
 ;;9002226.02101,"821,V43.24XA ",.02)
 ;;V43.24XA
 ;;9002226.02101,"821,V43.24XA ",.03)
 ;;30
 ;;9002226.02101,"821,V43.31XA ",.01)
 ;;V43.31XA
 ;;9002226.02101,"821,V43.31XA ",.02)
 ;;V43.31XA
 ;;9002226.02101,"821,V43.31XA ",.03)
 ;;30
 ;;9002226.02101,"821,V43.32XA ",.01)
 ;;V43.32XA
 ;;9002226.02101,"821,V43.32XA ",.02)
 ;;V43.32XA
 ;;9002226.02101,"821,V43.32XA ",.03)
 ;;30
 ;;9002226.02101,"821,V43.33XA ",.01)
 ;;V43.33XA
 ;;9002226.02101,"821,V43.33XA ",.02)
 ;;V43.33XA
 ;;9002226.02101,"821,V43.33XA ",.03)
 ;;30
 ;;9002226.02101,"821,V43.34XA ",.01)
 ;;V43.34XA
 ;;9002226.02101,"821,V43.34XA ",.02)
 ;;V43.34XA
 ;;9002226.02101,"821,V43.34XA ",.03)
 ;;30
 ;;9002226.02101,"821,V43.41XA ",.01)
 ;;V43.41XA
 ;;9002226.02101,"821,V43.41XA ",.02)
 ;;V43.41XA
 ;;9002226.02101,"821,V43.41XA ",.03)
 ;;30
 ;;9002226.02101,"821,V43.42XA ",.01)
 ;;V43.42XA
 ;;9002226.02101,"821,V43.42XA ",.02)
 ;;V43.42XA
 ;;9002226.02101,"821,V43.42XA ",.03)
 ;;30
 ;;9002226.02101,"821,V43.43XA ",.01)
 ;;V43.43XA
 ;;9002226.02101,"821,V43.43XA ",.02)
 ;;V43.43XA