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

ATXXA131.m

Go to the documentation of this file.
ATXXA131 ;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,S95.899A ",.03)
 ;;30
 ;;9002226.02101,"873,S95.901A ",.01)
 ;;S95.901A
 ;;9002226.02101,"873,S95.901A ",.02)
 ;;S95.901A
 ;;9002226.02101,"873,S95.901A ",.03)
 ;;30
 ;;9002226.02101,"873,S95.902A ",.01)
 ;;S95.902A
 ;;9002226.02101,"873,S95.902A ",.02)
 ;;S95.902A
 ;;9002226.02101,"873,S95.902A ",.03)
 ;;30
 ;;9002226.02101,"873,S95.909A ",.01)
 ;;S95.909A
 ;;9002226.02101,"873,S95.909A ",.02)
 ;;S95.909A
 ;;9002226.02101,"873,S95.909A ",.03)
 ;;30
 ;;9002226.02101,"873,S95.911A ",.01)
 ;;S95.911A
 ;;9002226.02101,"873,S95.911A ",.02)
 ;;S95.911A
 ;;9002226.02101,"873,S95.911A ",.03)
 ;;30
 ;;9002226.02101,"873,S95.912A ",.01)
 ;;S95.912A
 ;;9002226.02101,"873,S95.912A ",.02)
 ;;S95.912A
 ;;9002226.02101,"873,S95.912A ",.03)
 ;;30
 ;;9002226.02101,"873,S95.919A ",.01)
 ;;S95.919A
 ;;9002226.02101,"873,S95.919A ",.02)
 ;;S95.919A
 ;;9002226.02101,"873,S95.919A ",.03)
 ;;30
 ;;9002226.02101,"873,S95.991A ",.01)
 ;;S95.991A
 ;;9002226.02101,"873,S95.991A ",.02)
 ;;S95.991A
 ;;9002226.02101,"873,S95.991A ",.03)
 ;;30
 ;;9002226.02101,"873,S95.992A ",.01)
 ;;S95.992A
 ;;9002226.02101,"873,S95.992A ",.02)
 ;;S95.992A
 ;;9002226.02101,"873,S95.992A ",.03)
 ;;30
 ;;9002226.02101,"873,S95.999A ",.01)
 ;;S95.999A
 ;;9002226.02101,"873,S95.999A ",.02)
 ;;S95.999A
 ;;9002226.02101,"873,S95.999A ",.03)
 ;;30
 ;;9002226.02101,"873,S96.001A ",.01)
 ;;S96.001A
 ;;9002226.02101,"873,S96.001A ",.02)
 ;;S96.001A
 ;;9002226.02101,"873,S96.001A ",.03)
 ;;30
 ;;9002226.02101,"873,S96.002A ",.01)
 ;;S96.002A
 ;;9002226.02101,"873,S96.002A ",.02)
 ;;S96.002A
 ;;9002226.02101,"873,S96.002A ",.03)
 ;;30
 ;;9002226.02101,"873,S96.009A ",.01)
 ;;S96.009A
 ;;9002226.02101,"873,S96.009A ",.02)
 ;;S96.009A
 ;;9002226.02101,"873,S96.009A ",.03)
 ;;30
 ;;9002226.02101,"873,S96.011A ",.01)
 ;;S96.011A
 ;;9002226.02101,"873,S96.011A ",.02)
 ;;S96.011A
 ;;9002226.02101,"873,S96.011A ",.03)
 ;;30
 ;;9002226.02101,"873,S96.012A ",.01)
 ;;S96.012A
 ;;9002226.02101,"873,S96.012A ",.02)
 ;;S96.012A
 ;;9002226.02101,"873,S96.012A ",.03)
 ;;30
 ;;9002226.02101,"873,S96.019A ",.01)
 ;;S96.019A
 ;;9002226.02101,"873,S96.019A ",.02)
 ;;S96.019A
 ;;9002226.02101,"873,S96.019A ",.03)
 ;;30
 ;;9002226.02101,"873,S96.021A ",.01)
 ;;S96.021A
 ;;9002226.02101,"873,S96.021A ",.02)
 ;;S96.021A
 ;;9002226.02101,"873,S96.021A ",.03)
 ;;30
 ;;9002226.02101,"873,S96.022A ",.01)
 ;;S96.022A
 ;;9002226.02101,"873,S96.022A ",.02)
 ;;S96.022A
 ;;9002226.02101,"873,S96.022A ",.03)
 ;;30
 ;;9002226.02101,"873,S96.029A ",.01)
 ;;S96.029A
 ;;9002226.02101,"873,S96.029A ",.02)
 ;;S96.029A
 ;;9002226.02101,"873,S96.029A ",.03)
 ;;30
 ;;9002226.02101,"873,S96.091A ",.01)
 ;;S96.091A
 ;;9002226.02101,"873,S96.091A ",.02)
 ;;S96.091A
 ;;9002226.02101,"873,S96.091A ",.03)
 ;;30
 ;;9002226.02101,"873,S96.092A ",.01)
 ;;S96.092A
 ;;9002226.02101,"873,S96.092A ",.02)
 ;;S96.092A
 ;;9002226.02101,"873,S96.092A ",.03)
 ;;30
 ;;9002226.02101,"873,S96.099A ",.01)
 ;;S96.099A
 ;;9002226.02101,"873,S96.099A ",.02)
 ;;S96.099A
 ;;9002226.02101,"873,S96.099A ",.03)
 ;;30
 ;;9002226.02101,"873,S96.101A ",.01)
 ;;S96.101A
 ;;9002226.02101,"873,S96.101A ",.02)
 ;;S96.101A
 ;;9002226.02101,"873,S96.101A ",.03)
 ;;30
 ;;9002226.02101,"873,S96.102A ",.01)
 ;;S96.102A
 ;;9002226.02101,"873,S96.102A ",.02)
 ;;S96.102A
 ;;9002226.02101,"873,S96.102A ",.03)
 ;;30
 ;;9002226.02101,"873,S96.109A ",.01)
 ;;S96.109A
 ;;9002226.02101,"873,S96.109A ",.02)
 ;;S96.109A
 ;;9002226.02101,"873,S96.109A ",.03)
 ;;30
 ;;9002226.02101,"873,S96.111A ",.01)
 ;;S96.111A
 ;;9002226.02101,"873,S96.111A ",.02)
 ;;S96.111A
 ;;9002226.02101,"873,S96.111A ",.03)
 ;;30
 ;;9002226.02101,"873,S96.112A ",.01)
 ;;S96.112A
 ;;9002226.02101,"873,S96.112A ",.02)
 ;;S96.112A
 ;;9002226.02101,"873,S96.112A ",.03)
 ;;30
 ;;9002226.02101,"873,S96.119A ",.01)
 ;;S96.119A
 ;;9002226.02101,"873,S96.119A ",.02)
 ;;S96.119A
 ;;9002226.02101,"873,S96.119A ",.03)
 ;;30
 ;;9002226.02101,"873,S96.121A ",.01)
 ;;S96.121A
 ;;9002226.02101,"873,S96.121A ",.02)
 ;;S96.121A
 ;;9002226.02101,"873,S96.121A ",.03)
 ;;30
 ;;9002226.02101,"873,S96.122A ",.01)
 ;;S96.122A
 ;;9002226.02101,"873,S96.122A ",.02)
 ;;S96.122A
 ;;9002226.02101,"873,S96.122A ",.03)
 ;;30
 ;;9002226.02101,"873,S96.129A ",.01)
 ;;S96.129A
 ;;9002226.02101,"873,S96.129A ",.02)
 ;;S96.129A
 ;;9002226.02101,"873,S96.129A ",.03)
 ;;30
 ;;9002226.02101,"873,S96.191A ",.01)
 ;;S96.191A
 ;;9002226.02101,"873,S96.191A ",.02)
 ;;S96.191A
 ;;9002226.02101,"873,S96.191A ",.03)
 ;;30
 ;;9002226.02101,"873,S96.192A ",.01)
 ;;S96.192A
 ;;9002226.02101,"873,S96.192A ",.02)
 ;;S96.192A
 ;;9002226.02101,"873,S96.192A ",.03)
 ;;30
 ;;9002226.02101,"873,S96.199A ",.01)
 ;;S96.199A
 ;;9002226.02101,"873,S96.199A ",.02)
 ;;S96.199A
 ;;9002226.02101,"873,S96.199A ",.03)
 ;;30
 ;;9002226.02101,"873,S96.201A ",.01)
 ;;S96.201A
 ;;9002226.02101,"873,S96.201A ",.02)
 ;;S96.201A
 ;;9002226.02101,"873,S96.201A ",.03)
 ;;30
 ;;9002226.02101,"873,S96.202A ",.01)
 ;;S96.202A
 ;;9002226.02101,"873,S96.202A ",.02)
 ;;S96.202A
 ;;9002226.02101,"873,S96.202A ",.03)
 ;;30
 ;;9002226.02101,"873,S96.209A ",.01)
 ;;S96.209A
 ;;9002226.02101,"873,S96.209A ",.02)
 ;;S96.209A
 ;;9002226.02101,"873,S96.209A ",.03)
 ;;30
 ;;9002226.02101,"873,S96.211A ",.01)
 ;;S96.211A
 ;;9002226.02101,"873,S96.211A ",.02)
 ;;S96.211A
 ;;9002226.02101,"873,S96.211A ",.03)
 ;;30
 ;;9002226.02101,"873,S96.212A ",.01)
 ;;S96.212A
 ;;9002226.02101,"873,S96.212A ",.02)
 ;;S96.212A
 ;;9002226.02101,"873,S96.212A ",.03)
 ;;30
 ;;9002226.02101,"873,S96.219A ",.01)
 ;;S96.219A
 ;;9002226.02101,"873,S96.219A ",.02)
 ;;S96.219A
 ;;9002226.02101,"873,S96.219A ",.03)
 ;;30
 ;;9002226.02101,"873,S96.221A ",.01)
 ;;S96.221A
 ;;9002226.02101,"873,S96.221A ",.02)
 ;;S96.221A
 ;;9002226.02101,"873,S96.221A ",.03)
 ;;30
 ;;9002226.02101,"873,S96.222A ",.01)
 ;;S96.222A
 ;;9002226.02101,"873,S96.222A ",.02)
 ;;S96.222A
 ;;9002226.02101,"873,S96.222A ",.03)
 ;;30
 ;;9002226.02101,"873,S96.229A ",.01)
 ;;S96.229A
 ;;9002226.02101,"873,S96.229A ",.02)
 ;;S96.229A
 ;;9002226.02101,"873,S96.229A ",.03)
 ;;30
 ;;9002226.02101,"873,S96.291A ",.01)
 ;;S96.291A
 ;;9002226.02101,"873,S96.291A ",.02)
 ;;S96.291A
 ;;9002226.02101,"873,S96.291A ",.03)
 ;;30
 ;;9002226.02101,"873,S96.292A ",.01)
 ;;S96.292A
 ;;9002226.02101,"873,S96.292A ",.02)
 ;;S96.292A
 ;;9002226.02101,"873,S96.292A ",.03)
 ;;30
 ;;9002226.02101,"873,S96.299A ",.01)
 ;;S96.299A
 ;;9002226.02101,"873,S96.299A ",.02)
 ;;S96.299A
 ;;9002226.02101,"873,S96.299A ",.03)
 ;;30
 ;;9002226.02101,"873,S96.801A ",.01)
 ;;S96.801A
 ;;9002226.02101,"873,S96.801A ",.02)
 ;;S96.801A
 ;;9002226.02101,"873,S96.801A ",.03)
 ;;30
 ;;9002226.02101,"873,S96.802A ",.01)
 ;;S96.802A
 ;;9002226.02101,"873,S96.802A ",.02)
 ;;S96.802A
 ;;9002226.02101,"873,S96.802A ",.03)
 ;;30
 ;;9002226.02101,"873,S96.809A ",.01)
 ;;S96.809A
 ;;9002226.02101,"873,S96.809A ",.02)
 ;;S96.809A
 ;;9002226.02101,"873,S96.809A ",.03)
 ;;30
 ;;9002226.02101,"873,S96.811A ",.01)
 ;;S96.811A
 ;;9002226.02101,"873,S96.811A ",.02)
 ;;S96.811A
 ;;9002226.02101,"873,S96.811A ",.03)
 ;;30
 ;;9002226.02101,"873,S96.812A ",.01)
 ;;S96.812A
 ;;9002226.02101,"873,S96.812A ",.02)
 ;;S96.812A
 ;;9002226.02101,"873,S96.812A ",.03)
 ;;30
 ;;9002226.02101,"873,S96.819A ",.01)
 ;;S96.819A
 ;;9002226.02101,"873,S96.819A ",.02)
 ;;S96.819A
 ;;9002226.02101,"873,S96.819A ",.03)
 ;;30
 ;;9002226.02101,"873,S96.821A ",.01)
 ;;S96.821A
 ;;9002226.02101,"873,S96.821A ",.02)
 ;;S96.821A
 ;;9002226.02101,"873,S96.821A ",.03)
 ;;30
 ;;9002226.02101,"873,S96.822A ",.01)
 ;;S96.822A
 ;;9002226.02101,"873,S96.822A ",.02)
 ;;S96.822A
 ;;9002226.02101,"873,S96.822A ",.03)
 ;;30
 ;;9002226.02101,"873,S96.829A ",.01)
 ;;S96.829A
 ;;9002226.02101,"873,S96.829A ",.02)
 ;;S96.829A
 ;;9002226.02101,"873,S96.829A ",.03)
 ;;30
 ;;9002226.02101,"873,S96.891A ",.01)
 ;;S96.891A
 ;;9002226.02101,"873,S96.891A ",.02)
 ;;S96.891A
 ;;9002226.02101,"873,S96.891A ",.03)
 ;;30
 ;;9002226.02101,"873,S96.892A ",.01)
 ;;S96.892A
 ;;9002226.02101,"873,S96.892A ",.02)
 ;;S96.892A
 ;;9002226.02101,"873,S96.892A ",.03)
 ;;30
 ;;9002226.02101,"873,S96.899A ",.01)
 ;;S96.899A
 ;;9002226.02101,"873,S96.899A ",.02)
 ;;S96.899A
 ;;9002226.02101,"873,S96.899A ",.03)
 ;;30
 ;;9002226.02101,"873,S96.901A ",.01)
 ;;S96.901A
 ;;9002226.02101,"873,S96.901A ",.02)
 ;;S96.901A
 ;;9002226.02101,"873,S96.901A ",.03)
 ;;30
 ;;9002226.02101,"873,S96.902A ",.01)
 ;;S96.902A
 ;;9002226.02101,"873,S96.902A ",.02)
 ;;S96.902A
 ;;9002226.02101,"873,S96.902A ",.03)
 ;;30
 ;;9002226.02101,"873,S96.909A ",.01)
 ;;S96.909A
 ;;9002226.02101,"873,S96.909A ",.02)
 ;;S96.909A
 ;;9002226.02101,"873,S96.909A ",.03)
 ;;30
 ;;9002226.02101,"873,S96.911A ",.01)
 ;;S96.911A
 ;;9002226.02101,"873,S96.911A ",.02)
 ;;S96.911A
 ;;9002226.02101,"873,S96.911A ",.03)
 ;;30
 ;;9002226.02101,"873,S96.912A ",.01)
 ;;S96.912A
 ;;9002226.02101,"873,S96.912A ",.02)
 ;;S96.912A
 ;;9002226.02101,"873,S96.912A ",.03)
 ;;30
 ;;9002226.02101,"873,S96.919A ",.01)
 ;;S96.919A
 ;;9002226.02101,"873,S96.919A ",.02)
 ;;S96.919A
 ;;9002226.02101,"873,S96.919A ",.03)
 ;;30
 ;;9002226.02101,"873,S96.921A ",.01)
 ;;S96.921A
 ;;9002226.02101,"873,S96.921A ",.02)
 ;;S96.921A
 ;;9002226.02101,"873,S96.921A ",.03)
 ;;30
 ;;9002226.02101,"873,S96.922A ",.01)
 ;;S96.922A
 ;;9002226.02101,"873,S96.922A ",.02)
 ;;S96.922A
 ;;9002226.02101,"873,S96.922A ",.03)
 ;;30
 ;;9002226.02101,"873,S96.929A ",.01)
 ;;S96.929A
 ;;9002226.02101,"873,S96.929A ",.02)
 ;;S96.929A
 ;;9002226.02101,"873,S96.929A ",.03)
 ;;30
 ;;9002226.02101,"873,S96.991A ",.01)
 ;;S96.991A
 ;;9002226.02101,"873,S96.991A ",.02)
 ;;S96.991A
 ;;9002226.02101,"873,S96.991A ",.03)
 ;;30
 ;;9002226.02101,"873,S96.992A ",.01)
 ;;S96.992A
 ;;9002226.02101,"873,S96.992A ",.02)
 ;;S96.992A
 ;;9002226.02101,"873,S96.992A ",.03)
 ;;30
 ;;9002226.02101,"873,S96.999A ",.01)
 ;;S96.999A
 ;;9002226.02101,"873,S96.999A ",.02)
 ;;S96.999A
 ;;9002226.02101,"873,S96.999A ",.03)
 ;;30
 ;;9002226.02101,"873,S97.00XA ",.01)
 ;;S97.00XA
 ;;9002226.02101,"873,S97.00XA ",.02)
 ;;S97.00XA
 ;;9002226.02101,"873,S97.00XA ",.03)
 ;;30
 ;;9002226.02101,"873,S97.01XA ",.01)
 ;;S97.01XA
 ;;9002226.02101,"873,S97.01XA ",.02)
 ;;S97.01XA
 ;;9002226.02101,"873,S97.01XA ",.03)
 ;;30
 ;;9002226.02101,"873,S97.02XA ",.01)
 ;;S97.02XA
 ;;9002226.02101,"873,S97.02XA ",.02)
 ;;S97.02XA
 ;;9002226.02101,"873,S97.02XA ",.03)
 ;;30
 ;;9002226.02101,"873,S97.101A ",.01)
 ;;S97.101A
 ;;9002226.02101,"873,S97.101A ",.02)
 ;;S97.101A
 ;;9002226.02101,"873,S97.101A ",.03)
 ;;30
 ;;9002226.02101,"873,S97.102A ",.01)
 ;;S97.102A
 ;;9002226.02101,"873,S97.102A ",.02)
 ;;S97.102A
 ;;9002226.02101,"873,S97.102A ",.03)
 ;;30
 ;;9002226.02101,"873,S97.109A ",.01)
 ;;S97.109A
 ;;9002226.02101,"873,S97.109A ",.02)
 ;;S97.109A
 ;;9002226.02101,"873,S97.109A ",.03)
 ;;30
 ;;9002226.02101,"873,S97.111A ",.01)
 ;;S97.111A
 ;;9002226.02101,"873,S97.111A ",.02)
 ;;S97.111A
 ;;9002226.02101,"873,S97.111A ",.03)
 ;;30
 ;;9002226.02101,"873,S97.112A ",.01)
 ;;S97.112A
 ;;9002226.02101,"873,S97.112A ",.02)
 ;;S97.112A
 ;;9002226.02101,"873,S97.112A ",.03)
 ;;30
 ;;9002226.02101,"873,S97.119A ",.01)
 ;;S97.119A
 ;;9002226.02101,"873,S97.119A ",.02)
 ;;S97.119A
 ;;9002226.02101,"873,S97.119A ",.03)
 ;;30