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

ATXXA76.m

Go to the documentation of this file.
ATXXA76 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON APR 29, 2014;
 ;;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,"873,S56.416A ",.02)
 ;;S56.416A
 ;;9002226.02101,"873,S56.416A ",.03)
 ;;30
 ;;9002226.02101,"873,S56.417A ",.01)
 ;;S56.417A
 ;;9002226.02101,"873,S56.417A ",.02)
 ;;S56.417A
 ;;9002226.02101,"873,S56.417A ",.03)
 ;;30
 ;;9002226.02101,"873,S56.418A ",.01)
 ;;S56.418A
 ;;9002226.02101,"873,S56.418A ",.02)
 ;;S56.418A
 ;;9002226.02101,"873,S56.418A ",.03)
 ;;30
 ;;9002226.02101,"873,S56.419A ",.01)
 ;;S56.419A
 ;;9002226.02101,"873,S56.419A ",.02)
 ;;S56.419A
 ;;9002226.02101,"873,S56.419A ",.03)
 ;;30
 ;;9002226.02101,"873,S56.421A ",.01)
 ;;S56.421A
 ;;9002226.02101,"873,S56.421A ",.02)
 ;;S56.421A
 ;;9002226.02101,"873,S56.421A ",.03)
 ;;30
 ;;9002226.02101,"873,S56.422A ",.01)
 ;;S56.422A
 ;;9002226.02101,"873,S56.422A ",.02)
 ;;S56.422A
 ;;9002226.02101,"873,S56.422A ",.03)
 ;;30
 ;;9002226.02101,"873,S56.423A ",.01)
 ;;S56.423A
 ;;9002226.02101,"873,S56.423A ",.02)
 ;;S56.423A
 ;;9002226.02101,"873,S56.423A ",.03)
 ;;30
 ;;9002226.02101,"873,S56.424A ",.01)
 ;;S56.424A
 ;;9002226.02101,"873,S56.424A ",.02)
 ;;S56.424A
 ;;9002226.02101,"873,S56.424A ",.03)
 ;;30
 ;;9002226.02101,"873,S56.425A ",.01)
 ;;S56.425A
 ;;9002226.02101,"873,S56.425A ",.02)
 ;;S56.425A
 ;;9002226.02101,"873,S56.425A ",.03)
 ;;30
 ;;9002226.02101,"873,S56.426A ",.01)
 ;;S56.426A
 ;;9002226.02101,"873,S56.426A ",.02)
 ;;S56.426A
 ;;9002226.02101,"873,S56.426A ",.03)
 ;;30
 ;;9002226.02101,"873,S56.427A ",.01)
 ;;S56.427A
 ;;9002226.02101,"873,S56.427A ",.02)
 ;;S56.427A
 ;;9002226.02101,"873,S56.427A ",.03)
 ;;30
 ;;9002226.02101,"873,S56.428A ",.01)
 ;;S56.428A
 ;;9002226.02101,"873,S56.428A ",.02)
 ;;S56.428A
 ;;9002226.02101,"873,S56.428A ",.03)
 ;;30
 ;;9002226.02101,"873,S56.429A ",.01)
 ;;S56.429A
 ;;9002226.02101,"873,S56.429A ",.02)
 ;;S56.429A
 ;;9002226.02101,"873,S56.429A ",.03)
 ;;30
 ;;9002226.02101,"873,S56.491A ",.01)
 ;;S56.491A
 ;;9002226.02101,"873,S56.491A ",.02)
 ;;S56.491A
 ;;9002226.02101,"873,S56.491A ",.03)
 ;;30
 ;;9002226.02101,"873,S56.492A ",.01)
 ;;S56.492A
 ;;9002226.02101,"873,S56.492A ",.02)
 ;;S56.492A
 ;;9002226.02101,"873,S56.492A ",.03)
 ;;30
 ;;9002226.02101,"873,S56.493A ",.01)
 ;;S56.493A
 ;;9002226.02101,"873,S56.493A ",.02)
 ;;S56.493A
 ;;9002226.02101,"873,S56.493A ",.03)
 ;;30
 ;;9002226.02101,"873,S56.494A ",.01)
 ;;S56.494A
 ;;9002226.02101,"873,S56.494A ",.02)
 ;;S56.494A
 ;;9002226.02101,"873,S56.494A ",.03)
 ;;30
 ;;9002226.02101,"873,S56.495A ",.01)
 ;;S56.495A
 ;;9002226.02101,"873,S56.495A ",.02)
 ;;S56.495A
 ;;9002226.02101,"873,S56.495A ",.03)
 ;;30
 ;;9002226.02101,"873,S56.496A ",.01)
 ;;S56.496A
 ;;9002226.02101,"873,S56.496A ",.02)
 ;;S56.496A
 ;;9002226.02101,"873,S56.496A ",.03)
 ;;30
 ;;9002226.02101,"873,S56.497A ",.01)
 ;;S56.497A
 ;;9002226.02101,"873,S56.497A ",.02)
 ;;S56.497A
 ;;9002226.02101,"873,S56.497A ",.03)
 ;;30
 ;;9002226.02101,"873,S56.498A ",.01)
 ;;S56.498A
 ;;9002226.02101,"873,S56.498A ",.02)
 ;;S56.498A
 ;;9002226.02101,"873,S56.498A ",.03)
 ;;30
 ;;9002226.02101,"873,S56.499A ",.01)
 ;;S56.499A
 ;;9002226.02101,"873,S56.499A ",.02)
 ;;S56.499A
 ;;9002226.02101,"873,S56.499A ",.03)
 ;;30
 ;;9002226.02101,"873,S56.501A ",.01)
 ;;S56.501A
 ;;9002226.02101,"873,S56.501A ",.02)
 ;;S56.501A
 ;;9002226.02101,"873,S56.501A ",.03)
 ;;30
 ;;9002226.02101,"873,S56.502A ",.01)
 ;;S56.502A
 ;;9002226.02101,"873,S56.502A ",.02)
 ;;S56.502A
 ;;9002226.02101,"873,S56.502A ",.03)
 ;;30
 ;;9002226.02101,"873,S56.509A ",.01)
 ;;S56.509A
 ;;9002226.02101,"873,S56.509A ",.02)
 ;;S56.509A
 ;;9002226.02101,"873,S56.509A ",.03)
 ;;30
 ;;9002226.02101,"873,S56.511A ",.01)
 ;;S56.511A
 ;;9002226.02101,"873,S56.511A ",.02)
 ;;S56.511A
 ;;9002226.02101,"873,S56.511A ",.03)
 ;;30
 ;;9002226.02101,"873,S56.512A ",.01)
 ;;S56.512A
 ;;9002226.02101,"873,S56.512A ",.02)
 ;;S56.512A
 ;;9002226.02101,"873,S56.512A ",.03)
 ;;30
 ;;9002226.02101,"873,S56.519A ",.01)
 ;;S56.519A
 ;;9002226.02101,"873,S56.519A ",.02)
 ;;S56.519A
 ;;9002226.02101,"873,S56.519A ",.03)
 ;;30
 ;;9002226.02101,"873,S56.521A ",.01)
 ;;S56.521A
 ;;9002226.02101,"873,S56.521A ",.02)
 ;;S56.521A
 ;;9002226.02101,"873,S56.521A ",.03)
 ;;30
 ;;9002226.02101,"873,S56.522A ",.01)
 ;;S56.522A
 ;;9002226.02101,"873,S56.522A ",.02)
 ;;S56.522A
 ;;9002226.02101,"873,S56.522A ",.03)
 ;;30
 ;;9002226.02101,"873,S56.529A ",.01)
 ;;S56.529A
 ;;9002226.02101,"873,S56.529A ",.02)
 ;;S56.529A
 ;;9002226.02101,"873,S56.529A ",.03)
 ;;30
 ;;9002226.02101,"873,S56.591A ",.01)
 ;;S56.591A
 ;;9002226.02101,"873,S56.591A ",.02)
 ;;S56.591A
 ;;9002226.02101,"873,S56.591A ",.03)
 ;;30
 ;;9002226.02101,"873,S56.592A ",.01)
 ;;S56.592A
 ;;9002226.02101,"873,S56.592A ",.02)
 ;;S56.592A
 ;;9002226.02101,"873,S56.592A ",.03)
 ;;30
 ;;9002226.02101,"873,S56.599A ",.01)
 ;;S56.599A
 ;;9002226.02101,"873,S56.599A ",.02)
 ;;S56.599A
 ;;9002226.02101,"873,S56.599A ",.03)
 ;;30
 ;;9002226.02101,"873,S56.801A ",.01)
 ;;S56.801A
 ;;9002226.02101,"873,S56.801A ",.02)
 ;;S56.801A
 ;;9002226.02101,"873,S56.801A ",.03)
 ;;30
 ;;9002226.02101,"873,S56.802A ",.01)
 ;;S56.802A
 ;;9002226.02101,"873,S56.802A ",.02)
 ;;S56.802A
 ;;9002226.02101,"873,S56.802A ",.03)
 ;;30
 ;;9002226.02101,"873,S56.809A ",.01)
 ;;S56.809A
 ;;9002226.02101,"873,S56.809A ",.02)
 ;;S56.809A
 ;;9002226.02101,"873,S56.809A ",.03)
 ;;30
 ;;9002226.02101,"873,S56.811A ",.01)
 ;;S56.811A
 ;;9002226.02101,"873,S56.811A ",.02)
 ;;S56.811A
 ;;9002226.02101,"873,S56.811A ",.03)
 ;;30
 ;;9002226.02101,"873,S56.812A ",.01)
 ;;S56.812A
 ;;9002226.02101,"873,S56.812A ",.02)
 ;;S56.812A
 ;;9002226.02101,"873,S56.812A ",.03)
 ;;30
 ;;9002226.02101,"873,S56.819A ",.01)
 ;;S56.819A
 ;;9002226.02101,"873,S56.819A ",.02)
 ;;S56.819A
 ;;9002226.02101,"873,S56.819A ",.03)
 ;;30
 ;;9002226.02101,"873,S56.821A ",.01)
 ;;S56.821A
 ;;9002226.02101,"873,S56.821A ",.02)
 ;;S56.821A
 ;;9002226.02101,"873,S56.821A ",.03)
 ;;30
 ;;9002226.02101,"873,S56.822A ",.01)
 ;;S56.822A
 ;;9002226.02101,"873,S56.822A ",.02)
 ;;S56.822A
 ;;9002226.02101,"873,S56.822A ",.03)
 ;;30
 ;;9002226.02101,"873,S56.829A ",.01)
 ;;S56.829A
 ;;9002226.02101,"873,S56.829A ",.02)
 ;;S56.829A
 ;;9002226.02101,"873,S56.829A ",.03)
 ;;30
 ;;9002226.02101,"873,S56.891A ",.01)
 ;;S56.891A
 ;;9002226.02101,"873,S56.891A ",.02)
 ;;S56.891A
 ;;9002226.02101,"873,S56.891A ",.03)
 ;;30
 ;;9002226.02101,"873,S56.892A ",.01)
 ;;S56.892A
 ;;9002226.02101,"873,S56.892A ",.02)
 ;;S56.892A
 ;;9002226.02101,"873,S56.892A ",.03)
 ;;30
 ;;9002226.02101,"873,S56.899A ",.01)
 ;;S56.899A
 ;;9002226.02101,"873,S56.899A ",.02)
 ;;S56.899A
 ;;9002226.02101,"873,S56.899A ",.03)
 ;;30
 ;;9002226.02101,"873,S56.901A ",.01)
 ;;S56.901A
 ;;9002226.02101,"873,S56.901A ",.02)
 ;;S56.901A
 ;;9002226.02101,"873,S56.901A ",.03)
 ;;30
 ;;9002226.02101,"873,S56.902A ",.01)
 ;;S56.902A
 ;;9002226.02101,"873,S56.902A ",.02)
 ;;S56.902A
 ;;9002226.02101,"873,S56.902A ",.03)
 ;;30
 ;;9002226.02101,"873,S56.909A ",.01)
 ;;S56.909A
 ;;9002226.02101,"873,S56.909A ",.02)
 ;;S56.909A
 ;;9002226.02101,"873,S56.909A ",.03)
 ;;30
 ;;9002226.02101,"873,S56.911A ",.01)
 ;;S56.911A
 ;;9002226.02101,"873,S56.911A ",.02)
 ;;S56.911A
 ;;9002226.02101,"873,S56.911A ",.03)
 ;;30
 ;;9002226.02101,"873,S56.912A ",.01)
 ;;S56.912A
 ;;9002226.02101,"873,S56.912A ",.02)
 ;;S56.912A
 ;;9002226.02101,"873,S56.912A ",.03)
 ;;30
 ;;9002226.02101,"873,S56.919A ",.01)
 ;;S56.919A
 ;;9002226.02101,"873,S56.919A ",.02)
 ;;S56.919A
 ;;9002226.02101,"873,S56.919A ",.03)
 ;;30
 ;;9002226.02101,"873,S56.921A ",.01)
 ;;S56.921A
 ;;9002226.02101,"873,S56.921A ",.02)
 ;;S56.921A
 ;;9002226.02101,"873,S56.921A ",.03)
 ;;30
 ;;9002226.02101,"873,S56.922A ",.01)
 ;;S56.922A
 ;;9002226.02101,"873,S56.922A ",.02)
 ;;S56.922A
 ;;9002226.02101,"873,S56.922A ",.03)
 ;;30
 ;;9002226.02101,"873,S56.929A ",.01)
 ;;S56.929A
 ;;9002226.02101,"873,S56.929A ",.02)
 ;;S56.929A
 ;;9002226.02101,"873,S56.929A ",.03)
 ;;30
 ;;9002226.02101,"873,S56.991A ",.01)
 ;;S56.991A
 ;;9002226.02101,"873,S56.991A ",.02)
 ;;S56.991A
 ;;9002226.02101,"873,S56.991A ",.03)
 ;;30
 ;;9002226.02101,"873,S56.992A ",.01)
 ;;S56.992A
 ;;9002226.02101,"873,S56.992A ",.02)
 ;;S56.992A
 ;;9002226.02101,"873,S56.992A ",.03)
 ;;30
 ;;9002226.02101,"873,S56.999A ",.01)
 ;;S56.999A
 ;;9002226.02101,"873,S56.999A ",.02)
 ;;S56.999A
 ;;9002226.02101,"873,S56.999A ",.03)
 ;;30
 ;;9002226.02101,"873,S57.00XA ",.01)
 ;;S57.00XA
 ;;9002226.02101,"873,S57.00XA ",.02)
 ;;S57.00XA
 ;;9002226.02101,"873,S57.00XA ",.03)
 ;;30
 ;;9002226.02101,"873,S57.01XA ",.01)
 ;;S57.01XA
 ;;9002226.02101,"873,S57.01XA ",.02)
 ;;S57.01XA
 ;;9002226.02101,"873,S57.01XA ",.03)
 ;;30
 ;;9002226.02101,"873,S57.02XA ",.01)
 ;;S57.02XA
 ;;9002226.02101,"873,S57.02XA ",.02)
 ;;S57.02XA
 ;;9002226.02101,"873,S57.02XA ",.03)
 ;;30
 ;;9002226.02101,"873,S57.80XA ",.01)
 ;;S57.80XA
 ;;9002226.02101,"873,S57.80XA ",.02)
 ;;S57.80XA
 ;;9002226.02101,"873,S57.80XA ",.03)
 ;;30
 ;;9002226.02101,"873,S57.81XA ",.01)
 ;;S57.81XA
 ;;9002226.02101,"873,S57.81XA ",.02)
 ;;S57.81XA
 ;;9002226.02101,"873,S57.81XA ",.03)
 ;;30
 ;;9002226.02101,"873,S57.82XA ",.01)
 ;;S57.82XA
 ;;9002226.02101,"873,S57.82XA ",.02)
 ;;S57.82XA
 ;;9002226.02101,"873,S57.82XA ",.03)
 ;;30
 ;;9002226.02101,"873,S58.011A ",.01)
 ;;S58.011A
 ;;9002226.02101,"873,S58.011A ",.02)
 ;;S58.011A
 ;;9002226.02101,"873,S58.011A ",.03)
 ;;30
 ;;9002226.02101,"873,S58.012A ",.01)
 ;;S58.012A
 ;;9002226.02101,"873,S58.012A ",.02)
 ;;S58.012A
 ;;9002226.02101,"873,S58.012A ",.03)
 ;;30
 ;;9002226.02101,"873,S58.019A ",.01)
 ;;S58.019A
 ;;9002226.02101,"873,S58.019A ",.02)
 ;;S58.019A
 ;;9002226.02101,"873,S58.019A ",.03)
 ;;30
 ;;9002226.02101,"873,S58.021A ",.01)
 ;;S58.021A
 ;;9002226.02101,"873,S58.021A ",.02)
 ;;S58.021A
 ;;9002226.02101,"873,S58.021A ",.03)
 ;;30
 ;;9002226.02101,"873,S58.022A ",.01)
 ;;S58.022A
 ;;9002226.02101,"873,S58.022A ",.02)
 ;;S58.022A
 ;;9002226.02101,"873,S58.022A ",.03)
 ;;30
 ;;9002226.02101,"873,S58.029A ",.01)
 ;;S58.029A
 ;;9002226.02101,"873,S58.029A ",.02)
 ;;S58.029A
 ;;9002226.02101,"873,S58.029A ",.03)
 ;;30
 ;;9002226.02101,"873,S58.111A ",.01)
 ;;S58.111A
 ;;9002226.02101,"873,S58.111A ",.02)
 ;;S58.111A
 ;;9002226.02101,"873,S58.111A ",.03)
 ;;30
 ;;9002226.02101,"873,S58.112A ",.01)
 ;;S58.112A
 ;;9002226.02101,"873,S58.112A ",.02)
 ;;S58.112A
 ;;9002226.02101,"873,S58.112A ",.03)
 ;;30
 ;;9002226.02101,"873,S58.119A ",.01)
 ;;S58.119A
 ;;9002226.02101,"873,S58.119A ",.02)
 ;;S58.119A
 ;;9002226.02101,"873,S58.119A ",.03)
 ;;30
 ;;9002226.02101,"873,S58.121A ",.01)
 ;;S58.121A
 ;;9002226.02101,"873,S58.121A ",.02)
 ;;S58.121A
 ;;9002226.02101,"873,S58.121A ",.03)
 ;;30
 ;;9002226.02101,"873,S58.122A ",.01)
 ;;S58.122A
 ;;9002226.02101,"873,S58.122A ",.02)
 ;;S58.122A
 ;;9002226.02101,"873,S58.122A ",.03)
 ;;30
 ;;9002226.02101,"873,S58.129A ",.01)
 ;;S58.129A
 ;;9002226.02101,"873,S58.129A ",.02)
 ;;S58.129A
 ;;9002226.02101,"873,S58.129A ",.03)
 ;;30
 ;;9002226.02101,"873,S58.911A ",.01)
 ;;S58.911A
 ;;9002226.02101,"873,S58.911A ",.02)
 ;;S58.911A
 ;;9002226.02101,"873,S58.911A ",.03)
 ;;30
 ;;9002226.02101,"873,S58.912A ",.01)
 ;;S58.912A
 ;;9002226.02101,"873,S58.912A ",.02)
 ;;S58.912A
 ;;9002226.02101,"873,S58.912A ",.03)
 ;;30
 ;;9002226.02101,"873,S58.919A ",.01)
 ;;S58.919A
 ;;9002226.02101,"873,S58.919A ",.02)
 ;;S58.919A