Routine: BGPM5AOU

BGPM5AOU ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 09, 2011;

 ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106

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,"993,867.6 ",.02)

 ;;867.6

 ;;9002226.02101,"993,867.7 ",.01)

 ;;867.7

 ;;9002226.02101,"993,867.7 ",.02)

 ;;867.7

 ;;9002226.02101,"993,867.8 ",.01)

 ;;867.8

 ;;9002226.02101,"993,867.8 ",.02)

 ;;867.8

 ;;9002226.02101,"993,867.9 ",.01)

 ;;867.9

 ;;9002226.02101,"993,867.9 ",.02)

 ;;867.9

 ;;9002226.02101,"993,868 ",.01)

 ;;868

 ;;9002226.02101,"993,868 ",.02)

 ;;868

 ;;9002226.02101,"993,868.0 ",.01)

 ;;868.0

 ;;9002226.02101,"993,868.0 ",.02)

 ;;868.0

 ;;9002226.02101,"993,868.00 ",.01)

 ;;868.00

 ;;9002226.02101,"993,868.00 ",.02)

 ;;868.00

 ;;9002226.02101,"993,868.01 ",.01)

 ;;868.01

 ;;9002226.02101,"993,868.01 ",.02)

 ;;868.01

 ;;9002226.02101,"993,868.02 ",.01)

 ;;868.02

 ;;9002226.02101,"993,868.02 ",.02)

 ;;868.02

 ;;9002226.02101,"993,868.03 ",.01)

 ;;868.03

 ;;9002226.02101,"993,868.03 ",.02)

 ;;868.03

 ;;9002226.02101,"993,868.04 ",.01)

 ;;868.04

 ;;9002226.02101,"993,868.04 ",.02)

 ;;868.04

 ;;9002226.02101,"993,868.09 ",.01)

 ;;868.09

 ;;9002226.02101,"993,868.09 ",.02)

 ;;868.09

 ;;9002226.02101,"993,868.1 ",.01)

 ;;868.1

 ;;9002226.02101,"993,868.1 ",.02)

 ;;868.1

 ;;9002226.02101,"993,868.10 ",.01)

 ;;868.10

 ;;9002226.02101,"993,868.10 ",.02)

 ;;868.10

 ;;9002226.02101,"993,868.11 ",.01)

 ;;868.11

 ;;9002226.02101,"993,868.11 ",.02)

 ;;868.11

 ;;9002226.02101,"993,868.12 ",.01)

 ;;868.12

 ;;9002226.02101,"993,868.12 ",.02)

 ;;868.12

 ;;9002226.02101,"993,868.13 ",.01)

 ;;868.13

 ;;9002226.02101,"993,868.13 ",.02)

 ;;868.13

 ;;9002226.02101,"993,868.14 ",.01)

 ;;868.14

 ;;9002226.02101,"993,868.14 ",.02)

 ;;868.14

 ;;9002226.02101,"993,868.19 ",.01)

 ;;868.19

 ;;9002226.02101,"993,868.19 ",.02)

 ;;868.19

 ;;9002226.02101,"993,869 ",.01)

 ;;869

 ;;9002226.02101,"993,869 ",.02)

 ;;869

 ;;9002226.02101,"993,869.0 ",.01)

 ;;869.0

 ;;9002226.02101,"993,869.0 ",.02)

 ;;869.0

 ;;9002226.02101,"993,869.1 ",.01)

 ;;869.1

 ;;9002226.02101,"993,869.1 ",.02)

 ;;869.1

 ;;9002226.02101,"993,905 ",.01)

 ;;905

 ;;9002226.02101,"993,905 ",.02)

 ;;905

 ;;9002226.02101,"993,905.0 ",.01)

 ;;905.0

 ;;9002226.02101,"993,905.0 ",.02)

 ;;905.0

 ;;9002226.02101,"993,905.1 ",.01)

 ;;905.1

 ;;9002226.02101,"993,905.1 ",.02)

 ;;905.1

 ;;9002226.02101,"993,905.2 ",.01)

 ;;905.2

 ;;9002226.02101,"993,905.2 ",.02)

 ;;905.2

 ;;9002226.02101,"993,905.3 ",.01)

 ;;905.3

 ;;9002226.02101,"993,905.3 ",.02)

 ;;905.3

 ;;9002226.02101,"993,905.4 ",.01)

 ;;905.4

 ;;9002226.02101,"993,905.4 ",.02)

 ;;905.4

 ;;9002226.02101,"993,905.5 ",.01)

 ;;905.5

 ;;9002226.02101,"993,905.5 ",.02)

 ;;905.5

 ;;9002226.02101,"993,905.6 ",.01)

 ;;905.6

 ;;9002226.02101,"993,905.6 ",.02)

 ;;905.6

 ;;9002226.02101,"993,905.7 ",.01)

 ;;905.7

 ;;9002226.02101,"993,905.7 ",.02)

 ;;905.7

 ;;9002226.02101,"993,905.8 ",.01)

 ;;905.8

 ;;9002226.02101,"993,905.8 ",.02)

 ;;905.8

 ;;9002226.02101,"993,905.9 ",.01)

 ;;905.9

 ;;9002226.02101,"993,905.9 ",.02)

 ;;905.9

 ;;9002226.02101,"993,906 ",.01)

 ;;906

 ;;9002226.02101,"993,906 ",.02)

 ;;906

 ;;9002226.02101,"993,906.0 ",.01)

 ;;906.0

 ;;9002226.02101,"993,906.0 ",.02)

 ;;906.0

 ;;9002226.02101,"993,906.1 ",.01)

 ;;906.1

 ;;9002226.02101,"993,906.1 ",.02)

 ;;906.1

 ;;9002226.02101,"993,906.2 ",.01)

 ;;906.2

 ;;9002226.02101,"993,906.2 ",.02)

 ;;906.2

 ;;9002226.02101,"993,906.3 ",.01)

 ;;906.3

 ;;9002226.02101,"993,906.3 ",.02)

 ;;906.3

 ;;9002226.02101,"993,906.4 ",.01)

 ;;906.4

 ;;9002226.02101,"993,906.4 ",.02)

 ;;906.4

 ;;9002226.02101,"993,906.5 ",.01)

 ;;906.5

 ;;9002226.02101,"993,906.5 ",.02)

 ;;906.5

 ;;9002226.02101,"993,906.6 ",.01)

 ;;906.6

 ;;9002226.02101,"993,906.6 ",.02)

 ;;906.6

 ;;9002226.02101,"993,906.7 ",.01)

 ;;906.7

 ;;9002226.02101,"993,906.7 ",.02)

 ;;906.7

 ;;9002226.02101,"993,906.8 ",.01)

 ;;906.8

 ;;9002226.02101,"993,906.8 ",.02)

 ;;906.8

 ;;9002226.02101,"993,906.9 ",.01)

 ;;906.9

 ;;9002226.02101,"993,906.9 ",.02)

 ;;906.9

 ;;9002226.02101,"993,907 ",.01)

 ;;907

 ;;9002226.02101,"993,907 ",.02)

 ;;907

 ;;9002226.02101,"993,907.0 ",.01)

 ;;907.0

 ;;9002226.02101,"993,907.0 ",.02)

 ;;907.0

 ;;9002226.02101,"993,907.1 ",.01)

 ;;907.1

 ;;9002226.02101,"993,907.1 ",.02)

 ;;907.1

 ;;9002226.02101,"993,907.2 ",.01)

 ;;907.2

 ;;9002226.02101,"993,907.2 ",.02)

 ;;907.2

 ;;9002226.02101,"993,907.3 ",.01)

 ;;907.3

 ;;9002226.02101,"993,907.3 ",.02)

 ;;907.3

 ;;9002226.02101,"993,907.4 ",.01)

 ;;907.4

 ;;9002226.02101,"993,907.4 ",.02)

 ;;907.4

 ;;9002226.02101,"993,907.5 ",.01)

 ;;907.5

 ;;9002226.02101,"993,907.5 ",.02)

 ;;907.5

 ;;9002226.02101,"993,907.9 ",.01)

 ;;907.9

 ;;9002226.02101,"993,907.9 ",.02)

 ;;907.9

 ;;9002226.02101,"993,908 ",.01)

 ;;908

 ;;9002226.02101,"993,908 ",.02)

 ;;908

 ;;9002226.02101,"993,908.0 ",.01)

 ;;908.0

 ;;9002226.02101,"993,908.0 ",.02)

 ;;908.0

 ;;9002226.02101,"993,908.1 ",.01)

 ;;908.1

 ;;9002226.02101,"993,908.1 ",.02)

 ;;908.1

 ;;9002226.02101,"993,908.2 ",.01)

 ;;908.2

 ;;9002226.02101,"993,908.2 ",.02)

 ;;908.2

 ;;9002226.02101,"993,908.3 ",.01)

 ;;908.3

 ;;9002226.02101,"993,908.3 ",.02)

 ;;908.3

 ;;9002226.02101,"993,908.4 ",.01)

 ;;908.4

 ;;9002226.02101,"993,908.4 ",.02)

 ;;908.4

 ;;9002226.02101,"993,908.5 ",.01)

 ;;908.5

 ;;9002226.02101,"993,908.5 ",.02)

 ;;908.5

 ;;9002226.02101,"993,908.6 ",.01)

 ;;908.6

 ;;9002226.02101,"993,908.6 ",.02)

 ;;908.6

 ;;9002226.02101,"993,908.9 ",.01)

 ;;908.9

 ;;9002226.02101,"993,908.9 ",.02)

 ;;908.9

 ;;9002226.02101,"993,909 ",.01)

 ;;909

 ;;9002226.02101,"993,909 ",.02)

 ;;909

 ;;9002226.02101,"993,909.0 ",.01)

 ;;909.0

 ;;9002226.02101,"993,909.0 ",.02)

 ;;909.0

 ;;9002226.02101,"993,909.1 ",.01)

 ;;909.1

 ;;9002226.02101,"993,909.1 ",.02)

 ;;909.1

 ;;9002226.02101,"993,909.2 ",.01)

 ;;909.2

 ;;9002226.02101,"993,909.2 ",.02)

 ;;909.2

 ;;9002226.02101,"993,909.3 ",.01)

 ;;909.3

 ;;9002226.02101,"993,909.3 ",.02)

 ;;909.3

 ;;9002226.02101,"993,909.4 ",.01)

 ;;909.4

 ;;9002226.02101,"993,909.4 ",.02)

 ;;909.4

 ;;9002226.02101,"993,909.5 ",.01)

 ;;909.5

 ;;9002226.02101,"993,909.5 ",.02)

 ;;909.5

 ;;9002226.02101,"993,909.9 ",.01)

 ;;909.9

 ;;9002226.02101,"993,909.9 ",.02)

 ;;909.9

 ;;9002226.02101,"993,926.11 ",.01)

 ;;926.11

 ;;9002226.02101,"993,926.11 ",.02)

 ;;926.11

 ;;9002226.02101,"993,926.12 ",.01)

 ;;926.12

 ;;9002226.02101,"993,926.12 ",.02)

 ;;926.12

 ;;9002226.02101,"993,929 ",.01)

 ;;929

 ;;9002226.02101,"993,929 ",.02)

 ;;929

 ;;9002226.02101,"993,929.0 ",.01)

 ;;929.0

 ;;9002226.02101,"993,929.0 ",.02)

 ;;929.0

 ;;9002226.02101,"993,929.9 ",.01)

 ;;929.9

 ;;9002226.02101,"993,929.9 ",.02)

 ;;929.9

 ;;9002226.02101,"993,952 ",.01)

 ;;952

 ;;9002226.02101,"993,952 ",.02)

 ;;952

 ;;9002226.02101,"993,952.0 ",.01)

 ;;952.0

 ;;9002226.02101,"993,952.0 ",.02)

 ;;952.0

 ;;9002226.02101,"993,952.00 ",.01)

 ;;952.00

 ;;9002226.02101,"993,952.00 ",.02)

 ;;952.00

 ;;9002226.02101,"993,952.01 ",.01)

 ;;952.01

 ;;9002226.02101,"993,952.01 ",.02)

 ;;952.01

 ;;9002226.02101,"993,952.03 ",.01)

 ;;952.03

 ;;9002226.02101,"993,952.03 ",.02)

 ;;952.03

 ;;9002226.02101,"993,952.04 ",.01)

 ;;952.04

 ;;9002226.02101,"993,952.04 ",.02)

 ;;952.04

 ;;9002226.02101,"993,952.05 ",.01)

 ;;952.05

 ;;9002226.02101,"993,952.05 ",.02)

 ;;952.05

 ;;9002226.02101,"993,952.06 ",.01)

 ;;952.06

 ;;9002226.02101,"993,952.06 ",.02)

 ;;952.06

 ;;9002226.02101,"993,952.07 ",.01)

 ;;952.07

 ;;9002226.02101,"993,952.07 ",.02)

 ;;952.07

 ;;9002226.02101,"993,952.08 ",.01)

 ;;952.08

 ;;9002226.02101,"993,952.08 ",.02)

 ;;952.08

 ;;9002226.02101,"993,952.09 ",.01)

 ;;952.09

 ;;9002226.02101,"993,952.09 ",.02)

 ;;952.09

 ;;9002226.02101,"993,952.1 ",.01)

 ;;952.1

 ;;9002226.02101,"993,952.1 ",.02)

 ;;952.1

 ;;9002226.02101,"993,952.10 ",.01)

 ;;952.10

 ;;9002226.02101,"993,952.10 ",.02)

 ;;952.10

 ;;9002226.02101,"993,952.11 ",.01)

 ;;952.11

 ;;9002226.02101,"993,952.11 ",.02)

 ;;952.11

 ;;9002226.02101,"993,952.12 ",.01)

 ;;952.12

 ;;9002226.02101,"993,952.12 ",.02)

 ;;952.12

 ;;9002226.02101,"993,952.13 ",.01)

 ;;952.13

 ;;9002226.02101,"993,952.13 ",.02)

 ;;952.13

 ;;9002226.02101,"993,952.14 ",.01)

 ;;952.14

 ;;9002226.02101,"993,952.14 ",.02)

 ;;952.14

 ;;9002226.02101,"993,952.15 ",.01)

 ;;952.15

 ;;9002226.02101,"993,952.15 ",.02)

 ;;952.15

 ;;9002226.02101,"993,952.16 ",.01)

 ;;952.16

 ;;9002226.02101,"993,952.16 ",.02)

 ;;952.16

 ;;9002226.02101,"993,952.17 ",.01)

 ;;952.17

 ;;9002226.02101,"993,952.17 ",.02)

 ;;952.17

 ;;9002226.02101,"993,952.18 ",.01)

 ;;952.18

 ;;9002226.02101,"993,952.18 ",.02)

 ;;952.18

 ;;9002226.02101,"993,952.19 ",.01)

 ;;952.19

 ;;9002226.02101,"993,952.19 ",.02)

 ;;952.19

 ;;9002226.02101,"993,952.2 ",.01)

 ;;952.2

 ;;9002226.02101,"993,952.2 ",.02)

 ;;952.2

 ;;9002226.02101,"993,952.3 ",.01)

 ;;952.3

 ;;9002226.02101,"993,952.3 ",.02)

 ;;952.3

 ;;9002226.02101,"993,952.4 ",.01)

 ;;952.4

 ;;9002226.02101,"993,952.4 ",.02)

 ;;952.4

 ;;9002226.02101,"993,952.8 ",.01)

 ;;952.8

 ;;9002226.02101,"993,952.8 ",.02)

 ;;952.8

 ;;9002226.02101,"993,952.9 ",.01)

 ;;952.9

 ;;9002226.02101,"993,952.9 ",.02)

 ;;952.9

 ;;9002226.02101,"993,958 ",.01)

 ;;958

 ;;9002226.02101,"993,958 ",.02)

 ;;958

 ;;9002226.02101,"993,958.0 ",.01)

 ;;958.0

 ;;9002226.02101,"993,958.0 ",.02)

 ;;958.0

 ;;9002226.02101,"993,958.1 ",.01)

 ;;958.1

 ;;9002226.02101,"993,958.1 ",.02)

 ;;958.1

 ;;9002226.02101,"993,958.2 ",.01)

 ;;958.2

 ;;9002226.02101,"993,958.2 ",.02)

 ;;958.2

 ;;9002226.02101,"993,958.3 ",.01)

 ;;958.3

 ;;9002226.02101,"993,958.3 ",.02)

 ;;958.3

 ;;9002226.02101,"993,958.4 ",.01)

 ;;958.4

 ;;9002226.02101,"993,958.4 ",.02)

 ;;958.4

 ;;9002226.02101,"993,958.5 ",.01)

 ;;958.5

 ;;9002226.02101,"993,958.5 ",.02)

 ;;958.5

 ;;9002226.02101,"993,958.6 ",.01)

 ;;958.6

 ;;9002226.02101,"993,958.6 ",.02)

 ;;958.6

 ;;9002226.02101,"993,958.7 ",.01)

 ;;958.7

 ;;9002226.02101,"993,958.7 ",.02)

 ;;958.7

 ;;9002226.02101,"993,958.8 ",.01)

 ;;958.8

 ;;9002226.02101,"993,958.8 ",.02)

 ;;958.8

 ;;9002226.02101,"993,958.9 ",.01)

 ;;958.9

 ;;9002226.02101,"993,958.9 ",.02)

 ;;958.9

 ;;9002226.02101,"993,958.90 ",.01)

 ;;958.90

 ;;9002226.02101,"993,958.90 ",.02)

 ;;958.90

 ;;9002226.02101,"993,958.91 ",.01)

 ;;958.91

 ;;9002226.02101,"993,958.91 ",.02)

 ;;958.91

 ;;9002226.02101,"993,958.92 ",.01)

 ;;958.92

 ;;9002226.02101,"993,958.92 ",.02)

 ;;958.92

 ;;9002226.02101,"993,958.93 ",.01)

 ;;958.93

 ;;9002226.02101,"993,958.93 ",.02)

 ;;958.93

 ;;9002226.02101,"993,958.99 ",.01)

 ;;958.99

 ;;9002226.02101,"993,958.99 ",.02)

 ;;958.99

 ;;9002226.02101,"993,959 ",.01)

 ;;959

 ;;9002226.02101,"993,959 ",.02)

 ;;959

 ;;9002226.02101,"993,959.0 ",.01)

 ;;959.0

 ;;9002226.02101,"993,959.0 ",.02)

 ;;959.0

 ;;9002226.02101,"993,959.01 ",.01)

 ;;959.01

 ;;9002226.02101,"993,959.01 ",.02)

 ;;959.01

 ;;9002226.02101,"993,959.09 ",.01)

 ;;959.09

 ;;9002226.02101,"993,959.09 ",.02)

 ;;959.09

 ;;9002226.02101,"993,959.1 ",.01)

 ;;959.1

 ;;9002226.02101,"993,959.1 ",.02)

 ;;959.1

 ;;9002226.02101,"993,959.11 ",.01)

 ;;959.11

 ;;9002226.02101,"993,959.11 ",.02)

 ;;959.11

 ;;9002226.02101,"993,959.12 ",.01)

 ;;959.12

 ;;9002226.02101,"993,959.12 ",.02)

 ;;959.12

 ;;9002226.02101,"993,959.13 ",.01)

 ;;959.13

 ;;9002226.02101,"993,959.13 ",.02)

 ;;959.13

 ;;9002226.02101,"993,959.14 ",.01)

 ;;959.14

 ;;9002226.02101,"993,959.14 ",.02)

 ;;959.14

 ;;9002226.02101,"993,959.19 ",.01)

 ;;959.19

BGPM5AOU  ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 09, 2011;

 +1       ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106

 +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,"993,867.6 ",.02)

 +2       ;;867.6

 +3       ;;9002226.02101,"993,867.7 ",.01)

 +4       ;;867.7

 +5       ;;9002226.02101,"993,867.7 ",.02)

 +6       ;;867.7

 +7       ;;9002226.02101,"993,867.8 ",.01)

 +8       ;;867.8

 +9       ;;9002226.02101,"993,867.8 ",.02)

 +10      ;;867.8

 +11      ;;9002226.02101,"993,867.9 ",.01)

 +12      ;;867.9

 +13      ;;9002226.02101,"993,867.9 ",.02)

 +14      ;;867.9

 +15      ;;9002226.02101,"993,868 ",.01)

 +16      ;;868

 +17      ;;9002226.02101,"993,868 ",.02)

 +18      ;;868

 +19      ;;9002226.02101,"993,868.0 ",.01)

 +20      ;;868.0

 +21      ;;9002226.02101,"993,868.0 ",.02)

 +22      ;;868.0

 +23      ;;9002226.02101,"993,868.00 ",.01)

 +24      ;;868.00

 +25      ;;9002226.02101,"993,868.00 ",.02)

 +26      ;;868.00

 +27      ;;9002226.02101,"993,868.01 ",.01)

 +28      ;;868.01

 +29      ;;9002226.02101,"993,868.01 ",.02)

 +30      ;;868.01

 +31      ;;9002226.02101,"993,868.02 ",.01)

 +32      ;;868.02

 +33      ;;9002226.02101,"993,868.02 ",.02)

 +34      ;;868.02

 +35      ;;9002226.02101,"993,868.03 ",.01)

 +36      ;;868.03

 +37      ;;9002226.02101,"993,868.03 ",.02)

 +38      ;;868.03

 +39      ;;9002226.02101,"993,868.04 ",.01)

 +40      ;;868.04

 +41      ;;9002226.02101,"993,868.04 ",.02)

 +42      ;;868.04

 +43      ;;9002226.02101,"993,868.09 ",.01)

 +44      ;;868.09

 +45      ;;9002226.02101,"993,868.09 ",.02)

 +46      ;;868.09

 +47      ;;9002226.02101,"993,868.1 ",.01)

 +48      ;;868.1

 +49      ;;9002226.02101,"993,868.1 ",.02)

 +50      ;;868.1

 +51      ;;9002226.02101,"993,868.10 ",.01)

 +52      ;;868.10

 +53      ;;9002226.02101,"993,868.10 ",.02)

 +54      ;;868.10

 +55      ;;9002226.02101,"993,868.11 ",.01)

 +56      ;;868.11

 +57      ;;9002226.02101,"993,868.11 ",.02)

 +58      ;;868.11

 +59      ;;9002226.02101,"993,868.12 ",.01)

 +60      ;;868.12

 +61      ;;9002226.02101,"993,868.12 ",.02)

 +62      ;;868.12

 +63      ;;9002226.02101,"993,868.13 ",.01)

 +64      ;;868.13

 +65      ;;9002226.02101,"993,868.13 ",.02)

 +66      ;;868.13

 +67      ;;9002226.02101,"993,868.14 ",.01)

 +68      ;;868.14

 +69      ;;9002226.02101,"993,868.14 ",.02)

 +70      ;;868.14

 +71      ;;9002226.02101,"993,868.19 ",.01)

 +72      ;;868.19

 +73      ;;9002226.02101,"993,868.19 ",.02)

 +74      ;;868.19

 +75      ;;9002226.02101,"993,869 ",.01)

 +76      ;;869

 +77      ;;9002226.02101,"993,869 ",.02)

 +78      ;;869

 +79      ;;9002226.02101,"993,869.0 ",.01)

 +80      ;;869.0

 +81      ;;9002226.02101,"993,869.0 ",.02)

 +82      ;;869.0

 +83      ;;9002226.02101,"993,869.1 ",.01)

 +84      ;;869.1

 +85      ;;9002226.02101,"993,869.1 ",.02)

 +86      ;;869.1

 +87      ;;9002226.02101,"993,905 ",.01)

 +88      ;;905

 +89      ;;9002226.02101,"993,905 ",.02)

 +90      ;;905

 +91      ;;9002226.02101,"993,905.0 ",.01)

 +92      ;;905.0

 +93      ;;9002226.02101,"993,905.0 ",.02)

 +94      ;;905.0

 +95      ;;9002226.02101,"993,905.1 ",.01)

 +96      ;;905.1

 +97      ;;9002226.02101,"993,905.1 ",.02)

 +98      ;;905.1

 +99      ;;9002226.02101,"993,905.2 ",.01)

 +100     ;;905.2

 +101     ;;9002226.02101,"993,905.2 ",.02)

 +102     ;;905.2

 +103     ;;9002226.02101,"993,905.3 ",.01)

 +104     ;;905.3

 +105     ;;9002226.02101,"993,905.3 ",.02)

 +106     ;;905.3

 +107     ;;9002226.02101,"993,905.4 ",.01)

 +108     ;;905.4

 +109     ;;9002226.02101,"993,905.4 ",.02)

 +110     ;;905.4

 +111     ;;9002226.02101,"993,905.5 ",.01)

 +112     ;;905.5

 +113     ;;9002226.02101,"993,905.5 ",.02)

 +114     ;;905.5

 +115     ;;9002226.02101,"993,905.6 ",.01)

 +116     ;;905.6

 +117     ;;9002226.02101,"993,905.6 ",.02)

 +118     ;;905.6

 +119     ;;9002226.02101,"993,905.7 ",.01)

 +120     ;;905.7

 +121     ;;9002226.02101,"993,905.7 ",.02)

 +122     ;;905.7

 +123     ;;9002226.02101,"993,905.8 ",.01)

 +124     ;;905.8

 +125     ;;9002226.02101,"993,905.8 ",.02)

 +126     ;;905.8

 +127     ;;9002226.02101,"993,905.9 ",.01)

 +128     ;;905.9

 +129     ;;9002226.02101,"993,905.9 ",.02)

 +130     ;;905.9

 +131     ;;9002226.02101,"993,906 ",.01)

 +132     ;;906

 +133     ;;9002226.02101,"993,906 ",.02)

 +134     ;;906

 +135     ;;9002226.02101,"993,906.0 ",.01)

 +136     ;;906.0

 +137     ;;9002226.02101,"993,906.0 ",.02)

 +138     ;;906.0

 +139     ;;9002226.02101,"993,906.1 ",.01)

 +140     ;;906.1

 +141     ;;9002226.02101,"993,906.1 ",.02)

 +142     ;;906.1

 +143     ;;9002226.02101,"993,906.2 ",.01)

 +144     ;;906.2

 +145     ;;9002226.02101,"993,906.2 ",.02)

 +146     ;;906.2

 +147     ;;9002226.02101,"993,906.3 ",.01)

 +148     ;;906.3

 +149     ;;9002226.02101,"993,906.3 ",.02)

 +150     ;;906.3

 +151     ;;9002226.02101,"993,906.4 ",.01)

 +152     ;;906.4

 +153     ;;9002226.02101,"993,906.4 ",.02)

 +154     ;;906.4

 +155     ;;9002226.02101,"993,906.5 ",.01)

 +156     ;;906.5

 +157     ;;9002226.02101,"993,906.5 ",.02)

 +158     ;;906.5

 +159     ;;9002226.02101,"993,906.6 ",.01)

 +160     ;;906.6

 +161     ;;9002226.02101,"993,906.6 ",.02)

 +162     ;;906.6

 +163     ;;9002226.02101,"993,906.7 ",.01)

 +164     ;;906.7

 +165     ;;9002226.02101,"993,906.7 ",.02)

 +166     ;;906.7

 +167     ;;9002226.02101,"993,906.8 ",.01)

 +168     ;;906.8

 +169     ;;9002226.02101,"993,906.8 ",.02)

 +170     ;;906.8

 +171     ;;9002226.02101,"993,906.9 ",.01)

 +172     ;;906.9

 +173     ;;9002226.02101,"993,906.9 ",.02)

 +174     ;;906.9

 +175     ;;9002226.02101,"993,907 ",.01)

 +176     ;;907

 +177     ;;9002226.02101,"993,907 ",.02)

 +178     ;;907

 +179     ;;9002226.02101,"993,907.0 ",.01)

 +180     ;;907.0

 +181     ;;9002226.02101,"993,907.0 ",.02)

 +182     ;;907.0

 +183     ;;9002226.02101,"993,907.1 ",.01)

 +184     ;;907.1

 +185     ;;9002226.02101,"993,907.1 ",.02)

 +186     ;;907.1

 +187     ;;9002226.02101,"993,907.2 ",.01)

 +188     ;;907.2

 +189     ;;9002226.02101,"993,907.2 ",.02)

 +190     ;;907.2

 +191     ;;9002226.02101,"993,907.3 ",.01)

 +192     ;;907.3

 +193     ;;9002226.02101,"993,907.3 ",.02)

 +194     ;;907.3

 +195     ;;9002226.02101,"993,907.4 ",.01)

 +196     ;;907.4

 +197     ;;9002226.02101,"993,907.4 ",.02)

 +198     ;;907.4

 +199     ;;9002226.02101,"993,907.5 ",.01)

 +200     ;;907.5

 +201     ;;9002226.02101,"993,907.5 ",.02)

 +202     ;;907.5

 +203     ;;9002226.02101,"993,907.9 ",.01)

 +204     ;;907.9

 +205     ;;9002226.02101,"993,907.9 ",.02)

 +206     ;;907.9

 +207     ;;9002226.02101,"993,908 ",.01)

 +208     ;;908

 +209     ;;9002226.02101,"993,908 ",.02)

 +210     ;;908

 +211     ;;9002226.02101,"993,908.0 ",.01)

 +212     ;;908.0

 +213     ;;9002226.02101,"993,908.0 ",.02)

 +214     ;;908.0

 +215     ;;9002226.02101,"993,908.1 ",.01)

 +216     ;;908.1

 +217     ;;9002226.02101,"993,908.1 ",.02)

 +218     ;;908.1

 +219     ;;9002226.02101,"993,908.2 ",.01)

 +220     ;;908.2

 +221     ;;9002226.02101,"993,908.2 ",.02)

 +222     ;;908.2

 +223     ;;9002226.02101,"993,908.3 ",.01)

 +224     ;;908.3

 +225     ;;9002226.02101,"993,908.3 ",.02)

 +226     ;;908.3

 +227     ;;9002226.02101,"993,908.4 ",.01)

 +228     ;;908.4

 +229     ;;9002226.02101,"993,908.4 ",.02)

 +230     ;;908.4

 +231     ;;9002226.02101,"993,908.5 ",.01)

 +232     ;;908.5

 +233     ;;9002226.02101,"993,908.5 ",.02)

 +234     ;;908.5

 +235     ;;9002226.02101,"993,908.6 ",.01)

 +236     ;;908.6

 +237     ;;9002226.02101,"993,908.6 ",.02)

 +238     ;;908.6

 +239     ;;9002226.02101,"993,908.9 ",.01)

 +240     ;;908.9

 +241     ;;9002226.02101,"993,908.9 ",.02)

 +242     ;;908.9

 +243     ;;9002226.02101,"993,909 ",.01)

 +244     ;;909

 +245     ;;9002226.02101,"993,909 ",.02)

 +246     ;;909

 +247     ;;9002226.02101,"993,909.0 ",.01)

 +248     ;;909.0

 +249     ;;9002226.02101,"993,909.0 ",.02)

 +250     ;;909.0

 +251     ;;9002226.02101,"993,909.1 ",.01)

 +252     ;;909.1

 +253     ;;9002226.02101,"993,909.1 ",.02)

 +254     ;;909.1

 +255     ;;9002226.02101,"993,909.2 ",.01)

 +256     ;;909.2

 +257     ;;9002226.02101,"993,909.2 ",.02)

 +258     ;;909.2

 +259     ;;9002226.02101,"993,909.3 ",.01)

 +260     ;;909.3

 +261     ;;9002226.02101,"993,909.3 ",.02)

 +262     ;;909.3

 +263     ;;9002226.02101,"993,909.4 ",.01)

 +264     ;;909.4

 +265     ;;9002226.02101,"993,909.4 ",.02)

 +266     ;;909.4

 +267     ;;9002226.02101,"993,909.5 ",.01)

 +268     ;;909.5

 +269     ;;9002226.02101,"993,909.5 ",.02)

 +270     ;;909.5

 +271     ;;9002226.02101,"993,909.9 ",.01)

 +272     ;;909.9

 +273     ;;9002226.02101,"993,909.9 ",.02)

 +274     ;;909.9

 +275     ;;9002226.02101,"993,926.11 ",.01)

 +276     ;;926.11

 +277     ;;9002226.02101,"993,926.11 ",.02)

 +278     ;;926.11

 +279     ;;9002226.02101,"993,926.12 ",.01)

 +280     ;;926.12

 +281     ;;9002226.02101,"993,926.12 ",.02)

 +282     ;;926.12

 +283     ;;9002226.02101,"993,929 ",.01)

 +284     ;;929

 +285     ;;9002226.02101,"993,929 ",.02)

 +286     ;;929

 +287     ;;9002226.02101,"993,929.0 ",.01)

 +288     ;;929.0

 +289     ;;9002226.02101,"993,929.0 ",.02)

 +290     ;;929.0

 +291     ;;9002226.02101,"993,929.9 ",.01)

 +292     ;;929.9

 +293     ;;9002226.02101,"993,929.9 ",.02)

 +294     ;;929.9

 +295     ;;9002226.02101,"993,952 ",.01)

 +296     ;;952

 +297     ;;9002226.02101,"993,952 ",.02)

 +298     ;;952

 +299     ;;9002226.02101,"993,952.0 ",.01)

 +300     ;;952.0

 +301     ;;9002226.02101,"993,952.0 ",.02)

 +302     ;;952.0

 +303     ;;9002226.02101,"993,952.00 ",.01)

 +304     ;;952.00

 +305     ;;9002226.02101,"993,952.00 ",.02)

 +306     ;;952.00

 +307     ;;9002226.02101,"993,952.01 ",.01)

 +308     ;;952.01

 +309     ;;9002226.02101,"993,952.01 ",.02)

 +310     ;;952.01

 +311     ;;9002226.02101,"993,952.03 ",.01)

 +312     ;;952.03

 +313     ;;9002226.02101,"993,952.03 ",.02)

 +314     ;;952.03

 +315     ;;9002226.02101,"993,952.04 ",.01)

 +316     ;;952.04

 +317     ;;9002226.02101,"993,952.04 ",.02)

 +318     ;;952.04

 +319     ;;9002226.02101,"993,952.05 ",.01)

 +320     ;;952.05

 +321     ;;9002226.02101,"993,952.05 ",.02)

 +322     ;;952.05

 +323     ;;9002226.02101,"993,952.06 ",.01)

 +324     ;;952.06

 +325     ;;9002226.02101,"993,952.06 ",.02)

 +326     ;;952.06

 +327     ;;9002226.02101,"993,952.07 ",.01)

 +328     ;;952.07

 +329     ;;9002226.02101,"993,952.07 ",.02)

 +330     ;;952.07

 +331     ;;9002226.02101,"993,952.08 ",.01)

 +332     ;;952.08

 +333     ;;9002226.02101,"993,952.08 ",.02)

 +334     ;;952.08

 +335     ;;9002226.02101,"993,952.09 ",.01)

 +336     ;;952.09

 +337     ;;9002226.02101,"993,952.09 ",.02)

 +338     ;;952.09

 +339     ;;9002226.02101,"993,952.1 ",.01)

 +340     ;;952.1

 +341     ;;9002226.02101,"993,952.1 ",.02)

 +342     ;;952.1

 +343     ;;9002226.02101,"993,952.10 ",.01)

 +344     ;;952.10

 +345     ;;9002226.02101,"993,952.10 ",.02)

 +346     ;;952.10

 +347     ;;9002226.02101,"993,952.11 ",.01)

 +348     ;;952.11

 +349     ;;9002226.02101,"993,952.11 ",.02)

 +350     ;;952.11

 +351     ;;9002226.02101,"993,952.12 ",.01)

 +352     ;;952.12

 +353     ;;9002226.02101,"993,952.12 ",.02)

 +354     ;;952.12

 +355     ;;9002226.02101,"993,952.13 ",.01)

 +356     ;;952.13

 +357     ;;9002226.02101,"993,952.13 ",.02)

 +358     ;;952.13

 +359     ;;9002226.02101,"993,952.14 ",.01)

 +360     ;;952.14

 +361     ;;9002226.02101,"993,952.14 ",.02)

 +362     ;;952.14

 +363     ;;9002226.02101,"993,952.15 ",.01)

 +364     ;;952.15

 +365     ;;9002226.02101,"993,952.15 ",.02)

 +366     ;;952.15

 +367     ;;9002226.02101,"993,952.16 ",.01)

 +368     ;;952.16

 +369     ;;9002226.02101,"993,952.16 ",.02)

 +370     ;;952.16

 +371     ;;9002226.02101,"993,952.17 ",.01)

 +372     ;;952.17

 +373     ;;9002226.02101,"993,952.17 ",.02)

 +374     ;;952.17

 +375     ;;9002226.02101,"993,952.18 ",.01)

 +376     ;;952.18

 +377     ;;9002226.02101,"993,952.18 ",.02)

 +378     ;;952.18

 +379     ;;9002226.02101,"993,952.19 ",.01)

 +380     ;;952.19

 +381     ;;9002226.02101,"993,952.19 ",.02)

 +382     ;;952.19

 +383     ;;9002226.02101,"993,952.2 ",.01)

 +384     ;;952.2

 +385     ;;9002226.02101,"993,952.2 ",.02)

 +386     ;;952.2

 +387     ;;9002226.02101,"993,952.3 ",.01)

 +388     ;;952.3

 +389     ;;9002226.02101,"993,952.3 ",.02)

 +390     ;;952.3

 +391     ;;9002226.02101,"993,952.4 ",.01)

 +392     ;;952.4

 +393     ;;9002226.02101,"993,952.4 ",.02)

 +394     ;;952.4

 +395     ;;9002226.02101,"993,952.8 ",.01)

 +396     ;;952.8

 +397     ;;9002226.02101,"993,952.8 ",.02)

 +398     ;;952.8

 +399     ;;9002226.02101,"993,952.9 ",.01)

 +400     ;;952.9

 +401     ;;9002226.02101,"993,952.9 ",.02)

 +402     ;;952.9

 +403     ;;9002226.02101,"993,958 ",.01)

 +404     ;;958

 +405     ;;9002226.02101,"993,958 ",.02)

 +406     ;;958

 +407     ;;9002226.02101,"993,958.0 ",.01)

 +408     ;;958.0

 +409     ;;9002226.02101,"993,958.0 ",.02)

 +410     ;;958.0

 +411     ;;9002226.02101,"993,958.1 ",.01)

 +412     ;;958.1

 +413     ;;9002226.02101,"993,958.1 ",.02)

 +414     ;;958.1

 +415     ;;9002226.02101,"993,958.2 ",.01)

 +416     ;;958.2

 +417     ;;9002226.02101,"993,958.2 ",.02)

 +418     ;;958.2

 +419     ;;9002226.02101,"993,958.3 ",.01)

 +420     ;;958.3

 +421     ;;9002226.02101,"993,958.3 ",.02)

 +422     ;;958.3

 +423     ;;9002226.02101,"993,958.4 ",.01)

 +424     ;;958.4

 +425     ;;9002226.02101,"993,958.4 ",.02)

 +426     ;;958.4

 +427     ;;9002226.02101,"993,958.5 ",.01)

 +428     ;;958.5

 +429     ;;9002226.02101,"993,958.5 ",.02)

 +430     ;;958.5

 +431     ;;9002226.02101,"993,958.6 ",.01)

 +432     ;;958.6

 +433     ;;9002226.02101,"993,958.6 ",.02)

 +434     ;;958.6

 +435     ;;9002226.02101,"993,958.7 ",.01)

 +436     ;;958.7

 +437     ;;9002226.02101,"993,958.7 ",.02)

 +438     ;;958.7

 +439     ;;9002226.02101,"993,958.8 ",.01)

 +440     ;;958.8

 +441     ;;9002226.02101,"993,958.8 ",.02)

 +442     ;;958.8

 +443     ;;9002226.02101,"993,958.9 ",.01)

 +444     ;;958.9

 +445     ;;9002226.02101,"993,958.9 ",.02)

 +446     ;;958.9

 +447     ;;9002226.02101,"993,958.90 ",.01)

 +448     ;;958.90

 +449     ;;9002226.02101,"993,958.90 ",.02)

 +450     ;;958.90

 +451     ;;9002226.02101,"993,958.91 ",.01)

 +452     ;;958.91

 +453     ;;9002226.02101,"993,958.91 ",.02)

 +454     ;;958.91

 +455     ;;9002226.02101,"993,958.92 ",.01)

 +456     ;;958.92

 +457     ;;9002226.02101,"993,958.92 ",.02)

 +458     ;;958.92

 +459     ;;9002226.02101,"993,958.93 ",.01)

 +460     ;;958.93

 +461     ;;9002226.02101,"993,958.93 ",.02)

 +462     ;;958.93

 +463     ;;9002226.02101,"993,958.99 ",.01)

 +464     ;;958.99

 +465     ;;9002226.02101,"993,958.99 ",.02)

 +466     ;;958.99

 +467     ;;9002226.02101,"993,959 ",.01)

 +468     ;;959

 +469     ;;9002226.02101,"993,959 ",.02)

 +470     ;;959

 +471     ;;9002226.02101,"993,959.0 ",.01)

 +472     ;;959.0

 +473     ;;9002226.02101,"993,959.0 ",.02)

 +474     ;;959.0

 +475     ;;9002226.02101,"993,959.01 ",.01)

 +476     ;;959.01

 +477     ;;9002226.02101,"993,959.01 ",.02)

 +478     ;;959.01

 +479     ;;9002226.02101,"993,959.09 ",.01)

 +480     ;;959.09

 +481     ;;9002226.02101,"993,959.09 ",.02)

 +482     ;;959.09

 +483     ;;9002226.02101,"993,959.1 ",.01)

 +484     ;;959.1

 +485     ;;9002226.02101,"993,959.1 ",.02)

 +486     ;;959.1

 +487     ;;9002226.02101,"993,959.11 ",.01)

 +488     ;;959.11

 +489     ;;9002226.02101,"993,959.11 ",.02)

 +490     ;;959.11

 +491     ;;9002226.02101,"993,959.12 ",.01)

 +492     ;;959.12

 +493     ;;9002226.02101,"993,959.12 ",.02)

 +494     ;;959.12

 +495     ;;9002226.02101,"993,959.13 ",.01)

 +496     ;;959.13

 +497     ;;9002226.02101,"993,959.13 ",.02)

 +498     ;;959.13

 +499     ;;9002226.02101,"993,959.14 ",.01)

 +500     ;;959.14

 +501     ;;9002226.02101,"993,959.14 ",.02)

 +502     ;;959.14

 +503     ;;9002226.02101,"993,959.19 ",.01)

 +504     ;;959.19

BGPM5AOU.m