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

ATXD1S13.m

Go to the documentation of this file.
ATXD1S13 ;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,V69.50XA ",.03)
 ;;30
 ;;9002226.02101,"821,V69.59XA ",.01)
 ;;V69.59XA
 ;;9002226.02101,"821,V69.59XA ",.02)
 ;;V69.59XA
 ;;9002226.02101,"821,V69.59XA ",.03)
 ;;30
 ;;9002226.02101,"821,V69.60XA ",.01)
 ;;V69.60XA
 ;;9002226.02101,"821,V69.60XA ",.02)
 ;;V69.60XA
 ;;9002226.02101,"821,V69.60XA ",.03)
 ;;30
 ;;9002226.02101,"821,V69.69XA ",.01)
 ;;V69.69XA
 ;;9002226.02101,"821,V69.69XA ",.02)
 ;;V69.69XA
 ;;9002226.02101,"821,V69.69XA ",.03)
 ;;30
 ;;9002226.02101,"821,V69.81XA ",.01)
 ;;V69.81XA
 ;;9002226.02101,"821,V69.81XA ",.02)
 ;;V69.81XA
 ;;9002226.02101,"821,V69.81XA ",.03)
 ;;30
 ;;9002226.02101,"821,V69.88XA ",.01)
 ;;V69.88XA
 ;;9002226.02101,"821,V69.88XA ",.02)
 ;;V69.88XA
 ;;9002226.02101,"821,V69.88XA ",.03)
 ;;30
 ;;9002226.02101,"821,V69.9XXA ",.01)
 ;;V69.9XXA
 ;;9002226.02101,"821,V69.9XXA ",.02)
 ;;V69.9XXA
 ;;9002226.02101,"821,V69.9XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V70.0XXA ",.01)
 ;;V70.0XXA
 ;;9002226.02101,"821,V70.0XXA ",.02)
 ;;V70.0XXA
 ;;9002226.02101,"821,V70.0XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V70.1XXA ",.01)
 ;;V70.1XXA
 ;;9002226.02101,"821,V70.1XXA ",.02)
 ;;V70.1XXA
 ;;9002226.02101,"821,V70.1XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V70.2XXA ",.01)
 ;;V70.2XXA
 ;;9002226.02101,"821,V70.2XXA ",.02)
 ;;V70.2XXA
 ;;9002226.02101,"821,V70.2XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V70.3XXA ",.01)
 ;;V70.3XXA
 ;;9002226.02101,"821,V70.3XXA ",.02)
 ;;V70.3XXA
 ;;9002226.02101,"821,V70.3XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V70.4XXA ",.01)
 ;;V70.4XXA
 ;;9002226.02101,"821,V70.4XXA ",.02)
 ;;V70.4XXA
 ;;9002226.02101,"821,V70.4XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V70.5XXA ",.01)
 ;;V70.5XXA
 ;;9002226.02101,"821,V70.5XXA ",.02)
 ;;V70.5XXA
 ;;9002226.02101,"821,V70.5XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V70.6XXA ",.01)
 ;;V70.6XXA
 ;;9002226.02101,"821,V70.6XXA ",.02)
 ;;V70.6XXA
 ;;9002226.02101,"821,V70.6XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V70.7XXA ",.01)
 ;;V70.7XXA
 ;;9002226.02101,"821,V70.7XXA ",.02)
 ;;V70.7XXA
 ;;9002226.02101,"821,V70.7XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V70.9XXA ",.01)
 ;;V70.9XXA
 ;;9002226.02101,"821,V70.9XXA ",.02)
 ;;V70.9XXA
 ;;9002226.02101,"821,V70.9XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V71.0XXA ",.01)
 ;;V71.0XXA
 ;;9002226.02101,"821,V71.0XXA ",.02)
 ;;V71.0XXA
 ;;9002226.02101,"821,V71.0XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V71.1XXA ",.01)
 ;;V71.1XXA
 ;;9002226.02101,"821,V71.1XXA ",.02)
 ;;V71.1XXA
 ;;9002226.02101,"821,V71.1XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V71.2XXA ",.01)
 ;;V71.2XXA
 ;;9002226.02101,"821,V71.2XXA ",.02)
 ;;V71.2XXA
 ;;9002226.02101,"821,V71.2XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V71.3XXA ",.01)
 ;;V71.3XXA
 ;;9002226.02101,"821,V71.3XXA ",.02)
 ;;V71.3XXA
 ;;9002226.02101,"821,V71.3XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V71.4XXA ",.01)
 ;;V71.4XXA
 ;;9002226.02101,"821,V71.4XXA ",.02)
 ;;V71.4XXA
 ;;9002226.02101,"821,V71.4XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V71.5XXA ",.01)
 ;;V71.5XXA
 ;;9002226.02101,"821,V71.5XXA ",.02)
 ;;V71.5XXA
 ;;9002226.02101,"821,V71.5XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V71.6XXA ",.01)
 ;;V71.6XXA
 ;;9002226.02101,"821,V71.6XXA ",.02)
 ;;V71.6XXA
 ;;9002226.02101,"821,V71.6XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V71.7XXA ",.01)
 ;;V71.7XXA
 ;;9002226.02101,"821,V71.7XXA ",.02)
 ;;V71.7XXA
 ;;9002226.02101,"821,V71.7XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V71.9XXA ",.01)
 ;;V71.9XXA
 ;;9002226.02101,"821,V71.9XXA ",.02)
 ;;V71.9XXA
 ;;9002226.02101,"821,V71.9XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V72.0XXA ",.01)
 ;;V72.0XXA
 ;;9002226.02101,"821,V72.0XXA ",.02)
 ;;V72.0XXA
 ;;9002226.02101,"821,V72.0XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V72.1XXA ",.01)
 ;;V72.1XXA
 ;;9002226.02101,"821,V72.1XXA ",.02)
 ;;V72.1XXA
 ;;9002226.02101,"821,V72.1XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V72.2XXA ",.01)
 ;;V72.2XXA
 ;;9002226.02101,"821,V72.2XXA ",.02)
 ;;V72.2XXA
 ;;9002226.02101,"821,V72.2XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V72.3XXA ",.01)
 ;;V72.3XXA
 ;;9002226.02101,"821,V72.3XXA ",.02)
 ;;V72.3XXA
 ;;9002226.02101,"821,V72.3XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V72.4XXA ",.01)
 ;;V72.4XXA
 ;;9002226.02101,"821,V72.4XXA ",.02)
 ;;V72.4XXA
 ;;9002226.02101,"821,V72.4XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V72.5XXA ",.01)
 ;;V72.5XXA
 ;;9002226.02101,"821,V72.5XXA ",.02)
 ;;V72.5XXA
 ;;9002226.02101,"821,V72.5XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V72.6XXA ",.01)
 ;;V72.6XXA
 ;;9002226.02101,"821,V72.6XXA ",.02)
 ;;V72.6XXA
 ;;9002226.02101,"821,V72.6XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V72.7XXA ",.01)
 ;;V72.7XXA
 ;;9002226.02101,"821,V72.7XXA ",.02)
 ;;V72.7XXA
 ;;9002226.02101,"821,V72.7XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V72.9XXA ",.01)
 ;;V72.9XXA
 ;;9002226.02101,"821,V72.9XXA ",.02)
 ;;V72.9XXA
 ;;9002226.02101,"821,V72.9XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V73.0XXA ",.01)
 ;;V73.0XXA
 ;;9002226.02101,"821,V73.0XXA ",.02)
 ;;V73.0XXA
 ;;9002226.02101,"821,V73.0XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V73.1XXA ",.01)
 ;;V73.1XXA
 ;;9002226.02101,"821,V73.1XXA ",.02)
 ;;V73.1XXA
 ;;9002226.02101,"821,V73.1XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V73.2XXA ",.01)
 ;;V73.2XXA
 ;;9002226.02101,"821,V73.2XXA ",.02)
 ;;V73.2XXA
 ;;9002226.02101,"821,V73.2XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V73.3XXA ",.01)
 ;;V73.3XXA
 ;;9002226.02101,"821,V73.3XXA ",.02)
 ;;V73.3XXA
 ;;9002226.02101,"821,V73.3XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V73.4XXA ",.01)
 ;;V73.4XXA
 ;;9002226.02101,"821,V73.4XXA ",.02)
 ;;V73.4XXA
 ;;9002226.02101,"821,V73.4XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V73.5XXA ",.01)
 ;;V73.5XXA
 ;;9002226.02101,"821,V73.5XXA ",.02)
 ;;V73.5XXA
 ;;9002226.02101,"821,V73.5XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V73.6XXA ",.01)
 ;;V73.6XXA
 ;;9002226.02101,"821,V73.6XXA ",.02)
 ;;V73.6XXA
 ;;9002226.02101,"821,V73.6XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V73.7XXA ",.01)
 ;;V73.7XXA
 ;;9002226.02101,"821,V73.7XXA ",.02)
 ;;V73.7XXA
 ;;9002226.02101,"821,V73.7XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V73.9XXA ",.01)
 ;;V73.9XXA
 ;;9002226.02101,"821,V73.9XXA ",.02)
 ;;V73.9XXA
 ;;9002226.02101,"821,V73.9XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V74.0XXA ",.01)
 ;;V74.0XXA
 ;;9002226.02101,"821,V74.0XXA ",.02)
 ;;V74.0XXA
 ;;9002226.02101,"821,V74.0XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V74.1XXA ",.01)
 ;;V74.1XXA
 ;;9002226.02101,"821,V74.1XXA ",.02)
 ;;V74.1XXA
 ;;9002226.02101,"821,V74.1XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V74.2XXA ",.01)
 ;;V74.2XXA
 ;;9002226.02101,"821,V74.2XXA ",.02)
 ;;V74.2XXA
 ;;9002226.02101,"821,V74.2XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V74.3XXA ",.01)
 ;;V74.3XXA
 ;;9002226.02101,"821,V74.3XXA ",.02)
 ;;V74.3XXA
 ;;9002226.02101,"821,V74.3XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V74.4XXA ",.01)
 ;;V74.4XXA
 ;;9002226.02101,"821,V74.4XXA ",.02)
 ;;V74.4XXA
 ;;9002226.02101,"821,V74.4XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V74.5XXA ",.01)
 ;;V74.5XXA
 ;;9002226.02101,"821,V74.5XXA ",.02)
 ;;V74.5XXA
 ;;9002226.02101,"821,V74.5XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V74.6XXA ",.01)
 ;;V74.6XXA
 ;;9002226.02101,"821,V74.6XXA ",.02)
 ;;V74.6XXA
 ;;9002226.02101,"821,V74.6XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V74.7XXA ",.01)
 ;;V74.7XXA
 ;;9002226.02101,"821,V74.7XXA ",.02)
 ;;V74.7XXA
 ;;9002226.02101,"821,V74.7XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V74.9XXA ",.01)
 ;;V74.9XXA
 ;;9002226.02101,"821,V74.9XXA ",.02)
 ;;V74.9XXA
 ;;9002226.02101,"821,V74.9XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V75.0XXA ",.01)
 ;;V75.0XXA
 ;;9002226.02101,"821,V75.0XXA ",.02)
 ;;V75.0XXA
 ;;9002226.02101,"821,V75.0XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V75.1XXA ",.01)
 ;;V75.1XXA
 ;;9002226.02101,"821,V75.1XXA ",.02)
 ;;V75.1XXA
 ;;9002226.02101,"821,V75.1XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V75.2XXA ",.01)
 ;;V75.2XXA
 ;;9002226.02101,"821,V75.2XXA ",.02)
 ;;V75.2XXA
 ;;9002226.02101,"821,V75.2XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V75.3XXA ",.01)
 ;;V75.3XXA
 ;;9002226.02101,"821,V75.3XXA ",.02)
 ;;V75.3XXA
 ;;9002226.02101,"821,V75.3XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V75.4XXA ",.01)
 ;;V75.4XXA
 ;;9002226.02101,"821,V75.4XXA ",.02)
 ;;V75.4XXA
 ;;9002226.02101,"821,V75.4XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V75.5XXA ",.01)
 ;;V75.5XXA
 ;;9002226.02101,"821,V75.5XXA ",.02)
 ;;V75.5XXA
 ;;9002226.02101,"821,V75.5XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V75.6XXA ",.01)
 ;;V75.6XXA
 ;;9002226.02101,"821,V75.6XXA ",.02)
 ;;V75.6XXA
 ;;9002226.02101,"821,V75.6XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V75.7XXA ",.01)
 ;;V75.7XXA
 ;;9002226.02101,"821,V75.7XXA ",.02)
 ;;V75.7XXA
 ;;9002226.02101,"821,V75.7XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V75.9XXA ",.01)
 ;;V75.9XXA
 ;;9002226.02101,"821,V75.9XXA ",.02)
 ;;V75.9XXA
 ;;9002226.02101,"821,V75.9XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V76.0XXA ",.01)
 ;;V76.0XXA
 ;;9002226.02101,"821,V76.0XXA ",.02)
 ;;V76.0XXA
 ;;9002226.02101,"821,V76.0XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V76.1XXA ",.01)
 ;;V76.1XXA
 ;;9002226.02101,"821,V76.1XXA ",.02)
 ;;V76.1XXA
 ;;9002226.02101,"821,V76.1XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V76.2XXA ",.01)
 ;;V76.2XXA
 ;;9002226.02101,"821,V76.2XXA ",.02)
 ;;V76.2XXA
 ;;9002226.02101,"821,V76.2XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V76.3XXA ",.01)
 ;;V76.3XXA
 ;;9002226.02101,"821,V76.3XXA ",.02)
 ;;V76.3XXA
 ;;9002226.02101,"821,V76.3XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V76.4XXA ",.01)
 ;;V76.4XXA
 ;;9002226.02101,"821,V76.4XXA ",.02)
 ;;V76.4XXA
 ;;9002226.02101,"821,V76.4XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V76.5XXA ",.01)
 ;;V76.5XXA
 ;;9002226.02101,"821,V76.5XXA ",.02)
 ;;V76.5XXA
 ;;9002226.02101,"821,V76.5XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V76.6XXA ",.01)
 ;;V76.6XXA
 ;;9002226.02101,"821,V76.6XXA ",.02)
 ;;V76.6XXA
 ;;9002226.02101,"821,V76.6XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V76.7XXA ",.01)
 ;;V76.7XXA
 ;;9002226.02101,"821,V76.7XXA ",.02)
 ;;V76.7XXA
 ;;9002226.02101,"821,V76.7XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V76.9XXA ",.01)
 ;;V76.9XXA
 ;;9002226.02101,"821,V76.9XXA ",.02)
 ;;V76.9XXA
 ;;9002226.02101,"821,V76.9XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V77.0XXA ",.01)
 ;;V77.0XXA
 ;;9002226.02101,"821,V77.0XXA ",.02)
 ;;V77.0XXA
 ;;9002226.02101,"821,V77.0XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V77.1XXA ",.01)
 ;;V77.1XXA
 ;;9002226.02101,"821,V77.1XXA ",.02)
 ;;V77.1XXA
 ;;9002226.02101,"821,V77.1XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V77.2XXA ",.01)
 ;;V77.2XXA
 ;;9002226.02101,"821,V77.2XXA ",.02)
 ;;V77.2XXA
 ;;9002226.02101,"821,V77.2XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V77.3XXA ",.01)
 ;;V77.3XXA
 ;;9002226.02101,"821,V77.3XXA ",.02)
 ;;V77.3XXA
 ;;9002226.02101,"821,V77.3XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V77.4XXA ",.01)
 ;;V77.4XXA
 ;;9002226.02101,"821,V77.4XXA ",.02)
 ;;V77.4XXA
 ;;9002226.02101,"821,V77.4XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V77.5XXA ",.01)
 ;;V77.5XXA
 ;;9002226.02101,"821,V77.5XXA ",.02)
 ;;V77.5XXA
 ;;9002226.02101,"821,V77.5XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V77.6XXA ",.01)
 ;;V77.6XXA
 ;;9002226.02101,"821,V77.6XXA ",.02)
 ;;V77.6XXA
 ;;9002226.02101,"821,V77.6XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V77.7XXA ",.01)
 ;;V77.7XXA
 ;;9002226.02101,"821,V77.7XXA ",.02)
 ;;V77.7XXA
 ;;9002226.02101,"821,V77.7XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V77.9XXA ",.01)
 ;;V77.9XXA
 ;;9002226.02101,"821,V77.9XXA ",.02)
 ;;V77.9XXA
 ;;9002226.02101,"821,V77.9XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V78.0XXA ",.01)
 ;;V78.0XXA
 ;;9002226.02101,"821,V78.0XXA ",.02)
 ;;V78.0XXA
 ;;9002226.02101,"821,V78.0XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V78.1XXA ",.01)
 ;;V78.1XXA
 ;;9002226.02101,"821,V78.1XXA ",.02)
 ;;V78.1XXA
 ;;9002226.02101,"821,V78.1XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V78.2XXA ",.01)
 ;;V78.2XXA
 ;;9002226.02101,"821,V78.2XXA ",.02)
 ;;V78.2XXA
 ;;9002226.02101,"821,V78.2XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V78.3XXA ",.01)
 ;;V78.3XXA
 ;;9002226.02101,"821,V78.3XXA ",.02)
 ;;V78.3XXA
 ;;9002226.02101,"821,V78.3XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V78.4XXA ",.01)
 ;;V78.4XXA
 ;;9002226.02101,"821,V78.4XXA ",.02)
 ;;V78.4XXA
 ;;9002226.02101,"821,V78.4XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V78.5XXA ",.01)
 ;;V78.5XXA
 ;;9002226.02101,"821,V78.5XXA ",.02)
 ;;V78.5XXA
 ;;9002226.02101,"821,V78.5XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V78.6XXA ",.01)
 ;;V78.6XXA
 ;;9002226.02101,"821,V78.6XXA ",.02)
 ;;V78.6XXA
 ;;9002226.02101,"821,V78.6XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V78.7XXA ",.01)
 ;;V78.7XXA
 ;;9002226.02101,"821,V78.7XXA ",.02)
 ;;V78.7XXA
 ;;9002226.02101,"821,V78.7XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V78.9XXA ",.01)
 ;;V78.9XXA
 ;;9002226.02101,"821,V78.9XXA ",.02)
 ;;V78.9XXA
 ;;9002226.02101,"821,V78.9XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V79.00XA ",.01)
 ;;V79.00XA
 ;;9002226.02101,"821,V79.00XA ",.02)
 ;;V79.00XA
 ;;9002226.02101,"821,V79.00XA ",.03)
 ;;30
 ;;9002226.02101,"821,V79.09XA ",.01)
 ;;V79.09XA
 ;;9002226.02101,"821,V79.09XA ",.02)
 ;;V79.09XA
 ;;9002226.02101,"821,V79.09XA ",.03)
 ;;30
 ;;9002226.02101,"821,V79.10XA ",.01)
 ;;V79.10XA
 ;;9002226.02101,"821,V79.10XA ",.02)
 ;;V79.10XA
 ;;9002226.02101,"821,V79.10XA ",.03)
 ;;30
 ;;9002226.02101,"821,V79.19XA ",.01)
 ;;V79.19XA