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

ATXXA93.m

Go to the documentation of this file.
ATXXA93 ;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,S63.697A ",.01)
 ;;S63.697A
 ;;9002226.02101,"873,S63.697A ",.02)
 ;;S63.697A
 ;;9002226.02101,"873,S63.697A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.698A ",.01)
 ;;S63.698A
 ;;9002226.02101,"873,S63.698A ",.02)
 ;;S63.698A
 ;;9002226.02101,"873,S63.698A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.699A ",.01)
 ;;S63.699A
 ;;9002226.02101,"873,S63.699A ",.02)
 ;;S63.699A
 ;;9002226.02101,"873,S63.699A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.8X1A ",.01)
 ;;S63.8X1A
 ;;9002226.02101,"873,S63.8X1A ",.02)
 ;;S63.8X1A
 ;;9002226.02101,"873,S63.8X1A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.8X2A ",.01)
 ;;S63.8X2A
 ;;9002226.02101,"873,S63.8X2A ",.02)
 ;;S63.8X2A
 ;;9002226.02101,"873,S63.8X2A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.8X9A ",.01)
 ;;S63.8X9A
 ;;9002226.02101,"873,S63.8X9A ",.02)
 ;;S63.8X9A
 ;;9002226.02101,"873,S63.8X9A ",.03)
 ;;30
 ;;9002226.02101,"873,S63.90XA ",.01)
 ;;S63.90XA
 ;;9002226.02101,"873,S63.90XA ",.02)
 ;;S63.90XA
 ;;9002226.02101,"873,S63.90XA ",.03)
 ;;30
 ;;9002226.02101,"873,S63.91XA ",.01)
 ;;S63.91XA
 ;;9002226.02101,"873,S63.91XA ",.02)
 ;;S63.91XA
 ;;9002226.02101,"873,S63.91XA ",.03)
 ;;30
 ;;9002226.02101,"873,S63.92XA ",.01)
 ;;S63.92XA
 ;;9002226.02101,"873,S63.92XA ",.02)
 ;;S63.92XA
 ;;9002226.02101,"873,S63.92XA ",.03)
 ;;30
 ;;9002226.02101,"873,S64.00XA ",.01)
 ;;S64.00XA
 ;;9002226.02101,"873,S64.00XA ",.02)
 ;;S64.00XA
 ;;9002226.02101,"873,S64.00XA ",.03)
 ;;30
 ;;9002226.02101,"873,S64.01XA ",.01)
 ;;S64.01XA
 ;;9002226.02101,"873,S64.01XA ",.02)
 ;;S64.01XA
 ;;9002226.02101,"873,S64.01XA ",.03)
 ;;30
 ;;9002226.02101,"873,S64.02XA ",.01)
 ;;S64.02XA
 ;;9002226.02101,"873,S64.02XA ",.02)
 ;;S64.02XA
 ;;9002226.02101,"873,S64.02XA ",.03)
 ;;30
 ;;9002226.02101,"873,S64.10XA ",.01)
 ;;S64.10XA
 ;;9002226.02101,"873,S64.10XA ",.02)
 ;;S64.10XA
 ;;9002226.02101,"873,S64.10XA ",.03)
 ;;30
 ;;9002226.02101,"873,S64.11XA ",.01)
 ;;S64.11XA
 ;;9002226.02101,"873,S64.11XA ",.02)
 ;;S64.11XA
 ;;9002226.02101,"873,S64.11XA ",.03)
 ;;30
 ;;9002226.02101,"873,S64.12XA ",.01)
 ;;S64.12XA
 ;;9002226.02101,"873,S64.12XA ",.02)
 ;;S64.12XA
 ;;9002226.02101,"873,S64.12XA ",.03)
 ;;30
 ;;9002226.02101,"873,S64.20XA ",.01)
 ;;S64.20XA
 ;;9002226.02101,"873,S64.20XA ",.02)
 ;;S64.20XA
 ;;9002226.02101,"873,S64.20XA ",.03)
 ;;30
 ;;9002226.02101,"873,S64.21XA ",.01)
 ;;S64.21XA
 ;;9002226.02101,"873,S64.21XA ",.02)
 ;;S64.21XA
 ;;9002226.02101,"873,S64.21XA ",.03)
 ;;30
 ;;9002226.02101,"873,S64.22XA ",.01)
 ;;S64.22XA
 ;;9002226.02101,"873,S64.22XA ",.02)
 ;;S64.22XA
 ;;9002226.02101,"873,S64.22XA ",.03)
 ;;30
 ;;9002226.02101,"873,S64.30XA ",.01)
 ;;S64.30XA
 ;;9002226.02101,"873,S64.30XA ",.02)
 ;;S64.30XA
 ;;9002226.02101,"873,S64.30XA ",.03)
 ;;30
 ;;9002226.02101,"873,S64.31XA ",.01)
 ;;S64.31XA
 ;;9002226.02101,"873,S64.31XA ",.02)
 ;;S64.31XA
 ;;9002226.02101,"873,S64.31XA ",.03)
 ;;30
 ;;9002226.02101,"873,S64.32XA ",.01)
 ;;S64.32XA
 ;;9002226.02101,"873,S64.32XA ",.02)
 ;;S64.32XA
 ;;9002226.02101,"873,S64.32XA ",.03)
 ;;30
 ;;9002226.02101,"873,S64.40XA ",.01)
 ;;S64.40XA
 ;;9002226.02101,"873,S64.40XA ",.02)
 ;;S64.40XA
 ;;9002226.02101,"873,S64.40XA ",.03)
 ;;30
 ;;9002226.02101,"873,S64.490A ",.01)
 ;;S64.490A
 ;;9002226.02101,"873,S64.490A ",.02)
 ;;S64.490A
 ;;9002226.02101,"873,S64.490A ",.03)
 ;;30
 ;;9002226.02101,"873,S64.491A ",.01)
 ;;S64.491A
 ;;9002226.02101,"873,S64.491A ",.02)
 ;;S64.491A
 ;;9002226.02101,"873,S64.491A ",.03)
 ;;30
 ;;9002226.02101,"873,S64.492A ",.01)
 ;;S64.492A
 ;;9002226.02101,"873,S64.492A ",.02)
 ;;S64.492A
 ;;9002226.02101,"873,S64.492A ",.03)
 ;;30
 ;;9002226.02101,"873,S64.493A ",.01)
 ;;S64.493A
 ;;9002226.02101,"873,S64.493A ",.02)
 ;;S64.493A
 ;;9002226.02101,"873,S64.493A ",.03)
 ;;30
 ;;9002226.02101,"873,S64.494A ",.01)
 ;;S64.494A
 ;;9002226.02101,"873,S64.494A ",.02)
 ;;S64.494A
 ;;9002226.02101,"873,S64.494A ",.03)
 ;;30
 ;;9002226.02101,"873,S64.495A ",.01)
 ;;S64.495A
 ;;9002226.02101,"873,S64.495A ",.02)
 ;;S64.495A
 ;;9002226.02101,"873,S64.495A ",.03)
 ;;30
 ;;9002226.02101,"873,S64.496A ",.01)
 ;;S64.496A
 ;;9002226.02101,"873,S64.496A ",.02)
 ;;S64.496A
 ;;9002226.02101,"873,S64.496A ",.03)
 ;;30
 ;;9002226.02101,"873,S64.497A ",.01)
 ;;S64.497A
 ;;9002226.02101,"873,S64.497A ",.02)
 ;;S64.497A
 ;;9002226.02101,"873,S64.497A ",.03)
 ;;30
 ;;9002226.02101,"873,S64.498A ",.01)
 ;;S64.498A
 ;;9002226.02101,"873,S64.498A ",.02)
 ;;S64.498A
 ;;9002226.02101,"873,S64.498A ",.03)
 ;;30
 ;;9002226.02101,"873,S64.8X1A ",.01)
 ;;S64.8X1A
 ;;9002226.02101,"873,S64.8X1A ",.02)
 ;;S64.8X1A
 ;;9002226.02101,"873,S64.8X1A ",.03)
 ;;30
 ;;9002226.02101,"873,S64.8X2A ",.01)
 ;;S64.8X2A
 ;;9002226.02101,"873,S64.8X2A ",.02)
 ;;S64.8X2A
 ;;9002226.02101,"873,S64.8X2A ",.03)
 ;;30
 ;;9002226.02101,"873,S64.8X9A ",.01)
 ;;S64.8X9A
 ;;9002226.02101,"873,S64.8X9A ",.02)
 ;;S64.8X9A
 ;;9002226.02101,"873,S64.8X9A ",.03)
 ;;30
 ;;9002226.02101,"873,S64.90XA ",.01)
 ;;S64.90XA
 ;;9002226.02101,"873,S64.90XA ",.02)
 ;;S64.90XA
 ;;9002226.02101,"873,S64.90XA ",.03)
 ;;30
 ;;9002226.02101,"873,S64.91XA ",.01)
 ;;S64.91XA
 ;;9002226.02101,"873,S64.91XA ",.02)
 ;;S64.91XA
 ;;9002226.02101,"873,S64.91XA ",.03)
 ;;30
 ;;9002226.02101,"873,S64.92XA ",.01)
 ;;S64.92XA
 ;;9002226.02101,"873,S64.92XA ",.02)
 ;;S64.92XA
 ;;9002226.02101,"873,S64.92XA ",.03)
 ;;30
 ;;9002226.02101,"873,S65.001A ",.01)
 ;;S65.001A
 ;;9002226.02101,"873,S65.001A ",.02)
 ;;S65.001A
 ;;9002226.02101,"873,S65.001A ",.03)
 ;;30
 ;;9002226.02101,"873,S65.002A ",.01)
 ;;S65.002A
 ;;9002226.02101,"873,S65.002A ",.02)
 ;;S65.002A
 ;;9002226.02101,"873,S65.002A ",.03)
 ;;30
 ;;9002226.02101,"873,S65.009A ",.01)
 ;;S65.009A
 ;;9002226.02101,"873,S65.009A ",.02)
 ;;S65.009A
 ;;9002226.02101,"873,S65.009A ",.03)
 ;;30
 ;;9002226.02101,"873,S65.011A ",.01)
 ;;S65.011A
 ;;9002226.02101,"873,S65.011A ",.02)
 ;;S65.011A
 ;;9002226.02101,"873,S65.011A ",.03)
 ;;30
 ;;9002226.02101,"873,S65.012A ",.01)
 ;;S65.012A
 ;;9002226.02101,"873,S65.012A ",.02)
 ;;S65.012A
 ;;9002226.02101,"873,S65.012A ",.03)
 ;;30
 ;;9002226.02101,"873,S65.019A ",.01)
 ;;S65.019A
 ;;9002226.02101,"873,S65.019A ",.02)
 ;;S65.019A
 ;;9002226.02101,"873,S65.019A ",.03)
 ;;30
 ;;9002226.02101,"873,S65.091A ",.01)
 ;;S65.091A
 ;;9002226.02101,"873,S65.091A ",.02)
 ;;S65.091A
 ;;9002226.02101,"873,S65.091A ",.03)
 ;;30
 ;;9002226.02101,"873,S65.092A ",.01)
 ;;S65.092A
 ;;9002226.02101,"873,S65.092A ",.02)
 ;;S65.092A
 ;;9002226.02101,"873,S65.092A ",.03)
 ;;30
 ;;9002226.02101,"873,S65.099A ",.01)
 ;;S65.099A
 ;;9002226.02101,"873,S65.099A ",.02)
 ;;S65.099A
 ;;9002226.02101,"873,S65.099A ",.03)
 ;;30
 ;;9002226.02101,"873,S65.101A ",.01)
 ;;S65.101A
 ;;9002226.02101,"873,S65.101A ",.02)
 ;;S65.101A
 ;;9002226.02101,"873,S65.101A ",.03)
 ;;30
 ;;9002226.02101,"873,S65.102A ",.01)
 ;;S65.102A
 ;;9002226.02101,"873,S65.102A ",.02)
 ;;S65.102A
 ;;9002226.02101,"873,S65.102A ",.03)
 ;;30
 ;;9002226.02101,"873,S65.109A ",.01)
 ;;S65.109A
 ;;9002226.02101,"873,S65.109A ",.02)
 ;;S65.109A
 ;;9002226.02101,"873,S65.109A ",.03)
 ;;30
 ;;9002226.02101,"873,S65.111A ",.01)
 ;;S65.111A
 ;;9002226.02101,"873,S65.111A ",.02)
 ;;S65.111A
 ;;9002226.02101,"873,S65.111A ",.03)
 ;;30
 ;;9002226.02101,"873,S65.112A ",.01)
 ;;S65.112A
 ;;9002226.02101,"873,S65.112A ",.02)
 ;;S65.112A
 ;;9002226.02101,"873,S65.112A ",.03)
 ;;30
 ;;9002226.02101,"873,S65.119A ",.01)
 ;;S65.119A
 ;;9002226.02101,"873,S65.119A ",.02)
 ;;S65.119A
 ;;9002226.02101,"873,S65.119A ",.03)
 ;;30
 ;;9002226.02101,"873,S65.191A ",.01)
 ;;S65.191A
 ;;9002226.02101,"873,S65.191A ",.02)
 ;;S65.191A
 ;;9002226.02101,"873,S65.191A ",.03)
 ;;30
 ;;9002226.02101,"873,S65.192A ",.01)
 ;;S65.192A
 ;;9002226.02101,"873,S65.192A ",.02)
 ;;S65.192A
 ;;9002226.02101,"873,S65.192A ",.03)
 ;;30
 ;;9002226.02101,"873,S65.199A ",.01)
 ;;S65.199A
 ;;9002226.02101,"873,S65.199A ",.02)
 ;;S65.199A
 ;;9002226.02101,"873,S65.199A ",.03)
 ;;30
 ;;9002226.02101,"873,S65.201A ",.01)
 ;;S65.201A
 ;;9002226.02101,"873,S65.201A ",.02)
 ;;S65.201A
 ;;9002226.02101,"873,S65.201A ",.03)
 ;;30
 ;;9002226.02101,"873,S65.202A ",.01)
 ;;S65.202A
 ;;9002226.02101,"873,S65.202A ",.02)
 ;;S65.202A
 ;;9002226.02101,"873,S65.202A ",.03)
 ;;30
 ;;9002226.02101,"873,S65.209A ",.01)
 ;;S65.209A
 ;;9002226.02101,"873,S65.209A ",.02)
 ;;S65.209A
 ;;9002226.02101,"873,S65.209A ",.03)
 ;;30
 ;;9002226.02101,"873,S65.211A ",.01)
 ;;S65.211A
 ;;9002226.02101,"873,S65.211A ",.02)
 ;;S65.211A
 ;;9002226.02101,"873,S65.211A ",.03)
 ;;30
 ;;9002226.02101,"873,S65.212A ",.01)
 ;;S65.212A
 ;;9002226.02101,"873,S65.212A ",.02)
 ;;S65.212A
 ;;9002226.02101,"873,S65.212A ",.03)
 ;;30
 ;;9002226.02101,"873,S65.219A ",.01)
 ;;S65.219A
 ;;9002226.02101,"873,S65.219A ",.02)
 ;;S65.219A
 ;;9002226.02101,"873,S65.219A ",.03)
 ;;30
 ;;9002226.02101,"873,S65.291A ",.01)
 ;;S65.291A
 ;;9002226.02101,"873,S65.291A ",.02)
 ;;S65.291A
 ;;9002226.02101,"873,S65.291A ",.03)
 ;;30
 ;;9002226.02101,"873,S65.292A ",.01)
 ;;S65.292A
 ;;9002226.02101,"873,S65.292A ",.02)
 ;;S65.292A
 ;;9002226.02101,"873,S65.292A ",.03)
 ;;30
 ;;9002226.02101,"873,S65.299A ",.01)
 ;;S65.299A
 ;;9002226.02101,"873,S65.299A ",.02)
 ;;S65.299A
 ;;9002226.02101,"873,S65.299A ",.03)
 ;;30
 ;;9002226.02101,"873,S65.301A ",.01)
 ;;S65.301A
 ;;9002226.02101,"873,S65.301A ",.02)
 ;;S65.301A
 ;;9002226.02101,"873,S65.301A ",.03)
 ;;30
 ;;9002226.02101,"873,S65.302A ",.01)
 ;;S65.302A
 ;;9002226.02101,"873,S65.302A ",.02)
 ;;S65.302A
 ;;9002226.02101,"873,S65.302A ",.03)
 ;;30
 ;;9002226.02101,"873,S65.309A ",.01)
 ;;S65.309A
 ;;9002226.02101,"873,S65.309A ",.02)
 ;;S65.309A
 ;;9002226.02101,"873,S65.309A ",.03)
 ;;30
 ;;9002226.02101,"873,S65.311A ",.01)
 ;;S65.311A
 ;;9002226.02101,"873,S65.311A ",.02)
 ;;S65.311A
 ;;9002226.02101,"873,S65.311A ",.03)
 ;;30
 ;;9002226.02101,"873,S65.312A ",.01)
 ;;S65.312A
 ;;9002226.02101,"873,S65.312A ",.02)
 ;;S65.312A
 ;;9002226.02101,"873,S65.312A ",.03)
 ;;30
 ;;9002226.02101,"873,S65.319A ",.01)
 ;;S65.319A
 ;;9002226.02101,"873,S65.319A ",.02)
 ;;S65.319A
 ;;9002226.02101,"873,S65.319A ",.03)
 ;;30
 ;;9002226.02101,"873,S65.391A ",.01)
 ;;S65.391A
 ;;9002226.02101,"873,S65.391A ",.02)
 ;;S65.391A
 ;;9002226.02101,"873,S65.391A ",.03)
 ;;30
 ;;9002226.02101,"873,S65.392A ",.01)
 ;;S65.392A
 ;;9002226.02101,"873,S65.392A ",.02)
 ;;S65.392A
 ;;9002226.02101,"873,S65.392A ",.03)
 ;;30
 ;;9002226.02101,"873,S65.399A ",.01)
 ;;S65.399A
 ;;9002226.02101,"873,S65.399A ",.02)
 ;;S65.399A
 ;;9002226.02101,"873,S65.399A ",.03)
 ;;30
 ;;9002226.02101,"873,S65.401A ",.01)
 ;;S65.401A
 ;;9002226.02101,"873,S65.401A ",.02)
 ;;S65.401A
 ;;9002226.02101,"873,S65.401A ",.03)
 ;;30
 ;;9002226.02101,"873,S65.402A ",.01)
 ;;S65.402A
 ;;9002226.02101,"873,S65.402A ",.02)
 ;;S65.402A
 ;;9002226.02101,"873,S65.402A ",.03)
 ;;30
 ;;9002226.02101,"873,S65.409A ",.01)
 ;;S65.409A
 ;;9002226.02101,"873,S65.409A ",.02)
 ;;S65.409A
 ;;9002226.02101,"873,S65.409A ",.03)
 ;;30
 ;;9002226.02101,"873,S65.411A ",.01)
 ;;S65.411A
 ;;9002226.02101,"873,S65.411A ",.02)
 ;;S65.411A
 ;;9002226.02101,"873,S65.411A ",.03)
 ;;30
 ;;9002226.02101,"873,S65.412A ",.01)
 ;;S65.412A
 ;;9002226.02101,"873,S65.412A ",.02)
 ;;S65.412A
 ;;9002226.02101,"873,S65.412A ",.03)
 ;;30
 ;;9002226.02101,"873,S65.419A ",.01)
 ;;S65.419A