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

ATXD3S7.m

Go to the documentation of this file.
ATXD3S7 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON OCT 28, 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,"1011,659.03 ",.03)
 ;;1
 ;;9002226.02101,"1011,659.13 ",.01)
 ;;659.13 
 ;;9002226.02101,"1011,659.13 ",.02)
 ;;659.13 
 ;;9002226.02101,"1011,659.13 ",.03)
 ;;1
 ;;9002226.02101,"1011,659.23 ",.01)
 ;;659.23 
 ;;9002226.02101,"1011,659.23 ",.02)
 ;;659.23 
 ;;9002226.02101,"1011,659.23 ",.03)
 ;;1
 ;;9002226.02101,"1011,659.33 ",.01)
 ;;659.33 
 ;;9002226.02101,"1011,659.33 ",.02)
 ;;659.33 
 ;;9002226.02101,"1011,659.33 ",.03)
 ;;1
 ;;9002226.02101,"1011,659.43 ",.01)
 ;;659.43 
 ;;9002226.02101,"1011,659.43 ",.02)
 ;;659.43 
 ;;9002226.02101,"1011,659.43 ",.03)
 ;;1
 ;;9002226.02101,"1011,659.53 ",.01)
 ;;659.53 
 ;;9002226.02101,"1011,659.53 ",.02)
 ;;659.53 
 ;;9002226.02101,"1011,659.53 ",.03)
 ;;1
 ;;9002226.02101,"1011,659.63 ",.01)
 ;;659.63 
 ;;9002226.02101,"1011,659.63 ",.02)
 ;;659.63 
 ;;9002226.02101,"1011,659.63 ",.03)
 ;;1
 ;;9002226.02101,"1011,659.73 ",.01)
 ;;659.73 
 ;;9002226.02101,"1011,659.73 ",.02)
 ;;659.73 
 ;;9002226.02101,"1011,659.73 ",.03)
 ;;1
 ;;9002226.02101,"1011,659.83 ",.01)
 ;;659.83 
 ;;9002226.02101,"1011,659.83 ",.02)
 ;;659.83 
 ;;9002226.02101,"1011,659.83 ",.03)
 ;;1
 ;;9002226.02101,"1011,659.93 ",.01)
 ;;659.93 
 ;;9002226.02101,"1011,659.93 ",.02)
 ;;659.93 
 ;;9002226.02101,"1011,659.93 ",.03)
 ;;1
 ;;9002226.02101,"1011,660.03 ",.01)
 ;;660.03 
 ;;9002226.02101,"1011,660.03 ",.02)
 ;;660.03 
 ;;9002226.02101,"1011,660.03 ",.03)
 ;;1
 ;;9002226.02101,"1011,660.13 ",.01)
 ;;660.13 
 ;;9002226.02101,"1011,660.13 ",.02)
 ;;660.13 
 ;;9002226.02101,"1011,660.13 ",.03)
 ;;1
 ;;9002226.02101,"1011,660.23 ",.01)
 ;;660.23 
 ;;9002226.02101,"1011,660.23 ",.02)
 ;;660.23 
 ;;9002226.02101,"1011,660.23 ",.03)
 ;;1
 ;;9002226.02101,"1011,660.33 ",.01)
 ;;660.33 
 ;;9002226.02101,"1011,660.33 ",.02)
 ;;660.33 
 ;;9002226.02101,"1011,660.33 ",.03)
 ;;1
 ;;9002226.02101,"1011,660.43 ",.01)
 ;;660.43 
 ;;9002226.02101,"1011,660.43 ",.02)
 ;;660.43 
 ;;9002226.02101,"1011,660.43 ",.03)
 ;;1
 ;;9002226.02101,"1011,660.53 ",.01)
 ;;660.53 
 ;;9002226.02101,"1011,660.53 ",.02)
 ;;660.53 
 ;;9002226.02101,"1011,660.53 ",.03)
 ;;1
 ;;9002226.02101,"1011,660.63 ",.01)
 ;;660.63 
 ;;9002226.02101,"1011,660.63 ",.02)
 ;;660.63 
 ;;9002226.02101,"1011,660.63 ",.03)
 ;;1
 ;;9002226.02101,"1011,660.73 ",.01)
 ;;660.73 
 ;;9002226.02101,"1011,660.73 ",.02)
 ;;660.73 
 ;;9002226.02101,"1011,660.73 ",.03)
 ;;1
 ;;9002226.02101,"1011,660.83 ",.01)
 ;;660.83 
 ;;9002226.02101,"1011,660.83 ",.02)
 ;;660.83 
 ;;9002226.02101,"1011,660.83 ",.03)
 ;;1
 ;;9002226.02101,"1011,660.93 ",.01)
 ;;660.93 
 ;;9002226.02101,"1011,660.93 ",.02)
 ;;660.93 
 ;;9002226.02101,"1011,660.93 ",.03)
 ;;1
 ;;9002226.02101,"1011,661.03 ",.01)
 ;;661.03 
 ;;9002226.02101,"1011,661.03 ",.02)
 ;;661.03 
 ;;9002226.02101,"1011,661.03 ",.03)
 ;;1
 ;;9002226.02101,"1011,661.13 ",.01)
 ;;661.13 
 ;;9002226.02101,"1011,661.13 ",.02)
 ;;661.13 
 ;;9002226.02101,"1011,661.13 ",.03)
 ;;1
 ;;9002226.02101,"1011,661.23 ",.01)
 ;;661.23 
 ;;9002226.02101,"1011,661.23 ",.02)
 ;;661.23 
 ;;9002226.02101,"1011,661.23 ",.03)
 ;;1
 ;;9002226.02101,"1011,661.33 ",.01)
 ;;661.33 
 ;;9002226.02101,"1011,661.33 ",.02)
 ;;661.33 
 ;;9002226.02101,"1011,661.33 ",.03)
 ;;1
 ;;9002226.02101,"1011,661.43 ",.01)
 ;;661.43 
 ;;9002226.02101,"1011,661.43 ",.02)
 ;;661.43 
 ;;9002226.02101,"1011,661.43 ",.03)
 ;;1
 ;;9002226.02101,"1011,661.93 ",.01)
 ;;661.93 
 ;;9002226.02101,"1011,661.93 ",.02)
 ;;661.93 
 ;;9002226.02101,"1011,661.93 ",.03)
 ;;1
 ;;9002226.02101,"1011,662.03 ",.01)
 ;;662.03 
 ;;9002226.02101,"1011,662.03 ",.02)
 ;;662.03 
 ;;9002226.02101,"1011,662.03 ",.03)
 ;;1
 ;;9002226.02101,"1011,662.13 ",.01)
 ;;662.13 
 ;;9002226.02101,"1011,662.13 ",.02)
 ;;662.13 
 ;;9002226.02101,"1011,662.13 ",.03)
 ;;1
 ;;9002226.02101,"1011,662.23 ",.01)
 ;;662.23 
 ;;9002226.02101,"1011,662.23 ",.02)
 ;;662.23 
 ;;9002226.02101,"1011,662.23 ",.03)
 ;;1
 ;;9002226.02101,"1011,662.33 ",.01)
 ;;662.33 
 ;;9002226.02101,"1011,662.33 ",.02)
 ;;662.33 
 ;;9002226.02101,"1011,662.33 ",.03)
 ;;1
 ;;9002226.02101,"1011,663.03 ",.01)
 ;;663.03 
 ;;9002226.02101,"1011,663.03 ",.02)
 ;;663.03 
 ;;9002226.02101,"1011,663.03 ",.03)
 ;;1
 ;;9002226.02101,"1011,663.13 ",.01)
 ;;663.13 
 ;;9002226.02101,"1011,663.13 ",.02)
 ;;663.13 
 ;;9002226.02101,"1011,663.13 ",.03)
 ;;1
 ;;9002226.02101,"1011,663.23 ",.01)
 ;;663.23 
 ;;9002226.02101,"1011,663.23 ",.02)
 ;;663.23 
 ;;9002226.02101,"1011,663.23 ",.03)
 ;;1
 ;;9002226.02101,"1011,663.33 ",.01)
 ;;663.33 
 ;;9002226.02101,"1011,663.33 ",.02)
 ;;663.33 
 ;;9002226.02101,"1011,663.33 ",.03)
 ;;1
 ;;9002226.02101,"1011,663.43 ",.01)
 ;;663.43 
 ;;9002226.02101,"1011,663.43 ",.02)
 ;;663.43 
 ;;9002226.02101,"1011,663.43 ",.03)
 ;;1
 ;;9002226.02101,"1011,663.53 ",.01)
 ;;663.53 
 ;;9002226.02101,"1011,663.53 ",.02)
 ;;663.53 
 ;;9002226.02101,"1011,663.53 ",.03)
 ;;1
 ;;9002226.02101,"1011,663.63 ",.01)
 ;;663.63 
 ;;9002226.02101,"1011,663.63 ",.02)
 ;;663.63 
 ;;9002226.02101,"1011,663.63 ",.03)
 ;;1
 ;;9002226.02101,"1011,663.83 ",.01)
 ;;663.83 
 ;;9002226.02101,"1011,663.83 ",.02)
 ;;663.83 
 ;;9002226.02101,"1011,663.83 ",.03)
 ;;1
 ;;9002226.02101,"1011,663.93 ",.01)
 ;;663.93 
 ;;9002226.02101,"1011,663.93 ",.02)
 ;;663.93 
 ;;9002226.02101,"1011,663.93 ",.03)
 ;;1
 ;;9002226.02101,"1011,665.03 ",.01)
 ;;665.03 
 ;;9002226.02101,"1011,665.03 ",.02)
 ;;665.03 
 ;;9002226.02101,"1011,665.03 ",.03)
 ;;1
 ;;9002226.02101,"1011,665.83 ",.01)
 ;;665.83 
 ;;9002226.02101,"1011,665.83 ",.02)
 ;;665.83 
 ;;9002226.02101,"1011,665.83 ",.03)
 ;;1
 ;;9002226.02101,"1011,665.93 ",.01)
 ;;665.93 
 ;;9002226.02101,"1011,665.93 ",.02)
 ;;665.93 
 ;;9002226.02101,"1011,665.93 ",.03)
 ;;1
 ;;9002226.02101,"1011,668.03 ",.01)
 ;;668.03 
 ;;9002226.02101,"1011,668.03 ",.02)
 ;;668.03 
 ;;9002226.02101,"1011,668.03 ",.03)
 ;;1
 ;;9002226.02101,"1011,668.13 ",.01)
 ;;668.13 
 ;;9002226.02101,"1011,668.13 ",.02)
 ;;668.13 
 ;;9002226.02101,"1011,668.13 ",.03)
 ;;1
 ;;9002226.02101,"1011,668.23 ",.01)
 ;;668.23 
 ;;9002226.02101,"1011,668.23 ",.02)
 ;;668.23 
 ;;9002226.02101,"1011,668.23 ",.03)
 ;;1
 ;;9002226.02101,"1011,668.83 ",.01)
 ;;668.83 
 ;;9002226.02101,"1011,668.83 ",.02)
 ;;668.83 
 ;;9002226.02101,"1011,668.83 ",.03)
 ;;1
 ;;9002226.02101,"1011,668.93 ",.01)
 ;;668.93 
 ;;9002226.02101,"1011,668.93 ",.02)
 ;;668.93 
 ;;9002226.02101,"1011,668.93 ",.03)
 ;;1
 ;;9002226.02101,"1011,669.03 ",.01)
 ;;669.03 
 ;;9002226.02101,"1011,669.03 ",.02)
 ;;669.03 
 ;;9002226.02101,"1011,669.03 ",.03)
 ;;1
 ;;9002226.02101,"1011,669.13 ",.01)
 ;;669.13 
 ;;9002226.02101,"1011,669.13 ",.02)
 ;;669.13 
 ;;9002226.02101,"1011,669.13 ",.03)
 ;;1
 ;;9002226.02101,"1011,669.23 ",.01)
 ;;669.23 
 ;;9002226.02101,"1011,669.23 ",.02)
 ;;669.23 
 ;;9002226.02101,"1011,669.23 ",.03)
 ;;1
 ;;9002226.02101,"1011,669.43 ",.01)
 ;;669.43 
 ;;9002226.02101,"1011,669.43 ",.02)
 ;;669.43 
 ;;9002226.02101,"1011,669.43 ",.03)
 ;;1
 ;;9002226.02101,"1011,669.83 ",.01)
 ;;669.83 
 ;;9002226.02101,"1011,669.83 ",.02)
 ;;669.83 
 ;;9002226.02101,"1011,669.83 ",.03)
 ;;1
 ;;9002226.02101,"1011,669.93 ",.01)
 ;;669.93 
 ;;9002226.02101,"1011,669.93 ",.02)
 ;;669.93 
 ;;9002226.02101,"1011,669.93 ",.03)
 ;;1
 ;;9002226.02101,"1011,671.03 ",.01)
 ;;671.03 
 ;;9002226.02101,"1011,671.03 ",.02)
 ;;671.03 
 ;;9002226.02101,"1011,671.03 ",.03)
 ;;1
 ;;9002226.02101,"1011,671.13 ",.01)
 ;;671.13 
 ;;9002226.02101,"1011,671.13 ",.02)
 ;;671.13 
 ;;9002226.02101,"1011,671.13 ",.03)
 ;;1
 ;;9002226.02101,"1011,671.23 ",.01)
 ;;671.23 
 ;;9002226.02101,"1011,671.23 ",.02)
 ;;671.23 
 ;;9002226.02101,"1011,671.23 ",.03)
 ;;1
 ;;9002226.02101,"1011,671.33 ",.01)
 ;;671.33 
 ;;9002226.02101,"1011,671.33 ",.02)
 ;;671.33 
 ;;9002226.02101,"1011,671.33 ",.03)
 ;;1
 ;;9002226.02101,"1011,671.53 ",.01)
 ;;671.53 
 ;;9002226.02101,"1011,671.53 ",.02)
 ;;671.53 
 ;;9002226.02101,"1011,671.53 ",.03)
 ;;1
 ;;9002226.02101,"1011,671.83 ",.01)
 ;;671.83 
 ;;9002226.02101,"1011,671.83 ",.02)
 ;;671.83 
 ;;9002226.02101,"1011,671.83 ",.03)
 ;;1
 ;;9002226.02101,"1011,671.93 ",.01)
 ;;671.93 
 ;;9002226.02101,"1011,671.93 ",.02)
 ;;671.93 
 ;;9002226.02101,"1011,671.93 ",.03)
 ;;1
 ;;9002226.02101,"1011,673.03 ",.01)
 ;;673.03 
 ;;9002226.02101,"1011,673.03 ",.02)
 ;;673.03 
 ;;9002226.02101,"1011,673.03 ",.03)
 ;;1
 ;;9002226.02101,"1011,673.13 ",.01)
 ;;673.13 
 ;;9002226.02101,"1011,673.13 ",.02)
 ;;673.13 
 ;;9002226.02101,"1011,673.13 ",.03)
 ;;1
 ;;9002226.02101,"1011,673.23 ",.01)
 ;;673.23 
 ;;9002226.02101,"1011,673.23 ",.02)
 ;;673.23 
 ;;9002226.02101,"1011,673.23 ",.03)
 ;;1
 ;;9002226.02101,"1011,673.33 ",.01)
 ;;673.33 
 ;;9002226.02101,"1011,673.33 ",.02)
 ;;673.33 
 ;;9002226.02101,"1011,673.33 ",.03)
 ;;1
 ;;9002226.02101,"1011,673.83 ",.01)
 ;;673.83 
 ;;9002226.02101,"1011,673.83 ",.02)
 ;;673.83 
 ;;9002226.02101,"1011,673.83 ",.03)
 ;;1
 ;;9002226.02101,"1011,674.03 ",.01)
 ;;674.03 
 ;;9002226.02101,"1011,674.03 ",.02)
 ;;674.03 
 ;;9002226.02101,"1011,674.03 ",.03)
 ;;1
 ;;9002226.02101,"1011,674.53 ",.01)
 ;;674.53 
 ;;9002226.02101,"1011,674.53 ",.02)
 ;;674.53 
 ;;9002226.02101,"1011,674.53 ",.03)
 ;;1
 ;;9002226.02101,"1011,675.03 ",.01)
 ;;675.03 
 ;;9002226.02101,"1011,675.03 ",.02)
 ;;675.03 
 ;;9002226.02101,"1011,675.03 ",.03)
 ;;1
 ;;9002226.02101,"1011,675.13 ",.01)
 ;;675.13 
 ;;9002226.02101,"1011,675.13 ",.02)
 ;;675.13 
 ;;9002226.02101,"1011,675.13 ",.03)
 ;;1
 ;;9002226.02101,"1011,675.23 ",.01)
 ;;675.23 
 ;;9002226.02101,"1011,675.23 ",.02)
 ;;675.23 
 ;;9002226.02101,"1011,675.23 ",.03)
 ;;1
 ;;9002226.02101,"1011,675.83 ",.01)
 ;;675.83 
 ;;9002226.02101,"1011,675.83 ",.02)
 ;;675.83 
 ;;9002226.02101,"1011,675.83 ",.03)
 ;;1
 ;;9002226.02101,"1011,675.93 ",.01)
 ;;675.93 
 ;;9002226.02101,"1011,675.93 ",.02)
 ;;675.93 
 ;;9002226.02101,"1011,675.93 ",.03)
 ;;1
 ;;9002226.02101,"1011,676.03 ",.01)
 ;;676.03 
 ;;9002226.02101,"1011,676.03 ",.02)
 ;;676.03 
 ;;9002226.02101,"1011,676.03 ",.03)
 ;;1
 ;;9002226.02101,"1011,676.13 ",.01)
 ;;676.13 
 ;;9002226.02101,"1011,676.13 ",.02)
 ;;676.13 
 ;;9002226.02101,"1011,676.13 ",.03)
 ;;1
 ;;9002226.02101,"1011,676.23 ",.01)
 ;;676.23 
 ;;9002226.02101,"1011,676.23 ",.02)
 ;;676.23 
 ;;9002226.02101,"1011,676.23 ",.03)
 ;;1
 ;;9002226.02101,"1011,676.33 ",.01)
 ;;676.33 
 ;;9002226.02101,"1011,676.33 ",.02)
 ;;676.33 
 ;;9002226.02101,"1011,676.33 ",.03)
 ;;1
 ;;9002226.02101,"1011,676.43 ",.01)
 ;;676.43 
 ;;9002226.02101,"1011,676.43 ",.02)
 ;;676.43 
 ;;9002226.02101,"1011,676.43 ",.03)
 ;;1
 ;;9002226.02101,"1011,676.53 ",.01)
 ;;676.53 
 ;;9002226.02101,"1011,676.53 ",.02)
 ;;676.53 
 ;;9002226.02101,"1011,676.53 ",.03)
 ;;1
 ;;9002226.02101,"1011,676.63 ",.01)
 ;;676.63 
 ;;9002226.02101,"1011,676.63 ",.02)
 ;;676.63 
 ;;9002226.02101,"1011,676.63 ",.03)
 ;;1
 ;;9002226.02101,"1011,676.83 ",.01)
 ;;676.83 
 ;;9002226.02101,"1011,676.83 ",.02)
 ;;676.83 
 ;;9002226.02101,"1011,676.83 ",.03)
 ;;1
 ;;9002226.02101,"1011,676.93 ",.01)
 ;;676.93 
 ;;9002226.02101,"1011,676.93 ",.02)
 ;;676.93 
 ;;9002226.02101,"1011,676.93 ",.03)
 ;;1
 ;;9002226.02101,"1011,678.03 ",.01)
 ;;678.03 
 ;;9002226.02101,"1011,678.03 ",.02)
 ;;678.03 
 ;;9002226.02101,"1011,678.03 ",.03)
 ;;1
 ;;9002226.02101,"1011,678.13 ",.01)
 ;;678.13 
 ;;9002226.02101,"1011,678.13 ",.02)
 ;;678.13 
 ;;9002226.02101,"1011,678.13 ",.03)
 ;;1
 ;;9002226.02101,"1011,679.03 ",.01)
 ;;679.03 
 ;;9002226.02101,"1011,679.03 ",.02)
 ;;679.03 
 ;;9002226.02101,"1011,679.03 ",.03)
 ;;1
 ;;9002226.02101,"1011,679.13 ",.01)
 ;;679.13 
 ;;9002226.02101,"1011,679.13 ",.02)
 ;;679.13 
 ;;9002226.02101,"1011,679.13 ",.03)
 ;;1
 ;;9002226.02101,"1011,O09.00 ",.01)
 ;;O09.00 
 ;;9002226.02101,"1011,O09.00 ",.02)
 ;;O09.00 
 ;;9002226.02101,"1011,O09.00 ",.03)
 ;;30
 ;;9002226.02101,"1011,O09.01 ",.01)
 ;;O09.01 
 ;;9002226.02101,"1011,O09.01 ",.02)
 ;;O09.01 
 ;;9002226.02101,"1011,O09.01 ",.03)
 ;;30
 ;;9002226.02101,"1011,O09.02 ",.01)
 ;;O09.02 
 ;;9002226.02101,"1011,O09.02 ",.02)
 ;;O09.02 
 ;;9002226.02101,"1011,O09.02 ",.03)
 ;;30
 ;;9002226.02101,"1011,O09.03 ",.01)
 ;;O09.03 
 ;;9002226.02101,"1011,O09.03 ",.02)
 ;;O09.03 
 ;;9002226.02101,"1011,O09.03 ",.03)
 ;;30
 ;;9002226.02101,"1011,O09.10 ",.01)
 ;;O09.10 
 ;;9002226.02101,"1011,O09.10 ",.02)
 ;;O09.10 
 ;;9002226.02101,"1011,O09.10 ",.03)
 ;;30
 ;;9002226.02101,"1011,O09.11 ",.01)
 ;;O09.11 
 ;;9002226.02101,"1011,O09.11 ",.02)
 ;;O09.11 
 ;;9002226.02101,"1011,O09.11 ",.03)
 ;;30
 ;;9002226.02101,"1011,O09.12 ",.01)
 ;;O09.12 
 ;;9002226.02101,"1011,O09.12 ",.02)
 ;;O09.12 
 ;;9002226.02101,"1011,O09.12 ",.03)
 ;;30
 ;;9002226.02101,"1011,O09.13 ",.01)
 ;;O09.13 
 ;;9002226.02101,"1011,O09.13 ",.02)
 ;;O09.13 
 ;;9002226.02101,"1011,O09.13 ",.03)
 ;;30
 ;;9002226.02101,"1011,O09.211 ",.01)
 ;;O09.211 
 ;;9002226.02101,"1011,O09.211 ",.02)
 ;;O09.211 
 ;;9002226.02101,"1011,O09.211 ",.03)
 ;;30
 ;;9002226.02101,"1011,O09.212 ",.01)
 ;;O09.212 
 ;;9002226.02101,"1011,O09.212 ",.02)
 ;;O09.212