Routine: BGP03B6

BGP03B6 ;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

TMP ;;TAXONOMY (WITH BULLETIN)

 ;;9002226.02101,"843,032.83 ",.02)

 ;;032.83

 ;;9002226.02101,"843,032.84 ",.01)

 ;;032.84

 ;;9002226.02101,"843,032.84 ",.02)

 ;;032.84

 ;;9002226.02101,"843,032.85 ",.01)

 ;;032.85

 ;;9002226.02101,"843,032.85 ",.02)

 ;;032.85

 ;;9002226.02101,"843,032.89 ",.01)

 ;;032.89

 ;;9002226.02101,"843,032.89 ",.02)

 ;;032.89

 ;;9002226.02101,"843,032.9 ",.01)

 ;;032.9

 ;;9002226.02101,"843,032.9 ",.02)

 ;;032.9

 ;;9002226.02101,"843,033.0 ",.01)

 ;;033.0

 ;;9002226.02101,"843,033.0 ",.02)

 ;;033.0

 ;;9002226.02101,"843,033.1 ",.01)

 ;;033.1

 ;;9002226.02101,"843,033.1 ",.02)

 ;;033.1

 ;;9002226.02101,"843,033.8 ",.01)

 ;;033.8

 ;;9002226.02101,"843,033.8 ",.02)

 ;;033.8

 ;;9002226.02101,"843,033.9 ",.01)

 ;;033.9

 ;;9002226.02101,"843,033.9 ",.02)

 ;;033.9

 ;;9002226.02101,"843,034.0 ",.01)

 ;;034.0

 ;;9002226.02101,"843,034.0 ",.02)

 ;;034.0

 ;;9002226.02101,"843,034.1 ",.01)

 ;;034.1

 ;;9002226.02101,"843,034.1 ",.02)

 ;;034.1

 ;;9002226.02101,"843,035 ",.01)

 ;;035

 ;;9002226.02101,"843,035 ",.02)

 ;;035

 ;;9002226.02101,"843,036.0 ",.01)

 ;;036.0

 ;;9002226.02101,"843,036.0 ",.02)

 ;;036.0

 ;;9002226.02101,"843,036.1 ",.01)

 ;;036.1

 ;;9002226.02101,"843,036.1 ",.02)

 ;;036.1

 ;;9002226.02101,"843,036.2 ",.01)

 ;;036.2

 ;;9002226.02101,"843,036.2 ",.02)

 ;;036.2

 ;;9002226.02101,"843,036.3 ",.01)

 ;;036.3

 ;;9002226.02101,"843,036.3 ",.02)

 ;;036.3

 ;;9002226.02101,"843,036.40 ",.01)

 ;;036.40

 ;;9002226.02101,"843,036.40 ",.02)

 ;;036.40

 ;;9002226.02101,"843,036.41 ",.01)

 ;;036.41

 ;;9002226.02101,"843,036.41 ",.02)

 ;;036.41

 ;;9002226.02101,"843,036.42 ",.01)

 ;;036.42

 ;;9002226.02101,"843,036.42 ",.02)

 ;;036.42

 ;;9002226.02101,"843,036.43 ",.01)

 ;;036.43

 ;;9002226.02101,"843,036.43 ",.02)

 ;;036.43

 ;;9002226.02101,"843,036.81 ",.01)

 ;;036.81

 ;;9002226.02101,"843,036.81 ",.02)

 ;;036.81

 ;;9002226.02101,"843,036.82 ",.01)

 ;;036.82

 ;;9002226.02101,"843,036.82 ",.02)

 ;;036.82

 ;;9002226.02101,"843,036.89 ",.01)

 ;;036.89

 ;;9002226.02101,"843,036.89 ",.02)

 ;;036.89

 ;;9002226.02101,"843,036.9 ",.01)

 ;;036.9

 ;;9002226.02101,"843,036.9 ",.02)

 ;;036.9

 ;;9002226.02101,"843,037 ",.01)

 ;;037

 ;;9002226.02101,"843,037 ",.02)

 ;;037

 ;;9002226.02101,"843,038.0 ",.01)

 ;;038.0

 ;;9002226.02101,"843,038.0 ",.02)

 ;;038.0

 ;;9002226.02101,"843,038.10 ",.01)

 ;;038.10

 ;;9002226.02101,"843,038.10 ",.02)

 ;;038.10

 ;;9002226.02101,"843,038.11 ",.01)

 ;;038.11

 ;;9002226.02101,"843,038.11 ",.02)

 ;;038.11

 ;;9002226.02101,"843,038.19 ",.01)

 ;;038.19

 ;;9002226.02101,"843,038.19 ",.02)

 ;;038.19

 ;;9002226.02101,"843,038.2 ",.01)

 ;;038.2

 ;;9002226.02101,"843,038.2 ",.02)

 ;;038.2

 ;;9002226.02101,"843,038.3 ",.01)

 ;;038.3

 ;;9002226.02101,"843,038.3 ",.02)

 ;;038.3

 ;;9002226.02101,"843,038.40 ",.01)

 ;;038.40

 ;;9002226.02101,"843,038.40 ",.02)

 ;;038.40

 ;;9002226.02101,"843,038.41 ",.01)

 ;;038.41

 ;;9002226.02101,"843,038.41 ",.02)

 ;;038.41

 ;;9002226.02101,"843,038.42 ",.01)

 ;;038.42

 ;;9002226.02101,"843,038.42 ",.02)

 ;;038.42

 ;;9002226.02101,"843,038.43 ",.01)

 ;;038.43

 ;;9002226.02101,"843,038.43 ",.02)

 ;;038.43

 ;;9002226.02101,"843,038.44 ",.01)

 ;;038.44

 ;;9002226.02101,"843,038.44 ",.02)

 ;;038.44

 ;;9002226.02101,"843,038.49 ",.01)

 ;;038.49

 ;;9002226.02101,"843,038.49 ",.02)

 ;;038.49

 ;;9002226.02101,"843,038.8 ",.01)

 ;;038.8

 ;;9002226.02101,"843,038.8 ",.02)

 ;;038.8

 ;;9002226.02101,"843,038.9 ",.01)

 ;;038.9

 ;;9002226.02101,"843,038.9 ",.02)

 ;;038.9

 ;;9002226.02101,"843,039.0 ",.01)

 ;;039.0

 ;;9002226.02101,"843,039.0 ",.02)

 ;;039.0

 ;;9002226.02101,"843,039.1 ",.01)

 ;;039.1

 ;;9002226.02101,"843,039.1 ",.02)

 ;;039.1

 ;;9002226.02101,"843,039.2 ",.01)

 ;;039.2

 ;;9002226.02101,"843,039.2 ",.02)

 ;;039.2

 ;;9002226.02101,"843,039.3 ",.01)

 ;;039.3

 ;;9002226.02101,"843,039.3 ",.02)

 ;;039.3

 ;;9002226.02101,"843,039.4 ",.01)

 ;;039.4

 ;;9002226.02101,"843,039.4 ",.02)

 ;;039.4

 ;;9002226.02101,"843,039.8 ",.01)

 ;;039.8

 ;;9002226.02101,"843,039.8 ",.02)

 ;;039.8

 ;;9002226.02101,"843,039.9 ",.01)

 ;;039.9

 ;;9002226.02101,"843,039.9 ",.02)

 ;;039.9

 ;;9002226.02101,"843,040.0 ",.01)

 ;;040.0

 ;;9002226.02101,"843,040.0 ",.02)

 ;;040.0

 ;;9002226.02101,"843,040.1 ",.01)

 ;;040.1

 ;;9002226.02101,"843,040.1 ",.02)

 ;;040.1

 ;;9002226.02101,"843,040.2 ",.01)

 ;;040.2

 ;;9002226.02101,"843,040.2 ",.02)

 ;;040.2

 ;;9002226.02101,"843,040.3 ",.01)

 ;;040.3

 ;;9002226.02101,"843,040.3 ",.02)

 ;;040.3

 ;;9002226.02101,"843,040.81 ",.01)

 ;;040.81

 ;;9002226.02101,"843,040.81 ",.02)

 ;;040.81

 ;;9002226.02101,"843,040.82 ",.01)

 ;;040.82

 ;;9002226.02101,"843,040.82 ",.02)

 ;;040.82

 ;;9002226.02101,"843,040.89 ",.01)

 ;;040.89

 ;;9002226.02101,"843,040.89 ",.02)

 ;;040.89

 ;;9002226.02101,"843,041.00 ",.01)

 ;;041.00

 ;;9002226.02101,"843,041.00 ",.02)

 ;;041.00

 ;;9002226.02101,"843,041.01 ",.01)

 ;;041.01

 ;;9002226.02101,"843,041.01 ",.02)

 ;;041.01

 ;;9002226.02101,"843,041.02 ",.01)

 ;;041.02

 ;;9002226.02101,"843,041.02 ",.02)

 ;;041.02

 ;;9002226.02101,"843,041.03 ",.01)

 ;;041.03

 ;;9002226.02101,"843,041.03 ",.02)

 ;;041.03

 ;;9002226.02101,"843,041.04 ",.01)

 ;;041.04

 ;;9002226.02101,"843,041.04 ",.02)

 ;;041.04

 ;;9002226.02101,"843,041.05 ",.01)

 ;;041.05

 ;;9002226.02101,"843,041.05 ",.02)

 ;;041.05

 ;;9002226.02101,"843,041.09 ",.01)

 ;;041.09

 ;;9002226.02101,"843,041.09 ",.02)

 ;;041.09

 ;;9002226.02101,"843,041.10 ",.01)

 ;;041.10

 ;;9002226.02101,"843,041.10 ",.02)

 ;;041.10

 ;;9002226.02101,"843,041.11 ",.01)

 ;;041.11

 ;;9002226.02101,"843,041.11 ",.02)

 ;;041.11

 ;;9002226.02101,"843,041.19 ",.01)

 ;;041.19

 ;;9002226.02101,"843,041.19 ",.02)

 ;;041.19

 ;;9002226.02101,"843,041.2 ",.01)

 ;;041.2

 ;;9002226.02101,"843,041.2 ",.02)

 ;;041.2

 ;;9002226.02101,"843,041.3 ",.01)

 ;;041.3

 ;;9002226.02101,"843,041.3 ",.02)

 ;;041.3

 ;;9002226.02101,"843,041.4 ",.01)

 ;;041.4

 ;;9002226.02101,"843,041.4 ",.02)

 ;;041.4

 ;;9002226.02101,"843,041.5 ",.01)

 ;;041.5

 ;;9002226.02101,"843,041.5 ",.02)

 ;;041.5

 ;;9002226.02101,"843,041.6 ",.01)

 ;;041.6

 ;;9002226.02101,"843,041.6 ",.02)

 ;;041.6

 ;;9002226.02101,"843,041.7 ",.01)

 ;;041.7

 ;;9002226.02101,"843,041.7 ",.02)

 ;;041.7

 ;;9002226.02101,"843,041.81 ",.01)

 ;;041.81

 ;;9002226.02101,"843,041.81 ",.02)

 ;;041.81

 ;;9002226.02101,"843,041.82 ",.01)

 ;;041.82

 ;;9002226.02101,"843,041.82 ",.02)

 ;;041.82

 ;;9002226.02101,"843,041.83 ",.01)

 ;;041.83

 ;;9002226.02101,"843,041.83 ",.02)

 ;;041.83

 ;;9002226.02101,"843,041.84 ",.01)

 ;;041.84

 ;;9002226.02101,"843,041.84 ",.02)

 ;;041.84

 ;;9002226.02101,"843,041.85 ",.01)

 ;;041.85

 ;;9002226.02101,"843,041.85 ",.02)

 ;;041.85

 ;;9002226.02101,"843,041.86 ",.01)

 ;;041.86

 ;;9002226.02101,"843,041.86 ",.02)

 ;;041.86

 ;;9002226.02101,"843,041.89 ",.01)

 ;;041.89

 ;;9002226.02101,"843,041.89 ",.02)

 ;;041.89

 ;;9002226.02101,"843,041.9 ",.01)

 ;;041.9

 ;;9002226.02101,"843,041.9 ",.02)

 ;;041.9

 ;;9002226.02101,"843,050.1 ",.01)

 ;;050.1

 ;;9002226.02101,"843,050.1 ",.02)

 ;;050.1

 ;;9002226.02101,"843,051.2 ",.01)

 ;;051.2

 ;;9002226.02101,"843,051.2 ",.02)

 ;;051.2

 ;;9002226.02101,"843,053.12 ",.01)

 ;;053.12

 ;;9002226.02101,"843,053.12 ",.02)

 ;;053.12

 ;;9002226.02101,"843,053.13 ",.01)

 ;;053.13

 ;;9002226.02101,"843,053.13 ",.02)

 ;;053.13

 ;;9002226.02101,"843,053.79 ",.01)

 ;;053.79

 ;;9002226.02101,"843,053.79 ",.02)

 ;;053.79

 ;;9002226.02101,"843,054.0 ",.01)

 ;;054.0

 ;;9002226.02101,"843,054.0 ",.02)

 ;;054.0

 ;;9002226.02101,"843,060.0 ",.01)

 ;;060.0

 ;;9002226.02101,"843,060.0 ",.02)

 ;;060.0

 ;;9002226.02101,"843,060.1 ",.01)

 ;;060.1

 ;;9002226.02101,"843,060.1 ",.02)

 ;;060.1

 ;;9002226.02101,"843,060.9 ",.01)

 ;;060.9

 ;;9002226.02101,"843,060.9 ",.02)

 ;;060.9

 ;;9002226.02101,"843,061 ",.01)

 ;;061

 ;;9002226.02101,"843,061 ",.02)

 ;;061

 ;;9002226.02101,"843,063.1 ",.01)

 ;;063.1

 ;;9002226.02101,"843,063.1 ",.02)

 ;;063.1

 ;;9002226.02101,"843,065.1 ",.01)

 ;;065.1

 ;;9002226.02101,"843,065.1 ",.02)

 ;;065.1

 ;;9002226.02101,"843,065.2 ",.01)

 ;;065.2

 ;;9002226.02101,"843,065.2 ",.02)

 ;;065.2

 ;;9002226.02101,"843,065.3 ",.01)

 ;;065.3

 ;;9002226.02101,"843,065.3 ",.02)

 ;;065.3

 ;;9002226.02101,"843,065.4 ",.01)

 ;;065.4

 ;;9002226.02101,"843,065.4 ",.02)

 ;;065.4

 ;;9002226.02101,"843,065.8 ",.01)

 ;;065.8

 ;;9002226.02101,"843,065.8 ",.02)

 ;;065.8

 ;;9002226.02101,"843,065.9 ",.01)

 ;;065.9

 ;;9002226.02101,"843,065.9 ",.02)

 ;;065.9

 ;;9002226.02101,"843,066.0 ",.01)

 ;;066.0

 ;;9002226.02101,"843,066.0 ",.02)

 ;;066.0

 ;;9002226.02101,"843,066.1 ",.01)

 ;;066.1

 ;;9002226.02101,"843,066.1 ",.02)

 ;;066.1

 ;;9002226.02101,"843,066.2 ",.01)

 ;;066.2

 ;;9002226.02101,"843,066.2 ",.02)

 ;;066.2

 ;;9002226.02101,"843,066.3 ",.01)

 ;;066.3

 ;;9002226.02101,"843,066.3 ",.02)

 ;;066.3

 ;;9002226.02101,"843,066.40 ",.01)

 ;;066.40

 ;;9002226.02101,"843,066.40 ",.02)

 ;;066.40

 ;;9002226.02101,"843,066.41 ",.01)

 ;;066.41

 ;;9002226.02101,"843,066.41 ",.02)

 ;;066.41

 ;;9002226.02101,"843,066.42 ",.01)

 ;;066.42

 ;;9002226.02101,"843,066.42 ",.02)

 ;;066.42

 ;;9002226.02101,"843,066.49 ",.01)

 ;;066.49

 ;;9002226.02101,"843,066.49 ",.02)

 ;;066.49

 ;;9002226.02101,"843,071 ",.01)

 ;;071

 ;;9002226.02101,"843,071 ",.02)

 ;;071

 ;;9002226.02101,"843,073.0 ",.01)

 ;;073.0

 ;;9002226.02101,"843,073.0 ",.02)

 ;;073.0

 ;;9002226.02101,"843,073.7 ",.01)

 ;;073.7

 ;;9002226.02101,"843,073.7 ",.02)

 ;;073.7

 ;;9002226.02101,"843,073.8 ",.01)

 ;;073.8

 ;;9002226.02101,"843,073.8 ",.02)

 ;;073.8

 ;;9002226.02101,"843,073.9 ",.01)

 ;;073.9

 ;;9002226.02101,"843,073.9 ",.02)

 ;;073.9

 ;;9002226.02101,"843,074.0 ",.01)

 ;;074.0

 ;;9002226.02101,"843,074.0 ",.02)

 ;;074.0

 ;;9002226.02101,"843,074.1 ",.01)

 ;;074.1

 ;;9002226.02101,"843,074.1 ",.02)

 ;;074.1

 ;;9002226.02101,"843,074.3 ",.01)

 ;;074.3

 ;;9002226.02101,"843,074.3 ",.02)

 ;;074.3

 ;;9002226.02101,"843,075 ",.01)

 ;;075

 ;;9002226.02101,"843,075 ",.02)

 ;;075

 ;;9002226.02101,"843,076.0 ",.01)

 ;;076.0

 ;;9002226.02101,"843,076.0 ",.02)

 ;;076.0

 ;;9002226.02101,"843,076.1 ",.01)

 ;;076.1

 ;;9002226.02101,"843,076.1 ",.02)

 ;;076.1

 ;;9002226.02101,"843,076.9 ",.01)

 ;;076.9

 ;;9002226.02101,"843,076.9 ",.02)

 ;;076.9

 ;;9002226.02101,"843,077.0 ",.01)

 ;;077.0

 ;;9002226.02101,"843,077.0 ",.02)

 ;;077.0

 ;;9002226.02101,"843,077.1 ",.01)

 ;;077.1

 ;;9002226.02101,"843,077.1 ",.02)

 ;;077.1

 ;;9002226.02101,"843,077.2 ",.01)

 ;;077.2

 ;;9002226.02101,"843,077.2 ",.02)

 ;;077.2

 ;;9002226.02101,"843,077.4 ",.01)

 ;;077.4

 ;;9002226.02101,"843,077.4 ",.02)

 ;;077.4

 ;;9002226.02101,"843,077.98 ",.01)

 ;;077.98

 ;;9002226.02101,"843,077.98 ",.02)

 ;;077.98

 ;;9002226.02101,"843,077.99 ",.01)

 ;;077.99

 ;;9002226.02101,"843,077.99 ",.02)

 ;;077.99

 ;;9002226.02101,"843,078.2 ",.01)

 ;;078.2

 ;;9002226.02101,"843,078.2 ",.02)

 ;;078.2

 ;;9002226.02101,"843,078.3 ",.01)

 ;;078.3

 ;;9002226.02101,"843,078.3 ",.02)

 ;;078.3

 ;;9002226.02101,"843,078.4 ",.01)

 ;;078.4

 ;;9002226.02101,"843,078.4 ",.02)

 ;;078.4

 ;;9002226.02101,"843,078.6 ",.01)

 ;;078.6

 ;;9002226.02101,"843,078.6 ",.02)

 ;;078.6

 ;;9002226.02101,"843,078.81 ",.01)

 ;;078.81

 ;;9002226.02101,"843,078.81 ",.02)

 ;;078.81

 ;;9002226.02101,"843,078.82 ",.01)

 ;;078.82

 ;;9002226.02101,"843,078.82 ",.02)

 ;;078.82

 ;;9002226.02101,"843,078.88 ",.01)

 ;;078.88

 ;;9002226.02101,"843,078.88 ",.02)

 ;;078.88

 ;;9002226.02101,"843,079.88 ",.01)

 ;;079.88

 ;;9002226.02101,"843,079.88 ",.02)

 ;;079.88

 ;;9002226.02101,"843,079.98 ",.01)

 ;;079.98

 ;;9002226.02101,"843,079.98 ",.02)

 ;;079.98

 ;;9002226.02101,"843,080 ",.01)

 ;;080

 ;;9002226.02101,"843,080 ",.02)

 ;;080

 ;;9002226.02101,"843,081.0 ",.01)

 ;;081.0

 ;;9002226.02101,"843,081.0 ",.02)

 ;;081.0

 ;;9002226.02101,"843,081.1 ",.01)

 ;;081.1

 ;;9002226.02101,"843,081.1 ",.02)

 ;;081.1

 ;;9002226.02101,"843,081.2 ",.01)

 ;;081.2

 ;;9002226.02101,"843,081.2 ",.02)

 ;;081.2

 ;;9002226.02101,"843,081.9 ",.01)

 ;;081.9

 ;;9002226.02101,"843,081.9 ",.02)

 ;;081.9

 ;;9002226.02101,"843,082.0 ",.01)

 ;;082.0

 ;;9002226.02101,"843,082.0 ",.02)

 ;;082.0

 ;;9002226.02101,"843,082.1 ",.01)

 ;;082.1

 ;;9002226.02101,"843,082.1 ",.02)

 ;;082.1

 ;;9002226.02101,"843,082.2 ",.01)

 ;;082.2

 ;;9002226.02101,"843,082.2 ",.02)

 ;;082.2

 ;;9002226.02101,"843,082.3 ",.01)

 ;;082.3

 ;;9002226.02101,"843,082.3 ",.02)

 ;;082.3

 ;;9002226.02101,"843,082.40 ",.01)

 ;;082.40

 ;;9002226.02101,"843,082.40 ",.02)

 ;;082.40

 ;;9002226.02101,"843,082.41 ",.01)

 ;;082.41

 ;;9002226.02101,"843,082.41 ",.02)

 ;;082.41

 ;;9002226.02101,"843,082.49 ",.01)

 ;;082.49

 ;;9002226.02101,"843,082.49 ",.02)

 ;;082.49

 ;;9002226.02101,"843,082.8 ",.01)

 ;;082.8

 ;;9002226.02101,"843,082.8 ",.02)

 ;;082.8

 ;;9002226.02101,"843,082.9 ",.01)

 ;;082.9

BGP03B6   ;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,032.83 ",.02)

 +2       ;;032.83

 +3       ;;9002226.02101,"843,032.84 ",.01)

 +4       ;;032.84

 +5       ;;9002226.02101,"843,032.84 ",.02)

 +6       ;;032.84

 +7       ;;9002226.02101,"843,032.85 ",.01)

 +8       ;;032.85

 +9       ;;9002226.02101,"843,032.85 ",.02)

 +10      ;;032.85

 +11      ;;9002226.02101,"843,032.89 ",.01)

 +12      ;;032.89

 +13      ;;9002226.02101,"843,032.89 ",.02)

 +14      ;;032.89

 +15      ;;9002226.02101,"843,032.9 ",.01)

 +16      ;;032.9

 +17      ;;9002226.02101,"843,032.9 ",.02)

 +18      ;;032.9

 +19      ;;9002226.02101,"843,033.0 ",.01)

 +20      ;;033.0

 +21      ;;9002226.02101,"843,033.0 ",.02)

 +22      ;;033.0

 +23      ;;9002226.02101,"843,033.1 ",.01)

 +24      ;;033.1

 +25      ;;9002226.02101,"843,033.1 ",.02)

 +26      ;;033.1

 +27      ;;9002226.02101,"843,033.8 ",.01)

 +28      ;;033.8

 +29      ;;9002226.02101,"843,033.8 ",.02)

 +30      ;;033.8

 +31      ;;9002226.02101,"843,033.9 ",.01)

 +32      ;;033.9

 +33      ;;9002226.02101,"843,033.9 ",.02)

 +34      ;;033.9

 +35      ;;9002226.02101,"843,034.0 ",.01)

 +36      ;;034.0

 +37      ;;9002226.02101,"843,034.0 ",.02)

 +38      ;;034.0

 +39      ;;9002226.02101,"843,034.1 ",.01)

 +40      ;;034.1

 +41      ;;9002226.02101,"843,034.1 ",.02)

 +42      ;;034.1

 +43      ;;9002226.02101,"843,035 ",.01)

 +44      ;;035

 +45      ;;9002226.02101,"843,035 ",.02)

 +46      ;;035

 +47      ;;9002226.02101,"843,036.0 ",.01)

 +48      ;;036.0

 +49      ;;9002226.02101,"843,036.0 ",.02)

 +50      ;;036.0

 +51      ;;9002226.02101,"843,036.1 ",.01)

 +52      ;;036.1

 +53      ;;9002226.02101,"843,036.1 ",.02)

 +54      ;;036.1

 +55      ;;9002226.02101,"843,036.2 ",.01)

 +56      ;;036.2

 +57      ;;9002226.02101,"843,036.2 ",.02)

 +58      ;;036.2

 +59      ;;9002226.02101,"843,036.3 ",.01)

 +60      ;;036.3

 +61      ;;9002226.02101,"843,036.3 ",.02)

 +62      ;;036.3

 +63      ;;9002226.02101,"843,036.40 ",.01)

 +64      ;;036.40

 +65      ;;9002226.02101,"843,036.40 ",.02)

 +66      ;;036.40

 +67      ;;9002226.02101,"843,036.41 ",.01)

 +68      ;;036.41

 +69      ;;9002226.02101,"843,036.41 ",.02)

 +70      ;;036.41

 +71      ;;9002226.02101,"843,036.42 ",.01)

 +72      ;;036.42

 +73      ;;9002226.02101,"843,036.42 ",.02)

 +74      ;;036.42

 +75      ;;9002226.02101,"843,036.43 ",.01)

 +76      ;;036.43

 +77      ;;9002226.02101,"843,036.43 ",.02)

 +78      ;;036.43

 +79      ;;9002226.02101,"843,036.81 ",.01)

 +80      ;;036.81

 +81      ;;9002226.02101,"843,036.81 ",.02)

 +82      ;;036.81

 +83      ;;9002226.02101,"843,036.82 ",.01)

 +84      ;;036.82

 +85      ;;9002226.02101,"843,036.82 ",.02)

 +86      ;;036.82

 +87      ;;9002226.02101,"843,036.89 ",.01)

 +88      ;;036.89

 +89      ;;9002226.02101,"843,036.89 ",.02)

 +90      ;;036.89

 +91      ;;9002226.02101,"843,036.9 ",.01)

 +92      ;;036.9

 +93      ;;9002226.02101,"843,036.9 ",.02)

 +94      ;;036.9

 +95      ;;9002226.02101,"843,037 ",.01)

 +96      ;;037

 +97      ;;9002226.02101,"843,037 ",.02)

 +98      ;;037

 +99      ;;9002226.02101,"843,038.0 ",.01)

 +100     ;;038.0

 +101     ;;9002226.02101,"843,038.0 ",.02)

 +102     ;;038.0

 +103     ;;9002226.02101,"843,038.10 ",.01)

 +104     ;;038.10

 +105     ;;9002226.02101,"843,038.10 ",.02)

 +106     ;;038.10

 +107     ;;9002226.02101,"843,038.11 ",.01)

 +108     ;;038.11

 +109     ;;9002226.02101,"843,038.11 ",.02)

 +110     ;;038.11

 +111     ;;9002226.02101,"843,038.19 ",.01)

 +112     ;;038.19

 +113     ;;9002226.02101,"843,038.19 ",.02)

 +114     ;;038.19

 +115     ;;9002226.02101,"843,038.2 ",.01)

 +116     ;;038.2

 +117     ;;9002226.02101,"843,038.2 ",.02)

 +118     ;;038.2

 +119     ;;9002226.02101,"843,038.3 ",.01)

 +120     ;;038.3

 +121     ;;9002226.02101,"843,038.3 ",.02)

 +122     ;;038.3

 +123     ;;9002226.02101,"843,038.40 ",.01)

 +124     ;;038.40

 +125     ;;9002226.02101,"843,038.40 ",.02)

 +126     ;;038.40

 +127     ;;9002226.02101,"843,038.41 ",.01)

 +128     ;;038.41

 +129     ;;9002226.02101,"843,038.41 ",.02)

 +130     ;;038.41

 +131     ;;9002226.02101,"843,038.42 ",.01)

 +132     ;;038.42

 +133     ;;9002226.02101,"843,038.42 ",.02)

 +134     ;;038.42

 +135     ;;9002226.02101,"843,038.43 ",.01)

 +136     ;;038.43

 +137     ;;9002226.02101,"843,038.43 ",.02)

 +138     ;;038.43

 +139     ;;9002226.02101,"843,038.44 ",.01)

 +140     ;;038.44

 +141     ;;9002226.02101,"843,038.44 ",.02)

 +142     ;;038.44

 +143     ;;9002226.02101,"843,038.49 ",.01)

 +144     ;;038.49

 +145     ;;9002226.02101,"843,038.49 ",.02)

 +146     ;;038.49

 +147     ;;9002226.02101,"843,038.8 ",.01)

 +148     ;;038.8

 +149     ;;9002226.02101,"843,038.8 ",.02)

 +150     ;;038.8

 +151     ;;9002226.02101,"843,038.9 ",.01)

 +152     ;;038.9

 +153     ;;9002226.02101,"843,038.9 ",.02)

 +154     ;;038.9

 +155     ;;9002226.02101,"843,039.0 ",.01)

 +156     ;;039.0

 +157     ;;9002226.02101,"843,039.0 ",.02)

 +158     ;;039.0

 +159     ;;9002226.02101,"843,039.1 ",.01)

 +160     ;;039.1

 +161     ;;9002226.02101,"843,039.1 ",.02)

 +162     ;;039.1

 +163     ;;9002226.02101,"843,039.2 ",.01)

 +164     ;;039.2

 +165     ;;9002226.02101,"843,039.2 ",.02)

 +166     ;;039.2

 +167     ;;9002226.02101,"843,039.3 ",.01)

 +168     ;;039.3

 +169     ;;9002226.02101,"843,039.3 ",.02)

 +170     ;;039.3

 +171     ;;9002226.02101,"843,039.4 ",.01)

 +172     ;;039.4

 +173     ;;9002226.02101,"843,039.4 ",.02)

 +174     ;;039.4

 +175     ;;9002226.02101,"843,039.8 ",.01)

 +176     ;;039.8

 +177     ;;9002226.02101,"843,039.8 ",.02)

 +178     ;;039.8

 +179     ;;9002226.02101,"843,039.9 ",.01)

 +180     ;;039.9

 +181     ;;9002226.02101,"843,039.9 ",.02)

 +182     ;;039.9

 +183     ;;9002226.02101,"843,040.0 ",.01)

 +184     ;;040.0

 +185     ;;9002226.02101,"843,040.0 ",.02)

 +186     ;;040.0

 +187     ;;9002226.02101,"843,040.1 ",.01)

 +188     ;;040.1

 +189     ;;9002226.02101,"843,040.1 ",.02)

 +190     ;;040.1

 +191     ;;9002226.02101,"843,040.2 ",.01)

 +192     ;;040.2

 +193     ;;9002226.02101,"843,040.2 ",.02)

 +194     ;;040.2

 +195     ;;9002226.02101,"843,040.3 ",.01)

 +196     ;;040.3

 +197     ;;9002226.02101,"843,040.3 ",.02)

 +198     ;;040.3

 +199     ;;9002226.02101,"843,040.81 ",.01)

 +200     ;;040.81

 +201     ;;9002226.02101,"843,040.81 ",.02)

 +202     ;;040.81

 +203     ;;9002226.02101,"843,040.82 ",.01)

 +204     ;;040.82

 +205     ;;9002226.02101,"843,040.82 ",.02)

 +206     ;;040.82

 +207     ;;9002226.02101,"843,040.89 ",.01)

 +208     ;;040.89

 +209     ;;9002226.02101,"843,040.89 ",.02)

 +210     ;;040.89

 +211     ;;9002226.02101,"843,041.00 ",.01)

 +212     ;;041.00

 +213     ;;9002226.02101,"843,041.00 ",.02)

 +214     ;;041.00

 +215     ;;9002226.02101,"843,041.01 ",.01)

 +216     ;;041.01

 +217     ;;9002226.02101,"843,041.01 ",.02)

 +218     ;;041.01

 +219     ;;9002226.02101,"843,041.02 ",.01)

 +220     ;;041.02

 +221     ;;9002226.02101,"843,041.02 ",.02)

 +222     ;;041.02

 +223     ;;9002226.02101,"843,041.03 ",.01)

 +224     ;;041.03

 +225     ;;9002226.02101,"843,041.03 ",.02)

 +226     ;;041.03

 +227     ;;9002226.02101,"843,041.04 ",.01)

 +228     ;;041.04

 +229     ;;9002226.02101,"843,041.04 ",.02)

 +230     ;;041.04

 +231     ;;9002226.02101,"843,041.05 ",.01)

 +232     ;;041.05

 +233     ;;9002226.02101,"843,041.05 ",.02)

 +234     ;;041.05

 +235     ;;9002226.02101,"843,041.09 ",.01)

 +236     ;;041.09

 +237     ;;9002226.02101,"843,041.09 ",.02)

 +238     ;;041.09

 +239     ;;9002226.02101,"843,041.10 ",.01)

 +240     ;;041.10

 +241     ;;9002226.02101,"843,041.10 ",.02)

 +242     ;;041.10

 +243     ;;9002226.02101,"843,041.11 ",.01)

 +244     ;;041.11

 +245     ;;9002226.02101,"843,041.11 ",.02)

 +246     ;;041.11

 +247     ;;9002226.02101,"843,041.19 ",.01)

 +248     ;;041.19

 +249     ;;9002226.02101,"843,041.19 ",.02)

 +250     ;;041.19

 +251     ;;9002226.02101,"843,041.2 ",.01)

 +252     ;;041.2

 +253     ;;9002226.02101,"843,041.2 ",.02)

 +254     ;;041.2

 +255     ;;9002226.02101,"843,041.3 ",.01)

 +256     ;;041.3

 +257     ;;9002226.02101,"843,041.3 ",.02)

 +258     ;;041.3

 +259     ;;9002226.02101,"843,041.4 ",.01)

 +260     ;;041.4

 +261     ;;9002226.02101,"843,041.4 ",.02)

 +262     ;;041.4

 +263     ;;9002226.02101,"843,041.5 ",.01)

 +264     ;;041.5

 +265     ;;9002226.02101,"843,041.5 ",.02)

 +266     ;;041.5

 +267     ;;9002226.02101,"843,041.6 ",.01)

 +268     ;;041.6

 +269     ;;9002226.02101,"843,041.6 ",.02)

 +270     ;;041.6

 +271     ;;9002226.02101,"843,041.7 ",.01)

 +272     ;;041.7

 +273     ;;9002226.02101,"843,041.7 ",.02)

 +274     ;;041.7

 +275     ;;9002226.02101,"843,041.81 ",.01)

 +276     ;;041.81

 +277     ;;9002226.02101,"843,041.81 ",.02)

 +278     ;;041.81

 +279     ;;9002226.02101,"843,041.82 ",.01)

 +280     ;;041.82

 +281     ;;9002226.02101,"843,041.82 ",.02)

 +282     ;;041.82

 +283     ;;9002226.02101,"843,041.83 ",.01)

 +284     ;;041.83

 +285     ;;9002226.02101,"843,041.83 ",.02)

 +286     ;;041.83

 +287     ;;9002226.02101,"843,041.84 ",.01)

 +288     ;;041.84

 +289     ;;9002226.02101,"843,041.84 ",.02)

 +290     ;;041.84

 +291     ;;9002226.02101,"843,041.85 ",.01)

 +292     ;;041.85

 +293     ;;9002226.02101,"843,041.85 ",.02)

 +294     ;;041.85

 +295     ;;9002226.02101,"843,041.86 ",.01)

 +296     ;;041.86

 +297     ;;9002226.02101,"843,041.86 ",.02)

 +298     ;;041.86

 +299     ;;9002226.02101,"843,041.89 ",.01)

 +300     ;;041.89

 +301     ;;9002226.02101,"843,041.89 ",.02)

 +302     ;;041.89

 +303     ;;9002226.02101,"843,041.9 ",.01)

 +304     ;;041.9

 +305     ;;9002226.02101,"843,041.9 ",.02)

 +306     ;;041.9

 +307     ;;9002226.02101,"843,050.1 ",.01)

 +308     ;;050.1

 +309     ;;9002226.02101,"843,050.1 ",.02)

 +310     ;;050.1

 +311     ;;9002226.02101,"843,051.2 ",.01)

 +312     ;;051.2

 +313     ;;9002226.02101,"843,051.2 ",.02)

 +314     ;;051.2

 +315     ;;9002226.02101,"843,053.12 ",.01)

 +316     ;;053.12

 +317     ;;9002226.02101,"843,053.12 ",.02)

 +318     ;;053.12

 +319     ;;9002226.02101,"843,053.13 ",.01)

 +320     ;;053.13

 +321     ;;9002226.02101,"843,053.13 ",.02)

 +322     ;;053.13

 +323     ;;9002226.02101,"843,053.79 ",.01)

 +324     ;;053.79

 +325     ;;9002226.02101,"843,053.79 ",.02)

 +326     ;;053.79

 +327     ;;9002226.02101,"843,054.0 ",.01)

 +328     ;;054.0

 +329     ;;9002226.02101,"843,054.0 ",.02)

 +330     ;;054.0

 +331     ;;9002226.02101,"843,060.0 ",.01)

 +332     ;;060.0

 +333     ;;9002226.02101,"843,060.0 ",.02)

 +334     ;;060.0

 +335     ;;9002226.02101,"843,060.1 ",.01)

 +336     ;;060.1

 +337     ;;9002226.02101,"843,060.1 ",.02)

 +338     ;;060.1

 +339     ;;9002226.02101,"843,060.9 ",.01)

 +340     ;;060.9

 +341     ;;9002226.02101,"843,060.9 ",.02)

 +342     ;;060.9

 +343     ;;9002226.02101,"843,061 ",.01)

 +344     ;;061

 +345     ;;9002226.02101,"843,061 ",.02)

 +346     ;;061

 +347     ;;9002226.02101,"843,063.1 ",.01)

 +348     ;;063.1

 +349     ;;9002226.02101,"843,063.1 ",.02)

 +350     ;;063.1

 +351     ;;9002226.02101,"843,065.1 ",.01)

 +352     ;;065.1

 +353     ;;9002226.02101,"843,065.1 ",.02)

 +354     ;;065.1

 +355     ;;9002226.02101,"843,065.2 ",.01)

 +356     ;;065.2

 +357     ;;9002226.02101,"843,065.2 ",.02)

 +358     ;;065.2

 +359     ;;9002226.02101,"843,065.3 ",.01)

 +360     ;;065.3

 +361     ;;9002226.02101,"843,065.3 ",.02)

 +362     ;;065.3

 +363     ;;9002226.02101,"843,065.4 ",.01)

 +364     ;;065.4

 +365     ;;9002226.02101,"843,065.4 ",.02)

 +366     ;;065.4

 +367     ;;9002226.02101,"843,065.8 ",.01)

 +368     ;;065.8

 +369     ;;9002226.02101,"843,065.8 ",.02)

 +370     ;;065.8

 +371     ;;9002226.02101,"843,065.9 ",.01)

 +372     ;;065.9

 +373     ;;9002226.02101,"843,065.9 ",.02)

 +374     ;;065.9

 +375     ;;9002226.02101,"843,066.0 ",.01)

 +376     ;;066.0

 +377     ;;9002226.02101,"843,066.0 ",.02)

 +378     ;;066.0

 +379     ;;9002226.02101,"843,066.1 ",.01)

 +380     ;;066.1

 +381     ;;9002226.02101,"843,066.1 ",.02)

 +382     ;;066.1

 +383     ;;9002226.02101,"843,066.2 ",.01)

 +384     ;;066.2

 +385     ;;9002226.02101,"843,066.2 ",.02)

 +386     ;;066.2

 +387     ;;9002226.02101,"843,066.3 ",.01)

 +388     ;;066.3

 +389     ;;9002226.02101,"843,066.3 ",.02)

 +390     ;;066.3

 +391     ;;9002226.02101,"843,066.40 ",.01)

 +392     ;;066.40

 +393     ;;9002226.02101,"843,066.40 ",.02)

 +394     ;;066.40

 +395     ;;9002226.02101,"843,066.41 ",.01)

 +396     ;;066.41

 +397     ;;9002226.02101,"843,066.41 ",.02)

 +398     ;;066.41

 +399     ;;9002226.02101,"843,066.42 ",.01)

 +400     ;;066.42

 +401     ;;9002226.02101,"843,066.42 ",.02)

 +402     ;;066.42

 +403     ;;9002226.02101,"843,066.49 ",.01)

 +404     ;;066.49

 +405     ;;9002226.02101,"843,066.49 ",.02)

 +406     ;;066.49

 +407     ;;9002226.02101,"843,071 ",.01)

 +408     ;;071

 +409     ;;9002226.02101,"843,071 ",.02)

 +410     ;;071

 +411     ;;9002226.02101,"843,073.0 ",.01)

 +412     ;;073.0

 +413     ;;9002226.02101,"843,073.0 ",.02)

 +414     ;;073.0

 +415     ;;9002226.02101,"843,073.7 ",.01)

 +416     ;;073.7

 +417     ;;9002226.02101,"843,073.7 ",.02)

 +418     ;;073.7

 +419     ;;9002226.02101,"843,073.8 ",.01)

 +420     ;;073.8

 +421     ;;9002226.02101,"843,073.8 ",.02)

 +422     ;;073.8

 +423     ;;9002226.02101,"843,073.9 ",.01)

 +424     ;;073.9

 +425     ;;9002226.02101,"843,073.9 ",.02)

 +426     ;;073.9

 +427     ;;9002226.02101,"843,074.0 ",.01)

 +428     ;;074.0

 +429     ;;9002226.02101,"843,074.0 ",.02)

 +430     ;;074.0

 +431     ;;9002226.02101,"843,074.1 ",.01)

 +432     ;;074.1

 +433     ;;9002226.02101,"843,074.1 ",.02)

 +434     ;;074.1

 +435     ;;9002226.02101,"843,074.3 ",.01)

 +436     ;;074.3

 +437     ;;9002226.02101,"843,074.3 ",.02)

 +438     ;;074.3

 +439     ;;9002226.02101,"843,075 ",.01)

 +440     ;;075

 +441     ;;9002226.02101,"843,075 ",.02)

 +442     ;;075

 +443     ;;9002226.02101,"843,076.0 ",.01)

 +444     ;;076.0

 +445     ;;9002226.02101,"843,076.0 ",.02)

 +446     ;;076.0

 +447     ;;9002226.02101,"843,076.1 ",.01)

 +448     ;;076.1

 +449     ;;9002226.02101,"843,076.1 ",.02)

 +450     ;;076.1

 +451     ;;9002226.02101,"843,076.9 ",.01)

 +452     ;;076.9

 +453     ;;9002226.02101,"843,076.9 ",.02)

 +454     ;;076.9

 +455     ;;9002226.02101,"843,077.0 ",.01)

 +456     ;;077.0

 +457     ;;9002226.02101,"843,077.0 ",.02)

 +458     ;;077.0

 +459     ;;9002226.02101,"843,077.1 ",.01)

 +460     ;;077.1

 +461     ;;9002226.02101,"843,077.1 ",.02)

 +462     ;;077.1

 +463     ;;9002226.02101,"843,077.2 ",.01)

 +464     ;;077.2

 +465     ;;9002226.02101,"843,077.2 ",.02)

 +466     ;;077.2

 +467     ;;9002226.02101,"843,077.4 ",.01)

 +468     ;;077.4

 +469     ;;9002226.02101,"843,077.4 ",.02)

 +470     ;;077.4

 +471     ;;9002226.02101,"843,077.98 ",.01)

 +472     ;;077.98

 +473     ;;9002226.02101,"843,077.98 ",.02)

 +474     ;;077.98

 +475     ;;9002226.02101,"843,077.99 ",.01)

 +476     ;;077.99

 +477     ;;9002226.02101,"843,077.99 ",.02)

 +478     ;;077.99

 +479     ;;9002226.02101,"843,078.2 ",.01)

 +480     ;;078.2

 +481     ;;9002226.02101,"843,078.2 ",.02)

 +482     ;;078.2

 +483     ;;9002226.02101,"843,078.3 ",.01)

 +484     ;;078.3

 +485     ;;9002226.02101,"843,078.3 ",.02)

 +486     ;;078.3

 +487     ;;9002226.02101,"843,078.4 ",.01)

 +488     ;;078.4

 +489     ;;9002226.02101,"843,078.4 ",.02)

 +490     ;;078.4

 +491     ;;9002226.02101,"843,078.6 ",.01)

 +492     ;;078.6

 +493     ;;9002226.02101,"843,078.6 ",.02)

 +494     ;;078.6

 +495     ;;9002226.02101,"843,078.81 ",.01)

 +496     ;;078.81

 +497     ;;9002226.02101,"843,078.81 ",.02)

 +498     ;;078.81

 +499     ;;9002226.02101,"843,078.82 ",.01)

 +500     ;;078.82

 +501     ;;9002226.02101,"843,078.82 ",.02)

 +502     ;;078.82

 +503     ;;9002226.02101,"843,078.88 ",.01)

 +504     ;;078.88

 +505     ;;9002226.02101,"843,078.88 ",.02)

 +506     ;;078.88

 +507     ;;9002226.02101,"843,079.88 ",.01)

 +508     ;;079.88

 +509     ;;9002226.02101,"843,079.88 ",.02)

 +510     ;;079.88

 +511     ;;9002226.02101,"843,079.98 ",.01)

 +512     ;;079.98

 +513     ;;9002226.02101,"843,079.98 ",.02)

 +514     ;;079.98

 +515     ;;9002226.02101,"843,080 ",.01)

 +516     ;;080

 +517     ;;9002226.02101,"843,080 ",.02)

 +518     ;;080

 +519     ;;9002226.02101,"843,081.0 ",.01)

 +520     ;;081.0

 +521     ;;9002226.02101,"843,081.0 ",.02)

 +522     ;;081.0

 +523     ;;9002226.02101,"843,081.1 ",.01)

 +524     ;;081.1

 +525     ;;9002226.02101,"843,081.1 ",.02)

 +526     ;;081.1

 +527     ;;9002226.02101,"843,081.2 ",.01)

 +528     ;;081.2

 +529     ;;9002226.02101,"843,081.2 ",.02)

 +530     ;;081.2

 +531     ;;9002226.02101,"843,081.9 ",.01)

 +532     ;;081.9

 +533     ;;9002226.02101,"843,081.9 ",.02)

 +534     ;;081.9

 +535     ;;9002226.02101,"843,082.0 ",.01)

 +536     ;;082.0

 +537     ;;9002226.02101,"843,082.0 ",.02)

 +538     ;;082.0

 +539     ;;9002226.02101,"843,082.1 ",.01)

 +540     ;;082.1

 +541     ;;9002226.02101,"843,082.1 ",.02)

 +542     ;;082.1

 +543     ;;9002226.02101,"843,082.2 ",.01)

 +544     ;;082.2

 +545     ;;9002226.02101,"843,082.2 ",.02)

 +546     ;;082.2

 +547     ;;9002226.02101,"843,082.3 ",.01)

 +548     ;;082.3

 +549     ;;9002226.02101,"843,082.3 ",.02)

 +550     ;;082.3

 +551     ;;9002226.02101,"843,082.40 ",.01)

 +552     ;;082.40

 +553     ;;9002226.02101,"843,082.40 ",.02)

 +554     ;;082.40

 +555     ;;9002226.02101,"843,082.41 ",.01)

 +556     ;;082.41

 +557     ;;9002226.02101,"843,082.41 ",.02)

 +558     ;;082.41

 +559     ;;9002226.02101,"843,082.49 ",.01)

 +560     ;;082.49

 +561     ;;9002226.02101,"843,082.49 ",.02)

 +562     ;;082.49

 +563     ;;9002226.02101,"843,082.8 ",.01)

 +564     ;;082.8

 +565     ;;9002226.02101,"843,082.8 ",.02)

 +566     ;;082.8

 +567     ;;9002226.02101,"843,082.9 ",.01)

 +568     ;;082.9

BGP03B6.m