Routine: BGPM5BFB

BGPM5BFB ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON SEP 12, 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,"1084,49999010860 ",.02)

 ;;49999010860

 ;;9002226.02101,"1084,49999011300 ",.01)

 ;;49999011300

 ;;9002226.02101,"1084,49999011300 ",.02)

 ;;49999011300

 ;;9002226.02101,"1084,49999011301 ",.01)

 ;;49999011301

 ;;9002226.02101,"1084,49999011301 ",.02)

 ;;49999011301

 ;;9002226.02101,"1084,49999011330 ",.01)

 ;;49999011330

 ;;9002226.02101,"1084,49999011330 ",.02)

 ;;49999011330

 ;;9002226.02101,"1084,49999011360 ",.01)

 ;;49999011360

 ;;9002226.02101,"1084,49999011360 ",.02)

 ;;49999011360

 ;;9002226.02101,"1084,49999011390 ",.01)

 ;;49999011390

 ;;9002226.02101,"1084,49999011390 ",.02)

 ;;49999011390

 ;;9002226.02101,"1084,49999011600 ",.01)

 ;;49999011600

 ;;9002226.02101,"1084,49999011600 ",.02)

 ;;49999011600

 ;;9002226.02101,"1084,49999011630 ",.01)

 ;;49999011630

 ;;9002226.02101,"1084,49999011630 ",.02)

 ;;49999011630

 ;;9002226.02101,"1084,49999011660 ",.01)

 ;;49999011660

 ;;9002226.02101,"1084,49999011660 ",.02)

 ;;49999011660

 ;;9002226.02101,"1084,49999040130 ",.01)

 ;;49999040130

 ;;9002226.02101,"1084,49999040130 ",.02)

 ;;49999040130

 ;;9002226.02101,"1084,49999040160 ",.01)

 ;;49999040160

 ;;9002226.02101,"1084,49999040160 ",.02)

 ;;49999040160

 ;;9002226.02101,"1084,49999049530 ",.01)

 ;;49999049530

 ;;9002226.02101,"1084,49999049530 ",.02)

 ;;49999049530

 ;;9002226.02101,"1084,49999049560 ",.01)

 ;;49999049560

 ;;9002226.02101,"1084,49999049560 ",.02)

 ;;49999049560

 ;;9002226.02101,"1084,49999051430 ",.01)

 ;;49999051430

 ;;9002226.02101,"1084,49999051430 ",.02)

 ;;49999051430

 ;;9002226.02101,"1084,49999057160 ",.01)

 ;;49999057160

 ;;9002226.02101,"1084,49999057160 ",.02)

 ;;49999057160

 ;;9002226.02101,"1084,49999078100 ",.01)

 ;;49999078100

 ;;9002226.02101,"1084,49999078100 ",.02)

 ;;49999078100

 ;;9002226.02101,"1084,49999080700 ",.01)

 ;;49999080700

 ;;9002226.02101,"1084,49999080700 ",.02)

 ;;49999080700

 ;;9002226.02101,"1084,49999080800 ",.01)

 ;;49999080800

 ;;9002226.02101,"1084,49999080800 ",.02)

 ;;49999080800

 ;;9002226.02101,"1084,49999082060 ",.01)

 ;;49999082060

 ;;9002226.02101,"1084,49999082060 ",.02)

 ;;49999082060

 ;;9002226.02101,"1084,50053312701 ",.01)

 ;;50053312701

 ;;9002226.02101,"1084,50053312701 ",.02)

 ;;50053312701

 ;;9002226.02101,"1084,50053312703 ",.01)

 ;;50053312703

 ;;9002226.02101,"1084,50053312703 ",.02)

 ;;50053312703

 ;;9002226.02101,"1084,50111037201 ",.01)

 ;;50111037201

 ;;9002226.02101,"1084,50111037201 ",.02)

 ;;50111037201

 ;;9002226.02101,"1084,50111037202 ",.01)

 ;;50111037202

 ;;9002226.02101,"1084,50111037202 ",.02)

 ;;50111037202

 ;;9002226.02101,"1084,50111037203 ",.01)

 ;;50111037203

 ;;9002226.02101,"1084,50111037203 ",.02)

 ;;50111037203

 ;;9002226.02101,"1084,50111037301 ",.01)

 ;;50111037301

 ;;9002226.02101,"1084,50111037301 ",.02)

 ;;50111037301

 ;;9002226.02101,"1084,50111037302 ",.01)

 ;;50111037302

 ;;9002226.02101,"1084,50111037302 ",.02)

 ;;50111037302

 ;;9002226.02101,"1084,50111037303 ",.01)

 ;;50111037303

 ;;9002226.02101,"1084,50111037303 ",.02)

 ;;50111037303

 ;;9002226.02101,"1084,50111037306 ",.01)

 ;;50111037306

 ;;9002226.02101,"1084,50111037306 ",.02)

 ;;50111037306

 ;;9002226.02101,"1084,50268053115 ",.01)

 ;;50268053115

 ;;9002226.02101,"1084,50268053115 ",.02)

 ;;50268053115

 ;;9002226.02101,"1084,51079020220 ",.01)

 ;;51079020220

 ;;9002226.02101,"1084,51079020220 ",.02)

 ;;51079020220

 ;;9002226.02101,"1084,51079020320 ",.01)

 ;;51079020320

 ;;9002226.02101,"1084,51079020320 ",.02)

 ;;51079020320

 ;;9002226.02101,"1084,51079042501 ",.01)

 ;;51079042501

 ;;9002226.02101,"1084,51079042501 ",.02)

 ;;51079042501

 ;;9002226.02101,"1084,51079042520 ",.01)

 ;;51079042520

 ;;9002226.02101,"1084,51079042520 ",.02)

 ;;51079042520

 ;;9002226.02101,"1084,51079042601 ",.01)

 ;;51079042601

 ;;9002226.02101,"1084,51079042601 ",.02)

 ;;51079042601

 ;;9002226.02101,"1084,51079042620 ",.01)

 ;;51079042620

 ;;9002226.02101,"1084,51079042620 ",.02)

 ;;51079042620

 ;;9002226.02101,"1084,51079056020 ",.01)

 ;;51079056020

 ;;9002226.02101,"1084,51079056020 ",.02)

 ;;51079056020

 ;;9002226.02101,"1084,51079062620 ",.01)

 ;;51079062620

 ;;9002226.02101,"1084,51079062620 ",.02)

 ;;51079062620

 ;;9002226.02101,"1084,51079062720 ",.01)

 ;;51079062720

 ;;9002226.02101,"1084,51079062720 ",.02)

 ;;51079062720

 ;;9002226.02101,"1084,51079081001 ",.01)

 ;;51079081001

 ;;9002226.02101,"1084,51079081001 ",.02)

 ;;51079081001

 ;;9002226.02101,"1084,51079081017 ",.01)

 ;;51079081017

 ;;9002226.02101,"1084,51079081017 ",.02)

 ;;51079081017

 ;;9002226.02101,"1084,51079081019 ",.01)

 ;;51079081019

 ;;9002226.02101,"1084,51079081019 ",.02)

 ;;51079081019

 ;;9002226.02101,"1084,51079081020 ",.01)

 ;;51079081020

 ;;9002226.02101,"1084,51079081020 ",.02)

 ;;51079081020

 ;;9002226.02101,"1084,51079081101 ",.01)

 ;;51079081101

 ;;9002226.02101,"1084,51079081101 ",.02)

 ;;51079081101

 ;;9002226.02101,"1084,51079081117 ",.01)

 ;;51079081117

 ;;9002226.02101,"1084,51079081117 ",.02)

 ;;51079081117

 ;;9002226.02101,"1084,51079081119 ",.01)

 ;;51079081119

 ;;9002226.02101,"1084,51079081119 ",.02)

 ;;51079081119

 ;;9002226.02101,"1084,51079081120 ",.01)

 ;;51079081120

 ;;9002226.02101,"1084,51079081120 ",.02)

 ;;51079081120

 ;;9002226.02101,"1084,51079087201 ",.01)

 ;;51079087201

 ;;9002226.02101,"1084,51079087201 ",.02)

 ;;51079087201

 ;;9002226.02101,"1084,51079087217 ",.01)

 ;;51079087217

 ;;9002226.02101,"1084,51079087217 ",.02)

 ;;51079087217

 ;;9002226.02101,"1084,51079087219 ",.01)

 ;;51079087219

 ;;9002226.02101,"1084,51079087219 ",.02)

 ;;51079087219

 ;;9002226.02101,"1084,51079087220 ",.01)

 ;;51079087220

 ;;9002226.02101,"1084,51079087220 ",.02)

 ;;51079087220

 ;;9002226.02101,"1084,51079087301 ",.01)

 ;;51079087301

 ;;9002226.02101,"1084,51079087301 ",.02)

 ;;51079087301

 ;;9002226.02101,"1084,51079087317 ",.01)

 ;;51079087317

 ;;9002226.02101,"1084,51079087317 ",.02)

 ;;51079087317

 ;;9002226.02101,"1084,51079087319 ",.01)

 ;;51079087319

 ;;9002226.02101,"1084,51079087319 ",.02)

 ;;51079087319

 ;;9002226.02101,"1084,51079087320 ",.01)

 ;;51079087320

 ;;9002226.02101,"1084,51079087320 ",.02)

 ;;51079087320

 ;;9002226.02101,"1084,51079097201 ",.01)

 ;;51079097201

 ;;9002226.02101,"1084,51079097201 ",.02)

 ;;51079097201

 ;;9002226.02101,"1084,51079097217 ",.01)

 ;;51079097217

 ;;9002226.02101,"1084,51079097217 ",.02)

 ;;51079097217

 ;;9002226.02101,"1084,51079097219 ",.01)

 ;;51079097219

 ;;9002226.02101,"1084,51079097219 ",.02)

 ;;51079097219

 ;;9002226.02101,"1084,51079097220 ",.01)

 ;;51079097220

 ;;9002226.02101,"1084,51079097220 ",.02)

 ;;51079097220

 ;;9002226.02101,"1084,51079097230 ",.01)

 ;;51079097230

 ;;9002226.02101,"1084,51079097230 ",.02)

 ;;51079097230

 ;;9002226.02101,"1084,51079097256 ",.01)

 ;;51079097256

 ;;9002226.02101,"1084,51079097256 ",.02)

 ;;51079097256

 ;;9002226.02101,"1084,51079097257 ",.01)

 ;;51079097257

 ;;9002226.02101,"1084,51079097257 ",.02)

 ;;51079097257

 ;;9002226.02101,"1084,51079097301 ",.01)

 ;;51079097301

 ;;9002226.02101,"1084,51079097301 ",.02)

 ;;51079097301

 ;;9002226.02101,"1084,51079097320 ",.01)

 ;;51079097320

 ;;9002226.02101,"1084,51079097320 ",.02)

 ;;51079097320

 ;;9002226.02101,"1084,51079099501 ",.01)

 ;;51079099501

 ;;9002226.02101,"1084,51079099501 ",.02)

 ;;51079099501

 ;;9002226.02101,"1084,51079099520 ",.01)

 ;;51079099520

 ;;9002226.02101,"1084,51079099520 ",.02)

 ;;51079099520

 ;;9002226.02101,"1084,51129128801 ",.01)

 ;;51129128801

 ;;9002226.02101,"1084,51129128801 ",.02)

 ;;51129128801

 ;;9002226.02101,"1084,51129140501 ",.01)

 ;;51129140501

 ;;9002226.02101,"1084,51129140501 ",.02)

 ;;51129140501

 ;;9002226.02101,"1084,51129145501 ",.01)

 ;;51129145501

 ;;9002226.02101,"1084,51129145501 ",.02)

 ;;51129145501

 ;;9002226.02101,"1084,51129148601 ",.01)

 ;;51129148601

 ;;9002226.02101,"1084,51129148601 ",.02)

 ;;51129148601

 ;;9002226.02101,"1084,51129148701 ",.01)

 ;;51129148701

 ;;9002226.02101,"1084,51129148701 ",.02)

 ;;51129148701

 ;;9002226.02101,"1084,51129157301 ",.01)

 ;;51129157301

 ;;9002226.02101,"1084,51129157301 ",.02)

 ;;51129157301

 ;;9002226.02101,"1084,51129162701 ",.01)

 ;;51129162701

 ;;9002226.02101,"1084,51129162701 ",.02)

 ;;51129162701

 ;;9002226.02101,"1084,51129165701 ",.01)

 ;;51129165701

 ;;9002226.02101,"1084,51129165701 ",.02)

 ;;51129165701

 ;;9002226.02101,"1084,51129171901 ",.01)

 ;;51129171901

 ;;9002226.02101,"1084,51129171901 ",.02)

 ;;51129171901

 ;;9002226.02101,"1084,51129172001 ",.01)

 ;;51129172001

 ;;9002226.02101,"1084,51129172001 ",.02)

 ;;51129172001

 ;;9002226.02101,"1084,51129176101 ",.01)

 ;;51129176101

 ;;9002226.02101,"1084,51129176101 ",.02)

 ;;51129176101

 ;;9002226.02101,"1084,51129176601 ",.01)

 ;;51129176601

 ;;9002226.02101,"1084,51129176601 ",.02)

 ;;51129176601

 ;;9002226.02101,"1084,51129179001 ",.01)

 ;;51129179001

 ;;9002226.02101,"1084,51129179001 ",.02)

 ;;51129179001

 ;;9002226.02101,"1084,51129191301 ",.01)

 ;;51129191301

 ;;9002226.02101,"1084,51129191301 ",.02)

 ;;51129191301

 ;;9002226.02101,"1084,51129191401 ",.01)

 ;;51129191401

 ;;9002226.02101,"1084,51129191401 ",.02)

 ;;51129191401

 ;;9002226.02101,"1084,51129196301 ",.01)

 ;;51129196301

 ;;9002226.02101,"1084,51129196301 ",.02)

 ;;51129196301

 ;;9002226.02101,"1084,51129196601 ",.01)

 ;;51129196601

 ;;9002226.02101,"1084,51129196601 ",.02)

 ;;51129196601

 ;;9002226.02101,"1084,51129203301 ",.01)

 ;;51129203301

 ;;9002226.02101,"1084,51129203301 ",.02)

 ;;51129203301

 ;;9002226.02101,"1084,51129203401 ",.01)

 ;;51129203401

 ;;9002226.02101,"1084,51129203401 ",.02)

 ;;51129203401

 ;;9002226.02101,"1084,51129205501 ",.01)

 ;;51129205501

 ;;9002226.02101,"1084,51129205501 ",.02)

 ;;51129205501

 ;;9002226.02101,"1084,51129206201 ",.01)

 ;;51129206201

 ;;9002226.02101,"1084,51129206201 ",.02)

 ;;51129206201

 ;;9002226.02101,"1084,51129207401 ",.01)

 ;;51129207401

 ;;9002226.02101,"1084,51129207401 ",.02)

 ;;51129207401

 ;;9002226.02101,"1084,51129212701 ",.01)

 ;;51129212701

 ;;9002226.02101,"1084,51129212701 ",.02)

 ;;51129212701

 ;;9002226.02101,"1084,51129231501 ",.01)

 ;;51129231501

 ;;9002226.02101,"1084,51129231501 ",.02)

 ;;51129231501

 ;;9002226.02101,"1084,51129241701 ",.01)

 ;;51129241701

 ;;9002226.02101,"1084,51129241701 ",.02)

 ;;51129241701

 ;;9002226.02101,"1084,51129241801 ",.01)

 ;;51129241801

 ;;9002226.02101,"1084,51129241801 ",.02)

 ;;51129241801

 ;;9002226.02101,"1084,51129246001 ",.01)

 ;;51129246001

 ;;9002226.02101,"1084,51129246001 ",.02)

 ;;51129246001

 ;;9002226.02101,"1084,51129246101 ",.01)

 ;;51129246101

 ;;9002226.02101,"1084,51129246101 ",.02)

 ;;51129246101

 ;;9002226.02101,"1084,51129257200 ",.01)

 ;;51129257200

 ;;9002226.02101,"1084,51129257200 ",.02)

 ;;51129257200

 ;;9002226.02101,"1084,51129261001 ",.01)

 ;;51129261001

 ;;9002226.02101,"1084,51129261001 ",.02)

 ;;51129261001

 ;;9002226.02101,"1084,51129262701 ",.01)

 ;;51129262701

 ;;9002226.02101,"1084,51129262701 ",.02)

 ;;51129262701

 ;;9002226.02101,"1084,51129268701 ",.01)

 ;;51129268701

 ;;9002226.02101,"1084,51129268701 ",.02)

 ;;51129268701

 ;;9002226.02101,"1084,51129272801 ",.01)

 ;;51129272801

 ;;9002226.02101,"1084,51129272801 ",.02)

 ;;51129272801

 ;;9002226.02101,"1084,51129274501 ",.01)

 ;;51129274501

 ;;9002226.02101,"1084,51129274501 ",.02)

 ;;51129274501

 ;;9002226.02101,"1084,51129284401 ",.01)

 ;;51129284401

 ;;9002226.02101,"1084,51129284401 ",.02)

 ;;51129284401

 ;;9002226.02101,"1084,51129284402 ",.01)

 ;;51129284402

 ;;9002226.02101,"1084,51129284402 ",.02)

 ;;51129284402

BGPM5BFB  ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON SEP 12, 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,"1084,49999010860 ",.02)

 +2       ;;49999010860

 +3       ;;9002226.02101,"1084,49999011300 ",.01)

 +4       ;;49999011300

 +5       ;;9002226.02101,"1084,49999011300 ",.02)

 +6       ;;49999011300

 +7       ;;9002226.02101,"1084,49999011301 ",.01)

 +8       ;;49999011301

 +9       ;;9002226.02101,"1084,49999011301 ",.02)

 +10      ;;49999011301

 +11      ;;9002226.02101,"1084,49999011330 ",.01)

 +12      ;;49999011330

 +13      ;;9002226.02101,"1084,49999011330 ",.02)

 +14      ;;49999011330

 +15      ;;9002226.02101,"1084,49999011360 ",.01)

 +16      ;;49999011360

 +17      ;;9002226.02101,"1084,49999011360 ",.02)

 +18      ;;49999011360

 +19      ;;9002226.02101,"1084,49999011390 ",.01)

 +20      ;;49999011390

 +21      ;;9002226.02101,"1084,49999011390 ",.02)

 +22      ;;49999011390

 +23      ;;9002226.02101,"1084,49999011600 ",.01)

 +24      ;;49999011600

 +25      ;;9002226.02101,"1084,49999011600 ",.02)

 +26      ;;49999011600

 +27      ;;9002226.02101,"1084,49999011630 ",.01)

 +28      ;;49999011630

 +29      ;;9002226.02101,"1084,49999011630 ",.02)

 +30      ;;49999011630

 +31      ;;9002226.02101,"1084,49999011660 ",.01)

 +32      ;;49999011660

 +33      ;;9002226.02101,"1084,49999011660 ",.02)

 +34      ;;49999011660

 +35      ;;9002226.02101,"1084,49999040130 ",.01)

 +36      ;;49999040130

 +37      ;;9002226.02101,"1084,49999040130 ",.02)

 +38      ;;49999040130

 +39      ;;9002226.02101,"1084,49999040160 ",.01)

 +40      ;;49999040160

 +41      ;;9002226.02101,"1084,49999040160 ",.02)

 +42      ;;49999040160

 +43      ;;9002226.02101,"1084,49999049530 ",.01)

 +44      ;;49999049530

 +45      ;;9002226.02101,"1084,49999049530 ",.02)

 +46      ;;49999049530

 +47      ;;9002226.02101,"1084,49999049560 ",.01)

 +48      ;;49999049560

 +49      ;;9002226.02101,"1084,49999049560 ",.02)

 +50      ;;49999049560

 +51      ;;9002226.02101,"1084,49999051430 ",.01)

 +52      ;;49999051430

 +53      ;;9002226.02101,"1084,49999051430 ",.02)

 +54      ;;49999051430

 +55      ;;9002226.02101,"1084,49999057160 ",.01)

 +56      ;;49999057160

 +57      ;;9002226.02101,"1084,49999057160 ",.02)

 +58      ;;49999057160

 +59      ;;9002226.02101,"1084,49999078100 ",.01)

 +60      ;;49999078100

 +61      ;;9002226.02101,"1084,49999078100 ",.02)

 +62      ;;49999078100

 +63      ;;9002226.02101,"1084,49999080700 ",.01)

 +64      ;;49999080700

 +65      ;;9002226.02101,"1084,49999080700 ",.02)

 +66      ;;49999080700

 +67      ;;9002226.02101,"1084,49999080800 ",.01)

 +68      ;;49999080800

 +69      ;;9002226.02101,"1084,49999080800 ",.02)

 +70      ;;49999080800

 +71      ;;9002226.02101,"1084,49999082060 ",.01)

 +72      ;;49999082060

 +73      ;;9002226.02101,"1084,49999082060 ",.02)

 +74      ;;49999082060

 +75      ;;9002226.02101,"1084,50053312701 ",.01)

 +76      ;;50053312701

 +77      ;;9002226.02101,"1084,50053312701 ",.02)

 +78      ;;50053312701

 +79      ;;9002226.02101,"1084,50053312703 ",.01)

 +80      ;;50053312703

 +81      ;;9002226.02101,"1084,50053312703 ",.02)

 +82      ;;50053312703

 +83      ;;9002226.02101,"1084,50111037201 ",.01)

 +84      ;;50111037201

 +85      ;;9002226.02101,"1084,50111037201 ",.02)

 +86      ;;50111037201

 +87      ;;9002226.02101,"1084,50111037202 ",.01)

 +88      ;;50111037202

 +89      ;;9002226.02101,"1084,50111037202 ",.02)

 +90      ;;50111037202

 +91      ;;9002226.02101,"1084,50111037203 ",.01)

 +92      ;;50111037203

 +93      ;;9002226.02101,"1084,50111037203 ",.02)

 +94      ;;50111037203

 +95      ;;9002226.02101,"1084,50111037301 ",.01)

 +96      ;;50111037301

 +97      ;;9002226.02101,"1084,50111037301 ",.02)

 +98      ;;50111037301

 +99      ;;9002226.02101,"1084,50111037302 ",.01)

 +100     ;;50111037302

 +101     ;;9002226.02101,"1084,50111037302 ",.02)

 +102     ;;50111037302

 +103     ;;9002226.02101,"1084,50111037303 ",.01)

 +104     ;;50111037303

 +105     ;;9002226.02101,"1084,50111037303 ",.02)

 +106     ;;50111037303

 +107     ;;9002226.02101,"1084,50111037306 ",.01)

 +108     ;;50111037306

 +109     ;;9002226.02101,"1084,50111037306 ",.02)

 +110     ;;50111037306

 +111     ;;9002226.02101,"1084,50268053115 ",.01)

 +112     ;;50268053115

 +113     ;;9002226.02101,"1084,50268053115 ",.02)

 +114     ;;50268053115

 +115     ;;9002226.02101,"1084,51079020220 ",.01)

 +116     ;;51079020220

 +117     ;;9002226.02101,"1084,51079020220 ",.02)

 +118     ;;51079020220

 +119     ;;9002226.02101,"1084,51079020320 ",.01)

 +120     ;;51079020320

 +121     ;;9002226.02101,"1084,51079020320 ",.02)

 +122     ;;51079020320

 +123     ;;9002226.02101,"1084,51079042501 ",.01)

 +124     ;;51079042501

 +125     ;;9002226.02101,"1084,51079042501 ",.02)

 +126     ;;51079042501

 +127     ;;9002226.02101,"1084,51079042520 ",.01)

 +128     ;;51079042520

 +129     ;;9002226.02101,"1084,51079042520 ",.02)

 +130     ;;51079042520

 +131     ;;9002226.02101,"1084,51079042601 ",.01)

 +132     ;;51079042601

 +133     ;;9002226.02101,"1084,51079042601 ",.02)

 +134     ;;51079042601

 +135     ;;9002226.02101,"1084,51079042620 ",.01)

 +136     ;;51079042620

 +137     ;;9002226.02101,"1084,51079042620 ",.02)

 +138     ;;51079042620

 +139     ;;9002226.02101,"1084,51079056020 ",.01)

 +140     ;;51079056020

 +141     ;;9002226.02101,"1084,51079056020 ",.02)

 +142     ;;51079056020

 +143     ;;9002226.02101,"1084,51079062620 ",.01)

 +144     ;;51079062620

 +145     ;;9002226.02101,"1084,51079062620 ",.02)

 +146     ;;51079062620

 +147     ;;9002226.02101,"1084,51079062720 ",.01)

 +148     ;;51079062720

 +149     ;;9002226.02101,"1084,51079062720 ",.02)

 +150     ;;51079062720

 +151     ;;9002226.02101,"1084,51079081001 ",.01)

 +152     ;;51079081001

 +153     ;;9002226.02101,"1084,51079081001 ",.02)

 +154     ;;51079081001

 +155     ;;9002226.02101,"1084,51079081017 ",.01)

 +156     ;;51079081017

 +157     ;;9002226.02101,"1084,51079081017 ",.02)

 +158     ;;51079081017

 +159     ;;9002226.02101,"1084,51079081019 ",.01)

 +160     ;;51079081019

 +161     ;;9002226.02101,"1084,51079081019 ",.02)

 +162     ;;51079081019

 +163     ;;9002226.02101,"1084,51079081020 ",.01)

 +164     ;;51079081020

 +165     ;;9002226.02101,"1084,51079081020 ",.02)

 +166     ;;51079081020

 +167     ;;9002226.02101,"1084,51079081101 ",.01)

 +168     ;;51079081101

 +169     ;;9002226.02101,"1084,51079081101 ",.02)

 +170     ;;51079081101

 +171     ;;9002226.02101,"1084,51079081117 ",.01)

 +172     ;;51079081117

 +173     ;;9002226.02101,"1084,51079081117 ",.02)

 +174     ;;51079081117

 +175     ;;9002226.02101,"1084,51079081119 ",.01)

 +176     ;;51079081119

 +177     ;;9002226.02101,"1084,51079081119 ",.02)

 +178     ;;51079081119

 +179     ;;9002226.02101,"1084,51079081120 ",.01)

 +180     ;;51079081120

 +181     ;;9002226.02101,"1084,51079081120 ",.02)

 +182     ;;51079081120

 +183     ;;9002226.02101,"1084,51079087201 ",.01)

 +184     ;;51079087201

 +185     ;;9002226.02101,"1084,51079087201 ",.02)

 +186     ;;51079087201

 +187     ;;9002226.02101,"1084,51079087217 ",.01)

 +188     ;;51079087217

 +189     ;;9002226.02101,"1084,51079087217 ",.02)

 +190     ;;51079087217

 +191     ;;9002226.02101,"1084,51079087219 ",.01)

 +192     ;;51079087219

 +193     ;;9002226.02101,"1084,51079087219 ",.02)

 +194     ;;51079087219

 +195     ;;9002226.02101,"1084,51079087220 ",.01)

 +196     ;;51079087220

 +197     ;;9002226.02101,"1084,51079087220 ",.02)

 +198     ;;51079087220

 +199     ;;9002226.02101,"1084,51079087301 ",.01)

 +200     ;;51079087301

 +201     ;;9002226.02101,"1084,51079087301 ",.02)

 +202     ;;51079087301

 +203     ;;9002226.02101,"1084,51079087317 ",.01)

 +204     ;;51079087317

 +205     ;;9002226.02101,"1084,51079087317 ",.02)

 +206     ;;51079087317

 +207     ;;9002226.02101,"1084,51079087319 ",.01)

 +208     ;;51079087319

 +209     ;;9002226.02101,"1084,51079087319 ",.02)

 +210     ;;51079087319

 +211     ;;9002226.02101,"1084,51079087320 ",.01)

 +212     ;;51079087320

 +213     ;;9002226.02101,"1084,51079087320 ",.02)

 +214     ;;51079087320

 +215     ;;9002226.02101,"1084,51079097201 ",.01)

 +216     ;;51079097201

 +217     ;;9002226.02101,"1084,51079097201 ",.02)

 +218     ;;51079097201

 +219     ;;9002226.02101,"1084,51079097217 ",.01)

 +220     ;;51079097217

 +221     ;;9002226.02101,"1084,51079097217 ",.02)

 +222     ;;51079097217

 +223     ;;9002226.02101,"1084,51079097219 ",.01)

 +224     ;;51079097219

 +225     ;;9002226.02101,"1084,51079097219 ",.02)

 +226     ;;51079097219

 +227     ;;9002226.02101,"1084,51079097220 ",.01)

 +228     ;;51079097220

 +229     ;;9002226.02101,"1084,51079097220 ",.02)

 +230     ;;51079097220

 +231     ;;9002226.02101,"1084,51079097230 ",.01)

 +232     ;;51079097230

 +233     ;;9002226.02101,"1084,51079097230 ",.02)

 +234     ;;51079097230

 +235     ;;9002226.02101,"1084,51079097256 ",.01)

 +236     ;;51079097256

 +237     ;;9002226.02101,"1084,51079097256 ",.02)

 +238     ;;51079097256

 +239     ;;9002226.02101,"1084,51079097257 ",.01)

 +240     ;;51079097257

 +241     ;;9002226.02101,"1084,51079097257 ",.02)

 +242     ;;51079097257

 +243     ;;9002226.02101,"1084,51079097301 ",.01)

 +244     ;;51079097301

 +245     ;;9002226.02101,"1084,51079097301 ",.02)

 +246     ;;51079097301

 +247     ;;9002226.02101,"1084,51079097320 ",.01)

 +248     ;;51079097320

 +249     ;;9002226.02101,"1084,51079097320 ",.02)

 +250     ;;51079097320

 +251     ;;9002226.02101,"1084,51079099501 ",.01)

 +252     ;;51079099501

 +253     ;;9002226.02101,"1084,51079099501 ",.02)

 +254     ;;51079099501

 +255     ;;9002226.02101,"1084,51079099520 ",.01)

 +256     ;;51079099520

 +257     ;;9002226.02101,"1084,51079099520 ",.02)

 +258     ;;51079099520

 +259     ;;9002226.02101,"1084,51129128801 ",.01)

 +260     ;;51129128801

 +261     ;;9002226.02101,"1084,51129128801 ",.02)

 +262     ;;51129128801

 +263     ;;9002226.02101,"1084,51129140501 ",.01)

 +264     ;;51129140501

 +265     ;;9002226.02101,"1084,51129140501 ",.02)

 +266     ;;51129140501

 +267     ;;9002226.02101,"1084,51129145501 ",.01)

 +268     ;;51129145501

 +269     ;;9002226.02101,"1084,51129145501 ",.02)

 +270     ;;51129145501

 +271     ;;9002226.02101,"1084,51129148601 ",.01)

 +272     ;;51129148601

 +273     ;;9002226.02101,"1084,51129148601 ",.02)

 +274     ;;51129148601

 +275     ;;9002226.02101,"1084,51129148701 ",.01)

 +276     ;;51129148701

 +277     ;;9002226.02101,"1084,51129148701 ",.02)

 +278     ;;51129148701

 +279     ;;9002226.02101,"1084,51129157301 ",.01)

 +280     ;;51129157301

 +281     ;;9002226.02101,"1084,51129157301 ",.02)

 +282     ;;51129157301

 +283     ;;9002226.02101,"1084,51129162701 ",.01)

 +284     ;;51129162701

 +285     ;;9002226.02101,"1084,51129162701 ",.02)

 +286     ;;51129162701

 +287     ;;9002226.02101,"1084,51129165701 ",.01)

 +288     ;;51129165701

 +289     ;;9002226.02101,"1084,51129165701 ",.02)

 +290     ;;51129165701

 +291     ;;9002226.02101,"1084,51129171901 ",.01)

 +292     ;;51129171901

 +293     ;;9002226.02101,"1084,51129171901 ",.02)

 +294     ;;51129171901

 +295     ;;9002226.02101,"1084,51129172001 ",.01)

 +296     ;;51129172001

 +297     ;;9002226.02101,"1084,51129172001 ",.02)

 +298     ;;51129172001

 +299     ;;9002226.02101,"1084,51129176101 ",.01)

 +300     ;;51129176101

 +301     ;;9002226.02101,"1084,51129176101 ",.02)

 +302     ;;51129176101

 +303     ;;9002226.02101,"1084,51129176601 ",.01)

 +304     ;;51129176601

 +305     ;;9002226.02101,"1084,51129176601 ",.02)

 +306     ;;51129176601

 +307     ;;9002226.02101,"1084,51129179001 ",.01)

 +308     ;;51129179001

 +309     ;;9002226.02101,"1084,51129179001 ",.02)

 +310     ;;51129179001

 +311     ;;9002226.02101,"1084,51129191301 ",.01)

 +312     ;;51129191301

 +313     ;;9002226.02101,"1084,51129191301 ",.02)

 +314     ;;51129191301

 +315     ;;9002226.02101,"1084,51129191401 ",.01)

 +316     ;;51129191401

 +317     ;;9002226.02101,"1084,51129191401 ",.02)

 +318     ;;51129191401

 +319     ;;9002226.02101,"1084,51129196301 ",.01)

 +320     ;;51129196301

 +321     ;;9002226.02101,"1084,51129196301 ",.02)

 +322     ;;51129196301

 +323     ;;9002226.02101,"1084,51129196601 ",.01)

 +324     ;;51129196601

 +325     ;;9002226.02101,"1084,51129196601 ",.02)

 +326     ;;51129196601

 +327     ;;9002226.02101,"1084,51129203301 ",.01)

 +328     ;;51129203301

 +329     ;;9002226.02101,"1084,51129203301 ",.02)

 +330     ;;51129203301

 +331     ;;9002226.02101,"1084,51129203401 ",.01)

 +332     ;;51129203401

 +333     ;;9002226.02101,"1084,51129203401 ",.02)

 +334     ;;51129203401

 +335     ;;9002226.02101,"1084,51129205501 ",.01)

 +336     ;;51129205501

 +337     ;;9002226.02101,"1084,51129205501 ",.02)

 +338     ;;51129205501

 +339     ;;9002226.02101,"1084,51129206201 ",.01)

 +340     ;;51129206201

 +341     ;;9002226.02101,"1084,51129206201 ",.02)

 +342     ;;51129206201

 +343     ;;9002226.02101,"1084,51129207401 ",.01)

 +344     ;;51129207401

 +345     ;;9002226.02101,"1084,51129207401 ",.02)

 +346     ;;51129207401

 +347     ;;9002226.02101,"1084,51129212701 ",.01)

 +348     ;;51129212701

 +349     ;;9002226.02101,"1084,51129212701 ",.02)

 +350     ;;51129212701

 +351     ;;9002226.02101,"1084,51129231501 ",.01)

 +352     ;;51129231501

 +353     ;;9002226.02101,"1084,51129231501 ",.02)

 +354     ;;51129231501

 +355     ;;9002226.02101,"1084,51129241701 ",.01)

 +356     ;;51129241701

 +357     ;;9002226.02101,"1084,51129241701 ",.02)

 +358     ;;51129241701

 +359     ;;9002226.02101,"1084,51129241801 ",.01)

 +360     ;;51129241801

 +361     ;;9002226.02101,"1084,51129241801 ",.02)

 +362     ;;51129241801

 +363     ;;9002226.02101,"1084,51129246001 ",.01)

 +364     ;;51129246001

 +365     ;;9002226.02101,"1084,51129246001 ",.02)

 +366     ;;51129246001

 +367     ;;9002226.02101,"1084,51129246101 ",.01)

 +368     ;;51129246101

 +369     ;;9002226.02101,"1084,51129246101 ",.02)

 +370     ;;51129246101

 +371     ;;9002226.02101,"1084,51129257200 ",.01)

 +372     ;;51129257200

 +373     ;;9002226.02101,"1084,51129257200 ",.02)

 +374     ;;51129257200

 +375     ;;9002226.02101,"1084,51129261001 ",.01)

 +376     ;;51129261001

 +377     ;;9002226.02101,"1084,51129261001 ",.02)

 +378     ;;51129261001

 +379     ;;9002226.02101,"1084,51129262701 ",.01)

 +380     ;;51129262701

 +381     ;;9002226.02101,"1084,51129262701 ",.02)

 +382     ;;51129262701

 +383     ;;9002226.02101,"1084,51129268701 ",.01)

 +384     ;;51129268701

 +385     ;;9002226.02101,"1084,51129268701 ",.02)

 +386     ;;51129268701

 +387     ;;9002226.02101,"1084,51129272801 ",.01)

 +388     ;;51129272801

 +389     ;;9002226.02101,"1084,51129272801 ",.02)

 +390     ;;51129272801

 +391     ;;9002226.02101,"1084,51129274501 ",.01)

 +392     ;;51129274501

 +393     ;;9002226.02101,"1084,51129274501 ",.02)

 +394     ;;51129274501

 +395     ;;9002226.02101,"1084,51129284401 ",.01)

 +396     ;;51129284401

 +397     ;;9002226.02101,"1084,51129284401 ",.02)

 +398     ;;51129284401

 +399     ;;9002226.02101,"1084,51129284402 ",.01)

 +400     ;;51129284402

 +401     ;;9002226.02101,"1084,51129284402 ",.02)

 +402     ;;51129284402

BGPM5BFB.m