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

ATXFCD4.m

Go to the documentation of this file.
ATXFCD4 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON DEC 18, 2017;
 ;;5.1;TAXONOMY;**25**;FEB 04, 1997;Build 47
 ;
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,"2230,C82.39 ",.02)
 ;;C82.39 
 ;;9002226.02101,"2230,C82.39 ",.03)
 ;;30
 ;;9002226.02101,"2230,C82.40 ",.01)
 ;;C82.40 
 ;;9002226.02101,"2230,C82.40 ",.02)
 ;;C82.40 
 ;;9002226.02101,"2230,C82.40 ",.03)
 ;;30
 ;;9002226.02101,"2230,C82.41 ",.01)
 ;;C82.41 
 ;;9002226.02101,"2230,C82.41 ",.02)
 ;;C82.41 
 ;;9002226.02101,"2230,C82.41 ",.03)
 ;;30
 ;;9002226.02101,"2230,C82.42 ",.01)
 ;;C82.42 
 ;;9002226.02101,"2230,C82.42 ",.02)
 ;;C82.42 
 ;;9002226.02101,"2230,C82.42 ",.03)
 ;;30
 ;;9002226.02101,"2230,C82.43 ",.01)
 ;;C82.43 
 ;;9002226.02101,"2230,C82.43 ",.02)
 ;;C82.43 
 ;;9002226.02101,"2230,C82.43 ",.03)
 ;;30
 ;;9002226.02101,"2230,C82.44 ",.01)
 ;;C82.44 
 ;;9002226.02101,"2230,C82.44 ",.02)
 ;;C82.44 
 ;;9002226.02101,"2230,C82.44 ",.03)
 ;;30
 ;;9002226.02101,"2230,C82.45 ",.01)
 ;;C82.45 
 ;;9002226.02101,"2230,C82.45 ",.02)
 ;;C82.45 
 ;;9002226.02101,"2230,C82.45 ",.03)
 ;;30
 ;;9002226.02101,"2230,C82.46 ",.01)
 ;;C82.46 
 ;;9002226.02101,"2230,C82.46 ",.02)
 ;;C82.46 
 ;;9002226.02101,"2230,C82.46 ",.03)
 ;;30
 ;;9002226.02101,"2230,C82.47 ",.01)
 ;;C82.47 
 ;;9002226.02101,"2230,C82.47 ",.02)
 ;;C82.47 
 ;;9002226.02101,"2230,C82.47 ",.03)
 ;;30
 ;;9002226.02101,"2230,C82.48 ",.01)
 ;;C82.48 
 ;;9002226.02101,"2230,C82.48 ",.02)
 ;;C82.48 
 ;;9002226.02101,"2230,C82.48 ",.03)
 ;;30
 ;;9002226.02101,"2230,C82.49 ",.01)
 ;;C82.49 
 ;;9002226.02101,"2230,C82.49 ",.02)
 ;;C82.49 
 ;;9002226.02101,"2230,C82.49 ",.03)
 ;;30
 ;;9002226.02101,"2230,C82.50 ",.01)
 ;;C82.50 
 ;;9002226.02101,"2230,C82.50 ",.02)
 ;;C82.50 
 ;;9002226.02101,"2230,C82.50 ",.03)
 ;;30
 ;;9002226.02101,"2230,C82.51 ",.01)
 ;;C82.51 
 ;;9002226.02101,"2230,C82.51 ",.02)
 ;;C82.51 
 ;;9002226.02101,"2230,C82.51 ",.03)
 ;;30
 ;;9002226.02101,"2230,C82.52 ",.01)
 ;;C82.52 
 ;;9002226.02101,"2230,C82.52 ",.02)
 ;;C82.52 
 ;;9002226.02101,"2230,C82.52 ",.03)
 ;;30
 ;;9002226.02101,"2230,C82.53 ",.01)
 ;;C82.53 
 ;;9002226.02101,"2230,C82.53 ",.02)
 ;;C82.53 
 ;;9002226.02101,"2230,C82.53 ",.03)
 ;;30
 ;;9002226.02101,"2230,C82.54 ",.01)
 ;;C82.54 
 ;;9002226.02101,"2230,C82.54 ",.02)
 ;;C82.54 
 ;;9002226.02101,"2230,C82.54 ",.03)
 ;;30
 ;;9002226.02101,"2230,C82.55 ",.01)
 ;;C82.55 
 ;;9002226.02101,"2230,C82.55 ",.02)
 ;;C82.55 
 ;;9002226.02101,"2230,C82.55 ",.03)
 ;;30
 ;;9002226.02101,"2230,C82.56 ",.01)
 ;;C82.56 
 ;;9002226.02101,"2230,C82.56 ",.02)
 ;;C82.56 
 ;;9002226.02101,"2230,C82.56 ",.03)
 ;;30
 ;;9002226.02101,"2230,C82.57 ",.01)
 ;;C82.57 
 ;;9002226.02101,"2230,C82.57 ",.02)
 ;;C82.57 
 ;;9002226.02101,"2230,C82.57 ",.03)
 ;;30
 ;;9002226.02101,"2230,C82.58 ",.01)
 ;;C82.58 
 ;;9002226.02101,"2230,C82.58 ",.02)
 ;;C82.58 
 ;;9002226.02101,"2230,C82.58 ",.03)
 ;;30
 ;;9002226.02101,"2230,C82.59 ",.01)
 ;;C82.59 
 ;;9002226.02101,"2230,C82.59 ",.02)
 ;;C82.59 
 ;;9002226.02101,"2230,C82.59 ",.03)
 ;;30
 ;;9002226.02101,"2230,C82.60 ",.01)
 ;;C82.60 
 ;;9002226.02101,"2230,C82.60 ",.02)
 ;;C82.60 
 ;;9002226.02101,"2230,C82.60 ",.03)
 ;;30
 ;;9002226.02101,"2230,C82.61 ",.01)
 ;;C82.61 
 ;;9002226.02101,"2230,C82.61 ",.02)
 ;;C82.61 
 ;;9002226.02101,"2230,C82.61 ",.03)
 ;;30
 ;;9002226.02101,"2230,C82.62 ",.01)
 ;;C82.62 
 ;;9002226.02101,"2230,C82.62 ",.02)
 ;;C82.62 
 ;;9002226.02101,"2230,C82.62 ",.03)
 ;;30
 ;;9002226.02101,"2230,C82.63 ",.01)
 ;;C82.63 
 ;;9002226.02101,"2230,C82.63 ",.02)
 ;;C82.63 
 ;;9002226.02101,"2230,C82.63 ",.03)
 ;;30
 ;;9002226.02101,"2230,C82.64 ",.01)
 ;;C82.64 
 ;;9002226.02101,"2230,C82.64 ",.02)
 ;;C82.64 
 ;;9002226.02101,"2230,C82.64 ",.03)
 ;;30
 ;;9002226.02101,"2230,C82.65 ",.01)
 ;;C82.65 
 ;;9002226.02101,"2230,C82.65 ",.02)
 ;;C82.65 
 ;;9002226.02101,"2230,C82.65 ",.03)
 ;;30
 ;;9002226.02101,"2230,C82.66 ",.01)
 ;;C82.66 
 ;;9002226.02101,"2230,C82.66 ",.02)
 ;;C82.66 
 ;;9002226.02101,"2230,C82.66 ",.03)
 ;;30
 ;;9002226.02101,"2230,C82.67 ",.01)
 ;;C82.67 
 ;;9002226.02101,"2230,C82.67 ",.02)
 ;;C82.67 
 ;;9002226.02101,"2230,C82.67 ",.03)
 ;;30
 ;;9002226.02101,"2230,C82.68 ",.01)
 ;;C82.68 
 ;;9002226.02101,"2230,C82.68 ",.02)
 ;;C82.68 
 ;;9002226.02101,"2230,C82.68 ",.03)
 ;;30
 ;;9002226.02101,"2230,C82.69 ",.01)
 ;;C82.69 
 ;;9002226.02101,"2230,C82.69 ",.02)
 ;;C82.69 
 ;;9002226.02101,"2230,C82.69 ",.03)
 ;;30
 ;;9002226.02101,"2230,C82.80 ",.01)
 ;;C82.80 
 ;;9002226.02101,"2230,C82.80 ",.02)
 ;;C82.80 
 ;;9002226.02101,"2230,C82.80 ",.03)
 ;;30
 ;;9002226.02101,"2230,C82.81 ",.01)
 ;;C82.81 
 ;;9002226.02101,"2230,C82.81 ",.02)
 ;;C82.81 
 ;;9002226.02101,"2230,C82.81 ",.03)
 ;;30
 ;;9002226.02101,"2230,C82.82 ",.01)
 ;;C82.82 
 ;;9002226.02101,"2230,C82.82 ",.02)
 ;;C82.82 
 ;;9002226.02101,"2230,C82.82 ",.03)
 ;;30
 ;;9002226.02101,"2230,C82.83 ",.01)
 ;;C82.83 
 ;;9002226.02101,"2230,C82.83 ",.02)
 ;;C82.83 
 ;;9002226.02101,"2230,C82.83 ",.03)
 ;;30
 ;;9002226.02101,"2230,C82.84 ",.01)
 ;;C82.84 
 ;;9002226.02101,"2230,C82.84 ",.02)
 ;;C82.84 
 ;;9002226.02101,"2230,C82.84 ",.03)
 ;;30
 ;;9002226.02101,"2230,C82.85 ",.01)
 ;;C82.85 
 ;;9002226.02101,"2230,C82.85 ",.02)
 ;;C82.85 
 ;;9002226.02101,"2230,C82.85 ",.03)
 ;;30
 ;;9002226.02101,"2230,C82.86 ",.01)
 ;;C82.86 
 ;;9002226.02101,"2230,C82.86 ",.02)
 ;;C82.86 
 ;;9002226.02101,"2230,C82.86 ",.03)
 ;;30
 ;;9002226.02101,"2230,C82.87 ",.01)
 ;;C82.87 
 ;;9002226.02101,"2230,C82.87 ",.02)
 ;;C82.87 
 ;;9002226.02101,"2230,C82.87 ",.03)
 ;;30
 ;;9002226.02101,"2230,C82.88 ",.01)
 ;;C82.88 
 ;;9002226.02101,"2230,C82.88 ",.02)
 ;;C82.88 
 ;;9002226.02101,"2230,C82.88 ",.03)
 ;;30
 ;;9002226.02101,"2230,C82.89 ",.01)
 ;;C82.89 
 ;;9002226.02101,"2230,C82.89 ",.02)
 ;;C82.89 
 ;;9002226.02101,"2230,C82.89 ",.03)
 ;;30
 ;;9002226.02101,"2230,C82.90 ",.01)
 ;;C82.90 
 ;;9002226.02101,"2230,C82.90 ",.02)
 ;;C82.90 
 ;;9002226.02101,"2230,C82.90 ",.03)
 ;;30
 ;;9002226.02101,"2230,C82.91 ",.01)
 ;;C82.91 
 ;;9002226.02101,"2230,C82.91 ",.02)
 ;;C82.91 
 ;;9002226.02101,"2230,C82.91 ",.03)
 ;;30
 ;;9002226.02101,"2230,C82.92 ",.01)
 ;;C82.92 
 ;;9002226.02101,"2230,C82.92 ",.02)
 ;;C82.92 
 ;;9002226.02101,"2230,C82.92 ",.03)
 ;;30
 ;;9002226.02101,"2230,C82.93 ",.01)
 ;;C82.93 
 ;;9002226.02101,"2230,C82.93 ",.02)
 ;;C82.93 
 ;;9002226.02101,"2230,C82.93 ",.03)
 ;;30
 ;;9002226.02101,"2230,C82.94 ",.01)
 ;;C82.94 
 ;;9002226.02101,"2230,C82.94 ",.02)
 ;;C82.94 
 ;;9002226.02101,"2230,C82.94 ",.03)
 ;;30
 ;;9002226.02101,"2230,C82.95 ",.01)
 ;;C82.95 
 ;;9002226.02101,"2230,C82.95 ",.02)
 ;;C82.95 
 ;;9002226.02101,"2230,C82.95 ",.03)
 ;;30
 ;;9002226.02101,"2230,C82.96 ",.01)
 ;;C82.96 
 ;;9002226.02101,"2230,C82.96 ",.02)
 ;;C82.96 
 ;;9002226.02101,"2230,C82.96 ",.03)
 ;;30
 ;;9002226.02101,"2230,C82.97 ",.01)
 ;;C82.97 
 ;;9002226.02101,"2230,C82.97 ",.02)
 ;;C82.97 
 ;;9002226.02101,"2230,C82.97 ",.03)
 ;;30
 ;;9002226.02101,"2230,C82.98 ",.01)
 ;;C82.98 
 ;;9002226.02101,"2230,C82.98 ",.02)
 ;;C82.98 
 ;;9002226.02101,"2230,C82.98 ",.03)
 ;;30
 ;;9002226.02101,"2230,C82.99 ",.01)
 ;;C82.99 
 ;;9002226.02101,"2230,C82.99 ",.02)
 ;;C82.99 
 ;;9002226.02101,"2230,C82.99 ",.03)
 ;;30
 ;;9002226.02101,"2230,C83.00 ",.01)
 ;;C83.00 
 ;;9002226.02101,"2230,C83.00 ",.02)
 ;;C83.00 
 ;;9002226.02101,"2230,C83.00 ",.03)
 ;;30
 ;;9002226.02101,"2230,C83.01 ",.01)
 ;;C83.01 
 ;;9002226.02101,"2230,C83.01 ",.02)
 ;;C83.01 
 ;;9002226.02101,"2230,C83.01 ",.03)
 ;;30
 ;;9002226.02101,"2230,C83.02 ",.01)
 ;;C83.02 
 ;;9002226.02101,"2230,C83.02 ",.02)
 ;;C83.02 
 ;;9002226.02101,"2230,C83.02 ",.03)
 ;;30
 ;;9002226.02101,"2230,C83.03 ",.01)
 ;;C83.03 
 ;;9002226.02101,"2230,C83.03 ",.02)
 ;;C83.03 
 ;;9002226.02101,"2230,C83.03 ",.03)
 ;;30
 ;;9002226.02101,"2230,C83.04 ",.01)
 ;;C83.04 
 ;;9002226.02101,"2230,C83.04 ",.02)
 ;;C83.04 
 ;;9002226.02101,"2230,C83.04 ",.03)
 ;;30
 ;;9002226.02101,"2230,C83.05 ",.01)
 ;;C83.05 
 ;;9002226.02101,"2230,C83.05 ",.02)
 ;;C83.05 
 ;;9002226.02101,"2230,C83.05 ",.03)
 ;;30
 ;;9002226.02101,"2230,C83.06 ",.01)
 ;;C83.06 
 ;;9002226.02101,"2230,C83.06 ",.02)
 ;;C83.06 
 ;;9002226.02101,"2230,C83.06 ",.03)
 ;;30
 ;;9002226.02101,"2230,C83.07 ",.01)
 ;;C83.07 
 ;;9002226.02101,"2230,C83.07 ",.02)
 ;;C83.07 
 ;;9002226.02101,"2230,C83.07 ",.03)
 ;;30
 ;;9002226.02101,"2230,C83.08 ",.01)
 ;;C83.08 
 ;;9002226.02101,"2230,C83.08 ",.02)
 ;;C83.08 
 ;;9002226.02101,"2230,C83.08 ",.03)
 ;;30
 ;;9002226.02101,"2230,C83.09 ",.01)
 ;;C83.09 
 ;;9002226.02101,"2230,C83.09 ",.02)
 ;;C83.09 
 ;;9002226.02101,"2230,C83.09 ",.03)
 ;;30
 ;;9002226.02101,"2230,C83.10 ",.01)
 ;;C83.10 
 ;;9002226.02101,"2230,C83.10 ",.02)
 ;;C83.10 
 ;;9002226.02101,"2230,C83.10 ",.03)
 ;;30
 ;;9002226.02101,"2230,C83.11 ",.01)
 ;;C83.11 
 ;;9002226.02101,"2230,C83.11 ",.02)
 ;;C83.11 
 ;;9002226.02101,"2230,C83.11 ",.03)
 ;;30
 ;;9002226.02101,"2230,C83.12 ",.01)
 ;;C83.12 
 ;;9002226.02101,"2230,C83.12 ",.02)
 ;;C83.12 
 ;;9002226.02101,"2230,C83.12 ",.03)
 ;;30
 ;;9002226.02101,"2230,C83.13 ",.01)
 ;;C83.13 
 ;;9002226.02101,"2230,C83.13 ",.02)
 ;;C83.13 
 ;;9002226.02101,"2230,C83.13 ",.03)
 ;;30
 ;;9002226.02101,"2230,C83.14 ",.01)
 ;;C83.14 
 ;;9002226.02101,"2230,C83.14 ",.02)
 ;;C83.14 
 ;;9002226.02101,"2230,C83.14 ",.03)
 ;;30
 ;;9002226.02101,"2230,C83.15 ",.01)
 ;;C83.15 
 ;;9002226.02101,"2230,C83.15 ",.02)
 ;;C83.15 
 ;;9002226.02101,"2230,C83.15 ",.03)
 ;;30
 ;;9002226.02101,"2230,C83.16 ",.01)
 ;;C83.16 
 ;;9002226.02101,"2230,C83.16 ",.02)
 ;;C83.16 
 ;;9002226.02101,"2230,C83.16 ",.03)
 ;;30
 ;;9002226.02101,"2230,C83.17 ",.01)
 ;;C83.17 
 ;;9002226.02101,"2230,C83.17 ",.02)
 ;;C83.17 
 ;;9002226.02101,"2230,C83.17 ",.03)
 ;;30
 ;;9002226.02101,"2230,C83.18 ",.01)
 ;;C83.18 
 ;;9002226.02101,"2230,C83.18 ",.02)
 ;;C83.18 
 ;;9002226.02101,"2230,C83.18 ",.03)
 ;;30
 ;;9002226.02101,"2230,C83.19 ",.01)
 ;;C83.19 
 ;;9002226.02101,"2230,C83.19 ",.02)
 ;;C83.19 
 ;;9002226.02101,"2230,C83.19 ",.03)
 ;;30
 ;;9002226.02101,"2230,C83.30 ",.01)
 ;;C83.30 
 ;;9002226.02101,"2230,C83.30 ",.02)
 ;;C83.30 
 ;;9002226.02101,"2230,C83.30 ",.03)
 ;;30
 ;;9002226.02101,"2230,C83.31 ",.01)
 ;;C83.31 
 ;;9002226.02101,"2230,C83.31 ",.02)
 ;;C83.31 
 ;;9002226.02101,"2230,C83.31 ",.03)
 ;;30
 ;;9002226.02101,"2230,C83.32 ",.01)
 ;;C83.32 
 ;;9002226.02101,"2230,C83.32 ",.02)
 ;;C83.32 
 ;;9002226.02101,"2230,C83.32 ",.03)
 ;;30
 ;;9002226.02101,"2230,C83.33 ",.01)
 ;;C83.33 
 ;;9002226.02101,"2230,C83.33 ",.02)
 ;;C83.33 
 ;;9002226.02101,"2230,C83.33 ",.03)
 ;;30
 ;;9002226.02101,"2230,C83.34 ",.01)
 ;;C83.34 
 ;;9002226.02101,"2230,C83.34 ",.02)
 ;;C83.34 
 ;;9002226.02101,"2230,C83.34 ",.03)
 ;;30
 ;;9002226.02101,"2230,C83.35 ",.01)
 ;;C83.35 
 ;;9002226.02101,"2230,C83.35 ",.02)
 ;;C83.35 
 ;;9002226.02101,"2230,C83.35 ",.03)
 ;;30
 ;;9002226.02101,"2230,C83.36 ",.01)
 ;;C83.36 
 ;;9002226.02101,"2230,C83.36 ",.02)
 ;;C83.36 
 ;;9002226.02101,"2230,C83.36 ",.03)
 ;;30
 ;;9002226.02101,"2230,C83.37 ",.01)
 ;;C83.37 
 ;;9002226.02101,"2230,C83.37 ",.02)
 ;;C83.37 
 ;;9002226.02101,"2230,C83.37 ",.03)
 ;;30
 ;;9002226.02101,"2230,C83.38 ",.01)
 ;;C83.38 
 ;;9002226.02101,"2230,C83.38 ",.02)
 ;;C83.38 
 ;;9002226.02101,"2230,C83.38 ",.03)
 ;;30
 ;;9002226.02101,"2230,C83.39 ",.01)
 ;;C83.39 
 ;;9002226.02101,"2230,C83.39 ",.02)
 ;;C83.39 
 ;;9002226.02101,"2230,C83.39 ",.03)
 ;;30