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

ATXXA51.m

Go to the documentation of this file.
ATXXA51 ;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,S33.4XXA ",.01)
 ;;S33.4XXA
 ;;9002226.02101,"873,S33.4XXA ",.02)
 ;;S33.4XXA
 ;;9002226.02101,"873,S33.4XXA ",.03)
 ;;30
 ;;9002226.02101,"873,S33.5XXA ",.01)
 ;;S33.5XXA
 ;;9002226.02101,"873,S33.5XXA ",.02)
 ;;S33.5XXA
 ;;9002226.02101,"873,S33.5XXA ",.03)
 ;;30
 ;;9002226.02101,"873,S33.6XXA ",.01)
 ;;S33.6XXA
 ;;9002226.02101,"873,S33.6XXA ",.02)
 ;;S33.6XXA
 ;;9002226.02101,"873,S33.6XXA ",.03)
 ;;30
 ;;9002226.02101,"873,S33.8XXA ",.01)
 ;;S33.8XXA
 ;;9002226.02101,"873,S33.8XXA ",.02)
 ;;S33.8XXA
 ;;9002226.02101,"873,S33.8XXA ",.03)
 ;;30
 ;;9002226.02101,"873,S33.9XXA ",.01)
 ;;S33.9XXA
 ;;9002226.02101,"873,S33.9XXA ",.02)
 ;;S33.9XXA
 ;;9002226.02101,"873,S33.9XXA ",.03)
 ;;30
 ;;9002226.02101,"873,S34.01XA ",.01)
 ;;S34.01XA
 ;;9002226.02101,"873,S34.01XA ",.02)
 ;;S34.01XA
 ;;9002226.02101,"873,S34.01XA ",.03)
 ;;30
 ;;9002226.02101,"873,S34.02XA ",.01)
 ;;S34.02XA
 ;;9002226.02101,"873,S34.02XA ",.02)
 ;;S34.02XA
 ;;9002226.02101,"873,S34.02XA ",.03)
 ;;30
 ;;9002226.02101,"873,S34.101A ",.01)
 ;;S34.101A
 ;;9002226.02101,"873,S34.101A ",.02)
 ;;S34.101A
 ;;9002226.02101,"873,S34.101A ",.03)
 ;;30
 ;;9002226.02101,"873,S34.102A ",.01)
 ;;S34.102A
 ;;9002226.02101,"873,S34.102A ",.02)
 ;;S34.102A
 ;;9002226.02101,"873,S34.102A ",.03)
 ;;30
 ;;9002226.02101,"873,S34.103A ",.01)
 ;;S34.103A
 ;;9002226.02101,"873,S34.103A ",.02)
 ;;S34.103A
 ;;9002226.02101,"873,S34.103A ",.03)
 ;;30
 ;;9002226.02101,"873,S34.104A ",.01)
 ;;S34.104A
 ;;9002226.02101,"873,S34.104A ",.02)
 ;;S34.104A
 ;;9002226.02101,"873,S34.104A ",.03)
 ;;30
 ;;9002226.02101,"873,S34.105A ",.01)
 ;;S34.105A
 ;;9002226.02101,"873,S34.105A ",.02)
 ;;S34.105A
 ;;9002226.02101,"873,S34.105A ",.03)
 ;;30
 ;;9002226.02101,"873,S34.109A ",.01)
 ;;S34.109A
 ;;9002226.02101,"873,S34.109A ",.02)
 ;;S34.109A
 ;;9002226.02101,"873,S34.109A ",.03)
 ;;30
 ;;9002226.02101,"873,S34.111A ",.01)
 ;;S34.111A
 ;;9002226.02101,"873,S34.111A ",.02)
 ;;S34.111A
 ;;9002226.02101,"873,S34.111A ",.03)
 ;;30
 ;;9002226.02101,"873,S34.112A ",.01)
 ;;S34.112A
 ;;9002226.02101,"873,S34.112A ",.02)
 ;;S34.112A
 ;;9002226.02101,"873,S34.112A ",.03)
 ;;30
 ;;9002226.02101,"873,S34.113A ",.01)
 ;;S34.113A
 ;;9002226.02101,"873,S34.113A ",.02)
 ;;S34.113A
 ;;9002226.02101,"873,S34.113A ",.03)
 ;;30
 ;;9002226.02101,"873,S34.114A ",.01)
 ;;S34.114A
 ;;9002226.02101,"873,S34.114A ",.02)
 ;;S34.114A
 ;;9002226.02101,"873,S34.114A ",.03)
 ;;30
 ;;9002226.02101,"873,S34.115A ",.01)
 ;;S34.115A
 ;;9002226.02101,"873,S34.115A ",.02)
 ;;S34.115A
 ;;9002226.02101,"873,S34.115A ",.03)
 ;;30
 ;;9002226.02101,"873,S34.119A ",.01)
 ;;S34.119A
 ;;9002226.02101,"873,S34.119A ",.02)
 ;;S34.119A
 ;;9002226.02101,"873,S34.119A ",.03)
 ;;30
 ;;9002226.02101,"873,S34.121A ",.01)
 ;;S34.121A
 ;;9002226.02101,"873,S34.121A ",.02)
 ;;S34.121A
 ;;9002226.02101,"873,S34.121A ",.03)
 ;;30
 ;;9002226.02101,"873,S34.122A ",.01)
 ;;S34.122A
 ;;9002226.02101,"873,S34.122A ",.02)
 ;;S34.122A
 ;;9002226.02101,"873,S34.122A ",.03)
 ;;30
 ;;9002226.02101,"873,S34.123A ",.01)
 ;;S34.123A
 ;;9002226.02101,"873,S34.123A ",.02)
 ;;S34.123A
 ;;9002226.02101,"873,S34.123A ",.03)
 ;;30
 ;;9002226.02101,"873,S34.124A ",.01)
 ;;S34.124A
 ;;9002226.02101,"873,S34.124A ",.02)
 ;;S34.124A
 ;;9002226.02101,"873,S34.124A ",.03)
 ;;30
 ;;9002226.02101,"873,S34.125A ",.01)
 ;;S34.125A
 ;;9002226.02101,"873,S34.125A ",.02)
 ;;S34.125A
 ;;9002226.02101,"873,S34.125A ",.03)
 ;;30
 ;;9002226.02101,"873,S34.129A ",.01)
 ;;S34.129A
 ;;9002226.02101,"873,S34.129A ",.02)
 ;;S34.129A
 ;;9002226.02101,"873,S34.129A ",.03)
 ;;30
 ;;9002226.02101,"873,S34.131A ",.01)
 ;;S34.131A
 ;;9002226.02101,"873,S34.131A ",.02)
 ;;S34.131A
 ;;9002226.02101,"873,S34.131A ",.03)
 ;;30
 ;;9002226.02101,"873,S34.132A ",.01)
 ;;S34.132A
 ;;9002226.02101,"873,S34.132A ",.02)
 ;;S34.132A
 ;;9002226.02101,"873,S34.132A ",.03)
 ;;30
 ;;9002226.02101,"873,S34.139A ",.01)
 ;;S34.139A
 ;;9002226.02101,"873,S34.139A ",.02)
 ;;S34.139A
 ;;9002226.02101,"873,S34.139A ",.03)
 ;;30
 ;;9002226.02101,"873,S34.21XA ",.01)
 ;;S34.21XA
 ;;9002226.02101,"873,S34.21XA ",.02)
 ;;S34.21XA
 ;;9002226.02101,"873,S34.21XA ",.03)
 ;;30
 ;;9002226.02101,"873,S34.22XA ",.01)
 ;;S34.22XA
 ;;9002226.02101,"873,S34.22XA ",.02)
 ;;S34.22XA
 ;;9002226.02101,"873,S34.22XA ",.03)
 ;;30
 ;;9002226.02101,"873,S34.3XXA ",.01)
 ;;S34.3XXA
 ;;9002226.02101,"873,S34.3XXA ",.02)
 ;;S34.3XXA
 ;;9002226.02101,"873,S34.3XXA ",.03)
 ;;30
 ;;9002226.02101,"873,S34.4XXA ",.01)
 ;;S34.4XXA
 ;;9002226.02101,"873,S34.4XXA ",.02)
 ;;S34.4XXA
 ;;9002226.02101,"873,S34.4XXA ",.03)
 ;;30
 ;;9002226.02101,"873,S34.5XXA ",.01)
 ;;S34.5XXA
 ;;9002226.02101,"873,S34.5XXA ",.02)
 ;;S34.5XXA
 ;;9002226.02101,"873,S34.5XXA ",.03)
 ;;30
 ;;9002226.02101,"873,S34.6XXA ",.01)
 ;;S34.6XXA
 ;;9002226.02101,"873,S34.6XXA ",.02)
 ;;S34.6XXA
 ;;9002226.02101,"873,S34.6XXA ",.03)
 ;;30
 ;;9002226.02101,"873,S34.8XXA ",.01)
 ;;S34.8XXA
 ;;9002226.02101,"873,S34.8XXA ",.02)
 ;;S34.8XXA
 ;;9002226.02101,"873,S34.8XXA ",.03)
 ;;30
 ;;9002226.02101,"873,S34.9XXA ",.01)
 ;;S34.9XXA
 ;;9002226.02101,"873,S34.9XXA ",.02)
 ;;S34.9XXA
 ;;9002226.02101,"873,S34.9XXA ",.03)
 ;;30
 ;;9002226.02101,"873,S35.00XA ",.01)
 ;;S35.00XA
 ;;9002226.02101,"873,S35.00XA ",.02)
 ;;S35.00XA
 ;;9002226.02101,"873,S35.00XA ",.03)
 ;;30
 ;;9002226.02101,"873,S35.01XA ",.01)
 ;;S35.01XA
 ;;9002226.02101,"873,S35.01XA ",.02)
 ;;S35.01XA
 ;;9002226.02101,"873,S35.01XA ",.03)
 ;;30
 ;;9002226.02101,"873,S35.02XA ",.01)
 ;;S35.02XA
 ;;9002226.02101,"873,S35.02XA ",.02)
 ;;S35.02XA
 ;;9002226.02101,"873,S35.02XA ",.03)
 ;;30
 ;;9002226.02101,"873,S35.09XA ",.01)
 ;;S35.09XA
 ;;9002226.02101,"873,S35.09XA ",.02)
 ;;S35.09XA
 ;;9002226.02101,"873,S35.09XA ",.03)
 ;;30
 ;;9002226.02101,"873,S35.10XA ",.01)
 ;;S35.10XA
 ;;9002226.02101,"873,S35.10XA ",.02)
 ;;S35.10XA
 ;;9002226.02101,"873,S35.10XA ",.03)
 ;;30
 ;;9002226.02101,"873,S35.11XA ",.01)
 ;;S35.11XA
 ;;9002226.02101,"873,S35.11XA ",.02)
 ;;S35.11XA
 ;;9002226.02101,"873,S35.11XA ",.03)
 ;;30
 ;;9002226.02101,"873,S35.12XA ",.01)
 ;;S35.12XA
 ;;9002226.02101,"873,S35.12XA ",.02)
 ;;S35.12XA
 ;;9002226.02101,"873,S35.12XA ",.03)
 ;;30
 ;;9002226.02101,"873,S35.19XA ",.01)
 ;;S35.19XA
 ;;9002226.02101,"873,S35.19XA ",.02)
 ;;S35.19XA
 ;;9002226.02101,"873,S35.19XA ",.03)
 ;;30
 ;;9002226.02101,"873,S35.211A ",.01)
 ;;S35.211A
 ;;9002226.02101,"873,S35.211A ",.02)
 ;;S35.211A
 ;;9002226.02101,"873,S35.211A ",.03)
 ;;30
 ;;9002226.02101,"873,S35.212A ",.01)
 ;;S35.212A
 ;;9002226.02101,"873,S35.212A ",.02)
 ;;S35.212A
 ;;9002226.02101,"873,S35.212A ",.03)
 ;;30
 ;;9002226.02101,"873,S35.218A ",.01)
 ;;S35.218A
 ;;9002226.02101,"873,S35.218A ",.02)
 ;;S35.218A
 ;;9002226.02101,"873,S35.218A ",.03)
 ;;30
 ;;9002226.02101,"873,S35.219A ",.01)
 ;;S35.219A
 ;;9002226.02101,"873,S35.219A ",.02)
 ;;S35.219A
 ;;9002226.02101,"873,S35.219A ",.03)
 ;;30
 ;;9002226.02101,"873,S35.221A ",.01)
 ;;S35.221A
 ;;9002226.02101,"873,S35.221A ",.02)
 ;;S35.221A
 ;;9002226.02101,"873,S35.221A ",.03)
 ;;30
 ;;9002226.02101,"873,S35.222A ",.01)
 ;;S35.222A
 ;;9002226.02101,"873,S35.222A ",.02)
 ;;S35.222A
 ;;9002226.02101,"873,S35.222A ",.03)
 ;;30
 ;;9002226.02101,"873,S35.228A ",.01)
 ;;S35.228A
 ;;9002226.02101,"873,S35.228A ",.02)
 ;;S35.228A
 ;;9002226.02101,"873,S35.228A ",.03)
 ;;30
 ;;9002226.02101,"873,S35.229A ",.01)
 ;;S35.229A
 ;;9002226.02101,"873,S35.229A ",.02)
 ;;S35.229A
 ;;9002226.02101,"873,S35.229A ",.03)
 ;;30
 ;;9002226.02101,"873,S35.231A ",.01)
 ;;S35.231A
 ;;9002226.02101,"873,S35.231A ",.02)
 ;;S35.231A
 ;;9002226.02101,"873,S35.231A ",.03)
 ;;30
 ;;9002226.02101,"873,S35.232A ",.01)
 ;;S35.232A
 ;;9002226.02101,"873,S35.232A ",.02)
 ;;S35.232A
 ;;9002226.02101,"873,S35.232A ",.03)
 ;;30
 ;;9002226.02101,"873,S35.238A ",.01)
 ;;S35.238A
 ;;9002226.02101,"873,S35.238A ",.02)
 ;;S35.238A
 ;;9002226.02101,"873,S35.238A ",.03)
 ;;30
 ;;9002226.02101,"873,S35.239A ",.01)
 ;;S35.239A
 ;;9002226.02101,"873,S35.239A ",.02)
 ;;S35.239A
 ;;9002226.02101,"873,S35.239A ",.03)
 ;;30
 ;;9002226.02101,"873,S35.291A ",.01)
 ;;S35.291A
 ;;9002226.02101,"873,S35.291A ",.02)
 ;;S35.291A
 ;;9002226.02101,"873,S35.291A ",.03)
 ;;30
 ;;9002226.02101,"873,S35.292A ",.01)
 ;;S35.292A
 ;;9002226.02101,"873,S35.292A ",.02)
 ;;S35.292A
 ;;9002226.02101,"873,S35.292A ",.03)
 ;;30
 ;;9002226.02101,"873,S35.298A ",.01)
 ;;S35.298A
 ;;9002226.02101,"873,S35.298A ",.02)
 ;;S35.298A
 ;;9002226.02101,"873,S35.298A ",.03)
 ;;30
 ;;9002226.02101,"873,S35.299A ",.01)
 ;;S35.299A
 ;;9002226.02101,"873,S35.299A ",.02)
 ;;S35.299A
 ;;9002226.02101,"873,S35.299A ",.03)
 ;;30
 ;;9002226.02101,"873,S35.311A ",.01)
 ;;S35.311A
 ;;9002226.02101,"873,S35.311A ",.02)
 ;;S35.311A
 ;;9002226.02101,"873,S35.311A ",.03)
 ;;30
 ;;9002226.02101,"873,S35.318A ",.01)
 ;;S35.318A
 ;;9002226.02101,"873,S35.318A ",.02)
 ;;S35.318A
 ;;9002226.02101,"873,S35.318A ",.03)
 ;;30
 ;;9002226.02101,"873,S35.319A ",.01)
 ;;S35.319A
 ;;9002226.02101,"873,S35.319A ",.02)
 ;;S35.319A
 ;;9002226.02101,"873,S35.319A ",.03)
 ;;30
 ;;9002226.02101,"873,S35.321A ",.01)
 ;;S35.321A
 ;;9002226.02101,"873,S35.321A ",.02)
 ;;S35.321A
 ;;9002226.02101,"873,S35.321A ",.03)
 ;;30
 ;;9002226.02101,"873,S35.328A ",.01)
 ;;S35.328A
 ;;9002226.02101,"873,S35.328A ",.02)
 ;;S35.328A
 ;;9002226.02101,"873,S35.328A ",.03)
 ;;30
 ;;9002226.02101,"873,S35.329A ",.01)
 ;;S35.329A
 ;;9002226.02101,"873,S35.329A ",.02)
 ;;S35.329A
 ;;9002226.02101,"873,S35.329A ",.03)
 ;;30
 ;;9002226.02101,"873,S35.331A ",.01)
 ;;S35.331A
 ;;9002226.02101,"873,S35.331A ",.02)
 ;;S35.331A
 ;;9002226.02101,"873,S35.331A ",.03)
 ;;30
 ;;9002226.02101,"873,S35.338A ",.01)
 ;;S35.338A
 ;;9002226.02101,"873,S35.338A ",.02)
 ;;S35.338A
 ;;9002226.02101,"873,S35.338A ",.03)
 ;;30
 ;;9002226.02101,"873,S35.339A ",.01)
 ;;S35.339A
 ;;9002226.02101,"873,S35.339A ",.02)
 ;;S35.339A
 ;;9002226.02101,"873,S35.339A ",.03)
 ;;30
 ;;9002226.02101,"873,S35.341A ",.01)
 ;;S35.341A
 ;;9002226.02101,"873,S35.341A ",.02)
 ;;S35.341A
 ;;9002226.02101,"873,S35.341A ",.03)
 ;;30
 ;;9002226.02101,"873,S35.348A ",.01)
 ;;S35.348A
 ;;9002226.02101,"873,S35.348A ",.02)
 ;;S35.348A
 ;;9002226.02101,"873,S35.348A ",.03)
 ;;30
 ;;9002226.02101,"873,S35.349A ",.01)
 ;;S35.349A
 ;;9002226.02101,"873,S35.349A ",.02)
 ;;S35.349A
 ;;9002226.02101,"873,S35.349A ",.03)
 ;;30
 ;;9002226.02101,"873,S35.401A ",.01)
 ;;S35.401A
 ;;9002226.02101,"873,S35.401A ",.02)
 ;;S35.401A
 ;;9002226.02101,"873,S35.401A ",.03)
 ;;30
 ;;9002226.02101,"873,S35.402A ",.01)
 ;;S35.402A
 ;;9002226.02101,"873,S35.402A ",.02)
 ;;S35.402A
 ;;9002226.02101,"873,S35.402A ",.03)
 ;;30
 ;;9002226.02101,"873,S35.403A ",.01)
 ;;S35.403A
 ;;9002226.02101,"873,S35.403A ",.02)
 ;;S35.403A
 ;;9002226.02101,"873,S35.403A ",.03)
 ;;30
 ;;9002226.02101,"873,S35.404A ",.01)
 ;;S35.404A
 ;;9002226.02101,"873,S35.404A ",.02)
 ;;S35.404A
 ;;9002226.02101,"873,S35.404A ",.03)
 ;;30
 ;;9002226.02101,"873,S35.405A ",.01)
 ;;S35.405A
 ;;9002226.02101,"873,S35.405A ",.02)
 ;;S35.405A
 ;;9002226.02101,"873,S35.405A ",.03)
 ;;30
 ;;9002226.02101,"873,S35.406A ",.01)
 ;;S35.406A
 ;;9002226.02101,"873,S35.406A ",.02)
 ;;S35.406A
 ;;9002226.02101,"873,S35.406A ",.03)
 ;;30
 ;;9002226.02101,"873,S35.411A ",.01)
 ;;S35.411A