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

ATXD6W3.m

Go to the documentation of this file.
ATXD6W3 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 17, 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,"480,A50.08 ",.02)
 ;;A50.08 
 ;;9002226.02101,"480,A50.08 ",.03)
 ;;30
 ;;9002226.02101,"480,A50.09 ",.01)
 ;;A50.09 
 ;;9002226.02101,"480,A50.09 ",.02)
 ;;A50.09 
 ;;9002226.02101,"480,A50.09 ",.03)
 ;;30
 ;;9002226.02101,"480,A50.1 ",.01)
 ;;A50.1 
 ;;9002226.02101,"480,A50.1 ",.02)
 ;;A50.1 
 ;;9002226.02101,"480,A50.1 ",.03)
 ;;30
 ;;9002226.02101,"480,A50.2 ",.01)
 ;;A50.2 
 ;;9002226.02101,"480,A50.2 ",.02)
 ;;A50.2 
 ;;9002226.02101,"480,A50.2 ",.03)
 ;;30
 ;;9002226.02101,"480,A50.30 ",.01)
 ;;A50.30 
 ;;9002226.02101,"480,A50.30 ",.02)
 ;;A50.30 
 ;;9002226.02101,"480,A50.30 ",.03)
 ;;30
 ;;9002226.02101,"480,A50.31 ",.01)
 ;;A50.31 
 ;;9002226.02101,"480,A50.31 ",.02)
 ;;A50.31 
 ;;9002226.02101,"480,A50.31 ",.03)
 ;;30
 ;;9002226.02101,"480,A50.32 ",.01)
 ;;A50.32 
 ;;9002226.02101,"480,A50.32 ",.02)
 ;;A50.32 
 ;;9002226.02101,"480,A50.32 ",.03)
 ;;30
 ;;9002226.02101,"480,A50.39 ",.01)
 ;;A50.39 
 ;;9002226.02101,"480,A50.39 ",.02)
 ;;A50.39 
 ;;9002226.02101,"480,A50.39 ",.03)
 ;;30
 ;;9002226.02101,"480,A50.40 ",.01)
 ;;A50.40 
 ;;9002226.02101,"480,A50.40 ",.02)
 ;;A50.40 
 ;;9002226.02101,"480,A50.40 ",.03)
 ;;30
 ;;9002226.02101,"480,A50.41 ",.01)
 ;;A50.41 
 ;;9002226.02101,"480,A50.41 ",.02)
 ;;A50.41 
 ;;9002226.02101,"480,A50.41 ",.03)
 ;;30
 ;;9002226.02101,"480,A50.42 ",.01)
 ;;A50.42 
 ;;9002226.02101,"480,A50.42 ",.02)
 ;;A50.42 
 ;;9002226.02101,"480,A50.42 ",.03)
 ;;30
 ;;9002226.02101,"480,A50.43 ",.01)
 ;;A50.43 
 ;;9002226.02101,"480,A50.43 ",.02)
 ;;A50.43 
 ;;9002226.02101,"480,A50.43 ",.03)
 ;;30
 ;;9002226.02101,"480,A50.44 ",.01)
 ;;A50.44 
 ;;9002226.02101,"480,A50.44 ",.02)
 ;;A50.44 
 ;;9002226.02101,"480,A50.44 ",.03)
 ;;30
 ;;9002226.02101,"480,A50.45 ",.01)
 ;;A50.45 
 ;;9002226.02101,"480,A50.45 ",.02)
 ;;A50.45 
 ;;9002226.02101,"480,A50.45 ",.03)
 ;;30
 ;;9002226.02101,"480,A50.49 ",.01)
 ;;A50.49 
 ;;9002226.02101,"480,A50.49 ",.02)
 ;;A50.49 
 ;;9002226.02101,"480,A50.49 ",.03)
 ;;30
 ;;9002226.02101,"480,A50.51 ",.01)
 ;;A50.51 
 ;;9002226.02101,"480,A50.51 ",.02)
 ;;A50.51 
 ;;9002226.02101,"480,A50.51 ",.03)
 ;;30
 ;;9002226.02101,"480,A50.52 ",.01)
 ;;A50.52 
 ;;9002226.02101,"480,A50.52 ",.02)
 ;;A50.52 
 ;;9002226.02101,"480,A50.52 ",.03)
 ;;30
 ;;9002226.02101,"480,A50.53 ",.01)
 ;;A50.53 
 ;;9002226.02101,"480,A50.53 ",.02)
 ;;A50.53 
 ;;9002226.02101,"480,A50.53 ",.03)
 ;;30
 ;;9002226.02101,"480,A50.54 ",.01)
 ;;A50.54 
 ;;9002226.02101,"480,A50.54 ",.02)
 ;;A50.54 
 ;;9002226.02101,"480,A50.54 ",.03)
 ;;30
 ;;9002226.02101,"480,A50.55 ",.01)
 ;;A50.55 
 ;;9002226.02101,"480,A50.55 ",.02)
 ;;A50.55 
 ;;9002226.02101,"480,A50.55 ",.03)
 ;;30
 ;;9002226.02101,"480,A50.56 ",.01)
 ;;A50.56 
 ;;9002226.02101,"480,A50.56 ",.02)
 ;;A50.56 
 ;;9002226.02101,"480,A50.56 ",.03)
 ;;30
 ;;9002226.02101,"480,A50.57 ",.01)
 ;;A50.57 
 ;;9002226.02101,"480,A50.57 ",.02)
 ;;A50.57 
 ;;9002226.02101,"480,A50.57 ",.03)
 ;;30
 ;;9002226.02101,"480,A50.59 ",.01)
 ;;A50.59 
 ;;9002226.02101,"480,A50.59 ",.02)
 ;;A50.59 
 ;;9002226.02101,"480,A50.59 ",.03)
 ;;30
 ;;9002226.02101,"480,A50.6 ",.01)
 ;;A50.6 
 ;;9002226.02101,"480,A50.6 ",.02)
 ;;A50.6 
 ;;9002226.02101,"480,A50.6 ",.03)
 ;;30
 ;;9002226.02101,"480,A50.7 ",.01)
 ;;A50.7 
 ;;9002226.02101,"480,A50.7 ",.02)
 ;;A50.7 
 ;;9002226.02101,"480,A50.7 ",.03)
 ;;30
 ;;9002226.02101,"480,A50.9 ",.01)
 ;;A50.9 
 ;;9002226.02101,"480,A50.9 ",.02)
 ;;A50.9 
 ;;9002226.02101,"480,A50.9 ",.03)
 ;;30
 ;;9002226.02101,"480,A51.0 ",.01)
 ;;A51.0 
 ;;9002226.02101,"480,A51.0 ",.02)
 ;;A51.0 
 ;;9002226.02101,"480,A51.0 ",.03)
 ;;30
 ;;9002226.02101,"480,A51.1 ",.01)
 ;;A51.1 
 ;;9002226.02101,"480,A51.1 ",.02)
 ;;A51.1 
 ;;9002226.02101,"480,A51.1 ",.03)
 ;;30
 ;;9002226.02101,"480,A51.2 ",.01)
 ;;A51.2 
 ;;9002226.02101,"480,A51.2 ",.02)
 ;;A51.2 
 ;;9002226.02101,"480,A51.2 ",.03)
 ;;30
 ;;9002226.02101,"480,A51.31 ",.01)
 ;;A51.31 
 ;;9002226.02101,"480,A51.31 ",.02)
 ;;A51.31 
 ;;9002226.02101,"480,A51.31 ",.03)
 ;;30
 ;;9002226.02101,"480,A51.32 ",.01)
 ;;A51.32 
 ;;9002226.02101,"480,A51.32 ",.02)
 ;;A51.32 
 ;;9002226.02101,"480,A51.32 ",.03)
 ;;30
 ;;9002226.02101,"480,A51.39 ",.01)
 ;;A51.39 
 ;;9002226.02101,"480,A51.39 ",.02)
 ;;A51.39 
 ;;9002226.02101,"480,A51.39 ",.03)
 ;;30
 ;;9002226.02101,"480,A51.41 ",.01)
 ;;A51.41 
 ;;9002226.02101,"480,A51.41 ",.02)
 ;;A51.41 
 ;;9002226.02101,"480,A51.41 ",.03)
 ;;30
 ;;9002226.02101,"480,A51.42 ",.01)
 ;;A51.42 
 ;;9002226.02101,"480,A51.42 ",.02)
 ;;A51.42 
 ;;9002226.02101,"480,A51.42 ",.03)
 ;;30
 ;;9002226.02101,"480,A51.43 ",.01)
 ;;A51.43 
 ;;9002226.02101,"480,A51.43 ",.02)
 ;;A51.43 
 ;;9002226.02101,"480,A51.43 ",.03)
 ;;30
 ;;9002226.02101,"480,A51.44 ",.01)
 ;;A51.44 
 ;;9002226.02101,"480,A51.44 ",.02)
 ;;A51.44 
 ;;9002226.02101,"480,A51.44 ",.03)
 ;;30
 ;;9002226.02101,"480,A51.45 ",.01)
 ;;A51.45 
 ;;9002226.02101,"480,A51.45 ",.02)
 ;;A51.45 
 ;;9002226.02101,"480,A51.45 ",.03)
 ;;30
 ;;9002226.02101,"480,A51.46 ",.01)
 ;;A51.46 
 ;;9002226.02101,"480,A51.46 ",.02)
 ;;A51.46 
 ;;9002226.02101,"480,A51.46 ",.03)
 ;;30
 ;;9002226.02101,"480,A51.49 ",.01)
 ;;A51.49 
 ;;9002226.02101,"480,A51.49 ",.02)
 ;;A51.49 
 ;;9002226.02101,"480,A51.49 ",.03)
 ;;30
 ;;9002226.02101,"480,A51.5 ",.01)
 ;;A51.5 
 ;;9002226.02101,"480,A51.5 ",.02)
 ;;A51.5 
 ;;9002226.02101,"480,A51.5 ",.03)
 ;;30
 ;;9002226.02101,"480,A51.9 ",.01)
 ;;A51.9 
 ;;9002226.02101,"480,A51.9 ",.02)
 ;;A51.9 
 ;;9002226.02101,"480,A51.9 ",.03)
 ;;30
 ;;9002226.02101,"480,A52.00 ",.01)
 ;;A52.00 
 ;;9002226.02101,"480,A52.00 ",.02)
 ;;A52.00 
 ;;9002226.02101,"480,A52.00 ",.03)
 ;;30
 ;;9002226.02101,"480,A52.01 ",.01)
 ;;A52.01 
 ;;9002226.02101,"480,A52.01 ",.02)
 ;;A52.01 
 ;;9002226.02101,"480,A52.01 ",.03)
 ;;30
 ;;9002226.02101,"480,A52.02 ",.01)
 ;;A52.02 
 ;;9002226.02101,"480,A52.02 ",.02)
 ;;A52.02 
 ;;9002226.02101,"480,A52.02 ",.03)
 ;;30
 ;;9002226.02101,"480,A52.03 ",.01)
 ;;A52.03 
 ;;9002226.02101,"480,A52.03 ",.02)
 ;;A52.03 
 ;;9002226.02101,"480,A52.03 ",.03)
 ;;30
 ;;9002226.02101,"480,A52.04 ",.01)
 ;;A52.04 
 ;;9002226.02101,"480,A52.04 ",.02)
 ;;A52.04 
 ;;9002226.02101,"480,A52.04 ",.03)
 ;;30
 ;;9002226.02101,"480,A52.05 ",.01)
 ;;A52.05 
 ;;9002226.02101,"480,A52.05 ",.02)
 ;;A52.05 
 ;;9002226.02101,"480,A52.05 ",.03)
 ;;30
 ;;9002226.02101,"480,A52.06 ",.01)
 ;;A52.06 
 ;;9002226.02101,"480,A52.06 ",.02)
 ;;A52.06 
 ;;9002226.02101,"480,A52.06 ",.03)
 ;;30
 ;;9002226.02101,"480,A52.09 ",.01)
 ;;A52.09 
 ;;9002226.02101,"480,A52.09 ",.02)
 ;;A52.09 
 ;;9002226.02101,"480,A52.09 ",.03)
 ;;30
 ;;9002226.02101,"480,A52.10 ",.01)
 ;;A52.10 
 ;;9002226.02101,"480,A52.10 ",.02)
 ;;A52.10 
 ;;9002226.02101,"480,A52.10 ",.03)
 ;;30
 ;;9002226.02101,"480,A52.11 ",.01)
 ;;A52.11 
 ;;9002226.02101,"480,A52.11 ",.02)
 ;;A52.11 
 ;;9002226.02101,"480,A52.11 ",.03)
 ;;30
 ;;9002226.02101,"480,A52.12 ",.01)
 ;;A52.12 
 ;;9002226.02101,"480,A52.12 ",.02)
 ;;A52.12 
 ;;9002226.02101,"480,A52.12 ",.03)
 ;;30
 ;;9002226.02101,"480,A52.13 ",.01)
 ;;A52.13 
 ;;9002226.02101,"480,A52.13 ",.02)
 ;;A52.13 
 ;;9002226.02101,"480,A52.13 ",.03)
 ;;30
 ;;9002226.02101,"480,A52.14 ",.01)
 ;;A52.14 
 ;;9002226.02101,"480,A52.14 ",.02)
 ;;A52.14 
 ;;9002226.02101,"480,A52.14 ",.03)
 ;;30
 ;;9002226.02101,"480,A52.15 ",.01)
 ;;A52.15 
 ;;9002226.02101,"480,A52.15 ",.02)
 ;;A52.15 
 ;;9002226.02101,"480,A52.15 ",.03)
 ;;30
 ;;9002226.02101,"480,A52.17 ",.01)
 ;;A52.17 
 ;;9002226.02101,"480,A52.17 ",.02)
 ;;A52.17 
 ;;9002226.02101,"480,A52.17 ",.03)
 ;;30
 ;;9002226.02101,"480,A52.19 ",.01)
 ;;A52.19 
 ;;9002226.02101,"480,A52.19 ",.02)
 ;;A52.19 
 ;;9002226.02101,"480,A52.19 ",.03)
 ;;30
 ;;9002226.02101,"480,A52.2 ",.01)
 ;;A52.2 
 ;;9002226.02101,"480,A52.2 ",.02)
 ;;A52.2 
 ;;9002226.02101,"480,A52.2 ",.03)
 ;;30
 ;;9002226.02101,"480,A52.3 ",.01)
 ;;A52.3 
 ;;9002226.02101,"480,A52.3 ",.02)
 ;;A52.3 
 ;;9002226.02101,"480,A52.3 ",.03)
 ;;30
 ;;9002226.02101,"480,A52.8 ",.01)
 ;;A52.8 
 ;;9002226.02101,"480,A52.8 ",.02)
 ;;A52.8 
 ;;9002226.02101,"480,A52.8 ",.03)
 ;;30
 ;;9002226.02101,"480,A52.9 ",.01)
 ;;A52.9 
 ;;9002226.02101,"480,A52.9 ",.02)
 ;;A52.9 
 ;;9002226.02101,"480,A52.9 ",.03)
 ;;30
 ;;9002226.02101,"480,A53.0 ",.01)
 ;;A53.0 
 ;;9002226.02101,"480,A53.0 ",.02)
 ;;A53.0 
 ;;9002226.02101,"480,A53.0 ",.03)
 ;;30
 ;;9002226.02101,"480,A53.9 ",.01)
 ;;A53.9 
 ;;9002226.02101,"480,A53.9 ",.02)
 ;;A53.9 
 ;;9002226.02101,"480,A53.9 ",.03)
 ;;30
 ;;9002226.02101,"480,A60.00 ",.01)
 ;;A60.00 
 ;;9002226.02101,"480,A60.00 ",.02)
 ;;A60.00 
 ;;9002226.02101,"480,A60.00 ",.03)
 ;;30
 ;;9002226.02101,"480,A60.01 ",.01)
 ;;A60.01 
 ;;9002226.02101,"480,A60.01 ",.02)
 ;;A60.01 
 ;;9002226.02101,"480,A60.01 ",.03)
 ;;30
 ;;9002226.02101,"480,A60.02 ",.01)
 ;;A60.02 
 ;;9002226.02101,"480,A60.02 ",.02)
 ;;A60.02 
 ;;9002226.02101,"480,A60.02 ",.03)
 ;;30
 ;;9002226.02101,"480,A60.03 ",.01)
 ;;A60.03 
 ;;9002226.02101,"480,A60.03 ",.02)
 ;;A60.03 
 ;;9002226.02101,"480,A60.03 ",.03)
 ;;30
 ;;9002226.02101,"480,A60.04 ",.01)
 ;;A60.04 
 ;;9002226.02101,"480,A60.04 ",.02)
 ;;A60.04 
 ;;9002226.02101,"480,A60.04 ",.03)
 ;;30
 ;;9002226.02101,"480,A60.09 ",.01)
 ;;A60.09 
 ;;9002226.02101,"480,A60.09 ",.02)
 ;;A60.09 
 ;;9002226.02101,"480,A60.09 ",.03)
 ;;30
 ;;9002226.02101,"480,A60.1 ",.01)
 ;;A60.1 
 ;;9002226.02101,"480,A60.1 ",.02)
 ;;A60.1 
 ;;9002226.02101,"480,A60.1 ",.03)
 ;;30
 ;;9002226.02101,"480,A60.9 ",.01)
 ;;A60.9 
 ;;9002226.02101,"480,A60.9 ",.02)
 ;;A60.9 
 ;;9002226.02101,"480,A60.9 ",.03)
 ;;30
 ;;9002226.02101,"480,A81.2 ",.01)
 ;;A81.2 
 ;;9002226.02101,"480,A81.2 ",.02)
 ;;A81.2 
 ;;9002226.02101,"480,A81.2 ",.03)
 ;;30
 ;;9002226.02101,"480,B00.0 ",.01)
 ;;B00.0 
 ;;9002226.02101,"480,B00.0 ",.02)
 ;;B00.0 
 ;;9002226.02101,"480,B00.0 ",.03)
 ;;30
 ;;9002226.02101,"480,B00.1 ",.01)
 ;;B00.1 
 ;;9002226.02101,"480,B00.1 ",.02)
 ;;B00.1 
 ;;9002226.02101,"480,B00.1 ",.03)
 ;;30
 ;;9002226.02101,"480,B00.2 ",.01)
 ;;B00.2 
 ;;9002226.02101,"480,B00.2 ",.02)
 ;;B00.2 
 ;;9002226.02101,"480,B00.2 ",.03)
 ;;30
 ;;9002226.02101,"480,B00.3 ",.01)
 ;;B00.3 
 ;;9002226.02101,"480,B00.3 ",.02)
 ;;B00.3 
 ;;9002226.02101,"480,B00.3 ",.03)
 ;;30
 ;;9002226.02101,"480,B00.4 ",.01)
 ;;B00.4 
 ;;9002226.02101,"480,B00.4 ",.02)
 ;;B00.4 
 ;;9002226.02101,"480,B00.4 ",.03)
 ;;30
 ;;9002226.02101,"480,B00.50 ",.01)
 ;;B00.50 
 ;;9002226.02101,"480,B00.50 ",.02)
 ;;B00.50 
 ;;9002226.02101,"480,B00.50 ",.03)
 ;;30
 ;;9002226.02101,"480,B00.51 ",.01)
 ;;B00.51 
 ;;9002226.02101,"480,B00.51 ",.02)
 ;;B00.51 
 ;;9002226.02101,"480,B00.51 ",.03)
 ;;30
 ;;9002226.02101,"480,B00.52 ",.01)
 ;;B00.52 
 ;;9002226.02101,"480,B00.52 ",.02)
 ;;B00.52 
 ;;9002226.02101,"480,B00.52 ",.03)
 ;;30
 ;;9002226.02101,"480,B00.53 ",.01)
 ;;B00.53 
 ;;9002226.02101,"480,B00.53 ",.02)
 ;;B00.53 
 ;;9002226.02101,"480,B00.53 ",.03)
 ;;30
 ;;9002226.02101,"480,B00.59 ",.01)
 ;;B00.59 
 ;;9002226.02101,"480,B00.59 ",.02)
 ;;B00.59 
 ;;9002226.02101,"480,B00.59 ",.03)
 ;;30
 ;;9002226.02101,"480,B00.7 ",.01)
 ;;B00.7 
 ;;9002226.02101,"480,B00.7 ",.02)
 ;;B00.7 
 ;;9002226.02101,"480,B00.7 ",.03)
 ;;30
 ;;9002226.02101,"480,B00.81 ",.01)
 ;;B00.81 
 ;;9002226.02101,"480,B00.81 ",.02)
 ;;B00.81 
 ;;9002226.02101,"480,B00.81 ",.03)
 ;;30
 ;;9002226.02101,"480,B00.82 ",.01)
 ;;B00.82 
 ;;9002226.02101,"480,B00.82 ",.02)
 ;;B00.82 
 ;;9002226.02101,"480,B00.82 ",.03)
 ;;30
 ;;9002226.02101,"480,B00.89 ",.01)
 ;;B00.89 
 ;;9002226.02101,"480,B00.89 ",.02)
 ;;B00.89 
 ;;9002226.02101,"480,B00.89 ",.03)
 ;;30
 ;;9002226.02101,"480,B00.9 ",.01)
 ;;B00.9 
 ;;9002226.02101,"480,B00.9 ",.02)
 ;;B00.9 
 ;;9002226.02101,"480,B00.9 ",.03)
 ;;30
 ;;9002226.02101,"480,B02.0 ",.01)
 ;;B02.0 
 ;;9002226.02101,"480,B02.0 ",.02)
 ;;B02.0 
 ;;9002226.02101,"480,B02.0 ",.03)
 ;;30
 ;;9002226.02101,"480,B02.1 ",.01)
 ;;B02.1 
 ;;9002226.02101,"480,B02.1 ",.02)
 ;;B02.1 
 ;;9002226.02101,"480,B02.1 ",.03)
 ;;30
 ;;9002226.02101,"480,B02.21 ",.01)
 ;;B02.21 
 ;;9002226.02101,"480,B02.21 ",.02)
 ;;B02.21 
 ;;9002226.02101,"480,B02.21 ",.03)
 ;;30
 ;;9002226.02101,"480,B02.22 ",.01)
 ;;B02.22 
 ;;9002226.02101,"480,B02.22 ",.02)
 ;;B02.22 
 ;;9002226.02101,"480,B02.22 ",.03)
 ;;30
 ;;9002226.02101,"480,B02.23 ",.01)
 ;;B02.23 
 ;;9002226.02101,"480,B02.23 ",.02)
 ;;B02.23 
 ;;9002226.02101,"480,B02.23 ",.03)
 ;;30
 ;;9002226.02101,"480,B02.24 ",.01)
 ;;B02.24 
 ;;9002226.02101,"480,B02.24 ",.02)
 ;;B02.24 
 ;;9002226.02101,"480,B02.24 ",.03)
 ;;30
 ;;9002226.02101,"480,B02.29 ",.01)
 ;;B02.29 
 ;;9002226.02101,"480,B02.29 ",.02)
 ;;B02.29 
 ;;9002226.02101,"480,B02.29 ",.03)
 ;;30
 ;;9002226.02101,"480,B02.30 ",.01)
 ;;B02.30 
 ;;9002226.02101,"480,B02.30 ",.02)
 ;;B02.30 
 ;;9002226.02101,"480,B02.30 ",.03)
 ;;30
 ;;9002226.02101,"480,B02.31 ",.01)
 ;;B02.31 
 ;;9002226.02101,"480,B02.31 ",.02)
 ;;B02.31 
 ;;9002226.02101,"480,B02.31 ",.03)
 ;;30
 ;;9002226.02101,"480,B02.32 ",.01)
 ;;B02.32 
 ;;9002226.02101,"480,B02.32 ",.02)
 ;;B02.32