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

ATXXA65.m

Go to the documentation of this file.
ATXXA65 ;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,S49.032A ",.03)
 ;;30
 ;;9002226.02101,"873,S49.039A ",.01)
 ;;S49.039A
 ;;9002226.02101,"873,S49.039A ",.02)
 ;;S49.039A
 ;;9002226.02101,"873,S49.039A ",.03)
 ;;30
 ;;9002226.02101,"873,S49.041A ",.01)
 ;;S49.041A
 ;;9002226.02101,"873,S49.041A ",.02)
 ;;S49.041A
 ;;9002226.02101,"873,S49.041A ",.03)
 ;;30
 ;;9002226.02101,"873,S49.042A ",.01)
 ;;S49.042A
 ;;9002226.02101,"873,S49.042A ",.02)
 ;;S49.042A
 ;;9002226.02101,"873,S49.042A ",.03)
 ;;30
 ;;9002226.02101,"873,S49.049A ",.01)
 ;;S49.049A
 ;;9002226.02101,"873,S49.049A ",.02)
 ;;S49.049A
 ;;9002226.02101,"873,S49.049A ",.03)
 ;;30
 ;;9002226.02101,"873,S49.091A ",.01)
 ;;S49.091A
 ;;9002226.02101,"873,S49.091A ",.02)
 ;;S49.091A
 ;;9002226.02101,"873,S49.091A ",.03)
 ;;30
 ;;9002226.02101,"873,S49.092A ",.01)
 ;;S49.092A
 ;;9002226.02101,"873,S49.092A ",.02)
 ;;S49.092A
 ;;9002226.02101,"873,S49.092A ",.03)
 ;;30
 ;;9002226.02101,"873,S49.099A ",.01)
 ;;S49.099A
 ;;9002226.02101,"873,S49.099A ",.02)
 ;;S49.099A
 ;;9002226.02101,"873,S49.099A ",.03)
 ;;30
 ;;9002226.02101,"873,S49.101A ",.01)
 ;;S49.101A
 ;;9002226.02101,"873,S49.101A ",.02)
 ;;S49.101A
 ;;9002226.02101,"873,S49.101A ",.03)
 ;;30
 ;;9002226.02101,"873,S49.102A ",.01)
 ;;S49.102A
 ;;9002226.02101,"873,S49.102A ",.02)
 ;;S49.102A
 ;;9002226.02101,"873,S49.102A ",.03)
 ;;30
 ;;9002226.02101,"873,S49.109A ",.01)
 ;;S49.109A
 ;;9002226.02101,"873,S49.109A ",.02)
 ;;S49.109A
 ;;9002226.02101,"873,S49.109A ",.03)
 ;;30
 ;;9002226.02101,"873,S49.111A ",.01)
 ;;S49.111A
 ;;9002226.02101,"873,S49.111A ",.02)
 ;;S49.111A
 ;;9002226.02101,"873,S49.111A ",.03)
 ;;30
 ;;9002226.02101,"873,S49.112A ",.01)
 ;;S49.112A
 ;;9002226.02101,"873,S49.112A ",.02)
 ;;S49.112A
 ;;9002226.02101,"873,S49.112A ",.03)
 ;;30
 ;;9002226.02101,"873,S49.119A ",.01)
 ;;S49.119A
 ;;9002226.02101,"873,S49.119A ",.02)
 ;;S49.119A
 ;;9002226.02101,"873,S49.119A ",.03)
 ;;30
 ;;9002226.02101,"873,S49.121A ",.01)
 ;;S49.121A
 ;;9002226.02101,"873,S49.121A ",.02)
 ;;S49.121A
 ;;9002226.02101,"873,S49.121A ",.03)
 ;;30
 ;;9002226.02101,"873,S49.122A ",.01)
 ;;S49.122A
 ;;9002226.02101,"873,S49.122A ",.02)
 ;;S49.122A
 ;;9002226.02101,"873,S49.122A ",.03)
 ;;30
 ;;9002226.02101,"873,S49.129A ",.01)
 ;;S49.129A
 ;;9002226.02101,"873,S49.129A ",.02)
 ;;S49.129A
 ;;9002226.02101,"873,S49.129A ",.03)
 ;;30
 ;;9002226.02101,"873,S49.131A ",.01)
 ;;S49.131A
 ;;9002226.02101,"873,S49.131A ",.02)
 ;;S49.131A
 ;;9002226.02101,"873,S49.131A ",.03)
 ;;30
 ;;9002226.02101,"873,S49.132A ",.01)
 ;;S49.132A
 ;;9002226.02101,"873,S49.132A ",.02)
 ;;S49.132A
 ;;9002226.02101,"873,S49.132A ",.03)
 ;;30
 ;;9002226.02101,"873,S49.139A ",.01)
 ;;S49.139A
 ;;9002226.02101,"873,S49.139A ",.02)
 ;;S49.139A
 ;;9002226.02101,"873,S49.139A ",.03)
 ;;30
 ;;9002226.02101,"873,S49.141A ",.01)
 ;;S49.141A
 ;;9002226.02101,"873,S49.141A ",.02)
 ;;S49.141A
 ;;9002226.02101,"873,S49.141A ",.03)
 ;;30
 ;;9002226.02101,"873,S49.142A ",.01)
 ;;S49.142A
 ;;9002226.02101,"873,S49.142A ",.02)
 ;;S49.142A
 ;;9002226.02101,"873,S49.142A ",.03)
 ;;30
 ;;9002226.02101,"873,S49.149A ",.01)
 ;;S49.149A
 ;;9002226.02101,"873,S49.149A ",.02)
 ;;S49.149A
 ;;9002226.02101,"873,S49.149A ",.03)
 ;;30
 ;;9002226.02101,"873,S49.191A ",.01)
 ;;S49.191A
 ;;9002226.02101,"873,S49.191A ",.02)
 ;;S49.191A
 ;;9002226.02101,"873,S49.191A ",.03)
 ;;30
 ;;9002226.02101,"873,S49.192A ",.01)
 ;;S49.192A
 ;;9002226.02101,"873,S49.192A ",.02)
 ;;S49.192A
 ;;9002226.02101,"873,S49.192A ",.03)
 ;;30
 ;;9002226.02101,"873,S49.199A ",.01)
 ;;S49.199A
 ;;9002226.02101,"873,S49.199A ",.02)
 ;;S49.199A
 ;;9002226.02101,"873,S49.199A ",.03)
 ;;30
 ;;9002226.02101,"873,S49.80XA ",.01)
 ;;S49.80XA
 ;;9002226.02101,"873,S49.80XA ",.02)
 ;;S49.80XA
 ;;9002226.02101,"873,S49.80XA ",.03)
 ;;30
 ;;9002226.02101,"873,S49.81XA ",.01)
 ;;S49.81XA
 ;;9002226.02101,"873,S49.81XA ",.02)
 ;;S49.81XA
 ;;9002226.02101,"873,S49.81XA ",.03)
 ;;30
 ;;9002226.02101,"873,S49.82XA ",.01)
 ;;S49.82XA
 ;;9002226.02101,"873,S49.82XA ",.02)
 ;;S49.82XA
 ;;9002226.02101,"873,S49.82XA ",.03)
 ;;30
 ;;9002226.02101,"873,S49.90XA ",.01)
 ;;S49.90XA
 ;;9002226.02101,"873,S49.90XA ",.02)
 ;;S49.90XA
 ;;9002226.02101,"873,S49.90XA ",.03)
 ;;30
 ;;9002226.02101,"873,S49.91XA ",.01)
 ;;S49.91XA
 ;;9002226.02101,"873,S49.91XA ",.02)
 ;;S49.91XA
 ;;9002226.02101,"873,S49.91XA ",.03)
 ;;30
 ;;9002226.02101,"873,S49.92XA ",.01)
 ;;S49.92XA
 ;;9002226.02101,"873,S49.92XA ",.02)
 ;;S49.92XA
 ;;9002226.02101,"873,S49.92XA ",.03)
 ;;30
 ;;9002226.02101,"873,S50.00XA ",.01)
 ;;S50.00XA
 ;;9002226.02101,"873,S50.00XA ",.02)
 ;;S50.00XA
 ;;9002226.02101,"873,S50.00XA ",.03)
 ;;30
 ;;9002226.02101,"873,S50.01XA ",.01)
 ;;S50.01XA
 ;;9002226.02101,"873,S50.01XA ",.02)
 ;;S50.01XA
 ;;9002226.02101,"873,S50.01XA ",.03)
 ;;30
 ;;9002226.02101,"873,S50.02XA ",.01)
 ;;S50.02XA
 ;;9002226.02101,"873,S50.02XA ",.02)
 ;;S50.02XA
 ;;9002226.02101,"873,S50.02XA ",.03)
 ;;30
 ;;9002226.02101,"873,S50.10XA ",.01)
 ;;S50.10XA
 ;;9002226.02101,"873,S50.10XA ",.02)
 ;;S50.10XA
 ;;9002226.02101,"873,S50.10XA ",.03)
 ;;30
 ;;9002226.02101,"873,S50.11XA ",.01)
 ;;S50.11XA
 ;;9002226.02101,"873,S50.11XA ",.02)
 ;;S50.11XA
 ;;9002226.02101,"873,S50.11XA ",.03)
 ;;30
 ;;9002226.02101,"873,S50.12XA ",.01)
 ;;S50.12XA
 ;;9002226.02101,"873,S50.12XA ",.02)
 ;;S50.12XA
 ;;9002226.02101,"873,S50.12XA ",.03)
 ;;30
 ;;9002226.02101,"873,S50.311A ",.01)
 ;;S50.311A
 ;;9002226.02101,"873,S50.311A ",.02)
 ;;S50.311A
 ;;9002226.02101,"873,S50.311A ",.03)
 ;;30
 ;;9002226.02101,"873,S50.312A ",.01)
 ;;S50.312A
 ;;9002226.02101,"873,S50.312A ",.02)
 ;;S50.312A
 ;;9002226.02101,"873,S50.312A ",.03)
 ;;30
 ;;9002226.02101,"873,S50.319A ",.01)
 ;;S50.319A
 ;;9002226.02101,"873,S50.319A ",.02)
 ;;S50.319A
 ;;9002226.02101,"873,S50.319A ",.03)
 ;;30
 ;;9002226.02101,"873,S50.341A ",.01)
 ;;S50.341A
 ;;9002226.02101,"873,S50.341A ",.02)
 ;;S50.341A
 ;;9002226.02101,"873,S50.341A ",.03)
 ;;30
 ;;9002226.02101,"873,S50.342A ",.01)
 ;;S50.342A
 ;;9002226.02101,"873,S50.342A ",.02)
 ;;S50.342A
 ;;9002226.02101,"873,S50.342A ",.03)
 ;;30
 ;;9002226.02101,"873,S50.349A ",.01)
 ;;S50.349A
 ;;9002226.02101,"873,S50.349A ",.02)
 ;;S50.349A
 ;;9002226.02101,"873,S50.349A ",.03)
 ;;30
 ;;9002226.02101,"873,S50.351A ",.01)
 ;;S50.351A
 ;;9002226.02101,"873,S50.351A ",.02)
 ;;S50.351A
 ;;9002226.02101,"873,S50.351A ",.03)
 ;;30
 ;;9002226.02101,"873,S50.352A ",.01)
 ;;S50.352A
 ;;9002226.02101,"873,S50.352A ",.02)
 ;;S50.352A
 ;;9002226.02101,"873,S50.352A ",.03)
 ;;30
 ;;9002226.02101,"873,S50.359A ",.01)
 ;;S50.359A
 ;;9002226.02101,"873,S50.359A ",.02)
 ;;S50.359A
 ;;9002226.02101,"873,S50.359A ",.03)
 ;;30
 ;;9002226.02101,"873,S50.371A ",.01)
 ;;S50.371A
 ;;9002226.02101,"873,S50.371A ",.02)
 ;;S50.371A
 ;;9002226.02101,"873,S50.371A ",.03)
 ;;30
 ;;9002226.02101,"873,S50.372A ",.01)
 ;;S50.372A
 ;;9002226.02101,"873,S50.372A ",.02)
 ;;S50.372A
 ;;9002226.02101,"873,S50.372A ",.03)
 ;;30
 ;;9002226.02101,"873,S50.379A ",.01)
 ;;S50.379A
 ;;9002226.02101,"873,S50.379A ",.02)
 ;;S50.379A
 ;;9002226.02101,"873,S50.379A ",.03)
 ;;30
 ;;9002226.02101,"873,S50.811A ",.01)
 ;;S50.811A
 ;;9002226.02101,"873,S50.811A ",.02)
 ;;S50.811A
 ;;9002226.02101,"873,S50.811A ",.03)
 ;;30
 ;;9002226.02101,"873,S50.812A ",.01)
 ;;S50.812A
 ;;9002226.02101,"873,S50.812A ",.02)
 ;;S50.812A
 ;;9002226.02101,"873,S50.812A ",.03)
 ;;30
 ;;9002226.02101,"873,S50.819A ",.01)
 ;;S50.819A
 ;;9002226.02101,"873,S50.819A ",.02)
 ;;S50.819A
 ;;9002226.02101,"873,S50.819A ",.03)
 ;;30
 ;;9002226.02101,"873,S50.841A ",.01)
 ;;S50.841A
 ;;9002226.02101,"873,S50.841A ",.02)
 ;;S50.841A
 ;;9002226.02101,"873,S50.841A ",.03)
 ;;30
 ;;9002226.02101,"873,S50.842A ",.01)
 ;;S50.842A
 ;;9002226.02101,"873,S50.842A ",.02)
 ;;S50.842A
 ;;9002226.02101,"873,S50.842A ",.03)
 ;;30
 ;;9002226.02101,"873,S50.849A ",.01)
 ;;S50.849A
 ;;9002226.02101,"873,S50.849A ",.02)
 ;;S50.849A
 ;;9002226.02101,"873,S50.849A ",.03)
 ;;30
 ;;9002226.02101,"873,S50.851A ",.01)
 ;;S50.851A
 ;;9002226.02101,"873,S50.851A ",.02)
 ;;S50.851A
 ;;9002226.02101,"873,S50.851A ",.03)
 ;;30
 ;;9002226.02101,"873,S50.852A ",.01)
 ;;S50.852A
 ;;9002226.02101,"873,S50.852A ",.02)
 ;;S50.852A
 ;;9002226.02101,"873,S50.852A ",.03)
 ;;30
 ;;9002226.02101,"873,S50.859A ",.01)
 ;;S50.859A
 ;;9002226.02101,"873,S50.859A ",.02)
 ;;S50.859A
 ;;9002226.02101,"873,S50.859A ",.03)
 ;;30
 ;;9002226.02101,"873,S50.871A ",.01)
 ;;S50.871A
 ;;9002226.02101,"873,S50.871A ",.02)
 ;;S50.871A
 ;;9002226.02101,"873,S50.871A ",.03)
 ;;30
 ;;9002226.02101,"873,S50.872A ",.01)
 ;;S50.872A
 ;;9002226.02101,"873,S50.872A ",.02)
 ;;S50.872A
 ;;9002226.02101,"873,S50.872A ",.03)
 ;;30
 ;;9002226.02101,"873,S50.879A ",.01)
 ;;S50.879A
 ;;9002226.02101,"873,S50.879A ",.02)
 ;;S50.879A
 ;;9002226.02101,"873,S50.879A ",.03)
 ;;30
 ;;9002226.02101,"873,S50.901A ",.01)
 ;;S50.901A
 ;;9002226.02101,"873,S50.901A ",.02)
 ;;S50.901A
 ;;9002226.02101,"873,S50.901A ",.03)
 ;;30
 ;;9002226.02101,"873,S50.902A ",.01)
 ;;S50.902A
 ;;9002226.02101,"873,S50.902A ",.02)
 ;;S50.902A
 ;;9002226.02101,"873,S50.902A ",.03)
 ;;30
 ;;9002226.02101,"873,S50.909A ",.01)
 ;;S50.909A
 ;;9002226.02101,"873,S50.909A ",.02)
 ;;S50.909A
 ;;9002226.02101,"873,S50.909A ",.03)
 ;;30
 ;;9002226.02101,"873,S50.911A ",.01)
 ;;S50.911A
 ;;9002226.02101,"873,S50.911A ",.02)
 ;;S50.911A
 ;;9002226.02101,"873,S50.911A ",.03)
 ;;30
 ;;9002226.02101,"873,S50.912A ",.01)
 ;;S50.912A
 ;;9002226.02101,"873,S50.912A ",.02)
 ;;S50.912A
 ;;9002226.02101,"873,S50.912A ",.03)
 ;;30
 ;;9002226.02101,"873,S50.919A ",.01)
 ;;S50.919A
 ;;9002226.02101,"873,S50.919A ",.02)
 ;;S50.919A
 ;;9002226.02101,"873,S50.919A ",.03)
 ;;30
 ;;9002226.02101,"873,S51.001A ",.01)
 ;;S51.001A
 ;;9002226.02101,"873,S51.001A ",.02)
 ;;S51.001A
 ;;9002226.02101,"873,S51.001A ",.03)
 ;;30
 ;;9002226.02101,"873,S51.002A ",.01)
 ;;S51.002A
 ;;9002226.02101,"873,S51.002A ",.02)
 ;;S51.002A
 ;;9002226.02101,"873,S51.002A ",.03)
 ;;30
 ;;9002226.02101,"873,S51.009A ",.01)
 ;;S51.009A
 ;;9002226.02101,"873,S51.009A ",.02)
 ;;S51.009A
 ;;9002226.02101,"873,S51.009A ",.03)
 ;;30
 ;;9002226.02101,"873,S51.011A ",.01)
 ;;S51.011A
 ;;9002226.02101,"873,S51.011A ",.02)
 ;;S51.011A
 ;;9002226.02101,"873,S51.011A ",.03)
 ;;30
 ;;9002226.02101,"873,S51.012A ",.01)
 ;;S51.012A
 ;;9002226.02101,"873,S51.012A ",.02)
 ;;S51.012A
 ;;9002226.02101,"873,S51.012A ",.03)
 ;;30
 ;;9002226.02101,"873,S51.019A ",.01)
 ;;S51.019A
 ;;9002226.02101,"873,S51.019A ",.02)
 ;;S51.019A
 ;;9002226.02101,"873,S51.019A ",.03)
 ;;30
 ;;9002226.02101,"873,S51.021A ",.01)
 ;;S51.021A
 ;;9002226.02101,"873,S51.021A ",.02)
 ;;S51.021A
 ;;9002226.02101,"873,S51.021A ",.03)
 ;;30
 ;;9002226.02101,"873,S51.022A ",.01)
 ;;S51.022A
 ;;9002226.02101,"873,S51.022A ",.02)
 ;;S51.022A
 ;;9002226.02101,"873,S51.022A ",.03)
 ;;30
 ;;9002226.02101,"873,S51.029A ",.01)
 ;;S51.029A
 ;;9002226.02101,"873,S51.029A ",.02)
 ;;S51.029A
 ;;9002226.02101,"873,S51.029A ",.03)
 ;;30
 ;;9002226.02101,"873,S51.031A ",.01)
 ;;S51.031A
 ;;9002226.02101,"873,S51.031A ",.02)
 ;;S51.031A
 ;;9002226.02101,"873,S51.031A ",.03)
 ;;30
 ;;9002226.02101,"873,S51.032A ",.01)
 ;;S51.032A
 ;;9002226.02101,"873,S51.032A ",.02)
 ;;S51.032A
 ;;9002226.02101,"873,S51.032A ",.03)
 ;;30