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

ATXXA108.m

Go to the documentation of this file.
ATXXA108 ;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,S79.199A ",.01)
 ;;S79.199A
 ;;9002226.02101,"873,S79.199A ",.02)
 ;;S79.199A
 ;;9002226.02101,"873,S79.199A ",.03)
 ;;30
 ;;9002226.02101,"873,S79.811A ",.01)
 ;;S79.811A
 ;;9002226.02101,"873,S79.811A ",.02)
 ;;S79.811A
 ;;9002226.02101,"873,S79.811A ",.03)
 ;;30
 ;;9002226.02101,"873,S79.812A ",.01)
 ;;S79.812A
 ;;9002226.02101,"873,S79.812A ",.02)
 ;;S79.812A
 ;;9002226.02101,"873,S79.812A ",.03)
 ;;30
 ;;9002226.02101,"873,S79.819A ",.01)
 ;;S79.819A
 ;;9002226.02101,"873,S79.819A ",.02)
 ;;S79.819A
 ;;9002226.02101,"873,S79.819A ",.03)
 ;;30
 ;;9002226.02101,"873,S79.821A ",.01)
 ;;S79.821A
 ;;9002226.02101,"873,S79.821A ",.02)
 ;;S79.821A
 ;;9002226.02101,"873,S79.821A ",.03)
 ;;30
 ;;9002226.02101,"873,S79.822A ",.01)
 ;;S79.822A
 ;;9002226.02101,"873,S79.822A ",.02)
 ;;S79.822A
 ;;9002226.02101,"873,S79.822A ",.03)
 ;;30
 ;;9002226.02101,"873,S79.829A ",.01)
 ;;S79.829A
 ;;9002226.02101,"873,S79.829A ",.02)
 ;;S79.829A
 ;;9002226.02101,"873,S79.829A ",.03)
 ;;30
 ;;9002226.02101,"873,S79.911A ",.01)
 ;;S79.911A
 ;;9002226.02101,"873,S79.911A ",.02)
 ;;S79.911A
 ;;9002226.02101,"873,S79.911A ",.03)
 ;;30
 ;;9002226.02101,"873,S79.912A ",.01)
 ;;S79.912A
 ;;9002226.02101,"873,S79.912A ",.02)
 ;;S79.912A
 ;;9002226.02101,"873,S79.912A ",.03)
 ;;30
 ;;9002226.02101,"873,S79.919A ",.01)
 ;;S79.919A
 ;;9002226.02101,"873,S79.919A ",.02)
 ;;S79.919A
 ;;9002226.02101,"873,S79.919A ",.03)
 ;;30
 ;;9002226.02101,"873,S79.921A ",.01)
 ;;S79.921A
 ;;9002226.02101,"873,S79.921A ",.02)
 ;;S79.921A
 ;;9002226.02101,"873,S79.921A ",.03)
 ;;30
 ;;9002226.02101,"873,S79.922A ",.01)
 ;;S79.922A
 ;;9002226.02101,"873,S79.922A ",.02)
 ;;S79.922A
 ;;9002226.02101,"873,S79.922A ",.03)
 ;;30
 ;;9002226.02101,"873,S79.929A ",.01)
 ;;S79.929A
 ;;9002226.02101,"873,S79.929A ",.02)
 ;;S79.929A
 ;;9002226.02101,"873,S79.929A ",.03)
 ;;30
 ;;9002226.02101,"873,S80.00XA ",.01)
 ;;S80.00XA
 ;;9002226.02101,"873,S80.00XA ",.02)
 ;;S80.00XA
 ;;9002226.02101,"873,S80.00XA ",.03)
 ;;30
 ;;9002226.02101,"873,S80.01XA ",.01)
 ;;S80.01XA
 ;;9002226.02101,"873,S80.01XA ",.02)
 ;;S80.01XA
 ;;9002226.02101,"873,S80.01XA ",.03)
 ;;30
 ;;9002226.02101,"873,S80.02XA ",.01)
 ;;S80.02XA
 ;;9002226.02101,"873,S80.02XA ",.02)
 ;;S80.02XA
 ;;9002226.02101,"873,S80.02XA ",.03)
 ;;30
 ;;9002226.02101,"873,S80.10XA ",.01)
 ;;S80.10XA
 ;;9002226.02101,"873,S80.10XA ",.02)
 ;;S80.10XA
 ;;9002226.02101,"873,S80.10XA ",.03)
 ;;30
 ;;9002226.02101,"873,S80.11XA ",.01)
 ;;S80.11XA
 ;;9002226.02101,"873,S80.11XA ",.02)
 ;;S80.11XA
 ;;9002226.02101,"873,S80.11XA ",.03)
 ;;30
 ;;9002226.02101,"873,S80.12XA ",.01)
 ;;S80.12XA
 ;;9002226.02101,"873,S80.12XA ",.02)
 ;;S80.12XA
 ;;9002226.02101,"873,S80.12XA ",.03)
 ;;30
 ;;9002226.02101,"873,S80.211A ",.01)
 ;;S80.211A
 ;;9002226.02101,"873,S80.211A ",.02)
 ;;S80.211A
 ;;9002226.02101,"873,S80.211A ",.03)
 ;;30
 ;;9002226.02101,"873,S80.212A ",.01)
 ;;S80.212A
 ;;9002226.02101,"873,S80.212A ",.02)
 ;;S80.212A
 ;;9002226.02101,"873,S80.212A ",.03)
 ;;30
 ;;9002226.02101,"873,S80.219A ",.01)
 ;;S80.219A
 ;;9002226.02101,"873,S80.219A ",.02)
 ;;S80.219A
 ;;9002226.02101,"873,S80.219A ",.03)
 ;;30
 ;;9002226.02101,"873,S80.241A ",.01)
 ;;S80.241A
 ;;9002226.02101,"873,S80.241A ",.02)
 ;;S80.241A
 ;;9002226.02101,"873,S80.241A ",.03)
 ;;30
 ;;9002226.02101,"873,S80.242A ",.01)
 ;;S80.242A
 ;;9002226.02101,"873,S80.242A ",.02)
 ;;S80.242A
 ;;9002226.02101,"873,S80.242A ",.03)
 ;;30
 ;;9002226.02101,"873,S80.249A ",.01)
 ;;S80.249A
 ;;9002226.02101,"873,S80.249A ",.02)
 ;;S80.249A
 ;;9002226.02101,"873,S80.249A ",.03)
 ;;30
 ;;9002226.02101,"873,S80.251A ",.01)
 ;;S80.251A
 ;;9002226.02101,"873,S80.251A ",.02)
 ;;S80.251A
 ;;9002226.02101,"873,S80.251A ",.03)
 ;;30
 ;;9002226.02101,"873,S80.252A ",.01)
 ;;S80.252A
 ;;9002226.02101,"873,S80.252A ",.02)
 ;;S80.252A
 ;;9002226.02101,"873,S80.252A ",.03)
 ;;30
 ;;9002226.02101,"873,S80.259A ",.01)
 ;;S80.259A
 ;;9002226.02101,"873,S80.259A ",.02)
 ;;S80.259A
 ;;9002226.02101,"873,S80.259A ",.03)
 ;;30
 ;;9002226.02101,"873,S80.271A ",.01)
 ;;S80.271A
 ;;9002226.02101,"873,S80.271A ",.02)
 ;;S80.271A
 ;;9002226.02101,"873,S80.271A ",.03)
 ;;30
 ;;9002226.02101,"873,S80.272A ",.01)
 ;;S80.272A
 ;;9002226.02101,"873,S80.272A ",.02)
 ;;S80.272A
 ;;9002226.02101,"873,S80.272A ",.03)
 ;;30
 ;;9002226.02101,"873,S80.279A ",.01)
 ;;S80.279A
 ;;9002226.02101,"873,S80.279A ",.02)
 ;;S80.279A
 ;;9002226.02101,"873,S80.279A ",.03)
 ;;30
 ;;9002226.02101,"873,S80.811A ",.01)
 ;;S80.811A
 ;;9002226.02101,"873,S80.811A ",.02)
 ;;S80.811A
 ;;9002226.02101,"873,S80.811A ",.03)
 ;;30
 ;;9002226.02101,"873,S80.812A ",.01)
 ;;S80.812A
 ;;9002226.02101,"873,S80.812A ",.02)
 ;;S80.812A
 ;;9002226.02101,"873,S80.812A ",.03)
 ;;30
 ;;9002226.02101,"873,S80.819A ",.01)
 ;;S80.819A
 ;;9002226.02101,"873,S80.819A ",.02)
 ;;S80.819A
 ;;9002226.02101,"873,S80.819A ",.03)
 ;;30
 ;;9002226.02101,"873,S80.841A ",.01)
 ;;S80.841A
 ;;9002226.02101,"873,S80.841A ",.02)
 ;;S80.841A
 ;;9002226.02101,"873,S80.841A ",.03)
 ;;30
 ;;9002226.02101,"873,S80.842A ",.01)
 ;;S80.842A
 ;;9002226.02101,"873,S80.842A ",.02)
 ;;S80.842A
 ;;9002226.02101,"873,S80.842A ",.03)
 ;;30
 ;;9002226.02101,"873,S80.849A ",.01)
 ;;S80.849A
 ;;9002226.02101,"873,S80.849A ",.02)
 ;;S80.849A
 ;;9002226.02101,"873,S80.849A ",.03)
 ;;30
 ;;9002226.02101,"873,S80.851A ",.01)
 ;;S80.851A
 ;;9002226.02101,"873,S80.851A ",.02)
 ;;S80.851A
 ;;9002226.02101,"873,S80.851A ",.03)
 ;;30
 ;;9002226.02101,"873,S80.852A ",.01)
 ;;S80.852A
 ;;9002226.02101,"873,S80.852A ",.02)
 ;;S80.852A
 ;;9002226.02101,"873,S80.852A ",.03)
 ;;30
 ;;9002226.02101,"873,S80.859A ",.01)
 ;;S80.859A
 ;;9002226.02101,"873,S80.859A ",.02)
 ;;S80.859A
 ;;9002226.02101,"873,S80.859A ",.03)
 ;;30
 ;;9002226.02101,"873,S80.871A ",.01)
 ;;S80.871A
 ;;9002226.02101,"873,S80.871A ",.02)
 ;;S80.871A
 ;;9002226.02101,"873,S80.871A ",.03)
 ;;30
 ;;9002226.02101,"873,S80.872A ",.01)
 ;;S80.872A
 ;;9002226.02101,"873,S80.872A ",.02)
 ;;S80.872A
 ;;9002226.02101,"873,S80.872A ",.03)
 ;;30
 ;;9002226.02101,"873,S80.879A ",.01)
 ;;S80.879A
 ;;9002226.02101,"873,S80.879A ",.02)
 ;;S80.879A
 ;;9002226.02101,"873,S80.879A ",.03)
 ;;30
 ;;9002226.02101,"873,S80.911A ",.01)
 ;;S80.911A
 ;;9002226.02101,"873,S80.911A ",.02)
 ;;S80.911A
 ;;9002226.02101,"873,S80.911A ",.03)
 ;;30
 ;;9002226.02101,"873,S80.912A ",.01)
 ;;S80.912A
 ;;9002226.02101,"873,S80.912A ",.02)
 ;;S80.912A
 ;;9002226.02101,"873,S80.912A ",.03)
 ;;30
 ;;9002226.02101,"873,S80.919A ",.01)
 ;;S80.919A
 ;;9002226.02101,"873,S80.919A ",.02)
 ;;S80.919A
 ;;9002226.02101,"873,S80.919A ",.03)
 ;;30
 ;;9002226.02101,"873,S80.921A ",.01)
 ;;S80.921A
 ;;9002226.02101,"873,S80.921A ",.02)
 ;;S80.921A
 ;;9002226.02101,"873,S80.921A ",.03)
 ;;30
 ;;9002226.02101,"873,S80.922A ",.01)
 ;;S80.922A
 ;;9002226.02101,"873,S80.922A ",.02)
 ;;S80.922A
 ;;9002226.02101,"873,S80.922A ",.03)
 ;;30
 ;;9002226.02101,"873,S80.929A ",.01)
 ;;S80.929A
 ;;9002226.02101,"873,S80.929A ",.02)
 ;;S80.929A
 ;;9002226.02101,"873,S80.929A ",.03)
 ;;30
 ;;9002226.02101,"873,S81.001A ",.01)
 ;;S81.001A
 ;;9002226.02101,"873,S81.001A ",.02)
 ;;S81.001A
 ;;9002226.02101,"873,S81.001A ",.03)
 ;;30
 ;;9002226.02101,"873,S81.002A ",.01)
 ;;S81.002A
 ;;9002226.02101,"873,S81.002A ",.02)
 ;;S81.002A
 ;;9002226.02101,"873,S81.002A ",.03)
 ;;30
 ;;9002226.02101,"873,S81.009A ",.01)
 ;;S81.009A
 ;;9002226.02101,"873,S81.009A ",.02)
 ;;S81.009A
 ;;9002226.02101,"873,S81.009A ",.03)
 ;;30
 ;;9002226.02101,"873,S81.011A ",.01)
 ;;S81.011A
 ;;9002226.02101,"873,S81.011A ",.02)
 ;;S81.011A
 ;;9002226.02101,"873,S81.011A ",.03)
 ;;30
 ;;9002226.02101,"873,S81.012A ",.01)
 ;;S81.012A
 ;;9002226.02101,"873,S81.012A ",.02)
 ;;S81.012A
 ;;9002226.02101,"873,S81.012A ",.03)
 ;;30
 ;;9002226.02101,"873,S81.019A ",.01)
 ;;S81.019A
 ;;9002226.02101,"873,S81.019A ",.02)
 ;;S81.019A
 ;;9002226.02101,"873,S81.019A ",.03)
 ;;30
 ;;9002226.02101,"873,S81.021A ",.01)
 ;;S81.021A
 ;;9002226.02101,"873,S81.021A ",.02)
 ;;S81.021A
 ;;9002226.02101,"873,S81.021A ",.03)
 ;;30
 ;;9002226.02101,"873,S81.022A ",.01)
 ;;S81.022A
 ;;9002226.02101,"873,S81.022A ",.02)
 ;;S81.022A
 ;;9002226.02101,"873,S81.022A ",.03)
 ;;30
 ;;9002226.02101,"873,S81.029A ",.01)
 ;;S81.029A
 ;;9002226.02101,"873,S81.029A ",.02)
 ;;S81.029A
 ;;9002226.02101,"873,S81.029A ",.03)
 ;;30
 ;;9002226.02101,"873,S81.031A ",.01)
 ;;S81.031A
 ;;9002226.02101,"873,S81.031A ",.02)
 ;;S81.031A
 ;;9002226.02101,"873,S81.031A ",.03)
 ;;30
 ;;9002226.02101,"873,S81.032A ",.01)
 ;;S81.032A
 ;;9002226.02101,"873,S81.032A ",.02)
 ;;S81.032A
 ;;9002226.02101,"873,S81.032A ",.03)
 ;;30
 ;;9002226.02101,"873,S81.039A ",.01)
 ;;S81.039A
 ;;9002226.02101,"873,S81.039A ",.02)
 ;;S81.039A
 ;;9002226.02101,"873,S81.039A ",.03)
 ;;30
 ;;9002226.02101,"873,S81.041A ",.01)
 ;;S81.041A
 ;;9002226.02101,"873,S81.041A ",.02)
 ;;S81.041A
 ;;9002226.02101,"873,S81.041A ",.03)
 ;;30
 ;;9002226.02101,"873,S81.042A ",.01)
 ;;S81.042A
 ;;9002226.02101,"873,S81.042A ",.02)
 ;;S81.042A
 ;;9002226.02101,"873,S81.042A ",.03)
 ;;30
 ;;9002226.02101,"873,S81.049A ",.01)
 ;;S81.049A
 ;;9002226.02101,"873,S81.049A ",.02)
 ;;S81.049A
 ;;9002226.02101,"873,S81.049A ",.03)
 ;;30
 ;;9002226.02101,"873,S81.051A ",.01)
 ;;S81.051A
 ;;9002226.02101,"873,S81.051A ",.02)
 ;;S81.051A
 ;;9002226.02101,"873,S81.051A ",.03)
 ;;30
 ;;9002226.02101,"873,S81.052A ",.01)
 ;;S81.052A
 ;;9002226.02101,"873,S81.052A ",.02)
 ;;S81.052A
 ;;9002226.02101,"873,S81.052A ",.03)
 ;;30
 ;;9002226.02101,"873,S81.059A ",.01)
 ;;S81.059A
 ;;9002226.02101,"873,S81.059A ",.02)
 ;;S81.059A
 ;;9002226.02101,"873,S81.059A ",.03)
 ;;30
 ;;9002226.02101,"873,S81.801A ",.01)
 ;;S81.801A
 ;;9002226.02101,"873,S81.801A ",.02)
 ;;S81.801A
 ;;9002226.02101,"873,S81.801A ",.03)
 ;;30
 ;;9002226.02101,"873,S81.802A ",.01)
 ;;S81.802A
 ;;9002226.02101,"873,S81.802A ",.02)
 ;;S81.802A
 ;;9002226.02101,"873,S81.802A ",.03)
 ;;30
 ;;9002226.02101,"873,S81.809A ",.01)
 ;;S81.809A
 ;;9002226.02101,"873,S81.809A ",.02)
 ;;S81.809A
 ;;9002226.02101,"873,S81.809A ",.03)
 ;;30
 ;;9002226.02101,"873,S81.811A ",.01)
 ;;S81.811A
 ;;9002226.02101,"873,S81.811A ",.02)
 ;;S81.811A
 ;;9002226.02101,"873,S81.811A ",.03)
 ;;30
 ;;9002226.02101,"873,S81.812A ",.01)
 ;;S81.812A
 ;;9002226.02101,"873,S81.812A ",.02)
 ;;S81.812A
 ;;9002226.02101,"873,S81.812A ",.03)
 ;;30
 ;;9002226.02101,"873,S81.819A ",.01)
 ;;S81.819A
 ;;9002226.02101,"873,S81.819A ",.02)
 ;;S81.819A
 ;;9002226.02101,"873,S81.819A ",.03)
 ;;30
 ;;9002226.02101,"873,S81.821A ",.01)
 ;;S81.821A
 ;;9002226.02101,"873,S81.821A ",.02)
 ;;S81.821A
 ;;9002226.02101,"873,S81.821A ",.03)
 ;;30
 ;;9002226.02101,"873,S81.822A ",.01)
 ;;S81.822A
 ;;9002226.02101,"873,S81.822A ",.02)
 ;;S81.822A
 ;;9002226.02101,"873,S81.822A ",.03)
 ;;30
 ;;9002226.02101,"873,S81.829A ",.01)
 ;;S81.829A
 ;;9002226.02101,"873,S81.829A ",.02)
 ;;S81.829A
 ;;9002226.02101,"873,S81.829A ",.03)
 ;;30
 ;;9002226.02101,"873,S81.831A ",.01)
 ;;S81.831A
 ;;9002226.02101,"873,S81.831A ",.02)
 ;;S81.831A
 ;;9002226.02101,"873,S81.831A ",.03)
 ;;30
 ;;9002226.02101,"873,S81.832A ",.01)
 ;;S81.832A
 ;;9002226.02101,"873,S81.832A ",.02)
 ;;S81.832A
 ;;9002226.02101,"873,S81.832A ",.03)
 ;;30
 ;;9002226.02101,"873,S81.839A ",.01)
 ;;S81.839A