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

ATXD5Q4.m

Go to the documentation of this file.
ATXD5Q4 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON NOV 12, 2013;
 ;;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,"170,T38.891A ",.03)
 ;;30
 ;;9002226.02101,"170,T38.891D ",.01)
 ;;T38.891D 
 ;;9002226.02101,"170,T38.891D ",.02)
 ;;T38.891D 
 ;;9002226.02101,"170,T38.891D ",.03)
 ;;30
 ;;9002226.02101,"170,T38.891S ",.01)
 ;;T38.891S 
 ;;9002226.02101,"170,T38.891S ",.02)
 ;;T38.891S 
 ;;9002226.02101,"170,T38.891S ",.03)
 ;;30
 ;;9002226.02101,"170,T38.901A ",.01)
 ;;T38.901A 
 ;;9002226.02101,"170,T38.901A ",.02)
 ;;T38.901A 
 ;;9002226.02101,"170,T38.901A ",.03)
 ;;30
 ;;9002226.02101,"170,T38.901D ",.01)
 ;;T38.901D 
 ;;9002226.02101,"170,T38.901D ",.02)
 ;;T38.901D 
 ;;9002226.02101,"170,T38.901D ",.03)
 ;;30
 ;;9002226.02101,"170,T38.901S ",.01)
 ;;T38.901S 
 ;;9002226.02101,"170,T38.901S ",.02)
 ;;T38.901S 
 ;;9002226.02101,"170,T38.901S ",.03)
 ;;30
 ;;9002226.02101,"170,T38.991A ",.01)
 ;;T38.991A 
 ;;9002226.02101,"170,T38.991A ",.02)
 ;;T38.991A 
 ;;9002226.02101,"170,T38.991A ",.03)
 ;;30
 ;;9002226.02101,"170,T38.991D ",.01)
 ;;T38.991D 
 ;;9002226.02101,"170,T38.991D ",.02)
 ;;T38.991D 
 ;;9002226.02101,"170,T38.991D ",.03)
 ;;30
 ;;9002226.02101,"170,T38.991S ",.01)
 ;;T38.991S 
 ;;9002226.02101,"170,T38.991S ",.02)
 ;;T38.991S 
 ;;9002226.02101,"170,T38.991S ",.03)
 ;;30
 ;;9002226.02101,"170,T39.011A ",.01)
 ;;T39.011A 
 ;;9002226.02101,"170,T39.011A ",.02)
 ;;T39.011A 
 ;;9002226.02101,"170,T39.011A ",.03)
 ;;30
 ;;9002226.02101,"170,T39.011D ",.01)
 ;;T39.011D 
 ;;9002226.02101,"170,T39.011D ",.02)
 ;;T39.011D 
 ;;9002226.02101,"170,T39.011D ",.03)
 ;;30
 ;;9002226.02101,"170,T39.011S ",.01)
 ;;T39.011S 
 ;;9002226.02101,"170,T39.011S ",.02)
 ;;T39.011S 
 ;;9002226.02101,"170,T39.011S ",.03)
 ;;30
 ;;9002226.02101,"170,T39.091A ",.01)
 ;;T39.091A 
 ;;9002226.02101,"170,T39.091A ",.02)
 ;;T39.091A 
 ;;9002226.02101,"170,T39.091A ",.03)
 ;;30
 ;;9002226.02101,"170,T39.091D ",.01)
 ;;T39.091D 
 ;;9002226.02101,"170,T39.091D ",.02)
 ;;T39.091D 
 ;;9002226.02101,"170,T39.091D ",.03)
 ;;30
 ;;9002226.02101,"170,T39.091S ",.01)
 ;;T39.091S 
 ;;9002226.02101,"170,T39.091S ",.02)
 ;;T39.091S 
 ;;9002226.02101,"170,T39.091S ",.03)
 ;;30
 ;;9002226.02101,"170,T39.1X1A ",.01)
 ;;T39.1X1A 
 ;;9002226.02101,"170,T39.1X1A ",.02)
 ;;T39.1X1A 
 ;;9002226.02101,"170,T39.1X1A ",.03)
 ;;30
 ;;9002226.02101,"170,T39.1X1D ",.01)
 ;;T39.1X1D 
 ;;9002226.02101,"170,T39.1X1D ",.02)
 ;;T39.1X1D 
 ;;9002226.02101,"170,T39.1X1D ",.03)
 ;;30
 ;;9002226.02101,"170,T39.1X1S ",.01)
 ;;T39.1X1S 
 ;;9002226.02101,"170,T39.1X1S ",.02)
 ;;T39.1X1S 
 ;;9002226.02101,"170,T39.1X1S ",.03)
 ;;30
 ;;9002226.02101,"170,T39.2X1A ",.01)
 ;;T39.2X1A 
 ;;9002226.02101,"170,T39.2X1A ",.02)
 ;;T39.2X1A 
 ;;9002226.02101,"170,T39.2X1A ",.03)
 ;;30
 ;;9002226.02101,"170,T39.2X1D ",.01)
 ;;T39.2X1D 
 ;;9002226.02101,"170,T39.2X1D ",.02)
 ;;T39.2X1D 
 ;;9002226.02101,"170,T39.2X1D ",.03)
 ;;30
 ;;9002226.02101,"170,T39.2X1S ",.01)
 ;;T39.2X1S 
 ;;9002226.02101,"170,T39.2X1S ",.02)
 ;;T39.2X1S 
 ;;9002226.02101,"170,T39.2X1S ",.03)
 ;;30
 ;;9002226.02101,"170,T39.311A ",.01)
 ;;T39.311A 
 ;;9002226.02101,"170,T39.311A ",.02)
 ;;T39.311A 
 ;;9002226.02101,"170,T39.311A ",.03)
 ;;30
 ;;9002226.02101,"170,T39.311D ",.01)
 ;;T39.311D 
 ;;9002226.02101,"170,T39.311D ",.02)
 ;;T39.311D 
 ;;9002226.02101,"170,T39.311D ",.03)
 ;;30
 ;;9002226.02101,"170,T39.311S ",.01)
 ;;T39.311S 
 ;;9002226.02101,"170,T39.311S ",.02)
 ;;T39.311S 
 ;;9002226.02101,"170,T39.311S ",.03)
 ;;30
 ;;9002226.02101,"170,T39.391A ",.01)
 ;;T39.391A 
 ;;9002226.02101,"170,T39.391A ",.02)
 ;;T39.391A 
 ;;9002226.02101,"170,T39.391A ",.03)
 ;;30
 ;;9002226.02101,"170,T39.391D ",.01)
 ;;T39.391D 
 ;;9002226.02101,"170,T39.391D ",.02)
 ;;T39.391D 
 ;;9002226.02101,"170,T39.391D ",.03)
 ;;30
 ;;9002226.02101,"170,T39.391S ",.01)
 ;;T39.391S 
 ;;9002226.02101,"170,T39.391S ",.02)
 ;;T39.391S 
 ;;9002226.02101,"170,T39.391S ",.03)
 ;;30
 ;;9002226.02101,"170,T39.4X1A ",.01)
 ;;T39.4X1A 
 ;;9002226.02101,"170,T39.4X1A ",.02)
 ;;T39.4X1A 
 ;;9002226.02101,"170,T39.4X1A ",.03)
 ;;30
 ;;9002226.02101,"170,T39.4X1D ",.01)
 ;;T39.4X1D 
 ;;9002226.02101,"170,T39.4X1D ",.02)
 ;;T39.4X1D 
 ;;9002226.02101,"170,T39.4X1D ",.03)
 ;;30
 ;;9002226.02101,"170,T39.4X1S ",.01)
 ;;T39.4X1S 
 ;;9002226.02101,"170,T39.4X1S ",.02)
 ;;T39.4X1S 
 ;;9002226.02101,"170,T39.4X1S ",.03)
 ;;30
 ;;9002226.02101,"170,T39.8X1A ",.01)
 ;;T39.8X1A 
 ;;9002226.02101,"170,T39.8X1A ",.02)
 ;;T39.8X1A 
 ;;9002226.02101,"170,T39.8X1A ",.03)
 ;;30
 ;;9002226.02101,"170,T39.8X1D ",.01)
 ;;T39.8X1D 
 ;;9002226.02101,"170,T39.8X1D ",.02)
 ;;T39.8X1D 
 ;;9002226.02101,"170,T39.8X1D ",.03)
 ;;30
 ;;9002226.02101,"170,T39.8X1S ",.01)
 ;;T39.8X1S 
 ;;9002226.02101,"170,T39.8X1S ",.02)
 ;;T39.8X1S 
 ;;9002226.02101,"170,T39.8X1S ",.03)
 ;;30
 ;;9002226.02101,"170,T39.91XA ",.01)
 ;;T39.91XA 
 ;;9002226.02101,"170,T39.91XA ",.02)
 ;;T39.91XA 
 ;;9002226.02101,"170,T39.91XA ",.03)
 ;;30
 ;;9002226.02101,"170,T39.91XD ",.01)
 ;;T39.91XD 
 ;;9002226.02101,"170,T39.91XD ",.02)
 ;;T39.91XD 
 ;;9002226.02101,"170,T39.91XD ",.03)
 ;;30
 ;;9002226.02101,"170,T39.91XS ",.01)
 ;;T39.91XS 
 ;;9002226.02101,"170,T39.91XS ",.02)
 ;;T39.91XS 
 ;;9002226.02101,"170,T39.91XS ",.03)
 ;;30
 ;;9002226.02101,"170,T40.0X1A ",.01)
 ;;T40.0X1A 
 ;;9002226.02101,"170,T40.0X1A ",.02)
 ;;T40.0X1A 
 ;;9002226.02101,"170,T40.0X1A ",.03)
 ;;30
 ;;9002226.02101,"170,T40.0X1D ",.01)
 ;;T40.0X1D 
 ;;9002226.02101,"170,T40.0X1D ",.02)
 ;;T40.0X1D 
 ;;9002226.02101,"170,T40.0X1D ",.03)
 ;;30
 ;;9002226.02101,"170,T40.0X1S ",.01)
 ;;T40.0X1S 
 ;;9002226.02101,"170,T40.0X1S ",.02)
 ;;T40.0X1S 
 ;;9002226.02101,"170,T40.0X1S ",.03)
 ;;30
 ;;9002226.02101,"170,T40.1X1A ",.01)
 ;;T40.1X1A 
 ;;9002226.02101,"170,T40.1X1A ",.02)
 ;;T40.1X1A 
 ;;9002226.02101,"170,T40.1X1A ",.03)
 ;;30
 ;;9002226.02101,"170,T40.1X1D ",.01)
 ;;T40.1X1D 
 ;;9002226.02101,"170,T40.1X1D ",.02)
 ;;T40.1X1D 
 ;;9002226.02101,"170,T40.1X1D ",.03)
 ;;30
 ;;9002226.02101,"170,T40.1X1S ",.01)
 ;;T40.1X1S 
 ;;9002226.02101,"170,T40.1X1S ",.02)
 ;;T40.1X1S 
 ;;9002226.02101,"170,T40.1X1S ",.03)
 ;;30
 ;;9002226.02101,"170,T40.2X1A ",.01)
 ;;T40.2X1A 
 ;;9002226.02101,"170,T40.2X1A ",.02)
 ;;T40.2X1A 
 ;;9002226.02101,"170,T40.2X1A ",.03)
 ;;30
 ;;9002226.02101,"170,T40.2X1D ",.01)
 ;;T40.2X1D 
 ;;9002226.02101,"170,T40.2X1D ",.02)
 ;;T40.2X1D 
 ;;9002226.02101,"170,T40.2X1D ",.03)
 ;;30
 ;;9002226.02101,"170,T40.2X1S ",.01)
 ;;T40.2X1S 
 ;;9002226.02101,"170,T40.2X1S ",.02)
 ;;T40.2X1S 
 ;;9002226.02101,"170,T40.2X1S ",.03)
 ;;30
 ;;9002226.02101,"170,T40.3X1A ",.01)
 ;;T40.3X1A 
 ;;9002226.02101,"170,T40.3X1A ",.02)
 ;;T40.3X1A 
 ;;9002226.02101,"170,T40.3X1A ",.03)
 ;;30
 ;;9002226.02101,"170,T40.3X1D ",.01)
 ;;T40.3X1D 
 ;;9002226.02101,"170,T40.3X1D ",.02)
 ;;T40.3X1D 
 ;;9002226.02101,"170,T40.3X1D ",.03)
 ;;30
 ;;9002226.02101,"170,T40.3X1S ",.01)
 ;;T40.3X1S 
 ;;9002226.02101,"170,T40.3X1S ",.02)
 ;;T40.3X1S 
 ;;9002226.02101,"170,T40.3X1S ",.03)
 ;;30
 ;;9002226.02101,"170,T40.4X1A ",.01)
 ;;T40.4X1A 
 ;;9002226.02101,"170,T40.4X1A ",.02)
 ;;T40.4X1A 
 ;;9002226.02101,"170,T40.4X1A ",.03)
 ;;30
 ;;9002226.02101,"170,T40.4X1D ",.01)
 ;;T40.4X1D 
 ;;9002226.02101,"170,T40.4X1D ",.02)
 ;;T40.4X1D 
 ;;9002226.02101,"170,T40.4X1D ",.03)
 ;;30
 ;;9002226.02101,"170,T40.4X1S ",.01)
 ;;T40.4X1S 
 ;;9002226.02101,"170,T40.4X1S ",.02)
 ;;T40.4X1S 
 ;;9002226.02101,"170,T40.4X1S ",.03)
 ;;30
 ;;9002226.02101,"170,T40.5X1A ",.01)
 ;;T40.5X1A 
 ;;9002226.02101,"170,T40.5X1A ",.02)
 ;;T40.5X1A 
 ;;9002226.02101,"170,T40.5X1A ",.03)
 ;;30
 ;;9002226.02101,"170,T40.5X1D ",.01)
 ;;T40.5X1D 
 ;;9002226.02101,"170,T40.5X1D ",.02)
 ;;T40.5X1D 
 ;;9002226.02101,"170,T40.5X1D ",.03)
 ;;30
 ;;9002226.02101,"170,T40.5X1S ",.01)
 ;;T40.5X1S 
 ;;9002226.02101,"170,T40.5X1S ",.02)
 ;;T40.5X1S 
 ;;9002226.02101,"170,T40.5X1S ",.03)
 ;;30
 ;;9002226.02101,"170,T40.601A ",.01)
 ;;T40.601A 
 ;;9002226.02101,"170,T40.601A ",.02)
 ;;T40.601A 
 ;;9002226.02101,"170,T40.601A ",.03)
 ;;30
 ;;9002226.02101,"170,T40.601D ",.01)
 ;;T40.601D 
 ;;9002226.02101,"170,T40.601D ",.02)
 ;;T40.601D 
 ;;9002226.02101,"170,T40.601D ",.03)
 ;;30
 ;;9002226.02101,"170,T40.601S ",.01)
 ;;T40.601S 
 ;;9002226.02101,"170,T40.601S ",.02)
 ;;T40.601S 
 ;;9002226.02101,"170,T40.601S ",.03)
 ;;30
 ;;9002226.02101,"170,T40.691A ",.01)
 ;;T40.691A 
 ;;9002226.02101,"170,T40.691A ",.02)
 ;;T40.691A 
 ;;9002226.02101,"170,T40.691A ",.03)
 ;;30
 ;;9002226.02101,"170,T40.691D ",.01)
 ;;T40.691D 
 ;;9002226.02101,"170,T40.691D ",.02)
 ;;T40.691D 
 ;;9002226.02101,"170,T40.691D ",.03)
 ;;30
 ;;9002226.02101,"170,T40.691S ",.01)
 ;;T40.691S 
 ;;9002226.02101,"170,T40.691S ",.02)
 ;;T40.691S 
 ;;9002226.02101,"170,T40.691S ",.03)
 ;;30
 ;;9002226.02101,"170,T40.7X1A ",.01)
 ;;T40.7X1A 
 ;;9002226.02101,"170,T40.7X1A ",.02)
 ;;T40.7X1A 
 ;;9002226.02101,"170,T40.7X1A ",.03)
 ;;30
 ;;9002226.02101,"170,T40.7X1D ",.01)
 ;;T40.7X1D 
 ;;9002226.02101,"170,T40.7X1D ",.02)
 ;;T40.7X1D 
 ;;9002226.02101,"170,T40.7X1D ",.03)
 ;;30
 ;;9002226.02101,"170,T40.7X1S ",.01)
 ;;T40.7X1S 
 ;;9002226.02101,"170,T40.7X1S ",.02)
 ;;T40.7X1S 
 ;;9002226.02101,"170,T40.7X1S ",.03)
 ;;30
 ;;9002226.02101,"170,T40.8X1A ",.01)
 ;;T40.8X1A 
 ;;9002226.02101,"170,T40.8X1A ",.02)
 ;;T40.8X1A 
 ;;9002226.02101,"170,T40.8X1A ",.03)
 ;;30
 ;;9002226.02101,"170,T40.8X1D ",.01)
 ;;T40.8X1D 
 ;;9002226.02101,"170,T40.8X1D ",.02)
 ;;T40.8X1D 
 ;;9002226.02101,"170,T40.8X1D ",.03)
 ;;30
 ;;9002226.02101,"170,T40.8X1S ",.01)
 ;;T40.8X1S 
 ;;9002226.02101,"170,T40.8X1S ",.02)
 ;;T40.8X1S 
 ;;9002226.02101,"170,T40.8X1S ",.03)
 ;;30
 ;;9002226.02101,"170,T40.901A ",.01)
 ;;T40.901A 
 ;;9002226.02101,"170,T40.901A ",.02)
 ;;T40.901A 
 ;;9002226.02101,"170,T40.901A ",.03)
 ;;30
 ;;9002226.02101,"170,T40.901D ",.01)
 ;;T40.901D 
 ;;9002226.02101,"170,T40.901D ",.02)
 ;;T40.901D 
 ;;9002226.02101,"170,T40.901D ",.03)
 ;;30
 ;;9002226.02101,"170,T40.901S ",.01)
 ;;T40.901S 
 ;;9002226.02101,"170,T40.901S ",.02)
 ;;T40.901S 
 ;;9002226.02101,"170,T40.901S ",.03)
 ;;30
 ;;9002226.02101,"170,T40.991A ",.01)
 ;;T40.991A 
 ;;9002226.02101,"170,T40.991A ",.02)
 ;;T40.991A 
 ;;9002226.02101,"170,T40.991A ",.03)
 ;;30
 ;;9002226.02101,"170,T40.991D ",.01)
 ;;T40.991D 
 ;;9002226.02101,"170,T40.991D ",.02)
 ;;T40.991D 
 ;;9002226.02101,"170,T40.991D ",.03)
 ;;30
 ;;9002226.02101,"170,T40.991S ",.01)
 ;;T40.991S 
 ;;9002226.02101,"170,T40.991S ",.02)
 ;;T40.991S 
 ;;9002226.02101,"170,T40.991S ",.03)
 ;;30
 ;;9002226.02101,"170,T41.0X1A ",.01)
 ;;T41.0X1A 
 ;;9002226.02101,"170,T41.0X1A ",.02)
 ;;T41.0X1A 
 ;;9002226.02101,"170,T41.0X1A ",.03)
 ;;30
 ;;9002226.02101,"170,T41.0X1D ",.01)
 ;;T41.0X1D 
 ;;9002226.02101,"170,T41.0X1D ",.02)
 ;;T41.0X1D 
 ;;9002226.02101,"170,T41.0X1D ",.03)
 ;;30
 ;;9002226.02101,"170,T41.0X1S ",.01)
 ;;T41.0X1S 
 ;;9002226.02101,"170,T41.0X1S ",.02)
 ;;T41.0X1S 
 ;;9002226.02101,"170,T41.0X1S ",.03)
 ;;30
 ;;9002226.02101,"170,T41.1X1A ",.01)
 ;;T41.1X1A 
 ;;9002226.02101,"170,T41.1X1A ",.02)
 ;;T41.1X1A 
 ;;9002226.02101,"170,T41.1X1A ",.03)
 ;;30
 ;;9002226.02101,"170,T41.1X1D ",.01)
 ;;T41.1X1D 
 ;;9002226.02101,"170,T41.1X1D ",.02)
 ;;T41.1X1D 
 ;;9002226.02101,"170,T41.1X1D ",.03)
 ;;30
 ;;9002226.02101,"170,T41.1X1S ",.01)
 ;;T41.1X1S 
 ;;9002226.02101,"170,T41.1X1S ",.02)
 ;;T41.1X1S 
 ;;9002226.02101,"170,T41.1X1S ",.03)
 ;;30
 ;;9002226.02101,"170,T41.201A ",.01)
 ;;T41.201A 
 ;;9002226.02101,"170,T41.201A ",.02)
 ;;T41.201A 
 ;;9002226.02101,"170,T41.201A ",.03)
 ;;30
 ;;9002226.02101,"170,T41.201D ",.01)
 ;;T41.201D 
 ;;9002226.02101,"170,T41.201D ",.02)
 ;;T41.201D 
 ;;9002226.02101,"170,T41.201D ",.03)
 ;;30
 ;;9002226.02101,"170,T41.201S ",.01)
 ;;T41.201S 
 ;;9002226.02101,"170,T41.201S ",.02)
 ;;T41.201S 
 ;;9002226.02101,"170,T41.201S ",.03)
 ;;30
 ;;9002226.02101,"170,T41.291A ",.01)
 ;;T41.291A 
 ;;9002226.02101,"170,T41.291A ",.02)
 ;;T41.291A 
 ;;9002226.02101,"170,T41.291A ",.03)
 ;;30
 ;;9002226.02101,"170,T41.291D ",.01)
 ;;T41.291D 
 ;;9002226.02101,"170,T41.291D ",.02)
 ;;T41.291D 
 ;;9002226.02101,"170,T41.291D ",.03)
 ;;30
 ;;9002226.02101,"170,T41.291S ",.01)
 ;;T41.291S 
 ;;9002226.02101,"170,T41.291S ",.02)
 ;;T41.291S 
 ;;9002226.02101,"170,T41.291S ",.03)
 ;;30
 ;;9002226.02101,"170,T41.3X1A ",.01)
 ;;T41.3X1A 
 ;;9002226.02101,"170,T41.3X1A ",.02)
 ;;T41.3X1A 
 ;;9002226.02101,"170,T41.3X1A ",.03)
 ;;30
 ;;9002226.02101,"170,T41.3X1D ",.01)
 ;;T41.3X1D 
 ;;9002226.02101,"170,T41.3X1D ",.02)
 ;;T41.3X1D 
 ;;9002226.02101,"170,T41.3X1D ",.03)
 ;;30
 ;;9002226.02101,"170,T41.3X1S ",.01)
 ;;T41.3X1S 
 ;;9002226.02101,"170,T41.3X1S ",.02)
 ;;T41.3X1S 
 ;;9002226.02101,"170,T41.3X1S ",.03)
 ;;30
 ;;9002226.02101,"170,T41.41XA ",.01)
 ;;T41.41XA 
 ;;9002226.02101,"170,T41.41XA ",.02)
 ;;T41.41XA 
 ;;9002226.02101,"170,T41.41XA ",.03)
 ;;30
 ;;9002226.02101,"170,T41.41XD ",.01)
 ;;T41.41XD 
 ;;9002226.02101,"170,T41.41XD ",.02)
 ;;T41.41XD 
 ;;9002226.02101,"170,T41.41XD ",.03)
 ;;30
 ;;9002226.02101,"170,T41.41XS ",.01)
 ;;T41.41XS 
 ;;9002226.02101,"170,T41.41XS ",.02)
 ;;T41.41XS 
 ;;9002226.02101,"170,T41.41XS ",.03)
 ;;30
 ;;9002226.02101,"170,T41.5X1A ",.01)
 ;;T41.5X1A