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

ATXXA33.m

Go to the documentation of this file.
ATXXA33 ;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,S06.380A ",.01)
 ;;S06.380A
 ;;9002226.02101,"873,S06.380A ",.02)
 ;;S06.380A
 ;;9002226.02101,"873,S06.380A ",.03)
 ;;30
 ;;9002226.02101,"873,S06.381A ",.01)
 ;;S06.381A
 ;;9002226.02101,"873,S06.381A ",.02)
 ;;S06.381A
 ;;9002226.02101,"873,S06.381A ",.03)
 ;;30
 ;;9002226.02101,"873,S06.382A ",.01)
 ;;S06.382A
 ;;9002226.02101,"873,S06.382A ",.02)
 ;;S06.382A
 ;;9002226.02101,"873,S06.382A ",.03)
 ;;30
 ;;9002226.02101,"873,S06.389A ",.01)
 ;;S06.389A
 ;;9002226.02101,"873,S06.389A ",.02)
 ;;S06.389A
 ;;9002226.02101,"873,S06.389A ",.03)
 ;;30
 ;;9002226.02101,"873,S06.4X0A ",.01)
 ;;S06.4X0A
 ;;9002226.02101,"873,S06.4X0A ",.02)
 ;;S06.4X0A
 ;;9002226.02101,"873,S06.4X0A ",.03)
 ;;30
 ;;9002226.02101,"873,S06.4X1A ",.01)
 ;;S06.4X1A
 ;;9002226.02101,"873,S06.4X1A ",.02)
 ;;S06.4X1A
 ;;9002226.02101,"873,S06.4X1A ",.03)
 ;;30
 ;;9002226.02101,"873,S06.4X2A ",.01)
 ;;S06.4X2A
 ;;9002226.02101,"873,S06.4X2A ",.02)
 ;;S06.4X2A
 ;;9002226.02101,"873,S06.4X2A ",.03)
 ;;30
 ;;9002226.02101,"873,S06.4X9A ",.01)
 ;;S06.4X9A
 ;;9002226.02101,"873,S06.4X9A ",.02)
 ;;S06.4X9A
 ;;9002226.02101,"873,S06.4X9A ",.03)
 ;;30
 ;;9002226.02101,"873,S06.5X0A ",.01)
 ;;S06.5X0A
 ;;9002226.02101,"873,S06.5X0A ",.02)
 ;;S06.5X0A
 ;;9002226.02101,"873,S06.5X0A ",.03)
 ;;30
 ;;9002226.02101,"873,S06.5X1A ",.01)
 ;;S06.5X1A
 ;;9002226.02101,"873,S06.5X1A ",.02)
 ;;S06.5X1A
 ;;9002226.02101,"873,S06.5X1A ",.03)
 ;;30
 ;;9002226.02101,"873,S06.5X2A ",.01)
 ;;S06.5X2A
 ;;9002226.02101,"873,S06.5X2A ",.02)
 ;;S06.5X2A
 ;;9002226.02101,"873,S06.5X2A ",.03)
 ;;30
 ;;9002226.02101,"873,S06.5X9A ",.01)
 ;;S06.5X9A
 ;;9002226.02101,"873,S06.5X9A ",.02)
 ;;S06.5X9A
 ;;9002226.02101,"873,S06.5X9A ",.03)
 ;;30
 ;;9002226.02101,"873,S06.6X0A ",.01)
 ;;S06.6X0A
 ;;9002226.02101,"873,S06.6X0A ",.02)
 ;;S06.6X0A
 ;;9002226.02101,"873,S06.6X0A ",.03)
 ;;30
 ;;9002226.02101,"873,S06.6X1A ",.01)
 ;;S06.6X1A
 ;;9002226.02101,"873,S06.6X1A ",.02)
 ;;S06.6X1A
 ;;9002226.02101,"873,S06.6X1A ",.03)
 ;;30
 ;;9002226.02101,"873,S06.6X2A ",.01)
 ;;S06.6X2A
 ;;9002226.02101,"873,S06.6X2A ",.02)
 ;;S06.6X2A
 ;;9002226.02101,"873,S06.6X2A ",.03)
 ;;30
 ;;9002226.02101,"873,S06.6X9A ",.01)
 ;;S06.6X9A
 ;;9002226.02101,"873,S06.6X9A ",.02)
 ;;S06.6X9A
 ;;9002226.02101,"873,S06.6X9A ",.03)
 ;;30
 ;;9002226.02101,"873,S06.810A ",.01)
 ;;S06.810A
 ;;9002226.02101,"873,S06.810A ",.02)
 ;;S06.810A
 ;;9002226.02101,"873,S06.810A ",.03)
 ;;30
 ;;9002226.02101,"873,S06.811A ",.01)
 ;;S06.811A
 ;;9002226.02101,"873,S06.811A ",.02)
 ;;S06.811A
 ;;9002226.02101,"873,S06.811A ",.03)
 ;;30
 ;;9002226.02101,"873,S06.812A ",.01)
 ;;S06.812A
 ;;9002226.02101,"873,S06.812A ",.02)
 ;;S06.812A
 ;;9002226.02101,"873,S06.812A ",.03)
 ;;30
 ;;9002226.02101,"873,S06.819A ",.01)
 ;;S06.819A
 ;;9002226.02101,"873,S06.819A ",.02)
 ;;S06.819A
 ;;9002226.02101,"873,S06.819A ",.03)
 ;;30
 ;;9002226.02101,"873,S06.820A ",.01)
 ;;S06.820A
 ;;9002226.02101,"873,S06.820A ",.02)
 ;;S06.820A
 ;;9002226.02101,"873,S06.820A ",.03)
 ;;30
 ;;9002226.02101,"873,S06.821A ",.01)
 ;;S06.821A
 ;;9002226.02101,"873,S06.821A ",.02)
 ;;S06.821A
 ;;9002226.02101,"873,S06.821A ",.03)
 ;;30
 ;;9002226.02101,"873,S06.822A ",.01)
 ;;S06.822A
 ;;9002226.02101,"873,S06.822A ",.02)
 ;;S06.822A
 ;;9002226.02101,"873,S06.822A ",.03)
 ;;30
 ;;9002226.02101,"873,S06.829A ",.01)
 ;;S06.829A
 ;;9002226.02101,"873,S06.829A ",.02)
 ;;S06.829A
 ;;9002226.02101,"873,S06.829A ",.03)
 ;;30
 ;;9002226.02101,"873,S06.890A ",.01)
 ;;S06.890A
 ;;9002226.02101,"873,S06.890A ",.02)
 ;;S06.890A
 ;;9002226.02101,"873,S06.890A ",.03)
 ;;30
 ;;9002226.02101,"873,S06.891A ",.01)
 ;;S06.891A
 ;;9002226.02101,"873,S06.891A ",.02)
 ;;S06.891A
 ;;9002226.02101,"873,S06.891A ",.03)
 ;;30
 ;;9002226.02101,"873,S06.892A ",.01)
 ;;S06.892A
 ;;9002226.02101,"873,S06.892A ",.02)
 ;;S06.892A
 ;;9002226.02101,"873,S06.892A ",.03)
 ;;30
 ;;9002226.02101,"873,S06.899A ",.01)
 ;;S06.899A
 ;;9002226.02101,"873,S06.899A ",.02)
 ;;S06.899A
 ;;9002226.02101,"873,S06.899A ",.03)
 ;;30
 ;;9002226.02101,"873,S06.9X0A ",.01)
 ;;S06.9X0A
 ;;9002226.02101,"873,S06.9X0A ",.02)
 ;;S06.9X0A
 ;;9002226.02101,"873,S06.9X0A ",.03)
 ;;30
 ;;9002226.02101,"873,S06.9X1A ",.01)
 ;;S06.9X1A
 ;;9002226.02101,"873,S06.9X1A ",.02)
 ;;S06.9X1A
 ;;9002226.02101,"873,S06.9X1A ",.03)
 ;;30
 ;;9002226.02101,"873,S06.9X2A ",.01)
 ;;S06.9X2A
 ;;9002226.02101,"873,S06.9X2A ",.02)
 ;;S06.9X2A
 ;;9002226.02101,"873,S06.9X2A ",.03)
 ;;30
 ;;9002226.02101,"873,S06.9X9A ",.01)
 ;;S06.9X9A
 ;;9002226.02101,"873,S06.9X9A ",.02)
 ;;S06.9X9A
 ;;9002226.02101,"873,S06.9X9A ",.03)
 ;;30
 ;;9002226.02101,"873,S07.0XXA ",.01)
 ;;S07.0XXA
 ;;9002226.02101,"873,S07.0XXA ",.02)
 ;;S07.0XXA
 ;;9002226.02101,"873,S07.0XXA ",.03)
 ;;30
 ;;9002226.02101,"873,S07.1XXA ",.01)
 ;;S07.1XXA
 ;;9002226.02101,"873,S07.1XXA ",.02)
 ;;S07.1XXA
 ;;9002226.02101,"873,S07.1XXA ",.03)
 ;;30
 ;;9002226.02101,"873,S07.8XXA ",.01)
 ;;S07.8XXA
 ;;9002226.02101,"873,S07.8XXA ",.02)
 ;;S07.8XXA
 ;;9002226.02101,"873,S07.8XXA ",.03)
 ;;30
 ;;9002226.02101,"873,S07.9XXA ",.01)
 ;;S07.9XXA
 ;;9002226.02101,"873,S07.9XXA ",.02)
 ;;S07.9XXA
 ;;9002226.02101,"873,S07.9XXA ",.03)
 ;;30
 ;;9002226.02101,"873,S08.0XXA ",.01)
 ;;S08.0XXA
 ;;9002226.02101,"873,S08.0XXA ",.02)
 ;;S08.0XXA
 ;;9002226.02101,"873,S08.0XXA ",.03)
 ;;30
 ;;9002226.02101,"873,S08.111A ",.01)
 ;;S08.111A
 ;;9002226.02101,"873,S08.111A ",.02)
 ;;S08.111A
 ;;9002226.02101,"873,S08.111A ",.03)
 ;;30
 ;;9002226.02101,"873,S08.112A ",.01)
 ;;S08.112A
 ;;9002226.02101,"873,S08.112A ",.02)
 ;;S08.112A
 ;;9002226.02101,"873,S08.112A ",.03)
 ;;30
 ;;9002226.02101,"873,S08.119A ",.01)
 ;;S08.119A
 ;;9002226.02101,"873,S08.119A ",.02)
 ;;S08.119A
 ;;9002226.02101,"873,S08.119A ",.03)
 ;;30
 ;;9002226.02101,"873,S08.121A ",.01)
 ;;S08.121A
 ;;9002226.02101,"873,S08.121A ",.02)
 ;;S08.121A
 ;;9002226.02101,"873,S08.121A ",.03)
 ;;30
 ;;9002226.02101,"873,S08.122A ",.01)
 ;;S08.122A
 ;;9002226.02101,"873,S08.122A ",.02)
 ;;S08.122A
 ;;9002226.02101,"873,S08.122A ",.03)
 ;;30
 ;;9002226.02101,"873,S08.129A ",.01)
 ;;S08.129A
 ;;9002226.02101,"873,S08.129A ",.02)
 ;;S08.129A
 ;;9002226.02101,"873,S08.129A ",.03)
 ;;30
 ;;9002226.02101,"873,S08.811A ",.01)
 ;;S08.811A
 ;;9002226.02101,"873,S08.811A ",.02)
 ;;S08.811A
 ;;9002226.02101,"873,S08.811A ",.03)
 ;;30
 ;;9002226.02101,"873,S08.812A ",.01)
 ;;S08.812A
 ;;9002226.02101,"873,S08.812A ",.02)
 ;;S08.812A
 ;;9002226.02101,"873,S08.812A ",.03)
 ;;30
 ;;9002226.02101,"873,S08.89XA ",.01)
 ;;S08.89XA
 ;;9002226.02101,"873,S08.89XA ",.02)
 ;;S08.89XA
 ;;9002226.02101,"873,S08.89XA ",.03)
 ;;30
 ;;9002226.02101,"873,S09.0XXA ",.01)
 ;;S09.0XXA
 ;;9002226.02101,"873,S09.0XXA ",.02)
 ;;S09.0XXA
 ;;9002226.02101,"873,S09.0XXA ",.03)
 ;;30
 ;;9002226.02101,"873,S09.10XA ",.01)
 ;;S09.10XA
 ;;9002226.02101,"873,S09.10XA ",.02)
 ;;S09.10XA
 ;;9002226.02101,"873,S09.10XA ",.03)
 ;;30
 ;;9002226.02101,"873,S09.11XA ",.01)
 ;;S09.11XA
 ;;9002226.02101,"873,S09.11XA ",.02)
 ;;S09.11XA
 ;;9002226.02101,"873,S09.11XA ",.03)
 ;;30
 ;;9002226.02101,"873,S09.12XA ",.01)
 ;;S09.12XA
 ;;9002226.02101,"873,S09.12XA ",.02)
 ;;S09.12XA
 ;;9002226.02101,"873,S09.12XA ",.03)
 ;;30
 ;;9002226.02101,"873,S09.19XA ",.01)
 ;;S09.19XA
 ;;9002226.02101,"873,S09.19XA ",.02)
 ;;S09.19XA
 ;;9002226.02101,"873,S09.19XA ",.03)
 ;;30
 ;;9002226.02101,"873,S09.20XA ",.01)
 ;;S09.20XA
 ;;9002226.02101,"873,S09.20XA ",.02)
 ;;S09.20XA
 ;;9002226.02101,"873,S09.20XA ",.03)
 ;;30
 ;;9002226.02101,"873,S09.21XA ",.01)
 ;;S09.21XA
 ;;9002226.02101,"873,S09.21XA ",.02)
 ;;S09.21XA
 ;;9002226.02101,"873,S09.21XA ",.03)
 ;;30
 ;;9002226.02101,"873,S09.22XA ",.01)
 ;;S09.22XA
 ;;9002226.02101,"873,S09.22XA ",.02)
 ;;S09.22XA
 ;;9002226.02101,"873,S09.22XA ",.03)
 ;;30
 ;;9002226.02101,"873,S09.301A ",.01)
 ;;S09.301A
 ;;9002226.02101,"873,S09.301A ",.02)
 ;;S09.301A
 ;;9002226.02101,"873,S09.301A ",.03)
 ;;30
 ;;9002226.02101,"873,S09.302A ",.01)
 ;;S09.302A
 ;;9002226.02101,"873,S09.302A ",.02)
 ;;S09.302A
 ;;9002226.02101,"873,S09.302A ",.03)
 ;;30
 ;;9002226.02101,"873,S09.309A ",.01)
 ;;S09.309A
 ;;9002226.02101,"873,S09.309A ",.02)
 ;;S09.309A
 ;;9002226.02101,"873,S09.309A ",.03)
 ;;30
 ;;9002226.02101,"873,S09.311A ",.01)
 ;;S09.311A
 ;;9002226.02101,"873,S09.311A ",.02)
 ;;S09.311A
 ;;9002226.02101,"873,S09.311A ",.03)
 ;;30
 ;;9002226.02101,"873,S09.312A ",.01)
 ;;S09.312A
 ;;9002226.02101,"873,S09.312A ",.02)
 ;;S09.312A
 ;;9002226.02101,"873,S09.312A ",.03)
 ;;30
 ;;9002226.02101,"873,S09.313A ",.01)
 ;;S09.313A
 ;;9002226.02101,"873,S09.313A ",.02)
 ;;S09.313A
 ;;9002226.02101,"873,S09.313A ",.03)
 ;;30
 ;;9002226.02101,"873,S09.319A ",.01)
 ;;S09.319A
 ;;9002226.02101,"873,S09.319A ",.02)
 ;;S09.319A
 ;;9002226.02101,"873,S09.319A ",.03)
 ;;30
 ;;9002226.02101,"873,S09.391A ",.01)
 ;;S09.391A
 ;;9002226.02101,"873,S09.391A ",.02)
 ;;S09.391A
 ;;9002226.02101,"873,S09.391A ",.03)
 ;;30
 ;;9002226.02101,"873,S09.392A ",.01)
 ;;S09.392A
 ;;9002226.02101,"873,S09.392A ",.02)
 ;;S09.392A
 ;;9002226.02101,"873,S09.392A ",.03)
 ;;30
 ;;9002226.02101,"873,S09.399A ",.01)
 ;;S09.399A
 ;;9002226.02101,"873,S09.399A ",.02)
 ;;S09.399A
 ;;9002226.02101,"873,S09.399A ",.03)
 ;;30
 ;;9002226.02101,"873,S09.8XXA ",.01)
 ;;S09.8XXA
 ;;9002226.02101,"873,S09.8XXA ",.02)
 ;;S09.8XXA
 ;;9002226.02101,"873,S09.8XXA ",.03)
 ;;30
 ;;9002226.02101,"873,S09.90XA ",.01)
 ;;S09.90XA
 ;;9002226.02101,"873,S09.90XA ",.02)
 ;;S09.90XA
 ;;9002226.02101,"873,S09.90XA ",.03)
 ;;30
 ;;9002226.02101,"873,S09.91XA ",.01)
 ;;S09.91XA
 ;;9002226.02101,"873,S09.91XA ",.02)
 ;;S09.91XA
 ;;9002226.02101,"873,S09.91XA ",.03)
 ;;30
 ;;9002226.02101,"873,S09.92XA ",.01)
 ;;S09.92XA
 ;;9002226.02101,"873,S09.92XA ",.02)
 ;;S09.92XA
 ;;9002226.02101,"873,S09.92XA ",.03)
 ;;30
 ;;9002226.02101,"873,S09.93XA ",.01)
 ;;S09.93XA
 ;;9002226.02101,"873,S09.93XA ",.02)
 ;;S09.93XA
 ;;9002226.02101,"873,S09.93XA ",.03)
 ;;30
 ;;9002226.02101,"873,S10.0XXA ",.01)
 ;;S10.0XXA
 ;;9002226.02101,"873,S10.0XXA ",.02)
 ;;S10.0XXA
 ;;9002226.02101,"873,S10.0XXA ",.03)
 ;;30
 ;;9002226.02101,"873,S10.10XA ",.01)
 ;;S10.10XA
 ;;9002226.02101,"873,S10.10XA ",.02)
 ;;S10.10XA
 ;;9002226.02101,"873,S10.10XA ",.03)
 ;;30
 ;;9002226.02101,"873,S10.11XA ",.01)
 ;;S10.11XA
 ;;9002226.02101,"873,S10.11XA ",.02)
 ;;S10.11XA
 ;;9002226.02101,"873,S10.11XA ",.03)
 ;;30
 ;;9002226.02101,"873,S10.14XA ",.01)
 ;;S10.14XA
 ;;9002226.02101,"873,S10.14XA ",.02)
 ;;S10.14XA
 ;;9002226.02101,"873,S10.14XA ",.03)
 ;;30
 ;;9002226.02101,"873,S10.15XA ",.01)
 ;;S10.15XA
 ;;9002226.02101,"873,S10.15XA ",.02)
 ;;S10.15XA
 ;;9002226.02101,"873,S10.15XA ",.03)
 ;;30
 ;;9002226.02101,"873,S10.17XA ",.01)
 ;;S10.17XA
 ;;9002226.02101,"873,S10.17XA ",.02)
 ;;S10.17XA
 ;;9002226.02101,"873,S10.17XA ",.03)
 ;;30
 ;;9002226.02101,"873,S10.80XA ",.01)
 ;;S10.80XA
 ;;9002226.02101,"873,S10.80XA ",.02)
 ;;S10.80XA
 ;;9002226.02101,"873,S10.80XA ",.03)
 ;;30
 ;;9002226.02101,"873,S10.81XA ",.01)
 ;;S10.81XA
 ;;9002226.02101,"873,S10.81XA ",.02)
 ;;S10.81XA
 ;;9002226.02101,"873,S10.81XA ",.03)
 ;;30
 ;;9002226.02101,"873,S10.83XA ",.01)
 ;;S10.83XA
 ;;9002226.02101,"873,S10.83XA ",.02)
 ;;S10.83XA
 ;;9002226.02101,"873,S10.83XA ",.03)
 ;;30
 ;;9002226.02101,"873,S10.84XA ",.01)
 ;;S10.84XA