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

ATXXA77.m

Go to the documentation of this file.
ATXXA77 ;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,S58.919A ",.03)
 ;;30
 ;;9002226.02101,"873,S58.921A ",.01)
 ;;S58.921A
 ;;9002226.02101,"873,S58.921A ",.02)
 ;;S58.921A
 ;;9002226.02101,"873,S58.921A ",.03)
 ;;30
 ;;9002226.02101,"873,S58.922A ",.01)
 ;;S58.922A
 ;;9002226.02101,"873,S58.922A ",.02)
 ;;S58.922A
 ;;9002226.02101,"873,S58.922A ",.03)
 ;;30
 ;;9002226.02101,"873,S58.929A ",.01)
 ;;S58.929A
 ;;9002226.02101,"873,S58.929A ",.02)
 ;;S58.929A
 ;;9002226.02101,"873,S58.929A ",.03)
 ;;30
 ;;9002226.02101,"873,S59.001A ",.01)
 ;;S59.001A
 ;;9002226.02101,"873,S59.001A ",.02)
 ;;S59.001A
 ;;9002226.02101,"873,S59.001A ",.03)
 ;;30
 ;;9002226.02101,"873,S59.002A ",.01)
 ;;S59.002A
 ;;9002226.02101,"873,S59.002A ",.02)
 ;;S59.002A
 ;;9002226.02101,"873,S59.002A ",.03)
 ;;30
 ;;9002226.02101,"873,S59.009A ",.01)
 ;;S59.009A
 ;;9002226.02101,"873,S59.009A ",.02)
 ;;S59.009A
 ;;9002226.02101,"873,S59.009A ",.03)
 ;;30
 ;;9002226.02101,"873,S59.011A ",.01)
 ;;S59.011A
 ;;9002226.02101,"873,S59.011A ",.02)
 ;;S59.011A
 ;;9002226.02101,"873,S59.011A ",.03)
 ;;30
 ;;9002226.02101,"873,S59.012A ",.01)
 ;;S59.012A
 ;;9002226.02101,"873,S59.012A ",.02)
 ;;S59.012A
 ;;9002226.02101,"873,S59.012A ",.03)
 ;;30
 ;;9002226.02101,"873,S59.019A ",.01)
 ;;S59.019A
 ;;9002226.02101,"873,S59.019A ",.02)
 ;;S59.019A
 ;;9002226.02101,"873,S59.019A ",.03)
 ;;30
 ;;9002226.02101,"873,S59.021A ",.01)
 ;;S59.021A
 ;;9002226.02101,"873,S59.021A ",.02)
 ;;S59.021A
 ;;9002226.02101,"873,S59.021A ",.03)
 ;;30
 ;;9002226.02101,"873,S59.022A ",.01)
 ;;S59.022A
 ;;9002226.02101,"873,S59.022A ",.02)
 ;;S59.022A
 ;;9002226.02101,"873,S59.022A ",.03)
 ;;30
 ;;9002226.02101,"873,S59.029A ",.01)
 ;;S59.029A
 ;;9002226.02101,"873,S59.029A ",.02)
 ;;S59.029A
 ;;9002226.02101,"873,S59.029A ",.03)
 ;;30
 ;;9002226.02101,"873,S59.031A ",.01)
 ;;S59.031A
 ;;9002226.02101,"873,S59.031A ",.02)
 ;;S59.031A
 ;;9002226.02101,"873,S59.031A ",.03)
 ;;30
 ;;9002226.02101,"873,S59.032A ",.01)
 ;;S59.032A
 ;;9002226.02101,"873,S59.032A ",.02)
 ;;S59.032A
 ;;9002226.02101,"873,S59.032A ",.03)
 ;;30
 ;;9002226.02101,"873,S59.039A ",.01)
 ;;S59.039A
 ;;9002226.02101,"873,S59.039A ",.02)
 ;;S59.039A
 ;;9002226.02101,"873,S59.039A ",.03)
 ;;30
 ;;9002226.02101,"873,S59.041A ",.01)
 ;;S59.041A
 ;;9002226.02101,"873,S59.041A ",.02)
 ;;S59.041A
 ;;9002226.02101,"873,S59.041A ",.03)
 ;;30
 ;;9002226.02101,"873,S59.042A ",.01)
 ;;S59.042A
 ;;9002226.02101,"873,S59.042A ",.02)
 ;;S59.042A
 ;;9002226.02101,"873,S59.042A ",.03)
 ;;30
 ;;9002226.02101,"873,S59.049A ",.01)
 ;;S59.049A
 ;;9002226.02101,"873,S59.049A ",.02)
 ;;S59.049A
 ;;9002226.02101,"873,S59.049A ",.03)
 ;;30
 ;;9002226.02101,"873,S59.091A ",.01)
 ;;S59.091A
 ;;9002226.02101,"873,S59.091A ",.02)
 ;;S59.091A
 ;;9002226.02101,"873,S59.091A ",.03)
 ;;30
 ;;9002226.02101,"873,S59.092A ",.01)
 ;;S59.092A
 ;;9002226.02101,"873,S59.092A ",.02)
 ;;S59.092A
 ;;9002226.02101,"873,S59.092A ",.03)
 ;;30
 ;;9002226.02101,"873,S59.099A ",.01)
 ;;S59.099A
 ;;9002226.02101,"873,S59.099A ",.02)
 ;;S59.099A
 ;;9002226.02101,"873,S59.099A ",.03)
 ;;30
 ;;9002226.02101,"873,S59.101A ",.01)
 ;;S59.101A
 ;;9002226.02101,"873,S59.101A ",.02)
 ;;S59.101A
 ;;9002226.02101,"873,S59.101A ",.03)
 ;;30
 ;;9002226.02101,"873,S59.102A ",.01)
 ;;S59.102A
 ;;9002226.02101,"873,S59.102A ",.02)
 ;;S59.102A
 ;;9002226.02101,"873,S59.102A ",.03)
 ;;30
 ;;9002226.02101,"873,S59.109A ",.01)
 ;;S59.109A
 ;;9002226.02101,"873,S59.109A ",.02)
 ;;S59.109A
 ;;9002226.02101,"873,S59.109A ",.03)
 ;;30
 ;;9002226.02101,"873,S59.111A ",.01)
 ;;S59.111A
 ;;9002226.02101,"873,S59.111A ",.02)
 ;;S59.111A
 ;;9002226.02101,"873,S59.111A ",.03)
 ;;30
 ;;9002226.02101,"873,S59.112A ",.01)
 ;;S59.112A
 ;;9002226.02101,"873,S59.112A ",.02)
 ;;S59.112A
 ;;9002226.02101,"873,S59.112A ",.03)
 ;;30
 ;;9002226.02101,"873,S59.119A ",.01)
 ;;S59.119A
 ;;9002226.02101,"873,S59.119A ",.02)
 ;;S59.119A
 ;;9002226.02101,"873,S59.119A ",.03)
 ;;30
 ;;9002226.02101,"873,S59.121A ",.01)
 ;;S59.121A
 ;;9002226.02101,"873,S59.121A ",.02)
 ;;S59.121A
 ;;9002226.02101,"873,S59.121A ",.03)
 ;;30
 ;;9002226.02101,"873,S59.122A ",.01)
 ;;S59.122A
 ;;9002226.02101,"873,S59.122A ",.02)
 ;;S59.122A
 ;;9002226.02101,"873,S59.122A ",.03)
 ;;30
 ;;9002226.02101,"873,S59.129A ",.01)
 ;;S59.129A
 ;;9002226.02101,"873,S59.129A ",.02)
 ;;S59.129A
 ;;9002226.02101,"873,S59.129A ",.03)
 ;;30
 ;;9002226.02101,"873,S59.131A ",.01)
 ;;S59.131A
 ;;9002226.02101,"873,S59.131A ",.02)
 ;;S59.131A
 ;;9002226.02101,"873,S59.131A ",.03)
 ;;30
 ;;9002226.02101,"873,S59.132A ",.01)
 ;;S59.132A
 ;;9002226.02101,"873,S59.132A ",.02)
 ;;S59.132A
 ;;9002226.02101,"873,S59.132A ",.03)
 ;;30
 ;;9002226.02101,"873,S59.139A ",.01)
 ;;S59.139A
 ;;9002226.02101,"873,S59.139A ",.02)
 ;;S59.139A
 ;;9002226.02101,"873,S59.139A ",.03)
 ;;30
 ;;9002226.02101,"873,S59.141A ",.01)
 ;;S59.141A
 ;;9002226.02101,"873,S59.141A ",.02)
 ;;S59.141A
 ;;9002226.02101,"873,S59.141A ",.03)
 ;;30
 ;;9002226.02101,"873,S59.142A ",.01)
 ;;S59.142A
 ;;9002226.02101,"873,S59.142A ",.02)
 ;;S59.142A
 ;;9002226.02101,"873,S59.142A ",.03)
 ;;30
 ;;9002226.02101,"873,S59.149A ",.01)
 ;;S59.149A
 ;;9002226.02101,"873,S59.149A ",.02)
 ;;S59.149A
 ;;9002226.02101,"873,S59.149A ",.03)
 ;;30
 ;;9002226.02101,"873,S59.191A ",.01)
 ;;S59.191A
 ;;9002226.02101,"873,S59.191A ",.02)
 ;;S59.191A
 ;;9002226.02101,"873,S59.191A ",.03)
 ;;30
 ;;9002226.02101,"873,S59.192A ",.01)
 ;;S59.192A
 ;;9002226.02101,"873,S59.192A ",.02)
 ;;S59.192A
 ;;9002226.02101,"873,S59.192A ",.03)
 ;;30
 ;;9002226.02101,"873,S59.199A ",.01)
 ;;S59.199A
 ;;9002226.02101,"873,S59.199A ",.02)
 ;;S59.199A
 ;;9002226.02101,"873,S59.199A ",.03)
 ;;30
 ;;9002226.02101,"873,S59.201A ",.01)
 ;;S59.201A
 ;;9002226.02101,"873,S59.201A ",.02)
 ;;S59.201A
 ;;9002226.02101,"873,S59.201A ",.03)
 ;;30
 ;;9002226.02101,"873,S59.202A ",.01)
 ;;S59.202A
 ;;9002226.02101,"873,S59.202A ",.02)
 ;;S59.202A
 ;;9002226.02101,"873,S59.202A ",.03)
 ;;30
 ;;9002226.02101,"873,S59.209A ",.01)
 ;;S59.209A
 ;;9002226.02101,"873,S59.209A ",.02)
 ;;S59.209A
 ;;9002226.02101,"873,S59.209A ",.03)
 ;;30
 ;;9002226.02101,"873,S59.211A ",.01)
 ;;S59.211A
 ;;9002226.02101,"873,S59.211A ",.02)
 ;;S59.211A
 ;;9002226.02101,"873,S59.211A ",.03)
 ;;30
 ;;9002226.02101,"873,S59.212A ",.01)
 ;;S59.212A
 ;;9002226.02101,"873,S59.212A ",.02)
 ;;S59.212A
 ;;9002226.02101,"873,S59.212A ",.03)
 ;;30
 ;;9002226.02101,"873,S59.219A ",.01)
 ;;S59.219A
 ;;9002226.02101,"873,S59.219A ",.02)
 ;;S59.219A
 ;;9002226.02101,"873,S59.219A ",.03)
 ;;30
 ;;9002226.02101,"873,S59.221A ",.01)
 ;;S59.221A
 ;;9002226.02101,"873,S59.221A ",.02)
 ;;S59.221A
 ;;9002226.02101,"873,S59.221A ",.03)
 ;;30
 ;;9002226.02101,"873,S59.222A ",.01)
 ;;S59.222A
 ;;9002226.02101,"873,S59.222A ",.02)
 ;;S59.222A
 ;;9002226.02101,"873,S59.222A ",.03)
 ;;30
 ;;9002226.02101,"873,S59.229A ",.01)
 ;;S59.229A
 ;;9002226.02101,"873,S59.229A ",.02)
 ;;S59.229A
 ;;9002226.02101,"873,S59.229A ",.03)
 ;;30
 ;;9002226.02101,"873,S59.231A ",.01)
 ;;S59.231A
 ;;9002226.02101,"873,S59.231A ",.02)
 ;;S59.231A
 ;;9002226.02101,"873,S59.231A ",.03)
 ;;30
 ;;9002226.02101,"873,S59.232A ",.01)
 ;;S59.232A
 ;;9002226.02101,"873,S59.232A ",.02)
 ;;S59.232A
 ;;9002226.02101,"873,S59.232A ",.03)
 ;;30
 ;;9002226.02101,"873,S59.239A ",.01)
 ;;S59.239A
 ;;9002226.02101,"873,S59.239A ",.02)
 ;;S59.239A
 ;;9002226.02101,"873,S59.239A ",.03)
 ;;30
 ;;9002226.02101,"873,S59.241A ",.01)
 ;;S59.241A
 ;;9002226.02101,"873,S59.241A ",.02)
 ;;S59.241A
 ;;9002226.02101,"873,S59.241A ",.03)
 ;;30
 ;;9002226.02101,"873,S59.242A ",.01)
 ;;S59.242A
 ;;9002226.02101,"873,S59.242A ",.02)
 ;;S59.242A
 ;;9002226.02101,"873,S59.242A ",.03)
 ;;30
 ;;9002226.02101,"873,S59.249A ",.01)
 ;;S59.249A
 ;;9002226.02101,"873,S59.249A ",.02)
 ;;S59.249A
 ;;9002226.02101,"873,S59.249A ",.03)
 ;;30
 ;;9002226.02101,"873,S59.291A ",.01)
 ;;S59.291A
 ;;9002226.02101,"873,S59.291A ",.02)
 ;;S59.291A
 ;;9002226.02101,"873,S59.291A ",.03)
 ;;30
 ;;9002226.02101,"873,S59.292A ",.01)
 ;;S59.292A
 ;;9002226.02101,"873,S59.292A ",.02)
 ;;S59.292A
 ;;9002226.02101,"873,S59.292A ",.03)
 ;;30
 ;;9002226.02101,"873,S59.299A ",.01)
 ;;S59.299A
 ;;9002226.02101,"873,S59.299A ",.02)
 ;;S59.299A
 ;;9002226.02101,"873,S59.299A ",.03)
 ;;30
 ;;9002226.02101,"873,S59.801A ",.01)
 ;;S59.801A
 ;;9002226.02101,"873,S59.801A ",.02)
 ;;S59.801A
 ;;9002226.02101,"873,S59.801A ",.03)
 ;;30
 ;;9002226.02101,"873,S59.802A ",.01)
 ;;S59.802A
 ;;9002226.02101,"873,S59.802A ",.02)
 ;;S59.802A
 ;;9002226.02101,"873,S59.802A ",.03)
 ;;30
 ;;9002226.02101,"873,S59.809A ",.01)
 ;;S59.809A
 ;;9002226.02101,"873,S59.809A ",.02)
 ;;S59.809A
 ;;9002226.02101,"873,S59.809A ",.03)
 ;;30
 ;;9002226.02101,"873,S59.811A ",.01)
 ;;S59.811A
 ;;9002226.02101,"873,S59.811A ",.02)
 ;;S59.811A
 ;;9002226.02101,"873,S59.811A ",.03)
 ;;30
 ;;9002226.02101,"873,S59.812A ",.01)
 ;;S59.812A
 ;;9002226.02101,"873,S59.812A ",.02)
 ;;S59.812A
 ;;9002226.02101,"873,S59.812A ",.03)
 ;;30
 ;;9002226.02101,"873,S59.819A ",.01)
 ;;S59.819A
 ;;9002226.02101,"873,S59.819A ",.02)
 ;;S59.819A
 ;;9002226.02101,"873,S59.819A ",.03)
 ;;30
 ;;9002226.02101,"873,S59.901A ",.01)
 ;;S59.901A
 ;;9002226.02101,"873,S59.901A ",.02)
 ;;S59.901A
 ;;9002226.02101,"873,S59.901A ",.03)
 ;;30
 ;;9002226.02101,"873,S59.902A ",.01)
 ;;S59.902A
 ;;9002226.02101,"873,S59.902A ",.02)
 ;;S59.902A
 ;;9002226.02101,"873,S59.902A ",.03)
 ;;30
 ;;9002226.02101,"873,S59.909A ",.01)
 ;;S59.909A
 ;;9002226.02101,"873,S59.909A ",.02)
 ;;S59.909A
 ;;9002226.02101,"873,S59.909A ",.03)
 ;;30
 ;;9002226.02101,"873,S59.911A ",.01)
 ;;S59.911A
 ;;9002226.02101,"873,S59.911A ",.02)
 ;;S59.911A
 ;;9002226.02101,"873,S59.911A ",.03)
 ;;30
 ;;9002226.02101,"873,S59.912A ",.01)
 ;;S59.912A
 ;;9002226.02101,"873,S59.912A ",.02)
 ;;S59.912A
 ;;9002226.02101,"873,S59.912A ",.03)
 ;;30
 ;;9002226.02101,"873,S59.919A ",.01)
 ;;S59.919A
 ;;9002226.02101,"873,S59.919A ",.02)
 ;;S59.919A
 ;;9002226.02101,"873,S59.919A ",.03)
 ;;30
 ;;9002226.02101,"873,S60.00XA ",.01)
 ;;S60.00XA
 ;;9002226.02101,"873,S60.00XA ",.02)
 ;;S60.00XA
 ;;9002226.02101,"873,S60.00XA ",.03)
 ;;30
 ;;9002226.02101,"873,S60.011A ",.01)
 ;;S60.011A
 ;;9002226.02101,"873,S60.011A ",.02)
 ;;S60.011A
 ;;9002226.02101,"873,S60.011A ",.03)
 ;;30
 ;;9002226.02101,"873,S60.012A ",.01)
 ;;S60.012A
 ;;9002226.02101,"873,S60.012A ",.02)
 ;;S60.012A
 ;;9002226.02101,"873,S60.012A ",.03)
 ;;30
 ;;9002226.02101,"873,S60.019A ",.01)
 ;;S60.019A
 ;;9002226.02101,"873,S60.019A ",.02)
 ;;S60.019A
 ;;9002226.02101,"873,S60.019A ",.03)
 ;;30
 ;;9002226.02101,"873,S60.021A ",.01)
 ;;S60.021A
 ;;9002226.02101,"873,S60.021A ",.02)
 ;;S60.021A
 ;;9002226.02101,"873,S60.021A ",.03)
 ;;30
 ;;9002226.02101,"873,S60.022A ",.01)
 ;;S60.022A
 ;;9002226.02101,"873,S60.022A ",.02)
 ;;S60.022A
 ;;9002226.02101,"873,S60.022A ",.03)
 ;;30
 ;;9002226.02101,"873,S60.029A ",.01)
 ;;S60.029A
 ;;9002226.02101,"873,S60.029A ",.02)
 ;;S60.029A
 ;;9002226.02101,"873,S60.029A ",.03)
 ;;30
 ;;9002226.02101,"873,S60.031A ",.01)
 ;;S60.031A
 ;;9002226.02101,"873,S60.031A ",.02)
 ;;S60.031A
 ;;9002226.02101,"873,S60.031A ",.03)
 ;;30
 ;;9002226.02101,"873,S60.032A ",.01)
 ;;S60.032A
 ;;9002226.02101,"873,S60.032A ",.02)
 ;;S60.032A
 ;;9002226.02101,"873,S60.032A ",.03)
 ;;30