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

ATXD6W2.m

Go to the documentation of this file.
ATXD6W2 ;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,090.0 ",.01)
 ;;090.0
 ;;9002226.02101,"480,090.0 ",.02)
 ;;090.9
 ;;9002226.02101,"480,090.0 ",.03)
 ;;1
 ;;9002226.02101,"480,091.0 ",.01)
 ;;091.0
 ;;9002226.02101,"480,091.0 ",.02)
 ;;091.9
 ;;9002226.02101,"480,091.0 ",.03)
 ;;1
 ;;9002226.02101,"480,092.0 ",.01)
 ;;092.0
 ;;9002226.02101,"480,092.0 ",.02)
 ;;092.9
 ;;9002226.02101,"480,092.0 ",.03)
 ;;1
 ;;9002226.02101,"480,093.0 ",.01)
 ;;093.0
 ;;9002226.02101,"480,093.0 ",.02)
 ;;093.9
 ;;9002226.02101,"480,093.0 ",.03)
 ;;1
 ;;9002226.02101,"480,094.0 ",.01)
 ;;094.0
 ;;9002226.02101,"480,094.0 ",.02)
 ;;094.9
 ;;9002226.02101,"480,094.0 ",.03)
 ;;1
 ;;9002226.02101,"480,095.0 ",.01)
 ;;095.0
 ;;9002226.02101,"480,095.0 ",.02)
 ;;095.9
 ;;9002226.02101,"480,095.0 ",.03)
 ;;1
 ;;9002226.02101,"480,096.0 ",.01)
 ;;096.0
 ;;9002226.02101,"480,096.0 ",.02)
 ;;096.9
 ;;9002226.02101,"480,096.0 ",.03)
 ;;1
 ;;9002226.02101,"480,097.0 ",.01)
 ;;097.0
 ;;9002226.02101,"480,097.0 ",.02)
 ;;097.9
 ;;9002226.02101,"480,097.0 ",.03)
 ;;1
 ;;9002226.02101,"480,112.0 ",.01)
 ;;112.0
 ;;9002226.02101,"480,112.0 ",.02)
 ;;112.0
 ;;9002226.02101,"480,112.0 ",.03)
 ;;1
 ;;9002226.02101,"480,114.1 ",.01)
 ;;114.1
 ;;9002226.02101,"480,114.1 ",.02)
 ;;114.3
 ;;9002226.02101,"480,114.1 ",.03)
 ;;1
 ;;9002226.02101,"480,115.00 ",.01)
 ;;115.00
 ;;9002226.02101,"480,115.00 ",.02)
 ;;115.99
 ;;9002226.02101,"480,115.00 ",.03)
 ;;1
 ;;9002226.02101,"480,117.3 ",.01)
 ;;117.3
 ;;9002226.02101,"480,117.3 ",.02)
 ;;117.3
 ;;9002226.02101,"480,117.3 ",.03)
 ;;1
 ;;9002226.02101,"480,117.5 ",.01)
 ;;117.5
 ;;9002226.02101,"480,117.5 ",.02)
 ;;117.5
 ;;9002226.02101,"480,117.5 ",.03)
 ;;1
 ;;9002226.02101,"480,130.0 ",.01)
 ;;130.0
 ;;9002226.02101,"480,130.0 ",.02)
 ;;130.9
 ;;9002226.02101,"480,130.0 ",.03)
 ;;1
 ;;9002226.02101,"480,136.3 ",.01)
 ;;136.3
 ;;9002226.02101,"480,136.3 ",.02)
 ;;136.3
 ;;9002226.02101,"480,136.3 ",.03)
 ;;1
 ;;9002226.02101,"480,136.8 ",.01)
 ;;136.8
 ;;9002226.02101,"480,136.8 ",.02)
 ;;136.8
 ;;9002226.02101,"480,136.8 ",.03)
 ;;1
 ;;9002226.02101,"480,519.9 ",.01)
 ;;519.9
 ;;9002226.02101,"480,519.9 ",.02)
 ;;519.9
 ;;9002226.02101,"480,519.9 ",.03)
 ;;1
 ;;9002226.02101,"480,A02.0 ",.01)
 ;;A02.0 
 ;;9002226.02101,"480,A02.0 ",.02)
 ;;A02.0 
 ;;9002226.02101,"480,A02.0 ",.03)
 ;;30
 ;;9002226.02101,"480,A02.8 ",.01)
 ;;A02.8 
 ;;9002226.02101,"480,A02.8 ",.02)
 ;;A02.8 
 ;;9002226.02101,"480,A02.8 ",.03)
 ;;30
 ;;9002226.02101,"480,A02.9 ",.01)
 ;;A02.9 
 ;;9002226.02101,"480,A02.9 ",.02)
 ;;A02.9 
 ;;9002226.02101,"480,A02.9 ",.03)
 ;;30
 ;;9002226.02101,"480,A03.0 ",.01)
 ;;A03.0 
 ;;9002226.02101,"480,A03.0 ",.02)
 ;;A03.0 
 ;;9002226.02101,"480,A03.0 ",.03)
 ;;30
 ;;9002226.02101,"480,A03.1 ",.01)
 ;;A03.1 
 ;;9002226.02101,"480,A03.1 ",.02)
 ;;A03.1 
 ;;9002226.02101,"480,A03.1 ",.03)
 ;;30
 ;;9002226.02101,"480,A03.2 ",.01)
 ;;A03.2 
 ;;9002226.02101,"480,A03.2 ",.02)
 ;;A03.2 
 ;;9002226.02101,"480,A03.2 ",.03)
 ;;30
 ;;9002226.02101,"480,A03.3 ",.01)
 ;;A03.3 
 ;;9002226.02101,"480,A03.3 ",.02)
 ;;A03.3 
 ;;9002226.02101,"480,A03.3 ",.03)
 ;;30
 ;;9002226.02101,"480,A03.8 ",.01)
 ;;A03.8 
 ;;9002226.02101,"480,A03.8 ",.02)
 ;;A03.8 
 ;;9002226.02101,"480,A03.8 ",.03)
 ;;30
 ;;9002226.02101,"480,A03.9 ",.01)
 ;;A03.9 
 ;;9002226.02101,"480,A03.9 ",.02)
 ;;A03.9 
 ;;9002226.02101,"480,A03.9 ",.03)
 ;;30
 ;;9002226.02101,"480,A04.5 ",.01)
 ;;A04.5 
 ;;9002226.02101,"480,A04.5 ",.02)
 ;;A04.5 
 ;;9002226.02101,"480,A04.5 ",.03)
 ;;30
 ;;9002226.02101,"480,A07.2 ",.01)
 ;;A07.2 
 ;;9002226.02101,"480,A07.2 ",.02)
 ;;A07.2 
 ;;9002226.02101,"480,A07.2 ",.03)
 ;;30
 ;;9002226.02101,"480,A15.0 ",.01)
 ;;A15.0 
 ;;9002226.02101,"480,A15.0 ",.02)
 ;;A15.0 
 ;;9002226.02101,"480,A15.0 ",.03)
 ;;30
 ;;9002226.02101,"480,A15.4 ",.01)
 ;;A15.4 
 ;;9002226.02101,"480,A15.4 ",.02)
 ;;A15.4 
 ;;9002226.02101,"480,A15.4 ",.03)
 ;;30
 ;;9002226.02101,"480,A15.5 ",.01)
 ;;A15.5 
 ;;9002226.02101,"480,A15.5 ",.02)
 ;;A15.5 
 ;;9002226.02101,"480,A15.5 ",.03)
 ;;30
 ;;9002226.02101,"480,A15.6 ",.01)
 ;;A15.6 
 ;;9002226.02101,"480,A15.6 ",.02)
 ;;A15.6 
 ;;9002226.02101,"480,A15.6 ",.03)
 ;;30
 ;;9002226.02101,"480,A15.7 ",.01)
 ;;A15.7 
 ;;9002226.02101,"480,A15.7 ",.02)
 ;;A15.7 
 ;;9002226.02101,"480,A15.7 ",.03)
 ;;30
 ;;9002226.02101,"480,A15.8 ",.01)
 ;;A15.8 
 ;;9002226.02101,"480,A15.8 ",.02)
 ;;A15.8 
 ;;9002226.02101,"480,A15.8 ",.03)
 ;;30
 ;;9002226.02101,"480,A15.9 ",.01)
 ;;A15.9 
 ;;9002226.02101,"480,A15.9 ",.02)
 ;;A15.9 
 ;;9002226.02101,"480,A15.9 ",.03)
 ;;30
 ;;9002226.02101,"480,A17.0 ",.01)
 ;;A17.0 
 ;;9002226.02101,"480,A17.0 ",.02)
 ;;A17.0 
 ;;9002226.02101,"480,A17.0 ",.03)
 ;;30
 ;;9002226.02101,"480,A17.1 ",.01)
 ;;A17.1 
 ;;9002226.02101,"480,A17.1 ",.02)
 ;;A17.1 
 ;;9002226.02101,"480,A17.1 ",.03)
 ;;30
 ;;9002226.02101,"480,A17.81 ",.01)
 ;;A17.81 
 ;;9002226.02101,"480,A17.81 ",.02)
 ;;A17.81 
 ;;9002226.02101,"480,A17.81 ",.03)
 ;;30
 ;;9002226.02101,"480,A17.82 ",.01)
 ;;A17.82 
 ;;9002226.02101,"480,A17.82 ",.02)
 ;;A17.82 
 ;;9002226.02101,"480,A17.82 ",.03)
 ;;30
 ;;9002226.02101,"480,A17.83 ",.01)
 ;;A17.83 
 ;;9002226.02101,"480,A17.83 ",.02)
 ;;A17.83 
 ;;9002226.02101,"480,A17.83 ",.03)
 ;;30
 ;;9002226.02101,"480,A17.89 ",.01)
 ;;A17.89 
 ;;9002226.02101,"480,A17.89 ",.02)
 ;;A17.89 
 ;;9002226.02101,"480,A17.89 ",.03)
 ;;30
 ;;9002226.02101,"480,A17.9 ",.01)
 ;;A17.9 
 ;;9002226.02101,"480,A17.9 ",.02)
 ;;A17.9 
 ;;9002226.02101,"480,A17.9 ",.03)
 ;;30
 ;;9002226.02101,"480,A18.01 ",.01)
 ;;A18.01 
 ;;9002226.02101,"480,A18.01 ",.02)
 ;;A18.01 
 ;;9002226.02101,"480,A18.01 ",.03)
 ;;30
 ;;9002226.02101,"480,A18.02 ",.01)
 ;;A18.02 
 ;;9002226.02101,"480,A18.02 ",.02)
 ;;A18.02 
 ;;9002226.02101,"480,A18.02 ",.03)
 ;;30
 ;;9002226.02101,"480,A18.03 ",.01)
 ;;A18.03 
 ;;9002226.02101,"480,A18.03 ",.02)
 ;;A18.03 
 ;;9002226.02101,"480,A18.03 ",.03)
 ;;30
 ;;9002226.02101,"480,A18.09 ",.01)
 ;;A18.09 
 ;;9002226.02101,"480,A18.09 ",.02)
 ;;A18.09 
 ;;9002226.02101,"480,A18.09 ",.03)
 ;;30
 ;;9002226.02101,"480,A18.10 ",.01)
 ;;A18.10 
 ;;9002226.02101,"480,A18.10 ",.02)
 ;;A18.10 
 ;;9002226.02101,"480,A18.10 ",.03)
 ;;30
 ;;9002226.02101,"480,A18.11 ",.01)
 ;;A18.11 
 ;;9002226.02101,"480,A18.11 ",.02)
 ;;A18.11 
 ;;9002226.02101,"480,A18.11 ",.03)
 ;;30
 ;;9002226.02101,"480,A18.12 ",.01)
 ;;A18.12 
 ;;9002226.02101,"480,A18.12 ",.02)
 ;;A18.12 
 ;;9002226.02101,"480,A18.12 ",.03)
 ;;30
 ;;9002226.02101,"480,A18.13 ",.01)
 ;;A18.13 
 ;;9002226.02101,"480,A18.13 ",.02)
 ;;A18.13 
 ;;9002226.02101,"480,A18.13 ",.03)
 ;;30
 ;;9002226.02101,"480,A18.14 ",.01)
 ;;A18.14 
 ;;9002226.02101,"480,A18.14 ",.02)
 ;;A18.14 
 ;;9002226.02101,"480,A18.14 ",.03)
 ;;30
 ;;9002226.02101,"480,A18.15 ",.01)
 ;;A18.15 
 ;;9002226.02101,"480,A18.15 ",.02)
 ;;A18.15 
 ;;9002226.02101,"480,A18.15 ",.03)
 ;;30
 ;;9002226.02101,"480,A18.16 ",.01)
 ;;A18.16 
 ;;9002226.02101,"480,A18.16 ",.02)
 ;;A18.16 
 ;;9002226.02101,"480,A18.16 ",.03)
 ;;30
 ;;9002226.02101,"480,A18.17 ",.01)
 ;;A18.17 
 ;;9002226.02101,"480,A18.17 ",.02)
 ;;A18.17 
 ;;9002226.02101,"480,A18.17 ",.03)
 ;;30
 ;;9002226.02101,"480,A18.18 ",.01)
 ;;A18.18 
 ;;9002226.02101,"480,A18.18 ",.02)
 ;;A18.18 
 ;;9002226.02101,"480,A18.18 ",.03)
 ;;30
 ;;9002226.02101,"480,A18.2 ",.01)
 ;;A18.2 
 ;;9002226.02101,"480,A18.2 ",.02)
 ;;A18.2 
 ;;9002226.02101,"480,A18.2 ",.03)
 ;;30
 ;;9002226.02101,"480,A18.31 ",.01)
 ;;A18.31 
 ;;9002226.02101,"480,A18.31 ",.02)
 ;;A18.31 
 ;;9002226.02101,"480,A18.31 ",.03)
 ;;30
 ;;9002226.02101,"480,A18.32 ",.01)
 ;;A18.32 
 ;;9002226.02101,"480,A18.32 ",.02)
 ;;A18.32 
 ;;9002226.02101,"480,A18.32 ",.03)
 ;;30
 ;;9002226.02101,"480,A18.39 ",.01)
 ;;A18.39 
 ;;9002226.02101,"480,A18.39 ",.02)
 ;;A18.39 
 ;;9002226.02101,"480,A18.39 ",.03)
 ;;30
 ;;9002226.02101,"480,A18.4 ",.01)
 ;;A18.4 
 ;;9002226.02101,"480,A18.4 ",.02)
 ;;A18.4 
 ;;9002226.02101,"480,A18.4 ",.03)
 ;;30
 ;;9002226.02101,"480,A18.50 ",.01)
 ;;A18.50 
 ;;9002226.02101,"480,A18.50 ",.02)
 ;;A18.50 
 ;;9002226.02101,"480,A18.50 ",.03)
 ;;30
 ;;9002226.02101,"480,A18.51 ",.01)
 ;;A18.51 
 ;;9002226.02101,"480,A18.51 ",.02)
 ;;A18.51 
 ;;9002226.02101,"480,A18.51 ",.03)
 ;;30
 ;;9002226.02101,"480,A18.52 ",.01)
 ;;A18.52 
 ;;9002226.02101,"480,A18.52 ",.02)
 ;;A18.52 
 ;;9002226.02101,"480,A18.52 ",.03)
 ;;30
 ;;9002226.02101,"480,A18.53 ",.01)
 ;;A18.53 
 ;;9002226.02101,"480,A18.53 ",.02)
 ;;A18.53 
 ;;9002226.02101,"480,A18.53 ",.03)
 ;;30
 ;;9002226.02101,"480,A18.54 ",.01)
 ;;A18.54 
 ;;9002226.02101,"480,A18.54 ",.02)
 ;;A18.54 
 ;;9002226.02101,"480,A18.54 ",.03)
 ;;30
 ;;9002226.02101,"480,A18.59 ",.01)
 ;;A18.59 
 ;;9002226.02101,"480,A18.59 ",.02)
 ;;A18.59 
 ;;9002226.02101,"480,A18.59 ",.03)
 ;;30
 ;;9002226.02101,"480,A18.6 ",.01)
 ;;A18.6 
 ;;9002226.02101,"480,A18.6 ",.02)
 ;;A18.6 
 ;;9002226.02101,"480,A18.6 ",.03)
 ;;30
 ;;9002226.02101,"480,A18.7 ",.01)
 ;;A18.7 
 ;;9002226.02101,"480,A18.7 ",.02)
 ;;A18.7 
 ;;9002226.02101,"480,A18.7 ",.03)
 ;;30
 ;;9002226.02101,"480,A18.81 ",.01)
 ;;A18.81 
 ;;9002226.02101,"480,A18.81 ",.02)
 ;;A18.81 
 ;;9002226.02101,"480,A18.81 ",.03)
 ;;30
 ;;9002226.02101,"480,A18.82 ",.01)
 ;;A18.82 
 ;;9002226.02101,"480,A18.82 ",.02)
 ;;A18.82 
 ;;9002226.02101,"480,A18.82 ",.03)
 ;;30
 ;;9002226.02101,"480,A18.83 ",.01)
 ;;A18.83 
 ;;9002226.02101,"480,A18.83 ",.02)
 ;;A18.83 
 ;;9002226.02101,"480,A18.83 ",.03)
 ;;30
 ;;9002226.02101,"480,A18.84 ",.01)
 ;;A18.84 
 ;;9002226.02101,"480,A18.84 ",.02)
 ;;A18.84 
 ;;9002226.02101,"480,A18.84 ",.03)
 ;;30
 ;;9002226.02101,"480,A18.85 ",.01)
 ;;A18.85 
 ;;9002226.02101,"480,A18.85 ",.02)
 ;;A18.85 
 ;;9002226.02101,"480,A18.85 ",.03)
 ;;30
 ;;9002226.02101,"480,A18.89 ",.01)
 ;;A18.89 
 ;;9002226.02101,"480,A18.89 ",.02)
 ;;A18.89 
 ;;9002226.02101,"480,A18.89 ",.03)
 ;;30
 ;;9002226.02101,"480,A19.0 ",.01)
 ;;A19.0 
 ;;9002226.02101,"480,A19.0 ",.02)
 ;;A19.0 
 ;;9002226.02101,"480,A19.0 ",.03)
 ;;30
 ;;9002226.02101,"480,A19.1 ",.01)
 ;;A19.1 
 ;;9002226.02101,"480,A19.1 ",.02)
 ;;A19.1 
 ;;9002226.02101,"480,A19.1 ",.03)
 ;;30
 ;;9002226.02101,"480,A19.2 ",.01)
 ;;A19.2 
 ;;9002226.02101,"480,A19.2 ",.02)
 ;;A19.2 
 ;;9002226.02101,"480,A19.2 ",.03)
 ;;30
 ;;9002226.02101,"480,A19.8 ",.01)
 ;;A19.8 
 ;;9002226.02101,"480,A19.8 ",.02)
 ;;A19.8 
 ;;9002226.02101,"480,A19.8 ",.03)
 ;;30
 ;;9002226.02101,"480,A19.9 ",.01)
 ;;A19.9 
 ;;9002226.02101,"480,A19.9 ",.02)
 ;;A19.9 
 ;;9002226.02101,"480,A19.9 ",.03)
 ;;30
 ;;9002226.02101,"480,A31.0 ",.01)
 ;;A31.0 
 ;;9002226.02101,"480,A31.0 ",.02)
 ;;A31.0 
 ;;9002226.02101,"480,A31.0 ",.03)
 ;;30
 ;;9002226.02101,"480,A31.1 ",.01)
 ;;A31.1 
 ;;9002226.02101,"480,A31.1 ",.02)
 ;;A31.1 
 ;;9002226.02101,"480,A31.1 ",.03)
 ;;30
 ;;9002226.02101,"480,A31.2 ",.01)
 ;;A31.2 
 ;;9002226.02101,"480,A31.2 ",.02)
 ;;A31.2 
 ;;9002226.02101,"480,A31.2 ",.03)
 ;;30
 ;;9002226.02101,"480,A31.9 ",.01)
 ;;A31.9 
 ;;9002226.02101,"480,A31.9 ",.02)
 ;;A31.9 
 ;;9002226.02101,"480,A31.9 ",.03)
 ;;30
 ;;9002226.02101,"480,A44.0 ",.01)
 ;;A44.0 
 ;;9002226.02101,"480,A44.0 ",.02)
 ;;A44.0 
 ;;9002226.02101,"480,A44.0 ",.03)
 ;;30
 ;;9002226.02101,"480,A44.1 ",.01)
 ;;A44.1 
 ;;9002226.02101,"480,A44.1 ",.02)
 ;;A44.1 
 ;;9002226.02101,"480,A44.1 ",.03)
 ;;30
 ;;9002226.02101,"480,A44.8 ",.01)
 ;;A44.8 
 ;;9002226.02101,"480,A44.8 ",.02)
 ;;A44.8 
 ;;9002226.02101,"480,A44.8 ",.03)
 ;;30
 ;;9002226.02101,"480,A44.9 ",.01)
 ;;A44.9 
 ;;9002226.02101,"480,A44.9 ",.02)
 ;;A44.9 
 ;;9002226.02101,"480,A44.9 ",.03)
 ;;30
 ;;9002226.02101,"480,A49.01 ",.01)
 ;;A49.01 
 ;;9002226.02101,"480,A49.01 ",.02)
 ;;A49.01 
 ;;9002226.02101,"480,A49.01 ",.03)
 ;;30
 ;;9002226.02101,"480,A49.1 ",.01)
 ;;A49.1 
 ;;9002226.02101,"480,A49.1 ",.02)
 ;;A49.1 
 ;;9002226.02101,"480,A49.1 ",.03)
 ;;30
 ;;9002226.02101,"480,A49.2 ",.01)
 ;;A49.2 
 ;;9002226.02101,"480,A49.2 ",.02)
 ;;A49.2 
 ;;9002226.02101,"480,A49.2 ",.03)
 ;;30
 ;;9002226.02101,"480,A50.01 ",.01)
 ;;A50.01 
 ;;9002226.02101,"480,A50.01 ",.02)
 ;;A50.01 
 ;;9002226.02101,"480,A50.01 ",.03)
 ;;30
 ;;9002226.02101,"480,A50.02 ",.01)
 ;;A50.02 
 ;;9002226.02101,"480,A50.02 ",.02)
 ;;A50.02 
 ;;9002226.02101,"480,A50.02 ",.03)
 ;;30
 ;;9002226.02101,"480,A50.03 ",.01)
 ;;A50.03 
 ;;9002226.02101,"480,A50.03 ",.02)
 ;;A50.03 
 ;;9002226.02101,"480,A50.03 ",.03)
 ;;30
 ;;9002226.02101,"480,A50.04 ",.01)
 ;;A50.04 
 ;;9002226.02101,"480,A50.04 ",.02)
 ;;A50.04 
 ;;9002226.02101,"480,A50.04 ",.03)
 ;;30
 ;;9002226.02101,"480,A50.05 ",.01)
 ;;A50.05 
 ;;9002226.02101,"480,A50.05 ",.02)
 ;;A50.05 
 ;;9002226.02101,"480,A50.05 ",.03)
 ;;30
 ;;9002226.02101,"480,A50.06 ",.01)
 ;;A50.06 
 ;;9002226.02101,"480,A50.06 ",.02)
 ;;A50.06 
 ;;9002226.02101,"480,A50.06 ",.03)
 ;;30
 ;;9002226.02101,"480,A50.07 ",.01)
 ;;A50.07 
 ;;9002226.02101,"480,A50.07 ",.02)
 ;;A50.07 
 ;;9002226.02101,"480,A50.07 ",.03)
 ;;30
 ;;9002226.02101,"480,A50.08 ",.01)
 ;;A50.08