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

ATXD8P8.m

Go to the documentation of this file.
ATXD8P8 ;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,649.70 ",.01)
 ;;649.70 
 ;;9002226.02101,"913,649.70 ",.02)
 ;;649.70 
 ;;9002226.02101,"913,649.70 ",.03)
 ;;1
 ;;9002226.02101,"913,649.73 ",.01)
 ;;649.73 
 ;;9002226.02101,"913,649.73 ",.02)
 ;;649.73 
 ;;9002226.02101,"913,649.73 ",.03)
 ;;1
 ;;9002226.02101,"913,651.00 ",.01)
 ;;651.00 
 ;;9002226.02101,"913,651.00 ",.02)
 ;;651.00 
 ;;9002226.02101,"913,651.00 ",.03)
 ;;1
 ;;9002226.02101,"913,651.03 ",.01)
 ;;651.03 
 ;;9002226.02101,"913,651.03 ",.02)
 ;;651.03 
 ;;9002226.02101,"913,651.03 ",.03)
 ;;1
 ;;9002226.02101,"913,651.10 ",.01)
 ;;651.10 
 ;;9002226.02101,"913,651.10 ",.02)
 ;;651.10 
 ;;9002226.02101,"913,651.10 ",.03)
 ;;1
 ;;9002226.02101,"913,651.13 ",.01)
 ;;651.13 
 ;;9002226.02101,"913,651.13 ",.02)
 ;;651.13 
 ;;9002226.02101,"913,651.13 ",.03)
 ;;1
 ;;9002226.02101,"913,651.20 ",.01)
 ;;651.20 
 ;;9002226.02101,"913,651.20 ",.02)
 ;;651.20 
 ;;9002226.02101,"913,651.20 ",.03)
 ;;1
 ;;9002226.02101,"913,651.23 ",.01)
 ;;651.23 
 ;;9002226.02101,"913,651.23 ",.02)
 ;;651.23 
 ;;9002226.02101,"913,651.23 ",.03)
 ;;1
 ;;9002226.02101,"913,651.30 ",.01)
 ;;651.30 
 ;;9002226.02101,"913,651.30 ",.02)
 ;;651.30 
 ;;9002226.02101,"913,651.30 ",.03)
 ;;1
 ;;9002226.02101,"913,651.33 ",.01)
 ;;651.33 
 ;;9002226.02101,"913,651.33 ",.02)
 ;;651.33 
 ;;9002226.02101,"913,651.33 ",.03)
 ;;1
 ;;9002226.02101,"913,651.40 ",.01)
 ;;651.40 
 ;;9002226.02101,"913,651.40 ",.02)
 ;;651.40 
 ;;9002226.02101,"913,651.40 ",.03)
 ;;1
 ;;9002226.02101,"913,651.43 ",.01)
 ;;651.43 
 ;;9002226.02101,"913,651.43 ",.02)
 ;;651.43 
 ;;9002226.02101,"913,651.43 ",.03)
 ;;1
 ;;9002226.02101,"913,651.50 ",.01)
 ;;651.50 
 ;;9002226.02101,"913,651.50 ",.02)
 ;;651.50 
 ;;9002226.02101,"913,651.50 ",.03)
 ;;1
 ;;9002226.02101,"913,651.53 ",.01)
 ;;651.53 
 ;;9002226.02101,"913,651.53 ",.02)
 ;;651.53 
 ;;9002226.02101,"913,651.53 ",.03)
 ;;1
 ;;9002226.02101,"913,651.60 ",.01)
 ;;651.60 
 ;;9002226.02101,"913,651.60 ",.02)
 ;;651.60 
 ;;9002226.02101,"913,651.60 ",.03)
 ;;1
 ;;9002226.02101,"913,651.63 ",.01)
 ;;651.63 
 ;;9002226.02101,"913,651.63 ",.02)
 ;;651.63 
 ;;9002226.02101,"913,651.63 ",.03)
 ;;1
 ;;9002226.02101,"913,651.70 ",.01)
 ;;651.70 
 ;;9002226.02101,"913,651.70 ",.02)
 ;;651.70 
 ;;9002226.02101,"913,651.70 ",.03)
 ;;1
 ;;9002226.02101,"913,651.73 ",.01)
 ;;651.73 
 ;;9002226.02101,"913,651.73 ",.02)
 ;;651.73 
 ;;9002226.02101,"913,651.73 ",.03)
 ;;1
 ;;9002226.02101,"913,651.80 ",.01)
 ;;651.80 
 ;;9002226.02101,"913,651.80 ",.02)
 ;;651.80 
 ;;9002226.02101,"913,651.80 ",.03)
 ;;1
 ;;9002226.02101,"913,651.83 ",.01)
 ;;651.83 
 ;;9002226.02101,"913,651.83 ",.02)
 ;;651.83 
 ;;9002226.02101,"913,651.83 ",.03)
 ;;1
 ;;9002226.02101,"913,651.90 ",.01)
 ;;651.90 
 ;;9002226.02101,"913,651.90 ",.02)
 ;;651.90 
 ;;9002226.02101,"913,651.90 ",.03)
 ;;1
 ;;9002226.02101,"913,651.93 ",.01)
 ;;651.93 
 ;;9002226.02101,"913,651.93 ",.02)
 ;;651.93 
 ;;9002226.02101,"913,651.93 ",.03)
 ;;1
 ;;9002226.02101,"913,652.00 ",.01)
 ;;652.00 
 ;;9002226.02101,"913,652.00 ",.02)
 ;;652.00 
 ;;9002226.02101,"913,652.00 ",.03)
 ;;1
 ;;9002226.02101,"913,652.03 ",.01)
 ;;652.03 
 ;;9002226.02101,"913,652.03 ",.02)
 ;;652.03 
 ;;9002226.02101,"913,652.03 ",.03)
 ;;1
 ;;9002226.02101,"913,652.10 ",.01)
 ;;652.10 
 ;;9002226.02101,"913,652.10 ",.02)
 ;;652.10 
 ;;9002226.02101,"913,652.10 ",.03)
 ;;1
 ;;9002226.02101,"913,652.13 ",.01)
 ;;652.13 
 ;;9002226.02101,"913,652.13 ",.02)
 ;;652.13 
 ;;9002226.02101,"913,652.13 ",.03)
 ;;1
 ;;9002226.02101,"913,652.20 ",.01)
 ;;652.20 
 ;;9002226.02101,"913,652.20 ",.02)
 ;;652.20 
 ;;9002226.02101,"913,652.20 ",.03)
 ;;1
 ;;9002226.02101,"913,652.23 ",.01)
 ;;652.23 
 ;;9002226.02101,"913,652.23 ",.02)
 ;;652.23 
 ;;9002226.02101,"913,652.23 ",.03)
 ;;1
 ;;9002226.02101,"913,652.30 ",.01)
 ;;652.30 
 ;;9002226.02101,"913,652.30 ",.02)
 ;;652.30 
 ;;9002226.02101,"913,652.30 ",.03)
 ;;1
 ;;9002226.02101,"913,652.33 ",.01)
 ;;652.33 
 ;;9002226.02101,"913,652.33 ",.02)
 ;;652.33 
 ;;9002226.02101,"913,652.33 ",.03)
 ;;1
 ;;9002226.02101,"913,652.40 ",.01)
 ;;652.40 
 ;;9002226.02101,"913,652.40 ",.02)
 ;;652.40 
 ;;9002226.02101,"913,652.40 ",.03)
 ;;1
 ;;9002226.02101,"913,652.43 ",.01)
 ;;652.43 
 ;;9002226.02101,"913,652.43 ",.02)
 ;;652.43 
 ;;9002226.02101,"913,652.43 ",.03)
 ;;1
 ;;9002226.02101,"913,652.50 ",.01)
 ;;652.50 
 ;;9002226.02101,"913,652.50 ",.02)
 ;;652.50 
 ;;9002226.02101,"913,652.50 ",.03)
 ;;1
 ;;9002226.02101,"913,652.53 ",.01)
 ;;652.53 
 ;;9002226.02101,"913,652.53 ",.02)
 ;;652.53 
 ;;9002226.02101,"913,652.53 ",.03)
 ;;1
 ;;9002226.02101,"913,652.60 ",.01)
 ;;652.60 
 ;;9002226.02101,"913,652.60 ",.02)
 ;;652.60 
 ;;9002226.02101,"913,652.60 ",.03)
 ;;1
 ;;9002226.02101,"913,652.63 ",.01)
 ;;652.63 
 ;;9002226.02101,"913,652.63 ",.02)
 ;;652.63 
 ;;9002226.02101,"913,652.63 ",.03)
 ;;1
 ;;9002226.02101,"913,652.70 ",.01)
 ;;652.70 
 ;;9002226.02101,"913,652.70 ",.02)
 ;;652.70 
 ;;9002226.02101,"913,652.70 ",.03)
 ;;1
 ;;9002226.02101,"913,652.73 ",.01)
 ;;652.73 
 ;;9002226.02101,"913,652.73 ",.02)
 ;;652.73 
 ;;9002226.02101,"913,652.73 ",.03)
 ;;1
 ;;9002226.02101,"913,652.80 ",.01)
 ;;652.80 
 ;;9002226.02101,"913,652.80 ",.02)
 ;;652.80 
 ;;9002226.02101,"913,652.80 ",.03)
 ;;1
 ;;9002226.02101,"913,652.83 ",.01)
 ;;652.83 
 ;;9002226.02101,"913,652.83 ",.02)
 ;;652.83 
 ;;9002226.02101,"913,652.83 ",.03)
 ;;1
 ;;9002226.02101,"913,652.90 ",.01)
 ;;652.90 
 ;;9002226.02101,"913,652.90 ",.02)
 ;;652.90 
 ;;9002226.02101,"913,652.90 ",.03)
 ;;1
 ;;9002226.02101,"913,652.93 ",.01)
 ;;652.93 
 ;;9002226.02101,"913,652.93 ",.02)
 ;;652.93 
 ;;9002226.02101,"913,652.93 ",.03)
 ;;1
 ;;9002226.02101,"913,653.00 ",.01)
 ;;653.00 
 ;;9002226.02101,"913,653.00 ",.02)
 ;;653.00 
 ;;9002226.02101,"913,653.00 ",.03)
 ;;1
 ;;9002226.02101,"913,653.03 ",.01)
 ;;653.03 
 ;;9002226.02101,"913,653.03 ",.02)
 ;;653.03 
 ;;9002226.02101,"913,653.03 ",.03)
 ;;1
 ;;9002226.02101,"913,653.10 ",.01)
 ;;653.10 
 ;;9002226.02101,"913,653.10 ",.02)
 ;;653.10 
 ;;9002226.02101,"913,653.10 ",.03)
 ;;1
 ;;9002226.02101,"913,653.13 ",.01)
 ;;653.13 
 ;;9002226.02101,"913,653.13 ",.02)
 ;;653.20 
 ;;9002226.02101,"913,653.13 ",.03)
 ;;1
 ;;9002226.02101,"913,653.23 ",.01)
 ;;653.23 
 ;;9002226.02101,"913,653.23 ",.02)
 ;;653.23 
 ;;9002226.02101,"913,653.23 ",.03)
 ;;1
 ;;9002226.02101,"913,653.30 ",.01)
 ;;653.30 
 ;;9002226.02101,"913,653.30 ",.02)
 ;;653.30 
 ;;9002226.02101,"913,653.30 ",.03)
 ;;1
 ;;9002226.02101,"913,653.33 ",.01)
 ;;653.33 
 ;;9002226.02101,"913,653.33 ",.02)
 ;;653.33 
 ;;9002226.02101,"913,653.33 ",.03)
 ;;1
 ;;9002226.02101,"913,653.40 ",.01)
 ;;653.40 
 ;;9002226.02101,"913,653.40 ",.02)
 ;;653.40 
 ;;9002226.02101,"913,653.40 ",.03)
 ;;1
 ;;9002226.02101,"913,653.43 ",.01)
 ;;653.43 
 ;;9002226.02101,"913,653.43 ",.02)
 ;;653.43 
 ;;9002226.02101,"913,653.43 ",.03)
 ;;1
 ;;9002226.02101,"913,653.50 ",.01)
 ;;653.50 
 ;;9002226.02101,"913,653.50 ",.02)
 ;;653.50 
 ;;9002226.02101,"913,653.50 ",.03)
 ;;1
 ;;9002226.02101,"913,653.53 ",.01)
 ;;653.53 
 ;;9002226.02101,"913,653.53 ",.02)
 ;;653.53 
 ;;9002226.02101,"913,653.53 ",.03)
 ;;1
 ;;9002226.02101,"913,653.60 ",.01)
 ;;653.60 
 ;;9002226.02101,"913,653.60 ",.02)
 ;;653.60 
 ;;9002226.02101,"913,653.60 ",.03)
 ;;1
 ;;9002226.02101,"913,653.63 ",.01)
 ;;653.63 
 ;;9002226.02101,"913,653.63 ",.02)
 ;;653.63 
 ;;9002226.02101,"913,653.63 ",.03)
 ;;1
 ;;9002226.02101,"913,653.70 ",.01)
 ;;653.70 
 ;;9002226.02101,"913,653.70 ",.02)
 ;;653.70 
 ;;9002226.02101,"913,653.70 ",.03)
 ;;1
 ;;9002226.02101,"913,653.73 ",.01)
 ;;653.73 
 ;;9002226.02101,"913,653.73 ",.02)
 ;;653.73 
 ;;9002226.02101,"913,653.73 ",.03)
 ;;1
 ;;9002226.02101,"913,653.80 ",.01)
 ;;653.80 
 ;;9002226.02101,"913,653.80 ",.02)
 ;;653.80 
 ;;9002226.02101,"913,653.80 ",.03)
 ;;1
 ;;9002226.02101,"913,653.83 ",.01)
 ;;653.83 
 ;;9002226.02101,"913,653.83 ",.02)
 ;;653.83 
 ;;9002226.02101,"913,653.83 ",.03)
 ;;1
 ;;9002226.02101,"913,653.90 ",.01)
 ;;653.90 
 ;;9002226.02101,"913,653.90 ",.02)
 ;;653.90 
 ;;9002226.02101,"913,653.90 ",.03)
 ;;1
 ;;9002226.02101,"913,653.93 ",.01)
 ;;653.93 
 ;;9002226.02101,"913,653.93 ",.02)
 ;;653.93 
 ;;9002226.02101,"913,653.93 ",.03)
 ;;1
 ;;9002226.02101,"913,654.00 ",.01)
 ;;654.00 
 ;;9002226.02101,"913,654.00 ",.02)
 ;;654.00 
 ;;9002226.02101,"913,654.00 ",.03)
 ;;1
 ;;9002226.02101,"913,654.03 ",.01)
 ;;654.03 
 ;;9002226.02101,"913,654.03 ",.02)
 ;;654.03 
 ;;9002226.02101,"913,654.03 ",.03)
 ;;1
 ;;9002226.02101,"913,654.10 ",.01)
 ;;654.10 
 ;;9002226.02101,"913,654.10 ",.02)
 ;;654.10 
 ;;9002226.02101,"913,654.10 ",.03)
 ;;1
 ;;9002226.02101,"913,654.13 ",.01)
 ;;654.13 
 ;;9002226.02101,"913,654.13 ",.02)
 ;;654.13 
 ;;9002226.02101,"913,654.13 ",.03)
 ;;1
 ;;9002226.02101,"913,654.20 ",.01)
 ;;654.20 
 ;;9002226.02101,"913,654.20 ",.02)
 ;;654.20 
 ;;9002226.02101,"913,654.20 ",.03)
 ;;1
 ;;9002226.02101,"913,654.23 ",.01)
 ;;654.23 
 ;;9002226.02101,"913,654.23 ",.02)
 ;;654.23 
 ;;9002226.02101,"913,654.23 ",.03)
 ;;1
 ;;9002226.02101,"913,654.30 ",.01)
 ;;654.30 
 ;;9002226.02101,"913,654.30 ",.02)
 ;;654.30 
 ;;9002226.02101,"913,654.30 ",.03)
 ;;1
 ;;9002226.02101,"913,654.33 ",.01)
 ;;654.33 
 ;;9002226.02101,"913,654.33 ",.02)
 ;;654.33 
 ;;9002226.02101,"913,654.33 ",.03)
 ;;1
 ;;9002226.02101,"913,654.40 ",.01)
 ;;654.40 
 ;;9002226.02101,"913,654.40 ",.02)
 ;;654.40 
 ;;9002226.02101,"913,654.40 ",.03)
 ;;1
 ;;9002226.02101,"913,654.43 ",.01)
 ;;654.43 
 ;;9002226.02101,"913,654.43 ",.02)
 ;;654.43 
 ;;9002226.02101,"913,654.43 ",.03)
 ;;1
 ;;9002226.02101,"913,654.50 ",.01)
 ;;654.50 
 ;;9002226.02101,"913,654.50 ",.02)
 ;;654.50 
 ;;9002226.02101,"913,654.50 ",.03)
 ;;1
 ;;9002226.02101,"913,654.53 ",.01)
 ;;654.53 
 ;;9002226.02101,"913,654.53 ",.02)
 ;;654.53 
 ;;9002226.02101,"913,654.53 ",.03)
 ;;1
 ;;9002226.02101,"913,654.60 ",.01)
 ;;654.60 
 ;;9002226.02101,"913,654.60 ",.02)
 ;;654.60 
 ;;9002226.02101,"913,654.60 ",.03)
 ;;1
 ;;9002226.02101,"913,654.63 ",.01)
 ;;654.63 
 ;;9002226.02101,"913,654.63 ",.02)
 ;;654.63 
 ;;9002226.02101,"913,654.63 ",.03)
 ;;1
 ;;9002226.02101,"913,654.70 ",.01)
 ;;654.70 
 ;;9002226.02101,"913,654.70 ",.02)
 ;;654.70 
 ;;9002226.02101,"913,654.70 ",.03)
 ;;1
 ;;9002226.02101,"913,654.73 ",.01)
 ;;654.73 
 ;;9002226.02101,"913,654.73 ",.02)
 ;;654.73 
 ;;9002226.02101,"913,654.73 ",.03)
 ;;1
 ;;9002226.02101,"913,654.80 ",.01)
 ;;654.80 
 ;;9002226.02101,"913,654.80 ",.02)
 ;;654.80 
 ;;9002226.02101,"913,654.80 ",.03)
 ;;1
 ;;9002226.02101,"913,654.83 ",.01)
 ;;654.83 
 ;;9002226.02101,"913,654.83 ",.02)
 ;;654.83 
 ;;9002226.02101,"913,654.83 ",.03)
 ;;1
 ;;9002226.02101,"913,654.90 ",.01)
 ;;654.90 
 ;;9002226.02101,"913,654.90 ",.02)
 ;;654.90 
 ;;9002226.02101,"913,654.90 ",.03)
 ;;1
 ;;9002226.02101,"913,654.93 ",.01)
 ;;654.93 
 ;;9002226.02101,"913,654.93 ",.02)
 ;;654.93 
 ;;9002226.02101,"913,654.93 ",.03)
 ;;1
 ;;9002226.02101,"913,655.00 ",.01)
 ;;655.00 
 ;;9002226.02101,"913,655.00 ",.02)
 ;;655.00 
 ;;9002226.02101,"913,655.00 ",.03)
 ;;1
 ;;9002226.02101,"913,655.03 ",.01)
 ;;655.03 
 ;;9002226.02101,"913,655.03 ",.02)
 ;;655.03 
 ;;9002226.02101,"913,655.03 ",.03)
 ;;1