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

ATXD6X5.m

Go to the documentation of this file.
  1. ATXD6X5 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 17, 2014;
  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,"476,C85.96 ",.01)
  1. ;;C85.96
  1. ;;9002226.02101,"476,C85.96 ",.02)
  1. ;;C85.96
  1. ;;9002226.02101,"476,C85.96 ",.03)
  1. ;;30
  1. ;;9002226.02101,"476,C85.97 ",.01)
  1. ;;C85.97
  1. ;;9002226.02101,"476,C85.97 ",.02)
  1. ;;C85.97
  1. ;;9002226.02101,"476,C85.97 ",.03)
  1. ;;30
  1. ;;9002226.02101,"476,C85.98 ",.01)
  1. ;;C85.98
  1. ;;9002226.02101,"476,C85.98 ",.02)
  1. ;;C85.98
  1. ;;9002226.02101,"476,C85.98 ",.03)
  1. ;;30
  1. ;;9002226.02101,"476,C85.99 ",.01)
  1. ;;C85.99
  1. ;;9002226.02101,"476,C85.99 ",.02)
  1. ;;C85.99
  1. ;;9002226.02101,"476,C85.99 ",.03)
  1. ;;30
  1. ;;9002226.02101,"476,C86.0 ",.01)
  1. ;;C86.0
  1. ;;9002226.02101,"476,C86.0 ",.02)
  1. ;;C86.0
  1. ;;9002226.02101,"476,C86.0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"476,C86.1 ",.01)
  1. ;;C86.1
  1. ;;9002226.02101,"476,C86.1 ",.02)
  1. ;;C86.1
  1. ;;9002226.02101,"476,C86.1 ",.03)
  1. ;;30
  1. ;;9002226.02101,"476,C86.2 ",.01)
  1. ;;C86.2
  1. ;;9002226.02101,"476,C86.2 ",.02)
  1. ;;C86.2
  1. ;;9002226.02101,"476,C86.2 ",.03)
  1. ;;30
  1. ;;9002226.02101,"476,C86.3 ",.01)
  1. ;;C86.3
  1. ;;9002226.02101,"476,C86.3 ",.02)
  1. ;;C86.3
  1. ;;9002226.02101,"476,C86.3 ",.03)
  1. ;;30
  1. ;;9002226.02101,"476,C86.4 ",.01)
  1. ;;C86.4
  1. ;;9002226.02101,"476,C86.4 ",.02)
  1. ;;C86.4
  1. ;;9002226.02101,"476,C86.4 ",.03)
  1. ;;30
  1. ;;9002226.02101,"476,C86.5 ",.01)
  1. ;;C86.5
  1. ;;9002226.02101,"476,C86.5 ",.02)
  1. ;;C86.5
  1. ;;9002226.02101,"476,C86.5 ",.03)
  1. ;;30
  1. ;;9002226.02101,"476,C86.6 ",.01)
  1. ;;C86.6
  1. ;;9002226.02101,"476,C86.6 ",.02)
  1. ;;C86.6
  1. ;;9002226.02101,"476,C86.6 ",.03)
  1. ;;30
  1. ;;9002226.02101,"476,E41. ",.01)
  1. ;;E41.
  1. ;;9002226.02101,"476,E41. ",.02)
  1. ;;E41.
  1. ;;9002226.02101,"476,E41. ",.03)
  1. ;;30
  1. ;;9002226.02101,"476,G93.40 ",.01)
  1. ;;G93.40
  1. ;;9002226.02101,"476,G93.40 ",.02)
  1. ;;G93.40
  1. ;;9002226.02101,"476,G93.40 ",.03)
  1. ;;30
  1. ;;9002226.02101,"476,G93.41 ",.01)
  1. ;;G93.41
  1. ;;9002226.02101,"476,G93.41 ",.02)
  1. ;;G93.41
  1. ;;9002226.02101,"476,G93.41 ",.03)
  1. ;;30
  1. ;;9002226.02101,"476,G93.49 ",.01)
  1. ;;G93.49
  1. ;;9002226.02101,"476,G93.49 ",.02)
  1. ;;G93.49
  1. ;;9002226.02101,"476,G93.49 ",.03)
  1. ;;30
  1. ;;9002226.02101,"476,I67.83 ",.01)
  1. ;;I67.83
  1. ;;9002226.02101,"476,I67.83 ",.02)
  1. ;;I67.83
  1. ;;9002226.02101,"476,I67.83 ",.03)
  1. ;;30
  1. ;;9002226.02101,"476,J10.00 ",.01)
  1. ;;J10.00
  1. ;;9002226.02101,"476,J10.00 ",.02)
  1. ;;J10.00
  1. ;;9002226.02101,"476,J10.00 ",.03)
  1. ;;30
  1. ;;9002226.02101,"476,J10.08 ",.01)
  1. ;;J10.08
  1. ;;9002226.02101,"476,J10.08 ",.02)
  1. ;;J10.08
  1. ;;9002226.02101,"476,J10.08 ",.03)
  1. ;;30
  1. ;;9002226.02101,"476,J11.00 ",.01)
  1. ;;J11.00
  1. ;;9002226.02101,"476,J11.00 ",.02)
  1. ;;J11.00
  1. ;;9002226.02101,"476,J11.00 ",.03)
  1. ;;30
  1. ;;9002226.02101,"476,J11.08 ",.01)
  1. ;;J11.08
  1. ;;9002226.02101,"476,J11.08 ",.02)
  1. ;;J11.08
  1. ;;9002226.02101,"476,J11.08 ",.03)
  1. ;;30
  1. ;;9002226.02101,"476,J12.0 ",.01)
  1. ;;J12.0
  1. ;;9002226.02101,"476,J12.0 ",.02)
  1. ;;J12.0
  1. ;;9002226.02101,"476,J12.0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"476,J12.1 ",.01)
  1. ;;J12.1
  1. ;;9002226.02101,"476,J12.1 ",.02)
  1. ;;J12.1
  1. ;;9002226.02101,"476,J12.1 ",.03)
  1. ;;30
  1. ;;9002226.02101,"476,J12.2 ",.01)
  1. ;;J12.2
  1. ;;9002226.02101,"476,J12.2 ",.02)
  1. ;;J12.2
  1. ;;9002226.02101,"476,J12.2 ",.03)
  1. ;;30
  1. ;;9002226.02101,"476,J12.3 ",.01)
  1. ;;J12.3
  1. ;;9002226.02101,"476,J12.3 ",.02)
  1. ;;J12.3
  1. ;;9002226.02101,"476,J12.3 ",.03)
  1. ;;30
  1. ;;9002226.02101,"476,J12.81 ",.01)
  1. ;;J12.81
  1. ;;9002226.02101,"476,J12.81 ",.02)
  1. ;;J12.81
  1. ;;9002226.02101,"476,J12.81 ",.03)
  1. ;;30
  1. ;;9002226.02101,"476,J12.89 ",.01)
  1. ;;J12.89
  1. ;;9002226.02101,"476,J12.89 ",.02)
  1. ;;J12.89
  1. ;;9002226.02101,"476,J12.89 ",.03)
  1. ;;30
  1. ;;9002226.02101,"476,J12.9 ",.01)
  1. ;;J12.9
  1. ;;9002226.02101,"476,J12.9 ",.02)
  1. ;;J12.9
  1. ;;9002226.02101,"476,J12.9 ",.03)
  1. ;;30
  1. ;;9002226.02101,"476,J13. ",.01)
  1. ;;J13.
  1. ;;9002226.02101,"476,J13. ",.02)
  1. ;;J13.
  1. ;;9002226.02101,"476,J13. ",.03)
  1. ;;30
  1. ;;9002226.02101,"476,J14. ",.01)
  1. ;;J14.
  1. ;;9002226.02101,"476,J14. ",.02)
  1. ;;J14.
  1. ;;9002226.02101,"476,J14. ",.03)
  1. ;;30
  1. ;;9002226.02101,"476,J15.0 ",.01)
  1. ;;J15.0
  1. ;;9002226.02101,"476,J15.0 ",.02)
  1. ;;J15.0
  1. ;;9002226.02101,"476,J15.0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"476,J15.1 ",.01)
  1. ;;J15.1
  1. ;;9002226.02101,"476,J15.1 ",.02)
  1. ;;J15.1
  1. ;;9002226.02101,"476,J15.1 ",.03)
  1. ;;30
  1. ;;9002226.02101,"476,J15.20 ",.01)
  1. ;;J15.20
  1. ;;9002226.02101,"476,J15.20 ",.02)
  1. ;;J15.20
  1. ;;9002226.02101,"476,J15.20 ",.03)
  1. ;;30
  1. ;;9002226.02101,"476,J15.211 ",.01)
  1. ;;J15.211
  1. ;;9002226.02101,"476,J15.211 ",.02)
  1. ;;J15.211
  1. ;;9002226.02101,"476,J15.211 ",.03)
  1. ;;30
  1. ;;9002226.02101,"476,J15.212 ",.01)
  1. ;;J15.212
  1. ;;9002226.02101,"476,J15.212 ",.02)
  1. ;;J15.212
  1. ;;9002226.02101,"476,J15.212 ",.03)
  1. ;;30
  1. ;;9002226.02101,"476,J15.29 ",.01)
  1. ;;J15.29
  1. ;;9002226.02101,"476,J15.29 ",.02)
  1. ;;J15.29
  1. ;;9002226.02101,"476,J15.29 ",.03)
  1. ;;30
  1. ;;9002226.02101,"476,J15.3 ",.01)
  1. ;;J15.3
  1. ;;9002226.02101,"476,J15.3 ",.02)
  1. ;;J15.3
  1. ;;9002226.02101,"476,J15.3 ",.03)
  1. ;;30
  1. ;;9002226.02101,"476,J15.4 ",.01)
  1. ;;J15.4
  1. ;;9002226.02101,"476,J15.4 ",.02)
  1. ;;J15.4
  1. ;;9002226.02101,"476,J15.4 ",.03)
  1. ;;30
  1. ;;9002226.02101,"476,J15.5 ",.01)
  1. ;;J15.5
  1. ;;9002226.02101,"476,J15.5 ",.02)
  1. ;;J15.5
  1. ;;9002226.02101,"476,J15.5 ",.03)
  1. ;;30
  1. ;;9002226.02101,"476,J15.6 ",.01)
  1. ;;J15.6
  1. ;;9002226.02101,"476,J15.6 ",.02)
  1. ;;J15.6
  1. ;;9002226.02101,"476,J15.6 ",.03)
  1. ;;30
  1. ;;9002226.02101,"476,J15.7 ",.01)
  1. ;;J15.7
  1. ;;9002226.02101,"476,J15.7 ",.02)
  1. ;;J15.7
  1. ;;9002226.02101,"476,J15.7 ",.03)
  1. ;;30
  1. ;;9002226.02101,"476,J15.8 ",.01)
  1. ;;J15.8
  1. ;;9002226.02101,"476,J15.8 ",.02)
  1. ;;J15.8
  1. ;;9002226.02101,"476,J15.8 ",.03)
  1. ;;30
  1. ;;9002226.02101,"476,J15.9 ",.01)
  1. ;;J15.9
  1. ;;9002226.02101,"476,J15.9 ",.02)
  1. ;;J15.9
  1. ;;9002226.02101,"476,J15.9 ",.03)
  1. ;;30
  1. ;;9002226.02101,"476,J16.0 ",.01)
  1. ;;J16.0
  1. ;;9002226.02101,"476,J16.0 ",.02)
  1. ;;J16.0
  1. ;;9002226.02101,"476,J16.0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"476,J16.8 ",.01)
  1. ;;J16.8
  1. ;;9002226.02101,"476,J16.8 ",.02)
  1. ;;J16.8
  1. ;;9002226.02101,"476,J16.8 ",.03)
  1. ;;30
  1. ;;9002226.02101,"476,J17. ",.01)
  1. ;;J17.
  1. ;;9002226.02101,"476,J17. ",.02)
  1. ;;J17.
  1. ;;9002226.02101,"476,J17. ",.03)
  1. ;;30
  1. ;;9002226.02101,"476,J18.0 ",.01)
  1. ;;J18.0
  1. ;;9002226.02101,"476,J18.0 ",.02)
  1. ;;J18.0
  1. ;;9002226.02101,"476,J18.0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"476,J18.1 ",.01)
  1. ;;J18.1
  1. ;;9002226.02101,"476,J18.1 ",.02)
  1. ;;J18.1
  1. ;;9002226.02101,"476,J18.1 ",.03)
  1. ;;30
  1. ;;9002226.02101,"476,J18.8 ",.01)
  1. ;;J18.8
  1. ;;9002226.02101,"476,J18.8 ",.02)
  1. ;;J18.8
  1. ;;9002226.02101,"476,J18.8 ",.03)
  1. ;;30
  1. ;;9002226.02101,"476,J18.9 ",.01)
  1. ;;J18.9
  1. ;;9002226.02101,"476,J18.9 ",.02)
  1. ;;J18.9
  1. ;;9002226.02101,"476,J18.9 ",.03)
  1. ;;30
  1. ;;9002226.02101,"476,R64. ",.01)
  1. ;;R64.
  1. ;;9002226.02101,"476,R64. ",.02)
  1. ;;R64.
  1. ;;9002226.02101,"476,R64. ",.03)
  1. ;;30