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

ATXXA37.m

Go to the documentation of this file.
ATXXA37 ;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,S14.119A ",.02)
 ;;S14.119A
 ;;9002226.02101,"873,S14.119A ",.03)
 ;;30
 ;;9002226.02101,"873,S14.121A ",.01)
 ;;S14.121A
 ;;9002226.02101,"873,S14.121A ",.02)
 ;;S14.121A
 ;;9002226.02101,"873,S14.121A ",.03)
 ;;30
 ;;9002226.02101,"873,S14.122A ",.01)
 ;;S14.122A
 ;;9002226.02101,"873,S14.122A ",.02)
 ;;S14.122A
 ;;9002226.02101,"873,S14.122A ",.03)
 ;;30
 ;;9002226.02101,"873,S14.123A ",.01)
 ;;S14.123A
 ;;9002226.02101,"873,S14.123A ",.02)
 ;;S14.123A
 ;;9002226.02101,"873,S14.123A ",.03)
 ;;30
 ;;9002226.02101,"873,S14.124A ",.01)
 ;;S14.124A
 ;;9002226.02101,"873,S14.124A ",.02)
 ;;S14.124A
 ;;9002226.02101,"873,S14.124A ",.03)
 ;;30
 ;;9002226.02101,"873,S14.125A ",.01)
 ;;S14.125A
 ;;9002226.02101,"873,S14.125A ",.02)
 ;;S14.125A
 ;;9002226.02101,"873,S14.125A ",.03)
 ;;30
 ;;9002226.02101,"873,S14.126A ",.01)
 ;;S14.126A
 ;;9002226.02101,"873,S14.126A ",.02)
 ;;S14.126A
 ;;9002226.02101,"873,S14.126A ",.03)
 ;;30
 ;;9002226.02101,"873,S14.127A ",.01)
 ;;S14.127A
 ;;9002226.02101,"873,S14.127A ",.02)
 ;;S14.127A
 ;;9002226.02101,"873,S14.127A ",.03)
 ;;30
 ;;9002226.02101,"873,S14.128A ",.01)
 ;;S14.128A
 ;;9002226.02101,"873,S14.128A ",.02)
 ;;S14.128A
 ;;9002226.02101,"873,S14.128A ",.03)
 ;;30
 ;;9002226.02101,"873,S14.129A ",.01)
 ;;S14.129A
 ;;9002226.02101,"873,S14.129A ",.02)
 ;;S14.129A
 ;;9002226.02101,"873,S14.129A ",.03)
 ;;30
 ;;9002226.02101,"873,S14.131A ",.01)
 ;;S14.131A
 ;;9002226.02101,"873,S14.131A ",.02)
 ;;S14.131A
 ;;9002226.02101,"873,S14.131A ",.03)
 ;;30
 ;;9002226.02101,"873,S14.132A ",.01)
 ;;S14.132A
 ;;9002226.02101,"873,S14.132A ",.02)
 ;;S14.132A
 ;;9002226.02101,"873,S14.132A ",.03)
 ;;30
 ;;9002226.02101,"873,S14.133A ",.01)
 ;;S14.133A
 ;;9002226.02101,"873,S14.133A ",.02)
 ;;S14.133A
 ;;9002226.02101,"873,S14.133A ",.03)
 ;;30
 ;;9002226.02101,"873,S14.134A ",.01)
 ;;S14.134A
 ;;9002226.02101,"873,S14.134A ",.02)
 ;;S14.134A
 ;;9002226.02101,"873,S14.134A ",.03)
 ;;30
 ;;9002226.02101,"873,S14.135A ",.01)
 ;;S14.135A
 ;;9002226.02101,"873,S14.135A ",.02)
 ;;S14.135A
 ;;9002226.02101,"873,S14.135A ",.03)
 ;;30
 ;;9002226.02101,"873,S14.136A ",.01)
 ;;S14.136A
 ;;9002226.02101,"873,S14.136A ",.02)
 ;;S14.136A
 ;;9002226.02101,"873,S14.136A ",.03)
 ;;30
 ;;9002226.02101,"873,S14.137A ",.01)
 ;;S14.137A
 ;;9002226.02101,"873,S14.137A ",.02)
 ;;S14.137A
 ;;9002226.02101,"873,S14.137A ",.03)
 ;;30
 ;;9002226.02101,"873,S14.138A ",.01)
 ;;S14.138A
 ;;9002226.02101,"873,S14.138A ",.02)
 ;;S14.138A
 ;;9002226.02101,"873,S14.138A ",.03)
 ;;30
 ;;9002226.02101,"873,S14.139A ",.01)
 ;;S14.139A
 ;;9002226.02101,"873,S14.139A ",.02)
 ;;S14.139A
 ;;9002226.02101,"873,S14.139A ",.03)
 ;;30
 ;;9002226.02101,"873,S14.141A ",.01)
 ;;S14.141A
 ;;9002226.02101,"873,S14.141A ",.02)
 ;;S14.141A
 ;;9002226.02101,"873,S14.141A ",.03)
 ;;30
 ;;9002226.02101,"873,S14.142A ",.01)
 ;;S14.142A
 ;;9002226.02101,"873,S14.142A ",.02)
 ;;S14.142A
 ;;9002226.02101,"873,S14.142A ",.03)
 ;;30
 ;;9002226.02101,"873,S14.143A ",.01)
 ;;S14.143A
 ;;9002226.02101,"873,S14.143A ",.02)
 ;;S14.143A
 ;;9002226.02101,"873,S14.143A ",.03)
 ;;30
 ;;9002226.02101,"873,S14.144A ",.01)
 ;;S14.144A
 ;;9002226.02101,"873,S14.144A ",.02)
 ;;S14.144A
 ;;9002226.02101,"873,S14.144A ",.03)
 ;;30
 ;;9002226.02101,"873,S14.145A ",.01)
 ;;S14.145A
 ;;9002226.02101,"873,S14.145A ",.02)
 ;;S14.145A
 ;;9002226.02101,"873,S14.145A ",.03)
 ;;30
 ;;9002226.02101,"873,S14.146A ",.01)
 ;;S14.146A
 ;;9002226.02101,"873,S14.146A ",.02)
 ;;S14.146A
 ;;9002226.02101,"873,S14.146A ",.03)
 ;;30
 ;;9002226.02101,"873,S14.147A ",.01)
 ;;S14.147A
 ;;9002226.02101,"873,S14.147A ",.02)
 ;;S14.147A
 ;;9002226.02101,"873,S14.147A ",.03)
 ;;30
 ;;9002226.02101,"873,S14.148A ",.01)
 ;;S14.148A
 ;;9002226.02101,"873,S14.148A ",.02)
 ;;S14.148A
 ;;9002226.02101,"873,S14.148A ",.03)
 ;;30
 ;;9002226.02101,"873,S14.149A ",.01)
 ;;S14.149A
 ;;9002226.02101,"873,S14.149A ",.02)
 ;;S14.149A
 ;;9002226.02101,"873,S14.149A ",.03)
 ;;30
 ;;9002226.02101,"873,S14.151A ",.01)
 ;;S14.151A
 ;;9002226.02101,"873,S14.151A ",.02)
 ;;S14.151A
 ;;9002226.02101,"873,S14.151A ",.03)
 ;;30
 ;;9002226.02101,"873,S14.152A ",.01)
 ;;S14.152A
 ;;9002226.02101,"873,S14.152A ",.02)
 ;;S14.152A
 ;;9002226.02101,"873,S14.152A ",.03)
 ;;30
 ;;9002226.02101,"873,S14.153A ",.01)
 ;;S14.153A
 ;;9002226.02101,"873,S14.153A ",.02)
 ;;S14.153A
 ;;9002226.02101,"873,S14.153A ",.03)
 ;;30
 ;;9002226.02101,"873,S14.154A ",.01)
 ;;S14.154A
 ;;9002226.02101,"873,S14.154A ",.02)
 ;;S14.154A
 ;;9002226.02101,"873,S14.154A ",.03)
 ;;30
 ;;9002226.02101,"873,S14.155A ",.01)
 ;;S14.155A
 ;;9002226.02101,"873,S14.155A ",.02)
 ;;S14.155A
 ;;9002226.02101,"873,S14.155A ",.03)
 ;;30
 ;;9002226.02101,"873,S14.156A ",.01)
 ;;S14.156A
 ;;9002226.02101,"873,S14.156A ",.02)
 ;;S14.156A
 ;;9002226.02101,"873,S14.156A ",.03)
 ;;30
 ;;9002226.02101,"873,S14.157A ",.01)
 ;;S14.157A
 ;;9002226.02101,"873,S14.157A ",.02)
 ;;S14.157A
 ;;9002226.02101,"873,S14.157A ",.03)
 ;;30
 ;;9002226.02101,"873,S14.158A ",.01)
 ;;S14.158A
 ;;9002226.02101,"873,S14.158A ",.02)
 ;;S14.158A
 ;;9002226.02101,"873,S14.158A ",.03)
 ;;30
 ;;9002226.02101,"873,S14.159A ",.01)
 ;;S14.159A
 ;;9002226.02101,"873,S14.159A ",.02)
 ;;S14.159A
 ;;9002226.02101,"873,S14.159A ",.03)
 ;;30
 ;;9002226.02101,"873,S14.2XXA ",.01)
 ;;S14.2XXA
 ;;9002226.02101,"873,S14.2XXA ",.02)
 ;;S14.2XXA
 ;;9002226.02101,"873,S14.2XXA ",.03)
 ;;30
 ;;9002226.02101,"873,S14.3XXA ",.01)
 ;;S14.3XXA
 ;;9002226.02101,"873,S14.3XXA ",.02)
 ;;S14.3XXA
 ;;9002226.02101,"873,S14.3XXA ",.03)
 ;;30
 ;;9002226.02101,"873,S14.4XXA ",.01)
 ;;S14.4XXA
 ;;9002226.02101,"873,S14.4XXA ",.02)
 ;;S14.4XXA
 ;;9002226.02101,"873,S14.4XXA ",.03)
 ;;30
 ;;9002226.02101,"873,S14.5XXA ",.01)
 ;;S14.5XXA
 ;;9002226.02101,"873,S14.5XXA ",.02)
 ;;S14.5XXA
 ;;9002226.02101,"873,S14.5XXA ",.03)
 ;;30
 ;;9002226.02101,"873,S14.8XXA ",.01)
 ;;S14.8XXA
 ;;9002226.02101,"873,S14.8XXA ",.02)
 ;;S14.8XXA
 ;;9002226.02101,"873,S14.8XXA ",.03)
 ;;30
 ;;9002226.02101,"873,S14.9XXA ",.01)
 ;;S14.9XXA
 ;;9002226.02101,"873,S14.9XXA ",.02)
 ;;S14.9XXA
 ;;9002226.02101,"873,S14.9XXA ",.03)
 ;;30
 ;;9002226.02101,"873,S15.001A ",.01)
 ;;S15.001A
 ;;9002226.02101,"873,S15.001A ",.02)
 ;;S15.001A
 ;;9002226.02101,"873,S15.001A ",.03)
 ;;30
 ;;9002226.02101,"873,S15.002A ",.01)
 ;;S15.002A
 ;;9002226.02101,"873,S15.002A ",.02)
 ;;S15.002A
 ;;9002226.02101,"873,S15.002A ",.03)
 ;;30
 ;;9002226.02101,"873,S15.009A ",.01)
 ;;S15.009A
 ;;9002226.02101,"873,S15.009A ",.02)
 ;;S15.009A
 ;;9002226.02101,"873,S15.009A ",.03)
 ;;30
 ;;9002226.02101,"873,S15.011A ",.01)
 ;;S15.011A
 ;;9002226.02101,"873,S15.011A ",.02)
 ;;S15.011A
 ;;9002226.02101,"873,S15.011A ",.03)
 ;;30
 ;;9002226.02101,"873,S15.012A ",.01)
 ;;S15.012A
 ;;9002226.02101,"873,S15.012A ",.02)
 ;;S15.012A
 ;;9002226.02101,"873,S15.012A ",.03)
 ;;30
 ;;9002226.02101,"873,S15.019A ",.01)
 ;;S15.019A
 ;;9002226.02101,"873,S15.019A ",.02)
 ;;S15.019A
 ;;9002226.02101,"873,S15.019A ",.03)
 ;;30
 ;;9002226.02101,"873,S15.021A ",.01)
 ;;S15.021A
 ;;9002226.02101,"873,S15.021A ",.02)
 ;;S15.021A
 ;;9002226.02101,"873,S15.021A ",.03)
 ;;30
 ;;9002226.02101,"873,S15.022A ",.01)
 ;;S15.022A
 ;;9002226.02101,"873,S15.022A ",.02)
 ;;S15.022A
 ;;9002226.02101,"873,S15.022A ",.03)
 ;;30
 ;;9002226.02101,"873,S15.029A ",.01)
 ;;S15.029A
 ;;9002226.02101,"873,S15.029A ",.02)
 ;;S15.029A
 ;;9002226.02101,"873,S15.029A ",.03)
 ;;30
 ;;9002226.02101,"873,S15.091A ",.01)
 ;;S15.091A
 ;;9002226.02101,"873,S15.091A ",.02)
 ;;S15.091A
 ;;9002226.02101,"873,S15.091A ",.03)
 ;;30
 ;;9002226.02101,"873,S15.092A ",.01)
 ;;S15.092A
 ;;9002226.02101,"873,S15.092A ",.02)
 ;;S15.092A
 ;;9002226.02101,"873,S15.092A ",.03)
 ;;30
 ;;9002226.02101,"873,S15.099A ",.01)
 ;;S15.099A
 ;;9002226.02101,"873,S15.099A ",.02)
 ;;S15.099A
 ;;9002226.02101,"873,S15.099A ",.03)
 ;;30
 ;;9002226.02101,"873,S15.101A ",.01)
 ;;S15.101A
 ;;9002226.02101,"873,S15.101A ",.02)
 ;;S15.101A
 ;;9002226.02101,"873,S15.101A ",.03)
 ;;30
 ;;9002226.02101,"873,S15.102A ",.01)
 ;;S15.102A
 ;;9002226.02101,"873,S15.102A ",.02)
 ;;S15.102A
 ;;9002226.02101,"873,S15.102A ",.03)
 ;;30
 ;;9002226.02101,"873,S15.109A ",.01)
 ;;S15.109A
 ;;9002226.02101,"873,S15.109A ",.02)
 ;;S15.109A
 ;;9002226.02101,"873,S15.109A ",.03)
 ;;30
 ;;9002226.02101,"873,S15.111A ",.01)
 ;;S15.111A
 ;;9002226.02101,"873,S15.111A ",.02)
 ;;S15.111A
 ;;9002226.02101,"873,S15.111A ",.03)
 ;;30
 ;;9002226.02101,"873,S15.112A ",.01)
 ;;S15.112A
 ;;9002226.02101,"873,S15.112A ",.02)
 ;;S15.112A
 ;;9002226.02101,"873,S15.112A ",.03)
 ;;30
 ;;9002226.02101,"873,S15.119A ",.01)
 ;;S15.119A
 ;;9002226.02101,"873,S15.119A ",.02)
 ;;S15.119A
 ;;9002226.02101,"873,S15.119A ",.03)
 ;;30
 ;;9002226.02101,"873,S15.121A ",.01)
 ;;S15.121A
 ;;9002226.02101,"873,S15.121A ",.02)
 ;;S15.121A
 ;;9002226.02101,"873,S15.121A ",.03)
 ;;30
 ;;9002226.02101,"873,S15.122A ",.01)
 ;;S15.122A
 ;;9002226.02101,"873,S15.122A ",.02)
 ;;S15.122A
 ;;9002226.02101,"873,S15.122A ",.03)
 ;;30
 ;;9002226.02101,"873,S15.129A ",.01)
 ;;S15.129A
 ;;9002226.02101,"873,S15.129A ",.02)
 ;;S15.129A
 ;;9002226.02101,"873,S15.129A ",.03)
 ;;30
 ;;9002226.02101,"873,S15.191A ",.01)
 ;;S15.191A
 ;;9002226.02101,"873,S15.191A ",.02)
 ;;S15.191A
 ;;9002226.02101,"873,S15.191A ",.03)
 ;;30
 ;;9002226.02101,"873,S15.192A ",.01)
 ;;S15.192A
 ;;9002226.02101,"873,S15.192A ",.02)
 ;;S15.192A
 ;;9002226.02101,"873,S15.192A ",.03)
 ;;30
 ;;9002226.02101,"873,S15.199A ",.01)
 ;;S15.199A
 ;;9002226.02101,"873,S15.199A ",.02)
 ;;S15.199A
 ;;9002226.02101,"873,S15.199A ",.03)
 ;;30
 ;;9002226.02101,"873,S15.201A ",.01)
 ;;S15.201A
 ;;9002226.02101,"873,S15.201A ",.02)
 ;;S15.201A
 ;;9002226.02101,"873,S15.201A ",.03)
 ;;30
 ;;9002226.02101,"873,S15.202A ",.01)
 ;;S15.202A
 ;;9002226.02101,"873,S15.202A ",.02)
 ;;S15.202A
 ;;9002226.02101,"873,S15.202A ",.03)
 ;;30
 ;;9002226.02101,"873,S15.209A ",.01)
 ;;S15.209A
 ;;9002226.02101,"873,S15.209A ",.02)
 ;;S15.209A
 ;;9002226.02101,"873,S15.209A ",.03)
 ;;30
 ;;9002226.02101,"873,S15.211A ",.01)
 ;;S15.211A
 ;;9002226.02101,"873,S15.211A ",.02)
 ;;S15.211A
 ;;9002226.02101,"873,S15.211A ",.03)
 ;;30
 ;;9002226.02101,"873,S15.212A ",.01)
 ;;S15.212A
 ;;9002226.02101,"873,S15.212A ",.02)
 ;;S15.212A
 ;;9002226.02101,"873,S15.212A ",.03)
 ;;30
 ;;9002226.02101,"873,S15.219A ",.01)
 ;;S15.219A
 ;;9002226.02101,"873,S15.219A ",.02)
 ;;S15.219A
 ;;9002226.02101,"873,S15.219A ",.03)
 ;;30
 ;;9002226.02101,"873,S15.221A ",.01)
 ;;S15.221A
 ;;9002226.02101,"873,S15.221A ",.02)
 ;;S15.221A
 ;;9002226.02101,"873,S15.221A ",.03)
 ;;30
 ;;9002226.02101,"873,S15.222A ",.01)
 ;;S15.222A
 ;;9002226.02101,"873,S15.222A ",.02)
 ;;S15.222A
 ;;9002226.02101,"873,S15.222A ",.03)
 ;;30
 ;;9002226.02101,"873,S15.229A ",.01)
 ;;S15.229A
 ;;9002226.02101,"873,S15.229A ",.02)
 ;;S15.229A
 ;;9002226.02101,"873,S15.229A ",.03)
 ;;30
 ;;9002226.02101,"873,S15.291A ",.01)
 ;;S15.291A
 ;;9002226.02101,"873,S15.291A ",.02)
 ;;S15.291A
 ;;9002226.02101,"873,S15.291A ",.03)
 ;;30
 ;;9002226.02101,"873,S15.292A ",.01)
 ;;S15.292A
 ;;9002226.02101,"873,S15.292A ",.02)
 ;;S15.292A
 ;;9002226.02101,"873,S15.292A ",.03)
 ;;30
 ;;9002226.02101,"873,S15.299A ",.01)
 ;;S15.299A
 ;;9002226.02101,"873,S15.299A ",.02)
 ;;S15.299A