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

ATXXA118.m

Go to the documentation of this file.
ATXXA118 ;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,S84.02XA ",.02)
 ;;S84.02XA
 ;;9002226.02101,"873,S84.02XA ",.03)
 ;;30
 ;;9002226.02101,"873,S84.10XA ",.01)
 ;;S84.10XA
 ;;9002226.02101,"873,S84.10XA ",.02)
 ;;S84.10XA
 ;;9002226.02101,"873,S84.10XA ",.03)
 ;;30
 ;;9002226.02101,"873,S84.11XA ",.01)
 ;;S84.11XA
 ;;9002226.02101,"873,S84.11XA ",.02)
 ;;S84.11XA
 ;;9002226.02101,"873,S84.11XA ",.03)
 ;;30
 ;;9002226.02101,"873,S84.12XA ",.01)
 ;;S84.12XA
 ;;9002226.02101,"873,S84.12XA ",.02)
 ;;S84.12XA
 ;;9002226.02101,"873,S84.12XA ",.03)
 ;;30
 ;;9002226.02101,"873,S84.20XA ",.01)
 ;;S84.20XA
 ;;9002226.02101,"873,S84.20XA ",.02)
 ;;S84.20XA
 ;;9002226.02101,"873,S84.20XA ",.03)
 ;;30
 ;;9002226.02101,"873,S84.21XA ",.01)
 ;;S84.21XA
 ;;9002226.02101,"873,S84.21XA ",.02)
 ;;S84.21XA
 ;;9002226.02101,"873,S84.21XA ",.03)
 ;;30
 ;;9002226.02101,"873,S84.22XA ",.01)
 ;;S84.22XA
 ;;9002226.02101,"873,S84.22XA ",.02)
 ;;S84.22XA
 ;;9002226.02101,"873,S84.22XA ",.03)
 ;;30
 ;;9002226.02101,"873,S84.801A ",.01)
 ;;S84.801A
 ;;9002226.02101,"873,S84.801A ",.02)
 ;;S84.801A
 ;;9002226.02101,"873,S84.801A ",.03)
 ;;30
 ;;9002226.02101,"873,S84.802A ",.01)
 ;;S84.802A
 ;;9002226.02101,"873,S84.802A ",.02)
 ;;S84.802A
 ;;9002226.02101,"873,S84.802A ",.03)
 ;;30
 ;;9002226.02101,"873,S84.809A ",.01)
 ;;S84.809A
 ;;9002226.02101,"873,S84.809A ",.02)
 ;;S84.809A
 ;;9002226.02101,"873,S84.809A ",.03)
 ;;30
 ;;9002226.02101,"873,S84.90XA ",.01)
 ;;S84.90XA
 ;;9002226.02101,"873,S84.90XA ",.02)
 ;;S84.90XA
 ;;9002226.02101,"873,S84.90XA ",.03)
 ;;30
 ;;9002226.02101,"873,S84.91XA ",.01)
 ;;S84.91XA
 ;;9002226.02101,"873,S84.91XA ",.02)
 ;;S84.91XA
 ;;9002226.02101,"873,S84.91XA ",.03)
 ;;30
 ;;9002226.02101,"873,S84.92XA ",.01)
 ;;S84.92XA
 ;;9002226.02101,"873,S84.92XA ",.02)
 ;;S84.92XA
 ;;9002226.02101,"873,S84.92XA ",.03)
 ;;30
 ;;9002226.02101,"873,S85.001A ",.01)
 ;;S85.001A
 ;;9002226.02101,"873,S85.001A ",.02)
 ;;S85.001A
 ;;9002226.02101,"873,S85.001A ",.03)
 ;;30
 ;;9002226.02101,"873,S85.002A ",.01)
 ;;S85.002A
 ;;9002226.02101,"873,S85.002A ",.02)
 ;;S85.002A
 ;;9002226.02101,"873,S85.002A ",.03)
 ;;30
 ;;9002226.02101,"873,S85.009A ",.01)
 ;;S85.009A
 ;;9002226.02101,"873,S85.009A ",.02)
 ;;S85.009A
 ;;9002226.02101,"873,S85.009A ",.03)
 ;;30
 ;;9002226.02101,"873,S85.011A ",.01)
 ;;S85.011A
 ;;9002226.02101,"873,S85.011A ",.02)
 ;;S85.011A
 ;;9002226.02101,"873,S85.011A ",.03)
 ;;30
 ;;9002226.02101,"873,S85.012A ",.01)
 ;;S85.012A
 ;;9002226.02101,"873,S85.012A ",.02)
 ;;S85.012A
 ;;9002226.02101,"873,S85.012A ",.03)
 ;;30
 ;;9002226.02101,"873,S85.019A ",.01)
 ;;S85.019A
 ;;9002226.02101,"873,S85.019A ",.02)
 ;;S85.019A
 ;;9002226.02101,"873,S85.019A ",.03)
 ;;30
 ;;9002226.02101,"873,S85.091A ",.01)
 ;;S85.091A
 ;;9002226.02101,"873,S85.091A ",.02)
 ;;S85.091A
 ;;9002226.02101,"873,S85.091A ",.03)
 ;;30
 ;;9002226.02101,"873,S85.092A ",.01)
 ;;S85.092A
 ;;9002226.02101,"873,S85.092A ",.02)
 ;;S85.092A
 ;;9002226.02101,"873,S85.092A ",.03)
 ;;30
 ;;9002226.02101,"873,S85.099A ",.01)
 ;;S85.099A
 ;;9002226.02101,"873,S85.099A ",.02)
 ;;S85.099A
 ;;9002226.02101,"873,S85.099A ",.03)
 ;;30
 ;;9002226.02101,"873,S85.101A ",.01)
 ;;S85.101A
 ;;9002226.02101,"873,S85.101A ",.02)
 ;;S85.101A
 ;;9002226.02101,"873,S85.101A ",.03)
 ;;30
 ;;9002226.02101,"873,S85.102A ",.01)
 ;;S85.102A
 ;;9002226.02101,"873,S85.102A ",.02)
 ;;S85.102A
 ;;9002226.02101,"873,S85.102A ",.03)
 ;;30
 ;;9002226.02101,"873,S85.109A ",.01)
 ;;S85.109A
 ;;9002226.02101,"873,S85.109A ",.02)
 ;;S85.109A
 ;;9002226.02101,"873,S85.109A ",.03)
 ;;30
 ;;9002226.02101,"873,S85.111A ",.01)
 ;;S85.111A
 ;;9002226.02101,"873,S85.111A ",.02)
 ;;S85.111A
 ;;9002226.02101,"873,S85.111A ",.03)
 ;;30
 ;;9002226.02101,"873,S85.112A ",.01)
 ;;S85.112A
 ;;9002226.02101,"873,S85.112A ",.02)
 ;;S85.112A
 ;;9002226.02101,"873,S85.112A ",.03)
 ;;30
 ;;9002226.02101,"873,S85.119A ",.01)
 ;;S85.119A
 ;;9002226.02101,"873,S85.119A ",.02)
 ;;S85.119A
 ;;9002226.02101,"873,S85.119A ",.03)
 ;;30
 ;;9002226.02101,"873,S85.121A ",.01)
 ;;S85.121A
 ;;9002226.02101,"873,S85.121A ",.02)
 ;;S85.121A
 ;;9002226.02101,"873,S85.121A ",.03)
 ;;30
 ;;9002226.02101,"873,S85.122A ",.01)
 ;;S85.122A
 ;;9002226.02101,"873,S85.122A ",.02)
 ;;S85.122A
 ;;9002226.02101,"873,S85.122A ",.03)
 ;;30
 ;;9002226.02101,"873,S85.129A ",.01)
 ;;S85.129A
 ;;9002226.02101,"873,S85.129A ",.02)
 ;;S85.129A
 ;;9002226.02101,"873,S85.129A ",.03)
 ;;30
 ;;9002226.02101,"873,S85.131A ",.01)
 ;;S85.131A
 ;;9002226.02101,"873,S85.131A ",.02)
 ;;S85.131A
 ;;9002226.02101,"873,S85.131A ",.03)
 ;;30
 ;;9002226.02101,"873,S85.132A ",.01)
 ;;S85.132A
 ;;9002226.02101,"873,S85.132A ",.02)
 ;;S85.132A
 ;;9002226.02101,"873,S85.132A ",.03)
 ;;30
 ;;9002226.02101,"873,S85.139A ",.01)
 ;;S85.139A
 ;;9002226.02101,"873,S85.139A ",.02)
 ;;S85.139A
 ;;9002226.02101,"873,S85.139A ",.03)
 ;;30
 ;;9002226.02101,"873,S85.141A ",.01)
 ;;S85.141A
 ;;9002226.02101,"873,S85.141A ",.02)
 ;;S85.141A
 ;;9002226.02101,"873,S85.141A ",.03)
 ;;30
 ;;9002226.02101,"873,S85.142A ",.01)
 ;;S85.142A
 ;;9002226.02101,"873,S85.142A ",.02)
 ;;S85.142A
 ;;9002226.02101,"873,S85.142A ",.03)
 ;;30
 ;;9002226.02101,"873,S85.149A ",.01)
 ;;S85.149A
 ;;9002226.02101,"873,S85.149A ",.02)
 ;;S85.149A
 ;;9002226.02101,"873,S85.149A ",.03)
 ;;30
 ;;9002226.02101,"873,S85.151A ",.01)
 ;;S85.151A
 ;;9002226.02101,"873,S85.151A ",.02)
 ;;S85.151A
 ;;9002226.02101,"873,S85.151A ",.03)
 ;;30
 ;;9002226.02101,"873,S85.152A ",.01)
 ;;S85.152A
 ;;9002226.02101,"873,S85.152A ",.02)
 ;;S85.152A
 ;;9002226.02101,"873,S85.152A ",.03)
 ;;30
 ;;9002226.02101,"873,S85.159A ",.01)
 ;;S85.159A
 ;;9002226.02101,"873,S85.159A ",.02)
 ;;S85.159A
 ;;9002226.02101,"873,S85.159A ",.03)
 ;;30
 ;;9002226.02101,"873,S85.161A ",.01)
 ;;S85.161A
 ;;9002226.02101,"873,S85.161A ",.02)
 ;;S85.161A
 ;;9002226.02101,"873,S85.161A ",.03)
 ;;30
 ;;9002226.02101,"873,S85.162A ",.01)
 ;;S85.162A
 ;;9002226.02101,"873,S85.162A ",.02)
 ;;S85.162A
 ;;9002226.02101,"873,S85.162A ",.03)
 ;;30
 ;;9002226.02101,"873,S85.169A ",.01)
 ;;S85.169A
 ;;9002226.02101,"873,S85.169A ",.02)
 ;;S85.169A
 ;;9002226.02101,"873,S85.169A ",.03)
 ;;30
 ;;9002226.02101,"873,S85.171A ",.01)
 ;;S85.171A
 ;;9002226.02101,"873,S85.171A ",.02)
 ;;S85.171A
 ;;9002226.02101,"873,S85.171A ",.03)
 ;;30
 ;;9002226.02101,"873,S85.172A ",.01)
 ;;S85.172A
 ;;9002226.02101,"873,S85.172A ",.02)
 ;;S85.172A
 ;;9002226.02101,"873,S85.172A ",.03)
 ;;30
 ;;9002226.02101,"873,S85.179A ",.01)
 ;;S85.179A
 ;;9002226.02101,"873,S85.179A ",.02)
 ;;S85.179A
 ;;9002226.02101,"873,S85.179A ",.03)
 ;;30
 ;;9002226.02101,"873,S85.181A ",.01)
 ;;S85.181A
 ;;9002226.02101,"873,S85.181A ",.02)
 ;;S85.181A
 ;;9002226.02101,"873,S85.181A ",.03)
 ;;30
 ;;9002226.02101,"873,S85.182A ",.01)
 ;;S85.182A
 ;;9002226.02101,"873,S85.182A ",.02)
 ;;S85.182A
 ;;9002226.02101,"873,S85.182A ",.03)
 ;;30
 ;;9002226.02101,"873,S85.189A ",.01)
 ;;S85.189A
 ;;9002226.02101,"873,S85.189A ",.02)
 ;;S85.189A
 ;;9002226.02101,"873,S85.189A ",.03)
 ;;30
 ;;9002226.02101,"873,S85.201A ",.01)
 ;;S85.201A
 ;;9002226.02101,"873,S85.201A ",.02)
 ;;S85.201A
 ;;9002226.02101,"873,S85.201A ",.03)
 ;;30
 ;;9002226.02101,"873,S85.202A ",.01)
 ;;S85.202A
 ;;9002226.02101,"873,S85.202A ",.02)
 ;;S85.202A
 ;;9002226.02101,"873,S85.202A ",.03)
 ;;30
 ;;9002226.02101,"873,S85.209A ",.01)
 ;;S85.209A
 ;;9002226.02101,"873,S85.209A ",.02)
 ;;S85.209A
 ;;9002226.02101,"873,S85.209A ",.03)
 ;;30
 ;;9002226.02101,"873,S85.211A ",.01)
 ;;S85.211A
 ;;9002226.02101,"873,S85.211A ",.02)
 ;;S85.211A
 ;;9002226.02101,"873,S85.211A ",.03)
 ;;30
 ;;9002226.02101,"873,S85.212A ",.01)
 ;;S85.212A
 ;;9002226.02101,"873,S85.212A ",.02)
 ;;S85.212A
 ;;9002226.02101,"873,S85.212A ",.03)
 ;;30
 ;;9002226.02101,"873,S85.219A ",.01)
 ;;S85.219A
 ;;9002226.02101,"873,S85.219A ",.02)
 ;;S85.219A
 ;;9002226.02101,"873,S85.219A ",.03)
 ;;30
 ;;9002226.02101,"873,S85.291A ",.01)
 ;;S85.291A
 ;;9002226.02101,"873,S85.291A ",.02)
 ;;S85.291A
 ;;9002226.02101,"873,S85.291A ",.03)
 ;;30
 ;;9002226.02101,"873,S85.292A ",.01)
 ;;S85.292A
 ;;9002226.02101,"873,S85.292A ",.02)
 ;;S85.292A
 ;;9002226.02101,"873,S85.292A ",.03)
 ;;30
 ;;9002226.02101,"873,S85.299A ",.01)
 ;;S85.299A
 ;;9002226.02101,"873,S85.299A ",.02)
 ;;S85.299A
 ;;9002226.02101,"873,S85.299A ",.03)
 ;;30
 ;;9002226.02101,"873,S85.301A ",.01)
 ;;S85.301A
 ;;9002226.02101,"873,S85.301A ",.02)
 ;;S85.301A
 ;;9002226.02101,"873,S85.301A ",.03)
 ;;30
 ;;9002226.02101,"873,S85.302A ",.01)
 ;;S85.302A
 ;;9002226.02101,"873,S85.302A ",.02)
 ;;S85.302A
 ;;9002226.02101,"873,S85.302A ",.03)
 ;;30
 ;;9002226.02101,"873,S85.309A ",.01)
 ;;S85.309A
 ;;9002226.02101,"873,S85.309A ",.02)
 ;;S85.309A
 ;;9002226.02101,"873,S85.309A ",.03)
 ;;30
 ;;9002226.02101,"873,S85.311A ",.01)
 ;;S85.311A
 ;;9002226.02101,"873,S85.311A ",.02)
 ;;S85.311A
 ;;9002226.02101,"873,S85.311A ",.03)
 ;;30
 ;;9002226.02101,"873,S85.312A ",.01)
 ;;S85.312A
 ;;9002226.02101,"873,S85.312A ",.02)
 ;;S85.312A
 ;;9002226.02101,"873,S85.312A ",.03)
 ;;30
 ;;9002226.02101,"873,S85.319A ",.01)
 ;;S85.319A
 ;;9002226.02101,"873,S85.319A ",.02)
 ;;S85.319A
 ;;9002226.02101,"873,S85.319A ",.03)
 ;;30
 ;;9002226.02101,"873,S85.391A ",.01)
 ;;S85.391A
 ;;9002226.02101,"873,S85.391A ",.02)
 ;;S85.391A
 ;;9002226.02101,"873,S85.391A ",.03)
 ;;30
 ;;9002226.02101,"873,S85.392A ",.01)
 ;;S85.392A
 ;;9002226.02101,"873,S85.392A ",.02)
 ;;S85.392A
 ;;9002226.02101,"873,S85.392A ",.03)
 ;;30
 ;;9002226.02101,"873,S85.399A ",.01)
 ;;S85.399A
 ;;9002226.02101,"873,S85.399A ",.02)
 ;;S85.399A
 ;;9002226.02101,"873,S85.399A ",.03)
 ;;30
 ;;9002226.02101,"873,S85.401A ",.01)
 ;;S85.401A
 ;;9002226.02101,"873,S85.401A ",.02)
 ;;S85.401A
 ;;9002226.02101,"873,S85.401A ",.03)
 ;;30
 ;;9002226.02101,"873,S85.402A ",.01)
 ;;S85.402A
 ;;9002226.02101,"873,S85.402A ",.02)
 ;;S85.402A
 ;;9002226.02101,"873,S85.402A ",.03)
 ;;30
 ;;9002226.02101,"873,S85.409A ",.01)
 ;;S85.409A
 ;;9002226.02101,"873,S85.409A ",.02)
 ;;S85.409A
 ;;9002226.02101,"873,S85.409A ",.03)
 ;;30
 ;;9002226.02101,"873,S85.411A ",.01)
 ;;S85.411A
 ;;9002226.02101,"873,S85.411A ",.02)
 ;;S85.411A
 ;;9002226.02101,"873,S85.411A ",.03)
 ;;30
 ;;9002226.02101,"873,S85.412A ",.01)
 ;;S85.412A
 ;;9002226.02101,"873,S85.412A ",.02)
 ;;S85.412A
 ;;9002226.02101,"873,S85.412A ",.03)
 ;;30
 ;;9002226.02101,"873,S85.419A ",.01)
 ;;S85.419A
 ;;9002226.02101,"873,S85.419A ",.02)
 ;;S85.419A
 ;;9002226.02101,"873,S85.419A ",.03)
 ;;30
 ;;9002226.02101,"873,S85.491A ",.01)
 ;;S85.491A
 ;;9002226.02101,"873,S85.491A ",.02)
 ;;S85.491A
 ;;9002226.02101,"873,S85.491A ",.03)
 ;;30
 ;;9002226.02101,"873,S85.492A ",.01)
 ;;S85.492A
 ;;9002226.02101,"873,S85.492A ",.02)
 ;;S85.492A
 ;;9002226.02101,"873,S85.492A ",.03)
 ;;30
 ;;9002226.02101,"873,S85.499A ",.01)
 ;;S85.499A
 ;;9002226.02101,"873,S85.499A ",.02)
 ;;S85.499A
 ;;9002226.02101,"873,S85.499A ",.03)
 ;;30
 ;;9002226.02101,"873,S85.501A ",.01)
 ;;S85.501A
 ;;9002226.02101,"873,S85.501A ",.02)
 ;;S85.501A
 ;;9002226.02101,"873,S85.501A ",.03)
 ;;30
 ;;9002226.02101,"873,S85.502A ",.01)
 ;;S85.502A
 ;;9002226.02101,"873,S85.502A ",.02)
 ;;S85.502A
 ;;9002226.02101,"873,S85.502A ",.03)
 ;;30
 ;;9002226.02101,"873,S85.509A ",.01)
 ;;S85.509A
 ;;9002226.02101,"873,S85.509A ",.02)
 ;;S85.509A