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.
  1. ATXD6S4 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON NOV 12, 2013;
  1. ;;5.1;TAXONOMY;**11**;FEB 04, 1997;Build 48
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;9002226.02101,"464,C85.81 ",.01)
  1. ;;C85.81
  1. ;;9002226.02101,"464,C85.81 ",.02)
  1. ;;C85.81
  1. ;;9002226.02101,"464,C85.81 ",.03)
  1. ;;30
  1. ;;9002226.02101,"464,C85.82 ",.01)
  1. ;;C85.82
  1. ;;9002226.02101,"464,C85.82 ",.02)
  1. ;;C85.82
  1. ;;9002226.02101,"464,C85.82 ",.03)
  1. ;;30
  1. ;;9002226.02101,"464,C85.83 ",.01)
  1. ;;C85.83
  1. ;;9002226.02101,"464,C85.83 ",.02)
  1. ;;C85.83
  1. ;;9002226.02101,"464,C85.83 ",.03)
  1. ;;30
  1. ;;9002226.02101,"464,C85.84 ",.01)
  1. ;;C85.84
  1. ;;9002226.02101,"464,C85.84 ",.02)
  1. ;;C85.84
  1. ;;9002226.02101,"464,C85.84 ",.03)
  1. ;;30
  1. ;;9002226.02101,"464,C85.85 ",.01)
  1. ;;C85.85
  1. ;;9002226.02101,"464,C85.85 ",.02)
  1. ;;C85.85
  1. ;;9002226.02101,"464,C85.85 ",.03)
  1. ;;30
  1. ;;9002226.02101,"464,C85.86 ",.01)
  1. ;;C85.86
  1. ;;9002226.02101,"464,C85.86 ",.02)
  1. ;;C85.86
  1. ;;9002226.02101,"464,C85.86 ",.03)
  1. ;;30
  1. ;;9002226.02101,"464,C85.87 ",.01)
  1. ;;C85.87
  1. ;;9002226.02101,"464,C85.87 ",.02)
  1. ;;C85.87
  1. ;;9002226.02101,"464,C85.87 ",.03)
  1. ;;30
  1. ;;9002226.02101,"464,C85.88 ",.01)
  1. ;;C85.88
  1. ;;9002226.02101,"464,C85.88 ",.02)
  1. ;;C85.88
  1. ;;9002226.02101,"464,C85.88 ",.03)
  1. ;;30
  1. ;;9002226.02101,"464,C85.89 ",.01)
  1. ;;C85.89
  1. ;;9002226.02101,"464,C85.89 ",.02)
  1. ;;C85.89
  1. ;;9002226.02101,"464,C85.89 ",.03)
  1. ;;30
  1. ;;9002226.02101,"464,C85.90 ",.01)
  1. ;;C85.90
  1. ;;9002226.02101,"464,C85.90 ",.02)
  1. ;;C85.90
  1. ;;9002226.02101,"464,C85.90 ",.03)
  1. ;;30
  1. ;;9002226.02101,"464,C85.91 ",.01)
  1. ;;C85.91
  1. ;;9002226.02101,"464,C85.91 ",.02)
  1. ;;C85.91
  1. ;;9002226.02101,"464,C85.91 ",.03)
  1. ;;30
  1. ;;9002226.02101,"464,C85.92 ",.01)
  1. ;;C85.92
  1. ;;9002226.02101,"464,C85.92 ",.02)
  1. ;;C85.92
  1. ;;9002226.02101,"464,C85.92 ",.03)
  1. ;;30
  1. ;;9002226.02101,"464,C85.93 ",.01)
  1. ;;C85.93
  1. ;;9002226.02101,"464,C85.93 ",.02)
  1. ;;C85.93
  1. ;;9002226.02101,"464,C85.93 ",.03)
  1. ;;30
  1. ;;9002226.02101,"464,C85.94 ",.01)
  1. ;;C85.94
  1. ;;9002226.02101,"464,C85.94 ",.02)
  1. ;;C85.94
  1. ;;9002226.02101,"464,C85.94 ",.03)
  1. ;;30
  1. ;;9002226.02101,"464,C85.95 ",.01)
  1. ;;C85.95
  1. ;;9002226.02101,"464,C85.95 ",.02)
  1. ;;C85.95
  1. ;;9002226.02101,"464,C85.95 ",.03)
  1. ;;30
  1. ;;9002226.02101,"464,C85.96 ",.01)
  1. ;;C85.96
  1. ;;9002226.02101,"464,C85.96 ",.02)
  1. ;;C85.96
  1. ;;9002226.02101,"464,C85.96 ",.03)
  1. ;;30
  1. ;;9002226.02101,"464,C85.97 ",.01)
  1. ;;C85.97
  1. ;;9002226.02101,"464,C85.97 ",.02)
  1. ;;C85.97
  1. ;;9002226.02101,"464,C85.97 ",.03)
  1. ;;30
  1. ;;9002226.02101,"464,C85.98 ",.01)
  1. ;;C85.98
  1. ;;9002226.02101,"464,C85.98 ",.02)
  1. ;;C85.98
  1. ;;9002226.02101,"464,C85.98 ",.03)
  1. ;;30
  1. ;;9002226.02101,"464,C85.99 ",.01)
  1. ;;C85.99
  1. ;;9002226.02101,"464,C85.99 ",.02)
  1. ;;C85.99
  1. ;;9002226.02101,"464,C85.99 ",.03)
  1. ;;30
  1. ;;9002226.02101,"464,C86.0 ",.01)
  1. ;;C86.0
  1. ;;9002226.02101,"464,C86.0 ",.02)
  1. ;;C86.0
  1. ;;9002226.02101,"464,C86.0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"464,C86.1 ",.01)
  1. ;;C86.1
  1. ;;9002226.02101,"464,C86.1 ",.02)
  1. ;;C86.1
  1. ;;9002226.02101,"464,C86.1 ",.03)
  1. ;;30
  1. ;;9002226.02101,"464,C86.2 ",.01)
  1. ;;C86.2
  1. ;;9002226.02101,"464,C86.2 ",.02)
  1. ;;C86.2
  1. ;;9002226.02101,"464,C86.2 ",.03)
  1. ;;30
  1. ;;9002226.02101,"464,C86.3 ",.01)
  1. ;;C86.3
  1. ;;9002226.02101,"464,C86.3 ",.02)
  1. ;;C86.3
  1. ;;9002226.02101,"464,C86.3 ",.03)
  1. ;;30
  1. ;;9002226.02101,"464,C86.4 ",.01)
  1. ;;C86.4
  1. ;;9002226.02101,"464,C86.4 ",.02)
  1. ;;C86.4
  1. ;;9002226.02101,"464,C86.4 ",.03)
  1. ;;30
  1. ;;9002226.02101,"464,C86.5 ",.01)
  1. ;;C86.5
  1. ;;9002226.02101,"464,C86.5 ",.02)
  1. ;;C86.5
  1. ;;9002226.02101,"464,C86.5 ",.03)
  1. ;;30
  1. ;;9002226.02101,"464,C86.6 ",.01)
  1. ;;C86.6
  1. ;;9002226.02101,"464,C86.6 ",.02)
  1. ;;C86.6
  1. ;;9002226.02101,"464,C86.6 ",.03)
  1. ;;30
  1. ;;9002226.02101,"464,E41. ",.01)
  1. ;;E41.
  1. ;;9002226.02101,"464,E41. ",.02)
  1. ;;E41.
  1. ;;9002226.02101,"464,E41. ",.03)
  1. ;;30
  1. ;;9002226.02101,"464,E43. ",.01)
  1. ;;E43.
  1. ;;9002226.02101,"464,E43. ",.02)
  1. ;;E43.
  1. ;;9002226.02101,"464,E43. ",.03)
  1. ;;30
  1. ;;9002226.02101,"464,G02. ",.01)
  1. ;;G02.
  1. ;;9002226.02101,"464,G02. ",.02)
  1. ;;G02.
  1. ;;9002226.02101,"464,G02. ",.03)
  1. ;;30
  1. ;;9002226.02101,"464,G93.40 ",.01)
  1. ;;G93.40
  1. ;;9002226.02101,"464,G93.40 ",.02)
  1. ;;G93.40
  1. ;;9002226.02101,"464,G93.40 ",.03)
  1. ;;30
  1. ;;9002226.02101,"464,G93.41 ",.01)
  1. ;;G93.41
  1. ;;9002226.02101,"464,G93.41 ",.02)
  1. ;;G93.41
  1. ;;9002226.02101,"464,G93.41 ",.03)
  1. ;;30
  1. ;;9002226.02101,"464,G93.49 ",.01)
  1. ;;G93.49
  1. ;;9002226.02101,"464,G93.49 ",.02)
  1. ;;G93.49
  1. ;;9002226.02101,"464,G93.49 ",.03)
  1. ;;30
  1. ;;9002226.02101,"464,H30.141 ",.01)
  1. ;;H30.141
  1. ;;9002226.02101,"464,H30.141 ",.02)
  1. ;;H30.141
  1. ;;9002226.02101,"464,H30.141 ",.03)
  1. ;;30
  1. ;;9002226.02101,"464,H30.142 ",.01)
  1. ;;H30.142
  1. ;;9002226.02101,"464,H30.142 ",.02)
  1. ;;H30.142
  1. ;;9002226.02101,"464,H30.142 ",.03)
  1. ;;30
  1. ;;9002226.02101,"464,H30.143 ",.01)
  1. ;;H30.143
  1. ;;9002226.02101,"464,H30.143 ",.02)
  1. ;;H30.143
  1. ;;9002226.02101,"464,H30.143 ",.03)
  1. ;;30
  1. ;;9002226.02101,"464,H30.149 ",.01)
  1. ;;H30.149
  1. ;;9002226.02101,"464,H30.149 ",.02)
  1. ;;H30.149
  1. ;;9002226.02101,"464,H30.149 ",.03)
  1. ;;30
  1. ;;9002226.02101,"464,H30.891 ",.01)
  1. ;;H30.891
  1. ;;9002226.02101,"464,H30.891 ",.02)
  1. ;;H30.891
  1. ;;9002226.02101,"464,H30.891 ",.03)
  1. ;;30
  1. ;;9002226.02101,"464,H30.892 ",.01)
  1. ;;H30.892
  1. ;;9002226.02101,"464,H30.892 ",.02)
  1. ;;H30.892
  1. ;;9002226.02101,"464,H30.892 ",.03)
  1. ;;30
  1. ;;9002226.02101,"464,H30.893 ",.01)
  1. ;;H30.893
  1. ;;9002226.02101,"464,H30.893 ",.02)
  1. ;;H30.893
  1. ;;9002226.02101,"464,H30.893 ",.03)
  1. ;;30
  1. ;;9002226.02101,"464,H30.899 ",.01)
  1. ;;H30.899
  1. ;;9002226.02101,"464,H30.899 ",.02)
  1. ;;H30.899
  1. ;;9002226.02101,"464,H30.899 ",.03)
  1. ;;30
  1. ;;9002226.02101,"464,H30.90 ",.01)
  1. ;;H30.90
  1. ;;9002226.02101,"464,H30.90 ",.02)
  1. ;;H30.90
  1. ;;9002226.02101,"464,H30.90 ",.03)
  1. ;;30
  1. ;;9002226.02101,"464,H30.91 ",.01)
  1. ;;H30.91
  1. ;;9002226.02101,"464,H30.91 ",.02)
  1. ;;H30.91
  1. ;;9002226.02101,"464,H30.91 ",.03)
  1. ;;30
  1. ;;9002226.02101,"464,H30.92 ",.01)
  1. ;;H30.92
  1. ;;9002226.02101,"464,H30.92 ",.02)
  1. ;;H30.92
  1. ;;9002226.02101,"464,H30.92 ",.03)
  1. ;;30
  1. ;;9002226.02101,"464,H30.93 ",.01)
  1. ;;H30.93
  1. ;;9002226.02101,"464,H30.93 ",.02)
  1. ;;H30.93
  1. ;;9002226.02101,"464,H30.93 ",.03)
  1. ;;30
  1. ;;9002226.02101,"464,H32. ",.01)
  1. ;;H32.
  1. ;;9002226.02101,"464,H32. ",.02)
  1. ;;H32.
  1. ;;9002226.02101,"464,H32. ",.03)
  1. ;;30
  1. ;;9002226.02101,"464,I32. ",.01)
  1. ;;I32.
  1. ;;9002226.02101,"464,I32. ",.02)
  1. ;;I32.
  1. ;;9002226.02101,"464,I32. ",.03)
  1. ;;30
  1. ;;9002226.02101,"464,I39. ",.01)
  1. ;;I39.
  1. ;;9002226.02101,"464,I39. ",.02)
  1. ;;I39.
  1. ;;9002226.02101,"464,I39. ",.03)
  1. ;;30
  1. ;;9002226.02101,"464,I67.3 ",.01)
  1. ;;I67.3
  1. ;;9002226.02101,"464,I67.3 ",.02)
  1. ;;I67.3
  1. ;;9002226.02101,"464,I67.3 ",.03)
  1. ;;30
  1. ;;9002226.02101,"464,I67.83 ",.01)
  1. ;;I67.83
  1. ;;9002226.02101,"464,I67.83 ",.02)
  1. ;;I67.83
  1. ;;9002226.02101,"464,I67.83 ",.03)
  1. ;;30
  1. ;;9002226.02101,"464,J10.00 ",.01)
  1. ;;J10.00
  1. ;;9002226.02101,"464,J10.00 ",.02)
  1. ;;J10.00
  1. ;;9002226.02101,"464,J10.00 ",.03)
  1. ;;30
  1. ;;9002226.02101,"464,J10.08 ",.01)
  1. ;;J10.08
  1. ;;9002226.02101,"464,J10.08 ",.02)
  1. ;;J10.08
  1. ;;9002226.02101,"464,J10.08 ",.03)
  1. ;;30
  1. ;;9002226.02101,"464,J11.00 ",.01)
  1. ;;J11.00
  1. ;;9002226.02101,"464,J11.00 ",.02)
  1. ;;J11.00
  1. ;;9002226.02101,"464,J11.00 ",.03)
  1. ;;30
  1. ;;9002226.02101,"464,J11.08 ",.01)
  1. ;;J11.08
  1. ;;9002226.02101,"464,J11.08 ",.02)
  1. ;;J11.08
  1. ;;9002226.02101,"464,J11.08 ",.03)
  1. ;;30
  1. ;;9002226.02101,"464,J12.0 ",.01)
  1. ;;J12.0
  1. ;;9002226.02101,"464,J12.0 ",.02)
  1. ;;J12.0
  1. ;;9002226.02101,"464,J12.0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"464,J12.1 ",.01)
  1. ;;J12.1
  1. ;;9002226.02101,"464,J12.1 ",.02)
  1. ;;J12.1
  1. ;;9002226.02101,"464,J12.1 ",.03)
  1. ;;30
  1. ;;9002226.02101,"464,J12.2 ",.01)
  1. ;;J12.2
  1. ;;9002226.02101,"464,J12.2 ",.02)
  1. ;;J12.2
  1. ;;9002226.02101,"464,J12.2 ",.03)
  1. ;;30
  1. ;;9002226.02101,"464,J12.3 ",.01)
  1. ;;J12.3
  1. ;;9002226.02101,"464,J12.3 ",.02)
  1. ;;J12.3
  1. ;;9002226.02101,"464,J12.3 ",.03)
  1. ;;30
  1. ;;9002226.02101,"464,J12.81 ",.01)
  1. ;;J12.81
  1. ;;9002226.02101,"464,J12.81 ",.02)
  1. ;;J12.81
  1. ;;9002226.02101,"464,J12.81 ",.03)
  1. ;;30
  1. ;;9002226.02101,"464,J12.89 ",.01)
  1. ;;J12.89
  1. ;;9002226.02101,"464,J12.89 ",.02)
  1. ;;J12.89
  1. ;;9002226.02101,"464,J12.89 ",.03)
  1. ;;30
  1. ;;9002226.02101,"464,J12.9 ",.01)
  1. ;;J12.9
  1. ;;9002226.02101,"464,J12.9 ",.02)
  1. ;;J12.9
  1. ;;9002226.02101,"464,J12.9 ",.03)
  1. ;;30
  1. ;;9002226.02101,"464,J15.8 ",.01)
  1. ;;J15.8
  1. ;;9002226.02101,"464,J15.8 ",.02)
  1. ;;J15.8
  1. ;;9002226.02101,"464,J15.8 ",.03)
  1. ;;30
  1. ;;9002226.02101,"464,J16.8 ",.01)
  1. ;;J16.8
  1. ;;9002226.02101,"464,J16.8 ",.02)
  1. ;;J16.8
  1. ;;9002226.02101,"464,J16.8 ",.03)
  1. ;;30
  1. ;;9002226.02101,"464,J17. ",.01)
  1. ;;J17.
  1. ;;9002226.02101,"464,J17. ",.02)
  1. ;;J17.
  1. ;;9002226.02101,"464,J17. ",.03)
  1. ;;30
  1. ;;9002226.02101,"464,J18.8 ",.01)
  1. ;;J18.8
  1. ;;9002226.02101,"464,J18.8 ",.02)
  1. ;;J18.8
  1. ;;9002226.02101,"464,J18.8 ",.03)
  1. ;;30
  1. ;;9002226.02101,"464,J18.9 ",.01)
  1. ;;J18.9
  1. ;;9002226.02101,"464,J18.9 ",.02)
  1. ;;J18.9
  1. ;;9002226.02101,"464,J18.9 ",.03)
  1. ;;30
  1. ;;9002226.02101,"464,R64. ",.01)
  1. ;;R64.
  1. ;;9002226.02101,"464,R64. ",.02)
  1. ;;R64.
  1. ;;9002226.02101,"464,R64. ",.03)
  1. ;;30