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

ATXXA64.m

Go to the documentation of this file.
ATXXA64 ;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,S46.202A ",.02)
 ;;S46.202A
 ;;9002226.02101,"873,S46.202A ",.03)
 ;;30
 ;;9002226.02101,"873,S46.209A ",.01)
 ;;S46.209A
 ;;9002226.02101,"873,S46.209A ",.02)
 ;;S46.209A
 ;;9002226.02101,"873,S46.209A ",.03)
 ;;30
 ;;9002226.02101,"873,S46.211A ",.01)
 ;;S46.211A
 ;;9002226.02101,"873,S46.211A ",.02)
 ;;S46.211A
 ;;9002226.02101,"873,S46.211A ",.03)
 ;;30
 ;;9002226.02101,"873,S46.212A ",.01)
 ;;S46.212A
 ;;9002226.02101,"873,S46.212A ",.02)
 ;;S46.212A
 ;;9002226.02101,"873,S46.212A ",.03)
 ;;30
 ;;9002226.02101,"873,S46.219A ",.01)
 ;;S46.219A
 ;;9002226.02101,"873,S46.219A ",.02)
 ;;S46.219A
 ;;9002226.02101,"873,S46.219A ",.03)
 ;;30
 ;;9002226.02101,"873,S46.221A ",.01)
 ;;S46.221A
 ;;9002226.02101,"873,S46.221A ",.02)
 ;;S46.221A
 ;;9002226.02101,"873,S46.221A ",.03)
 ;;30
 ;;9002226.02101,"873,S46.222A ",.01)
 ;;S46.222A
 ;;9002226.02101,"873,S46.222A ",.02)
 ;;S46.222A
 ;;9002226.02101,"873,S46.222A ",.03)
 ;;30
 ;;9002226.02101,"873,S46.229A ",.01)
 ;;S46.229A
 ;;9002226.02101,"873,S46.229A ",.02)
 ;;S46.229A
 ;;9002226.02101,"873,S46.229A ",.03)
 ;;30
 ;;9002226.02101,"873,S46.291A ",.01)
 ;;S46.291A
 ;;9002226.02101,"873,S46.291A ",.02)
 ;;S46.291A
 ;;9002226.02101,"873,S46.291A ",.03)
 ;;30
 ;;9002226.02101,"873,S46.292A ",.01)
 ;;S46.292A
 ;;9002226.02101,"873,S46.292A ",.02)
 ;;S46.292A
 ;;9002226.02101,"873,S46.292A ",.03)
 ;;30
 ;;9002226.02101,"873,S46.299A ",.01)
 ;;S46.299A
 ;;9002226.02101,"873,S46.299A ",.02)
 ;;S46.299A
 ;;9002226.02101,"873,S46.299A ",.03)
 ;;30
 ;;9002226.02101,"873,S46.301A ",.01)
 ;;S46.301A
 ;;9002226.02101,"873,S46.301A ",.02)
 ;;S46.301A
 ;;9002226.02101,"873,S46.301A ",.03)
 ;;30
 ;;9002226.02101,"873,S46.302A ",.01)
 ;;S46.302A
 ;;9002226.02101,"873,S46.302A ",.02)
 ;;S46.302A
 ;;9002226.02101,"873,S46.302A ",.03)
 ;;30
 ;;9002226.02101,"873,S46.309A ",.01)
 ;;S46.309A
 ;;9002226.02101,"873,S46.309A ",.02)
 ;;S46.309A
 ;;9002226.02101,"873,S46.309A ",.03)
 ;;30
 ;;9002226.02101,"873,S46.311A ",.01)
 ;;S46.311A
 ;;9002226.02101,"873,S46.311A ",.02)
 ;;S46.311A
 ;;9002226.02101,"873,S46.311A ",.03)
 ;;30
 ;;9002226.02101,"873,S46.312A ",.01)
 ;;S46.312A
 ;;9002226.02101,"873,S46.312A ",.02)
 ;;S46.312A
 ;;9002226.02101,"873,S46.312A ",.03)
 ;;30
 ;;9002226.02101,"873,S46.319A ",.01)
 ;;S46.319A
 ;;9002226.02101,"873,S46.319A ",.02)
 ;;S46.319A
 ;;9002226.02101,"873,S46.319A ",.03)
 ;;30
 ;;9002226.02101,"873,S46.321A ",.01)
 ;;S46.321A
 ;;9002226.02101,"873,S46.321A ",.02)
 ;;S46.321A
 ;;9002226.02101,"873,S46.321A ",.03)
 ;;30
 ;;9002226.02101,"873,S46.322A ",.01)
 ;;S46.322A
 ;;9002226.02101,"873,S46.322A ",.02)
 ;;S46.322A
 ;;9002226.02101,"873,S46.322A ",.03)
 ;;30
 ;;9002226.02101,"873,S46.329A ",.01)
 ;;S46.329A
 ;;9002226.02101,"873,S46.329A ",.02)
 ;;S46.329A
 ;;9002226.02101,"873,S46.329A ",.03)
 ;;30
 ;;9002226.02101,"873,S46.391A ",.01)
 ;;S46.391A
 ;;9002226.02101,"873,S46.391A ",.02)
 ;;S46.391A
 ;;9002226.02101,"873,S46.391A ",.03)
 ;;30
 ;;9002226.02101,"873,S46.392A ",.01)
 ;;S46.392A
 ;;9002226.02101,"873,S46.392A ",.02)
 ;;S46.392A
 ;;9002226.02101,"873,S46.392A ",.03)
 ;;30
 ;;9002226.02101,"873,S46.399A ",.01)
 ;;S46.399A
 ;;9002226.02101,"873,S46.399A ",.02)
 ;;S46.399A
 ;;9002226.02101,"873,S46.399A ",.03)
 ;;30
 ;;9002226.02101,"873,S46.801A ",.01)
 ;;S46.801A
 ;;9002226.02101,"873,S46.801A ",.02)
 ;;S46.801A
 ;;9002226.02101,"873,S46.801A ",.03)
 ;;30
 ;;9002226.02101,"873,S46.802A ",.01)
 ;;S46.802A
 ;;9002226.02101,"873,S46.802A ",.02)
 ;;S46.802A
 ;;9002226.02101,"873,S46.802A ",.03)
 ;;30
 ;;9002226.02101,"873,S46.809A ",.01)
 ;;S46.809A
 ;;9002226.02101,"873,S46.809A ",.02)
 ;;S46.809A
 ;;9002226.02101,"873,S46.809A ",.03)
 ;;30
 ;;9002226.02101,"873,S46.811A ",.01)
 ;;S46.811A
 ;;9002226.02101,"873,S46.811A ",.02)
 ;;S46.811A
 ;;9002226.02101,"873,S46.811A ",.03)
 ;;30
 ;;9002226.02101,"873,S46.812A ",.01)
 ;;S46.812A
 ;;9002226.02101,"873,S46.812A ",.02)
 ;;S46.812A
 ;;9002226.02101,"873,S46.812A ",.03)
 ;;30
 ;;9002226.02101,"873,S46.819A ",.01)
 ;;S46.819A
 ;;9002226.02101,"873,S46.819A ",.02)
 ;;S46.819A
 ;;9002226.02101,"873,S46.819A ",.03)
 ;;30
 ;;9002226.02101,"873,S46.821A ",.01)
 ;;S46.821A
 ;;9002226.02101,"873,S46.821A ",.02)
 ;;S46.821A
 ;;9002226.02101,"873,S46.821A ",.03)
 ;;30
 ;;9002226.02101,"873,S46.822A ",.01)
 ;;S46.822A
 ;;9002226.02101,"873,S46.822A ",.02)
 ;;S46.822A
 ;;9002226.02101,"873,S46.822A ",.03)
 ;;30
 ;;9002226.02101,"873,S46.829A ",.01)
 ;;S46.829A
 ;;9002226.02101,"873,S46.829A ",.02)
 ;;S46.829A
 ;;9002226.02101,"873,S46.829A ",.03)
 ;;30
 ;;9002226.02101,"873,S46.891A ",.01)
 ;;S46.891A
 ;;9002226.02101,"873,S46.891A ",.02)
 ;;S46.891A
 ;;9002226.02101,"873,S46.891A ",.03)
 ;;30
 ;;9002226.02101,"873,S46.892A ",.01)
 ;;S46.892A
 ;;9002226.02101,"873,S46.892A ",.02)
 ;;S46.892A
 ;;9002226.02101,"873,S46.892A ",.03)
 ;;30
 ;;9002226.02101,"873,S46.899A ",.01)
 ;;S46.899A
 ;;9002226.02101,"873,S46.899A ",.02)
 ;;S46.899A
 ;;9002226.02101,"873,S46.899A ",.03)
 ;;30
 ;;9002226.02101,"873,S46.901A ",.01)
 ;;S46.901A
 ;;9002226.02101,"873,S46.901A ",.02)
 ;;S46.901A
 ;;9002226.02101,"873,S46.901A ",.03)
 ;;30
 ;;9002226.02101,"873,S46.902A ",.01)
 ;;S46.902A
 ;;9002226.02101,"873,S46.902A ",.02)
 ;;S46.902A
 ;;9002226.02101,"873,S46.902A ",.03)
 ;;30
 ;;9002226.02101,"873,S46.909A ",.01)
 ;;S46.909A
 ;;9002226.02101,"873,S46.909A ",.02)
 ;;S46.909A
 ;;9002226.02101,"873,S46.909A ",.03)
 ;;30
 ;;9002226.02101,"873,S46.911A ",.01)
 ;;S46.911A
 ;;9002226.02101,"873,S46.911A ",.02)
 ;;S46.911A
 ;;9002226.02101,"873,S46.911A ",.03)
 ;;30
 ;;9002226.02101,"873,S46.912A ",.01)
 ;;S46.912A
 ;;9002226.02101,"873,S46.912A ",.02)
 ;;S46.912A
 ;;9002226.02101,"873,S46.912A ",.03)
 ;;30
 ;;9002226.02101,"873,S46.919A ",.01)
 ;;S46.919A
 ;;9002226.02101,"873,S46.919A ",.02)
 ;;S46.919A
 ;;9002226.02101,"873,S46.919A ",.03)
 ;;30
 ;;9002226.02101,"873,S46.921A ",.01)
 ;;S46.921A
 ;;9002226.02101,"873,S46.921A ",.02)
 ;;S46.921A
 ;;9002226.02101,"873,S46.921A ",.03)
 ;;30
 ;;9002226.02101,"873,S46.922A ",.01)
 ;;S46.922A
 ;;9002226.02101,"873,S46.922A ",.02)
 ;;S46.922A
 ;;9002226.02101,"873,S46.922A ",.03)
 ;;30
 ;;9002226.02101,"873,S46.929A ",.01)
 ;;S46.929A
 ;;9002226.02101,"873,S46.929A ",.02)
 ;;S46.929A
 ;;9002226.02101,"873,S46.929A ",.03)
 ;;30
 ;;9002226.02101,"873,S46.991A ",.01)
 ;;S46.991A
 ;;9002226.02101,"873,S46.991A ",.02)
 ;;S46.991A
 ;;9002226.02101,"873,S46.991A ",.03)
 ;;30
 ;;9002226.02101,"873,S46.992A ",.01)
 ;;S46.992A
 ;;9002226.02101,"873,S46.992A ",.02)
 ;;S46.992A
 ;;9002226.02101,"873,S46.992A ",.03)
 ;;30
 ;;9002226.02101,"873,S46.999A ",.01)
 ;;S46.999A
 ;;9002226.02101,"873,S46.999A ",.02)
 ;;S46.999A
 ;;9002226.02101,"873,S46.999A ",.03)
 ;;30
 ;;9002226.02101,"873,S47.1XXA ",.01)
 ;;S47.1XXA
 ;;9002226.02101,"873,S47.1XXA ",.02)
 ;;S47.1XXA
 ;;9002226.02101,"873,S47.1XXA ",.03)
 ;;30
 ;;9002226.02101,"873,S47.2XXA ",.01)
 ;;S47.2XXA
 ;;9002226.02101,"873,S47.2XXA ",.02)
 ;;S47.2XXA
 ;;9002226.02101,"873,S47.2XXA ",.03)
 ;;30
 ;;9002226.02101,"873,S47.9XXA ",.01)
 ;;S47.9XXA
 ;;9002226.02101,"873,S47.9XXA ",.02)
 ;;S47.9XXA
 ;;9002226.02101,"873,S47.9XXA ",.03)
 ;;30
 ;;9002226.02101,"873,S48.011A ",.01)
 ;;S48.011A
 ;;9002226.02101,"873,S48.011A ",.02)
 ;;S48.011A
 ;;9002226.02101,"873,S48.011A ",.03)
 ;;30
 ;;9002226.02101,"873,S48.012A ",.01)
 ;;S48.012A
 ;;9002226.02101,"873,S48.012A ",.02)
 ;;S48.012A
 ;;9002226.02101,"873,S48.012A ",.03)
 ;;30
 ;;9002226.02101,"873,S48.019A ",.01)
 ;;S48.019A
 ;;9002226.02101,"873,S48.019A ",.02)
 ;;S48.019A
 ;;9002226.02101,"873,S48.019A ",.03)
 ;;30
 ;;9002226.02101,"873,S48.021A ",.01)
 ;;S48.021A
 ;;9002226.02101,"873,S48.021A ",.02)
 ;;S48.021A
 ;;9002226.02101,"873,S48.021A ",.03)
 ;;30
 ;;9002226.02101,"873,S48.022A ",.01)
 ;;S48.022A
 ;;9002226.02101,"873,S48.022A ",.02)
 ;;S48.022A
 ;;9002226.02101,"873,S48.022A ",.03)
 ;;30
 ;;9002226.02101,"873,S48.029A ",.01)
 ;;S48.029A
 ;;9002226.02101,"873,S48.029A ",.02)
 ;;S48.029A
 ;;9002226.02101,"873,S48.029A ",.03)
 ;;30
 ;;9002226.02101,"873,S48.111A ",.01)
 ;;S48.111A
 ;;9002226.02101,"873,S48.111A ",.02)
 ;;S48.111A
 ;;9002226.02101,"873,S48.111A ",.03)
 ;;30
 ;;9002226.02101,"873,S48.112A ",.01)
 ;;S48.112A
 ;;9002226.02101,"873,S48.112A ",.02)
 ;;S48.112A
 ;;9002226.02101,"873,S48.112A ",.03)
 ;;30
 ;;9002226.02101,"873,S48.119A ",.01)
 ;;S48.119A
 ;;9002226.02101,"873,S48.119A ",.02)
 ;;S48.119A
 ;;9002226.02101,"873,S48.119A ",.03)
 ;;30
 ;;9002226.02101,"873,S48.121A ",.01)
 ;;S48.121A
 ;;9002226.02101,"873,S48.121A ",.02)
 ;;S48.121A
 ;;9002226.02101,"873,S48.121A ",.03)
 ;;30
 ;;9002226.02101,"873,S48.122A ",.01)
 ;;S48.122A
 ;;9002226.02101,"873,S48.122A ",.02)
 ;;S48.122A
 ;;9002226.02101,"873,S48.122A ",.03)
 ;;30
 ;;9002226.02101,"873,S48.129A ",.01)
 ;;S48.129A
 ;;9002226.02101,"873,S48.129A ",.02)
 ;;S48.129A
 ;;9002226.02101,"873,S48.129A ",.03)
 ;;30
 ;;9002226.02101,"873,S48.911A ",.01)
 ;;S48.911A
 ;;9002226.02101,"873,S48.911A ",.02)
 ;;S48.911A
 ;;9002226.02101,"873,S48.911A ",.03)
 ;;30
 ;;9002226.02101,"873,S48.912A ",.01)
 ;;S48.912A
 ;;9002226.02101,"873,S48.912A ",.02)
 ;;S48.912A
 ;;9002226.02101,"873,S48.912A ",.03)
 ;;30
 ;;9002226.02101,"873,S48.919A ",.01)
 ;;S48.919A
 ;;9002226.02101,"873,S48.919A ",.02)
 ;;S48.919A
 ;;9002226.02101,"873,S48.919A ",.03)
 ;;30
 ;;9002226.02101,"873,S48.921A ",.01)
 ;;S48.921A
 ;;9002226.02101,"873,S48.921A ",.02)
 ;;S48.921A
 ;;9002226.02101,"873,S48.921A ",.03)
 ;;30
 ;;9002226.02101,"873,S48.922A ",.01)
 ;;S48.922A
 ;;9002226.02101,"873,S48.922A ",.02)
 ;;S48.922A
 ;;9002226.02101,"873,S48.922A ",.03)
 ;;30
 ;;9002226.02101,"873,S48.929A ",.01)
 ;;S48.929A
 ;;9002226.02101,"873,S48.929A ",.02)
 ;;S48.929A
 ;;9002226.02101,"873,S48.929A ",.03)
 ;;30
 ;;9002226.02101,"873,S49.001A ",.01)
 ;;S49.001A
 ;;9002226.02101,"873,S49.001A ",.02)
 ;;S49.001A
 ;;9002226.02101,"873,S49.001A ",.03)
 ;;30
 ;;9002226.02101,"873,S49.002A ",.01)
 ;;S49.002A
 ;;9002226.02101,"873,S49.002A ",.02)
 ;;S49.002A
 ;;9002226.02101,"873,S49.002A ",.03)
 ;;30
 ;;9002226.02101,"873,S49.009A ",.01)
 ;;S49.009A
 ;;9002226.02101,"873,S49.009A ",.02)
 ;;S49.009A
 ;;9002226.02101,"873,S49.009A ",.03)
 ;;30
 ;;9002226.02101,"873,S49.011A ",.01)
 ;;S49.011A
 ;;9002226.02101,"873,S49.011A ",.02)
 ;;S49.011A
 ;;9002226.02101,"873,S49.011A ",.03)
 ;;30
 ;;9002226.02101,"873,S49.012A ",.01)
 ;;S49.012A
 ;;9002226.02101,"873,S49.012A ",.02)
 ;;S49.012A
 ;;9002226.02101,"873,S49.012A ",.03)
 ;;30
 ;;9002226.02101,"873,S49.019A ",.01)
 ;;S49.019A
 ;;9002226.02101,"873,S49.019A ",.02)
 ;;S49.019A
 ;;9002226.02101,"873,S49.019A ",.03)
 ;;30
 ;;9002226.02101,"873,S49.021A ",.01)
 ;;S49.021A
 ;;9002226.02101,"873,S49.021A ",.02)
 ;;S49.021A
 ;;9002226.02101,"873,S49.021A ",.03)
 ;;30
 ;;9002226.02101,"873,S49.022A ",.01)
 ;;S49.022A
 ;;9002226.02101,"873,S49.022A ",.02)
 ;;S49.022A
 ;;9002226.02101,"873,S49.022A ",.03)
 ;;30
 ;;9002226.02101,"873,S49.029A ",.01)
 ;;S49.029A
 ;;9002226.02101,"873,S49.029A ",.02)
 ;;S49.029A
 ;;9002226.02101,"873,S49.029A ",.03)
 ;;30
 ;;9002226.02101,"873,S49.031A ",.01)
 ;;S49.031A
 ;;9002226.02101,"873,S49.031A ",.02)
 ;;S49.031A
 ;;9002226.02101,"873,S49.031A ",.03)
 ;;30
 ;;9002226.02101,"873,S49.032A ",.01)
 ;;S49.032A
 ;;9002226.02101,"873,S49.032A ",.02)
 ;;S49.032A