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

ATXD7H4.m

Go to the documentation of this file.
  1. ATXD7H4 ;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,"809,I21.4 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I22.0 ",.01)
  1. ;;I22.0
  1. ;;9002226.02101,"809,I22.0 ",.02)
  1. ;;I22.0
  1. ;;9002226.02101,"809,I22.0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I22.1 ",.01)
  1. ;;I22.1
  1. ;;9002226.02101,"809,I22.1 ",.02)
  1. ;;I22.1
  1. ;;9002226.02101,"809,I22.1 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I22.2 ",.01)
  1. ;;I22.2
  1. ;;9002226.02101,"809,I22.2 ",.02)
  1. ;;I22.2
  1. ;;9002226.02101,"809,I22.2 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I22.8 ",.01)
  1. ;;I22.8
  1. ;;9002226.02101,"809,I22.8 ",.02)
  1. ;;I22.8
  1. ;;9002226.02101,"809,I22.8 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I22.9 ",.01)
  1. ;;I22.9
  1. ;;9002226.02101,"809,I22.9 ",.02)
  1. ;;I22.9
  1. ;;9002226.02101,"809,I22.9 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I24.0 ",.01)
  1. ;;I24.0
  1. ;;9002226.02101,"809,I24.0 ",.02)
  1. ;;I24.0
  1. ;;9002226.02101,"809,I24.0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I24.1 ",.01)
  1. ;;I24.1
  1. ;;9002226.02101,"809,I24.1 ",.02)
  1. ;;I24.1
  1. ;;9002226.02101,"809,I24.1 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I24.8 ",.01)
  1. ;;I24.8
  1. ;;9002226.02101,"809,I24.8 ",.02)
  1. ;;I24.8
  1. ;;9002226.02101,"809,I24.8 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I24.9 ",.01)
  1. ;;I24.9
  1. ;;9002226.02101,"809,I24.9 ",.02)
  1. ;;I24.9
  1. ;;9002226.02101,"809,I24.9 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I25.10 ",.01)
  1. ;;I25.10
  1. ;;9002226.02101,"809,I25.10 ",.02)
  1. ;;I25.10
  1. ;;9002226.02101,"809,I25.10 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I25.110 ",.01)
  1. ;;I25.110
  1. ;;9002226.02101,"809,I25.110 ",.02)
  1. ;;I25.110
  1. ;;9002226.02101,"809,I25.110 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I25.111 ",.01)
  1. ;;I25.111
  1. ;;9002226.02101,"809,I25.111 ",.02)
  1. ;;I25.111
  1. ;;9002226.02101,"809,I25.111 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I25.118 ",.01)
  1. ;;I25.118
  1. ;;9002226.02101,"809,I25.118 ",.02)
  1. ;;I25.118
  1. ;;9002226.02101,"809,I25.118 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I25.119 ",.01)
  1. ;;I25.119
  1. ;;9002226.02101,"809,I25.119 ",.02)
  1. ;;I25.119
  1. ;;9002226.02101,"809,I25.119 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I25.2 ",.01)
  1. ;;I25.2
  1. ;;9002226.02101,"809,I25.2 ",.02)
  1. ;;I25.2
  1. ;;9002226.02101,"809,I25.2 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I25.3 ",.01)
  1. ;;I25.3
  1. ;;9002226.02101,"809,I25.3 ",.02)
  1. ;;I25.3
  1. ;;9002226.02101,"809,I25.3 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I25.41 ",.01)
  1. ;;I25.41
  1. ;;9002226.02101,"809,I25.41 ",.02)
  1. ;;I25.41
  1. ;;9002226.02101,"809,I25.41 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I25.42 ",.01)
  1. ;;I25.42
  1. ;;9002226.02101,"809,I25.42 ",.02)
  1. ;;I25.42
  1. ;;9002226.02101,"809,I25.42 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I25.5 ",.01)
  1. ;;I25.5
  1. ;;9002226.02101,"809,I25.5 ",.02)
  1. ;;I25.5
  1. ;;9002226.02101,"809,I25.5 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I25.6 ",.01)
  1. ;;I25.6
  1. ;;9002226.02101,"809,I25.6 ",.02)
  1. ;;I25.6
  1. ;;9002226.02101,"809,I25.6 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I25.700 ",.01)
  1. ;;I25.700
  1. ;;9002226.02101,"809,I25.700 ",.02)
  1. ;;I25.700
  1. ;;9002226.02101,"809,I25.700 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I25.701 ",.01)
  1. ;;I25.701
  1. ;;9002226.02101,"809,I25.701 ",.02)
  1. ;;I25.701
  1. ;;9002226.02101,"809,I25.701 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I25.708 ",.01)
  1. ;;I25.708
  1. ;;9002226.02101,"809,I25.708 ",.02)
  1. ;;I25.708
  1. ;;9002226.02101,"809,I25.708 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I25.709 ",.01)
  1. ;;I25.709
  1. ;;9002226.02101,"809,I25.709 ",.02)
  1. ;;I25.709
  1. ;;9002226.02101,"809,I25.709 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I25.710 ",.01)
  1. ;;I25.710
  1. ;;9002226.02101,"809,I25.710 ",.02)
  1. ;;I25.710
  1. ;;9002226.02101,"809,I25.710 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I25.711 ",.01)
  1. ;;I25.711
  1. ;;9002226.02101,"809,I25.711 ",.02)
  1. ;;I25.711
  1. ;;9002226.02101,"809,I25.711 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I25.718 ",.01)
  1. ;;I25.718
  1. ;;9002226.02101,"809,I25.718 ",.02)
  1. ;;I25.718
  1. ;;9002226.02101,"809,I25.718 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I25.719 ",.01)
  1. ;;I25.719
  1. ;;9002226.02101,"809,I25.719 ",.02)
  1. ;;I25.719
  1. ;;9002226.02101,"809,I25.719 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I25.720 ",.01)
  1. ;;I25.720
  1. ;;9002226.02101,"809,I25.720 ",.02)
  1. ;;I25.720
  1. ;;9002226.02101,"809,I25.720 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I25.721 ",.01)
  1. ;;I25.721
  1. ;;9002226.02101,"809,I25.721 ",.02)
  1. ;;I25.721
  1. ;;9002226.02101,"809,I25.721 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I25.728 ",.01)
  1. ;;I25.728
  1. ;;9002226.02101,"809,I25.728 ",.02)
  1. ;;I25.728
  1. ;;9002226.02101,"809,I25.728 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I25.729 ",.01)
  1. ;;I25.729
  1. ;;9002226.02101,"809,I25.729 ",.02)
  1. ;;I25.729
  1. ;;9002226.02101,"809,I25.729 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I25.730 ",.01)
  1. ;;I25.730
  1. ;;9002226.02101,"809,I25.730 ",.02)
  1. ;;I25.730
  1. ;;9002226.02101,"809,I25.730 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I25.731 ",.01)
  1. ;;I25.731
  1. ;;9002226.02101,"809,I25.731 ",.02)
  1. ;;I25.731
  1. ;;9002226.02101,"809,I25.731 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I25.738 ",.01)
  1. ;;I25.738
  1. ;;9002226.02101,"809,I25.738 ",.02)
  1. ;;I25.738
  1. ;;9002226.02101,"809,I25.738 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I25.739 ",.01)
  1. ;;I25.739
  1. ;;9002226.02101,"809,I25.739 ",.02)
  1. ;;I25.739
  1. ;;9002226.02101,"809,I25.739 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I25.750 ",.01)
  1. ;;I25.750
  1. ;;9002226.02101,"809,I25.750 ",.02)
  1. ;;I25.750
  1. ;;9002226.02101,"809,I25.750 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I25.751 ",.01)
  1. ;;I25.751
  1. ;;9002226.02101,"809,I25.751 ",.02)
  1. ;;I25.751
  1. ;;9002226.02101,"809,I25.751 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I25.758 ",.01)
  1. ;;I25.758
  1. ;;9002226.02101,"809,I25.758 ",.02)
  1. ;;I25.758
  1. ;;9002226.02101,"809,I25.758 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I25.759 ",.01)
  1. ;;I25.759
  1. ;;9002226.02101,"809,I25.759 ",.02)
  1. ;;I25.759
  1. ;;9002226.02101,"809,I25.759 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I25.760 ",.01)
  1. ;;I25.760
  1. ;;9002226.02101,"809,I25.760 ",.02)
  1. ;;I25.760
  1. ;;9002226.02101,"809,I25.760 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I25.761 ",.01)
  1. ;;I25.761
  1. ;;9002226.02101,"809,I25.761 ",.02)
  1. ;;I25.761
  1. ;;9002226.02101,"809,I25.761 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I25.768 ",.01)
  1. ;;I25.768
  1. ;;9002226.02101,"809,I25.768 ",.02)
  1. ;;I25.768
  1. ;;9002226.02101,"809,I25.768 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I25.769 ",.01)
  1. ;;I25.769
  1. ;;9002226.02101,"809,I25.769 ",.02)
  1. ;;I25.769
  1. ;;9002226.02101,"809,I25.769 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I25.790 ",.01)
  1. ;;I25.790
  1. ;;9002226.02101,"809,I25.790 ",.02)
  1. ;;I25.790
  1. ;;9002226.02101,"809,I25.790 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I25.791 ",.01)
  1. ;;I25.791
  1. ;;9002226.02101,"809,I25.791 ",.02)
  1. ;;I25.791
  1. ;;9002226.02101,"809,I25.791 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I25.798 ",.01)
  1. ;;I25.798
  1. ;;9002226.02101,"809,I25.798 ",.02)
  1. ;;I25.798
  1. ;;9002226.02101,"809,I25.798 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I25.799 ",.01)
  1. ;;I25.799
  1. ;;9002226.02101,"809,I25.799 ",.02)
  1. ;;I25.799
  1. ;;9002226.02101,"809,I25.799 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I25.810 ",.01)
  1. ;;I25.810
  1. ;;9002226.02101,"809,I25.810 ",.02)
  1. ;;I25.810
  1. ;;9002226.02101,"809,I25.810 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I25.811 ",.01)
  1. ;;I25.811
  1. ;;9002226.02101,"809,I25.811 ",.02)
  1. ;;I25.811
  1. ;;9002226.02101,"809,I25.811 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I25.812 ",.01)
  1. ;;I25.812
  1. ;;9002226.02101,"809,I25.812 ",.02)
  1. ;;I25.812
  1. ;;9002226.02101,"809,I25.812 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I25.82 ",.01)
  1. ;;I25.82
  1. ;;9002226.02101,"809,I25.82 ",.02)
  1. ;;I25.82
  1. ;;9002226.02101,"809,I25.82 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I25.83 ",.01)
  1. ;;I25.83
  1. ;;9002226.02101,"809,I25.83 ",.02)
  1. ;;I25.83
  1. ;;9002226.02101,"809,I25.83 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I25.84 ",.01)
  1. ;;I25.84
  1. ;;9002226.02101,"809,I25.84 ",.02)
  1. ;;I25.84
  1. ;;9002226.02101,"809,I25.84 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I25.89 ",.01)
  1. ;;I25.89
  1. ;;9002226.02101,"809,I25.89 ",.02)
  1. ;;I25.89
  1. ;;9002226.02101,"809,I25.89 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I25.9 ",.01)
  1. ;;I25.9
  1. ;;9002226.02101,"809,I25.9 ",.02)
  1. ;;I25.9
  1. ;;9002226.02101,"809,I25.9 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I26.01 ",.01)
  1. ;;I26.01
  1. ;;9002226.02101,"809,I26.01 ",.02)
  1. ;;I26.01
  1. ;;9002226.02101,"809,I26.01 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I26.02 ",.01)
  1. ;;I26.02
  1. ;;9002226.02101,"809,I26.02 ",.02)
  1. ;;I26.02
  1. ;;9002226.02101,"809,I26.02 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I26.09 ",.01)
  1. ;;I26.09
  1. ;;9002226.02101,"809,I26.09 ",.02)
  1. ;;I26.09
  1. ;;9002226.02101,"809,I26.09 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I26.90 ",.01)
  1. ;;I26.90
  1. ;;9002226.02101,"809,I26.90 ",.02)
  1. ;;I26.90
  1. ;;9002226.02101,"809,I26.90 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I26.92 ",.01)
  1. ;;I26.92
  1. ;;9002226.02101,"809,I26.92 ",.02)
  1. ;;I26.92
  1. ;;9002226.02101,"809,I26.92 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I26.99 ",.01)
  1. ;;I26.99
  1. ;;9002226.02101,"809,I26.99 ",.02)
  1. ;;I26.99
  1. ;;9002226.02101,"809,I26.99 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I27.0 ",.01)
  1. ;;I27.0
  1. ;;9002226.02101,"809,I27.0 ",.02)
  1. ;;I27.0
  1. ;;9002226.02101,"809,I27.0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I27.1 ",.01)
  1. ;;I27.1
  1. ;;9002226.02101,"809,I27.1 ",.02)
  1. ;;I27.1
  1. ;;9002226.02101,"809,I27.1 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I27.2 ",.01)
  1. ;;I27.2
  1. ;;9002226.02101,"809,I27.2 ",.02)
  1. ;;I27.2
  1. ;;9002226.02101,"809,I27.2 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I27.81 ",.01)
  1. ;;I27.81
  1. ;;9002226.02101,"809,I27.81 ",.02)
  1. ;;I27.81
  1. ;;9002226.02101,"809,I27.81 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I27.82 ",.01)
  1. ;;I27.82
  1. ;;9002226.02101,"809,I27.82 ",.02)
  1. ;;I27.82
  1. ;;9002226.02101,"809,I27.82 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I27.89 ",.01)
  1. ;;I27.89
  1. ;;9002226.02101,"809,I27.89 ",.02)
  1. ;;I27.89
  1. ;;9002226.02101,"809,I27.89 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I27.9 ",.01)
  1. ;;I27.9
  1. ;;9002226.02101,"809,I27.9 ",.02)
  1. ;;I27.9
  1. ;;9002226.02101,"809,I27.9 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I34.0 ",.01)
  1. ;;I34.0
  1. ;;9002226.02101,"809,I34.0 ",.02)
  1. ;;I34.0
  1. ;;9002226.02101,"809,I34.0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I34.1 ",.01)
  1. ;;I34.1
  1. ;;9002226.02101,"809,I34.1 ",.02)
  1. ;;I34.1
  1. ;;9002226.02101,"809,I34.1 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I34.2 ",.01)
  1. ;;I34.2
  1. ;;9002226.02101,"809,I34.2 ",.02)
  1. ;;I34.2
  1. ;;9002226.02101,"809,I34.2 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I34.8 ",.01)
  1. ;;I34.8
  1. ;;9002226.02101,"809,I34.8 ",.02)
  1. ;;I34.8
  1. ;;9002226.02101,"809,I34.8 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I34.9 ",.01)
  1. ;;I34.9
  1. ;;9002226.02101,"809,I34.9 ",.02)
  1. ;;I34.9
  1. ;;9002226.02101,"809,I34.9 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I35.0 ",.01)
  1. ;;I35.0
  1. ;;9002226.02101,"809,I35.0 ",.02)
  1. ;;I35.0
  1. ;;9002226.02101,"809,I35.0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I35.1 ",.01)
  1. ;;I35.1
  1. ;;9002226.02101,"809,I35.1 ",.02)
  1. ;;I35.1
  1. ;;9002226.02101,"809,I35.1 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I35.2 ",.01)
  1. ;;I35.2
  1. ;;9002226.02101,"809,I35.2 ",.02)
  1. ;;I35.2
  1. ;;9002226.02101,"809,I35.2 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I35.8 ",.01)
  1. ;;I35.8
  1. ;;9002226.02101,"809,I35.8 ",.02)
  1. ;;I35.8
  1. ;;9002226.02101,"809,I35.8 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I35.9 ",.01)
  1. ;;I35.9
  1. ;;9002226.02101,"809,I35.9 ",.02)
  1. ;;I35.9
  1. ;;9002226.02101,"809,I35.9 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I36.0 ",.01)
  1. ;;I36.0
  1. ;;9002226.02101,"809,I36.0 ",.02)
  1. ;;I36.0
  1. ;;9002226.02101,"809,I36.0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I36.1 ",.01)
  1. ;;I36.1
  1. ;;9002226.02101,"809,I36.1 ",.02)
  1. ;;I36.1
  1. ;;9002226.02101,"809,I36.1 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I36.2 ",.01)
  1. ;;I36.2
  1. ;;9002226.02101,"809,I36.2 ",.02)
  1. ;;I36.2
  1. ;;9002226.02101,"809,I36.2 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I36.8 ",.01)
  1. ;;I36.8
  1. ;;9002226.02101,"809,I36.8 ",.02)
  1. ;;I36.8
  1. ;;9002226.02101,"809,I36.8 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I36.9 ",.01)
  1. ;;I36.9
  1. ;;9002226.02101,"809,I36.9 ",.02)
  1. ;;I36.9
  1. ;;9002226.02101,"809,I36.9 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I37.0 ",.01)
  1. ;;I37.0
  1. ;;9002226.02101,"809,I37.0 ",.02)
  1. ;;I37.0
  1. ;;9002226.02101,"809,I37.0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I37.1 ",.01)
  1. ;;I37.1
  1. ;;9002226.02101,"809,I37.1 ",.02)
  1. ;;I37.1
  1. ;;9002226.02101,"809,I37.1 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I37.2 ",.01)
  1. ;;I37.2
  1. ;;9002226.02101,"809,I37.2 ",.02)
  1. ;;I37.2
  1. ;;9002226.02101,"809,I37.2 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I37.8 ",.01)
  1. ;;I37.8
  1. ;;9002226.02101,"809,I37.8 ",.02)
  1. ;;I37.8
  1. ;;9002226.02101,"809,I37.8 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I37.9 ",.01)
  1. ;;I37.9
  1. ;;9002226.02101,"809,I37.9 ",.02)
  1. ;;I37.9
  1. ;;9002226.02101,"809,I37.9 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I38. ",.01)
  1. ;;I38.
  1. ;;9002226.02101,"809,I38. ",.02)
  1. ;;I38.
  1. ;;9002226.02101,"809,I38. ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I39. ",.01)
  1. ;;I39.
  1. ;;9002226.02101,"809,I39. ",.02)
  1. ;;I39.
  1. ;;9002226.02101,"809,I39. ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I42.0 ",.01)
  1. ;;I42.0
  1. ;;9002226.02101,"809,I42.0 ",.02)
  1. ;;I42.0
  1. ;;9002226.02101,"809,I42.0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I42.1 ",.01)
  1. ;;I42.1
  1. ;;9002226.02101,"809,I42.1 ",.02)
  1. ;;I42.1
  1. ;;9002226.02101,"809,I42.1 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I42.2 ",.01)
  1. ;;I42.2
  1. ;;9002226.02101,"809,I42.2 ",.02)
  1. ;;I42.2
  1. ;;9002226.02101,"809,I42.2 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I42.3 ",.01)
  1. ;;I42.3
  1. ;;9002226.02101,"809,I42.3 ",.02)
  1. ;;I42.3
  1. ;;9002226.02101,"809,I42.3 ",.03)
  1. ;;30
  1. ;;9002226.02101,"809,I42.4 ",.01)
  1. ;;I42.4