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

ATXXA132.m

Go to the documentation of this file.
ATXXA132 ;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,S97.121A ",.01)
 ;;S97.121A
 ;;9002226.02101,"873,S97.121A ",.02)
 ;;S97.121A
 ;;9002226.02101,"873,S97.121A ",.03)
 ;;30
 ;;9002226.02101,"873,S97.122A ",.01)
 ;;S97.122A
 ;;9002226.02101,"873,S97.122A ",.02)
 ;;S97.122A
 ;;9002226.02101,"873,S97.122A ",.03)
 ;;30
 ;;9002226.02101,"873,S97.129A ",.01)
 ;;S97.129A
 ;;9002226.02101,"873,S97.129A ",.02)
 ;;S97.129A
 ;;9002226.02101,"873,S97.129A ",.03)
 ;;30
 ;;9002226.02101,"873,S97.80XA ",.01)
 ;;S97.80XA
 ;;9002226.02101,"873,S97.80XA ",.02)
 ;;S97.80XA
 ;;9002226.02101,"873,S97.80XA ",.03)
 ;;30
 ;;9002226.02101,"873,S97.81XA ",.01)
 ;;S97.81XA
 ;;9002226.02101,"873,S97.81XA ",.02)
 ;;S97.81XA
 ;;9002226.02101,"873,S97.81XA ",.03)
 ;;30
 ;;9002226.02101,"873,S97.82XA ",.01)
 ;;S97.82XA
 ;;9002226.02101,"873,S97.82XA ",.02)
 ;;S97.82XA
 ;;9002226.02101,"873,S97.82XA ",.03)
 ;;30
 ;;9002226.02101,"873,S98.011A ",.01)
 ;;S98.011A
 ;;9002226.02101,"873,S98.011A ",.02)
 ;;S98.011A
 ;;9002226.02101,"873,S98.011A ",.03)
 ;;30
 ;;9002226.02101,"873,S98.012A ",.01)
 ;;S98.012A
 ;;9002226.02101,"873,S98.012A ",.02)
 ;;S98.012A
 ;;9002226.02101,"873,S98.012A ",.03)
 ;;30
 ;;9002226.02101,"873,S98.019A ",.01)
 ;;S98.019A
 ;;9002226.02101,"873,S98.019A ",.02)
 ;;S98.019A
 ;;9002226.02101,"873,S98.019A ",.03)
 ;;30
 ;;9002226.02101,"873,S98.021A ",.01)
 ;;S98.021A
 ;;9002226.02101,"873,S98.021A ",.02)
 ;;S98.021A
 ;;9002226.02101,"873,S98.021A ",.03)
 ;;30
 ;;9002226.02101,"873,S98.022A ",.01)
 ;;S98.022A
 ;;9002226.02101,"873,S98.022A ",.02)
 ;;S98.022A
 ;;9002226.02101,"873,S98.022A ",.03)
 ;;30
 ;;9002226.02101,"873,S98.029A ",.01)
 ;;S98.029A
 ;;9002226.02101,"873,S98.029A ",.02)
 ;;S98.029A
 ;;9002226.02101,"873,S98.029A ",.03)
 ;;30
 ;;9002226.02101,"873,S98.111A ",.01)
 ;;S98.111A
 ;;9002226.02101,"873,S98.111A ",.02)
 ;;S98.111A
 ;;9002226.02101,"873,S98.111A ",.03)
 ;;30
 ;;9002226.02101,"873,S98.112A ",.01)
 ;;S98.112A
 ;;9002226.02101,"873,S98.112A ",.02)
 ;;S98.112A
 ;;9002226.02101,"873,S98.112A ",.03)
 ;;30
 ;;9002226.02101,"873,S98.119A ",.01)
 ;;S98.119A
 ;;9002226.02101,"873,S98.119A ",.02)
 ;;S98.119A
 ;;9002226.02101,"873,S98.119A ",.03)
 ;;30
 ;;9002226.02101,"873,S98.121A ",.01)
 ;;S98.121A
 ;;9002226.02101,"873,S98.121A ",.02)
 ;;S98.121A
 ;;9002226.02101,"873,S98.121A ",.03)
 ;;30
 ;;9002226.02101,"873,S98.122A ",.01)
 ;;S98.122A
 ;;9002226.02101,"873,S98.122A ",.02)
 ;;S98.122A
 ;;9002226.02101,"873,S98.122A ",.03)
 ;;30
 ;;9002226.02101,"873,S98.129A ",.01)
 ;;S98.129A
 ;;9002226.02101,"873,S98.129A ",.02)
 ;;S98.129A
 ;;9002226.02101,"873,S98.129A ",.03)
 ;;30
 ;;9002226.02101,"873,S98.131A ",.01)
 ;;S98.131A
 ;;9002226.02101,"873,S98.131A ",.02)
 ;;S98.131A
 ;;9002226.02101,"873,S98.131A ",.03)
 ;;30
 ;;9002226.02101,"873,S98.132A ",.01)
 ;;S98.132A
 ;;9002226.02101,"873,S98.132A ",.02)
 ;;S98.132A
 ;;9002226.02101,"873,S98.132A ",.03)
 ;;30
 ;;9002226.02101,"873,S98.139A ",.01)
 ;;S98.139A
 ;;9002226.02101,"873,S98.139A ",.02)
 ;;S98.139A
 ;;9002226.02101,"873,S98.139A ",.03)
 ;;30
 ;;9002226.02101,"873,S98.141A ",.01)
 ;;S98.141A
 ;;9002226.02101,"873,S98.141A ",.02)
 ;;S98.141A
 ;;9002226.02101,"873,S98.141A ",.03)
 ;;30
 ;;9002226.02101,"873,S98.142A ",.01)
 ;;S98.142A
 ;;9002226.02101,"873,S98.142A ",.02)
 ;;S98.142A
 ;;9002226.02101,"873,S98.142A ",.03)
 ;;30
 ;;9002226.02101,"873,S98.149A ",.01)
 ;;S98.149A
 ;;9002226.02101,"873,S98.149A ",.02)
 ;;S98.149A
 ;;9002226.02101,"873,S98.149A ",.03)
 ;;30
 ;;9002226.02101,"873,S98.211A ",.01)
 ;;S98.211A
 ;;9002226.02101,"873,S98.211A ",.02)
 ;;S98.211A
 ;;9002226.02101,"873,S98.211A ",.03)
 ;;30
 ;;9002226.02101,"873,S98.212A ",.01)
 ;;S98.212A
 ;;9002226.02101,"873,S98.212A ",.02)
 ;;S98.212A
 ;;9002226.02101,"873,S98.212A ",.03)
 ;;30
 ;;9002226.02101,"873,S98.219A ",.01)
 ;;S98.219A
 ;;9002226.02101,"873,S98.219A ",.02)
 ;;S98.219A
 ;;9002226.02101,"873,S98.219A ",.03)
 ;;30
 ;;9002226.02101,"873,S98.221A ",.01)
 ;;S98.221A
 ;;9002226.02101,"873,S98.221A ",.02)
 ;;S98.221A
 ;;9002226.02101,"873,S98.221A ",.03)
 ;;30
 ;;9002226.02101,"873,S98.222A ",.01)
 ;;S98.222A
 ;;9002226.02101,"873,S98.222A ",.02)
 ;;S98.222A
 ;;9002226.02101,"873,S98.222A ",.03)
 ;;30
 ;;9002226.02101,"873,S98.229A ",.01)
 ;;S98.229A
 ;;9002226.02101,"873,S98.229A ",.02)
 ;;S98.229A
 ;;9002226.02101,"873,S98.229A ",.03)
 ;;30
 ;;9002226.02101,"873,S98.311A ",.01)
 ;;S98.311A
 ;;9002226.02101,"873,S98.311A ",.02)
 ;;S98.311A
 ;;9002226.02101,"873,S98.311A ",.03)
 ;;30
 ;;9002226.02101,"873,S98.312A ",.01)
 ;;S98.312A
 ;;9002226.02101,"873,S98.312A ",.02)
 ;;S98.312A
 ;;9002226.02101,"873,S98.312A ",.03)
 ;;30
 ;;9002226.02101,"873,S98.319A ",.01)
 ;;S98.319A
 ;;9002226.02101,"873,S98.319A ",.02)
 ;;S98.319A
 ;;9002226.02101,"873,S98.319A ",.03)
 ;;30
 ;;9002226.02101,"873,S98.321A ",.01)
 ;;S98.321A
 ;;9002226.02101,"873,S98.321A ",.02)
 ;;S98.321A
 ;;9002226.02101,"873,S98.321A ",.03)
 ;;30
 ;;9002226.02101,"873,S98.322A ",.01)
 ;;S98.322A
 ;;9002226.02101,"873,S98.322A ",.02)
 ;;S98.322A
 ;;9002226.02101,"873,S98.322A ",.03)
 ;;30
 ;;9002226.02101,"873,S98.329A ",.01)
 ;;S98.329A
 ;;9002226.02101,"873,S98.329A ",.02)
 ;;S98.329A
 ;;9002226.02101,"873,S98.329A ",.03)
 ;;30
 ;;9002226.02101,"873,S98.911A ",.01)
 ;;S98.911A
 ;;9002226.02101,"873,S98.911A ",.02)
 ;;S98.911A
 ;;9002226.02101,"873,S98.911A ",.03)
 ;;30
 ;;9002226.02101,"873,S98.912A ",.01)
 ;;S98.912A
 ;;9002226.02101,"873,S98.912A ",.02)
 ;;S98.912A
 ;;9002226.02101,"873,S98.912A ",.03)
 ;;30
 ;;9002226.02101,"873,S98.919A ",.01)
 ;;S98.919A
 ;;9002226.02101,"873,S98.919A ",.02)
 ;;S98.919A
 ;;9002226.02101,"873,S98.919A ",.03)
 ;;30
 ;;9002226.02101,"873,S98.921A ",.01)
 ;;S98.921A
 ;;9002226.02101,"873,S98.921A ",.02)
 ;;S98.921A
 ;;9002226.02101,"873,S98.921A ",.03)
 ;;30
 ;;9002226.02101,"873,S98.922A ",.01)
 ;;S98.922A
 ;;9002226.02101,"873,S98.922A ",.02)
 ;;S98.922A
 ;;9002226.02101,"873,S98.922A ",.03)
 ;;30
 ;;9002226.02101,"873,S98.929A ",.01)
 ;;S98.929A
 ;;9002226.02101,"873,S98.929A ",.02)
 ;;S98.929A
 ;;9002226.02101,"873,S98.929A ",.03)
 ;;30
 ;;9002226.02101,"873,S99.811A ",.01)
 ;;S99.811A
 ;;9002226.02101,"873,S99.811A ",.02)
 ;;S99.811A
 ;;9002226.02101,"873,S99.811A ",.03)
 ;;30
 ;;9002226.02101,"873,S99.812A ",.01)
 ;;S99.812A
 ;;9002226.02101,"873,S99.812A ",.02)
 ;;S99.812A
 ;;9002226.02101,"873,S99.812A ",.03)
 ;;30
 ;;9002226.02101,"873,S99.819A ",.01)
 ;;S99.819A
 ;;9002226.02101,"873,S99.819A ",.02)
 ;;S99.819A
 ;;9002226.02101,"873,S99.819A ",.03)
 ;;30
 ;;9002226.02101,"873,S99.821A ",.01)
 ;;S99.821A
 ;;9002226.02101,"873,S99.821A ",.02)
 ;;S99.821A
 ;;9002226.02101,"873,S99.821A ",.03)
 ;;30
 ;;9002226.02101,"873,S99.822A ",.01)
 ;;S99.822A
 ;;9002226.02101,"873,S99.822A ",.02)
 ;;S99.822A
 ;;9002226.02101,"873,S99.822A ",.03)
 ;;30
 ;;9002226.02101,"873,S99.829A ",.01)
 ;;S99.829A
 ;;9002226.02101,"873,S99.829A ",.02)
 ;;S99.829A
 ;;9002226.02101,"873,S99.829A ",.03)
 ;;30
 ;;9002226.02101,"873,S99.911A ",.01)
 ;;S99.911A
 ;;9002226.02101,"873,S99.911A ",.02)
 ;;S99.911A
 ;;9002226.02101,"873,S99.911A ",.03)
 ;;30
 ;;9002226.02101,"873,S99.912A ",.01)
 ;;S99.912A
 ;;9002226.02101,"873,S99.912A ",.02)
 ;;S99.912A
 ;;9002226.02101,"873,S99.912A ",.03)
 ;;30
 ;;9002226.02101,"873,S99.919A ",.01)
 ;;S99.919A
 ;;9002226.02101,"873,S99.919A ",.02)
 ;;S99.919A
 ;;9002226.02101,"873,S99.919A ",.03)
 ;;30
 ;;9002226.02101,"873,S99.921A ",.01)
 ;;S99.921A
 ;;9002226.02101,"873,S99.921A ",.02)
 ;;S99.921A
 ;;9002226.02101,"873,S99.921A ",.03)
 ;;30
 ;;9002226.02101,"873,S99.922A ",.01)
 ;;S99.922A
 ;;9002226.02101,"873,S99.922A ",.02)
 ;;S99.922A
 ;;9002226.02101,"873,S99.922A ",.03)
 ;;30
 ;;9002226.02101,"873,S99.929A ",.01)
 ;;S99.929A
 ;;9002226.02101,"873,S99.929A ",.02)
 ;;S99.929A
 ;;9002226.02101,"873,S99.929A ",.03)
 ;;30
 ;;9002226.02101,"873,T07. ",.01)
 ;;T07.
 ;;9002226.02101,"873,T07. ",.02)
 ;;T07.
 ;;9002226.02101,"873,T07. ",.03)
 ;;30
 ;;9002226.02101,"873,T14.8 ",.01)
 ;;T14.8
 ;;9002226.02101,"873,T14.8 ",.02)
 ;;T14.8
 ;;9002226.02101,"873,T14.8 ",.03)
 ;;30
 ;;9002226.02101,"873,T14.90 ",.01)
 ;;T14.90
 ;;9002226.02101,"873,T14.90 ",.02)
 ;;T14.90
 ;;9002226.02101,"873,T14.90 ",.03)
 ;;30
 ;;9002226.02101,"873,T14.91 ",.01)
 ;;T14.91
 ;;9002226.02101,"873,T14.91 ",.02)
 ;;T14.91
 ;;9002226.02101,"873,T14.91 ",.03)
 ;;30
 ;;9002226.02101,"873,T15.00XA ",.01)
 ;;T15.00XA
 ;;9002226.02101,"873,T15.00XA ",.02)
 ;;T15.00XA
 ;;9002226.02101,"873,T15.00XA ",.03)
 ;;30
 ;;9002226.02101,"873,T15.01XA ",.01)
 ;;T15.01XA
 ;;9002226.02101,"873,T15.01XA ",.02)
 ;;T15.01XA
 ;;9002226.02101,"873,T15.01XA ",.03)
 ;;30
 ;;9002226.02101,"873,T15.02XA ",.01)
 ;;T15.02XA
 ;;9002226.02101,"873,T15.02XA ",.02)
 ;;T15.02XA
 ;;9002226.02101,"873,T15.02XA ",.03)
 ;;30
 ;;9002226.02101,"873,T15.10XA ",.01)
 ;;T15.10XA
 ;;9002226.02101,"873,T15.10XA ",.02)
 ;;T15.10XA
 ;;9002226.02101,"873,T15.10XA ",.03)
 ;;30
 ;;9002226.02101,"873,T15.11XA ",.01)
 ;;T15.11XA
 ;;9002226.02101,"873,T15.11XA ",.02)
 ;;T15.11XA
 ;;9002226.02101,"873,T15.11XA ",.03)
 ;;30
 ;;9002226.02101,"873,T15.12XA ",.01)
 ;;T15.12XA
 ;;9002226.02101,"873,T15.12XA ",.02)
 ;;T15.12XA
 ;;9002226.02101,"873,T15.12XA ",.03)
 ;;30
 ;;9002226.02101,"873,T15.80XA ",.01)
 ;;T15.80XA
 ;;9002226.02101,"873,T15.80XA ",.02)
 ;;T15.80XA
 ;;9002226.02101,"873,T15.80XA ",.03)
 ;;30
 ;;9002226.02101,"873,T15.81XA ",.01)
 ;;T15.81XA
 ;;9002226.02101,"873,T15.81XA ",.02)
 ;;T15.81XA
 ;;9002226.02101,"873,T15.81XA ",.03)
 ;;30
 ;;9002226.02101,"873,T15.82XA ",.01)
 ;;T15.82XA
 ;;9002226.02101,"873,T15.82XA ",.02)
 ;;T15.82XA
 ;;9002226.02101,"873,T15.82XA ",.03)
 ;;30
 ;;9002226.02101,"873,T15.90XA ",.01)
 ;;T15.90XA
 ;;9002226.02101,"873,T15.90XA ",.02)
 ;;T15.90XA
 ;;9002226.02101,"873,T15.90XA ",.03)
 ;;30
 ;;9002226.02101,"873,T15.91XA ",.01)
 ;;T15.91XA
 ;;9002226.02101,"873,T15.91XA ",.02)
 ;;T15.91XA
 ;;9002226.02101,"873,T15.91XA ",.03)
 ;;30
 ;;9002226.02101,"873,T15.92XA ",.01)
 ;;T15.92XA
 ;;9002226.02101,"873,T15.92XA ",.02)
 ;;T15.92XA
 ;;9002226.02101,"873,T15.92XA ",.03)
 ;;30
 ;;9002226.02101,"873,T16.1XXA ",.01)
 ;;T16.1XXA
 ;;9002226.02101,"873,T16.1XXA ",.02)
 ;;T16.1XXA
 ;;9002226.02101,"873,T16.1XXA ",.03)
 ;;30
 ;;9002226.02101,"873,T16.2XXA ",.01)
 ;;T16.2XXA
 ;;9002226.02101,"873,T16.2XXA ",.02)
 ;;T16.2XXA
 ;;9002226.02101,"873,T16.2XXA ",.03)
 ;;30
 ;;9002226.02101,"873,T16.9XXA ",.01)
 ;;T16.9XXA
 ;;9002226.02101,"873,T16.9XXA ",.02)
 ;;T16.9XXA
 ;;9002226.02101,"873,T16.9XXA ",.03)
 ;;30
 ;;9002226.02101,"873,T17.0XXA ",.01)
 ;;T17.0XXA
 ;;9002226.02101,"873,T17.0XXA ",.02)
 ;;T17.0XXA
 ;;9002226.02101,"873,T17.0XXA ",.03)
 ;;30
 ;;9002226.02101,"873,T17.1XXA ",.01)
 ;;T17.1XXA
 ;;9002226.02101,"873,T17.1XXA ",.02)
 ;;T17.1XXA
 ;;9002226.02101,"873,T17.1XXA ",.03)
 ;;30
 ;;9002226.02101,"873,T17.200A ",.01)
 ;;T17.200A
 ;;9002226.02101,"873,T17.200A ",.02)
 ;;T17.200A
 ;;9002226.02101,"873,T17.200A ",.03)
 ;;30
 ;;9002226.02101,"873,T17.208A ",.01)
 ;;T17.208A
 ;;9002226.02101,"873,T17.208A ",.02)
 ;;T17.208A
 ;;9002226.02101,"873,T17.208A ",.03)
 ;;30
 ;;9002226.02101,"873,T17.210A ",.01)
 ;;T17.210A
 ;;9002226.02101,"873,T17.210A ",.02)
 ;;T17.210A
 ;;9002226.02101,"873,T17.210A ",.03)
 ;;30
 ;;9002226.02101,"873,T17.218A ",.01)
 ;;T17.218A
 ;;9002226.02101,"873,T17.218A ",.02)
 ;;T17.218A