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

ATXD8P10.m

Go to the documentation of this file.
ATXD8P10 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAY 12, 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,"913,660.50 ",.01)
 ;;660.50 
 ;;9002226.02101,"913,660.50 ",.02)
 ;;660.50 
 ;;9002226.02101,"913,660.50 ",.03)
 ;;1
 ;;9002226.02101,"913,660.53 ",.01)
 ;;660.53 
 ;;9002226.02101,"913,660.53 ",.02)
 ;;660.53 
 ;;9002226.02101,"913,660.53 ",.03)
 ;;1
 ;;9002226.02101,"913,660.60 ",.01)
 ;;660.60 
 ;;9002226.02101,"913,660.60 ",.02)
 ;;660.60 
 ;;9002226.02101,"913,660.60 ",.03)
 ;;1
 ;;9002226.02101,"913,660.63 ",.01)
 ;;660.63 
 ;;9002226.02101,"913,660.63 ",.02)
 ;;660.63 
 ;;9002226.02101,"913,660.63 ",.03)
 ;;1
 ;;9002226.02101,"913,660.70 ",.01)
 ;;660.70 
 ;;9002226.02101,"913,660.70 ",.02)
 ;;660.70 
 ;;9002226.02101,"913,660.70 ",.03)
 ;;1
 ;;9002226.02101,"913,660.73 ",.01)
 ;;660.73 
 ;;9002226.02101,"913,660.73 ",.02)
 ;;660.73 
 ;;9002226.02101,"913,660.73 ",.03)
 ;;1
 ;;9002226.02101,"913,660.80 ",.01)
 ;;660.80 
 ;;9002226.02101,"913,660.80 ",.02)
 ;;660.80 
 ;;9002226.02101,"913,660.80 ",.03)
 ;;1
 ;;9002226.02101,"913,660.83 ",.01)
 ;;660.83 
 ;;9002226.02101,"913,660.83 ",.02)
 ;;660.83 
 ;;9002226.02101,"913,660.83 ",.03)
 ;;1
 ;;9002226.02101,"913,660.90 ",.01)
 ;;660.90 
 ;;9002226.02101,"913,660.90 ",.02)
 ;;660.90 
 ;;9002226.02101,"913,660.90 ",.03)
 ;;1
 ;;9002226.02101,"913,660.93 ",.01)
 ;;660.93 
 ;;9002226.02101,"913,660.93 ",.02)
 ;;660.93 
 ;;9002226.02101,"913,660.93 ",.03)
 ;;1
 ;;9002226.02101,"913,661.00 ",.01)
 ;;661.00 
 ;;9002226.02101,"913,661.00 ",.02)
 ;;661.00 
 ;;9002226.02101,"913,661.00 ",.03)
 ;;1
 ;;9002226.02101,"913,661.03 ",.01)
 ;;661.03 
 ;;9002226.02101,"913,661.03 ",.02)
 ;;661.03 
 ;;9002226.02101,"913,661.03 ",.03)
 ;;1
 ;;9002226.02101,"913,661.10 ",.01)
 ;;661.10 
 ;;9002226.02101,"913,661.10 ",.02)
 ;;661.10 
 ;;9002226.02101,"913,661.10 ",.03)
 ;;1
 ;;9002226.02101,"913,661.13 ",.01)
 ;;661.13 
 ;;9002226.02101,"913,661.13 ",.02)
 ;;661.13 
 ;;9002226.02101,"913,661.13 ",.03)
 ;;1
 ;;9002226.02101,"913,661.20 ",.01)
 ;;661.20 
 ;;9002226.02101,"913,661.20 ",.02)
 ;;661.20 
 ;;9002226.02101,"913,661.20 ",.03)
 ;;1
 ;;9002226.02101,"913,661.23 ",.01)
 ;;661.23 
 ;;9002226.02101,"913,661.23 ",.02)
 ;;661.23 
 ;;9002226.02101,"913,661.23 ",.03)
 ;;1
 ;;9002226.02101,"913,661.30 ",.01)
 ;;661.30 
 ;;9002226.02101,"913,661.30 ",.02)
 ;;661.30 
 ;;9002226.02101,"913,661.30 ",.03)
 ;;1
 ;;9002226.02101,"913,661.33 ",.01)
 ;;661.33 
 ;;9002226.02101,"913,661.33 ",.02)
 ;;661.33 
 ;;9002226.02101,"913,661.33 ",.03)
 ;;1
 ;;9002226.02101,"913,661.40 ",.01)
 ;;661.40 
 ;;9002226.02101,"913,661.40 ",.02)
 ;;661.40 
 ;;9002226.02101,"913,661.40 ",.03)
 ;;1
 ;;9002226.02101,"913,661.43 ",.01)
 ;;661.43 
 ;;9002226.02101,"913,661.43 ",.02)
 ;;661.43 
 ;;9002226.02101,"913,661.43 ",.03)
 ;;1
 ;;9002226.02101,"913,661.90 ",.01)
 ;;661.90 
 ;;9002226.02101,"913,661.90 ",.02)
 ;;661.90 
 ;;9002226.02101,"913,661.90 ",.03)
 ;;1
 ;;9002226.02101,"913,661.93 ",.01)
 ;;661.93 
 ;;9002226.02101,"913,661.93 ",.02)
 ;;661.93 
 ;;9002226.02101,"913,661.93 ",.03)
 ;;1
 ;;9002226.02101,"913,662.00 ",.01)
 ;;662.00 
 ;;9002226.02101,"913,662.00 ",.02)
 ;;662.00 
 ;;9002226.02101,"913,662.00 ",.03)
 ;;1
 ;;9002226.02101,"913,662.03 ",.01)
 ;;662.03 
 ;;9002226.02101,"913,662.03 ",.02)
 ;;662.03 
 ;;9002226.02101,"913,662.03 ",.03)
 ;;1
 ;;9002226.02101,"913,662.10 ",.01)
 ;;662.10 
 ;;9002226.02101,"913,662.10 ",.02)
 ;;662.10 
 ;;9002226.02101,"913,662.10 ",.03)
 ;;1
 ;;9002226.02101,"913,662.13 ",.01)
 ;;662.13 
 ;;9002226.02101,"913,662.13 ",.02)
 ;;662.13 
 ;;9002226.02101,"913,662.13 ",.03)
 ;;1
 ;;9002226.02101,"913,662.20 ",.01)
 ;;662.20 
 ;;9002226.02101,"913,662.20 ",.02)
 ;;662.20 
 ;;9002226.02101,"913,662.20 ",.03)
 ;;1
 ;;9002226.02101,"913,662.23 ",.01)
 ;;662.23 
 ;;9002226.02101,"913,662.23 ",.02)
 ;;662.23 
 ;;9002226.02101,"913,662.23 ",.03)
 ;;1
 ;;9002226.02101,"913,662.30 ",.01)
 ;;662.30 
 ;;9002226.02101,"913,662.30 ",.02)
 ;;662.30 
 ;;9002226.02101,"913,662.30 ",.03)
 ;;1
 ;;9002226.02101,"913,662.33 ",.01)
 ;;662.33 
 ;;9002226.02101,"913,662.33 ",.02)
 ;;662.33 
 ;;9002226.02101,"913,662.33 ",.03)
 ;;1
 ;;9002226.02101,"913,663.00 ",.01)
 ;;663.00 
 ;;9002226.02101,"913,663.00 ",.02)
 ;;663.00 
 ;;9002226.02101,"913,663.00 ",.03)
 ;;1
 ;;9002226.02101,"913,663.03 ",.01)
 ;;663.03 
 ;;9002226.02101,"913,663.03 ",.02)
 ;;663.03 
 ;;9002226.02101,"913,663.03 ",.03)
 ;;1
 ;;9002226.02101,"913,663.10 ",.01)
 ;;663.10 
 ;;9002226.02101,"913,663.10 ",.02)
 ;;663.10 
 ;;9002226.02101,"913,663.10 ",.03)
 ;;1
 ;;9002226.02101,"913,663.13 ",.01)
 ;;663.13 
 ;;9002226.02101,"913,663.13 ",.02)
 ;;663.13 
 ;;9002226.02101,"913,663.13 ",.03)
 ;;1
 ;;9002226.02101,"913,663.20 ",.01)
 ;;663.20 
 ;;9002226.02101,"913,663.20 ",.02)
 ;;663.20 
 ;;9002226.02101,"913,663.20 ",.03)
 ;;1
 ;;9002226.02101,"913,663.23 ",.01)
 ;;663.23 
 ;;9002226.02101,"913,663.23 ",.02)
 ;;663.23 
 ;;9002226.02101,"913,663.23 ",.03)
 ;;1
 ;;9002226.02101,"913,663.30 ",.01)
 ;;663.30 
 ;;9002226.02101,"913,663.30 ",.02)
 ;;663.30 
 ;;9002226.02101,"913,663.30 ",.03)
 ;;1
 ;;9002226.02101,"913,663.33 ",.01)
 ;;663.33 
 ;;9002226.02101,"913,663.33 ",.02)
 ;;663.33 
 ;;9002226.02101,"913,663.33 ",.03)
 ;;1
 ;;9002226.02101,"913,663.40 ",.01)
 ;;663.40 
 ;;9002226.02101,"913,663.40 ",.02)
 ;;663.40 
 ;;9002226.02101,"913,663.40 ",.03)
 ;;1
 ;;9002226.02101,"913,663.43 ",.01)
 ;;663.43 
 ;;9002226.02101,"913,663.43 ",.02)
 ;;663.43 
 ;;9002226.02101,"913,663.43 ",.03)
 ;;1
 ;;9002226.02101,"913,663.50 ",.01)
 ;;663.50 
 ;;9002226.02101,"913,663.50 ",.02)
 ;;663.50 
 ;;9002226.02101,"913,663.50 ",.03)
 ;;1
 ;;9002226.02101,"913,663.53 ",.01)
 ;;663.53 
 ;;9002226.02101,"913,663.53 ",.02)
 ;;663.53 
 ;;9002226.02101,"913,663.53 ",.03)
 ;;1
 ;;9002226.02101,"913,663.60 ",.01)
 ;;663.60 
 ;;9002226.02101,"913,663.60 ",.02)
 ;;663.60 
 ;;9002226.02101,"913,663.60 ",.03)
 ;;1
 ;;9002226.02101,"913,663.63 ",.01)
 ;;663.63 
 ;;9002226.02101,"913,663.63 ",.02)
 ;;663.63 
 ;;9002226.02101,"913,663.63 ",.03)
 ;;1
 ;;9002226.02101,"913,663.80 ",.01)
 ;;663.80 
 ;;9002226.02101,"913,663.80 ",.02)
 ;;663.80 
 ;;9002226.02101,"913,663.80 ",.03)
 ;;1
 ;;9002226.02101,"913,663.83 ",.01)
 ;;663.83 
 ;;9002226.02101,"913,663.83 ",.02)
 ;;663.83 
 ;;9002226.02101,"913,663.83 ",.03)
 ;;1
 ;;9002226.02101,"913,663.90 ",.01)
 ;;663.90 
 ;;9002226.02101,"913,663.90 ",.02)
 ;;663.90 
 ;;9002226.02101,"913,663.90 ",.03)
 ;;1
 ;;9002226.02101,"913,663.93 ",.01)
 ;;663.93 
 ;;9002226.02101,"913,663.93 ",.02)
 ;;663.93 
 ;;9002226.02101,"913,663.93 ",.03)
 ;;1
 ;;9002226.02101,"913,665.00 ",.01)
 ;;665.00 
 ;;9002226.02101,"913,665.00 ",.02)
 ;;665.00 
 ;;9002226.02101,"913,665.00 ",.03)
 ;;1
 ;;9002226.02101,"913,665.03 ",.01)
 ;;665.03 
 ;;9002226.02101,"913,665.03 ",.02)
 ;;665.03 
 ;;9002226.02101,"913,665.03 ",.03)
 ;;1
 ;;9002226.02101,"913,665.80 ",.01)
 ;;665.80 
 ;;9002226.02101,"913,665.80 ",.02)
 ;;665.80 
 ;;9002226.02101,"913,665.80 ",.03)
 ;;1
 ;;9002226.02101,"913,665.83 ",.01)
 ;;665.83 
 ;;9002226.02101,"913,665.83 ",.02)
 ;;665.83 
 ;;9002226.02101,"913,665.83 ",.03)
 ;;1
 ;;9002226.02101,"913,665.90 ",.01)
 ;;665.90 
 ;;9002226.02101,"913,665.90 ",.02)
 ;;665.90 
 ;;9002226.02101,"913,665.90 ",.03)
 ;;1
 ;;9002226.02101,"913,665.93 ",.01)
 ;;665.93 
 ;;9002226.02101,"913,665.93 ",.02)
 ;;665.93 
 ;;9002226.02101,"913,665.93 ",.03)
 ;;1
 ;;9002226.02101,"913,671.00 ",.01)
 ;;671.00 
 ;;9002226.02101,"913,671.00 ",.02)
 ;;671.00 
 ;;9002226.02101,"913,671.00 ",.03)
 ;;1
 ;;9002226.02101,"913,671.03 ",.01)
 ;;671.03 
 ;;9002226.02101,"913,671.03 ",.02)
 ;;671.03 
 ;;9002226.02101,"913,671.03 ",.03)
 ;;1
 ;;9002226.02101,"913,671.10 ",.01)
 ;;671.10 
 ;;9002226.02101,"913,671.10 ",.02)
 ;;671.10 
 ;;9002226.02101,"913,671.10 ",.03)
 ;;1
 ;;9002226.02101,"913,671.13 ",.01)
 ;;671.13 
 ;;9002226.02101,"913,671.13 ",.02)
 ;;671.13 
 ;;9002226.02101,"913,671.13 ",.03)
 ;;1
 ;;9002226.02101,"913,671.20 ",.01)
 ;;671.20 
 ;;9002226.02101,"913,671.20 ",.02)
 ;;671.20 
 ;;9002226.02101,"913,671.20 ",.03)
 ;;1
 ;;9002226.02101,"913,671.23 ",.01)
 ;;671.23 
 ;;9002226.02101,"913,671.23 ",.02)
 ;;671.23 
 ;;9002226.02101,"913,671.23 ",.03)
 ;;1
 ;;9002226.02101,"913,671.30 ",.01)
 ;;671.30 
 ;;9002226.02101,"913,671.30 ",.02)
 ;;671.30 
 ;;9002226.02101,"913,671.30 ",.03)
 ;;1
 ;;9002226.02101,"913,671.33 ",.01)
 ;;671.33 
 ;;9002226.02101,"913,671.33 ",.02)
 ;;671.33 
 ;;9002226.02101,"913,671.33 ",.03)
 ;;1
 ;;9002226.02101,"913,671.50 ",.01)
 ;;671.50 
 ;;9002226.02101,"913,671.50 ",.02)
 ;;671.50 
 ;;9002226.02101,"913,671.50 ",.03)
 ;;1
 ;;9002226.02101,"913,671.53 ",.01)
 ;;671.53 
 ;;9002226.02101,"913,671.53 ",.02)
 ;;671.53 
 ;;9002226.02101,"913,671.53 ",.03)
 ;;1
 ;;9002226.02101,"913,671.80 ",.01)
 ;;671.80 
 ;;9002226.02101,"913,671.80 ",.02)
 ;;671.80 
 ;;9002226.02101,"913,671.80 ",.03)
 ;;1
 ;;9002226.02101,"913,671.83 ",.01)
 ;;671.83 
 ;;9002226.02101,"913,671.83 ",.02)
 ;;671.83 
 ;;9002226.02101,"913,671.83 ",.03)
 ;;1
 ;;9002226.02101,"913,671.90 ",.01)
 ;;671.90 
 ;;9002226.02101,"913,671.90 ",.02)
 ;;671.90 
 ;;9002226.02101,"913,671.90 ",.03)
 ;;1
 ;;9002226.02101,"913,671.93 ",.01)
 ;;671.93 
 ;;9002226.02101,"913,671.93 ",.02)
 ;;671.93 
 ;;9002226.02101,"913,671.93 ",.03)
 ;;1
 ;;9002226.02101,"913,673.00 ",.01)
 ;;673.00 
 ;;9002226.02101,"913,673.00 ",.02)
 ;;673.00 
 ;;9002226.02101,"913,673.00 ",.03)
 ;;1
 ;;9002226.02101,"913,673.03 ",.01)
 ;;673.03 
 ;;9002226.02101,"913,673.03 ",.02)
 ;;673.03 
 ;;9002226.02101,"913,673.03 ",.03)
 ;;1
 ;;9002226.02101,"913,673.10 ",.01)
 ;;673.10 
 ;;9002226.02101,"913,673.10 ",.02)
 ;;673.10 
 ;;9002226.02101,"913,673.10 ",.03)
 ;;1
 ;;9002226.02101,"913,673.13 ",.01)
 ;;673.13 
 ;;9002226.02101,"913,673.13 ",.02)
 ;;673.13 
 ;;9002226.02101,"913,673.13 ",.03)
 ;;1
 ;;9002226.02101,"913,673.20 ",.01)
 ;;673.20 
 ;;9002226.02101,"913,673.20 ",.02)
 ;;673.20 
 ;;9002226.02101,"913,673.20 ",.03)
 ;;1
 ;;9002226.02101,"913,673.23 ",.01)
 ;;673.23 
 ;;9002226.02101,"913,673.23 ",.02)
 ;;673.23 
 ;;9002226.02101,"913,673.23 ",.03)
 ;;1
 ;;9002226.02101,"913,673.30 ",.01)
 ;;673.30 
 ;;9002226.02101,"913,673.30 ",.02)
 ;;673.30 
 ;;9002226.02101,"913,673.30 ",.03)
 ;;1
 ;;9002226.02101,"913,673.33 ",.01)
 ;;673.33 
 ;;9002226.02101,"913,673.33 ",.02)
 ;;673.33 
 ;;9002226.02101,"913,673.33 ",.03)
 ;;1
 ;;9002226.02101,"913,673.80 ",.01)
 ;;673.80 
 ;;9002226.02101,"913,673.80 ",.02)
 ;;673.80 
 ;;9002226.02101,"913,673.80 ",.03)
 ;;1
 ;;9002226.02101,"913,673.83 ",.01)
 ;;673.83 
 ;;9002226.02101,"913,673.83 ",.02)
 ;;673.83 
 ;;9002226.02101,"913,673.83 ",.03)
 ;;1
 ;;9002226.02101,"913,O09.00 ",.01)
 ;;O09.00 
 ;;9002226.02101,"913,O09.00 ",.02)
 ;;O09.00 
 ;;9002226.02101,"913,O09.00 ",.03)
 ;;30
 ;;9002226.02101,"913,O09.01 ",.01)
 ;;O09.01 
 ;;9002226.02101,"913,O09.01 ",.02)
 ;;O09.01 
 ;;9002226.02101,"913,O09.01 ",.03)
 ;;30
 ;;9002226.02101,"913,O09.02 ",.01)
 ;;O09.02 
 ;;9002226.02101,"913,O09.02 ",.02)
 ;;O09.02 
 ;;9002226.02101,"913,O09.02 ",.03)
 ;;30
 ;;9002226.02101,"913,O09.03 ",.01)
 ;;O09.03 
 ;;9002226.02101,"913,O09.03 ",.02)
 ;;O09.03 
 ;;9002226.02101,"913,O09.03 ",.03)
 ;;30
 ;;9002226.02101,"913,O09.10 ",.01)
 ;;O09.10 
 ;;9002226.02101,"913,O09.10 ",.02)
 ;;O09.10