Routine: BGPM5AGO

BGPM5AGO ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 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,"882,41284057100 ",.02)

 ;;41284057100

 ;;9002226.02101,"882,41284057101 ",.01)

 ;;41284057101

 ;;9002226.02101,"882,41284057101 ",.02)

 ;;41284057101

 ;;9002226.02101,"882,41284057150 ",.01)

 ;;41284057150

 ;;9002226.02101,"882,41284057150 ",.02)

 ;;41284057150

 ;;9002226.02101,"882,41284057200 ",.01)

 ;;41284057200

 ;;9002226.02101,"882,41284057200 ",.02)

 ;;41284057200

 ;;9002226.02101,"882,41284057201 ",.01)

 ;;41284057201

 ;;9002226.02101,"882,41284057201 ",.02)

 ;;41284057201

 ;;9002226.02101,"882,41284057250 ",.01)

 ;;41284057250

 ;;9002226.02101,"882,41284057250 ",.02)

 ;;41284057250

 ;;9002226.02101,"882,41284057300 ",.01)

 ;;41284057300

 ;;9002226.02101,"882,41284057300 ",.02)

 ;;41284057300

 ;;9002226.02101,"882,41284057301 ",.01)

 ;;41284057301

 ;;9002226.02101,"882,41284057301 ",.02)

 ;;41284057301

 ;;9002226.02101,"882,41284057350 ",.01)

 ;;41284057350

 ;;9002226.02101,"882,41284057350 ",.02)

 ;;41284057350

 ;;9002226.02101,"882,43063000701 ",.01)

 ;;43063000701

 ;;9002226.02101,"882,43063000701 ",.02)

 ;;43063000701

 ;;9002226.02101,"882,43063003201 ",.01)

 ;;43063003201

 ;;9002226.02101,"882,43063003201 ",.02)

 ;;43063003201

 ;;9002226.02101,"882,43063006530 ",.01)

 ;;43063006530

 ;;9002226.02101,"882,43063006530 ",.02)

 ;;43063006530

 ;;9002226.02101,"882,43063006590 ",.01)

 ;;43063006590

 ;;9002226.02101,"882,43063006590 ",.02)

 ;;43063006590

 ;;9002226.02101,"882,43063011830 ",.01)

 ;;43063011830

 ;;9002226.02101,"882,43063011830 ",.02)

 ;;43063011830

 ;;9002226.02101,"882,43063011890 ",.01)

 ;;43063011890

 ;;9002226.02101,"882,43063011890 ",.02)

 ;;43063011890

 ;;9002226.02101,"882,43063013090 ",.01)

 ;;43063013090

 ;;9002226.02101,"882,43063013090 ",.02)

 ;;43063013090

 ;;9002226.02101,"882,43063013890 ",.01)

 ;;43063013890

 ;;9002226.02101,"882,43063013890 ",.02)

 ;;43063013890

 ;;9002226.02101,"882,43063014630 ",.01)

 ;;43063014630

 ;;9002226.02101,"882,43063014630 ",.02)

 ;;43063014630

 ;;9002226.02101,"882,43063030330 ",.01)

 ;;43063030330

 ;;9002226.02101,"882,43063030330 ",.02)

 ;;43063030330

 ;;9002226.02101,"882,43353004532 ",.01)

 ;;43353004532

 ;;9002226.02101,"882,43353004532 ",.02)

 ;;43353004532

 ;;9002226.02101,"882,43353004580 ",.01)

 ;;43353004580

 ;;9002226.02101,"882,43353004580 ",.02)

 ;;43353004580

 ;;9002226.02101,"882,43353005230 ",.01)

 ;;43353005230

 ;;9002226.02101,"882,43353005230 ",.02)

 ;;43353005230

 ;;9002226.02101,"882,43353005260 ",.01)

 ;;43353005260

 ;;9002226.02101,"882,43353005260 ",.02)

 ;;43353005260

 ;;9002226.02101,"882,43353030930 ",.01)

 ;;43353030930

 ;;9002226.02101,"882,43353030930 ",.02)

 ;;43353030930

 ;;9002226.02101,"882,43353030953 ",.01)

 ;;43353030953

 ;;9002226.02101,"882,43353030953 ",.02)

 ;;43353030953

 ;;9002226.02101,"882,43353031360 ",.01)

 ;;43353031360

 ;;9002226.02101,"882,43353031360 ",.02)

 ;;43353031360

 ;;9002226.02101,"882,43353031860 ",.01)

 ;;43353031860

 ;;9002226.02101,"882,43353031860 ",.02)

 ;;43353031860

 ;;9002226.02101,"882,43353035030 ",.01)

 ;;43353035030

 ;;9002226.02101,"882,43353035030 ",.02)

 ;;43353035030

 ;;9002226.02101,"882,43353035045 ",.01)

 ;;43353035045

 ;;9002226.02101,"882,43353035045 ",.02)

 ;;43353035045

 ;;9002226.02101,"882,43353035060 ",.01)

 ;;43353035060

 ;;9002226.02101,"882,43353035060 ",.02)

 ;;43353035060

 ;;9002226.02101,"882,43353035080 ",.01)

 ;;43353035080

 ;;9002226.02101,"882,43353035080 ",.02)

 ;;43353035080

 ;;9002226.02101,"882,43353035460 ",.01)

 ;;43353035460

 ;;9002226.02101,"882,43353035460 ",.02)

 ;;43353035460

 ;;9002226.02101,"882,43353035560 ",.01)

 ;;43353035560

 ;;9002226.02101,"882,43353035560 ",.02)

 ;;43353035560

 ;;9002226.02101,"882,43353036330 ",.01)

 ;;43353036330

 ;;9002226.02101,"882,43353036330 ",.02)

 ;;43353036330

 ;;9002226.02101,"882,43353036360 ",.01)

 ;;43353036360

 ;;9002226.02101,"882,43353036360 ",.02)

 ;;43353036360

 ;;9002226.02101,"882,43353036515 ",.01)

 ;;43353036515

 ;;9002226.02101,"882,43353036515 ",.02)

 ;;43353036515

 ;;9002226.02101,"882,43353036530 ",.01)

 ;;43353036530

 ;;9002226.02101,"882,43353036530 ",.02)

 ;;43353036530

 ;;9002226.02101,"882,43353036545 ",.01)

 ;;43353036545

 ;;9002226.02101,"882,43353036545 ",.02)

 ;;43353036545

 ;;9002226.02101,"882,43353036560 ",.01)

 ;;43353036560

 ;;9002226.02101,"882,43353036560 ",.02)

 ;;43353036560

 ;;9002226.02101,"882,43353037115 ",.01)

 ;;43353037115

 ;;9002226.02101,"882,43353037115 ",.02)

 ;;43353037115

 ;;9002226.02101,"882,43353037130 ",.01)

 ;;43353037130

 ;;9002226.02101,"882,43353037130 ",.02)

 ;;43353037130

 ;;9002226.02101,"882,43353037145 ",.01)

 ;;43353037145

 ;;9002226.02101,"882,43353037145 ",.02)

 ;;43353037145

 ;;9002226.02101,"882,43353037160 ",.01)

 ;;43353037160

 ;;9002226.02101,"882,43353037160 ",.02)

 ;;43353037160

 ;;9002226.02101,"882,43353037180 ",.01)

 ;;43353037180

 ;;9002226.02101,"882,43353037180 ",.02)

 ;;43353037180

 ;;9002226.02101,"882,43353037430 ",.01)

 ;;43353037430

 ;;9002226.02101,"882,43353037430 ",.02)

 ;;43353037430

 ;;9002226.02101,"882,43353037460 ",.01)

 ;;43353037460

 ;;9002226.02101,"882,43353037460 ",.02)

 ;;43353037460

 ;;9002226.02101,"882,43353041160 ",.01)

 ;;43353041160

 ;;9002226.02101,"882,43353041160 ",.02)

 ;;43353041160

 ;;9002226.02101,"882,43353048845 ",.01)

 ;;43353048845

 ;;9002226.02101,"882,43353048845 ",.02)

 ;;43353048845

 ;;9002226.02101,"882,43353048860 ",.01)

 ;;43353048860

 ;;9002226.02101,"882,43353048860 ",.02)

 ;;43353048860

 ;;9002226.02101,"882,43353051645 ",.01)

 ;;43353051645

 ;;9002226.02101,"882,43353051645 ",.02)

 ;;43353051645

 ;;9002226.02101,"882,43353052160 ",.01)

 ;;43353052160

 ;;9002226.02101,"882,43353052160 ",.02)

 ;;43353052160

 ;;9002226.02101,"882,43353052180 ",.01)

 ;;43353052180

 ;;9002226.02101,"882,43353052180 ",.02)

 ;;43353052180

 ;;9002226.02101,"882,43353059630 ",.01)

 ;;43353059630

 ;;9002226.02101,"882,43353059630 ",.02)

 ;;43353059630

 ;;9002226.02101,"882,43353059660 ",.01)

 ;;43353059660

 ;;9002226.02101,"882,43353059660 ",.02)

 ;;43353059660

 ;;9002226.02101,"882,43353062660 ",.01)

 ;;43353062660

 ;;9002226.02101,"882,43353062660 ",.02)

 ;;43353062660

 ;;9002226.02101,"882,43353064360 ",.01)

 ;;43353064360

 ;;9002226.02101,"882,43353064360 ",.02)

 ;;43353064360

 ;;9002226.02101,"882,43353071260 ",.01)

 ;;43353071260

 ;;9002226.02101,"882,43353071260 ",.02)

 ;;43353071260

 ;;9002226.02101,"882,43683014730 ",.01)

 ;;43683014730

 ;;9002226.02101,"882,43683014730 ",.02)

 ;;43683014730

 ;;9002226.02101,"882,43683014830 ",.01)

 ;;43683014830

 ;;9002226.02101,"882,43683014830 ",.02)

 ;;43683014830

 ;;9002226.02101,"882,43806013240 ",.01)

 ;;43806013240

 ;;9002226.02101,"882,43806013240 ",.02)

 ;;43806013240

 ;;9002226.02101,"882,43806013270 ",.01)

 ;;43806013270

 ;;9002226.02101,"882,43806013270 ",.02)

 ;;43806013270

 ;;9002226.02101,"882,43806013280 ",.01)

 ;;43806013280

 ;;9002226.02101,"882,43806013280 ",.02)

 ;;43806013280

 ;;9002226.02101,"882,43806013340 ",.01)

 ;;43806013340

 ;;9002226.02101,"882,43806013340 ",.02)

 ;;43806013340

 ;;9002226.02101,"882,43806013370 ",.01)

 ;;43806013370

 ;;9002226.02101,"882,43806013370 ",.02)

 ;;43806013370

 ;;9002226.02101,"882,43806013380 ",.01)

 ;;43806013380

 ;;9002226.02101,"882,43806013380 ",.02)

 ;;43806013380

 ;;9002226.02101,"882,43806013440 ",.01)

 ;;43806013440

 ;;9002226.02101,"882,43806013440 ",.02)

 ;;43806013440

 ;;9002226.02101,"882,43806013470 ",.01)

 ;;43806013470

 ;;9002226.02101,"882,43806013470 ",.02)

 ;;43806013470

 ;;9002226.02101,"882,43806013480 ",.01)

 ;;43806013480

 ;;9002226.02101,"882,43806013480 ",.02)

 ;;43806013480

 ;;9002226.02101,"882,43806013540 ",.01)

 ;;43806013540

 ;;9002226.02101,"882,43806013540 ",.02)

 ;;43806013540

 ;;9002226.02101,"882,43806013570 ",.01)

 ;;43806013570

 ;;9002226.02101,"882,43806013570 ",.02)

 ;;43806013570

 ;;9002226.02101,"882,43806013580 ",.01)

 ;;43806013580

 ;;9002226.02101,"882,43806013580 ",.02)

 ;;43806013580

 ;;9002226.02101,"882,44514048018 ",.01)

 ;;44514048018

 ;;9002226.02101,"882,44514048018 ",.02)

 ;;44514048018

 ;;9002226.02101,"882,44514048110 ",.01)

 ;;44514048110

 ;;9002226.02101,"882,44514048110 ",.02)

 ;;44514048110

 ;;9002226.02101,"882,44514048218 ",.01)

 ;;44514048218

 ;;9002226.02101,"882,44514048218 ",.02)

 ;;44514048218

 ;;9002226.02101,"882,44514048318 ",.01)

 ;;44514048318

 ;;9002226.02101,"882,44514048318 ",.02)

 ;;44514048318

 ;;9002226.02101,"882,48581612101 ",.01)

 ;;48581612101

 ;;9002226.02101,"882,48581612101 ",.02)

 ;;48581612101

 ;;9002226.02101,"882,48581612103 ",.01)

 ;;48581612103

 ;;9002226.02101,"882,48581612103 ",.02)

 ;;48581612103

 ;;9002226.02101,"882,48581612201 ",.01)

 ;;48581612201

 ;;9002226.02101,"882,48581612201 ",.02)

 ;;48581612201

 ;;9002226.02101,"882,48581612203 ",.01)

 ;;48581612203

 ;;9002226.02101,"882,48581612203 ",.02)

 ;;48581612203

 ;;9002226.02101,"882,48581612301 ",.01)

 ;;48581612301

 ;;9002226.02101,"882,48581612301 ",.02)

 ;;48581612301

 ;;9002226.02101,"882,48581612303 ",.01)

 ;;48581612303

 ;;9002226.02101,"882,48581612303 ",.02)

 ;;48581612303

 ;;9002226.02101,"882,48581612401 ",.01)

 ;;48581612401

 ;;9002226.02101,"882,48581612401 ",.02)

 ;;48581612401

 ;;9002226.02101,"882,48581612403 ",.01)

 ;;48581612403

 ;;9002226.02101,"882,48581612403 ",.02)

 ;;48581612403

 ;;9002226.02101,"882,4868465600 ",.01)

 ;;4868465600

 ;;9002226.02101,"882,4868465600 ",.02)

 ;;4868465600

 ;;9002226.02101,"882,48866030100 ",.01)

 ;;48866030100

 ;;9002226.02101,"882,48866030100 ",.02)

 ;;48866030100

 ;;9002226.02101,"882,48866030101 ",.01)

 ;;48866030101

 ;;9002226.02101,"882,48866030101 ",.02)

 ;;48866030101

 ;;9002226.02101,"882,48866030102 ",.01)

 ;;48866030102

 ;;9002226.02101,"882,48866030102 ",.02)

 ;;48866030102

 ;;9002226.02101,"882,48866030200 ",.01)

 ;;48866030200

 ;;9002226.02101,"882,48866030200 ",.02)

 ;;48866030200

 ;;9002226.02101,"882,48866030201 ",.01)

 ;;48866030201

 ;;9002226.02101,"882,48866030201 ",.02)

 ;;48866030201

 ;;9002226.02101,"882,48866030202 ",.01)

 ;;48866030202

 ;;9002226.02101,"882,48866030202 ",.02)

 ;;48866030202

 ;;9002226.02101,"882,48866030300 ",.01)

 ;;48866030300

 ;;9002226.02101,"882,48866030300 ",.02)

 ;;48866030300

 ;;9002226.02101,"882,48866030301 ",.01)

 ;;48866030301

 ;;9002226.02101,"882,48866030301 ",.02)

 ;;48866030301

 ;;9002226.02101,"882,48866030302 ",.01)

 ;;48866030302

 ;;9002226.02101,"882,48866030302 ",.02)

 ;;48866030302

 ;;9002226.02101,"882,48866030400 ",.01)

 ;;48866030400

 ;;9002226.02101,"882,48866030400 ",.02)

 ;;48866030400

 ;;9002226.02101,"882,48866030401 ",.01)

 ;;48866030401

 ;;9002226.02101,"882,48866030401 ",.02)

 ;;48866030401

 ;;9002226.02101,"882,48866030402 ",.01)

 ;;48866030402

 ;;9002226.02101,"882,48866030402 ",.02)

 ;;48866030402

 ;;9002226.02101,"882,48866070100 ",.01)

 ;;48866070100

 ;;9002226.02101,"882,48866070100 ",.02)

 ;;48866070100

 ;;9002226.02101,"882,48866070101 ",.01)

 ;;48866070101

 ;;9002226.02101,"882,48866070101 ",.02)

 ;;48866070101

 ;;9002226.02101,"882,48866070102 ",.01)

 ;;48866070102

 ;;9002226.02101,"882,48866070102 ",.02)

 ;;48866070102

 ;;9002226.02101,"882,48866070103 ",.01)

 ;;48866070103

 ;;9002226.02101,"882,48866070103 ",.02)

 ;;48866070103

 ;;9002226.02101,"882,48866070200 ",.01)

 ;;48866070200

 ;;9002226.02101,"882,48866070200 ",.02)

 ;;48866070200

 ;;9002226.02101,"882,48866070201 ",.01)

 ;;48866070201

 ;;9002226.02101,"882,48866070201 ",.02)

 ;;48866070201

 ;;9002226.02101,"882,48866070202 ",.01)

 ;;48866070202

BGPM5AGO  ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 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,"882,41284057100 ",.02)

 +2       ;;41284057100

 +3       ;;9002226.02101,"882,41284057101 ",.01)

 +4       ;;41284057101

 +5       ;;9002226.02101,"882,41284057101 ",.02)

 +6       ;;41284057101

 +7       ;;9002226.02101,"882,41284057150 ",.01)

 +8       ;;41284057150

 +9       ;;9002226.02101,"882,41284057150 ",.02)

 +10      ;;41284057150

 +11      ;;9002226.02101,"882,41284057200 ",.01)

 +12      ;;41284057200

 +13      ;;9002226.02101,"882,41284057200 ",.02)

 +14      ;;41284057200

 +15      ;;9002226.02101,"882,41284057201 ",.01)

 +16      ;;41284057201

 +17      ;;9002226.02101,"882,41284057201 ",.02)

 +18      ;;41284057201

 +19      ;;9002226.02101,"882,41284057250 ",.01)

 +20      ;;41284057250

 +21      ;;9002226.02101,"882,41284057250 ",.02)

 +22      ;;41284057250

 +23      ;;9002226.02101,"882,41284057300 ",.01)

 +24      ;;41284057300

 +25      ;;9002226.02101,"882,41284057300 ",.02)

 +26      ;;41284057300

 +27      ;;9002226.02101,"882,41284057301 ",.01)

 +28      ;;41284057301

 +29      ;;9002226.02101,"882,41284057301 ",.02)

 +30      ;;41284057301

 +31      ;;9002226.02101,"882,41284057350 ",.01)

 +32      ;;41284057350

 +33      ;;9002226.02101,"882,41284057350 ",.02)

 +34      ;;41284057350

 +35      ;;9002226.02101,"882,43063000701 ",.01)

 +36      ;;43063000701

 +37      ;;9002226.02101,"882,43063000701 ",.02)

 +38      ;;43063000701

 +39      ;;9002226.02101,"882,43063003201 ",.01)

 +40      ;;43063003201

 +41      ;;9002226.02101,"882,43063003201 ",.02)

 +42      ;;43063003201

 +43      ;;9002226.02101,"882,43063006530 ",.01)

 +44      ;;43063006530

 +45      ;;9002226.02101,"882,43063006530 ",.02)

 +46      ;;43063006530

 +47      ;;9002226.02101,"882,43063006590 ",.01)

 +48      ;;43063006590

 +49      ;;9002226.02101,"882,43063006590 ",.02)

 +50      ;;43063006590

 +51      ;;9002226.02101,"882,43063011830 ",.01)

 +52      ;;43063011830

 +53      ;;9002226.02101,"882,43063011830 ",.02)

 +54      ;;43063011830

 +55      ;;9002226.02101,"882,43063011890 ",.01)

 +56      ;;43063011890

 +57      ;;9002226.02101,"882,43063011890 ",.02)

 +58      ;;43063011890

 +59      ;;9002226.02101,"882,43063013090 ",.01)

 +60      ;;43063013090

 +61      ;;9002226.02101,"882,43063013090 ",.02)

 +62      ;;43063013090

 +63      ;;9002226.02101,"882,43063013890 ",.01)

 +64      ;;43063013890

 +65      ;;9002226.02101,"882,43063013890 ",.02)

 +66      ;;43063013890

 +67      ;;9002226.02101,"882,43063014630 ",.01)

 +68      ;;43063014630

 +69      ;;9002226.02101,"882,43063014630 ",.02)

 +70      ;;43063014630

 +71      ;;9002226.02101,"882,43063030330 ",.01)

 +72      ;;43063030330

 +73      ;;9002226.02101,"882,43063030330 ",.02)

 +74      ;;43063030330

 +75      ;;9002226.02101,"882,43353004532 ",.01)

 +76      ;;43353004532

 +77      ;;9002226.02101,"882,43353004532 ",.02)

 +78      ;;43353004532

 +79      ;;9002226.02101,"882,43353004580 ",.01)

 +80      ;;43353004580

 +81      ;;9002226.02101,"882,43353004580 ",.02)

 +82      ;;43353004580

 +83      ;;9002226.02101,"882,43353005230 ",.01)

 +84      ;;43353005230

 +85      ;;9002226.02101,"882,43353005230 ",.02)

 +86      ;;43353005230

 +87      ;;9002226.02101,"882,43353005260 ",.01)

 +88      ;;43353005260

 +89      ;;9002226.02101,"882,43353005260 ",.02)

 +90      ;;43353005260

 +91      ;;9002226.02101,"882,43353030930 ",.01)

 +92      ;;43353030930

 +93      ;;9002226.02101,"882,43353030930 ",.02)

 +94      ;;43353030930

 +95      ;;9002226.02101,"882,43353030953 ",.01)

 +96      ;;43353030953

 +97      ;;9002226.02101,"882,43353030953 ",.02)

 +98      ;;43353030953

 +99      ;;9002226.02101,"882,43353031360 ",.01)

 +100     ;;43353031360

 +101     ;;9002226.02101,"882,43353031360 ",.02)

 +102     ;;43353031360

 +103     ;;9002226.02101,"882,43353031860 ",.01)

 +104     ;;43353031860

 +105     ;;9002226.02101,"882,43353031860 ",.02)

 +106     ;;43353031860

 +107     ;;9002226.02101,"882,43353035030 ",.01)

 +108     ;;43353035030

 +109     ;;9002226.02101,"882,43353035030 ",.02)

 +110     ;;43353035030

 +111     ;;9002226.02101,"882,43353035045 ",.01)

 +112     ;;43353035045

 +113     ;;9002226.02101,"882,43353035045 ",.02)

 +114     ;;43353035045

 +115     ;;9002226.02101,"882,43353035060 ",.01)

 +116     ;;43353035060

 +117     ;;9002226.02101,"882,43353035060 ",.02)

 +118     ;;43353035060

 +119     ;;9002226.02101,"882,43353035080 ",.01)

 +120     ;;43353035080

 +121     ;;9002226.02101,"882,43353035080 ",.02)

 +122     ;;43353035080

 +123     ;;9002226.02101,"882,43353035460 ",.01)

 +124     ;;43353035460

 +125     ;;9002226.02101,"882,43353035460 ",.02)

 +126     ;;43353035460

 +127     ;;9002226.02101,"882,43353035560 ",.01)

 +128     ;;43353035560

 +129     ;;9002226.02101,"882,43353035560 ",.02)

 +130     ;;43353035560

 +131     ;;9002226.02101,"882,43353036330 ",.01)

 +132     ;;43353036330

 +133     ;;9002226.02101,"882,43353036330 ",.02)

 +134     ;;43353036330

 +135     ;;9002226.02101,"882,43353036360 ",.01)

 +136     ;;43353036360

 +137     ;;9002226.02101,"882,43353036360 ",.02)

 +138     ;;43353036360

 +139     ;;9002226.02101,"882,43353036515 ",.01)

 +140     ;;43353036515

 +141     ;;9002226.02101,"882,43353036515 ",.02)

 +142     ;;43353036515

 +143     ;;9002226.02101,"882,43353036530 ",.01)

 +144     ;;43353036530

 +145     ;;9002226.02101,"882,43353036530 ",.02)

 +146     ;;43353036530

 +147     ;;9002226.02101,"882,43353036545 ",.01)

 +148     ;;43353036545

 +149     ;;9002226.02101,"882,43353036545 ",.02)

 +150     ;;43353036545

 +151     ;;9002226.02101,"882,43353036560 ",.01)

 +152     ;;43353036560

 +153     ;;9002226.02101,"882,43353036560 ",.02)

 +154     ;;43353036560

 +155     ;;9002226.02101,"882,43353037115 ",.01)

 +156     ;;43353037115

 +157     ;;9002226.02101,"882,43353037115 ",.02)

 +158     ;;43353037115

 +159     ;;9002226.02101,"882,43353037130 ",.01)

 +160     ;;43353037130

 +161     ;;9002226.02101,"882,43353037130 ",.02)

 +162     ;;43353037130

 +163     ;;9002226.02101,"882,43353037145 ",.01)

 +164     ;;43353037145

 +165     ;;9002226.02101,"882,43353037145 ",.02)

 +166     ;;43353037145

 +167     ;;9002226.02101,"882,43353037160 ",.01)

 +168     ;;43353037160

 +169     ;;9002226.02101,"882,43353037160 ",.02)

 +170     ;;43353037160

 +171     ;;9002226.02101,"882,43353037180 ",.01)

 +172     ;;43353037180

 +173     ;;9002226.02101,"882,43353037180 ",.02)

 +174     ;;43353037180

 +175     ;;9002226.02101,"882,43353037430 ",.01)

 +176     ;;43353037430

 +177     ;;9002226.02101,"882,43353037430 ",.02)

 +178     ;;43353037430

 +179     ;;9002226.02101,"882,43353037460 ",.01)

 +180     ;;43353037460

 +181     ;;9002226.02101,"882,43353037460 ",.02)

 +182     ;;43353037460

 +183     ;;9002226.02101,"882,43353041160 ",.01)

 +184     ;;43353041160

 +185     ;;9002226.02101,"882,43353041160 ",.02)

 +186     ;;43353041160

 +187     ;;9002226.02101,"882,43353048845 ",.01)

 +188     ;;43353048845

 +189     ;;9002226.02101,"882,43353048845 ",.02)

 +190     ;;43353048845

 +191     ;;9002226.02101,"882,43353048860 ",.01)

 +192     ;;43353048860

 +193     ;;9002226.02101,"882,43353048860 ",.02)

 +194     ;;43353048860

 +195     ;;9002226.02101,"882,43353051645 ",.01)

 +196     ;;43353051645

 +197     ;;9002226.02101,"882,43353051645 ",.02)

 +198     ;;43353051645

 +199     ;;9002226.02101,"882,43353052160 ",.01)

 +200     ;;43353052160

 +201     ;;9002226.02101,"882,43353052160 ",.02)

 +202     ;;43353052160

 +203     ;;9002226.02101,"882,43353052180 ",.01)

 +204     ;;43353052180

 +205     ;;9002226.02101,"882,43353052180 ",.02)

 +206     ;;43353052180

 +207     ;;9002226.02101,"882,43353059630 ",.01)

 +208     ;;43353059630

 +209     ;;9002226.02101,"882,43353059630 ",.02)

 +210     ;;43353059630

 +211     ;;9002226.02101,"882,43353059660 ",.01)

 +212     ;;43353059660

 +213     ;;9002226.02101,"882,43353059660 ",.02)

 +214     ;;43353059660

 +215     ;;9002226.02101,"882,43353062660 ",.01)

 +216     ;;43353062660

 +217     ;;9002226.02101,"882,43353062660 ",.02)

 +218     ;;43353062660

 +219     ;;9002226.02101,"882,43353064360 ",.01)

 +220     ;;43353064360

 +221     ;;9002226.02101,"882,43353064360 ",.02)

 +222     ;;43353064360

 +223     ;;9002226.02101,"882,43353071260 ",.01)

 +224     ;;43353071260

 +225     ;;9002226.02101,"882,43353071260 ",.02)

 +226     ;;43353071260

 +227     ;;9002226.02101,"882,43683014730 ",.01)

 +228     ;;43683014730

 +229     ;;9002226.02101,"882,43683014730 ",.02)

 +230     ;;43683014730

 +231     ;;9002226.02101,"882,43683014830 ",.01)

 +232     ;;43683014830

 +233     ;;9002226.02101,"882,43683014830 ",.02)

 +234     ;;43683014830

 +235     ;;9002226.02101,"882,43806013240 ",.01)

 +236     ;;43806013240

 +237     ;;9002226.02101,"882,43806013240 ",.02)

 +238     ;;43806013240

 +239     ;;9002226.02101,"882,43806013270 ",.01)

 +240     ;;43806013270

 +241     ;;9002226.02101,"882,43806013270 ",.02)

 +242     ;;43806013270

 +243     ;;9002226.02101,"882,43806013280 ",.01)

 +244     ;;43806013280

 +245     ;;9002226.02101,"882,43806013280 ",.02)

 +246     ;;43806013280

 +247     ;;9002226.02101,"882,43806013340 ",.01)

 +248     ;;43806013340

 +249     ;;9002226.02101,"882,43806013340 ",.02)

 +250     ;;43806013340

 +251     ;;9002226.02101,"882,43806013370 ",.01)

 +252     ;;43806013370

 +253     ;;9002226.02101,"882,43806013370 ",.02)

 +254     ;;43806013370

 +255     ;;9002226.02101,"882,43806013380 ",.01)

 +256     ;;43806013380

 +257     ;;9002226.02101,"882,43806013380 ",.02)

 +258     ;;43806013380

 +259     ;;9002226.02101,"882,43806013440 ",.01)

 +260     ;;43806013440

 +261     ;;9002226.02101,"882,43806013440 ",.02)

 +262     ;;43806013440

 +263     ;;9002226.02101,"882,43806013470 ",.01)

 +264     ;;43806013470

 +265     ;;9002226.02101,"882,43806013470 ",.02)

 +266     ;;43806013470

 +267     ;;9002226.02101,"882,43806013480 ",.01)

 +268     ;;43806013480

 +269     ;;9002226.02101,"882,43806013480 ",.02)

 +270     ;;43806013480

 +271     ;;9002226.02101,"882,43806013540 ",.01)

 +272     ;;43806013540

 +273     ;;9002226.02101,"882,43806013540 ",.02)

 +274     ;;43806013540

 +275     ;;9002226.02101,"882,43806013570 ",.01)

 +276     ;;43806013570

 +277     ;;9002226.02101,"882,43806013570 ",.02)

 +278     ;;43806013570

 +279     ;;9002226.02101,"882,43806013580 ",.01)

 +280     ;;43806013580

 +281     ;;9002226.02101,"882,43806013580 ",.02)

 +282     ;;43806013580

 +283     ;;9002226.02101,"882,44514048018 ",.01)

 +284     ;;44514048018

 +285     ;;9002226.02101,"882,44514048018 ",.02)

 +286     ;;44514048018

 +287     ;;9002226.02101,"882,44514048110 ",.01)

 +288     ;;44514048110

 +289     ;;9002226.02101,"882,44514048110 ",.02)

 +290     ;;44514048110

 +291     ;;9002226.02101,"882,44514048218 ",.01)

 +292     ;;44514048218

 +293     ;;9002226.02101,"882,44514048218 ",.02)

 +294     ;;44514048218

 +295     ;;9002226.02101,"882,44514048318 ",.01)

 +296     ;;44514048318

 +297     ;;9002226.02101,"882,44514048318 ",.02)

 +298     ;;44514048318

 +299     ;;9002226.02101,"882,48581612101 ",.01)

 +300     ;;48581612101

 +301     ;;9002226.02101,"882,48581612101 ",.02)

 +302     ;;48581612101

 +303     ;;9002226.02101,"882,48581612103 ",.01)

 +304     ;;48581612103

 +305     ;;9002226.02101,"882,48581612103 ",.02)

 +306     ;;48581612103

 +307     ;;9002226.02101,"882,48581612201 ",.01)

 +308     ;;48581612201

 +309     ;;9002226.02101,"882,48581612201 ",.02)

 +310     ;;48581612201

 +311     ;;9002226.02101,"882,48581612203 ",.01)

 +312     ;;48581612203

 +313     ;;9002226.02101,"882,48581612203 ",.02)

 +314     ;;48581612203

 +315     ;;9002226.02101,"882,48581612301 ",.01)

 +316     ;;48581612301

 +317     ;;9002226.02101,"882,48581612301 ",.02)

 +318     ;;48581612301

 +319     ;;9002226.02101,"882,48581612303 ",.01)

 +320     ;;48581612303

 +321     ;;9002226.02101,"882,48581612303 ",.02)

 +322     ;;48581612303

 +323     ;;9002226.02101,"882,48581612401 ",.01)

 +324     ;;48581612401

 +325     ;;9002226.02101,"882,48581612401 ",.02)

 +326     ;;48581612401

 +327     ;;9002226.02101,"882,48581612403 ",.01)

 +328     ;;48581612403

 +329     ;;9002226.02101,"882,48581612403 ",.02)

 +330     ;;48581612403

 +331     ;;9002226.02101,"882,4868465600 ",.01)

 +332     ;;4868465600

 +333     ;;9002226.02101,"882,4868465600 ",.02)

 +334     ;;4868465600

 +335     ;;9002226.02101,"882,48866030100 ",.01)

 +336     ;;48866030100

 +337     ;;9002226.02101,"882,48866030100 ",.02)

 +338     ;;48866030100

 +339     ;;9002226.02101,"882,48866030101 ",.01)

 +340     ;;48866030101

 +341     ;;9002226.02101,"882,48866030101 ",.02)

 +342     ;;48866030101

 +343     ;;9002226.02101,"882,48866030102 ",.01)

 +344     ;;48866030102

 +345     ;;9002226.02101,"882,48866030102 ",.02)

 +346     ;;48866030102

 +347     ;;9002226.02101,"882,48866030200 ",.01)

 +348     ;;48866030200

 +349     ;;9002226.02101,"882,48866030200 ",.02)

 +350     ;;48866030200

 +351     ;;9002226.02101,"882,48866030201 ",.01)

 +352     ;;48866030201

 +353     ;;9002226.02101,"882,48866030201 ",.02)

 +354     ;;48866030201

 +355     ;;9002226.02101,"882,48866030202 ",.01)

 +356     ;;48866030202

 +357     ;;9002226.02101,"882,48866030202 ",.02)

 +358     ;;48866030202

 +359     ;;9002226.02101,"882,48866030300 ",.01)

 +360     ;;48866030300

 +361     ;;9002226.02101,"882,48866030300 ",.02)

 +362     ;;48866030300

 +363     ;;9002226.02101,"882,48866030301 ",.01)

 +364     ;;48866030301

 +365     ;;9002226.02101,"882,48866030301 ",.02)

 +366     ;;48866030301

 +367     ;;9002226.02101,"882,48866030302 ",.01)

 +368     ;;48866030302

 +369     ;;9002226.02101,"882,48866030302 ",.02)

 +370     ;;48866030302

 +371     ;;9002226.02101,"882,48866030400 ",.01)

 +372     ;;48866030400

 +373     ;;9002226.02101,"882,48866030400 ",.02)

 +374     ;;48866030400

 +375     ;;9002226.02101,"882,48866030401 ",.01)

 +376     ;;48866030401

 +377     ;;9002226.02101,"882,48866030401 ",.02)

 +378     ;;48866030401

 +379     ;;9002226.02101,"882,48866030402 ",.01)

 +380     ;;48866030402

 +381     ;;9002226.02101,"882,48866030402 ",.02)

 +382     ;;48866030402

 +383     ;;9002226.02101,"882,48866070100 ",.01)

 +384     ;;48866070100

 +385     ;;9002226.02101,"882,48866070100 ",.02)

 +386     ;;48866070100

 +387     ;;9002226.02101,"882,48866070101 ",.01)

 +388     ;;48866070101

 +389     ;;9002226.02101,"882,48866070101 ",.02)

 +390     ;;48866070101

 +391     ;;9002226.02101,"882,48866070102 ",.01)

 +392     ;;48866070102

 +393     ;;9002226.02101,"882,48866070102 ",.02)

 +394     ;;48866070102

 +395     ;;9002226.02101,"882,48866070103 ",.01)

 +396     ;;48866070103

 +397     ;;9002226.02101,"882,48866070103 ",.02)

 +398     ;;48866070103

 +399     ;;9002226.02101,"882,48866070200 ",.01)

 +400     ;;48866070200

 +401     ;;9002226.02101,"882,48866070200 ",.02)

 +402     ;;48866070200

 +403     ;;9002226.02101,"882,48866070201 ",.01)

 +404     ;;48866070201

 +405     ;;9002226.02101,"882,48866070201 ",.02)

 +406     ;;48866070201

 +407     ;;9002226.02101,"882,48866070202 ",.01)

 +408     ;;48866070202

BGPM5AGO.m