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

ATXXA120.m

Go to the documentation of this file.
ATXXA120 ;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,S86.821A ",.01)
 ;;S86.821A
 ;;9002226.02101,"873,S86.821A ",.02)
 ;;S86.821A
 ;;9002226.02101,"873,S86.821A ",.03)
 ;;30
 ;;9002226.02101,"873,S86.822A ",.01)
 ;;S86.822A
 ;;9002226.02101,"873,S86.822A ",.02)
 ;;S86.822A
 ;;9002226.02101,"873,S86.822A ",.03)
 ;;30
 ;;9002226.02101,"873,S86.829A ",.01)
 ;;S86.829A
 ;;9002226.02101,"873,S86.829A ",.02)
 ;;S86.829A
 ;;9002226.02101,"873,S86.829A ",.03)
 ;;30
 ;;9002226.02101,"873,S86.891A ",.01)
 ;;S86.891A
 ;;9002226.02101,"873,S86.891A ",.02)
 ;;S86.891A
 ;;9002226.02101,"873,S86.891A ",.03)
 ;;30
 ;;9002226.02101,"873,S86.892A ",.01)
 ;;S86.892A
 ;;9002226.02101,"873,S86.892A ",.02)
 ;;S86.892A
 ;;9002226.02101,"873,S86.892A ",.03)
 ;;30
 ;;9002226.02101,"873,S86.899A ",.01)
 ;;S86.899A
 ;;9002226.02101,"873,S86.899A ",.02)
 ;;S86.899A
 ;;9002226.02101,"873,S86.899A ",.03)
 ;;30
 ;;9002226.02101,"873,S86.901A ",.01)
 ;;S86.901A
 ;;9002226.02101,"873,S86.901A ",.02)
 ;;S86.901A
 ;;9002226.02101,"873,S86.901A ",.03)
 ;;30
 ;;9002226.02101,"873,S86.902A ",.01)
 ;;S86.902A
 ;;9002226.02101,"873,S86.902A ",.02)
 ;;S86.902A
 ;;9002226.02101,"873,S86.902A ",.03)
 ;;30
 ;;9002226.02101,"873,S86.909A ",.01)
 ;;S86.909A
 ;;9002226.02101,"873,S86.909A ",.02)
 ;;S86.909A
 ;;9002226.02101,"873,S86.909A ",.03)
 ;;30
 ;;9002226.02101,"873,S86.911A ",.01)
 ;;S86.911A
 ;;9002226.02101,"873,S86.911A ",.02)
 ;;S86.911A
 ;;9002226.02101,"873,S86.911A ",.03)
 ;;30
 ;;9002226.02101,"873,S86.912A ",.01)
 ;;S86.912A
 ;;9002226.02101,"873,S86.912A ",.02)
 ;;S86.912A
 ;;9002226.02101,"873,S86.912A ",.03)
 ;;30
 ;;9002226.02101,"873,S86.919A ",.01)
 ;;S86.919A
 ;;9002226.02101,"873,S86.919A ",.02)
 ;;S86.919A
 ;;9002226.02101,"873,S86.919A ",.03)
 ;;30
 ;;9002226.02101,"873,S86.921A ",.01)
 ;;S86.921A
 ;;9002226.02101,"873,S86.921A ",.02)
 ;;S86.921A
 ;;9002226.02101,"873,S86.921A ",.03)
 ;;30
 ;;9002226.02101,"873,S86.922A ",.01)
 ;;S86.922A
 ;;9002226.02101,"873,S86.922A ",.02)
 ;;S86.922A
 ;;9002226.02101,"873,S86.922A ",.03)
 ;;30
 ;;9002226.02101,"873,S86.929A ",.01)
 ;;S86.929A
 ;;9002226.02101,"873,S86.929A ",.02)
 ;;S86.929A
 ;;9002226.02101,"873,S86.929A ",.03)
 ;;30
 ;;9002226.02101,"873,S86.991A ",.01)
 ;;S86.991A
 ;;9002226.02101,"873,S86.991A ",.02)
 ;;S86.991A
 ;;9002226.02101,"873,S86.991A ",.03)
 ;;30
 ;;9002226.02101,"873,S86.992A ",.01)
 ;;S86.992A
 ;;9002226.02101,"873,S86.992A ",.02)
 ;;S86.992A
 ;;9002226.02101,"873,S86.992A ",.03)
 ;;30
 ;;9002226.02101,"873,S86.999A ",.01)
 ;;S86.999A
 ;;9002226.02101,"873,S86.999A ",.02)
 ;;S86.999A
 ;;9002226.02101,"873,S86.999A ",.03)
 ;;30
 ;;9002226.02101,"873,S87.00XA ",.01)
 ;;S87.00XA
 ;;9002226.02101,"873,S87.00XA ",.02)
 ;;S87.00XA
 ;;9002226.02101,"873,S87.00XA ",.03)
 ;;30
 ;;9002226.02101,"873,S87.01XA ",.01)
 ;;S87.01XA
 ;;9002226.02101,"873,S87.01XA ",.02)
 ;;S87.01XA
 ;;9002226.02101,"873,S87.01XA ",.03)
 ;;30
 ;;9002226.02101,"873,S87.02XA ",.01)
 ;;S87.02XA
 ;;9002226.02101,"873,S87.02XA ",.02)
 ;;S87.02XA
 ;;9002226.02101,"873,S87.02XA ",.03)
 ;;30
 ;;9002226.02101,"873,S87.80XA ",.01)
 ;;S87.80XA
 ;;9002226.02101,"873,S87.80XA ",.02)
 ;;S87.80XA
 ;;9002226.02101,"873,S87.80XA ",.03)
 ;;30
 ;;9002226.02101,"873,S87.81XA ",.01)
 ;;S87.81XA
 ;;9002226.02101,"873,S87.81XA ",.02)
 ;;S87.81XA
 ;;9002226.02101,"873,S87.81XA ",.03)
 ;;30
 ;;9002226.02101,"873,S87.82XA ",.01)
 ;;S87.82XA
 ;;9002226.02101,"873,S87.82XA ",.02)
 ;;S87.82XA
 ;;9002226.02101,"873,S87.82XA ",.03)
 ;;30
 ;;9002226.02101,"873,S88.011A ",.01)
 ;;S88.011A
 ;;9002226.02101,"873,S88.011A ",.02)
 ;;S88.011A
 ;;9002226.02101,"873,S88.011A ",.03)
 ;;30
 ;;9002226.02101,"873,S88.012A ",.01)
 ;;S88.012A
 ;;9002226.02101,"873,S88.012A ",.02)
 ;;S88.012A
 ;;9002226.02101,"873,S88.012A ",.03)
 ;;30
 ;;9002226.02101,"873,S88.019A ",.01)
 ;;S88.019A
 ;;9002226.02101,"873,S88.019A ",.02)
 ;;S88.019A
 ;;9002226.02101,"873,S88.019A ",.03)
 ;;30
 ;;9002226.02101,"873,S88.021A ",.01)
 ;;S88.021A
 ;;9002226.02101,"873,S88.021A ",.02)
 ;;S88.021A
 ;;9002226.02101,"873,S88.021A ",.03)
 ;;30
 ;;9002226.02101,"873,S88.022A ",.01)
 ;;S88.022A
 ;;9002226.02101,"873,S88.022A ",.02)
 ;;S88.022A
 ;;9002226.02101,"873,S88.022A ",.03)
 ;;30
 ;;9002226.02101,"873,S88.029A ",.01)
 ;;S88.029A
 ;;9002226.02101,"873,S88.029A ",.02)
 ;;S88.029A
 ;;9002226.02101,"873,S88.029A ",.03)
 ;;30
 ;;9002226.02101,"873,S88.111A ",.01)
 ;;S88.111A
 ;;9002226.02101,"873,S88.111A ",.02)
 ;;S88.111A
 ;;9002226.02101,"873,S88.111A ",.03)
 ;;30
 ;;9002226.02101,"873,S88.112A ",.01)
 ;;S88.112A
 ;;9002226.02101,"873,S88.112A ",.02)
 ;;S88.112A
 ;;9002226.02101,"873,S88.112A ",.03)
 ;;30
 ;;9002226.02101,"873,S88.119A ",.01)
 ;;S88.119A
 ;;9002226.02101,"873,S88.119A ",.02)
 ;;S88.119A
 ;;9002226.02101,"873,S88.119A ",.03)
 ;;30
 ;;9002226.02101,"873,S88.121A ",.01)
 ;;S88.121A
 ;;9002226.02101,"873,S88.121A ",.02)
 ;;S88.121A
 ;;9002226.02101,"873,S88.121A ",.03)
 ;;30
 ;;9002226.02101,"873,S88.122A ",.01)
 ;;S88.122A
 ;;9002226.02101,"873,S88.122A ",.02)
 ;;S88.122A
 ;;9002226.02101,"873,S88.122A ",.03)
 ;;30
 ;;9002226.02101,"873,S88.129A ",.01)
 ;;S88.129A
 ;;9002226.02101,"873,S88.129A ",.02)
 ;;S88.129A
 ;;9002226.02101,"873,S88.129A ",.03)
 ;;30
 ;;9002226.02101,"873,S88.911A ",.01)
 ;;S88.911A
 ;;9002226.02101,"873,S88.911A ",.02)
 ;;S88.911A
 ;;9002226.02101,"873,S88.911A ",.03)
 ;;30
 ;;9002226.02101,"873,S88.912A ",.01)
 ;;S88.912A
 ;;9002226.02101,"873,S88.912A ",.02)
 ;;S88.912A
 ;;9002226.02101,"873,S88.912A ",.03)
 ;;30
 ;;9002226.02101,"873,S88.919A ",.01)
 ;;S88.919A
 ;;9002226.02101,"873,S88.919A ",.02)
 ;;S88.919A
 ;;9002226.02101,"873,S88.919A ",.03)
 ;;30
 ;;9002226.02101,"873,S88.921A ",.01)
 ;;S88.921A
 ;;9002226.02101,"873,S88.921A ",.02)
 ;;S88.921A
 ;;9002226.02101,"873,S88.921A ",.03)
 ;;30
 ;;9002226.02101,"873,S88.922A ",.01)
 ;;S88.922A
 ;;9002226.02101,"873,S88.922A ",.02)
 ;;S88.922A
 ;;9002226.02101,"873,S88.922A ",.03)
 ;;30
 ;;9002226.02101,"873,S88.929A ",.01)
 ;;S88.929A
 ;;9002226.02101,"873,S88.929A ",.02)
 ;;S88.929A
 ;;9002226.02101,"873,S88.929A ",.03)
 ;;30
 ;;9002226.02101,"873,S89.001A ",.01)
 ;;S89.001A
 ;;9002226.02101,"873,S89.001A ",.02)
 ;;S89.001A
 ;;9002226.02101,"873,S89.001A ",.03)
 ;;30
 ;;9002226.02101,"873,S89.002A ",.01)
 ;;S89.002A
 ;;9002226.02101,"873,S89.002A ",.02)
 ;;S89.002A
 ;;9002226.02101,"873,S89.002A ",.03)
 ;;30
 ;;9002226.02101,"873,S89.009A ",.01)
 ;;S89.009A
 ;;9002226.02101,"873,S89.009A ",.02)
 ;;S89.009A
 ;;9002226.02101,"873,S89.009A ",.03)
 ;;30
 ;;9002226.02101,"873,S89.011A ",.01)
 ;;S89.011A
 ;;9002226.02101,"873,S89.011A ",.02)
 ;;S89.011A
 ;;9002226.02101,"873,S89.011A ",.03)
 ;;30
 ;;9002226.02101,"873,S89.012A ",.01)
 ;;S89.012A
 ;;9002226.02101,"873,S89.012A ",.02)
 ;;S89.012A
 ;;9002226.02101,"873,S89.012A ",.03)
 ;;30
 ;;9002226.02101,"873,S89.019A ",.01)
 ;;S89.019A
 ;;9002226.02101,"873,S89.019A ",.02)
 ;;S89.019A
 ;;9002226.02101,"873,S89.019A ",.03)
 ;;30
 ;;9002226.02101,"873,S89.021A ",.01)
 ;;S89.021A
 ;;9002226.02101,"873,S89.021A ",.02)
 ;;S89.021A
 ;;9002226.02101,"873,S89.021A ",.03)
 ;;30
 ;;9002226.02101,"873,S89.022A ",.01)
 ;;S89.022A
 ;;9002226.02101,"873,S89.022A ",.02)
 ;;S89.022A
 ;;9002226.02101,"873,S89.022A ",.03)
 ;;30
 ;;9002226.02101,"873,S89.029A ",.01)
 ;;S89.029A
 ;;9002226.02101,"873,S89.029A ",.02)
 ;;S89.029A
 ;;9002226.02101,"873,S89.029A ",.03)
 ;;30
 ;;9002226.02101,"873,S89.031A ",.01)
 ;;S89.031A
 ;;9002226.02101,"873,S89.031A ",.02)
 ;;S89.031A
 ;;9002226.02101,"873,S89.031A ",.03)
 ;;30
 ;;9002226.02101,"873,S89.032A ",.01)
 ;;S89.032A
 ;;9002226.02101,"873,S89.032A ",.02)
 ;;S89.032A
 ;;9002226.02101,"873,S89.032A ",.03)
 ;;30
 ;;9002226.02101,"873,S89.039A ",.01)
 ;;S89.039A
 ;;9002226.02101,"873,S89.039A ",.02)
 ;;S89.039A
 ;;9002226.02101,"873,S89.039A ",.03)
 ;;30
 ;;9002226.02101,"873,S89.041A ",.01)
 ;;S89.041A
 ;;9002226.02101,"873,S89.041A ",.02)
 ;;S89.041A
 ;;9002226.02101,"873,S89.041A ",.03)
 ;;30
 ;;9002226.02101,"873,S89.042A ",.01)
 ;;S89.042A
 ;;9002226.02101,"873,S89.042A ",.02)
 ;;S89.042A
 ;;9002226.02101,"873,S89.042A ",.03)
 ;;30
 ;;9002226.02101,"873,S89.049A ",.01)
 ;;S89.049A
 ;;9002226.02101,"873,S89.049A ",.02)
 ;;S89.049A
 ;;9002226.02101,"873,S89.049A ",.03)
 ;;30
 ;;9002226.02101,"873,S89.091A ",.01)
 ;;S89.091A
 ;;9002226.02101,"873,S89.091A ",.02)
 ;;S89.091A
 ;;9002226.02101,"873,S89.091A ",.03)
 ;;30
 ;;9002226.02101,"873,S89.092A ",.01)
 ;;S89.092A
 ;;9002226.02101,"873,S89.092A ",.02)
 ;;S89.092A
 ;;9002226.02101,"873,S89.092A ",.03)
 ;;30
 ;;9002226.02101,"873,S89.099A ",.01)
 ;;S89.099A
 ;;9002226.02101,"873,S89.099A ",.02)
 ;;S89.099A
 ;;9002226.02101,"873,S89.099A ",.03)
 ;;30
 ;;9002226.02101,"873,S89.101A ",.01)
 ;;S89.101A
 ;;9002226.02101,"873,S89.101A ",.02)
 ;;S89.101A
 ;;9002226.02101,"873,S89.101A ",.03)
 ;;30
 ;;9002226.02101,"873,S89.102A ",.01)
 ;;S89.102A
 ;;9002226.02101,"873,S89.102A ",.02)
 ;;S89.102A
 ;;9002226.02101,"873,S89.102A ",.03)
 ;;30
 ;;9002226.02101,"873,S89.109A ",.01)
 ;;S89.109A
 ;;9002226.02101,"873,S89.109A ",.02)
 ;;S89.109A
 ;;9002226.02101,"873,S89.109A ",.03)
 ;;30
 ;;9002226.02101,"873,S89.111A ",.01)
 ;;S89.111A
 ;;9002226.02101,"873,S89.111A ",.02)
 ;;S89.111A
 ;;9002226.02101,"873,S89.111A ",.03)
 ;;30
 ;;9002226.02101,"873,S89.112A ",.01)
 ;;S89.112A
 ;;9002226.02101,"873,S89.112A ",.02)
 ;;S89.112A
 ;;9002226.02101,"873,S89.112A ",.03)
 ;;30
 ;;9002226.02101,"873,S89.119A ",.01)
 ;;S89.119A
 ;;9002226.02101,"873,S89.119A ",.02)
 ;;S89.119A
 ;;9002226.02101,"873,S89.119A ",.03)
 ;;30
 ;;9002226.02101,"873,S89.121A ",.01)
 ;;S89.121A
 ;;9002226.02101,"873,S89.121A ",.02)
 ;;S89.121A
 ;;9002226.02101,"873,S89.121A ",.03)
 ;;30
 ;;9002226.02101,"873,S89.122A ",.01)
 ;;S89.122A
 ;;9002226.02101,"873,S89.122A ",.02)
 ;;S89.122A
 ;;9002226.02101,"873,S89.122A ",.03)
 ;;30
 ;;9002226.02101,"873,S89.129A ",.01)
 ;;S89.129A
 ;;9002226.02101,"873,S89.129A ",.02)
 ;;S89.129A
 ;;9002226.02101,"873,S89.129A ",.03)
 ;;30
 ;;9002226.02101,"873,S89.131A ",.01)
 ;;S89.131A
 ;;9002226.02101,"873,S89.131A ",.02)
 ;;S89.131A
 ;;9002226.02101,"873,S89.131A ",.03)
 ;;30
 ;;9002226.02101,"873,S89.132A ",.01)
 ;;S89.132A
 ;;9002226.02101,"873,S89.132A ",.02)
 ;;S89.132A
 ;;9002226.02101,"873,S89.132A ",.03)
 ;;30
 ;;9002226.02101,"873,S89.139A ",.01)
 ;;S89.139A
 ;;9002226.02101,"873,S89.139A ",.02)
 ;;S89.139A
 ;;9002226.02101,"873,S89.139A ",.03)
 ;;30
 ;;9002226.02101,"873,S89.141A ",.01)
 ;;S89.141A
 ;;9002226.02101,"873,S89.141A ",.02)
 ;;S89.141A
 ;;9002226.02101,"873,S89.141A ",.03)
 ;;30
 ;;9002226.02101,"873,S89.142A ",.01)
 ;;S89.142A
 ;;9002226.02101,"873,S89.142A ",.02)
 ;;S89.142A
 ;;9002226.02101,"873,S89.142A ",.03)
 ;;30
 ;;9002226.02101,"873,S89.149A ",.01)
 ;;S89.149A
 ;;9002226.02101,"873,S89.149A ",.02)
 ;;S89.149A
 ;;9002226.02101,"873,S89.149A ",.03)
 ;;30
 ;;9002226.02101,"873,S89.191A ",.01)
 ;;S89.191A
 ;;9002226.02101,"873,S89.191A ",.02)
 ;;S89.191A
 ;;9002226.02101,"873,S89.191A ",.03)
 ;;30
 ;;9002226.02101,"873,S89.192A ",.01)
 ;;S89.192A
 ;;9002226.02101,"873,S89.192A ",.02)
 ;;S89.192A
 ;;9002226.02101,"873,S89.192A ",.03)
 ;;30
 ;;9002226.02101,"873,S89.199A ",.01)
 ;;S89.199A
 ;;9002226.02101,"873,S89.199A ",.02)
 ;;S89.199A
 ;;9002226.02101,"873,S89.199A ",.03)
 ;;30
 ;;9002226.02101,"873,S89.201A ",.01)
 ;;S89.201A