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

ATXXA130.m

Go to the documentation of this file.
ATXXA130 ;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,S93.512A ",.02)
 ;;S93.512A
 ;;9002226.02101,"873,S93.512A ",.03)
 ;;30
 ;;9002226.02101,"873,S93.513A ",.01)
 ;;S93.513A
 ;;9002226.02101,"873,S93.513A ",.02)
 ;;S93.513A
 ;;9002226.02101,"873,S93.513A ",.03)
 ;;30
 ;;9002226.02101,"873,S93.514A ",.01)
 ;;S93.514A
 ;;9002226.02101,"873,S93.514A ",.02)
 ;;S93.514A
 ;;9002226.02101,"873,S93.514A ",.03)
 ;;30
 ;;9002226.02101,"873,S93.515A ",.01)
 ;;S93.515A
 ;;9002226.02101,"873,S93.515A ",.02)
 ;;S93.515A
 ;;9002226.02101,"873,S93.515A ",.03)
 ;;30
 ;;9002226.02101,"873,S93.516A ",.01)
 ;;S93.516A
 ;;9002226.02101,"873,S93.516A ",.02)
 ;;S93.516A
 ;;9002226.02101,"873,S93.516A ",.03)
 ;;30
 ;;9002226.02101,"873,S93.519A ",.01)
 ;;S93.519A
 ;;9002226.02101,"873,S93.519A ",.02)
 ;;S93.519A
 ;;9002226.02101,"873,S93.519A ",.03)
 ;;30
 ;;9002226.02101,"873,S93.521A ",.01)
 ;;S93.521A
 ;;9002226.02101,"873,S93.521A ",.02)
 ;;S93.521A
 ;;9002226.02101,"873,S93.521A ",.03)
 ;;30
 ;;9002226.02101,"873,S93.522A ",.01)
 ;;S93.522A
 ;;9002226.02101,"873,S93.522A ",.02)
 ;;S93.522A
 ;;9002226.02101,"873,S93.522A ",.03)
 ;;30
 ;;9002226.02101,"873,S93.523A ",.01)
 ;;S93.523A
 ;;9002226.02101,"873,S93.523A ",.02)
 ;;S93.523A
 ;;9002226.02101,"873,S93.523A ",.03)
 ;;30
 ;;9002226.02101,"873,S93.524A ",.01)
 ;;S93.524A
 ;;9002226.02101,"873,S93.524A ",.02)
 ;;S93.524A
 ;;9002226.02101,"873,S93.524A ",.03)
 ;;30
 ;;9002226.02101,"873,S93.525A ",.01)
 ;;S93.525A
 ;;9002226.02101,"873,S93.525A ",.02)
 ;;S93.525A
 ;;9002226.02101,"873,S93.525A ",.03)
 ;;30
 ;;9002226.02101,"873,S93.526A ",.01)
 ;;S93.526A
 ;;9002226.02101,"873,S93.526A ",.02)
 ;;S93.526A
 ;;9002226.02101,"873,S93.526A ",.03)
 ;;30
 ;;9002226.02101,"873,S93.529A ",.01)
 ;;S93.529A
 ;;9002226.02101,"873,S93.529A ",.02)
 ;;S93.529A
 ;;9002226.02101,"873,S93.529A ",.03)
 ;;30
 ;;9002226.02101,"873,S93.601A ",.01)
 ;;S93.601A
 ;;9002226.02101,"873,S93.601A ",.02)
 ;;S93.601A
 ;;9002226.02101,"873,S93.601A ",.03)
 ;;30
 ;;9002226.02101,"873,S93.602A ",.01)
 ;;S93.602A
 ;;9002226.02101,"873,S93.602A ",.02)
 ;;S93.602A
 ;;9002226.02101,"873,S93.602A ",.03)
 ;;30
 ;;9002226.02101,"873,S93.609A ",.01)
 ;;S93.609A
 ;;9002226.02101,"873,S93.609A ",.02)
 ;;S93.609A
 ;;9002226.02101,"873,S93.609A ",.03)
 ;;30
 ;;9002226.02101,"873,S93.611A ",.01)
 ;;S93.611A
 ;;9002226.02101,"873,S93.611A ",.02)
 ;;S93.611A
 ;;9002226.02101,"873,S93.611A ",.03)
 ;;30
 ;;9002226.02101,"873,S93.612A ",.01)
 ;;S93.612A
 ;;9002226.02101,"873,S93.612A ",.02)
 ;;S93.612A
 ;;9002226.02101,"873,S93.612A ",.03)
 ;;30
 ;;9002226.02101,"873,S93.619A ",.01)
 ;;S93.619A
 ;;9002226.02101,"873,S93.619A ",.02)
 ;;S93.619A
 ;;9002226.02101,"873,S93.619A ",.03)
 ;;30
 ;;9002226.02101,"873,S93.621A ",.01)
 ;;S93.621A
 ;;9002226.02101,"873,S93.621A ",.02)
 ;;S93.621A
 ;;9002226.02101,"873,S93.621A ",.03)
 ;;30
 ;;9002226.02101,"873,S93.622A ",.01)
 ;;S93.622A
 ;;9002226.02101,"873,S93.622A ",.02)
 ;;S93.622A
 ;;9002226.02101,"873,S93.622A ",.03)
 ;;30
 ;;9002226.02101,"873,S93.629A ",.01)
 ;;S93.629A
 ;;9002226.02101,"873,S93.629A ",.02)
 ;;S93.629A
 ;;9002226.02101,"873,S93.629A ",.03)
 ;;30
 ;;9002226.02101,"873,S93.691A ",.01)
 ;;S93.691A
 ;;9002226.02101,"873,S93.691A ",.02)
 ;;S93.691A
 ;;9002226.02101,"873,S93.691A ",.03)
 ;;30
 ;;9002226.02101,"873,S93.692A ",.01)
 ;;S93.692A
 ;;9002226.02101,"873,S93.692A ",.02)
 ;;S93.692A
 ;;9002226.02101,"873,S93.692A ",.03)
 ;;30
 ;;9002226.02101,"873,S93.699A ",.01)
 ;;S93.699A
 ;;9002226.02101,"873,S93.699A ",.02)
 ;;S93.699A
 ;;9002226.02101,"873,S93.699A ",.03)
 ;;30
 ;;9002226.02101,"873,S94.00XA ",.01)
 ;;S94.00XA
 ;;9002226.02101,"873,S94.00XA ",.02)
 ;;S94.00XA
 ;;9002226.02101,"873,S94.00XA ",.03)
 ;;30
 ;;9002226.02101,"873,S94.01XA ",.01)
 ;;S94.01XA
 ;;9002226.02101,"873,S94.01XA ",.02)
 ;;S94.01XA
 ;;9002226.02101,"873,S94.01XA ",.03)
 ;;30
 ;;9002226.02101,"873,S94.02XA ",.01)
 ;;S94.02XA
 ;;9002226.02101,"873,S94.02XA ",.02)
 ;;S94.02XA
 ;;9002226.02101,"873,S94.02XA ",.03)
 ;;30
 ;;9002226.02101,"873,S94.10XA ",.01)
 ;;S94.10XA
 ;;9002226.02101,"873,S94.10XA ",.02)
 ;;S94.10XA
 ;;9002226.02101,"873,S94.10XA ",.03)
 ;;30
 ;;9002226.02101,"873,S94.11XA ",.01)
 ;;S94.11XA
 ;;9002226.02101,"873,S94.11XA ",.02)
 ;;S94.11XA
 ;;9002226.02101,"873,S94.11XA ",.03)
 ;;30
 ;;9002226.02101,"873,S94.12XA ",.01)
 ;;S94.12XA
 ;;9002226.02101,"873,S94.12XA ",.02)
 ;;S94.12XA
 ;;9002226.02101,"873,S94.12XA ",.03)
 ;;30
 ;;9002226.02101,"873,S94.20XA ",.01)
 ;;S94.20XA
 ;;9002226.02101,"873,S94.20XA ",.02)
 ;;S94.20XA
 ;;9002226.02101,"873,S94.20XA ",.03)
 ;;30
 ;;9002226.02101,"873,S94.21XA ",.01)
 ;;S94.21XA
 ;;9002226.02101,"873,S94.21XA ",.02)
 ;;S94.21XA
 ;;9002226.02101,"873,S94.21XA ",.03)
 ;;30
 ;;9002226.02101,"873,S94.22XA ",.01)
 ;;S94.22XA
 ;;9002226.02101,"873,S94.22XA ",.02)
 ;;S94.22XA
 ;;9002226.02101,"873,S94.22XA ",.03)
 ;;30
 ;;9002226.02101,"873,S94.30XA ",.01)
 ;;S94.30XA
 ;;9002226.02101,"873,S94.30XA ",.02)
 ;;S94.30XA
 ;;9002226.02101,"873,S94.30XA ",.03)
 ;;30
 ;;9002226.02101,"873,S94.31XA ",.01)
 ;;S94.31XA
 ;;9002226.02101,"873,S94.31XA ",.02)
 ;;S94.31XA
 ;;9002226.02101,"873,S94.31XA ",.03)
 ;;30
 ;;9002226.02101,"873,S94.32XA ",.01)
 ;;S94.32XA
 ;;9002226.02101,"873,S94.32XA ",.02)
 ;;S94.32XA
 ;;9002226.02101,"873,S94.32XA ",.03)
 ;;30
 ;;9002226.02101,"873,S94.8X1A ",.01)
 ;;S94.8X1A
 ;;9002226.02101,"873,S94.8X1A ",.02)
 ;;S94.8X1A
 ;;9002226.02101,"873,S94.8X1A ",.03)
 ;;30
 ;;9002226.02101,"873,S94.8X2A ",.01)
 ;;S94.8X2A
 ;;9002226.02101,"873,S94.8X2A ",.02)
 ;;S94.8X2A
 ;;9002226.02101,"873,S94.8X2A ",.03)
 ;;30
 ;;9002226.02101,"873,S94.8X9A ",.01)
 ;;S94.8X9A
 ;;9002226.02101,"873,S94.8X9A ",.02)
 ;;S94.8X9A
 ;;9002226.02101,"873,S94.8X9A ",.03)
 ;;30
 ;;9002226.02101,"873,S94.90XA ",.01)
 ;;S94.90XA
 ;;9002226.02101,"873,S94.90XA ",.02)
 ;;S94.90XA
 ;;9002226.02101,"873,S94.90XA ",.03)
 ;;30
 ;;9002226.02101,"873,S94.91XA ",.01)
 ;;S94.91XA
 ;;9002226.02101,"873,S94.91XA ",.02)
 ;;S94.91XA
 ;;9002226.02101,"873,S94.91XA ",.03)
 ;;30
 ;;9002226.02101,"873,S94.92XA ",.01)
 ;;S94.92XA
 ;;9002226.02101,"873,S94.92XA ",.02)
 ;;S94.92XA
 ;;9002226.02101,"873,S94.92XA ",.03)
 ;;30
 ;;9002226.02101,"873,S95.001A ",.01)
 ;;S95.001A
 ;;9002226.02101,"873,S95.001A ",.02)
 ;;S95.001A
 ;;9002226.02101,"873,S95.001A ",.03)
 ;;30
 ;;9002226.02101,"873,S95.002A ",.01)
 ;;S95.002A
 ;;9002226.02101,"873,S95.002A ",.02)
 ;;S95.002A
 ;;9002226.02101,"873,S95.002A ",.03)
 ;;30
 ;;9002226.02101,"873,S95.009A ",.01)
 ;;S95.009A
 ;;9002226.02101,"873,S95.009A ",.02)
 ;;S95.009A
 ;;9002226.02101,"873,S95.009A ",.03)
 ;;30
 ;;9002226.02101,"873,S95.011A ",.01)
 ;;S95.011A
 ;;9002226.02101,"873,S95.011A ",.02)
 ;;S95.011A
 ;;9002226.02101,"873,S95.011A ",.03)
 ;;30
 ;;9002226.02101,"873,S95.012A ",.01)
 ;;S95.012A
 ;;9002226.02101,"873,S95.012A ",.02)
 ;;S95.012A
 ;;9002226.02101,"873,S95.012A ",.03)
 ;;30
 ;;9002226.02101,"873,S95.019A ",.01)
 ;;S95.019A
 ;;9002226.02101,"873,S95.019A ",.02)
 ;;S95.019A
 ;;9002226.02101,"873,S95.019A ",.03)
 ;;30
 ;;9002226.02101,"873,S95.091A ",.01)
 ;;S95.091A
 ;;9002226.02101,"873,S95.091A ",.02)
 ;;S95.091A
 ;;9002226.02101,"873,S95.091A ",.03)
 ;;30
 ;;9002226.02101,"873,S95.092A ",.01)
 ;;S95.092A
 ;;9002226.02101,"873,S95.092A ",.02)
 ;;S95.092A
 ;;9002226.02101,"873,S95.092A ",.03)
 ;;30
 ;;9002226.02101,"873,S95.099A ",.01)
 ;;S95.099A
 ;;9002226.02101,"873,S95.099A ",.02)
 ;;S95.099A
 ;;9002226.02101,"873,S95.099A ",.03)
 ;;30
 ;;9002226.02101,"873,S95.101A ",.01)
 ;;S95.101A
 ;;9002226.02101,"873,S95.101A ",.02)
 ;;S95.101A
 ;;9002226.02101,"873,S95.101A ",.03)
 ;;30
 ;;9002226.02101,"873,S95.102A ",.01)
 ;;S95.102A
 ;;9002226.02101,"873,S95.102A ",.02)
 ;;S95.102A
 ;;9002226.02101,"873,S95.102A ",.03)
 ;;30
 ;;9002226.02101,"873,S95.109A ",.01)
 ;;S95.109A
 ;;9002226.02101,"873,S95.109A ",.02)
 ;;S95.109A
 ;;9002226.02101,"873,S95.109A ",.03)
 ;;30
 ;;9002226.02101,"873,S95.111A ",.01)
 ;;S95.111A
 ;;9002226.02101,"873,S95.111A ",.02)
 ;;S95.111A
 ;;9002226.02101,"873,S95.111A ",.03)
 ;;30
 ;;9002226.02101,"873,S95.112A ",.01)
 ;;S95.112A
 ;;9002226.02101,"873,S95.112A ",.02)
 ;;S95.112A
 ;;9002226.02101,"873,S95.112A ",.03)
 ;;30
 ;;9002226.02101,"873,S95.119A ",.01)
 ;;S95.119A
 ;;9002226.02101,"873,S95.119A ",.02)
 ;;S95.119A
 ;;9002226.02101,"873,S95.119A ",.03)
 ;;30
 ;;9002226.02101,"873,S95.191A ",.01)
 ;;S95.191A
 ;;9002226.02101,"873,S95.191A ",.02)
 ;;S95.191A
 ;;9002226.02101,"873,S95.191A ",.03)
 ;;30
 ;;9002226.02101,"873,S95.192A ",.01)
 ;;S95.192A
 ;;9002226.02101,"873,S95.192A ",.02)
 ;;S95.192A
 ;;9002226.02101,"873,S95.192A ",.03)
 ;;30
 ;;9002226.02101,"873,S95.199A ",.01)
 ;;S95.199A
 ;;9002226.02101,"873,S95.199A ",.02)
 ;;S95.199A
 ;;9002226.02101,"873,S95.199A ",.03)
 ;;30
 ;;9002226.02101,"873,S95.201A ",.01)
 ;;S95.201A
 ;;9002226.02101,"873,S95.201A ",.02)
 ;;S95.201A
 ;;9002226.02101,"873,S95.201A ",.03)
 ;;30
 ;;9002226.02101,"873,S95.202A ",.01)
 ;;S95.202A
 ;;9002226.02101,"873,S95.202A ",.02)
 ;;S95.202A
 ;;9002226.02101,"873,S95.202A ",.03)
 ;;30
 ;;9002226.02101,"873,S95.209A ",.01)
 ;;S95.209A
 ;;9002226.02101,"873,S95.209A ",.02)
 ;;S95.209A
 ;;9002226.02101,"873,S95.209A ",.03)
 ;;30
 ;;9002226.02101,"873,S95.211A ",.01)
 ;;S95.211A
 ;;9002226.02101,"873,S95.211A ",.02)
 ;;S95.211A
 ;;9002226.02101,"873,S95.211A ",.03)
 ;;30
 ;;9002226.02101,"873,S95.212A ",.01)
 ;;S95.212A
 ;;9002226.02101,"873,S95.212A ",.02)
 ;;S95.212A
 ;;9002226.02101,"873,S95.212A ",.03)
 ;;30
 ;;9002226.02101,"873,S95.219A ",.01)
 ;;S95.219A
 ;;9002226.02101,"873,S95.219A ",.02)
 ;;S95.219A
 ;;9002226.02101,"873,S95.219A ",.03)
 ;;30
 ;;9002226.02101,"873,S95.291A ",.01)
 ;;S95.291A
 ;;9002226.02101,"873,S95.291A ",.02)
 ;;S95.291A
 ;;9002226.02101,"873,S95.291A ",.03)
 ;;30
 ;;9002226.02101,"873,S95.292A ",.01)
 ;;S95.292A
 ;;9002226.02101,"873,S95.292A ",.02)
 ;;S95.292A
 ;;9002226.02101,"873,S95.292A ",.03)
 ;;30
 ;;9002226.02101,"873,S95.299A ",.01)
 ;;S95.299A
 ;;9002226.02101,"873,S95.299A ",.02)
 ;;S95.299A
 ;;9002226.02101,"873,S95.299A ",.03)
 ;;30
 ;;9002226.02101,"873,S95.801A ",.01)
 ;;S95.801A
 ;;9002226.02101,"873,S95.801A ",.02)
 ;;S95.801A
 ;;9002226.02101,"873,S95.801A ",.03)
 ;;30
 ;;9002226.02101,"873,S95.802A ",.01)
 ;;S95.802A
 ;;9002226.02101,"873,S95.802A ",.02)
 ;;S95.802A
 ;;9002226.02101,"873,S95.802A ",.03)
 ;;30
 ;;9002226.02101,"873,S95.809A ",.01)
 ;;S95.809A
 ;;9002226.02101,"873,S95.809A ",.02)
 ;;S95.809A
 ;;9002226.02101,"873,S95.809A ",.03)
 ;;30
 ;;9002226.02101,"873,S95.811A ",.01)
 ;;S95.811A
 ;;9002226.02101,"873,S95.811A ",.02)
 ;;S95.811A
 ;;9002226.02101,"873,S95.811A ",.03)
 ;;30
 ;;9002226.02101,"873,S95.812A ",.01)
 ;;S95.812A
 ;;9002226.02101,"873,S95.812A ",.02)
 ;;S95.812A
 ;;9002226.02101,"873,S95.812A ",.03)
 ;;30
 ;;9002226.02101,"873,S95.819A ",.01)
 ;;S95.819A
 ;;9002226.02101,"873,S95.819A ",.02)
 ;;S95.819A
 ;;9002226.02101,"873,S95.819A ",.03)
 ;;30
 ;;9002226.02101,"873,S95.891A ",.01)
 ;;S95.891A
 ;;9002226.02101,"873,S95.891A ",.02)
 ;;S95.891A
 ;;9002226.02101,"873,S95.891A ",.03)
 ;;30
 ;;9002226.02101,"873,S95.892A ",.01)
 ;;S95.892A
 ;;9002226.02101,"873,S95.892A ",.02)
 ;;S95.892A
 ;;9002226.02101,"873,S95.892A ",.03)
 ;;30
 ;;9002226.02101,"873,S95.899A ",.01)
 ;;S95.899A
 ;;9002226.02101,"873,S95.899A ",.02)
 ;;S95.899A