BGP03B5 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAY 23, 2010;
;;10.0;IHS CLINICAL REPORTING;;JUN 18, 2010
;
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,"843,017.04 ",.01)
;;017.04
;;9002226.02101,"843,017.04 ",.02)
;;017.04
;;9002226.02101,"843,017.05 ",.01)
;;017.05
;;9002226.02101,"843,017.05 ",.02)
;;017.05
;;9002226.02101,"843,017.06 ",.01)
;;017.06
;;9002226.02101,"843,017.06 ",.02)
;;017.06
;;9002226.02101,"843,017.10 ",.01)
;;017.10
;;9002226.02101,"843,017.10 ",.02)
;;017.10
;;9002226.02101,"843,017.11 ",.01)
;;017.11
;;9002226.02101,"843,017.11 ",.02)
;;017.11
;;9002226.02101,"843,017.12 ",.01)
;;017.12
;;9002226.02101,"843,017.12 ",.02)
;;017.12
;;9002226.02101,"843,017.13 ",.01)
;;017.13
;;9002226.02101,"843,017.13 ",.02)
;;017.13
;;9002226.02101,"843,017.14 ",.01)
;;017.14
;;9002226.02101,"843,017.14 ",.02)
;;017.14
;;9002226.02101,"843,017.15 ",.01)
;;017.15
;;9002226.02101,"843,017.15 ",.02)
;;017.15
;;9002226.02101,"843,017.16 ",.01)
;;017.16
;;9002226.02101,"843,017.16 ",.02)
;;017.16
;;9002226.02101,"843,017.20 ",.01)
;;017.20
;;9002226.02101,"843,017.20 ",.02)
;;017.20
;;9002226.02101,"843,017.21 ",.01)
;;017.21
;;9002226.02101,"843,017.21 ",.02)
;;017.21
;;9002226.02101,"843,017.22 ",.01)
;;017.22
;;9002226.02101,"843,017.22 ",.02)
;;017.22
;;9002226.02101,"843,017.23 ",.01)
;;017.23
;;9002226.02101,"843,017.23 ",.02)
;;017.23
;;9002226.02101,"843,017.24 ",.01)
;;017.24
;;9002226.02101,"843,017.24 ",.02)
;;017.24
;;9002226.02101,"843,017.25 ",.01)
;;017.25
;;9002226.02101,"843,017.25 ",.02)
;;017.25
;;9002226.02101,"843,017.26 ",.01)
;;017.26
;;9002226.02101,"843,017.26 ",.02)
;;017.26
;;9002226.02101,"843,017.30 ",.01)
;;017.30
;;9002226.02101,"843,017.30 ",.02)
;;017.30
;;9002226.02101,"843,017.31 ",.01)
;;017.31
;;9002226.02101,"843,017.31 ",.02)
;;017.31
;;9002226.02101,"843,017.32 ",.01)
;;017.32
;;9002226.02101,"843,017.32 ",.02)
;;017.32
;;9002226.02101,"843,017.33 ",.01)
;;017.33
;;9002226.02101,"843,017.33 ",.02)
;;017.33
;;9002226.02101,"843,017.34 ",.01)
;;017.34
;;9002226.02101,"843,017.34 ",.02)
;;017.34
;;9002226.02101,"843,017.35 ",.01)
;;017.35
;;9002226.02101,"843,017.35 ",.02)
;;017.35
;;9002226.02101,"843,017.36 ",.01)
;;017.36
;;9002226.02101,"843,017.36 ",.02)
;;017.36
;;9002226.02101,"843,017.40 ",.01)
;;017.40
;;9002226.02101,"843,017.40 ",.02)
;;017.40
;;9002226.02101,"843,017.41 ",.01)
;;017.41
;;9002226.02101,"843,017.41 ",.02)
;;017.41
;;9002226.02101,"843,017.42 ",.01)
;;017.42
;;9002226.02101,"843,017.42 ",.02)
;;017.42
;;9002226.02101,"843,017.43 ",.01)
;;017.43
;;9002226.02101,"843,017.43 ",.02)
;;017.43
;;9002226.02101,"843,017.44 ",.01)
;;017.44
;;9002226.02101,"843,017.44 ",.02)
;;017.44
;;9002226.02101,"843,017.45 ",.01)
;;017.45
;;9002226.02101,"843,017.45 ",.02)
;;017.45
;;9002226.02101,"843,017.46 ",.01)
;;017.46
;;9002226.02101,"843,017.46 ",.02)
;;017.46
;;9002226.02101,"843,017.50 ",.01)
;;017.50
;;9002226.02101,"843,017.50 ",.02)
;;017.50
;;9002226.02101,"843,017.51 ",.01)
;;017.51
;;9002226.02101,"843,017.51 ",.02)
;;017.51
;;9002226.02101,"843,017.52 ",.01)
;;017.52
;;9002226.02101,"843,017.52 ",.02)
;;017.52
;;9002226.02101,"843,017.53 ",.01)
;;017.53
;;9002226.02101,"843,017.53 ",.02)
;;017.53
;;9002226.02101,"843,017.54 ",.01)
;;017.54
;;9002226.02101,"843,017.54 ",.02)
;;017.54
;;9002226.02101,"843,017.55 ",.01)
;;017.55
;;9002226.02101,"843,017.55 ",.02)
;;017.55
;;9002226.02101,"843,017.56 ",.01)
;;017.56
;;9002226.02101,"843,017.56 ",.02)
;;017.56
;;9002226.02101,"843,017.60 ",.01)
;;017.60
;;9002226.02101,"843,017.60 ",.02)
;;017.60
;;9002226.02101,"843,017.61 ",.01)
;;017.61
;;9002226.02101,"843,017.61 ",.02)
;;017.61
;;9002226.02101,"843,017.62 ",.01)
;;017.62
;;9002226.02101,"843,017.62 ",.02)
;;017.62
;;9002226.02101,"843,017.63 ",.01)
;;017.63
;;9002226.02101,"843,017.63 ",.02)
;;017.63
;;9002226.02101,"843,017.64 ",.01)
;;017.64
;;9002226.02101,"843,017.64 ",.02)
;;017.64
;;9002226.02101,"843,017.65 ",.01)
;;017.65
;;9002226.02101,"843,017.65 ",.02)
;;017.65
;;9002226.02101,"843,017.66 ",.01)
;;017.66
;;9002226.02101,"843,017.66 ",.02)
;;017.66
;;9002226.02101,"843,017.70 ",.01)
;;017.70
;;9002226.02101,"843,017.70 ",.02)
;;017.70
;;9002226.02101,"843,017.71 ",.01)
;;017.71
;;9002226.02101,"843,017.71 ",.02)
;;017.71
;;9002226.02101,"843,017.72 ",.01)
;;017.72
;;9002226.02101,"843,017.72 ",.02)
;;017.72
;;9002226.02101,"843,017.73 ",.01)
;;017.73
;;9002226.02101,"843,017.73 ",.02)
;;017.73
;;9002226.02101,"843,017.74 ",.01)
;;017.74
;;9002226.02101,"843,017.74 ",.02)
;;017.74
;;9002226.02101,"843,017.75 ",.01)
;;017.75
;;9002226.02101,"843,017.75 ",.02)
;;017.75
;;9002226.02101,"843,017.76 ",.01)
;;017.76
;;9002226.02101,"843,017.76 ",.02)
;;017.76
;;9002226.02101,"843,017.80 ",.01)
;;017.80
;;9002226.02101,"843,017.80 ",.02)
;;017.80
;;9002226.02101,"843,017.81 ",.01)
;;017.81
;;9002226.02101,"843,017.81 ",.02)
;;017.81
;;9002226.02101,"843,017.82 ",.01)
;;017.82
;;9002226.02101,"843,017.82 ",.02)
;;017.82
;;9002226.02101,"843,017.83 ",.01)
;;017.83
;;9002226.02101,"843,017.83 ",.02)
;;017.83
;;9002226.02101,"843,017.84 ",.01)
;;017.84
;;9002226.02101,"843,017.84 ",.02)
;;017.84
;;9002226.02101,"843,017.85 ",.01)
;;017.85
;;9002226.02101,"843,017.85 ",.02)
;;017.85
;;9002226.02101,"843,017.86 ",.01)
;;017.86
;;9002226.02101,"843,017.86 ",.02)
;;017.86
;;9002226.02101,"843,017.90 ",.01)
;;017.90
;;9002226.02101,"843,017.90 ",.02)
;;017.90
;;9002226.02101,"843,017.91 ",.01)
;;017.91
;;9002226.02101,"843,017.91 ",.02)
;;017.91
;;9002226.02101,"843,017.92 ",.01)
;;017.92
;;9002226.02101,"843,017.92 ",.02)
;;017.92
;;9002226.02101,"843,017.93 ",.01)
;;017.93
;;9002226.02101,"843,017.93 ",.02)
;;017.93
;;9002226.02101,"843,017.94 ",.01)
;;017.94
;;9002226.02101,"843,017.94 ",.02)
;;017.94
;;9002226.02101,"843,017.95 ",.01)
;;017.95
;;9002226.02101,"843,017.95 ",.02)
;;017.95
;;9002226.02101,"843,017.96 ",.01)
;;017.96
;;9002226.02101,"843,017.96 ",.02)
;;017.96
;;9002226.02101,"843,018.00 ",.01)
;;018.00
;;9002226.02101,"843,018.00 ",.02)
;;018.00
;;9002226.02101,"843,018.01 ",.01)
;;018.01
;;9002226.02101,"843,018.01 ",.02)
;;018.01
;;9002226.02101,"843,018.02 ",.01)
;;018.02
;;9002226.02101,"843,018.02 ",.02)
;;018.02
;;9002226.02101,"843,018.03 ",.01)
;;018.03
;;9002226.02101,"843,018.03 ",.02)
;;018.03
;;9002226.02101,"843,018.04 ",.01)
;;018.04
;;9002226.02101,"843,018.04 ",.02)
;;018.04
;;9002226.02101,"843,018.05 ",.01)
;;018.05
;;9002226.02101,"843,018.05 ",.02)
;;018.05
;;9002226.02101,"843,018.06 ",.01)
;;018.06
;;9002226.02101,"843,018.06 ",.02)
;;018.06
;;9002226.02101,"843,018.80 ",.01)
;;018.80
;;9002226.02101,"843,018.80 ",.02)
;;018.80
;;9002226.02101,"843,018.81 ",.01)
;;018.81
;;9002226.02101,"843,018.81 ",.02)
;;018.81
;;9002226.02101,"843,018.82 ",.01)
;;018.82
;;9002226.02101,"843,018.82 ",.02)
;;018.82
;;9002226.02101,"843,018.83 ",.01)
;;018.83
;;9002226.02101,"843,018.83 ",.02)
;;018.83
;;9002226.02101,"843,018.84 ",.01)
;;018.84
;;9002226.02101,"843,018.84 ",.02)
;;018.84
;;9002226.02101,"843,018.85 ",.01)
;;018.85
;;9002226.02101,"843,018.85 ",.02)
;;018.85
;;9002226.02101,"843,018.86 ",.01)
;;018.86
;;9002226.02101,"843,018.86 ",.02)
;;018.86
;;9002226.02101,"843,018.90 ",.01)
;;018.90
;;9002226.02101,"843,018.90 ",.02)
;;018.90
;;9002226.02101,"843,018.91 ",.01)
;;018.91
;;9002226.02101,"843,018.91 ",.02)
;;018.91
;;9002226.02101,"843,018.92 ",.01)
;;018.92
;;9002226.02101,"843,018.92 ",.02)
;;018.92
;;9002226.02101,"843,018.93 ",.01)
;;018.93
;;9002226.02101,"843,018.93 ",.02)
;;018.93
;;9002226.02101,"843,018.94 ",.01)
;;018.94
;;9002226.02101,"843,018.94 ",.02)
;;018.94
;;9002226.02101,"843,018.95 ",.01)
;;018.95
;;9002226.02101,"843,018.95 ",.02)
;;018.95
;;9002226.02101,"843,018.96 ",.01)
;;018.96
;;9002226.02101,"843,018.96 ",.02)
;;018.96
;;9002226.02101,"843,020.0 ",.01)
;;020.0
;;9002226.02101,"843,020.0 ",.02)
;;020.0
;;9002226.02101,"843,020.1 ",.01)
;;020.1
;;9002226.02101,"843,020.1 ",.02)
;;020.1
;;9002226.02101,"843,020.2 ",.01)
;;020.2
;;9002226.02101,"843,020.2 ",.02)
;;020.2
;;9002226.02101,"843,020.3 ",.01)
;;020.3
;;9002226.02101,"843,020.3 ",.02)
;;020.3
;;9002226.02101,"843,020.4 ",.01)
;;020.4
;;9002226.02101,"843,020.4 ",.02)
;;020.4
;;9002226.02101,"843,020.5 ",.01)
;;020.5
;;9002226.02101,"843,020.5 ",.02)
;;020.5
;;9002226.02101,"843,020.8 ",.01)
;;020.8
;;9002226.02101,"843,020.8 ",.02)
;;020.8
;;9002226.02101,"843,020.9 ",.01)
;;020.9
;;9002226.02101,"843,020.9 ",.02)
;;020.9
;;9002226.02101,"843,021.0 ",.01)
;;021.0
;;9002226.02101,"843,021.0 ",.02)
;;021.0
;;9002226.02101,"843,021.1 ",.01)
;;021.1
;;9002226.02101,"843,021.1 ",.02)
;;021.1
;;9002226.02101,"843,021.2 ",.01)
;;021.2
;;9002226.02101,"843,021.2 ",.02)
;;021.2
;;9002226.02101,"843,021.3 ",.01)
;;021.3
;;9002226.02101,"843,021.3 ",.02)
;;021.3
;;9002226.02101,"843,021.8 ",.01)
;;021.8
;;9002226.02101,"843,021.8 ",.02)
;;021.8
;;9002226.02101,"843,021.9 ",.01)
;;021.9
;;9002226.02101,"843,021.9 ",.02)
;;021.9
;;9002226.02101,"843,022.0 ",.01)
;;022.0
;;9002226.02101,"843,022.0 ",.02)
;;022.0
;;9002226.02101,"843,022.1 ",.01)
;;022.1
;;9002226.02101,"843,022.1 ",.02)
;;022.1
;;9002226.02101,"843,022.2 ",.01)
;;022.2
;;9002226.02101,"843,022.2 ",.02)
;;022.2
;;9002226.02101,"843,022.3 ",.01)
;;022.3
;;9002226.02101,"843,022.3 ",.02)
;;022.3
;;9002226.02101,"843,022.8 ",.01)
;;022.8
;;9002226.02101,"843,022.8 ",.02)
;;022.8
;;9002226.02101,"843,022.9 ",.01)
;;022.9
;;9002226.02101,"843,022.9 ",.02)
;;022.9
;;9002226.02101,"843,023.0 ",.01)
;;023.0
;;9002226.02101,"843,023.0 ",.02)
;;023.0
;;9002226.02101,"843,023.1 ",.01)
;;023.1
;;9002226.02101,"843,023.1 ",.02)
;;023.1
;;9002226.02101,"843,023.2 ",.01)
;;023.2
;;9002226.02101,"843,023.2 ",.02)
;;023.2
;;9002226.02101,"843,023.3 ",.01)
;;023.3
;;9002226.02101,"843,023.3 ",.02)
;;023.3
;;9002226.02101,"843,023.8 ",.01)
;;023.8
;;9002226.02101,"843,023.8 ",.02)
;;023.8
;;9002226.02101,"843,023.9 ",.01)
;;023.9
;;9002226.02101,"843,023.9 ",.02)
;;023.9
;;9002226.02101,"843,024 ",.01)
;;024
;;9002226.02101,"843,024 ",.02)
;;024
;;9002226.02101,"843,025 ",.01)
;;025
;;9002226.02101,"843,025 ",.02)
;;025
;;9002226.02101,"843,026.0 ",.01)
;;026.0
;;9002226.02101,"843,026.0 ",.02)
;;026.0
;;9002226.02101,"843,026.1 ",.01)
;;026.1
;;9002226.02101,"843,026.1 ",.02)
;;026.1
;;9002226.02101,"843,026.9 ",.01)
;;026.9
;;9002226.02101,"843,026.9 ",.02)
;;026.9
;;9002226.02101,"843,027.0 ",.01)
;;027.0
;;9002226.02101,"843,027.0 ",.02)
;;027.0
;;9002226.02101,"843,027.1 ",.01)
;;027.1
;;9002226.02101,"843,027.1 ",.02)
;;027.1
;;9002226.02101,"843,027.2 ",.01)
;;027.2
;;9002226.02101,"843,027.2 ",.02)
;;027.2
;;9002226.02101,"843,027.8 ",.01)
;;027.8
;;9002226.02101,"843,027.8 ",.02)
;;027.8
;;9002226.02101,"843,027.9 ",.01)
;;027.9
;;9002226.02101,"843,027.9 ",.02)
;;027.9
;;9002226.02101,"843,030.0 ",.01)
;;030.0
;;9002226.02101,"843,030.0 ",.02)
;;030.0
;;9002226.02101,"843,030.1 ",.01)
;;030.1
;;9002226.02101,"843,030.1 ",.02)
;;030.1
;;9002226.02101,"843,030.2 ",.01)
;;030.2
;;9002226.02101,"843,030.2 ",.02)
;;030.2
;;9002226.02101,"843,030.3 ",.01)
;;030.3
;;9002226.02101,"843,030.3 ",.02)
;;030.3
;;9002226.02101,"843,030.8 ",.01)
;;030.8
;;9002226.02101,"843,030.8 ",.02)
;;030.8
;;9002226.02101,"843,030.9 ",.01)
;;030.9
;;9002226.02101,"843,030.9 ",.02)
;;030.9
;;9002226.02101,"843,031.0 ",.01)
;;031.0
;;9002226.02101,"843,031.0 ",.02)
;;031.0
;;9002226.02101,"843,031.1 ",.01)
;;031.1
;;9002226.02101,"843,031.1 ",.02)
;;031.1
;;9002226.02101,"843,031.2 ",.01)
;;031.2
;;9002226.02101,"843,031.2 ",.02)
;;031.2
;;9002226.02101,"843,031.8 ",.01)
;;031.8
;;9002226.02101,"843,031.8 ",.02)
;;031.8
;;9002226.02101,"843,031.9 ",.01)
;;031.9
;;9002226.02101,"843,031.9 ",.02)
;;031.9
;;9002226.02101,"843,032.0 ",.01)
;;032.0
;;9002226.02101,"843,032.0 ",.02)
;;032.0
;;9002226.02101,"843,032.1 ",.01)
;;032.1
;;9002226.02101,"843,032.1 ",.02)
;;032.1
;;9002226.02101,"843,032.2 ",.01)
;;032.2
;;9002226.02101,"843,032.2 ",.02)
;;032.2
;;9002226.02101,"843,032.3 ",.01)
;;032.3
;;9002226.02101,"843,032.3 ",.02)
;;032.3
;;9002226.02101,"843,032.81 ",.01)
;;032.81
;;9002226.02101,"843,032.81 ",.02)
;;032.81
;;9002226.02101,"843,032.82 ",.01)
;;032.82
;;9002226.02101,"843,032.82 ",.02)
;;032.82
;;9002226.02101,"843,032.83 ",.01)
;;032.83
BGP03B5 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAY 23, 2010;
+1 ;;10.0;IHS CLINICAL REPORTING;;JUN 18, 2010
+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,"843,017.04 ",.01)
+2 ;;017.04
+3 ;;9002226.02101,"843,017.04 ",.02)
+4 ;;017.04
+5 ;;9002226.02101,"843,017.05 ",.01)
+6 ;;017.05
+7 ;;9002226.02101,"843,017.05 ",.02)
+8 ;;017.05
+9 ;;9002226.02101,"843,017.06 ",.01)
+10 ;;017.06
+11 ;;9002226.02101,"843,017.06 ",.02)
+12 ;;017.06
+13 ;;9002226.02101,"843,017.10 ",.01)
+14 ;;017.10
+15 ;;9002226.02101,"843,017.10 ",.02)
+16 ;;017.10
+17 ;;9002226.02101,"843,017.11 ",.01)
+18 ;;017.11
+19 ;;9002226.02101,"843,017.11 ",.02)
+20 ;;017.11
+21 ;;9002226.02101,"843,017.12 ",.01)
+22 ;;017.12
+23 ;;9002226.02101,"843,017.12 ",.02)
+24 ;;017.12
+25 ;;9002226.02101,"843,017.13 ",.01)
+26 ;;017.13
+27 ;;9002226.02101,"843,017.13 ",.02)
+28 ;;017.13
+29 ;;9002226.02101,"843,017.14 ",.01)
+30 ;;017.14
+31 ;;9002226.02101,"843,017.14 ",.02)
+32 ;;017.14
+33 ;;9002226.02101,"843,017.15 ",.01)
+34 ;;017.15
+35 ;;9002226.02101,"843,017.15 ",.02)
+36 ;;017.15
+37 ;;9002226.02101,"843,017.16 ",.01)
+38 ;;017.16
+39 ;;9002226.02101,"843,017.16 ",.02)
+40 ;;017.16
+41 ;;9002226.02101,"843,017.20 ",.01)
+42 ;;017.20
+43 ;;9002226.02101,"843,017.20 ",.02)
+44 ;;017.20
+45 ;;9002226.02101,"843,017.21 ",.01)
+46 ;;017.21
+47 ;;9002226.02101,"843,017.21 ",.02)
+48 ;;017.21
+49 ;;9002226.02101,"843,017.22 ",.01)
+50 ;;017.22
+51 ;;9002226.02101,"843,017.22 ",.02)
+52 ;;017.22
+53 ;;9002226.02101,"843,017.23 ",.01)
+54 ;;017.23
+55 ;;9002226.02101,"843,017.23 ",.02)
+56 ;;017.23
+57 ;;9002226.02101,"843,017.24 ",.01)
+58 ;;017.24
+59 ;;9002226.02101,"843,017.24 ",.02)
+60 ;;017.24
+61 ;;9002226.02101,"843,017.25 ",.01)
+62 ;;017.25
+63 ;;9002226.02101,"843,017.25 ",.02)
+64 ;;017.25
+65 ;;9002226.02101,"843,017.26 ",.01)
+66 ;;017.26
+67 ;;9002226.02101,"843,017.26 ",.02)
+68 ;;017.26
+69 ;;9002226.02101,"843,017.30 ",.01)
+70 ;;017.30
+71 ;;9002226.02101,"843,017.30 ",.02)
+72 ;;017.30
+73 ;;9002226.02101,"843,017.31 ",.01)
+74 ;;017.31
+75 ;;9002226.02101,"843,017.31 ",.02)
+76 ;;017.31
+77 ;;9002226.02101,"843,017.32 ",.01)
+78 ;;017.32
+79 ;;9002226.02101,"843,017.32 ",.02)
+80 ;;017.32
+81 ;;9002226.02101,"843,017.33 ",.01)
+82 ;;017.33
+83 ;;9002226.02101,"843,017.33 ",.02)
+84 ;;017.33
+85 ;;9002226.02101,"843,017.34 ",.01)
+86 ;;017.34
+87 ;;9002226.02101,"843,017.34 ",.02)
+88 ;;017.34
+89 ;;9002226.02101,"843,017.35 ",.01)
+90 ;;017.35
+91 ;;9002226.02101,"843,017.35 ",.02)
+92 ;;017.35
+93 ;;9002226.02101,"843,017.36 ",.01)
+94 ;;017.36
+95 ;;9002226.02101,"843,017.36 ",.02)
+96 ;;017.36
+97 ;;9002226.02101,"843,017.40 ",.01)
+98 ;;017.40
+99 ;;9002226.02101,"843,017.40 ",.02)
+100 ;;017.40
+101 ;;9002226.02101,"843,017.41 ",.01)
+102 ;;017.41
+103 ;;9002226.02101,"843,017.41 ",.02)
+104 ;;017.41
+105 ;;9002226.02101,"843,017.42 ",.01)
+106 ;;017.42
+107 ;;9002226.02101,"843,017.42 ",.02)
+108 ;;017.42
+109 ;;9002226.02101,"843,017.43 ",.01)
+110 ;;017.43
+111 ;;9002226.02101,"843,017.43 ",.02)
+112 ;;017.43
+113 ;;9002226.02101,"843,017.44 ",.01)
+114 ;;017.44
+115 ;;9002226.02101,"843,017.44 ",.02)
+116 ;;017.44
+117 ;;9002226.02101,"843,017.45 ",.01)
+118 ;;017.45
+119 ;;9002226.02101,"843,017.45 ",.02)
+120 ;;017.45
+121 ;;9002226.02101,"843,017.46 ",.01)
+122 ;;017.46
+123 ;;9002226.02101,"843,017.46 ",.02)
+124 ;;017.46
+125 ;;9002226.02101,"843,017.50 ",.01)
+126 ;;017.50
+127 ;;9002226.02101,"843,017.50 ",.02)
+128 ;;017.50
+129 ;;9002226.02101,"843,017.51 ",.01)
+130 ;;017.51
+131 ;;9002226.02101,"843,017.51 ",.02)
+132 ;;017.51
+133 ;;9002226.02101,"843,017.52 ",.01)
+134 ;;017.52
+135 ;;9002226.02101,"843,017.52 ",.02)
+136 ;;017.52
+137 ;;9002226.02101,"843,017.53 ",.01)
+138 ;;017.53
+139 ;;9002226.02101,"843,017.53 ",.02)
+140 ;;017.53
+141 ;;9002226.02101,"843,017.54 ",.01)
+142 ;;017.54
+143 ;;9002226.02101,"843,017.54 ",.02)
+144 ;;017.54
+145 ;;9002226.02101,"843,017.55 ",.01)
+146 ;;017.55
+147 ;;9002226.02101,"843,017.55 ",.02)
+148 ;;017.55
+149 ;;9002226.02101,"843,017.56 ",.01)
+150 ;;017.56
+151 ;;9002226.02101,"843,017.56 ",.02)
+152 ;;017.56
+153 ;;9002226.02101,"843,017.60 ",.01)
+154 ;;017.60
+155 ;;9002226.02101,"843,017.60 ",.02)
+156 ;;017.60
+157 ;;9002226.02101,"843,017.61 ",.01)
+158 ;;017.61
+159 ;;9002226.02101,"843,017.61 ",.02)
+160 ;;017.61
+161 ;;9002226.02101,"843,017.62 ",.01)
+162 ;;017.62
+163 ;;9002226.02101,"843,017.62 ",.02)
+164 ;;017.62
+165 ;;9002226.02101,"843,017.63 ",.01)
+166 ;;017.63
+167 ;;9002226.02101,"843,017.63 ",.02)
+168 ;;017.63
+169 ;;9002226.02101,"843,017.64 ",.01)
+170 ;;017.64
+171 ;;9002226.02101,"843,017.64 ",.02)
+172 ;;017.64
+173 ;;9002226.02101,"843,017.65 ",.01)
+174 ;;017.65
+175 ;;9002226.02101,"843,017.65 ",.02)
+176 ;;017.65
+177 ;;9002226.02101,"843,017.66 ",.01)
+178 ;;017.66
+179 ;;9002226.02101,"843,017.66 ",.02)
+180 ;;017.66
+181 ;;9002226.02101,"843,017.70 ",.01)
+182 ;;017.70
+183 ;;9002226.02101,"843,017.70 ",.02)
+184 ;;017.70
+185 ;;9002226.02101,"843,017.71 ",.01)
+186 ;;017.71
+187 ;;9002226.02101,"843,017.71 ",.02)
+188 ;;017.71
+189 ;;9002226.02101,"843,017.72 ",.01)
+190 ;;017.72
+191 ;;9002226.02101,"843,017.72 ",.02)
+192 ;;017.72
+193 ;;9002226.02101,"843,017.73 ",.01)
+194 ;;017.73
+195 ;;9002226.02101,"843,017.73 ",.02)
+196 ;;017.73
+197 ;;9002226.02101,"843,017.74 ",.01)
+198 ;;017.74
+199 ;;9002226.02101,"843,017.74 ",.02)
+200 ;;017.74
+201 ;;9002226.02101,"843,017.75 ",.01)
+202 ;;017.75
+203 ;;9002226.02101,"843,017.75 ",.02)
+204 ;;017.75
+205 ;;9002226.02101,"843,017.76 ",.01)
+206 ;;017.76
+207 ;;9002226.02101,"843,017.76 ",.02)
+208 ;;017.76
+209 ;;9002226.02101,"843,017.80 ",.01)
+210 ;;017.80
+211 ;;9002226.02101,"843,017.80 ",.02)
+212 ;;017.80
+213 ;;9002226.02101,"843,017.81 ",.01)
+214 ;;017.81
+215 ;;9002226.02101,"843,017.81 ",.02)
+216 ;;017.81
+217 ;;9002226.02101,"843,017.82 ",.01)
+218 ;;017.82
+219 ;;9002226.02101,"843,017.82 ",.02)
+220 ;;017.82
+221 ;;9002226.02101,"843,017.83 ",.01)
+222 ;;017.83
+223 ;;9002226.02101,"843,017.83 ",.02)
+224 ;;017.83
+225 ;;9002226.02101,"843,017.84 ",.01)
+226 ;;017.84
+227 ;;9002226.02101,"843,017.84 ",.02)
+228 ;;017.84
+229 ;;9002226.02101,"843,017.85 ",.01)
+230 ;;017.85
+231 ;;9002226.02101,"843,017.85 ",.02)
+232 ;;017.85
+233 ;;9002226.02101,"843,017.86 ",.01)
+234 ;;017.86
+235 ;;9002226.02101,"843,017.86 ",.02)
+236 ;;017.86
+237 ;;9002226.02101,"843,017.90 ",.01)
+238 ;;017.90
+239 ;;9002226.02101,"843,017.90 ",.02)
+240 ;;017.90
+241 ;;9002226.02101,"843,017.91 ",.01)
+242 ;;017.91
+243 ;;9002226.02101,"843,017.91 ",.02)
+244 ;;017.91
+245 ;;9002226.02101,"843,017.92 ",.01)
+246 ;;017.92
+247 ;;9002226.02101,"843,017.92 ",.02)
+248 ;;017.92
+249 ;;9002226.02101,"843,017.93 ",.01)
+250 ;;017.93
+251 ;;9002226.02101,"843,017.93 ",.02)
+252 ;;017.93
+253 ;;9002226.02101,"843,017.94 ",.01)
+254 ;;017.94
+255 ;;9002226.02101,"843,017.94 ",.02)
+256 ;;017.94
+257 ;;9002226.02101,"843,017.95 ",.01)
+258 ;;017.95
+259 ;;9002226.02101,"843,017.95 ",.02)
+260 ;;017.95
+261 ;;9002226.02101,"843,017.96 ",.01)
+262 ;;017.96
+263 ;;9002226.02101,"843,017.96 ",.02)
+264 ;;017.96
+265 ;;9002226.02101,"843,018.00 ",.01)
+266 ;;018.00
+267 ;;9002226.02101,"843,018.00 ",.02)
+268 ;;018.00
+269 ;;9002226.02101,"843,018.01 ",.01)
+270 ;;018.01
+271 ;;9002226.02101,"843,018.01 ",.02)
+272 ;;018.01
+273 ;;9002226.02101,"843,018.02 ",.01)
+274 ;;018.02
+275 ;;9002226.02101,"843,018.02 ",.02)
+276 ;;018.02
+277 ;;9002226.02101,"843,018.03 ",.01)
+278 ;;018.03
+279 ;;9002226.02101,"843,018.03 ",.02)
+280 ;;018.03
+281 ;;9002226.02101,"843,018.04 ",.01)
+282 ;;018.04
+283 ;;9002226.02101,"843,018.04 ",.02)
+284 ;;018.04
+285 ;;9002226.02101,"843,018.05 ",.01)
+286 ;;018.05
+287 ;;9002226.02101,"843,018.05 ",.02)
+288 ;;018.05
+289 ;;9002226.02101,"843,018.06 ",.01)
+290 ;;018.06
+291 ;;9002226.02101,"843,018.06 ",.02)
+292 ;;018.06
+293 ;;9002226.02101,"843,018.80 ",.01)
+294 ;;018.80
+295 ;;9002226.02101,"843,018.80 ",.02)
+296 ;;018.80
+297 ;;9002226.02101,"843,018.81 ",.01)
+298 ;;018.81
+299 ;;9002226.02101,"843,018.81 ",.02)
+300 ;;018.81
+301 ;;9002226.02101,"843,018.82 ",.01)
+302 ;;018.82
+303 ;;9002226.02101,"843,018.82 ",.02)
+304 ;;018.82
+305 ;;9002226.02101,"843,018.83 ",.01)
+306 ;;018.83
+307 ;;9002226.02101,"843,018.83 ",.02)
+308 ;;018.83
+309 ;;9002226.02101,"843,018.84 ",.01)
+310 ;;018.84
+311 ;;9002226.02101,"843,018.84 ",.02)
+312 ;;018.84
+313 ;;9002226.02101,"843,018.85 ",.01)
+314 ;;018.85
+315 ;;9002226.02101,"843,018.85 ",.02)
+316 ;;018.85
+317 ;;9002226.02101,"843,018.86 ",.01)
+318 ;;018.86
+319 ;;9002226.02101,"843,018.86 ",.02)
+320 ;;018.86
+321 ;;9002226.02101,"843,018.90 ",.01)
+322 ;;018.90
+323 ;;9002226.02101,"843,018.90 ",.02)
+324 ;;018.90
+325 ;;9002226.02101,"843,018.91 ",.01)
+326 ;;018.91
+327 ;;9002226.02101,"843,018.91 ",.02)
+328 ;;018.91
+329 ;;9002226.02101,"843,018.92 ",.01)
+330 ;;018.92
+331 ;;9002226.02101,"843,018.92 ",.02)
+332 ;;018.92
+333 ;;9002226.02101,"843,018.93 ",.01)
+334 ;;018.93
+335 ;;9002226.02101,"843,018.93 ",.02)
+336 ;;018.93
+337 ;;9002226.02101,"843,018.94 ",.01)
+338 ;;018.94
+339 ;;9002226.02101,"843,018.94 ",.02)
+340 ;;018.94
+341 ;;9002226.02101,"843,018.95 ",.01)
+342 ;;018.95
+343 ;;9002226.02101,"843,018.95 ",.02)
+344 ;;018.95
+345 ;;9002226.02101,"843,018.96 ",.01)
+346 ;;018.96
+347 ;;9002226.02101,"843,018.96 ",.02)
+348 ;;018.96
+349 ;;9002226.02101,"843,020.0 ",.01)
+350 ;;020.0
+351 ;;9002226.02101,"843,020.0 ",.02)
+352 ;;020.0
+353 ;;9002226.02101,"843,020.1 ",.01)
+354 ;;020.1
+355 ;;9002226.02101,"843,020.1 ",.02)
+356 ;;020.1
+357 ;;9002226.02101,"843,020.2 ",.01)
+358 ;;020.2
+359 ;;9002226.02101,"843,020.2 ",.02)
+360 ;;020.2
+361 ;;9002226.02101,"843,020.3 ",.01)
+362 ;;020.3
+363 ;;9002226.02101,"843,020.3 ",.02)
+364 ;;020.3
+365 ;;9002226.02101,"843,020.4 ",.01)
+366 ;;020.4
+367 ;;9002226.02101,"843,020.4 ",.02)
+368 ;;020.4
+369 ;;9002226.02101,"843,020.5 ",.01)
+370 ;;020.5
+371 ;;9002226.02101,"843,020.5 ",.02)
+372 ;;020.5
+373 ;;9002226.02101,"843,020.8 ",.01)
+374 ;;020.8
+375 ;;9002226.02101,"843,020.8 ",.02)
+376 ;;020.8
+377 ;;9002226.02101,"843,020.9 ",.01)
+378 ;;020.9
+379 ;;9002226.02101,"843,020.9 ",.02)
+380 ;;020.9
+381 ;;9002226.02101,"843,021.0 ",.01)
+382 ;;021.0
+383 ;;9002226.02101,"843,021.0 ",.02)
+384 ;;021.0
+385 ;;9002226.02101,"843,021.1 ",.01)
+386 ;;021.1
+387 ;;9002226.02101,"843,021.1 ",.02)
+388 ;;021.1
+389 ;;9002226.02101,"843,021.2 ",.01)
+390 ;;021.2
+391 ;;9002226.02101,"843,021.2 ",.02)
+392 ;;021.2
+393 ;;9002226.02101,"843,021.3 ",.01)
+394 ;;021.3
+395 ;;9002226.02101,"843,021.3 ",.02)
+396 ;;021.3
+397 ;;9002226.02101,"843,021.8 ",.01)
+398 ;;021.8
+399 ;;9002226.02101,"843,021.8 ",.02)
+400 ;;021.8
+401 ;;9002226.02101,"843,021.9 ",.01)
+402 ;;021.9
+403 ;;9002226.02101,"843,021.9 ",.02)
+404 ;;021.9
+405 ;;9002226.02101,"843,022.0 ",.01)
+406 ;;022.0
+407 ;;9002226.02101,"843,022.0 ",.02)
+408 ;;022.0
+409 ;;9002226.02101,"843,022.1 ",.01)
+410 ;;022.1
+411 ;;9002226.02101,"843,022.1 ",.02)
+412 ;;022.1
+413 ;;9002226.02101,"843,022.2 ",.01)
+414 ;;022.2
+415 ;;9002226.02101,"843,022.2 ",.02)
+416 ;;022.2
+417 ;;9002226.02101,"843,022.3 ",.01)
+418 ;;022.3
+419 ;;9002226.02101,"843,022.3 ",.02)
+420 ;;022.3
+421 ;;9002226.02101,"843,022.8 ",.01)
+422 ;;022.8
+423 ;;9002226.02101,"843,022.8 ",.02)
+424 ;;022.8
+425 ;;9002226.02101,"843,022.9 ",.01)
+426 ;;022.9
+427 ;;9002226.02101,"843,022.9 ",.02)
+428 ;;022.9
+429 ;;9002226.02101,"843,023.0 ",.01)
+430 ;;023.0
+431 ;;9002226.02101,"843,023.0 ",.02)
+432 ;;023.0
+433 ;;9002226.02101,"843,023.1 ",.01)
+434 ;;023.1
+435 ;;9002226.02101,"843,023.1 ",.02)
+436 ;;023.1
+437 ;;9002226.02101,"843,023.2 ",.01)
+438 ;;023.2
+439 ;;9002226.02101,"843,023.2 ",.02)
+440 ;;023.2
+441 ;;9002226.02101,"843,023.3 ",.01)
+442 ;;023.3
+443 ;;9002226.02101,"843,023.3 ",.02)
+444 ;;023.3
+445 ;;9002226.02101,"843,023.8 ",.01)
+446 ;;023.8
+447 ;;9002226.02101,"843,023.8 ",.02)
+448 ;;023.8
+449 ;;9002226.02101,"843,023.9 ",.01)
+450 ;;023.9
+451 ;;9002226.02101,"843,023.9 ",.02)
+452 ;;023.9
+453 ;;9002226.02101,"843,024 ",.01)
+454 ;;024
+455 ;;9002226.02101,"843,024 ",.02)
+456 ;;024
+457 ;;9002226.02101,"843,025 ",.01)
+458 ;;025
+459 ;;9002226.02101,"843,025 ",.02)
+460 ;;025
+461 ;;9002226.02101,"843,026.0 ",.01)
+462 ;;026.0
+463 ;;9002226.02101,"843,026.0 ",.02)
+464 ;;026.0
+465 ;;9002226.02101,"843,026.1 ",.01)
+466 ;;026.1
+467 ;;9002226.02101,"843,026.1 ",.02)
+468 ;;026.1
+469 ;;9002226.02101,"843,026.9 ",.01)
+470 ;;026.9
+471 ;;9002226.02101,"843,026.9 ",.02)
+472 ;;026.9
+473 ;;9002226.02101,"843,027.0 ",.01)
+474 ;;027.0
+475 ;;9002226.02101,"843,027.0 ",.02)
+476 ;;027.0
+477 ;;9002226.02101,"843,027.1 ",.01)
+478 ;;027.1
+479 ;;9002226.02101,"843,027.1 ",.02)
+480 ;;027.1
+481 ;;9002226.02101,"843,027.2 ",.01)
+482 ;;027.2
+483 ;;9002226.02101,"843,027.2 ",.02)
+484 ;;027.2
+485 ;;9002226.02101,"843,027.8 ",.01)
+486 ;;027.8
+487 ;;9002226.02101,"843,027.8 ",.02)
+488 ;;027.8
+489 ;;9002226.02101,"843,027.9 ",.01)
+490 ;;027.9
+491 ;;9002226.02101,"843,027.9 ",.02)
+492 ;;027.9
+493 ;;9002226.02101,"843,030.0 ",.01)
+494 ;;030.0
+495 ;;9002226.02101,"843,030.0 ",.02)
+496 ;;030.0
+497 ;;9002226.02101,"843,030.1 ",.01)
+498 ;;030.1
+499 ;;9002226.02101,"843,030.1 ",.02)
+500 ;;030.1
+501 ;;9002226.02101,"843,030.2 ",.01)
+502 ;;030.2
+503 ;;9002226.02101,"843,030.2 ",.02)
+504 ;;030.2
+505 ;;9002226.02101,"843,030.3 ",.01)
+506 ;;030.3
+507 ;;9002226.02101,"843,030.3 ",.02)
+508 ;;030.3
+509 ;;9002226.02101,"843,030.8 ",.01)
+510 ;;030.8
+511 ;;9002226.02101,"843,030.8 ",.02)
+512 ;;030.8
+513 ;;9002226.02101,"843,030.9 ",.01)
+514 ;;030.9
+515 ;;9002226.02101,"843,030.9 ",.02)
+516 ;;030.9
+517 ;;9002226.02101,"843,031.0 ",.01)
+518 ;;031.0
+519 ;;9002226.02101,"843,031.0 ",.02)
+520 ;;031.0
+521 ;;9002226.02101,"843,031.1 ",.01)
+522 ;;031.1
+523 ;;9002226.02101,"843,031.1 ",.02)
+524 ;;031.1
+525 ;;9002226.02101,"843,031.2 ",.01)
+526 ;;031.2
+527 ;;9002226.02101,"843,031.2 ",.02)
+528 ;;031.2
+529 ;;9002226.02101,"843,031.8 ",.01)
+530 ;;031.8
+531 ;;9002226.02101,"843,031.8 ",.02)
+532 ;;031.8
+533 ;;9002226.02101,"843,031.9 ",.01)
+534 ;;031.9
+535 ;;9002226.02101,"843,031.9 ",.02)
+536 ;;031.9
+537 ;;9002226.02101,"843,032.0 ",.01)
+538 ;;032.0
+539 ;;9002226.02101,"843,032.0 ",.02)
+540 ;;032.0
+541 ;;9002226.02101,"843,032.1 ",.01)
+542 ;;032.1
+543 ;;9002226.02101,"843,032.1 ",.02)
+544 ;;032.1
+545 ;;9002226.02101,"843,032.2 ",.01)
+546 ;;032.2
+547 ;;9002226.02101,"843,032.2 ",.02)
+548 ;;032.2
+549 ;;9002226.02101,"843,032.3 ",.01)
+550 ;;032.3
+551 ;;9002226.02101,"843,032.3 ",.02)
+552 ;;032.3
+553 ;;9002226.02101,"843,032.81 ",.01)
+554 ;;032.81
+555 ;;9002226.02101,"843,032.81 ",.02)
+556 ;;032.81
+557 ;;9002226.02101,"843,032.82 ",.01)
+558 ;;032.82
+559 ;;9002226.02101,"843,032.82 ",.02)
+560 ;;032.82
+561 ;;9002226.02101,"843,032.83 ",.01)
+562 ;;032.83
