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

ATXXA55.m

Go to the documentation of this file.
ATXXA55 ;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,S38.221A ",.02)
 ;;S38.221A
 ;;9002226.02101,"873,S38.221A ",.03)
 ;;30
 ;;9002226.02101,"873,S38.222A ",.01)
 ;;S38.222A
 ;;9002226.02101,"873,S38.222A ",.02)
 ;;S38.222A
 ;;9002226.02101,"873,S38.222A ",.03)
 ;;30
 ;;9002226.02101,"873,S38.231A ",.01)
 ;;S38.231A
 ;;9002226.02101,"873,S38.231A ",.02)
 ;;S38.231A
 ;;9002226.02101,"873,S38.231A ",.03)
 ;;30
 ;;9002226.02101,"873,S38.232A ",.01)
 ;;S38.232A
 ;;9002226.02101,"873,S38.232A ",.02)
 ;;S38.232A
 ;;9002226.02101,"873,S38.232A ",.03)
 ;;30
 ;;9002226.02101,"873,S38.3XXA ",.01)
 ;;S38.3XXA
 ;;9002226.02101,"873,S38.3XXA ",.02)
 ;;S38.3XXA
 ;;9002226.02101,"873,S38.3XXA ",.03)
 ;;30
 ;;9002226.02101,"873,S39.001A ",.01)
 ;;S39.001A
 ;;9002226.02101,"873,S39.001A ",.02)
 ;;S39.001A
 ;;9002226.02101,"873,S39.001A ",.03)
 ;;30
 ;;9002226.02101,"873,S39.002A ",.01)
 ;;S39.002A
 ;;9002226.02101,"873,S39.002A ",.02)
 ;;S39.002A
 ;;9002226.02101,"873,S39.002A ",.03)
 ;;30
 ;;9002226.02101,"873,S39.003A ",.01)
 ;;S39.003A
 ;;9002226.02101,"873,S39.003A ",.02)
 ;;S39.003A
 ;;9002226.02101,"873,S39.003A ",.03)
 ;;30
 ;;9002226.02101,"873,S39.011A ",.01)
 ;;S39.011A
 ;;9002226.02101,"873,S39.011A ",.02)
 ;;S39.011A
 ;;9002226.02101,"873,S39.011A ",.03)
 ;;30
 ;;9002226.02101,"873,S39.012A ",.01)
 ;;S39.012A
 ;;9002226.02101,"873,S39.012A ",.02)
 ;;S39.012A
 ;;9002226.02101,"873,S39.012A ",.03)
 ;;30
 ;;9002226.02101,"873,S39.013A ",.01)
 ;;S39.013A
 ;;9002226.02101,"873,S39.013A ",.02)
 ;;S39.013A
 ;;9002226.02101,"873,S39.013A ",.03)
 ;;30
 ;;9002226.02101,"873,S39.021A ",.01)
 ;;S39.021A
 ;;9002226.02101,"873,S39.021A ",.02)
 ;;S39.021A
 ;;9002226.02101,"873,S39.021A ",.03)
 ;;30
 ;;9002226.02101,"873,S39.022A ",.01)
 ;;S39.022A
 ;;9002226.02101,"873,S39.022A ",.02)
 ;;S39.022A
 ;;9002226.02101,"873,S39.022A ",.03)
 ;;30
 ;;9002226.02101,"873,S39.023A ",.01)
 ;;S39.023A
 ;;9002226.02101,"873,S39.023A ",.02)
 ;;S39.023A
 ;;9002226.02101,"873,S39.023A ",.03)
 ;;30
 ;;9002226.02101,"873,S39.091A ",.01)
 ;;S39.091A
 ;;9002226.02101,"873,S39.091A ",.02)
 ;;S39.091A
 ;;9002226.02101,"873,S39.091A ",.03)
 ;;30
 ;;9002226.02101,"873,S39.092A ",.01)
 ;;S39.092A
 ;;9002226.02101,"873,S39.092A ",.02)
 ;;S39.092A
 ;;9002226.02101,"873,S39.092A ",.03)
 ;;30
 ;;9002226.02101,"873,S39.093A ",.01)
 ;;S39.093A
 ;;9002226.02101,"873,S39.093A ",.02)
 ;;S39.093A
 ;;9002226.02101,"873,S39.093A ",.03)
 ;;30
 ;;9002226.02101,"873,S39.81XA ",.01)
 ;;S39.81XA
 ;;9002226.02101,"873,S39.81XA ",.02)
 ;;S39.81XA
 ;;9002226.02101,"873,S39.81XA ",.03)
 ;;30
 ;;9002226.02101,"873,S39.82XA ",.01)
 ;;S39.82XA
 ;;9002226.02101,"873,S39.82XA ",.02)
 ;;S39.82XA
 ;;9002226.02101,"873,S39.82XA ",.03)
 ;;30
 ;;9002226.02101,"873,S39.83XA ",.01)
 ;;S39.83XA
 ;;9002226.02101,"873,S39.83XA ",.02)
 ;;S39.83XA
 ;;9002226.02101,"873,S39.83XA ",.03)
 ;;30
 ;;9002226.02101,"873,S39.840A ",.01)
 ;;S39.840A
 ;;9002226.02101,"873,S39.840A ",.02)
 ;;S39.840A
 ;;9002226.02101,"873,S39.840A ",.03)
 ;;30
 ;;9002226.02101,"873,S39.848A ",.01)
 ;;S39.848A
 ;;9002226.02101,"873,S39.848A ",.02)
 ;;S39.848A
 ;;9002226.02101,"873,S39.848A ",.03)
 ;;30
 ;;9002226.02101,"873,S39.91XA ",.01)
 ;;S39.91XA
 ;;9002226.02101,"873,S39.91XA ",.02)
 ;;S39.91XA
 ;;9002226.02101,"873,S39.91XA ",.03)
 ;;30
 ;;9002226.02101,"873,S39.92XA ",.01)
 ;;S39.92XA
 ;;9002226.02101,"873,S39.92XA ",.02)
 ;;S39.92XA
 ;;9002226.02101,"873,S39.92XA ",.03)
 ;;30
 ;;9002226.02101,"873,S39.93XA ",.01)
 ;;S39.93XA
 ;;9002226.02101,"873,S39.93XA ",.02)
 ;;S39.93XA
 ;;9002226.02101,"873,S39.93XA ",.03)
 ;;30
 ;;9002226.02101,"873,S39.94XA ",.01)
 ;;S39.94XA
 ;;9002226.02101,"873,S39.94XA ",.02)
 ;;S39.94XA
 ;;9002226.02101,"873,S39.94XA ",.03)
 ;;30
 ;;9002226.02101,"873,S40.011A ",.01)
 ;;S40.011A
 ;;9002226.02101,"873,S40.011A ",.02)
 ;;S40.011A
 ;;9002226.02101,"873,S40.011A ",.03)
 ;;30
 ;;9002226.02101,"873,S40.012A ",.01)
 ;;S40.012A
 ;;9002226.02101,"873,S40.012A ",.02)
 ;;S40.012A
 ;;9002226.02101,"873,S40.012A ",.03)
 ;;30
 ;;9002226.02101,"873,S40.019A ",.01)
 ;;S40.019A
 ;;9002226.02101,"873,S40.019A ",.02)
 ;;S40.019A
 ;;9002226.02101,"873,S40.019A ",.03)
 ;;30
 ;;9002226.02101,"873,S40.021A ",.01)
 ;;S40.021A
 ;;9002226.02101,"873,S40.021A ",.02)
 ;;S40.021A
 ;;9002226.02101,"873,S40.021A ",.03)
 ;;30
 ;;9002226.02101,"873,S40.022A ",.01)
 ;;S40.022A
 ;;9002226.02101,"873,S40.022A ",.02)
 ;;S40.022A
 ;;9002226.02101,"873,S40.022A ",.03)
 ;;30
 ;;9002226.02101,"873,S40.029A ",.01)
 ;;S40.029A
 ;;9002226.02101,"873,S40.029A ",.02)
 ;;S40.029A
 ;;9002226.02101,"873,S40.029A ",.03)
 ;;30
 ;;9002226.02101,"873,S40.211A ",.01)
 ;;S40.211A
 ;;9002226.02101,"873,S40.211A ",.02)
 ;;S40.211A
 ;;9002226.02101,"873,S40.211A ",.03)
 ;;30
 ;;9002226.02101,"873,S40.212A ",.01)
 ;;S40.212A
 ;;9002226.02101,"873,S40.212A ",.02)
 ;;S40.212A
 ;;9002226.02101,"873,S40.212A ",.03)
 ;;30
 ;;9002226.02101,"873,S40.219A ",.01)
 ;;S40.219A
 ;;9002226.02101,"873,S40.219A ",.02)
 ;;S40.219A
 ;;9002226.02101,"873,S40.219A ",.03)
 ;;30
 ;;9002226.02101,"873,S40.241A ",.01)
 ;;S40.241A
 ;;9002226.02101,"873,S40.241A ",.02)
 ;;S40.241A
 ;;9002226.02101,"873,S40.241A ",.03)
 ;;30
 ;;9002226.02101,"873,S40.242A ",.01)
 ;;S40.242A
 ;;9002226.02101,"873,S40.242A ",.02)
 ;;S40.242A
 ;;9002226.02101,"873,S40.242A ",.03)
 ;;30
 ;;9002226.02101,"873,S40.249A ",.01)
 ;;S40.249A
 ;;9002226.02101,"873,S40.249A ",.02)
 ;;S40.249A
 ;;9002226.02101,"873,S40.249A ",.03)
 ;;30
 ;;9002226.02101,"873,S40.251A ",.01)
 ;;S40.251A
 ;;9002226.02101,"873,S40.251A ",.02)
 ;;S40.251A
 ;;9002226.02101,"873,S40.251A ",.03)
 ;;30
 ;;9002226.02101,"873,S40.252A ",.01)
 ;;S40.252A
 ;;9002226.02101,"873,S40.252A ",.02)
 ;;S40.252A
 ;;9002226.02101,"873,S40.252A ",.03)
 ;;30
 ;;9002226.02101,"873,S40.259A ",.01)
 ;;S40.259A
 ;;9002226.02101,"873,S40.259A ",.02)
 ;;S40.259A
 ;;9002226.02101,"873,S40.259A ",.03)
 ;;30
 ;;9002226.02101,"873,S40.271A ",.01)
 ;;S40.271A
 ;;9002226.02101,"873,S40.271A ",.02)
 ;;S40.271A
 ;;9002226.02101,"873,S40.271A ",.03)
 ;;30
 ;;9002226.02101,"873,S40.272A ",.01)
 ;;S40.272A
 ;;9002226.02101,"873,S40.272A ",.02)
 ;;S40.272A
 ;;9002226.02101,"873,S40.272A ",.03)
 ;;30
 ;;9002226.02101,"873,S40.279A ",.01)
 ;;S40.279A
 ;;9002226.02101,"873,S40.279A ",.02)
 ;;S40.279A
 ;;9002226.02101,"873,S40.279A ",.03)
 ;;30
 ;;9002226.02101,"873,S40.811A ",.01)
 ;;S40.811A
 ;;9002226.02101,"873,S40.811A ",.02)
 ;;S40.811A
 ;;9002226.02101,"873,S40.811A ",.03)
 ;;30
 ;;9002226.02101,"873,S40.812A ",.01)
 ;;S40.812A
 ;;9002226.02101,"873,S40.812A ",.02)
 ;;S40.812A
 ;;9002226.02101,"873,S40.812A ",.03)
 ;;30
 ;;9002226.02101,"873,S40.819A ",.01)
 ;;S40.819A
 ;;9002226.02101,"873,S40.819A ",.02)
 ;;S40.819A
 ;;9002226.02101,"873,S40.819A ",.03)
 ;;30
 ;;9002226.02101,"873,S40.841A ",.01)
 ;;S40.841A
 ;;9002226.02101,"873,S40.841A ",.02)
 ;;S40.841A
 ;;9002226.02101,"873,S40.841A ",.03)
 ;;30
 ;;9002226.02101,"873,S40.842A ",.01)
 ;;S40.842A
 ;;9002226.02101,"873,S40.842A ",.02)
 ;;S40.842A
 ;;9002226.02101,"873,S40.842A ",.03)
 ;;30
 ;;9002226.02101,"873,S40.849A ",.01)
 ;;S40.849A
 ;;9002226.02101,"873,S40.849A ",.02)
 ;;S40.849A
 ;;9002226.02101,"873,S40.849A ",.03)
 ;;30
 ;;9002226.02101,"873,S40.851A ",.01)
 ;;S40.851A
 ;;9002226.02101,"873,S40.851A ",.02)
 ;;S40.851A
 ;;9002226.02101,"873,S40.851A ",.03)
 ;;30
 ;;9002226.02101,"873,S40.852A ",.01)
 ;;S40.852A
 ;;9002226.02101,"873,S40.852A ",.02)
 ;;S40.852A
 ;;9002226.02101,"873,S40.852A ",.03)
 ;;30
 ;;9002226.02101,"873,S40.859A ",.01)
 ;;S40.859A
 ;;9002226.02101,"873,S40.859A ",.02)
 ;;S40.859A
 ;;9002226.02101,"873,S40.859A ",.03)
 ;;30
 ;;9002226.02101,"873,S40.871A ",.01)
 ;;S40.871A
 ;;9002226.02101,"873,S40.871A ",.02)
 ;;S40.871A
 ;;9002226.02101,"873,S40.871A ",.03)
 ;;30
 ;;9002226.02101,"873,S40.872A ",.01)
 ;;S40.872A
 ;;9002226.02101,"873,S40.872A ",.02)
 ;;S40.872A
 ;;9002226.02101,"873,S40.872A ",.03)
 ;;30
 ;;9002226.02101,"873,S40.879A ",.01)
 ;;S40.879A
 ;;9002226.02101,"873,S40.879A ",.02)
 ;;S40.879A
 ;;9002226.02101,"873,S40.879A ",.03)
 ;;30
 ;;9002226.02101,"873,S40.911A ",.01)
 ;;S40.911A
 ;;9002226.02101,"873,S40.911A ",.02)
 ;;S40.911A
 ;;9002226.02101,"873,S40.911A ",.03)
 ;;30
 ;;9002226.02101,"873,S40.912A ",.01)
 ;;S40.912A
 ;;9002226.02101,"873,S40.912A ",.02)
 ;;S40.912A
 ;;9002226.02101,"873,S40.912A ",.03)
 ;;30
 ;;9002226.02101,"873,S40.919A ",.01)
 ;;S40.919A
 ;;9002226.02101,"873,S40.919A ",.02)
 ;;S40.919A
 ;;9002226.02101,"873,S40.919A ",.03)
 ;;30
 ;;9002226.02101,"873,S40.921A ",.01)
 ;;S40.921A
 ;;9002226.02101,"873,S40.921A ",.02)
 ;;S40.921A
 ;;9002226.02101,"873,S40.921A ",.03)
 ;;30
 ;;9002226.02101,"873,S40.922A ",.01)
 ;;S40.922A
 ;;9002226.02101,"873,S40.922A ",.02)
 ;;S40.922A
 ;;9002226.02101,"873,S40.922A ",.03)
 ;;30
 ;;9002226.02101,"873,S40.929A ",.01)
 ;;S40.929A
 ;;9002226.02101,"873,S40.929A ",.02)
 ;;S40.929A
 ;;9002226.02101,"873,S40.929A ",.03)
 ;;30
 ;;9002226.02101,"873,S41.001A ",.01)
 ;;S41.001A
 ;;9002226.02101,"873,S41.001A ",.02)
 ;;S41.001A
 ;;9002226.02101,"873,S41.001A ",.03)
 ;;30
 ;;9002226.02101,"873,S41.002A ",.01)
 ;;S41.002A
 ;;9002226.02101,"873,S41.002A ",.02)
 ;;S41.002A
 ;;9002226.02101,"873,S41.002A ",.03)
 ;;30
 ;;9002226.02101,"873,S41.009A ",.01)
 ;;S41.009A
 ;;9002226.02101,"873,S41.009A ",.02)
 ;;S41.009A
 ;;9002226.02101,"873,S41.009A ",.03)
 ;;30
 ;;9002226.02101,"873,S41.011A ",.01)
 ;;S41.011A
 ;;9002226.02101,"873,S41.011A ",.02)
 ;;S41.011A
 ;;9002226.02101,"873,S41.011A ",.03)
 ;;30
 ;;9002226.02101,"873,S41.012A ",.01)
 ;;S41.012A
 ;;9002226.02101,"873,S41.012A ",.02)
 ;;S41.012A
 ;;9002226.02101,"873,S41.012A ",.03)
 ;;30
 ;;9002226.02101,"873,S41.019A ",.01)
 ;;S41.019A
 ;;9002226.02101,"873,S41.019A ",.02)
 ;;S41.019A
 ;;9002226.02101,"873,S41.019A ",.03)
 ;;30
 ;;9002226.02101,"873,S41.021A ",.01)
 ;;S41.021A
 ;;9002226.02101,"873,S41.021A ",.02)
 ;;S41.021A
 ;;9002226.02101,"873,S41.021A ",.03)
 ;;30
 ;;9002226.02101,"873,S41.022A ",.01)
 ;;S41.022A
 ;;9002226.02101,"873,S41.022A ",.02)
 ;;S41.022A
 ;;9002226.02101,"873,S41.022A ",.03)
 ;;30
 ;;9002226.02101,"873,S41.029A ",.01)
 ;;S41.029A
 ;;9002226.02101,"873,S41.029A ",.02)
 ;;S41.029A
 ;;9002226.02101,"873,S41.029A ",.03)
 ;;30
 ;;9002226.02101,"873,S41.031A ",.01)
 ;;S41.031A
 ;;9002226.02101,"873,S41.031A ",.02)
 ;;S41.031A
 ;;9002226.02101,"873,S41.031A ",.03)
 ;;30
 ;;9002226.02101,"873,S41.032A ",.01)
 ;;S41.032A
 ;;9002226.02101,"873,S41.032A ",.02)
 ;;S41.032A
 ;;9002226.02101,"873,S41.032A ",.03)
 ;;30
 ;;9002226.02101,"873,S41.039A ",.01)
 ;;S41.039A
 ;;9002226.02101,"873,S41.039A ",.02)
 ;;S41.039A
 ;;9002226.02101,"873,S41.039A ",.03)
 ;;30
 ;;9002226.02101,"873,S41.041A ",.01)
 ;;S41.041A
 ;;9002226.02101,"873,S41.041A ",.02)
 ;;S41.041A
 ;;9002226.02101,"873,S41.041A ",.03)
 ;;30
 ;;9002226.02101,"873,S41.042A ",.01)
 ;;S41.042A
 ;;9002226.02101,"873,S41.042A ",.02)
 ;;S41.042A
 ;;9002226.02101,"873,S41.042A ",.03)
 ;;30
 ;;9002226.02101,"873,S41.049A ",.01)
 ;;S41.049A
 ;;9002226.02101,"873,S41.049A ",.02)
 ;;S41.049A
 ;;9002226.02101,"873,S41.049A ",.03)
 ;;30
 ;;9002226.02101,"873,S41.051A ",.01)
 ;;S41.051A
 ;;9002226.02101,"873,S41.051A ",.02)
 ;;S41.051A
 ;;9002226.02101,"873,S41.051A ",.03)
 ;;30
 ;;9002226.02101,"873,S41.052A ",.01)
 ;;S41.052A
 ;;9002226.02101,"873,S41.052A ",.02)
 ;;S41.052A