Routine: BGPM5AT

BGPM5AT ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 24, 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,"1011,11014070224 ",.01)

 ;;11014070224

 ;;9002226.02101,"1011,11014070224 ",.02)

 ;;11014070224

 ;;9002226.02101,"1011,11014070236 ",.01)

 ;;11014070236

 ;;9002226.02101,"1011,11014070236 ",.02)

 ;;11014070236

 ;;9002226.02101,"1011,11014070330 ",.01)

 ;;11014070330

 ;;9002226.02101,"1011,11014070330 ",.02)

 ;;11014070330

 ;;9002226.02101,"1011,11014071025 ",.01)

 ;;11014071025

 ;;9002226.02101,"1011,11014071025 ",.02)

 ;;11014071025

 ;;9002226.02101,"1011,11014071030 ",.01)

 ;;11014071030

 ;;9002226.02101,"1011,11014071030 ",.02)

 ;;11014071030

 ;;9002226.02101,"1011,11014071060 ",.01)

 ;;11014071060

 ;;9002226.02101,"1011,11014071060 ",.02)

 ;;11014071060

 ;;9002226.02101,"1011,11014074312 ",.01)

 ;;11014074312

 ;;9002226.02101,"1011,11014074312 ",.02)

 ;;11014074312

 ;;9002226.02101,"1011,11014074360 ",.01)

 ;;11014074360

 ;;9002226.02101,"1011,11014074360 ",.02)

 ;;11014074360

 ;;9002226.02101,"1011,11517316901 ",.01)

 ;;11517316901

 ;;9002226.02101,"1011,11517316901 ",.02)

 ;;11517316901

 ;;9002226.02101,"1011,11517316902 ",.01)

 ;;11517316902

 ;;9002226.02101,"1011,11517316902 ",.02)

 ;;11517316902

 ;;9002226.02101,"1011,11517316909 ",.01)

 ;;11517316909

 ;;9002226.02101,"1011,11517316909 ",.02)

 ;;11517316909

 ;;9002226.02101,"1011,11517386901 ",.01)

 ;;11517386901

 ;;9002226.02101,"1011,11517386901 ",.02)

 ;;11517386901

 ;;9002226.02101,"1011,11517386902 ",.01)

 ;;11517386902

 ;;9002226.02101,"1011,11517386902 ",.02)

 ;;11517386902

 ;;9002226.02101,"1011,11822527801 ",.01)

 ;;11822527801

 ;;9002226.02101,"1011,11822527801 ",.02)

 ;;11822527801

 ;;9002226.02101,"1011,12280004290 ",.01)

 ;;12280004290

 ;;9002226.02101,"1011,12280004290 ",.02)

 ;;12280004290

 ;;9002226.02101,"1011,12525067501 ",.01)

 ;;12525067501

 ;;9002226.02101,"1011,12525067501 ",.02)

 ;;12525067501

 ;;9002226.02101,"1011,12525067502 ",.01)

 ;;12525067502

 ;;9002226.02101,"1011,12525067502 ",.02)

 ;;12525067502

 ;;9002226.02101,"1011,12525067599 ",.01)

 ;;12525067599

 ;;9002226.02101,"1011,12525067599 ",.02)

 ;;12525067599

 ;;9002226.02101,"1011,12634082471 ",.01)

 ;;12634082471

 ;;9002226.02101,"1011,12634082471 ",.02)

 ;;12634082471

 ;;9002226.02101,"1011,13411015101 ",.01)

 ;;13411015101

 ;;9002226.02101,"1011,13411015101 ",.02)

 ;;13411015101

 ;;9002226.02101,"1011,13411015103 ",.01)

 ;;13411015103

 ;;9002226.02101,"1011,13411015103 ",.02)

 ;;13411015103

 ;;9002226.02101,"1011,13411015106 ",.01)

 ;;13411015106

 ;;9002226.02101,"1011,13411015106 ",.02)

 ;;13411015106

 ;;9002226.02101,"1011,13411015109 ",.01)

 ;;13411015109

 ;;9002226.02101,"1011,13411015109 ",.02)

 ;;13411015109

 ;;9002226.02101,"1011,13411015115 ",.01)

 ;;13411015115

 ;;9002226.02101,"1011,13411015115 ",.02)

 ;;13411015115

 ;;9002226.02101,"1011,13411016001 ",.01)

 ;;13411016001

 ;;9002226.02101,"1011,13411016001 ",.02)

 ;;13411016001

 ;;9002226.02101,"1011,13411016003 ",.01)

 ;;13411016003

 ;;9002226.02101,"1011,13411016003 ",.02)

 ;;13411016003

 ;;9002226.02101,"1011,13411016006 ",.01)

 ;;13411016006

 ;;9002226.02101,"1011,13411016006 ",.02)

 ;;13411016006

 ;;9002226.02101,"1011,13411016009 ",.01)

 ;;13411016009

 ;;9002226.02101,"1011,13411016009 ",.02)

 ;;13411016009

 ;;9002226.02101,"1011,13411016015 ",.01)

 ;;13411016015

 ;;9002226.02101,"1011,13411016015 ",.02)

 ;;13411016015

 ;;9002226.02101,"1011,13411027702 ",.01)

 ;;13411027702

 ;;9002226.02101,"1011,13411027702 ",.02)

 ;;13411027702

 ;;9002226.02101,"1011,16252009722 ",.01)

 ;;16252009722

 ;;9002226.02101,"1011,16252009722 ",.02)

 ;;16252009722

 ;;9002226.02101,"1011,16252009733 ",.01)

 ;;16252009733

 ;;9002226.02101,"1011,16252009733 ",.02)

 ;;16252009733

 ;;9002226.02101,"1011,16252009766 ",.01)

 ;;16252009766

 ;;9002226.02101,"1011,16252009766 ",.02)

 ;;16252009766

 ;;9002226.02101,"1011,16571001101 ",.01)

 ;;16571001101

 ;;9002226.02101,"1011,16571001101 ",.02)

 ;;16571001101

 ;;9002226.02101,"1011,16571001110 ",.01)

 ;;16571001110

 ;;9002226.02101,"1011,16571001110 ",.02)

 ;;16571001110

 ;;9002226.02101,"1011,16590033908 ",.01)

 ;;16590033908

 ;;9002226.02101,"1011,16590033908 ",.02)

 ;;16590033908

 ;;9002226.02101,"1011,17088003001 ",.01)

 ;;17088003001

 ;;9002226.02101,"1011,17088003001 ",.02)

 ;;17088003001

 ;;9002226.02101,"1011,17270072101 ",.01)

 ;;17270072101

 ;;9002226.02101,"1011,17270072101 ",.02)

 ;;17270072101

 ;;9002226.02101,"1011,17270072102 ",.01)

 ;;17270072102

 ;;9002226.02101,"1011,17270072102 ",.02)

 ;;17270072102

 ;;9002226.02101,"1011,21695015324 ",.01)

 ;;21695015324

 ;;9002226.02101,"1011,21695015324 ",.02)

 ;;21695015324

 ;;9002226.02101,"1011,21695019601 ",.01)

 ;;21695019601

 ;;9002226.02101,"1011,21695019601 ",.02)

 ;;21695019601

 ;;9002226.02101,"1011,21695019701 ",.01)

 ;;21695019701

 ;;9002226.02101,"1011,21695019701 ",.02)

 ;;21695019701

 ;;9002226.02101,"1011,21695019801 ",.01)

 ;;21695019801

 ;;9002226.02101,"1011,21695019801 ",.02)

 ;;21695019801

 ;;9002226.02101,"1011,21695022130 ",.01)

 ;;21695022130

 ;;9002226.02101,"1011,21695022130 ",.02)

 ;;21695022130

 ;;9002226.02101,"1011,21695024520 ",.01)

 ;;21695024520

 ;;9002226.02101,"1011,21695024520 ",.02)

 ;;21695024520

 ;;9002226.02101,"1011,21695033225 ",.01)

 ;;21695033225

 ;;9002226.02101,"1011,21695033225 ",.02)

 ;;21695033225

 ;;9002226.02101,"1011,21695036160 ",.01)

 ;;21695036160

 ;;9002226.02101,"1011,21695036160 ",.02)

 ;;21695036160

 ;;9002226.02101,"1011,21695042308 ",.01)

 ;;21695042308

 ;;9002226.02101,"1011,21695042308 ",.02)

 ;;21695042308

 ;;9002226.02101,"1011,21695056530 ",.01)

 ;;21695056530

 ;;9002226.02101,"1011,21695056530 ",.02)

 ;;21695056530

 ;;9002226.02101,"1011,23490502001 ",.01)

 ;;23490502001

 ;;9002226.02101,"1011,23490502001 ",.02)

 ;;23490502001

 ;;9002226.02101,"1011,23490502002 ",.01)

 ;;23490502002

 ;;9002226.02101,"1011,23490502002 ",.02)

 ;;23490502002

 ;;9002226.02101,"1011,23490502003 ",.01)

 ;;23490502003

 ;;9002226.02101,"1011,23490502003 ",.02)

 ;;23490502003

 ;;9002226.02101,"1011,23490502102 ",.01)

 ;;23490502102

 ;;9002226.02101,"1011,23490502102 ",.02)

 ;;23490502102

 ;;9002226.02101,"1011,23490735501 ",.01)

 ;;23490735501

 ;;9002226.02101,"1011,23490735501 ",.02)

 ;;23490735501

 ;;9002226.02101,"1011,23490754201 ",.01)

 ;;23490754201

 ;;9002226.02101,"1011,23490754201 ",.02)

 ;;23490754201

 ;;9002226.02101,"1011,24208034720 ",.01)

 ;;24208034720

 ;;9002226.02101,"1011,24208034720 ",.02)

 ;;24208034720

 ;;9002226.02101,"1011,24208037360 ",.01)

 ;;24208037360

 ;;9002226.02101,"1011,24208037360 ",.02)

 ;;24208037360

 ;;9002226.02101,"1011,24208037362 ",.01)

 ;;24208037362

 ;;9002226.02101,"1011,24208037362 ",.02)

 ;;24208037362

 ;;9002226.02101,"1011,24208037425 ",.01)

 ;;24208037425

 ;;9002226.02101,"1011,24208037425 ",.02)

 ;;24208037425

 ;;9002226.02101,"1011,24208037460 ",.01)

 ;;24208037460

 ;;9002226.02101,"1011,24208037460 ",.02)

 ;;24208037460

 ;;9002226.02101,"1011,24236043302 ",.01)

 ;;24236043302

 ;;9002226.02101,"1011,24236043302 ",.02)

 ;;24236043302

 ;;9002226.02101,"1011,24236068502 ",.01)

 ;;24236068502

 ;;9002226.02101,"1011,24236068502 ",.02)

 ;;24236068502

 ;;9002226.02101,"1011,24236086002 ",.01)

 ;;24236086002

 ;;9002226.02101,"1011,24236086002 ",.02)

 ;;24236086002

 ;;9002226.02101,"1011,26053036601 ",.01)

 ;;26053036601

 ;;9002226.02101,"1011,26053036601 ",.02)

 ;;26053036601

 ;;9002226.02101,"1011,29033000101 ",.01)

 ;;29033000101

 ;;9002226.02101,"1011,29033000101 ",.02)

 ;;29033000101

 ;;9002226.02101,"1011,29033000105 ",.01)

 ;;29033000105

 ;;9002226.02101,"1011,29033000105 ",.02)

 ;;29033000105

 ;;9002226.02101,"1011,35356009914 ",.01)

 ;;35356009914

 ;;9002226.02101,"1011,35356009914 ",.02)

 ;;35356009914

 ;;9002226.02101,"1011,35356015701 ",.01)

 ;;35356015701

 ;;9002226.02101,"1011,35356015701 ",.02)

 ;;35356015701

 ;;9002226.02101,"1011,35356016601 ",.01)

 ;;35356016601

 ;;9002226.02101,"1011,35356016601 ",.02)

 ;;35356016601

 ;;9002226.02101,"1011,35356048903 ",.01)

 ;;35356048903

 ;;9002226.02101,"1011,35356048903 ",.02)

 ;;35356048903

 ;;9002226.02101,"1011,35356049401 ",.01)

 ;;35356049401

 ;;9002226.02101,"1011,35356049401 ",.02)

 ;;35356049401

 ;;9002226.02101,"1011,44100025101 ",.01)

 ;;44100025101

 ;;9002226.02101,"1011,44100025101 ",.02)

 ;;44100025101

 ;;9002226.02101,"1011,44100025201 ",.01)

 ;;44100025201

 ;;9002226.02101,"1011,44100025201 ",.02)

 ;;44100025201

 ;;9002226.02101,"1011,44514090336 ",.01)

 ;;44514090336

 ;;9002226.02101,"1011,44514090336 ",.02)

 ;;44514090336

 ;;9002226.02101,"1011,44514090436 ",.01)

 ;;44514090436

 ;;9002226.02101,"1011,44514090436 ",.02)

 ;;44514090436

 ;;9002226.02101,"1011,48692000404 ",.01)

 ;;48692000404

 ;;9002226.02101,"1011,48692000404 ",.02)

 ;;48692000404

 ;;9002226.02101,"1011,48692000480 ",.01)

 ;;48692000480

 ;;9002226.02101,"1011,48692000480 ",.02)

 ;;48692000480

 ;;9002226.02101,"1011,48879075221 ",.01)

 ;;48879075221

 ;;9002226.02101,"1011,48879075221 ",.02)

 ;;48879075221

 ;;9002226.02101,"1011,48879075260 ",.01)

 ;;48879075260

 ;;9002226.02101,"1011,48879075260 ",.02)

 ;;48879075260

 ;;9002226.02101,"1011,48879083123 ",.01)

 ;;48879083123

 ;;9002226.02101,"1011,48879083123 ",.02)

 ;;48879083123

 ;;9002226.02101,"1011,48879083130 ",.01)

 ;;48879083130

 ;;9002226.02101,"1011,48879083130 ",.02)

 ;;48879083130

 ;;9002226.02101,"1011,48879083160 ",.01)

 ;;48879083160

 ;;9002226.02101,"1011,48879083160 ",.02)

 ;;48879083160

 ;;9002226.02101,"1011,49502010501 ",.01)

 ;;49502010501

 ;;9002226.02101,"1011,49502010501 ",.02)

 ;;49502010501

 ;;9002226.02101,"1011,49502030317 ",.01)

 ;;49502030317

 ;;9002226.02101,"1011,49502030317 ",.02)

 ;;49502030317

 ;;9002226.02101,"1011,49502030327 ",.01)

 ;;49502030327

 ;;9002226.02101,"1011,49502030327 ",.02)

 ;;49502030327

 ;;9002226.02101,"1011,49502068900 ",.01)

 ;;49502068900

 ;;9002226.02101,"1011,49502068900 ",.02)

 ;;49502068900

 ;;9002226.02101,"1011,49502068902 ",.01)

 ;;49502068902

 ;;9002226.02101,"1011,49502068902 ",.02)

 ;;49502068902

 ;;9002226.02101,"1011,49502068912 ",.01)

 ;;49502068912

 ;;9002226.02101,"1011,49502068912 ",.02)

 ;;49502068912

 ;;9002226.02101,"1011,49502068961 ",.01)

 ;;49502068961

 ;;9002226.02101,"1011,49502068961 ",.02)

 ;;49502068961

 ;;9002226.02101,"1011,49502068985 ",.01)

 ;;49502068985

 ;;9002226.02101,"1011,49502068985 ",.02)

 ;;49502068985

 ;;9002226.02101,"1011,49502069203 ",.01)

 ;;49502069203

 ;;9002226.02101,"1011,49502069203 ",.02)

 ;;49502069203

 ;;9002226.02101,"1011,49502069303 ",.01)

 ;;49502069303

 ;;9002226.02101,"1011,49502069303 ",.02)

 ;;49502069303

 ;;9002226.02101,"1011,49502069700 ",.01)

 ;;49502069700

 ;;9002226.02101,"1011,49502069700 ",.02)

 ;;49502069700

 ;;9002226.02101,"1011,49502069703 ",.01)

 ;;49502069703

 ;;9002226.02101,"1011,49502069703 ",.02)

 ;;49502069703

 ;;9002226.02101,"1011,49502069705 ",.01)

 ;;49502069705

 ;;9002226.02101,"1011,49502069705 ",.02)

 ;;49502069705

 ;;9002226.02101,"1011,49502069724 ",.01)

 ;;49502069724

 ;;9002226.02101,"1011,49502069724 ",.02)

 ;;49502069724

 ;;9002226.02101,"1011,49502069729 ",.01)

 ;;49502069729

 ;;9002226.02101,"1011,49502069729 ",.02)

 ;;49502069729

 ;;9002226.02101,"1011,49502069730 ",.01)

 ;;49502069730

 ;;9002226.02101,"1011,49502069730 ",.02)

 ;;49502069730

 ;;9002226.02101,"1011,49502069733 ",.01)

 ;;49502069733

 ;;9002226.02101,"1011,49502069733 ",.02)

 ;;49502069733

 ;;9002226.02101,"1011,49502069760 ",.01)

 ;;49502069760

 ;;9002226.02101,"1011,49502069760 ",.02)

 ;;49502069760

 ;;9002226.02101,"1011,49502069761 ",.01)

 ;;49502069761

BGPM5AT   ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 24, 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,"1011,11014070224 ",.01)

 +2       ;;11014070224

 +3       ;;9002226.02101,"1011,11014070224 ",.02)

 +4       ;;11014070224

 +5       ;;9002226.02101,"1011,11014070236 ",.01)

 +6       ;;11014070236

 +7       ;;9002226.02101,"1011,11014070236 ",.02)

 +8       ;;11014070236

 +9       ;;9002226.02101,"1011,11014070330 ",.01)

 +10      ;;11014070330

 +11      ;;9002226.02101,"1011,11014070330 ",.02)

 +12      ;;11014070330

 +13      ;;9002226.02101,"1011,11014071025 ",.01)

 +14      ;;11014071025

 +15      ;;9002226.02101,"1011,11014071025 ",.02)

 +16      ;;11014071025

 +17      ;;9002226.02101,"1011,11014071030 ",.01)

 +18      ;;11014071030

 +19      ;;9002226.02101,"1011,11014071030 ",.02)

 +20      ;;11014071030

 +21      ;;9002226.02101,"1011,11014071060 ",.01)

 +22      ;;11014071060

 +23      ;;9002226.02101,"1011,11014071060 ",.02)

 +24      ;;11014071060

 +25      ;;9002226.02101,"1011,11014074312 ",.01)

 +26      ;;11014074312

 +27      ;;9002226.02101,"1011,11014074312 ",.02)

 +28      ;;11014074312

 +29      ;;9002226.02101,"1011,11014074360 ",.01)

 +30      ;;11014074360

 +31      ;;9002226.02101,"1011,11014074360 ",.02)

 +32      ;;11014074360

 +33      ;;9002226.02101,"1011,11517316901 ",.01)

 +34      ;;11517316901

 +35      ;;9002226.02101,"1011,11517316901 ",.02)

 +36      ;;11517316901

 +37      ;;9002226.02101,"1011,11517316902 ",.01)

 +38      ;;11517316902

 +39      ;;9002226.02101,"1011,11517316902 ",.02)

 +40      ;;11517316902

 +41      ;;9002226.02101,"1011,11517316909 ",.01)

 +42      ;;11517316909

 +43      ;;9002226.02101,"1011,11517316909 ",.02)

 +44      ;;11517316909

 +45      ;;9002226.02101,"1011,11517386901 ",.01)

 +46      ;;11517386901

 +47      ;;9002226.02101,"1011,11517386901 ",.02)

 +48      ;;11517386901

 +49      ;;9002226.02101,"1011,11517386902 ",.01)

 +50      ;;11517386902

 +51      ;;9002226.02101,"1011,11517386902 ",.02)

 +52      ;;11517386902

 +53      ;;9002226.02101,"1011,11822527801 ",.01)

 +54      ;;11822527801

 +55      ;;9002226.02101,"1011,11822527801 ",.02)

 +56      ;;11822527801

 +57      ;;9002226.02101,"1011,12280004290 ",.01)

 +58      ;;12280004290

 +59      ;;9002226.02101,"1011,12280004290 ",.02)

 +60      ;;12280004290

 +61      ;;9002226.02101,"1011,12525067501 ",.01)

 +62      ;;12525067501

 +63      ;;9002226.02101,"1011,12525067501 ",.02)

 +64      ;;12525067501

 +65      ;;9002226.02101,"1011,12525067502 ",.01)

 +66      ;;12525067502

 +67      ;;9002226.02101,"1011,12525067502 ",.02)

 +68      ;;12525067502

 +69      ;;9002226.02101,"1011,12525067599 ",.01)

 +70      ;;12525067599

 +71      ;;9002226.02101,"1011,12525067599 ",.02)

 +72      ;;12525067599

 +73      ;;9002226.02101,"1011,12634082471 ",.01)

 +74      ;;12634082471

 +75      ;;9002226.02101,"1011,12634082471 ",.02)

 +76      ;;12634082471

 +77      ;;9002226.02101,"1011,13411015101 ",.01)

 +78      ;;13411015101

 +79      ;;9002226.02101,"1011,13411015101 ",.02)

 +80      ;;13411015101

 +81      ;;9002226.02101,"1011,13411015103 ",.01)

 +82      ;;13411015103

 +83      ;;9002226.02101,"1011,13411015103 ",.02)

 +84      ;;13411015103

 +85      ;;9002226.02101,"1011,13411015106 ",.01)

 +86      ;;13411015106

 +87      ;;9002226.02101,"1011,13411015106 ",.02)

 +88      ;;13411015106

 +89      ;;9002226.02101,"1011,13411015109 ",.01)

 +90      ;;13411015109

 +91      ;;9002226.02101,"1011,13411015109 ",.02)

 +92      ;;13411015109

 +93      ;;9002226.02101,"1011,13411015115 ",.01)

 +94      ;;13411015115

 +95      ;;9002226.02101,"1011,13411015115 ",.02)

 +96      ;;13411015115

 +97      ;;9002226.02101,"1011,13411016001 ",.01)

 +98      ;;13411016001

 +99      ;;9002226.02101,"1011,13411016001 ",.02)

 +100     ;;13411016001

 +101     ;;9002226.02101,"1011,13411016003 ",.01)

 +102     ;;13411016003

 +103     ;;9002226.02101,"1011,13411016003 ",.02)

 +104     ;;13411016003

 +105     ;;9002226.02101,"1011,13411016006 ",.01)

 +106     ;;13411016006

 +107     ;;9002226.02101,"1011,13411016006 ",.02)

 +108     ;;13411016006

 +109     ;;9002226.02101,"1011,13411016009 ",.01)

 +110     ;;13411016009

 +111     ;;9002226.02101,"1011,13411016009 ",.02)

 +112     ;;13411016009

 +113     ;;9002226.02101,"1011,13411016015 ",.01)

 +114     ;;13411016015

 +115     ;;9002226.02101,"1011,13411016015 ",.02)

 +116     ;;13411016015

 +117     ;;9002226.02101,"1011,13411027702 ",.01)

 +118     ;;13411027702

 +119     ;;9002226.02101,"1011,13411027702 ",.02)

 +120     ;;13411027702

 +121     ;;9002226.02101,"1011,16252009722 ",.01)

 +122     ;;16252009722

 +123     ;;9002226.02101,"1011,16252009722 ",.02)

 +124     ;;16252009722

 +125     ;;9002226.02101,"1011,16252009733 ",.01)

 +126     ;;16252009733

 +127     ;;9002226.02101,"1011,16252009733 ",.02)

 +128     ;;16252009733

 +129     ;;9002226.02101,"1011,16252009766 ",.01)

 +130     ;;16252009766

 +131     ;;9002226.02101,"1011,16252009766 ",.02)

 +132     ;;16252009766

 +133     ;;9002226.02101,"1011,16571001101 ",.01)

 +134     ;;16571001101

 +135     ;;9002226.02101,"1011,16571001101 ",.02)

 +136     ;;16571001101

 +137     ;;9002226.02101,"1011,16571001110 ",.01)

 +138     ;;16571001110

 +139     ;;9002226.02101,"1011,16571001110 ",.02)

 +140     ;;16571001110

 +141     ;;9002226.02101,"1011,16590033908 ",.01)

 +142     ;;16590033908

 +143     ;;9002226.02101,"1011,16590033908 ",.02)

 +144     ;;16590033908

 +145     ;;9002226.02101,"1011,17088003001 ",.01)

 +146     ;;17088003001

 +147     ;;9002226.02101,"1011,17088003001 ",.02)

 +148     ;;17088003001

 +149     ;;9002226.02101,"1011,17270072101 ",.01)

 +150     ;;17270072101

 +151     ;;9002226.02101,"1011,17270072101 ",.02)

 +152     ;;17270072101

 +153     ;;9002226.02101,"1011,17270072102 ",.01)

 +154     ;;17270072102

 +155     ;;9002226.02101,"1011,17270072102 ",.02)

 +156     ;;17270072102

 +157     ;;9002226.02101,"1011,21695015324 ",.01)

 +158     ;;21695015324

 +159     ;;9002226.02101,"1011,21695015324 ",.02)

 +160     ;;21695015324

 +161     ;;9002226.02101,"1011,21695019601 ",.01)

 +162     ;;21695019601

 +163     ;;9002226.02101,"1011,21695019601 ",.02)

 +164     ;;21695019601

 +165     ;;9002226.02101,"1011,21695019701 ",.01)

 +166     ;;21695019701

 +167     ;;9002226.02101,"1011,21695019701 ",.02)

 +168     ;;21695019701

 +169     ;;9002226.02101,"1011,21695019801 ",.01)

 +170     ;;21695019801

 +171     ;;9002226.02101,"1011,21695019801 ",.02)

 +172     ;;21695019801

 +173     ;;9002226.02101,"1011,21695022130 ",.01)

 +174     ;;21695022130

 +175     ;;9002226.02101,"1011,21695022130 ",.02)

 +176     ;;21695022130

 +177     ;;9002226.02101,"1011,21695024520 ",.01)

 +178     ;;21695024520

 +179     ;;9002226.02101,"1011,21695024520 ",.02)

 +180     ;;21695024520

 +181     ;;9002226.02101,"1011,21695033225 ",.01)

 +182     ;;21695033225

 +183     ;;9002226.02101,"1011,21695033225 ",.02)

 +184     ;;21695033225

 +185     ;;9002226.02101,"1011,21695036160 ",.01)

 +186     ;;21695036160

 +187     ;;9002226.02101,"1011,21695036160 ",.02)

 +188     ;;21695036160

 +189     ;;9002226.02101,"1011,21695042308 ",.01)

 +190     ;;21695042308

 +191     ;;9002226.02101,"1011,21695042308 ",.02)

 +192     ;;21695042308

 +193     ;;9002226.02101,"1011,21695056530 ",.01)

 +194     ;;21695056530

 +195     ;;9002226.02101,"1011,21695056530 ",.02)

 +196     ;;21695056530

 +197     ;;9002226.02101,"1011,23490502001 ",.01)

 +198     ;;23490502001

 +199     ;;9002226.02101,"1011,23490502001 ",.02)

 +200     ;;23490502001

 +201     ;;9002226.02101,"1011,23490502002 ",.01)

 +202     ;;23490502002

 +203     ;;9002226.02101,"1011,23490502002 ",.02)

 +204     ;;23490502002

 +205     ;;9002226.02101,"1011,23490502003 ",.01)

 +206     ;;23490502003

 +207     ;;9002226.02101,"1011,23490502003 ",.02)

 +208     ;;23490502003

 +209     ;;9002226.02101,"1011,23490502102 ",.01)

 +210     ;;23490502102

 +211     ;;9002226.02101,"1011,23490502102 ",.02)

 +212     ;;23490502102

 +213     ;;9002226.02101,"1011,23490735501 ",.01)

 +214     ;;23490735501

 +215     ;;9002226.02101,"1011,23490735501 ",.02)

 +216     ;;23490735501

 +217     ;;9002226.02101,"1011,23490754201 ",.01)

 +218     ;;23490754201

 +219     ;;9002226.02101,"1011,23490754201 ",.02)

 +220     ;;23490754201

 +221     ;;9002226.02101,"1011,24208034720 ",.01)

 +222     ;;24208034720

 +223     ;;9002226.02101,"1011,24208034720 ",.02)

 +224     ;;24208034720

 +225     ;;9002226.02101,"1011,24208037360 ",.01)

 +226     ;;24208037360

 +227     ;;9002226.02101,"1011,24208037360 ",.02)

 +228     ;;24208037360

 +229     ;;9002226.02101,"1011,24208037362 ",.01)

 +230     ;;24208037362

 +231     ;;9002226.02101,"1011,24208037362 ",.02)

 +232     ;;24208037362

 +233     ;;9002226.02101,"1011,24208037425 ",.01)

 +234     ;;24208037425

 +235     ;;9002226.02101,"1011,24208037425 ",.02)

 +236     ;;24208037425

 +237     ;;9002226.02101,"1011,24208037460 ",.01)

 +238     ;;24208037460

 +239     ;;9002226.02101,"1011,24208037460 ",.02)

 +240     ;;24208037460

 +241     ;;9002226.02101,"1011,24236043302 ",.01)

 +242     ;;24236043302

 +243     ;;9002226.02101,"1011,24236043302 ",.02)

 +244     ;;24236043302

 +245     ;;9002226.02101,"1011,24236068502 ",.01)

 +246     ;;24236068502

 +247     ;;9002226.02101,"1011,24236068502 ",.02)

 +248     ;;24236068502

 +249     ;;9002226.02101,"1011,24236086002 ",.01)

 +250     ;;24236086002

 +251     ;;9002226.02101,"1011,24236086002 ",.02)

 +252     ;;24236086002

 +253     ;;9002226.02101,"1011,26053036601 ",.01)

 +254     ;;26053036601

 +255     ;;9002226.02101,"1011,26053036601 ",.02)

 +256     ;;26053036601

 +257     ;;9002226.02101,"1011,29033000101 ",.01)

 +258     ;;29033000101

 +259     ;;9002226.02101,"1011,29033000101 ",.02)

 +260     ;;29033000101

 +261     ;;9002226.02101,"1011,29033000105 ",.01)

 +262     ;;29033000105

 +263     ;;9002226.02101,"1011,29033000105 ",.02)

 +264     ;;29033000105

 +265     ;;9002226.02101,"1011,35356009914 ",.01)

 +266     ;;35356009914

 +267     ;;9002226.02101,"1011,35356009914 ",.02)

 +268     ;;35356009914

 +269     ;;9002226.02101,"1011,35356015701 ",.01)

 +270     ;;35356015701

 +271     ;;9002226.02101,"1011,35356015701 ",.02)

 +272     ;;35356015701

 +273     ;;9002226.02101,"1011,35356016601 ",.01)

 +274     ;;35356016601

 +275     ;;9002226.02101,"1011,35356016601 ",.02)

 +276     ;;35356016601

 +277     ;;9002226.02101,"1011,35356048903 ",.01)

 +278     ;;35356048903

 +279     ;;9002226.02101,"1011,35356048903 ",.02)

 +280     ;;35356048903

 +281     ;;9002226.02101,"1011,35356049401 ",.01)

 +282     ;;35356049401

 +283     ;;9002226.02101,"1011,35356049401 ",.02)

 +284     ;;35356049401

 +285     ;;9002226.02101,"1011,44100025101 ",.01)

 +286     ;;44100025101

 +287     ;;9002226.02101,"1011,44100025101 ",.02)

 +288     ;;44100025101

 +289     ;;9002226.02101,"1011,44100025201 ",.01)

 +290     ;;44100025201

 +291     ;;9002226.02101,"1011,44100025201 ",.02)

 +292     ;;44100025201

 +293     ;;9002226.02101,"1011,44514090336 ",.01)

 +294     ;;44514090336

 +295     ;;9002226.02101,"1011,44514090336 ",.02)

 +296     ;;44514090336

 +297     ;;9002226.02101,"1011,44514090436 ",.01)

 +298     ;;44514090436

 +299     ;;9002226.02101,"1011,44514090436 ",.02)

 +300     ;;44514090436

 +301     ;;9002226.02101,"1011,48692000404 ",.01)

 +302     ;;48692000404

 +303     ;;9002226.02101,"1011,48692000404 ",.02)

 +304     ;;48692000404

 +305     ;;9002226.02101,"1011,48692000480 ",.01)

 +306     ;;48692000480

 +307     ;;9002226.02101,"1011,48692000480 ",.02)

 +308     ;;48692000480

 +309     ;;9002226.02101,"1011,48879075221 ",.01)

 +310     ;;48879075221

 +311     ;;9002226.02101,"1011,48879075221 ",.02)

 +312     ;;48879075221

 +313     ;;9002226.02101,"1011,48879075260 ",.01)

 +314     ;;48879075260

 +315     ;;9002226.02101,"1011,48879075260 ",.02)

 +316     ;;48879075260

 +317     ;;9002226.02101,"1011,48879083123 ",.01)

 +318     ;;48879083123

 +319     ;;9002226.02101,"1011,48879083123 ",.02)

 +320     ;;48879083123

 +321     ;;9002226.02101,"1011,48879083130 ",.01)

 +322     ;;48879083130

 +323     ;;9002226.02101,"1011,48879083130 ",.02)

 +324     ;;48879083130

 +325     ;;9002226.02101,"1011,48879083160 ",.01)

 +326     ;;48879083160

 +327     ;;9002226.02101,"1011,48879083160 ",.02)

 +328     ;;48879083160

 +329     ;;9002226.02101,"1011,49502010501 ",.01)

 +330     ;;49502010501

 +331     ;;9002226.02101,"1011,49502010501 ",.02)

 +332     ;;49502010501

 +333     ;;9002226.02101,"1011,49502030317 ",.01)

 +334     ;;49502030317

 +335     ;;9002226.02101,"1011,49502030317 ",.02)

 +336     ;;49502030317

 +337     ;;9002226.02101,"1011,49502030327 ",.01)

 +338     ;;49502030327

 +339     ;;9002226.02101,"1011,49502030327 ",.02)

 +340     ;;49502030327

 +341     ;;9002226.02101,"1011,49502068900 ",.01)

 +342     ;;49502068900

 +343     ;;9002226.02101,"1011,49502068900 ",.02)

 +344     ;;49502068900

 +345     ;;9002226.02101,"1011,49502068902 ",.01)

 +346     ;;49502068902

 +347     ;;9002226.02101,"1011,49502068902 ",.02)

 +348     ;;49502068902

 +349     ;;9002226.02101,"1011,49502068912 ",.01)

 +350     ;;49502068912

 +351     ;;9002226.02101,"1011,49502068912 ",.02)

 +352     ;;49502068912

 +353     ;;9002226.02101,"1011,49502068961 ",.01)

 +354     ;;49502068961

 +355     ;;9002226.02101,"1011,49502068961 ",.02)

 +356     ;;49502068961

 +357     ;;9002226.02101,"1011,49502068985 ",.01)

 +358     ;;49502068985

 +359     ;;9002226.02101,"1011,49502068985 ",.02)

 +360     ;;49502068985

 +361     ;;9002226.02101,"1011,49502069203 ",.01)

 +362     ;;49502069203

 +363     ;;9002226.02101,"1011,49502069203 ",.02)

 +364     ;;49502069203

 +365     ;;9002226.02101,"1011,49502069303 ",.01)

 +366     ;;49502069303

 +367     ;;9002226.02101,"1011,49502069303 ",.02)

 +368     ;;49502069303

 +369     ;;9002226.02101,"1011,49502069700 ",.01)

 +370     ;;49502069700

 +371     ;;9002226.02101,"1011,49502069700 ",.02)

 +372     ;;49502069700

 +373     ;;9002226.02101,"1011,49502069703 ",.01)

 +374     ;;49502069703

 +375     ;;9002226.02101,"1011,49502069703 ",.02)

 +376     ;;49502069703

 +377     ;;9002226.02101,"1011,49502069705 ",.01)

 +378     ;;49502069705

 +379     ;;9002226.02101,"1011,49502069705 ",.02)

 +380     ;;49502069705

 +381     ;;9002226.02101,"1011,49502069724 ",.01)

 +382     ;;49502069724

 +383     ;;9002226.02101,"1011,49502069724 ",.02)

 +384     ;;49502069724

 +385     ;;9002226.02101,"1011,49502069729 ",.01)

 +386     ;;49502069729

 +387     ;;9002226.02101,"1011,49502069729 ",.02)

 +388     ;;49502069729

 +389     ;;9002226.02101,"1011,49502069730 ",.01)

 +390     ;;49502069730

 +391     ;;9002226.02101,"1011,49502069730 ",.02)

 +392     ;;49502069730

 +393     ;;9002226.02101,"1011,49502069733 ",.01)

 +394     ;;49502069733

 +395     ;;9002226.02101,"1011,49502069733 ",.02)

 +396     ;;49502069733

 +397     ;;9002226.02101,"1011,49502069760 ",.01)

 +398     ;;49502069760

 +399     ;;9002226.02101,"1011,49502069760 ",.02)

 +400     ;;49502069760

 +401     ;;9002226.02101,"1011,49502069761 ",.01)

 +402     ;;49502069761

BGPM5AT.m