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

ATXD6X4.m

Go to the documentation of this file.
ATXD6X4 ;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,"476,C83.70 ",.03)
 ;;30
 ;;9002226.02101,"476,C83.71 ",.01)
 ;;C83.71 
 ;;9002226.02101,"476,C83.71 ",.02)
 ;;C83.71 
 ;;9002226.02101,"476,C83.71 ",.03)
 ;;30
 ;;9002226.02101,"476,C83.72 ",.01)
 ;;C83.72 
 ;;9002226.02101,"476,C83.72 ",.02)
 ;;C83.72 
 ;;9002226.02101,"476,C83.72 ",.03)
 ;;30
 ;;9002226.02101,"476,C83.73 ",.01)
 ;;C83.73 
 ;;9002226.02101,"476,C83.73 ",.02)
 ;;C83.73 
 ;;9002226.02101,"476,C83.73 ",.03)
 ;;30
 ;;9002226.02101,"476,C83.74 ",.01)
 ;;C83.74 
 ;;9002226.02101,"476,C83.74 ",.02)
 ;;C83.74 
 ;;9002226.02101,"476,C83.74 ",.03)
 ;;30
 ;;9002226.02101,"476,C83.75 ",.01)
 ;;C83.75 
 ;;9002226.02101,"476,C83.75 ",.02)
 ;;C83.75 
 ;;9002226.02101,"476,C83.75 ",.03)
 ;;30
 ;;9002226.02101,"476,C83.76 ",.01)
 ;;C83.76 
 ;;9002226.02101,"476,C83.76 ",.02)
 ;;C83.76 
 ;;9002226.02101,"476,C83.76 ",.03)
 ;;30
 ;;9002226.02101,"476,C83.77 ",.01)
 ;;C83.77 
 ;;9002226.02101,"476,C83.77 ",.02)
 ;;C83.77 
 ;;9002226.02101,"476,C83.77 ",.03)
 ;;30
 ;;9002226.02101,"476,C83.78 ",.01)
 ;;C83.78 
 ;;9002226.02101,"476,C83.78 ",.02)
 ;;C83.78 
 ;;9002226.02101,"476,C83.78 ",.03)
 ;;30
 ;;9002226.02101,"476,C83.79 ",.01)
 ;;C83.79 
 ;;9002226.02101,"476,C83.79 ",.02)
 ;;C83.79 
 ;;9002226.02101,"476,C83.79 ",.03)
 ;;30
 ;;9002226.02101,"476,C83.80 ",.01)
 ;;C83.80 
 ;;9002226.02101,"476,C83.80 ",.02)
 ;;C83.80 
 ;;9002226.02101,"476,C83.80 ",.03)
 ;;30
 ;;9002226.02101,"476,C83.81 ",.01)
 ;;C83.81 
 ;;9002226.02101,"476,C83.81 ",.02)
 ;;C83.81 
 ;;9002226.02101,"476,C83.81 ",.03)
 ;;30
 ;;9002226.02101,"476,C83.82 ",.01)
 ;;C83.82 
 ;;9002226.02101,"476,C83.82 ",.02)
 ;;C83.82 
 ;;9002226.02101,"476,C83.82 ",.03)
 ;;30
 ;;9002226.02101,"476,C83.83 ",.01)
 ;;C83.83 
 ;;9002226.02101,"476,C83.83 ",.02)
 ;;C83.83 
 ;;9002226.02101,"476,C83.83 ",.03)
 ;;30
 ;;9002226.02101,"476,C83.84 ",.01)
 ;;C83.84 
 ;;9002226.02101,"476,C83.84 ",.02)
 ;;C83.84 
 ;;9002226.02101,"476,C83.84 ",.03)
 ;;30
 ;;9002226.02101,"476,C83.85 ",.01)
 ;;C83.85 
 ;;9002226.02101,"476,C83.85 ",.02)
 ;;C83.85 
 ;;9002226.02101,"476,C83.85 ",.03)
 ;;30
 ;;9002226.02101,"476,C83.86 ",.01)
 ;;C83.86 
 ;;9002226.02101,"476,C83.86 ",.02)
 ;;C83.86 
 ;;9002226.02101,"476,C83.86 ",.03)
 ;;30
 ;;9002226.02101,"476,C83.87 ",.01)
 ;;C83.87 
 ;;9002226.02101,"476,C83.87 ",.02)
 ;;C83.87 
 ;;9002226.02101,"476,C83.87 ",.03)
 ;;30
 ;;9002226.02101,"476,C83.88 ",.01)
 ;;C83.88 
 ;;9002226.02101,"476,C83.88 ",.02)
 ;;C83.88 
 ;;9002226.02101,"476,C83.88 ",.03)
 ;;30
 ;;9002226.02101,"476,C83.89 ",.01)
 ;;C83.89 
 ;;9002226.02101,"476,C83.89 ",.02)
 ;;C83.89 
 ;;9002226.02101,"476,C83.89 ",.03)
 ;;30
 ;;9002226.02101,"476,C83.90 ",.01)
 ;;C83.90 
 ;;9002226.02101,"476,C83.90 ",.02)
 ;;C83.90 
 ;;9002226.02101,"476,C83.90 ",.03)
 ;;30
 ;;9002226.02101,"476,C83.91 ",.01)
 ;;C83.91 
 ;;9002226.02101,"476,C83.91 ",.02)
 ;;C83.91 
 ;;9002226.02101,"476,C83.91 ",.03)
 ;;30
 ;;9002226.02101,"476,C83.92 ",.01)
 ;;C83.92 
 ;;9002226.02101,"476,C83.92 ",.02)
 ;;C83.92 
 ;;9002226.02101,"476,C83.92 ",.03)
 ;;30
 ;;9002226.02101,"476,C83.93 ",.01)
 ;;C83.93 
 ;;9002226.02101,"476,C83.93 ",.02)
 ;;C83.93 
 ;;9002226.02101,"476,C83.93 ",.03)
 ;;30
 ;;9002226.02101,"476,C83.94 ",.01)
 ;;C83.94 
 ;;9002226.02101,"476,C83.94 ",.02)
 ;;C83.94 
 ;;9002226.02101,"476,C83.94 ",.03)
 ;;30
 ;;9002226.02101,"476,C83.95 ",.01)
 ;;C83.95 
 ;;9002226.02101,"476,C83.95 ",.02)
 ;;C83.95 
 ;;9002226.02101,"476,C83.95 ",.03)
 ;;30
 ;;9002226.02101,"476,C83.96 ",.01)
 ;;C83.96 
 ;;9002226.02101,"476,C83.96 ",.02)
 ;;C83.96 
 ;;9002226.02101,"476,C83.96 ",.03)
 ;;30
 ;;9002226.02101,"476,C83.97 ",.01)
 ;;C83.97 
 ;;9002226.02101,"476,C83.97 ",.02)
 ;;C83.97 
 ;;9002226.02101,"476,C83.97 ",.03)
 ;;30
 ;;9002226.02101,"476,C83.98 ",.01)
 ;;C83.98 
 ;;9002226.02101,"476,C83.98 ",.02)
 ;;C83.98 
 ;;9002226.02101,"476,C83.98 ",.03)
 ;;30
 ;;9002226.02101,"476,C83.99 ",.01)
 ;;C83.99 
 ;;9002226.02101,"476,C83.99 ",.02)
 ;;C83.99 
 ;;9002226.02101,"476,C83.99 ",.03)
 ;;30
 ;;9002226.02101,"476,C84.90 ",.01)
 ;;C84.90 
 ;;9002226.02101,"476,C84.90 ",.02)
 ;;C84.90 
 ;;9002226.02101,"476,C84.90 ",.03)
 ;;30
 ;;9002226.02101,"476,C84.91 ",.01)
 ;;C84.91 
 ;;9002226.02101,"476,C84.91 ",.02)
 ;;C84.91 
 ;;9002226.02101,"476,C84.91 ",.03)
 ;;30
 ;;9002226.02101,"476,C84.92 ",.01)
 ;;C84.92 
 ;;9002226.02101,"476,C84.92 ",.02)
 ;;C84.92 
 ;;9002226.02101,"476,C84.92 ",.03)
 ;;30
 ;;9002226.02101,"476,C84.93 ",.01)
 ;;C84.93 
 ;;9002226.02101,"476,C84.93 ",.02)
 ;;C84.93 
 ;;9002226.02101,"476,C84.93 ",.03)
 ;;30
 ;;9002226.02101,"476,C84.94 ",.01)
 ;;C84.94 
 ;;9002226.02101,"476,C84.94 ",.02)
 ;;C84.94 
 ;;9002226.02101,"476,C84.94 ",.03)
 ;;30
 ;;9002226.02101,"476,C84.95 ",.01)
 ;;C84.95 
 ;;9002226.02101,"476,C84.95 ",.02)
 ;;C84.95 
 ;;9002226.02101,"476,C84.95 ",.03)
 ;;30
 ;;9002226.02101,"476,C84.96 ",.01)
 ;;C84.96 
 ;;9002226.02101,"476,C84.96 ",.02)
 ;;C84.96 
 ;;9002226.02101,"476,C84.96 ",.03)
 ;;30
 ;;9002226.02101,"476,C84.97 ",.01)
 ;;C84.97 
 ;;9002226.02101,"476,C84.97 ",.02)
 ;;C84.97 
 ;;9002226.02101,"476,C84.97 ",.03)
 ;;30
 ;;9002226.02101,"476,C84.98 ",.01)
 ;;C84.98 
 ;;9002226.02101,"476,C84.98 ",.02)
 ;;C84.98 
 ;;9002226.02101,"476,C84.98 ",.03)
 ;;30
 ;;9002226.02101,"476,C84.99 ",.01)
 ;;C84.99 
 ;;9002226.02101,"476,C84.99 ",.02)
 ;;C84.99 
 ;;9002226.02101,"476,C84.99 ",.03)
 ;;30
 ;;9002226.02101,"476,C84.A0 ",.01)
 ;;C84.A0 
 ;;9002226.02101,"476,C84.A0 ",.02)
 ;;C84.A0 
 ;;9002226.02101,"476,C84.A0 ",.03)
 ;;30
 ;;9002226.02101,"476,C84.A1 ",.01)
 ;;C84.A1 
 ;;9002226.02101,"476,C84.A1 ",.02)
 ;;C84.A1 
 ;;9002226.02101,"476,C84.A1 ",.03)
 ;;30
 ;;9002226.02101,"476,C84.A2 ",.01)
 ;;C84.A2 
 ;;9002226.02101,"476,C84.A2 ",.02)
 ;;C84.A2 
 ;;9002226.02101,"476,C84.A2 ",.03)
 ;;30
 ;;9002226.02101,"476,C84.A3 ",.01)
 ;;C84.A3 
 ;;9002226.02101,"476,C84.A3 ",.02)
 ;;C84.A3 
 ;;9002226.02101,"476,C84.A3 ",.03)
 ;;30
 ;;9002226.02101,"476,C84.A4 ",.01)
 ;;C84.A4 
 ;;9002226.02101,"476,C84.A4 ",.02)
 ;;C84.A4 
 ;;9002226.02101,"476,C84.A4 ",.03)
 ;;30
 ;;9002226.02101,"476,C84.A5 ",.01)
 ;;C84.A5 
 ;;9002226.02101,"476,C84.A5 ",.02)
 ;;C84.A5 
 ;;9002226.02101,"476,C84.A5 ",.03)
 ;;30
 ;;9002226.02101,"476,C84.A6 ",.01)
 ;;C84.A6 
 ;;9002226.02101,"476,C84.A6 ",.02)
 ;;C84.A6 
 ;;9002226.02101,"476,C84.A6 ",.03)
 ;;30
 ;;9002226.02101,"476,C84.A7 ",.01)
 ;;C84.A7 
 ;;9002226.02101,"476,C84.A7 ",.02)
 ;;C84.A7 
 ;;9002226.02101,"476,C84.A7 ",.03)
 ;;30
 ;;9002226.02101,"476,C84.A8 ",.01)
 ;;C84.A8 
 ;;9002226.02101,"476,C84.A8 ",.02)
 ;;C84.A8 
 ;;9002226.02101,"476,C84.A8 ",.03)
 ;;30
 ;;9002226.02101,"476,C84.A9 ",.01)
 ;;C84.A9 
 ;;9002226.02101,"476,C84.A9 ",.02)
 ;;C84.A9 
 ;;9002226.02101,"476,C84.A9 ",.03)
 ;;30
 ;;9002226.02101,"476,C84.Z0 ",.01)
 ;;C84.Z0 
 ;;9002226.02101,"476,C84.Z0 ",.02)
 ;;C84.Z0 
 ;;9002226.02101,"476,C84.Z0 ",.03)
 ;;30
 ;;9002226.02101,"476,C84.Z1 ",.01)
 ;;C84.Z1 
 ;;9002226.02101,"476,C84.Z1 ",.02)
 ;;C84.Z1 
 ;;9002226.02101,"476,C84.Z1 ",.03)
 ;;30
 ;;9002226.02101,"476,C84.Z2 ",.01)
 ;;C84.Z2 
 ;;9002226.02101,"476,C84.Z2 ",.02)
 ;;C84.Z2 
 ;;9002226.02101,"476,C84.Z2 ",.03)
 ;;30
 ;;9002226.02101,"476,C84.Z3 ",.01)
 ;;C84.Z3 
 ;;9002226.02101,"476,C84.Z3 ",.02)
 ;;C84.Z3 
 ;;9002226.02101,"476,C84.Z3 ",.03)
 ;;30
 ;;9002226.02101,"476,C84.Z4 ",.01)
 ;;C84.Z4 
 ;;9002226.02101,"476,C84.Z4 ",.02)
 ;;C84.Z4 
 ;;9002226.02101,"476,C84.Z4 ",.03)
 ;;30
 ;;9002226.02101,"476,C84.Z5 ",.01)
 ;;C84.Z5 
 ;;9002226.02101,"476,C84.Z5 ",.02)
 ;;C84.Z5 
 ;;9002226.02101,"476,C84.Z5 ",.03)
 ;;30
 ;;9002226.02101,"476,C84.Z6 ",.01)
 ;;C84.Z6 
 ;;9002226.02101,"476,C84.Z6 ",.02)
 ;;C84.Z6 
 ;;9002226.02101,"476,C84.Z6 ",.03)
 ;;30
 ;;9002226.02101,"476,C84.Z7 ",.01)
 ;;C84.Z7 
 ;;9002226.02101,"476,C84.Z7 ",.02)
 ;;C84.Z7 
 ;;9002226.02101,"476,C84.Z7 ",.03)
 ;;30
 ;;9002226.02101,"476,C84.Z8 ",.01)
 ;;C84.Z8 
 ;;9002226.02101,"476,C84.Z8 ",.02)
 ;;C84.Z8 
 ;;9002226.02101,"476,C84.Z8 ",.03)
 ;;30
 ;;9002226.02101,"476,C84.Z9 ",.01)
 ;;C84.Z9 
 ;;9002226.02101,"476,C84.Z9 ",.02)
 ;;C84.Z9 
 ;;9002226.02101,"476,C84.Z9 ",.03)
 ;;30
 ;;9002226.02101,"476,C85.10 ",.01)
 ;;C85.10 
 ;;9002226.02101,"476,C85.10 ",.02)
 ;;C85.10 
 ;;9002226.02101,"476,C85.10 ",.03)
 ;;30
 ;;9002226.02101,"476,C85.11 ",.01)
 ;;C85.11 
 ;;9002226.02101,"476,C85.11 ",.02)
 ;;C85.11 
 ;;9002226.02101,"476,C85.11 ",.03)
 ;;30
 ;;9002226.02101,"476,C85.12 ",.01)
 ;;C85.12 
 ;;9002226.02101,"476,C85.12 ",.02)
 ;;C85.12 
 ;;9002226.02101,"476,C85.12 ",.03)
 ;;30
 ;;9002226.02101,"476,C85.13 ",.01)
 ;;C85.13 
 ;;9002226.02101,"476,C85.13 ",.02)
 ;;C85.13 
 ;;9002226.02101,"476,C85.13 ",.03)
 ;;30
 ;;9002226.02101,"476,C85.14 ",.01)
 ;;C85.14 
 ;;9002226.02101,"476,C85.14 ",.02)
 ;;C85.14 
 ;;9002226.02101,"476,C85.14 ",.03)
 ;;30
 ;;9002226.02101,"476,C85.15 ",.01)
 ;;C85.15 
 ;;9002226.02101,"476,C85.15 ",.02)
 ;;C85.15 
 ;;9002226.02101,"476,C85.15 ",.03)
 ;;30
 ;;9002226.02101,"476,C85.16 ",.01)
 ;;C85.16 
 ;;9002226.02101,"476,C85.16 ",.02)
 ;;C85.16 
 ;;9002226.02101,"476,C85.16 ",.03)
 ;;30
 ;;9002226.02101,"476,C85.17 ",.01)
 ;;C85.17 
 ;;9002226.02101,"476,C85.17 ",.02)
 ;;C85.17 
 ;;9002226.02101,"476,C85.17 ",.03)
 ;;30
 ;;9002226.02101,"476,C85.18 ",.01)
 ;;C85.18 
 ;;9002226.02101,"476,C85.18 ",.02)
 ;;C85.18 
 ;;9002226.02101,"476,C85.18 ",.03)
 ;;30
 ;;9002226.02101,"476,C85.19 ",.01)
 ;;C85.19 
 ;;9002226.02101,"476,C85.19 ",.02)
 ;;C85.19 
 ;;9002226.02101,"476,C85.19 ",.03)
 ;;30
 ;;9002226.02101,"476,C85.20 ",.01)
 ;;C85.20 
 ;;9002226.02101,"476,C85.20 ",.02)
 ;;C85.20 
 ;;9002226.02101,"476,C85.20 ",.03)
 ;;30
 ;;9002226.02101,"476,C85.21 ",.01)
 ;;C85.21 
 ;;9002226.02101,"476,C85.21 ",.02)
 ;;C85.21 
 ;;9002226.02101,"476,C85.21 ",.03)
 ;;30
 ;;9002226.02101,"476,C85.22 ",.01)
 ;;C85.22 
 ;;9002226.02101,"476,C85.22 ",.02)
 ;;C85.22 
 ;;9002226.02101,"476,C85.22 ",.03)
 ;;30
 ;;9002226.02101,"476,C85.23 ",.01)
 ;;C85.23 
 ;;9002226.02101,"476,C85.23 ",.02)
 ;;C85.23 
 ;;9002226.02101,"476,C85.23 ",.03)
 ;;30
 ;;9002226.02101,"476,C85.24 ",.01)
 ;;C85.24 
 ;;9002226.02101,"476,C85.24 ",.02)
 ;;C85.24 
 ;;9002226.02101,"476,C85.24 ",.03)
 ;;30
 ;;9002226.02101,"476,C85.25 ",.01)
 ;;C85.25 
 ;;9002226.02101,"476,C85.25 ",.02)
 ;;C85.25 
 ;;9002226.02101,"476,C85.25 ",.03)
 ;;30
 ;;9002226.02101,"476,C85.26 ",.01)
 ;;C85.26 
 ;;9002226.02101,"476,C85.26 ",.02)
 ;;C85.26 
 ;;9002226.02101,"476,C85.26 ",.03)
 ;;30
 ;;9002226.02101,"476,C85.27 ",.01)
 ;;C85.27 
 ;;9002226.02101,"476,C85.27 ",.02)
 ;;C85.27 
 ;;9002226.02101,"476,C85.27 ",.03)
 ;;30
 ;;9002226.02101,"476,C85.28 ",.01)
 ;;C85.28 
 ;;9002226.02101,"476,C85.28 ",.02)
 ;;C85.28 
 ;;9002226.02101,"476,C85.28 ",.03)
 ;;30
 ;;9002226.02101,"476,C85.29 ",.01)
 ;;C85.29 
 ;;9002226.02101,"476,C85.29 ",.02)
 ;;C85.29 
 ;;9002226.02101,"476,C85.29 ",.03)
 ;;30
 ;;9002226.02101,"476,C85.80 ",.01)
 ;;C85.80 
 ;;9002226.02101,"476,C85.80 ",.02)
 ;;C85.80 
 ;;9002226.02101,"476,C85.80 ",.03)
 ;;30
 ;;9002226.02101,"476,C85.81 ",.01)
 ;;C85.81 
 ;;9002226.02101,"476,C85.81 ",.02)
 ;;C85.81 
 ;;9002226.02101,"476,C85.81 ",.03)
 ;;30
 ;;9002226.02101,"476,C85.82 ",.01)
 ;;C85.82 
 ;;9002226.02101,"476,C85.82 ",.02)
 ;;C85.82 
 ;;9002226.02101,"476,C85.82 ",.03)
 ;;30
 ;;9002226.02101,"476,C85.83 ",.01)
 ;;C85.83 
 ;;9002226.02101,"476,C85.83 ",.02)
 ;;C85.83 
 ;;9002226.02101,"476,C85.83 ",.03)
 ;;30
 ;;9002226.02101,"476,C85.84 ",.01)
 ;;C85.84 
 ;;9002226.02101,"476,C85.84 ",.02)
 ;;C85.84 
 ;;9002226.02101,"476,C85.84 ",.03)
 ;;30
 ;;9002226.02101,"476,C85.85 ",.01)
 ;;C85.85 
 ;;9002226.02101,"476,C85.85 ",.02)
 ;;C85.85 
 ;;9002226.02101,"476,C85.85 ",.03)
 ;;30
 ;;9002226.02101,"476,C85.86 ",.01)
 ;;C85.86 
 ;;9002226.02101,"476,C85.86 ",.02)
 ;;C85.86 
 ;;9002226.02101,"476,C85.86 ",.03)
 ;;30
 ;;9002226.02101,"476,C85.87 ",.01)
 ;;C85.87 
 ;;9002226.02101,"476,C85.87 ",.02)
 ;;C85.87 
 ;;9002226.02101,"476,C85.87 ",.03)
 ;;30
 ;;9002226.02101,"476,C85.88 ",.01)
 ;;C85.88 
 ;;9002226.02101,"476,C85.88 ",.02)
 ;;C85.88 
 ;;9002226.02101,"476,C85.88 ",.03)
 ;;30
 ;;9002226.02101,"476,C85.89 ",.01)
 ;;C85.89 
 ;;9002226.02101,"476,C85.89 ",.02)
 ;;C85.89 
 ;;9002226.02101,"476,C85.89 ",.03)
 ;;30
 ;;9002226.02101,"476,C85.90 ",.01)
 ;;C85.90 
 ;;9002226.02101,"476,C85.90 ",.02)
 ;;C85.90 
 ;;9002226.02101,"476,C85.90 ",.03)
 ;;30
 ;;9002226.02101,"476,C85.91 ",.01)
 ;;C85.91 
 ;;9002226.02101,"476,C85.91 ",.02)
 ;;C85.91 
 ;;9002226.02101,"476,C85.91 ",.03)
 ;;30
 ;;9002226.02101,"476,C85.92 ",.01)
 ;;C85.92 
 ;;9002226.02101,"476,C85.92 ",.02)
 ;;C85.92 
 ;;9002226.02101,"476,C85.92 ",.03)
 ;;30
 ;;9002226.02101,"476,C85.93 ",.01)
 ;;C85.93 
 ;;9002226.02101,"476,C85.93 ",.02)
 ;;C85.93 
 ;;9002226.02101,"476,C85.93 ",.03)
 ;;30
 ;;9002226.02101,"476,C85.94 ",.01)
 ;;C85.94 
 ;;9002226.02101,"476,C85.94 ",.02)
 ;;C85.94 
 ;;9002226.02101,"476,C85.94 ",.03)
 ;;30
 ;;9002226.02101,"476,C85.95 ",.01)
 ;;C85.95 
 ;;9002226.02101,"476,C85.95 ",.02)
 ;;C85.95 
 ;;9002226.02101,"476,C85.95 ",.03)
 ;;30