ATXDBH31 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON AUG 20, 2014;
;;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,"1959,O65.8 ",.02)
;;O65.8
;;9002226.02101,"1959,O65.8 ",.03)
;;30
;;9002226.02101,"1959,O65.9 ",.01)
;;O65.9
;;9002226.02101,"1959,O65.9 ",.02)
;;O65.9
;;9002226.02101,"1959,O65.9 ",.03)
;;30
;;9002226.02101,"1959,O66.0 ",.01)
;;O66.0
;;9002226.02101,"1959,O66.0 ",.02)
;;O66.0
;;9002226.02101,"1959,O66.0 ",.03)
;;30
;;9002226.02101,"1959,O66.1 ",.01)
;;O66.1
;;9002226.02101,"1959,O66.1 ",.02)
;;O66.1
;;9002226.02101,"1959,O66.1 ",.03)
;;30
;;9002226.02101,"1959,O66.2 ",.01)
;;O66.2
;;9002226.02101,"1959,O66.2 ",.02)
;;O66.2
;;9002226.02101,"1959,O66.2 ",.03)
;;30
;;9002226.02101,"1959,O66.3 ",.01)
;;O66.3
;;9002226.02101,"1959,O66.3 ",.02)
;;O66.3
;;9002226.02101,"1959,O66.3 ",.03)
;;30
;;9002226.02101,"1959,O66.40 ",.01)
;;O66.40
;;9002226.02101,"1959,O66.40 ",.02)
;;O66.40
;;9002226.02101,"1959,O66.40 ",.03)
;;30
;;9002226.02101,"1959,O66.41 ",.01)
;;O66.41
;;9002226.02101,"1959,O66.41 ",.02)
;;O66.41
;;9002226.02101,"1959,O66.41 ",.03)
;;30
;;9002226.02101,"1959,O66.5 ",.01)
;;O66.5
;;9002226.02101,"1959,O66.5 ",.02)
;;O66.5
;;9002226.02101,"1959,O66.5 ",.03)
;;30
;;9002226.02101,"1959,O66.6 ",.01)
;;O66.6
;;9002226.02101,"1959,O66.6 ",.02)
;;O66.6
;;9002226.02101,"1959,O66.6 ",.03)
;;30
;;9002226.02101,"1959,O66.8 ",.01)
;;O66.8
;;9002226.02101,"1959,O66.8 ",.02)
;;O66.8
;;9002226.02101,"1959,O66.8 ",.03)
;;30
;;9002226.02101,"1959,O66.9 ",.01)
;;O66.9
;;9002226.02101,"1959,O66.9 ",.02)
;;O66.9
;;9002226.02101,"1959,O66.9 ",.03)
;;30
;;9002226.02101,"1959,O67.0 ",.01)
;;O67.0
;;9002226.02101,"1959,O67.0 ",.02)
;;O67.0
;;9002226.02101,"1959,O67.0 ",.03)
;;30
;;9002226.02101,"1959,O67.8 ",.01)
;;O67.8
;;9002226.02101,"1959,O67.8 ",.02)
;;O67.8
;;9002226.02101,"1959,O67.8 ",.03)
;;30
;;9002226.02101,"1959,O67.9 ",.01)
;;O67.9
;;9002226.02101,"1959,O67.9 ",.02)
;;O67.9
;;9002226.02101,"1959,O67.9 ",.03)
;;30
;;9002226.02101,"1959,O68. ",.01)
;;O68.
;;9002226.02101,"1959,O68. ",.02)
;;O68.
;;9002226.02101,"1959,O68. ",.03)
;;30
;;9002226.02101,"1959,O71.00 ",.01)
;;O71.00
;;9002226.02101,"1959,O71.00 ",.02)
;;O71.00
;;9002226.02101,"1959,O71.00 ",.03)
;;30
;;9002226.02101,"1959,O71.02 ",.01)
;;O71.02
;;9002226.02101,"1959,O71.02 ",.02)
;;O71.02
;;9002226.02101,"1959,O71.02 ",.03)
;;30
;;9002226.02101,"1959,O71.03 ",.01)
;;O71.03
;;9002226.02101,"1959,O71.03 ",.02)
;;O71.03
;;9002226.02101,"1959,O71.03 ",.03)
;;30
;;9002226.02101,"1959,O71.1 ",.01)
;;O71.1
;;9002226.02101,"1959,O71.1 ",.02)
;;O71.1
;;9002226.02101,"1959,O71.1 ",.03)
;;30
;;9002226.02101,"1959,O71.2 ",.01)
;;O71.2
;;9002226.02101,"1959,O71.2 ",.02)
;;O71.2
;;9002226.02101,"1959,O71.2 ",.03)
;;30
;;9002226.02101,"1959,O71.3 ",.01)
;;O71.3
;;9002226.02101,"1959,O71.3 ",.02)
;;O71.3
;;9002226.02101,"1959,O71.3 ",.03)
;;30
;;9002226.02101,"1959,O71.4 ",.01)
;;O71.4
;;9002226.02101,"1959,O71.4 ",.02)
;;O71.4
;;9002226.02101,"1959,O71.4 ",.03)
;;30
;;9002226.02101,"1959,O71.5 ",.01)
;;O71.5
;;9002226.02101,"1959,O71.5 ",.02)
;;O71.5
;;9002226.02101,"1959,O71.5 ",.03)
;;30
;;9002226.02101,"1959,O71.6 ",.01)
;;O71.6
;;9002226.02101,"1959,O71.6 ",.02)
;;O71.6
;;9002226.02101,"1959,O71.6 ",.03)
;;30
;;9002226.02101,"1959,O71.7 ",.01)
;;O71.7
;;9002226.02101,"1959,O71.7 ",.02)
;;O71.7
;;9002226.02101,"1959,O71.7 ",.03)
;;30
;;9002226.02101,"1959,O71.81 ",.01)
;;O71.81
;;9002226.02101,"1959,O71.81 ",.02)
;;O71.81
;;9002226.02101,"1959,O71.81 ",.03)
;;30
;;9002226.02101,"1959,O71.82 ",.01)
;;O71.82
;;9002226.02101,"1959,O71.82 ",.02)
;;O71.82
;;9002226.02101,"1959,O71.82 ",.03)
;;30
;;9002226.02101,"1959,O71.89 ",.01)
;;O71.89
;;9002226.02101,"1959,O71.89 ",.02)
;;O71.89
;;9002226.02101,"1959,O71.89 ",.03)
;;30
;;9002226.02101,"1959,O71.9 ",.01)
;;O71.9
;;9002226.02101,"1959,O71.9 ",.02)
;;O71.9
;;9002226.02101,"1959,O71.9 ",.03)
;;30
;;9002226.02101,"1959,O72.0 ",.01)
;;O72.0
;;9002226.02101,"1959,O72.0 ",.02)
;;O72.0
;;9002226.02101,"1959,O72.0 ",.03)
;;30
;;9002226.02101,"1959,O72.1 ",.01)
;;O72.1
;;9002226.02101,"1959,O72.1 ",.02)
;;O72.1
;;9002226.02101,"1959,O72.1 ",.03)
;;30
;;9002226.02101,"1959,O72.2 ",.01)
;;O72.2
;;9002226.02101,"1959,O72.2 ",.02)
;;O72.2
;;9002226.02101,"1959,O72.2 ",.03)
;;30
;;9002226.02101,"1959,O72.3 ",.01)
;;O72.3
;;9002226.02101,"1959,O72.3 ",.02)
;;O72.3
;;9002226.02101,"1959,O72.3 ",.03)
;;30
;;9002226.02101,"1959,O73.0 ",.01)
;;O73.0
;;9002226.02101,"1959,O73.0 ",.02)
;;O73.0
;;9002226.02101,"1959,O73.0 ",.03)
;;30
;;9002226.02101,"1959,O73.1 ",.01)
;;O73.1
;;9002226.02101,"1959,O73.1 ",.02)
;;O73.1
;;9002226.02101,"1959,O73.1 ",.03)
;;30
;;9002226.02101,"1959,O75.2 ",.01)
;;O75.2
;;9002226.02101,"1959,O75.2 ",.02)
;;075.2
;;9002226.02101,"1959,O75.2 ",.03)
;;30
;;9002226.02101,"1959,O75.3 ",.01)
;;O75.3
;;9002226.02101,"1959,O75.3 ",.02)
;;O75.3
;;9002226.02101,"1959,O75.3 ",.03)
;;30
;;9002226.02101,"1959,O75.4 ",.01)
;;O75.4
;;9002226.02101,"1959,O75.4 ",.02)
;;O75.4
;;9002226.02101,"1959,O75.4 ",.03)
;;30
;;9002226.02101,"1959,O75.82 ",.01)
;;O75.82
;;9002226.02101,"1959,O75.82 ",.02)
;;O75.82
;;9002226.02101,"1959,O75.82 ",.03)
;;30
;;9002226.02101,"1959,O76. ",.01)
;;O76.
;;9002226.02101,"1959,O76. ",.02)
;;O76.
;;9002226.02101,"1959,O76. ",.03)
;;30
;;9002226.02101,"1959,O77.0 ",.01)
;;O77.0
;;9002226.02101,"1959,O77.0 ",.02)
;;O77.0
;;9002226.02101,"1959,O77.0 ",.03)
;;30
;;9002226.02101,"1959,O77.1 ",.01)
;;O77.1
;;9002226.02101,"1959,O77.1 ",.02)
;;O77.1
;;9002226.02101,"1959,O77.1 ",.03)
;;30
;;9002226.02101,"1959,O77.8 ",.01)
;;O77.8
;;9002226.02101,"1959,O77.8 ",.02)
;;O77.8
;;9002226.02101,"1959,O77.8 ",.03)
;;30
;;9002226.02101,"1959,O77.9 ",.01)
;;O77.9
;;9002226.02101,"1959,O77.9 ",.02)
;;O77.9
;;9002226.02101,"1959,O77.9 ",.03)
;;30
;;9002226.02101,"1959,O85. ",.01)
;;O85.
;;9002226.02101,"1959,O85. ",.02)
;;O85.
;;9002226.02101,"1959,O85. ",.03)
;;30
;;9002226.02101,"1959,O86.0 ",.01)
;;O86.0
;;9002226.02101,"1959,O86.0 ",.02)
;;O86.0
;;9002226.02101,"1959,O86.0 ",.03)
;;30
;;9002226.02101,"1959,O86.12 ",.01)
;;O86.12
;;9002226.02101,"1959,O86.12 ",.02)
;;O86.12
;;9002226.02101,"1959,O86.12 ",.03)
;;30
;;9002226.02101,"1959,O86.81 ",.01)
;;O86.81
;;9002226.02101,"1959,O86.81 ",.02)
;;O86.81
;;9002226.02101,"1959,O86.81 ",.03)
;;30
;;9002226.02101,"1959,O88.011 ",.01)
;;O88.011
;;9002226.02101,"1959,O88.011 ",.02)
;;O88.011
;;9002226.02101,"1959,O88.011 ",.03)
;;30
;;9002226.02101,"1959,O88.012 ",.01)
;;O88.012
;;9002226.02101,"1959,O88.012 ",.02)
;;O88.012
;;9002226.02101,"1959,O88.012 ",.03)
;;30
;;9002226.02101,"1959,O88.013 ",.01)
;;O88.013
;;9002226.02101,"1959,O88.013 ",.02)
;;O88.013
;;9002226.02101,"1959,O88.013 ",.03)
;;30
;;9002226.02101,"1959,O88.019 ",.01)
;;O88.019
;;9002226.02101,"1959,O88.019 ",.02)
;;O88.019
;;9002226.02101,"1959,O88.019 ",.03)
;;30
;;9002226.02101,"1959,O88.02 ",.01)
;;O88.02
;;9002226.02101,"1959,O88.02 ",.02)
;;O88.02
;;9002226.02101,"1959,O88.02 ",.03)
;;30
;;9002226.02101,"1959,O88.03 ",.01)
;;O88.03
;;9002226.02101,"1959,O88.03 ",.02)
;;O88.03
;;9002226.02101,"1959,O88.03 ",.03)
;;30
;;9002226.02101,"1959,O88.111 ",.01)
;;O88.111
;;9002226.02101,"1959,O88.111 ",.02)
;;O88.111
;;9002226.02101,"1959,O88.111 ",.03)
;;30
;;9002226.02101,"1959,O88.112 ",.01)
;;O88.112
;;9002226.02101,"1959,O88.112 ",.02)
;;O88.112
;;9002226.02101,"1959,O88.112 ",.03)
;;30
;;9002226.02101,"1959,O88.113 ",.01)
;;O88.113
;;9002226.02101,"1959,O88.113 ",.02)
;;O88.113
;;9002226.02101,"1959,O88.113 ",.03)
;;30
;;9002226.02101,"1959,O88.119 ",.01)
;;O88.119
;;9002226.02101,"1959,O88.119 ",.02)
;;O88.119
;;9002226.02101,"1959,O88.119 ",.03)
;;30
;;9002226.02101,"1959,O88.12 ",.01)
;;O88.12
;;9002226.02101,"1959,O88.12 ",.02)
;;O88.12
;;9002226.02101,"1959,O88.12 ",.03)
;;30
;;9002226.02101,"1959,O88.13 ",.01)
;;O88.13
;;9002226.02101,"1959,O88.13 ",.02)
;;O88.13
;;9002226.02101,"1959,O88.13 ",.03)
;;30
;;9002226.02101,"1959,O88.211 ",.01)
;;O88.211
;;9002226.02101,"1959,O88.211 ",.02)
;;O88.211
;;9002226.02101,"1959,O88.211 ",.03)
;;30
;;9002226.02101,"1959,O88.212 ",.01)
;;O88.212
;;9002226.02101,"1959,O88.212 ",.02)
;;O88.212
;;9002226.02101,"1959,O88.212 ",.03)
;;30
;;9002226.02101,"1959,O88.213 ",.01)
;;O88.213
;;9002226.02101,"1959,O88.213 ",.02)
;;O88.213
;;9002226.02101,"1959,O88.213 ",.03)
;;30
;;9002226.02101,"1959,O88.219 ",.01)
;;O88.219
;;9002226.02101,"1959,O88.219 ",.02)
;;O88.219
;;9002226.02101,"1959,O88.219 ",.03)
;;30
;;9002226.02101,"1959,O88.22 ",.01)
;;O88.22
;;9002226.02101,"1959,O88.22 ",.02)
;;O88.22
;;9002226.02101,"1959,O88.22 ",.03)
;;30
;;9002226.02101,"1959,O88.23 ",.01)
;;O88.23
;;9002226.02101,"1959,O88.23 ",.02)
;;O88.23
;;9002226.02101,"1959,O88.23 ",.03)
;;30
;;9002226.02101,"1959,O88.311 ",.01)
;;O88.311
;;9002226.02101,"1959,O88.311 ",.02)
;;O88.311
;;9002226.02101,"1959,O88.311 ",.03)
;;30
;;9002226.02101,"1959,O88.312 ",.01)
;;O88.312
;;9002226.02101,"1959,O88.312 ",.02)
;;O88.312
;;9002226.02101,"1959,O88.312 ",.03)
;;30
;;9002226.02101,"1959,O88.313 ",.01)
;;O88.313
;;9002226.02101,"1959,O88.313 ",.02)
;;O88.313
;;9002226.02101,"1959,O88.313 ",.03)
;;30
;;9002226.02101,"1959,O88.319 ",.01)
;;O88.319
;;9002226.02101,"1959,O88.319 ",.02)
;;O88.319
;;9002226.02101,"1959,O88.319 ",.03)
;;30
;;9002226.02101,"1959,O88.32 ",.01)
;;O88.32
;;9002226.02101,"1959,O88.32 ",.02)
;;O88.32
;;9002226.02101,"1959,O88.32 ",.03)
;;30
;;9002226.02101,"1959,O88.33 ",.01)
;;O88.33
;;9002226.02101,"1959,O88.33 ",.02)
;;O88.33
;;9002226.02101,"1959,O88.33 ",.03)
;;30
;;9002226.02101,"1959,O88.811 ",.01)
;;O88.811
;;9002226.02101,"1959,O88.811 ",.02)
;;O88.811
;;9002226.02101,"1959,O88.811 ",.03)
;;30
;;9002226.02101,"1959,O88.812 ",.01)
;;O88.812
;;9002226.02101,"1959,O88.812 ",.02)
;;O88.812
;;9002226.02101,"1959,O88.812 ",.03)
;;30
;;9002226.02101,"1959,O88.813 ",.01)
;;O88.813
;;9002226.02101,"1959,O88.813 ",.02)
;;O88.813
;;9002226.02101,"1959,O88.813 ",.03)
;;30
;;9002226.02101,"1959,O88.819 ",.01)
;;O88.819
;;9002226.02101,"1959,O88.819 ",.02)
;;O88.819
;;9002226.02101,"1959,O88.819 ",.03)
;;30
;;9002226.02101,"1959,O88.82 ",.01)
;;O88.82
;;9002226.02101,"1959,O88.82 ",.02)
;;O88.82
;;9002226.02101,"1959,O88.82 ",.03)
;;30
;;9002226.02101,"1959,O88.83 ",.01)
;;O88.83
;;9002226.02101,"1959,O88.83 ",.02)
;;O88.83
;;9002226.02101,"1959,O88.83 ",.03)
;;30
;;9002226.02101,"1959,O89.01 ",.01)
;;O89.01
;;9002226.02101,"1959,O89.01 ",.02)
;;O89.01
;;9002226.02101,"1959,O89.01 ",.03)
;;30
;;9002226.02101,"1959,O90.1 ",.01)
;;O90.1
;;9002226.02101,"1959,O90.1 ",.02)
;;O90.1
;;9002226.02101,"1959,O90.1 ",.03)
;;30
;;9002226.02101,"1959,O90.2 ",.01)
;;O90.2
;;9002226.02101,"1959,O90.2 ",.02)
;;O90.2
ATXDBH31 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON AUG 20, 2014;
+1 ;;5.1;TAXONOMY;**11**;FEB 04, 1997;Build 48
+2 ;
START ;
+1 IF '$GET(ATXPGMC)
KILL ^TMP("ATX",$JOB)
+2 SET ATXPGMC=$GET(ATXPGMC)+1
+3 FOR ATXI=1:1
SET X=$PIECE($TEXT(TMP+ATXI),";;",2,99)
IF X=""
QUIT
SET X="^TMP(""ATX"",$J,"_X
SET ATXI=ATXI+1
SET Y=$PIECE($TEXT(TMP+ATXI),";;",2,99)
SET @X=Y
+4 QUIT
+5 ;
TMP ;;TAXONOMY (WITH BULLETIN)
+1 ;;9002226.02101,"1959,O65.8 ",.02)
+2 ;;O65.8
+3 ;;9002226.02101,"1959,O65.8 ",.03)
+4 ;;30
+5 ;;9002226.02101,"1959,O65.9 ",.01)
+6 ;;O65.9
+7 ;;9002226.02101,"1959,O65.9 ",.02)
+8 ;;O65.9
+9 ;;9002226.02101,"1959,O65.9 ",.03)
+10 ;;30
+11 ;;9002226.02101,"1959,O66.0 ",.01)
+12 ;;O66.0
+13 ;;9002226.02101,"1959,O66.0 ",.02)
+14 ;;O66.0
+15 ;;9002226.02101,"1959,O66.0 ",.03)
+16 ;;30
+17 ;;9002226.02101,"1959,O66.1 ",.01)
+18 ;;O66.1
+19 ;;9002226.02101,"1959,O66.1 ",.02)
+20 ;;O66.1
+21 ;;9002226.02101,"1959,O66.1 ",.03)
+22 ;;30
+23 ;;9002226.02101,"1959,O66.2 ",.01)
+24 ;;O66.2
+25 ;;9002226.02101,"1959,O66.2 ",.02)
+26 ;;O66.2
+27 ;;9002226.02101,"1959,O66.2 ",.03)
+28 ;;30
+29 ;;9002226.02101,"1959,O66.3 ",.01)
+30 ;;O66.3
+31 ;;9002226.02101,"1959,O66.3 ",.02)
+32 ;;O66.3
+33 ;;9002226.02101,"1959,O66.3 ",.03)
+34 ;;30
+35 ;;9002226.02101,"1959,O66.40 ",.01)
+36 ;;O66.40
+37 ;;9002226.02101,"1959,O66.40 ",.02)
+38 ;;O66.40
+39 ;;9002226.02101,"1959,O66.40 ",.03)
+40 ;;30
+41 ;;9002226.02101,"1959,O66.41 ",.01)
+42 ;;O66.41
+43 ;;9002226.02101,"1959,O66.41 ",.02)
+44 ;;O66.41
+45 ;;9002226.02101,"1959,O66.41 ",.03)
+46 ;;30
+47 ;;9002226.02101,"1959,O66.5 ",.01)
+48 ;;O66.5
+49 ;;9002226.02101,"1959,O66.5 ",.02)
+50 ;;O66.5
+51 ;;9002226.02101,"1959,O66.5 ",.03)
+52 ;;30
+53 ;;9002226.02101,"1959,O66.6 ",.01)
+54 ;;O66.6
+55 ;;9002226.02101,"1959,O66.6 ",.02)
+56 ;;O66.6
+57 ;;9002226.02101,"1959,O66.6 ",.03)
+58 ;;30
+59 ;;9002226.02101,"1959,O66.8 ",.01)
+60 ;;O66.8
+61 ;;9002226.02101,"1959,O66.8 ",.02)
+62 ;;O66.8
+63 ;;9002226.02101,"1959,O66.8 ",.03)
+64 ;;30
+65 ;;9002226.02101,"1959,O66.9 ",.01)
+66 ;;O66.9
+67 ;;9002226.02101,"1959,O66.9 ",.02)
+68 ;;O66.9
+69 ;;9002226.02101,"1959,O66.9 ",.03)
+70 ;;30
+71 ;;9002226.02101,"1959,O67.0 ",.01)
+72 ;;O67.0
+73 ;;9002226.02101,"1959,O67.0 ",.02)
+74 ;;O67.0
+75 ;;9002226.02101,"1959,O67.0 ",.03)
+76 ;;30
+77 ;;9002226.02101,"1959,O67.8 ",.01)
+78 ;;O67.8
+79 ;;9002226.02101,"1959,O67.8 ",.02)
+80 ;;O67.8
+81 ;;9002226.02101,"1959,O67.8 ",.03)
+82 ;;30
+83 ;;9002226.02101,"1959,O67.9 ",.01)
+84 ;;O67.9
+85 ;;9002226.02101,"1959,O67.9 ",.02)
+86 ;;O67.9
+87 ;;9002226.02101,"1959,O67.9 ",.03)
+88 ;;30
+89 ;;9002226.02101,"1959,O68. ",.01)
+90 ;;O68.
+91 ;;9002226.02101,"1959,O68. ",.02)
+92 ;;O68.
+93 ;;9002226.02101,"1959,O68. ",.03)
+94 ;;30
+95 ;;9002226.02101,"1959,O71.00 ",.01)
+96 ;;O71.00
+97 ;;9002226.02101,"1959,O71.00 ",.02)
+98 ;;O71.00
+99 ;;9002226.02101,"1959,O71.00 ",.03)
+100 ;;30
+101 ;;9002226.02101,"1959,O71.02 ",.01)
+102 ;;O71.02
+103 ;;9002226.02101,"1959,O71.02 ",.02)
+104 ;;O71.02
+105 ;;9002226.02101,"1959,O71.02 ",.03)
+106 ;;30
+107 ;;9002226.02101,"1959,O71.03 ",.01)
+108 ;;O71.03
+109 ;;9002226.02101,"1959,O71.03 ",.02)
+110 ;;O71.03
+111 ;;9002226.02101,"1959,O71.03 ",.03)
+112 ;;30
+113 ;;9002226.02101,"1959,O71.1 ",.01)
+114 ;;O71.1
+115 ;;9002226.02101,"1959,O71.1 ",.02)
+116 ;;O71.1
+117 ;;9002226.02101,"1959,O71.1 ",.03)
+118 ;;30
+119 ;;9002226.02101,"1959,O71.2 ",.01)
+120 ;;O71.2
+121 ;;9002226.02101,"1959,O71.2 ",.02)
+122 ;;O71.2
+123 ;;9002226.02101,"1959,O71.2 ",.03)
+124 ;;30
+125 ;;9002226.02101,"1959,O71.3 ",.01)
+126 ;;O71.3
+127 ;;9002226.02101,"1959,O71.3 ",.02)
+128 ;;O71.3
+129 ;;9002226.02101,"1959,O71.3 ",.03)
+130 ;;30
+131 ;;9002226.02101,"1959,O71.4 ",.01)
+132 ;;O71.4
+133 ;;9002226.02101,"1959,O71.4 ",.02)
+134 ;;O71.4
+135 ;;9002226.02101,"1959,O71.4 ",.03)
+136 ;;30
+137 ;;9002226.02101,"1959,O71.5 ",.01)
+138 ;;O71.5
+139 ;;9002226.02101,"1959,O71.5 ",.02)
+140 ;;O71.5
+141 ;;9002226.02101,"1959,O71.5 ",.03)
+142 ;;30
+143 ;;9002226.02101,"1959,O71.6 ",.01)
+144 ;;O71.6
+145 ;;9002226.02101,"1959,O71.6 ",.02)
+146 ;;O71.6
+147 ;;9002226.02101,"1959,O71.6 ",.03)
+148 ;;30
+149 ;;9002226.02101,"1959,O71.7 ",.01)
+150 ;;O71.7
+151 ;;9002226.02101,"1959,O71.7 ",.02)
+152 ;;O71.7
+153 ;;9002226.02101,"1959,O71.7 ",.03)
+154 ;;30
+155 ;;9002226.02101,"1959,O71.81 ",.01)
+156 ;;O71.81
+157 ;;9002226.02101,"1959,O71.81 ",.02)
+158 ;;O71.81
+159 ;;9002226.02101,"1959,O71.81 ",.03)
+160 ;;30
+161 ;;9002226.02101,"1959,O71.82 ",.01)
+162 ;;O71.82
+163 ;;9002226.02101,"1959,O71.82 ",.02)
+164 ;;O71.82
+165 ;;9002226.02101,"1959,O71.82 ",.03)
+166 ;;30
+167 ;;9002226.02101,"1959,O71.89 ",.01)
+168 ;;O71.89
+169 ;;9002226.02101,"1959,O71.89 ",.02)
+170 ;;O71.89
+171 ;;9002226.02101,"1959,O71.89 ",.03)
+172 ;;30
+173 ;;9002226.02101,"1959,O71.9 ",.01)
+174 ;;O71.9
+175 ;;9002226.02101,"1959,O71.9 ",.02)
+176 ;;O71.9
+177 ;;9002226.02101,"1959,O71.9 ",.03)
+178 ;;30
+179 ;;9002226.02101,"1959,O72.0 ",.01)
+180 ;;O72.0
+181 ;;9002226.02101,"1959,O72.0 ",.02)
+182 ;;O72.0
+183 ;;9002226.02101,"1959,O72.0 ",.03)
+184 ;;30
+185 ;;9002226.02101,"1959,O72.1 ",.01)
+186 ;;O72.1
+187 ;;9002226.02101,"1959,O72.1 ",.02)
+188 ;;O72.1
+189 ;;9002226.02101,"1959,O72.1 ",.03)
+190 ;;30
+191 ;;9002226.02101,"1959,O72.2 ",.01)
+192 ;;O72.2
+193 ;;9002226.02101,"1959,O72.2 ",.02)
+194 ;;O72.2
+195 ;;9002226.02101,"1959,O72.2 ",.03)
+196 ;;30
+197 ;;9002226.02101,"1959,O72.3 ",.01)
+198 ;;O72.3
+199 ;;9002226.02101,"1959,O72.3 ",.02)
+200 ;;O72.3
+201 ;;9002226.02101,"1959,O72.3 ",.03)
+202 ;;30
+203 ;;9002226.02101,"1959,O73.0 ",.01)
+204 ;;O73.0
+205 ;;9002226.02101,"1959,O73.0 ",.02)
+206 ;;O73.0
+207 ;;9002226.02101,"1959,O73.0 ",.03)
+208 ;;30
+209 ;;9002226.02101,"1959,O73.1 ",.01)
+210 ;;O73.1
+211 ;;9002226.02101,"1959,O73.1 ",.02)
+212 ;;O73.1
+213 ;;9002226.02101,"1959,O73.1 ",.03)
+214 ;;30
+215 ;;9002226.02101,"1959,O75.2 ",.01)
+216 ;;O75.2
+217 ;;9002226.02101,"1959,O75.2 ",.02)
+218 ;;075.2
+219 ;;9002226.02101,"1959,O75.2 ",.03)
+220 ;;30
+221 ;;9002226.02101,"1959,O75.3 ",.01)
+222 ;;O75.3
+223 ;;9002226.02101,"1959,O75.3 ",.02)
+224 ;;O75.3
+225 ;;9002226.02101,"1959,O75.3 ",.03)
+226 ;;30
+227 ;;9002226.02101,"1959,O75.4 ",.01)
+228 ;;O75.4
+229 ;;9002226.02101,"1959,O75.4 ",.02)
+230 ;;O75.4
+231 ;;9002226.02101,"1959,O75.4 ",.03)
+232 ;;30
+233 ;;9002226.02101,"1959,O75.82 ",.01)
+234 ;;O75.82
+235 ;;9002226.02101,"1959,O75.82 ",.02)
+236 ;;O75.82
+237 ;;9002226.02101,"1959,O75.82 ",.03)
+238 ;;30
+239 ;;9002226.02101,"1959,O76. ",.01)
+240 ;;O76.
+241 ;;9002226.02101,"1959,O76. ",.02)
+242 ;;O76.
+243 ;;9002226.02101,"1959,O76. ",.03)
+244 ;;30
+245 ;;9002226.02101,"1959,O77.0 ",.01)
+246 ;;O77.0
+247 ;;9002226.02101,"1959,O77.0 ",.02)
+248 ;;O77.0
+249 ;;9002226.02101,"1959,O77.0 ",.03)
+250 ;;30
+251 ;;9002226.02101,"1959,O77.1 ",.01)
+252 ;;O77.1
+253 ;;9002226.02101,"1959,O77.1 ",.02)
+254 ;;O77.1
+255 ;;9002226.02101,"1959,O77.1 ",.03)
+256 ;;30
+257 ;;9002226.02101,"1959,O77.8 ",.01)
+258 ;;O77.8
+259 ;;9002226.02101,"1959,O77.8 ",.02)
+260 ;;O77.8
+261 ;;9002226.02101,"1959,O77.8 ",.03)
+262 ;;30
+263 ;;9002226.02101,"1959,O77.9 ",.01)
+264 ;;O77.9
+265 ;;9002226.02101,"1959,O77.9 ",.02)
+266 ;;O77.9
+267 ;;9002226.02101,"1959,O77.9 ",.03)
+268 ;;30
+269 ;;9002226.02101,"1959,O85. ",.01)
+270 ;;O85.
+271 ;;9002226.02101,"1959,O85. ",.02)
+272 ;;O85.
+273 ;;9002226.02101,"1959,O85. ",.03)
+274 ;;30
+275 ;;9002226.02101,"1959,O86.0 ",.01)
+276 ;;O86.0
+277 ;;9002226.02101,"1959,O86.0 ",.02)
+278 ;;O86.0
+279 ;;9002226.02101,"1959,O86.0 ",.03)
+280 ;;30
+281 ;;9002226.02101,"1959,O86.12 ",.01)
+282 ;;O86.12
+283 ;;9002226.02101,"1959,O86.12 ",.02)
+284 ;;O86.12
+285 ;;9002226.02101,"1959,O86.12 ",.03)
+286 ;;30
+287 ;;9002226.02101,"1959,O86.81 ",.01)
+288 ;;O86.81
+289 ;;9002226.02101,"1959,O86.81 ",.02)
+290 ;;O86.81
+291 ;;9002226.02101,"1959,O86.81 ",.03)
+292 ;;30
+293 ;;9002226.02101,"1959,O88.011 ",.01)
+294 ;;O88.011
+295 ;;9002226.02101,"1959,O88.011 ",.02)
+296 ;;O88.011
+297 ;;9002226.02101,"1959,O88.011 ",.03)
+298 ;;30
+299 ;;9002226.02101,"1959,O88.012 ",.01)
+300 ;;O88.012
+301 ;;9002226.02101,"1959,O88.012 ",.02)
+302 ;;O88.012
+303 ;;9002226.02101,"1959,O88.012 ",.03)
+304 ;;30
+305 ;;9002226.02101,"1959,O88.013 ",.01)
+306 ;;O88.013
+307 ;;9002226.02101,"1959,O88.013 ",.02)
+308 ;;O88.013
+309 ;;9002226.02101,"1959,O88.013 ",.03)
+310 ;;30
+311 ;;9002226.02101,"1959,O88.019 ",.01)
+312 ;;O88.019
+313 ;;9002226.02101,"1959,O88.019 ",.02)
+314 ;;O88.019
+315 ;;9002226.02101,"1959,O88.019 ",.03)
+316 ;;30
+317 ;;9002226.02101,"1959,O88.02 ",.01)
+318 ;;O88.02
+319 ;;9002226.02101,"1959,O88.02 ",.02)
+320 ;;O88.02
+321 ;;9002226.02101,"1959,O88.02 ",.03)
+322 ;;30
+323 ;;9002226.02101,"1959,O88.03 ",.01)
+324 ;;O88.03
+325 ;;9002226.02101,"1959,O88.03 ",.02)
+326 ;;O88.03
+327 ;;9002226.02101,"1959,O88.03 ",.03)
+328 ;;30
+329 ;;9002226.02101,"1959,O88.111 ",.01)
+330 ;;O88.111
+331 ;;9002226.02101,"1959,O88.111 ",.02)
+332 ;;O88.111
+333 ;;9002226.02101,"1959,O88.111 ",.03)
+334 ;;30
+335 ;;9002226.02101,"1959,O88.112 ",.01)
+336 ;;O88.112
+337 ;;9002226.02101,"1959,O88.112 ",.02)
+338 ;;O88.112
+339 ;;9002226.02101,"1959,O88.112 ",.03)
+340 ;;30
+341 ;;9002226.02101,"1959,O88.113 ",.01)
+342 ;;O88.113
+343 ;;9002226.02101,"1959,O88.113 ",.02)
+344 ;;O88.113
+345 ;;9002226.02101,"1959,O88.113 ",.03)
+346 ;;30
+347 ;;9002226.02101,"1959,O88.119 ",.01)
+348 ;;O88.119
+349 ;;9002226.02101,"1959,O88.119 ",.02)
+350 ;;O88.119
+351 ;;9002226.02101,"1959,O88.119 ",.03)
+352 ;;30
+353 ;;9002226.02101,"1959,O88.12 ",.01)
+354 ;;O88.12
+355 ;;9002226.02101,"1959,O88.12 ",.02)
+356 ;;O88.12
+357 ;;9002226.02101,"1959,O88.12 ",.03)
+358 ;;30
+359 ;;9002226.02101,"1959,O88.13 ",.01)
+360 ;;O88.13
+361 ;;9002226.02101,"1959,O88.13 ",.02)
+362 ;;O88.13
+363 ;;9002226.02101,"1959,O88.13 ",.03)
+364 ;;30
+365 ;;9002226.02101,"1959,O88.211 ",.01)
+366 ;;O88.211
+367 ;;9002226.02101,"1959,O88.211 ",.02)
+368 ;;O88.211
+369 ;;9002226.02101,"1959,O88.211 ",.03)
+370 ;;30
+371 ;;9002226.02101,"1959,O88.212 ",.01)
+372 ;;O88.212
+373 ;;9002226.02101,"1959,O88.212 ",.02)
+374 ;;O88.212
+375 ;;9002226.02101,"1959,O88.212 ",.03)
+376 ;;30
+377 ;;9002226.02101,"1959,O88.213 ",.01)
+378 ;;O88.213
+379 ;;9002226.02101,"1959,O88.213 ",.02)
+380 ;;O88.213
+381 ;;9002226.02101,"1959,O88.213 ",.03)
+382 ;;30
+383 ;;9002226.02101,"1959,O88.219 ",.01)
+384 ;;O88.219
+385 ;;9002226.02101,"1959,O88.219 ",.02)
+386 ;;O88.219
+387 ;;9002226.02101,"1959,O88.219 ",.03)
+388 ;;30
+389 ;;9002226.02101,"1959,O88.22 ",.01)
+390 ;;O88.22
+391 ;;9002226.02101,"1959,O88.22 ",.02)
+392 ;;O88.22
+393 ;;9002226.02101,"1959,O88.22 ",.03)
+394 ;;30
+395 ;;9002226.02101,"1959,O88.23 ",.01)
+396 ;;O88.23
+397 ;;9002226.02101,"1959,O88.23 ",.02)
+398 ;;O88.23
+399 ;;9002226.02101,"1959,O88.23 ",.03)
+400 ;;30
+401 ;;9002226.02101,"1959,O88.311 ",.01)
+402 ;;O88.311
+403 ;;9002226.02101,"1959,O88.311 ",.02)
+404 ;;O88.311
+405 ;;9002226.02101,"1959,O88.311 ",.03)
+406 ;;30
+407 ;;9002226.02101,"1959,O88.312 ",.01)
+408 ;;O88.312
+409 ;;9002226.02101,"1959,O88.312 ",.02)
+410 ;;O88.312
+411 ;;9002226.02101,"1959,O88.312 ",.03)
+412 ;;30
+413 ;;9002226.02101,"1959,O88.313 ",.01)
+414 ;;O88.313
+415 ;;9002226.02101,"1959,O88.313 ",.02)
+416 ;;O88.313
+417 ;;9002226.02101,"1959,O88.313 ",.03)
+418 ;;30
+419 ;;9002226.02101,"1959,O88.319 ",.01)
+420 ;;O88.319
+421 ;;9002226.02101,"1959,O88.319 ",.02)
+422 ;;O88.319
+423 ;;9002226.02101,"1959,O88.319 ",.03)
+424 ;;30
+425 ;;9002226.02101,"1959,O88.32 ",.01)
+426 ;;O88.32
+427 ;;9002226.02101,"1959,O88.32 ",.02)
+428 ;;O88.32
+429 ;;9002226.02101,"1959,O88.32 ",.03)
+430 ;;30
+431 ;;9002226.02101,"1959,O88.33 ",.01)
+432 ;;O88.33
+433 ;;9002226.02101,"1959,O88.33 ",.02)
+434 ;;O88.33
+435 ;;9002226.02101,"1959,O88.33 ",.03)
+436 ;;30
+437 ;;9002226.02101,"1959,O88.811 ",.01)
+438 ;;O88.811
+439 ;;9002226.02101,"1959,O88.811 ",.02)
+440 ;;O88.811
+441 ;;9002226.02101,"1959,O88.811 ",.03)
+442 ;;30
+443 ;;9002226.02101,"1959,O88.812 ",.01)
+444 ;;O88.812
+445 ;;9002226.02101,"1959,O88.812 ",.02)
+446 ;;O88.812
+447 ;;9002226.02101,"1959,O88.812 ",.03)
+448 ;;30
+449 ;;9002226.02101,"1959,O88.813 ",.01)
+450 ;;O88.813
+451 ;;9002226.02101,"1959,O88.813 ",.02)
+452 ;;O88.813
+453 ;;9002226.02101,"1959,O88.813 ",.03)
+454 ;;30
+455 ;;9002226.02101,"1959,O88.819 ",.01)
+456 ;;O88.819
+457 ;;9002226.02101,"1959,O88.819 ",.02)
+458 ;;O88.819
+459 ;;9002226.02101,"1959,O88.819 ",.03)
+460 ;;30
+461 ;;9002226.02101,"1959,O88.82 ",.01)
+462 ;;O88.82
+463 ;;9002226.02101,"1959,O88.82 ",.02)
+464 ;;O88.82
+465 ;;9002226.02101,"1959,O88.82 ",.03)
+466 ;;30
+467 ;;9002226.02101,"1959,O88.83 ",.01)
+468 ;;O88.83
+469 ;;9002226.02101,"1959,O88.83 ",.02)
+470 ;;O88.83
+471 ;;9002226.02101,"1959,O88.83 ",.03)
+472 ;;30
+473 ;;9002226.02101,"1959,O89.01 ",.01)
+474 ;;O89.01
+475 ;;9002226.02101,"1959,O89.01 ",.02)
+476 ;;O89.01
+477 ;;9002226.02101,"1959,O89.01 ",.03)
+478 ;;30
+479 ;;9002226.02101,"1959,O90.1 ",.01)
+480 ;;O90.1
+481 ;;9002226.02101,"1959,O90.1 ",.02)
+482 ;;O90.1
+483 ;;9002226.02101,"1959,O90.1 ",.03)
+484 ;;30
+485 ;;9002226.02101,"1959,O90.2 ",.01)
+486 ;;O90.2
+487 ;;9002226.02101,"1959,O90.2 ",.02)
+488 ;;O90.2
