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

ATXD6S4.m

Go to the documentation of this file.
ATXD6S4 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON NOV 12, 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,"464,C85.81 ",.01)
 ;;C85.81 
 ;;9002226.02101,"464,C85.81 ",.02)
 ;;C85.81 
 ;;9002226.02101,"464,C85.81 ",.03)
 ;;30
 ;;9002226.02101,"464,C85.82 ",.01)
 ;;C85.82 
 ;;9002226.02101,"464,C85.82 ",.02)
 ;;C85.82 
 ;;9002226.02101,"464,C85.82 ",.03)
 ;;30
 ;;9002226.02101,"464,C85.83 ",.01)
 ;;C85.83 
 ;;9002226.02101,"464,C85.83 ",.02)
 ;;C85.83 
 ;;9002226.02101,"464,C85.83 ",.03)
 ;;30
 ;;9002226.02101,"464,C85.84 ",.01)
 ;;C85.84 
 ;;9002226.02101,"464,C85.84 ",.02)
 ;;C85.84 
 ;;9002226.02101,"464,C85.84 ",.03)
 ;;30
 ;;9002226.02101,"464,C85.85 ",.01)
 ;;C85.85 
 ;;9002226.02101,"464,C85.85 ",.02)
 ;;C85.85 
 ;;9002226.02101,"464,C85.85 ",.03)
 ;;30
 ;;9002226.02101,"464,C85.86 ",.01)
 ;;C85.86 
 ;;9002226.02101,"464,C85.86 ",.02)
 ;;C85.86 
 ;;9002226.02101,"464,C85.86 ",.03)
 ;;30
 ;;9002226.02101,"464,C85.87 ",.01)
 ;;C85.87 
 ;;9002226.02101,"464,C85.87 ",.02)
 ;;C85.87 
 ;;9002226.02101,"464,C85.87 ",.03)
 ;;30
 ;;9002226.02101,"464,C85.88 ",.01)
 ;;C85.88 
 ;;9002226.02101,"464,C85.88 ",.02)
 ;;C85.88 
 ;;9002226.02101,"464,C85.88 ",.03)
 ;;30
 ;;9002226.02101,"464,C85.89 ",.01)
 ;;C85.89 
 ;;9002226.02101,"464,C85.89 ",.02)
 ;;C85.89 
 ;;9002226.02101,"464,C85.89 ",.03)
 ;;30
 ;;9002226.02101,"464,C85.90 ",.01)
 ;;C85.90 
 ;;9002226.02101,"464,C85.90 ",.02)
 ;;C85.90 
 ;;9002226.02101,"464,C85.90 ",.03)
 ;;30
 ;;9002226.02101,"464,C85.91 ",.01)
 ;;C85.91 
 ;;9002226.02101,"464,C85.91 ",.02)
 ;;C85.91 
 ;;9002226.02101,"464,C85.91 ",.03)
 ;;30
 ;;9002226.02101,"464,C85.92 ",.01)
 ;;C85.92 
 ;;9002226.02101,"464,C85.92 ",.02)
 ;;C85.92 
 ;;9002226.02101,"464,C85.92 ",.03)
 ;;30
 ;;9002226.02101,"464,C85.93 ",.01)
 ;;C85.93 
 ;;9002226.02101,"464,C85.93 ",.02)
 ;;C85.93 
 ;;9002226.02101,"464,C85.93 ",.03)
 ;;30
 ;;9002226.02101,"464,C85.94 ",.01)
 ;;C85.94 
 ;;9002226.02101,"464,C85.94 ",.02)
 ;;C85.94 
 ;;9002226.02101,"464,C85.94 ",.03)
 ;;30
 ;;9002226.02101,"464,C85.95 ",.01)
 ;;C85.95 
 ;;9002226.02101,"464,C85.95 ",.02)
 ;;C85.95 
 ;;9002226.02101,"464,C85.95 ",.03)
 ;;30
 ;;9002226.02101,"464,C85.96 ",.01)
 ;;C85.96 
 ;;9002226.02101,"464,C85.96 ",.02)
 ;;C85.96 
 ;;9002226.02101,"464,C85.96 ",.03)
 ;;30
 ;;9002226.02101,"464,C85.97 ",.01)
 ;;C85.97 
 ;;9002226.02101,"464,C85.97 ",.02)
 ;;C85.97 
 ;;9002226.02101,"464,C85.97 ",.03)
 ;;30
 ;;9002226.02101,"464,C85.98 ",.01)
 ;;C85.98 
 ;;9002226.02101,"464,C85.98 ",.02)
 ;;C85.98 
 ;;9002226.02101,"464,C85.98 ",.03)
 ;;30
 ;;9002226.02101,"464,C85.99 ",.01)
 ;;C85.99 
 ;;9002226.02101,"464,C85.99 ",.02)
 ;;C85.99 
 ;;9002226.02101,"464,C85.99 ",.03)
 ;;30
 ;;9002226.02101,"464,C86.0 ",.01)
 ;;C86.0 
 ;;9002226.02101,"464,C86.0 ",.02)
 ;;C86.0 
 ;;9002226.02101,"464,C86.0 ",.03)
 ;;30
 ;;9002226.02101,"464,C86.1 ",.01)
 ;;C86.1 
 ;;9002226.02101,"464,C86.1 ",.02)
 ;;C86.1 
 ;;9002226.02101,"464,C86.1 ",.03)
 ;;30
 ;;9002226.02101,"464,C86.2 ",.01)
 ;;C86.2 
 ;;9002226.02101,"464,C86.2 ",.02)
 ;;C86.2 
 ;;9002226.02101,"464,C86.2 ",.03)
 ;;30
 ;;9002226.02101,"464,C86.3 ",.01)
 ;;C86.3 
 ;;9002226.02101,"464,C86.3 ",.02)
 ;;C86.3 
 ;;9002226.02101,"464,C86.3 ",.03)
 ;;30
 ;;9002226.02101,"464,C86.4 ",.01)
 ;;C86.4 
 ;;9002226.02101,"464,C86.4 ",.02)
 ;;C86.4 
 ;;9002226.02101,"464,C86.4 ",.03)
 ;;30
 ;;9002226.02101,"464,C86.5 ",.01)
 ;;C86.5 
 ;;9002226.02101,"464,C86.5 ",.02)
 ;;C86.5 
 ;;9002226.02101,"464,C86.5 ",.03)
 ;;30
 ;;9002226.02101,"464,C86.6 ",.01)
 ;;C86.6 
 ;;9002226.02101,"464,C86.6 ",.02)
 ;;C86.6 
 ;;9002226.02101,"464,C86.6 ",.03)
 ;;30
 ;;9002226.02101,"464,E41. ",.01)
 ;;E41. 
 ;;9002226.02101,"464,E41. ",.02)
 ;;E41. 
 ;;9002226.02101,"464,E41. ",.03)
 ;;30
 ;;9002226.02101,"464,E43. ",.01)
 ;;E43. 
 ;;9002226.02101,"464,E43. ",.02)
 ;;E43. 
 ;;9002226.02101,"464,E43. ",.03)
 ;;30
 ;;9002226.02101,"464,G02. ",.01)
 ;;G02. 
 ;;9002226.02101,"464,G02. ",.02)
 ;;G02. 
 ;;9002226.02101,"464,G02. ",.03)
 ;;30
 ;;9002226.02101,"464,G93.40 ",.01)
 ;;G93.40 
 ;;9002226.02101,"464,G93.40 ",.02)
 ;;G93.40 
 ;;9002226.02101,"464,G93.40 ",.03)
 ;;30
 ;;9002226.02101,"464,G93.41 ",.01)
 ;;G93.41 
 ;;9002226.02101,"464,G93.41 ",.02)
 ;;G93.41 
 ;;9002226.02101,"464,G93.41 ",.03)
 ;;30
 ;;9002226.02101,"464,G93.49 ",.01)
 ;;G93.49 
 ;;9002226.02101,"464,G93.49 ",.02)
 ;;G93.49 
 ;;9002226.02101,"464,G93.49 ",.03)
 ;;30
 ;;9002226.02101,"464,H30.141 ",.01)
 ;;H30.141 
 ;;9002226.02101,"464,H30.141 ",.02)
 ;;H30.141 
 ;;9002226.02101,"464,H30.141 ",.03)
 ;;30
 ;;9002226.02101,"464,H30.142 ",.01)
 ;;H30.142 
 ;;9002226.02101,"464,H30.142 ",.02)
 ;;H30.142 
 ;;9002226.02101,"464,H30.142 ",.03)
 ;;30
 ;;9002226.02101,"464,H30.143 ",.01)
 ;;H30.143 
 ;;9002226.02101,"464,H30.143 ",.02)
 ;;H30.143 
 ;;9002226.02101,"464,H30.143 ",.03)
 ;;30
 ;;9002226.02101,"464,H30.149 ",.01)
 ;;H30.149 
 ;;9002226.02101,"464,H30.149 ",.02)
 ;;H30.149 
 ;;9002226.02101,"464,H30.149 ",.03)
 ;;30
 ;;9002226.02101,"464,H30.891 ",.01)
 ;;H30.891 
 ;;9002226.02101,"464,H30.891 ",.02)
 ;;H30.891 
 ;;9002226.02101,"464,H30.891 ",.03)
 ;;30
 ;;9002226.02101,"464,H30.892 ",.01)
 ;;H30.892 
 ;;9002226.02101,"464,H30.892 ",.02)
 ;;H30.892 
 ;;9002226.02101,"464,H30.892 ",.03)
 ;;30
 ;;9002226.02101,"464,H30.893 ",.01)
 ;;H30.893 
 ;;9002226.02101,"464,H30.893 ",.02)
 ;;H30.893 
 ;;9002226.02101,"464,H30.893 ",.03)
 ;;30
 ;;9002226.02101,"464,H30.899 ",.01)
 ;;H30.899 
 ;;9002226.02101,"464,H30.899 ",.02)
 ;;H30.899 
 ;;9002226.02101,"464,H30.899 ",.03)
 ;;30
 ;;9002226.02101,"464,H30.90 ",.01)
 ;;H30.90 
 ;;9002226.02101,"464,H30.90 ",.02)
 ;;H30.90 
 ;;9002226.02101,"464,H30.90 ",.03)
 ;;30
 ;;9002226.02101,"464,H30.91 ",.01)
 ;;H30.91 
 ;;9002226.02101,"464,H30.91 ",.02)
 ;;H30.91 
 ;;9002226.02101,"464,H30.91 ",.03)
 ;;30
 ;;9002226.02101,"464,H30.92 ",.01)
 ;;H30.92 
 ;;9002226.02101,"464,H30.92 ",.02)
 ;;H30.92 
 ;;9002226.02101,"464,H30.92 ",.03)
 ;;30
 ;;9002226.02101,"464,H30.93 ",.01)
 ;;H30.93 
 ;;9002226.02101,"464,H30.93 ",.02)
 ;;H30.93 
 ;;9002226.02101,"464,H30.93 ",.03)
 ;;30
 ;;9002226.02101,"464,H32. ",.01)
 ;;H32. 
 ;;9002226.02101,"464,H32. ",.02)
 ;;H32. 
 ;;9002226.02101,"464,H32. ",.03)
 ;;30
 ;;9002226.02101,"464,I32. ",.01)
 ;;I32. 
 ;;9002226.02101,"464,I32. ",.02)
 ;;I32. 
 ;;9002226.02101,"464,I32. ",.03)
 ;;30
 ;;9002226.02101,"464,I39. ",.01)
 ;;I39. 
 ;;9002226.02101,"464,I39. ",.02)
 ;;I39. 
 ;;9002226.02101,"464,I39. ",.03)
 ;;30
 ;;9002226.02101,"464,I67.3 ",.01)
 ;;I67.3 
 ;;9002226.02101,"464,I67.3 ",.02)
 ;;I67.3 
 ;;9002226.02101,"464,I67.3 ",.03)
 ;;30
 ;;9002226.02101,"464,I67.83 ",.01)
 ;;I67.83 
 ;;9002226.02101,"464,I67.83 ",.02)
 ;;I67.83 
 ;;9002226.02101,"464,I67.83 ",.03)
 ;;30
 ;;9002226.02101,"464,J10.00 ",.01)
 ;;J10.00 
 ;;9002226.02101,"464,J10.00 ",.02)
 ;;J10.00 
 ;;9002226.02101,"464,J10.00 ",.03)
 ;;30
 ;;9002226.02101,"464,J10.08 ",.01)
 ;;J10.08 
 ;;9002226.02101,"464,J10.08 ",.02)
 ;;J10.08 
 ;;9002226.02101,"464,J10.08 ",.03)
 ;;30
 ;;9002226.02101,"464,J11.00 ",.01)
 ;;J11.00 
 ;;9002226.02101,"464,J11.00 ",.02)
 ;;J11.00 
 ;;9002226.02101,"464,J11.00 ",.03)
 ;;30
 ;;9002226.02101,"464,J11.08 ",.01)
 ;;J11.08 
 ;;9002226.02101,"464,J11.08 ",.02)
 ;;J11.08 
 ;;9002226.02101,"464,J11.08 ",.03)
 ;;30
 ;;9002226.02101,"464,J12.0 ",.01)
 ;;J12.0 
 ;;9002226.02101,"464,J12.0 ",.02)
 ;;J12.0 
 ;;9002226.02101,"464,J12.0 ",.03)
 ;;30
 ;;9002226.02101,"464,J12.1 ",.01)
 ;;J12.1 
 ;;9002226.02101,"464,J12.1 ",.02)
 ;;J12.1 
 ;;9002226.02101,"464,J12.1 ",.03)
 ;;30
 ;;9002226.02101,"464,J12.2 ",.01)
 ;;J12.2 
 ;;9002226.02101,"464,J12.2 ",.02)
 ;;J12.2 
 ;;9002226.02101,"464,J12.2 ",.03)
 ;;30
 ;;9002226.02101,"464,J12.3 ",.01)
 ;;J12.3 
 ;;9002226.02101,"464,J12.3 ",.02)
 ;;J12.3 
 ;;9002226.02101,"464,J12.3 ",.03)
 ;;30
 ;;9002226.02101,"464,J12.81 ",.01)
 ;;J12.81 
 ;;9002226.02101,"464,J12.81 ",.02)
 ;;J12.81 
 ;;9002226.02101,"464,J12.81 ",.03)
 ;;30
 ;;9002226.02101,"464,J12.89 ",.01)
 ;;J12.89 
 ;;9002226.02101,"464,J12.89 ",.02)
 ;;J12.89 
 ;;9002226.02101,"464,J12.89 ",.03)
 ;;30
 ;;9002226.02101,"464,J12.9 ",.01)
 ;;J12.9 
 ;;9002226.02101,"464,J12.9 ",.02)
 ;;J12.9 
 ;;9002226.02101,"464,J12.9 ",.03)
 ;;30
 ;;9002226.02101,"464,J15.8 ",.01)
 ;;J15.8 
 ;;9002226.02101,"464,J15.8 ",.02)
 ;;J15.8 
 ;;9002226.02101,"464,J15.8 ",.03)
 ;;30
 ;;9002226.02101,"464,J16.8 ",.01)
 ;;J16.8 
 ;;9002226.02101,"464,J16.8 ",.02)
 ;;J16.8 
 ;;9002226.02101,"464,J16.8 ",.03)
 ;;30
 ;;9002226.02101,"464,J17. ",.01)
 ;;J17. 
 ;;9002226.02101,"464,J17. ",.02)
 ;;J17. 
 ;;9002226.02101,"464,J17. ",.03)
 ;;30
 ;;9002226.02101,"464,J18.8 ",.01)
 ;;J18.8 
 ;;9002226.02101,"464,J18.8 ",.02)
 ;;J18.8 
 ;;9002226.02101,"464,J18.8 ",.03)
 ;;30
 ;;9002226.02101,"464,J18.9 ",.01)
 ;;J18.9 
 ;;9002226.02101,"464,J18.9 ",.02)
 ;;J18.9 
 ;;9002226.02101,"464,J18.9 ",.03)
 ;;30
 ;;9002226.02101,"464,R64. ",.01)
 ;;R64. 
 ;;9002226.02101,"464,R64. ",.02)
 ;;R64. 
 ;;9002226.02101,"464,R64. ",.03)
 ;;30