Routine: BGP03B9

BGP03B9 ;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,131.00 ",.02)

 ;;131.00

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

 ;;131.01

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

 ;;131.01

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

 ;;131.02

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

 ;;131.02

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

 ;;131.03

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

 ;;131.03

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

 ;;131.09

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

 ;;131.09

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

 ;;131.8

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

 ;;131.8

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

 ;;131.9

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

 ;;131.9

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

 ;;132.2

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

 ;;132.2

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

 ;;132.3

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

 ;;132.3

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

 ;;132.9

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

 ;;132.9

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

 ;;133.0

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

 ;;133.0

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

 ;;133.8

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

 ;;133.8

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

 ;;133.9

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

 ;;133.9

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

 ;;134.0

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

 ;;134.0

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

 ;;134.1

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

 ;;134.1

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

 ;;134.2

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

 ;;134.2

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

 ;;134.8

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

 ;;134.8

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

 ;;134.9

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

 ;;134.9

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

 ;;135

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

 ;;135

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

 ;;136.0

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

 ;;136.9

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

 ;;137.0

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

 ;;137.0

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

 ;;137.1

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

 ;;137.1

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

 ;;137.2

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

 ;;137.2

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

 ;;137.3

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

 ;;137.3

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

 ;;137.4

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

 ;;137.4

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

 ;;139.1

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

 ;;139.1

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

 ;;139.8

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

 ;;139.8

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

 ;;320.0

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

 ;;320.0

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

 ;;320.1

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

 ;;320.1

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

 ;;320.2

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

 ;;320.2

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

 ;;320.3

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

 ;;320.3

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

 ;;320.7

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

 ;;320.7

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

 ;;320.81

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

 ;;320.81

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

 ;;320.82

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

 ;;320.82

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

 ;;320.89

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

 ;;320.89

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

 ;;320.9

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

 ;;320.9

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

 ;;321.0

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

 ;;321.0

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

 ;;321.1

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

 ;;321.1

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

 ;;321.3

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

 ;;321.3

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

 ;;321.4

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

 ;;321.4

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

 ;;321.8

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

 ;;321.8

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

 ;;322.0

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

 ;;322.0

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

 ;;322.1

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

 ;;322.1

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

 ;;322.2

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

 ;;322.2

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

 ;;322.9

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

 ;;322.9

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

 ;;323.1

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

 ;;323.1

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

 ;;323.2

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

 ;;323.2

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

 ;;323.41

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

 ;;323.41

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

 ;;323.42

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

 ;;323.42

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

 ;;323.61

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

 ;;323.61

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

 ;;323.62

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

 ;;323.62

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

 ;;323.63

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

 ;;323.63

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

 ;;323.81

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

 ;;323.81

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

 ;;323.82

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

 ;;323.82

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

 ;;323.9

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

 ;;323.9

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

 ;;324.0

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

 ;;324.0

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

 ;;324.1

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

 ;;324.1

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

 ;;324.9

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

 ;;324.9

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

 ;;325

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

 ;;325

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

 ;;326

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

 ;;326

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

 ;;380.00

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

 ;;380.00

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

 ;;380.01

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

 ;;380.01

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

 ;;380.02

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

 ;;380.02

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

 ;;380.03

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

 ;;380.03

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

 ;;380.10

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

 ;;380.10

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

 ;;380.11

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

 ;;380.11

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

 ;;380.12

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

 ;;380.12

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

 ;;380.13

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

 ;;380.13

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

 ;;380.14

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

 ;;380.14

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

 ;;380.15

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

 ;;380.15

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

 ;;380.16

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

 ;;380.16

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

 ;;380.21

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

 ;;380.21

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

 ;;380.22

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

 ;;380.22

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

 ;;380.23

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

 ;;380.23

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

 ;;382.00

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

 ;;382.00

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

 ;;382.01

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

 ;;382.01

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

 ;;382.02

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

 ;;382.02

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

 ;;382.1

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

 ;;382.1

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

 ;;382.2

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

 ;;382.2

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

 ;;421.0

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

 ;;421.0

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

 ;;421.1

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

 ;;421.1

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

 ;;421.9

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

 ;;421.9

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

 ;;422.0

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

 ;;422.0

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

 ;;422.90

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

 ;;422.90

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

 ;;422.91

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

 ;;422.91

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

 ;;422.92

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

 ;;422.92

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

 ;;422.93

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

 ;;422.93

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

 ;;422.99

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

 ;;422.99

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

 ;;460

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

 ;;460

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

 ;;461.0

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

 ;;461.0

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

 ;;461.1

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

 ;;461.1

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

 ;;461.2

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

 ;;461.2

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

 ;;461.3

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

 ;;461.3

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

 ;;461.8

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

 ;;461.8

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

 ;;461.9

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

 ;;461.9

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

 ;;462

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

 ;;462

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

 ;;463

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

 ;;463

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

 ;;464.00

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

 ;;464.00

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

 ;;464.01

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

 ;;464.01

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

 ;;464.10

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

 ;;464.10

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

 ;;464.11

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

 ;;464.11

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

 ;;464.20

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

 ;;464.20

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

 ;;464.21

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

 ;;464.21

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

 ;;464.30

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

 ;;464.30

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

 ;;464.31

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

 ;;464.31

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

 ;;464.4

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

 ;;464.4

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

 ;;464.50

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

 ;;464.50

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

 ;;464.51

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

 ;;464.51

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

 ;;465.0

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

 ;;465.0

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

 ;;465.8

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

 ;;465.8

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

 ;;465.9

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

 ;;465.9

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

 ;;466.0

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

 ;;466.0

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

 ;;466.19

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

 ;;466.19

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

 ;;472.0

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

 ;;472.0

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

 ;;472.1

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

 ;;472.1

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

 ;;472.2

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

 ;;472.2

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

 ;;473.0

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

 ;;473.0

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

 ;;473.1

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

 ;;473.1

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

 ;;473.2

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

 ;;473.2

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

 ;;473.3

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

 ;;473.3

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

 ;;473.8

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

 ;;473.8

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

 ;;473.9

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

 ;;473.9

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

 ;;474.00

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

 ;;474.00

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

 ;;474.01

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

 ;;474.01

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

 ;;474.02

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

 ;;474.02

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

 ;;474.10

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

 ;;474.10

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

 ;;474.11

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

 ;;474.11

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

 ;;474.12

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

 ;;474.12

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

 ;;474.2

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

 ;;474.2

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

 ;;474.8

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

 ;;474.8

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

 ;;474.9

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

 ;;474.9

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

 ;;475

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

 ;;475

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

 ;;476.0

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

 ;;476.0

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

 ;;476.1

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

 ;;476.1

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

 ;;481

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

 ;;481

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

 ;;482.0

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

 ;;482.0

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

 ;;482.1

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

 ;;482.1

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

 ;;482.2

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

 ;;482.2

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

 ;;482.30

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

 ;;482.30

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

 ;;482.31

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

 ;;482.31

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

 ;;482.32

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

 ;;482.32

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

 ;;482.39

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

 ;;482.39

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

 ;;482.40

BGP03B9   ;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,131.00 ",.02)

 +2       ;;131.00

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

 +4       ;;131.01

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

 +6       ;;131.01

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

 +8       ;;131.02

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

 +10      ;;131.02

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

 +12      ;;131.03

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

 +14      ;;131.03

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

 +16      ;;131.09

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

 +18      ;;131.09

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

 +20      ;;131.8

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

 +22      ;;131.8

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

 +24      ;;131.9

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

 +26      ;;131.9

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

 +28      ;;132.2

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

 +30      ;;132.2

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

 +32      ;;132.3

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

 +34      ;;132.3

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

 +36      ;;132.9

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

 +38      ;;132.9

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

 +40      ;;133.0

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

 +42      ;;133.0

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

 +44      ;;133.8

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

 +46      ;;133.8

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

 +48      ;;133.9

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

 +50      ;;133.9

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

 +52      ;;134.0

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

 +54      ;;134.0

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

 +56      ;;134.1

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

 +58      ;;134.1

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

 +60      ;;134.2

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

 +62      ;;134.2

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

 +64      ;;134.8

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

 +66      ;;134.8

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

 +68      ;;134.9

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

 +70      ;;134.9

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

 +72      ;;135

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

 +74      ;;135

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

 +76      ;;136.0

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

 +78      ;;136.9

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

 +80      ;;137.0

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

 +82      ;;137.0

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

 +84      ;;137.1

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

 +86      ;;137.1

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

 +88      ;;137.2

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

 +90      ;;137.2

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

 +92      ;;137.3

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

 +94      ;;137.3

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

 +96      ;;137.4

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

 +98      ;;137.4

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

 +100     ;;139.1

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

 +102     ;;139.1

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

 +104     ;;139.8

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

 +106     ;;139.8

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

 +108     ;;320.0

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

 +110     ;;320.0

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

 +112     ;;320.1

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

 +114     ;;320.1

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

 +116     ;;320.2

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

 +118     ;;320.2

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

 +120     ;;320.3

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

 +122     ;;320.3

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

 +124     ;;320.7

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

 +126     ;;320.7

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

 +128     ;;320.81

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

 +130     ;;320.81

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

 +132     ;;320.82

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

 +134     ;;320.82

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

 +136     ;;320.89

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

 +138     ;;320.89

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

 +140     ;;320.9

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

 +142     ;;320.9

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

 +144     ;;321.0

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

 +146     ;;321.0

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

 +148     ;;321.1

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

 +150     ;;321.1

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

 +152     ;;321.3

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

 +154     ;;321.3

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

 +156     ;;321.4

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

 +158     ;;321.4

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

 +160     ;;321.8

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

 +162     ;;321.8

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

 +164     ;;322.0

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

 +166     ;;322.0

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

 +168     ;;322.1

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

 +170     ;;322.1

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

 +172     ;;322.2

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

 +174     ;;322.2

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

 +176     ;;322.9

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

 +178     ;;322.9

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

 +180     ;;323.1

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

 +182     ;;323.1

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

 +184     ;;323.2

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

 +186     ;;323.2

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

 +188     ;;323.41

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

 +190     ;;323.41

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

 +192     ;;323.42

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

 +194     ;;323.42

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

 +196     ;;323.61

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

 +198     ;;323.61

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

 +200     ;;323.62

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

 +202     ;;323.62

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

 +204     ;;323.63

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

 +206     ;;323.63

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

 +208     ;;323.81

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

 +210     ;;323.81

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

 +212     ;;323.82

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

 +214     ;;323.82

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

 +216     ;;323.9

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

 +218     ;;323.9

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

 +220     ;;324.0

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

 +222     ;;324.0

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

 +224     ;;324.1

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

 +226     ;;324.1

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

 +228     ;;324.9

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

 +230     ;;324.9

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

 +232     ;;325

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

 +234     ;;325

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

 +236     ;;326

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

 +238     ;;326

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

 +240     ;;380.00

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

 +242     ;;380.00

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

 +244     ;;380.01

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

 +246     ;;380.01

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

 +248     ;;380.02

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

 +250     ;;380.02

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

 +252     ;;380.03

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

 +254     ;;380.03

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

 +256     ;;380.10

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

 +258     ;;380.10

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

 +260     ;;380.11

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

 +262     ;;380.11

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

 +264     ;;380.12

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

 +266     ;;380.12

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

 +268     ;;380.13

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

 +270     ;;380.13

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

 +272     ;;380.14

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

 +274     ;;380.14

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

 +276     ;;380.15

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

 +278     ;;380.15

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

 +280     ;;380.16

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

 +282     ;;380.16

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

 +284     ;;380.21

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

 +286     ;;380.21

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

 +288     ;;380.22

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

 +290     ;;380.22

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

 +292     ;;380.23

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

 +294     ;;380.23

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

 +296     ;;382.00

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

 +298     ;;382.00

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

 +300     ;;382.01

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

 +302     ;;382.01

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

 +304     ;;382.02

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

 +306     ;;382.02

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

 +308     ;;382.1

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

 +310     ;;382.1

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

 +312     ;;382.2

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

 +314     ;;382.2

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

 +316     ;;421.0

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

 +318     ;;421.0

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

 +320     ;;421.1

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

 +322     ;;421.1

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

 +324     ;;421.9

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

 +326     ;;421.9

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

 +328     ;;422.0

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

 +330     ;;422.0

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

 +332     ;;422.90

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

 +334     ;;422.90

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

 +336     ;;422.91

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

 +338     ;;422.91

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

 +340     ;;422.92

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

 +342     ;;422.92

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

 +344     ;;422.93

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

 +346     ;;422.93

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

 +348     ;;422.99

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

 +350     ;;422.99

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

 +352     ;;460

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

 +354     ;;460

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

 +356     ;;461.0

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

 +358     ;;461.0

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

 +360     ;;461.1

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

 +362     ;;461.1

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

 +364     ;;461.2

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

 +366     ;;461.2

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

 +368     ;;461.3

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

 +370     ;;461.3

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

 +372     ;;461.8

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

 +374     ;;461.8

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

 +376     ;;461.9

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

 +378     ;;461.9

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

 +380     ;;462

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

 +382     ;;462

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

 +384     ;;463

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

 +386     ;;463

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

 +388     ;;464.00

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

 +390     ;;464.00

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

 +392     ;;464.01

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

 +394     ;;464.01

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

 +396     ;;464.10

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

 +398     ;;464.10

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

 +400     ;;464.11

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

 +402     ;;464.11

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

 +404     ;;464.20

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

 +406     ;;464.20

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

 +408     ;;464.21

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

 +410     ;;464.21

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

 +412     ;;464.30

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

 +414     ;;464.30

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

 +416     ;;464.31

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

 +418     ;;464.31

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

 +420     ;;464.4

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

 +422     ;;464.4

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

 +424     ;;464.50

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

 +426     ;;464.50

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

 +428     ;;464.51

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

 +430     ;;464.51

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

 +432     ;;465.0

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

 +434     ;;465.0

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

 +436     ;;465.8

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

 +438     ;;465.8

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

 +440     ;;465.9

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

 +442     ;;465.9

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

 +444     ;;466.0

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

 +446     ;;466.0

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

 +448     ;;466.19

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

 +450     ;;466.19

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

 +452     ;;472.0

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

 +454     ;;472.0

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

 +456     ;;472.1

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

 +458     ;;472.1

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

 +460     ;;472.2

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

 +462     ;;472.2

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

 +464     ;;473.0

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

 +466     ;;473.0

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

 +468     ;;473.1

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

 +470     ;;473.1

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

 +472     ;;473.2

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

 +474     ;;473.2

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

 +476     ;;473.3

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

 +478     ;;473.3

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

 +480     ;;473.8

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

 +482     ;;473.8

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

 +484     ;;473.9

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

 +486     ;;473.9

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

 +488     ;;474.00

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

 +490     ;;474.00

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

 +492     ;;474.01

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

 +494     ;;474.01

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

 +496     ;;474.02

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

 +498     ;;474.02

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

 +500     ;;474.10

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

 +502     ;;474.10

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

 +504     ;;474.11

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

 +506     ;;474.11

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

 +508     ;;474.12

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

 +510     ;;474.12

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

 +512     ;;474.2

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

 +514     ;;474.2

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

 +516     ;;474.8

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

 +518     ;;474.8

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

 +520     ;;474.9

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

 +522     ;;474.9

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

 +524     ;;475

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

 +526     ;;475

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

 +528     ;;476.0

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

 +530     ;;476.0

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

 +532     ;;476.1

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

 +534     ;;476.1

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

 +536     ;;481

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

 +538     ;;481

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

 +540     ;;482.0

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

 +542     ;;482.0

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

 +544     ;;482.1

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

 +546     ;;482.1

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

 +548     ;;482.2

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

 +550     ;;482.2

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

 +552     ;;482.30

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

 +554     ;;482.30

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

 +556     ;;482.31

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

 +558     ;;482.31

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

 +560     ;;482.32

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

 +562     ;;482.32

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

 +564     ;;482.39

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

 +566     ;;482.39

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

 +568     ;;482.40

BGP03B9.m