Routine: BGPM5BBI

BGPM5BBI ;IHS/MSC/SAT-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,"1044,00093452201 ",.02)

 ;;00093452201

 ;;9002226.02101,"1044,00093452205 ",.01)

 ;;00093452205

 ;;9002226.02101,"1044,00093452205 ",.02)

 ;;00093452205

 ;;9002226.02101,"1044,00093452250 ",.01)

 ;;00093452250

 ;;9002226.02101,"1044,00093452250 ",.02)

 ;;00093452250

 ;;9002226.02101,"1044,00093452301 ",.01)

 ;;00093452301

 ;;9002226.02101,"1044,00093452301 ",.02)

 ;;00093452301

 ;;9002226.02101,"1044,00093452305 ",.01)

 ;;00093452305

 ;;9002226.02101,"1044,00093452305 ",.02)

 ;;00093452305

 ;;9002226.02101,"1044,00093452308 ",.01)

 ;;00093452308

 ;;9002226.02101,"1044,00093452308 ",.02)

 ;;00093452308

 ;;9002226.02101,"1044,00093474001 ",.01)

 ;;00093474001

 ;;9002226.02101,"1044,00093474001 ",.02)

 ;;00093474001

 ;;9002226.02101,"1044,00093474010 ",.01)

 ;;00093474010

 ;;9002226.02101,"1044,00093474010 ",.02)

 ;;00093474010

 ;;9002226.02101,"1044,00093474019 ",.01)

 ;;00093474019

 ;;9002226.02101,"1044,00093474019 ",.02)

 ;;00093474019

 ;;9002226.02101,"1044,00093474093 ",.01)

 ;;00093474093

 ;;9002226.02101,"1044,00093474093 ",.02)

 ;;00093474093

 ;;9002226.02101,"1044,00093474101 ",.01)

 ;;00093474101

 ;;9002226.02101,"1044,00093474101 ",.02)

 ;;00093474101

 ;;9002226.02101,"1044,00093474105 ",.01)

 ;;00093474105

 ;;9002226.02101,"1044,00093474105 ",.02)

 ;;00093474105

 ;;9002226.02101,"1044,00093474119 ",.01)

 ;;00093474119

 ;;9002226.02101,"1044,00093474119 ",.02)

 ;;00093474119

 ;;9002226.02101,"1044,00093474150 ",.01)

 ;;00093474150

 ;;9002226.02101,"1044,00093474150 ",.02)

 ;;00093474150

 ;;9002226.02101,"1044,00093474193 ",.01)

 ;;00093474193

 ;;9002226.02101,"1044,00093474193 ",.02)

 ;;00093474193

 ;;9002226.02101,"1044,00093474201 ",.01)

 ;;00093474201

 ;;9002226.02101,"1044,00093474201 ",.02)

 ;;00093474201

 ;;9002226.02101,"1044,00093474205 ",.01)

 ;;00093474205

 ;;9002226.02101,"1044,00093474205 ",.02)

 ;;00093474205

 ;;9002226.02101,"1044,00093474219 ",.01)

 ;;00093474219

 ;;9002226.02101,"1044,00093474219 ",.02)

 ;;00093474219

 ;;9002226.02101,"1044,00093474250 ",.01)

 ;;00093474250

 ;;9002226.02101,"1044,00093474250 ",.02)

 ;;00093474250

 ;;9002226.02101,"1044,00093474293 ",.01)

 ;;00093474293

 ;;9002226.02101,"1044,00093474293 ",.02)

 ;;00093474293

 ;;9002226.02101,"1044,00093711456 ",.01)

 ;;00093711456

 ;;9002226.02101,"1044,00093711456 ",.02)

 ;;00093711456

 ;;9002226.02101,"1044,00093711498 ",.01)

 ;;00093711498

 ;;9002226.02101,"1044,00093711498 ",.02)

 ;;00093711498

 ;;9002226.02101,"1044,00093711556 ",.01)

 ;;00093711556

 ;;9002226.02101,"1044,00093711556 ",.02)

 ;;00093711556

 ;;9002226.02101,"1044,00093711598 ",.01)

 ;;00093711598

 ;;9002226.02101,"1044,00093711598 ",.02)

 ;;00093711598

 ;;9002226.02101,"1044,00093711656 ",.01)

 ;;00093711656

 ;;9002226.02101,"1044,00093711656 ",.02)

 ;;00093711656

 ;;9002226.02101,"1044,00093711698 ",.01)

 ;;00093711698

 ;;9002226.02101,"1044,00093711698 ",.02)

 ;;00093711698

 ;;9002226.02101,"1044,00093712156 ",.01)

 ;;00093712156

 ;;9002226.02101,"1044,00093712156 ",.02)

 ;;00093712156

 ;;9002226.02101,"1044,00093712198 ",.01)

 ;;00093712198

 ;;9002226.02101,"1044,00093712198 ",.02)

 ;;00093712198

 ;;9002226.02101,"1044,00093717556 ",.01)

 ;;00093717556

 ;;9002226.02101,"1044,00093717556 ",.02)

 ;;00093717556

 ;;9002226.02101,"1044,00093717610 ",.01)

 ;;00093717610

 ;;9002226.02101,"1044,00093717610 ",.02)

 ;;00093717610

 ;;9002226.02101,"1044,00093717656 ",.01)

 ;;00093717656

 ;;9002226.02101,"1044,00093717656 ",.02)

 ;;00093717656

 ;;9002226.02101,"1044,00093717710 ",.01)

 ;;00093717710

 ;;9002226.02101,"1044,00093717710 ",.02)

 ;;00093717710

 ;;9002226.02101,"1044,00093717756 ",.01)

 ;;00093717756

 ;;9002226.02101,"1044,00093717756 ",.02)

 ;;00093717756

 ;;9002226.02101,"1044,00093718356 ",.01)

 ;;00093718356

 ;;9002226.02101,"1044,00093718356 ",.02)

 ;;00093718356

 ;;9002226.02101,"1044,00093718398 ",.01)

 ;;00093718398

 ;;9002226.02101,"1044,00093718398 ",.02)

 ;;00093718398

 ;;9002226.02101,"1044,00093718456 ",.01)

 ;;00093718456

 ;;9002226.02101,"1044,00093718456 ",.02)

 ;;00093718456

 ;;9002226.02101,"1044,00093718498 ",.01)

 ;;00093718498

 ;;9002226.02101,"1044,00093718498 ",.02)

 ;;00093718498

 ;;9002226.02101,"1044,00093718810 ",.01)

 ;;00093718810

 ;;9002226.02101,"1044,00093718810 ",.02)

 ;;00093718810

 ;;9002226.02101,"1044,00093718856 ",.01)

 ;;00093718856

 ;;9002226.02101,"1044,00093718856 ",.02)

 ;;00093718856

 ;;9002226.02101,"1044,00093719801 ",.01)

 ;;00093719801

 ;;9002226.02101,"1044,00093719801 ",.02)

 ;;00093719801

 ;;9002226.02101,"1044,00093719805 ",.01)

 ;;00093719805

 ;;9002226.02101,"1044,00093719805 ",.02)

 ;;00093719805

 ;;9002226.02101,"1044,00093719819 ",.01)

 ;;00093719819

 ;;9002226.02101,"1044,00093719819 ",.02)

 ;;00093719819

 ;;9002226.02101,"1044,00093719856 ",.01)

 ;;00093719856

 ;;9002226.02101,"1044,00093719856 ",.02)

 ;;00093719856

 ;;9002226.02101,"1044,00093719893 ",.01)

 ;;00093719893

 ;;9002226.02101,"1044,00093719893 ",.02)

 ;;00093719893

 ;;9002226.02101,"1044,00093720619 ",.01)

 ;;00093720619

 ;;9002226.02101,"1044,00093720619 ",.02)

 ;;00093720619

 ;;9002226.02101,"1044,00093720656 ",.01)

 ;;00093720656

 ;;9002226.02101,"1044,00093720656 ",.02)

 ;;00093720656

 ;;9002226.02101,"1044,00093720693 ",.01)

 ;;00093720693

 ;;9002226.02101,"1044,00093720693 ",.02)

 ;;00093720693

 ;;9002226.02101,"1044,00093720719 ",.01)

 ;;00093720719

 ;;9002226.02101,"1044,00093720719 ",.02)

 ;;00093720719

 ;;9002226.02101,"1044,00093720756 ",.01)

 ;;00093720756

 ;;9002226.02101,"1044,00093720756 ",.02)

 ;;00093720756

 ;;9002226.02101,"1044,00093720793 ",.01)

 ;;00093720793

 ;;9002226.02101,"1044,00093720793 ",.02)

 ;;00093720793

 ;;9002226.02101,"1044,00093720819 ",.01)

 ;;00093720819

 ;;9002226.02101,"1044,00093720819 ",.02)

 ;;00093720819

 ;;9002226.02101,"1044,00093720856 ",.01)

 ;;00093720856

 ;;9002226.02101,"1044,00093720856 ",.02)

 ;;00093720856

 ;;9002226.02101,"1044,00093720893 ",.01)

 ;;00093720893

 ;;9002226.02101,"1044,00093720893 ",.02)

 ;;00093720893

 ;;9002226.02101,"1044,00093730318 ",.01)

 ;;00093730318

 ;;9002226.02101,"1044,00093730318 ",.02)

 ;;00093730318

 ;;9002226.02101,"1044,00093730365 ",.01)

 ;;00093730365

 ;;9002226.02101,"1044,00093730365 ",.02)

 ;;00093730365

 ;;9002226.02101,"1044,00093730418 ",.01)

 ;;00093730418

 ;;9002226.02101,"1044,00093730418 ",.02)

 ;;00093730418

 ;;9002226.02101,"1044,00093730465 ",.01)

 ;;00093730465

 ;;9002226.02101,"1044,00093730465 ",.02)

 ;;00093730465

 ;;9002226.02101,"1044,00093730502 ",.01)

 ;;00093730502

 ;;9002226.02101,"1044,00093730502 ",.02)

 ;;00093730502

 ;;9002226.02101,"1044,00093730565 ",.01)

 ;;00093730565

 ;;9002226.02101,"1044,00093730565 ",.02)

 ;;00093730565

 ;;9002226.02101,"1044,00093738001 ",.01)

 ;;00093738001

 ;;9002226.02101,"1044,00093738001 ",.02)

 ;;00093738001

 ;;9002226.02101,"1044,00093738070 ",.01)

 ;;00093738070

 ;;9002226.02101,"1044,00093738070 ",.02)

 ;;00093738070

 ;;9002226.02101,"1044,00093738101 ",.01)

 ;;00093738101

 ;;9002226.02101,"1044,00093738101 ",.02)

 ;;00093738101

 ;;9002226.02101,"1044,00093738197 ",.01)

 ;;00093738197

 ;;9002226.02101,"1044,00093738197 ",.02)

 ;;00093738197

 ;;9002226.02101,"1044,00093738201 ",.01)

 ;;00093738201

 ;;9002226.02101,"1044,00093738201 ",.02)

 ;;00093738201

 ;;9002226.02101,"1044,00093738283 ",.01)

 ;;00093738283

 ;;9002226.02101,"1044,00093738283 ",.02)

 ;;00093738283

 ;;9002226.02101,"1044,00093738301 ",.01)

 ;;00093738301

 ;;9002226.02101,"1044,00093738301 ",.02)

 ;;00093738301

 ;;9002226.02101,"1044,00093738396 ",.01)

 ;;00093738396

 ;;9002226.02101,"1044,00093738396 ",.02)

 ;;00093738396

 ;;9002226.02101,"1044,00093738456 ",.01)

 ;;00093738456

 ;;9002226.02101,"1044,00093738456 ",.02)

 ;;00093738456

 ;;9002226.02101,"1044,00093738498 ",.01)

 ;;00093738498

 ;;9002226.02101,"1044,00093738498 ",.02)

 ;;00093738498

 ;;9002226.02101,"1044,00093738556 ",.01)

 ;;00093738556

 ;;9002226.02101,"1044,00093738556 ",.02)

 ;;00093738556

 ;;9002226.02101,"1044,00093738598 ",.01)

 ;;00093738598

 ;;9002226.02101,"1044,00093738598 ",.02)

 ;;00093738598

 ;;9002226.02101,"1044,00093738656 ",.01)

 ;;00093738656

 ;;9002226.02101,"1044,00093738656 ",.02)

 ;;00093738656

 ;;9002226.02101,"1044,00093738698 ",.01)

 ;;00093738698

 ;;9002226.02101,"1044,00093738698 ",.02)

 ;;00093738698

 ;;9002226.02101,"1044,00093751556 ",.01)

 ;;00093751556

 ;;9002226.02101,"1044,00093751556 ",.02)

 ;;00093751556

 ;;9002226.02101,"1044,00093751598 ",.01)

 ;;00093751598

 ;;9002226.02101,"1044,00093751598 ",.02)

 ;;00093751598

 ;;9002226.02101,"1044,00121067805 ",.01)

 ;;00121067805

 ;;9002226.02101,"1044,00121067805 ",.02)

 ;;00121067805

 ;;9002226.02101,"1044,00121067812 ",.01)

 ;;00121067812

 ;;9002226.02101,"1044,00121067812 ",.02)

 ;;00121067812

 ;;9002226.02101,"1044,00121067816 ",.01)

 ;;00121067816

 ;;9002226.02101,"1044,00121067816 ",.02)

 ;;00121067816

 ;;9002226.02101,"1044,00121067825 ",.01)

 ;;00121067825

 ;;9002226.02101,"1044,00121067825 ",.02)

 ;;00121067825

 ;;9002226.02101,"1044,00131326532 ",.01)

 ;;00131326532

 ;;9002226.02101,"1044,00131326532 ",.02)

 ;;00131326532

 ;;9002226.02101,"1044,00131326546 ",.01)

 ;;00131326546

 ;;9002226.02101,"1044,00131326546 ",.02)

 ;;00131326546

 ;;9002226.02101,"1044,00131326632 ",.01)

 ;;00131326632

 ;;9002226.02101,"1044,00131326632 ",.02)

 ;;00131326632

 ;;9002226.02101,"1044,00131326646 ",.01)

 ;;00131326646

 ;;9002226.02101,"1044,00131326646 ",.02)

 ;;00131326646

 ;;9002226.02101,"1044,00131326732 ",.01)

 ;;00131326732

 ;;9002226.02101,"1044,00131326732 ",.02)

 ;;00131326732

 ;;9002226.02101,"1044,00131326746 ",.01)

 ;;00131326746

 ;;9002226.02101,"1044,00131326746 ",.02)

 ;;00131326746

 ;;9002226.02101,"1044,00131326832 ",.01)

 ;;00131326832

 ;;9002226.02101,"1044,00131326832 ",.02)

 ;;00131326832

 ;;9002226.02101,"1044,00131326846 ",.01)

 ;;00131326846

 ;;9002226.02101,"1044,00131326846 ",.02)

 ;;00131326846

 ;;9002226.02101,"1044,00143958005 ",.01)

 ;;00143958005

 ;;9002226.02101,"1044,00143958005 ",.02)

 ;;00143958005

 ;;9002226.02101,"1044,00143958009 ",.01)

 ;;00143958009

 ;;9002226.02101,"1044,00143958009 ",.02)

 ;;00143958009

 ;;9002226.02101,"1044,00143958030 ",.01)

 ;;00143958030

 ;;9002226.02101,"1044,00143958030 ",.02)

 ;;00143958030

 ;;9002226.02101,"1044,00143958090 ",.01)

 ;;00143958090

 ;;9002226.02101,"1044,00143958090 ",.02)

 ;;00143958090

 ;;9002226.02101,"1044,00143958105 ",.01)

 ;;00143958105

 ;;9002226.02101,"1044,00143958105 ",.02)

 ;;00143958105

 ;;9002226.02101,"1044,00143958109 ",.01)

 ;;00143958109

 ;;9002226.02101,"1044,00143958109 ",.02)

 ;;00143958109

 ;;9002226.02101,"1044,00143958130 ",.01)

 ;;00143958130

 ;;9002226.02101,"1044,00143958130 ",.02)

 ;;00143958130

 ;;9002226.02101,"1044,00143958190 ",.01)

 ;;00143958190

 ;;9002226.02101,"1044,00143958190 ",.02)

 ;;00143958190

 ;;9002226.02101,"1044,00143958209 ",.01)

 ;;00143958209

 ;;9002226.02101,"1044,00143958209 ",.02)

 ;;00143958209

 ;;9002226.02101,"1044,00143958230 ",.01)

 ;;00143958230

 ;;9002226.02101,"1044,00143958230 ",.02)

 ;;00143958230

 ;;9002226.02101,"1044,00143958290 ",.01)

 ;;00143958290

 ;;9002226.02101,"1044,00143958290 ",.02)

 ;;00143958290

 ;;9002226.02101,"1044,00143995601 ",.01)

 ;;00143995601

 ;;9002226.02101,"1044,00143995601 ",.02)

 ;;00143995601

 ;;9002226.02101,"1044,00143995605 ",.01)

 ;;00143995605

 ;;9002226.02101,"1044,00143995605 ",.02)

 ;;00143995605

 ;;9002226.02101,"1044,00143995630 ",.01)

 ;;00143995630

 ;;9002226.02101,"1044,00143995630 ",.02)

 ;;00143995630

BGPM5BBI  ;IHS/MSC/SAT-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,"1044,00093452201 ",.02)

 +2       ;;00093452201

 +3       ;;9002226.02101,"1044,00093452205 ",.01)

 +4       ;;00093452205

 +5       ;;9002226.02101,"1044,00093452205 ",.02)

 +6       ;;00093452205

 +7       ;;9002226.02101,"1044,00093452250 ",.01)

 +8       ;;00093452250

 +9       ;;9002226.02101,"1044,00093452250 ",.02)

 +10      ;;00093452250

 +11      ;;9002226.02101,"1044,00093452301 ",.01)

 +12      ;;00093452301

 +13      ;;9002226.02101,"1044,00093452301 ",.02)

 +14      ;;00093452301

 +15      ;;9002226.02101,"1044,00093452305 ",.01)

 +16      ;;00093452305

 +17      ;;9002226.02101,"1044,00093452305 ",.02)

 +18      ;;00093452305

 +19      ;;9002226.02101,"1044,00093452308 ",.01)

 +20      ;;00093452308

 +21      ;;9002226.02101,"1044,00093452308 ",.02)

 +22      ;;00093452308

 +23      ;;9002226.02101,"1044,00093474001 ",.01)

 +24      ;;00093474001

 +25      ;;9002226.02101,"1044,00093474001 ",.02)

 +26      ;;00093474001

 +27      ;;9002226.02101,"1044,00093474010 ",.01)

 +28      ;;00093474010

 +29      ;;9002226.02101,"1044,00093474010 ",.02)

 +30      ;;00093474010

 +31      ;;9002226.02101,"1044,00093474019 ",.01)

 +32      ;;00093474019

 +33      ;;9002226.02101,"1044,00093474019 ",.02)

 +34      ;;00093474019

 +35      ;;9002226.02101,"1044,00093474093 ",.01)

 +36      ;;00093474093

 +37      ;;9002226.02101,"1044,00093474093 ",.02)

 +38      ;;00093474093

 +39      ;;9002226.02101,"1044,00093474101 ",.01)

 +40      ;;00093474101

 +41      ;;9002226.02101,"1044,00093474101 ",.02)

 +42      ;;00093474101

 +43      ;;9002226.02101,"1044,00093474105 ",.01)

 +44      ;;00093474105

 +45      ;;9002226.02101,"1044,00093474105 ",.02)

 +46      ;;00093474105

 +47      ;;9002226.02101,"1044,00093474119 ",.01)

 +48      ;;00093474119

 +49      ;;9002226.02101,"1044,00093474119 ",.02)

 +50      ;;00093474119

 +51      ;;9002226.02101,"1044,00093474150 ",.01)

 +52      ;;00093474150

 +53      ;;9002226.02101,"1044,00093474150 ",.02)

 +54      ;;00093474150

 +55      ;;9002226.02101,"1044,00093474193 ",.01)

 +56      ;;00093474193

 +57      ;;9002226.02101,"1044,00093474193 ",.02)

 +58      ;;00093474193

 +59      ;;9002226.02101,"1044,00093474201 ",.01)

 +60      ;;00093474201

 +61      ;;9002226.02101,"1044,00093474201 ",.02)

 +62      ;;00093474201

 +63      ;;9002226.02101,"1044,00093474205 ",.01)

 +64      ;;00093474205

 +65      ;;9002226.02101,"1044,00093474205 ",.02)

 +66      ;;00093474205

 +67      ;;9002226.02101,"1044,00093474219 ",.01)

 +68      ;;00093474219

 +69      ;;9002226.02101,"1044,00093474219 ",.02)

 +70      ;;00093474219

 +71      ;;9002226.02101,"1044,00093474250 ",.01)

 +72      ;;00093474250

 +73      ;;9002226.02101,"1044,00093474250 ",.02)

 +74      ;;00093474250

 +75      ;;9002226.02101,"1044,00093474293 ",.01)

 +76      ;;00093474293

 +77      ;;9002226.02101,"1044,00093474293 ",.02)

 +78      ;;00093474293

 +79      ;;9002226.02101,"1044,00093711456 ",.01)

 +80      ;;00093711456

 +81      ;;9002226.02101,"1044,00093711456 ",.02)

 +82      ;;00093711456

 +83      ;;9002226.02101,"1044,00093711498 ",.01)

 +84      ;;00093711498

 +85      ;;9002226.02101,"1044,00093711498 ",.02)

 +86      ;;00093711498

 +87      ;;9002226.02101,"1044,00093711556 ",.01)

 +88      ;;00093711556

 +89      ;;9002226.02101,"1044,00093711556 ",.02)

 +90      ;;00093711556

 +91      ;;9002226.02101,"1044,00093711598 ",.01)

 +92      ;;00093711598

 +93      ;;9002226.02101,"1044,00093711598 ",.02)

 +94      ;;00093711598

 +95      ;;9002226.02101,"1044,00093711656 ",.01)

 +96      ;;00093711656

 +97      ;;9002226.02101,"1044,00093711656 ",.02)

 +98      ;;00093711656

 +99      ;;9002226.02101,"1044,00093711698 ",.01)

 +100     ;;00093711698

 +101     ;;9002226.02101,"1044,00093711698 ",.02)

 +102     ;;00093711698

 +103     ;;9002226.02101,"1044,00093712156 ",.01)

 +104     ;;00093712156

 +105     ;;9002226.02101,"1044,00093712156 ",.02)

 +106     ;;00093712156

 +107     ;;9002226.02101,"1044,00093712198 ",.01)

 +108     ;;00093712198

 +109     ;;9002226.02101,"1044,00093712198 ",.02)

 +110     ;;00093712198

 +111     ;;9002226.02101,"1044,00093717556 ",.01)

 +112     ;;00093717556

 +113     ;;9002226.02101,"1044,00093717556 ",.02)

 +114     ;;00093717556

 +115     ;;9002226.02101,"1044,00093717610 ",.01)

 +116     ;;00093717610

 +117     ;;9002226.02101,"1044,00093717610 ",.02)

 +118     ;;00093717610

 +119     ;;9002226.02101,"1044,00093717656 ",.01)

 +120     ;;00093717656

 +121     ;;9002226.02101,"1044,00093717656 ",.02)

 +122     ;;00093717656

 +123     ;;9002226.02101,"1044,00093717710 ",.01)

 +124     ;;00093717710

 +125     ;;9002226.02101,"1044,00093717710 ",.02)

 +126     ;;00093717710

 +127     ;;9002226.02101,"1044,00093717756 ",.01)

 +128     ;;00093717756

 +129     ;;9002226.02101,"1044,00093717756 ",.02)

 +130     ;;00093717756

 +131     ;;9002226.02101,"1044,00093718356 ",.01)

 +132     ;;00093718356

 +133     ;;9002226.02101,"1044,00093718356 ",.02)

 +134     ;;00093718356

 +135     ;;9002226.02101,"1044,00093718398 ",.01)

 +136     ;;00093718398

 +137     ;;9002226.02101,"1044,00093718398 ",.02)

 +138     ;;00093718398

 +139     ;;9002226.02101,"1044,00093718456 ",.01)

 +140     ;;00093718456

 +141     ;;9002226.02101,"1044,00093718456 ",.02)

 +142     ;;00093718456

 +143     ;;9002226.02101,"1044,00093718498 ",.01)

 +144     ;;00093718498

 +145     ;;9002226.02101,"1044,00093718498 ",.02)

 +146     ;;00093718498

 +147     ;;9002226.02101,"1044,00093718810 ",.01)

 +148     ;;00093718810

 +149     ;;9002226.02101,"1044,00093718810 ",.02)

 +150     ;;00093718810

 +151     ;;9002226.02101,"1044,00093718856 ",.01)

 +152     ;;00093718856

 +153     ;;9002226.02101,"1044,00093718856 ",.02)

 +154     ;;00093718856

 +155     ;;9002226.02101,"1044,00093719801 ",.01)

 +156     ;;00093719801

 +157     ;;9002226.02101,"1044,00093719801 ",.02)

 +158     ;;00093719801

 +159     ;;9002226.02101,"1044,00093719805 ",.01)

 +160     ;;00093719805

 +161     ;;9002226.02101,"1044,00093719805 ",.02)

 +162     ;;00093719805

 +163     ;;9002226.02101,"1044,00093719819 ",.01)

 +164     ;;00093719819

 +165     ;;9002226.02101,"1044,00093719819 ",.02)

 +166     ;;00093719819

 +167     ;;9002226.02101,"1044,00093719856 ",.01)

 +168     ;;00093719856

 +169     ;;9002226.02101,"1044,00093719856 ",.02)

 +170     ;;00093719856

 +171     ;;9002226.02101,"1044,00093719893 ",.01)

 +172     ;;00093719893

 +173     ;;9002226.02101,"1044,00093719893 ",.02)

 +174     ;;00093719893

 +175     ;;9002226.02101,"1044,00093720619 ",.01)

 +176     ;;00093720619

 +177     ;;9002226.02101,"1044,00093720619 ",.02)

 +178     ;;00093720619

 +179     ;;9002226.02101,"1044,00093720656 ",.01)

 +180     ;;00093720656

 +181     ;;9002226.02101,"1044,00093720656 ",.02)

 +182     ;;00093720656

 +183     ;;9002226.02101,"1044,00093720693 ",.01)

 +184     ;;00093720693

 +185     ;;9002226.02101,"1044,00093720693 ",.02)

 +186     ;;00093720693

 +187     ;;9002226.02101,"1044,00093720719 ",.01)

 +188     ;;00093720719

 +189     ;;9002226.02101,"1044,00093720719 ",.02)

 +190     ;;00093720719

 +191     ;;9002226.02101,"1044,00093720756 ",.01)

 +192     ;;00093720756

 +193     ;;9002226.02101,"1044,00093720756 ",.02)

 +194     ;;00093720756

 +195     ;;9002226.02101,"1044,00093720793 ",.01)

 +196     ;;00093720793

 +197     ;;9002226.02101,"1044,00093720793 ",.02)

 +198     ;;00093720793

 +199     ;;9002226.02101,"1044,00093720819 ",.01)

 +200     ;;00093720819

 +201     ;;9002226.02101,"1044,00093720819 ",.02)

 +202     ;;00093720819

 +203     ;;9002226.02101,"1044,00093720856 ",.01)

 +204     ;;00093720856

 +205     ;;9002226.02101,"1044,00093720856 ",.02)

 +206     ;;00093720856

 +207     ;;9002226.02101,"1044,00093720893 ",.01)

 +208     ;;00093720893

 +209     ;;9002226.02101,"1044,00093720893 ",.02)

 +210     ;;00093720893

 +211     ;;9002226.02101,"1044,00093730318 ",.01)

 +212     ;;00093730318

 +213     ;;9002226.02101,"1044,00093730318 ",.02)

 +214     ;;00093730318

 +215     ;;9002226.02101,"1044,00093730365 ",.01)

 +216     ;;00093730365

 +217     ;;9002226.02101,"1044,00093730365 ",.02)

 +218     ;;00093730365

 +219     ;;9002226.02101,"1044,00093730418 ",.01)

 +220     ;;00093730418

 +221     ;;9002226.02101,"1044,00093730418 ",.02)

 +222     ;;00093730418

 +223     ;;9002226.02101,"1044,00093730465 ",.01)

 +224     ;;00093730465

 +225     ;;9002226.02101,"1044,00093730465 ",.02)

 +226     ;;00093730465

 +227     ;;9002226.02101,"1044,00093730502 ",.01)

 +228     ;;00093730502

 +229     ;;9002226.02101,"1044,00093730502 ",.02)

 +230     ;;00093730502

 +231     ;;9002226.02101,"1044,00093730565 ",.01)

 +232     ;;00093730565

 +233     ;;9002226.02101,"1044,00093730565 ",.02)

 +234     ;;00093730565

 +235     ;;9002226.02101,"1044,00093738001 ",.01)

 +236     ;;00093738001

 +237     ;;9002226.02101,"1044,00093738001 ",.02)

 +238     ;;00093738001

 +239     ;;9002226.02101,"1044,00093738070 ",.01)

 +240     ;;00093738070

 +241     ;;9002226.02101,"1044,00093738070 ",.02)

 +242     ;;00093738070

 +243     ;;9002226.02101,"1044,00093738101 ",.01)

 +244     ;;00093738101

 +245     ;;9002226.02101,"1044,00093738101 ",.02)

 +246     ;;00093738101

 +247     ;;9002226.02101,"1044,00093738197 ",.01)

 +248     ;;00093738197

 +249     ;;9002226.02101,"1044,00093738197 ",.02)

 +250     ;;00093738197

 +251     ;;9002226.02101,"1044,00093738201 ",.01)

 +252     ;;00093738201

 +253     ;;9002226.02101,"1044,00093738201 ",.02)

 +254     ;;00093738201

 +255     ;;9002226.02101,"1044,00093738283 ",.01)

 +256     ;;00093738283

 +257     ;;9002226.02101,"1044,00093738283 ",.02)

 +258     ;;00093738283

 +259     ;;9002226.02101,"1044,00093738301 ",.01)

 +260     ;;00093738301

 +261     ;;9002226.02101,"1044,00093738301 ",.02)

 +262     ;;00093738301

 +263     ;;9002226.02101,"1044,00093738396 ",.01)

 +264     ;;00093738396

 +265     ;;9002226.02101,"1044,00093738396 ",.02)

 +266     ;;00093738396

 +267     ;;9002226.02101,"1044,00093738456 ",.01)

 +268     ;;00093738456

 +269     ;;9002226.02101,"1044,00093738456 ",.02)

 +270     ;;00093738456

 +271     ;;9002226.02101,"1044,00093738498 ",.01)

 +272     ;;00093738498

 +273     ;;9002226.02101,"1044,00093738498 ",.02)

 +274     ;;00093738498

 +275     ;;9002226.02101,"1044,00093738556 ",.01)

 +276     ;;00093738556

 +277     ;;9002226.02101,"1044,00093738556 ",.02)

 +278     ;;00093738556

 +279     ;;9002226.02101,"1044,00093738598 ",.01)

 +280     ;;00093738598

 +281     ;;9002226.02101,"1044,00093738598 ",.02)

 +282     ;;00093738598

 +283     ;;9002226.02101,"1044,00093738656 ",.01)

 +284     ;;00093738656

 +285     ;;9002226.02101,"1044,00093738656 ",.02)

 +286     ;;00093738656

 +287     ;;9002226.02101,"1044,00093738698 ",.01)

 +288     ;;00093738698

 +289     ;;9002226.02101,"1044,00093738698 ",.02)

 +290     ;;00093738698

 +291     ;;9002226.02101,"1044,00093751556 ",.01)

 +292     ;;00093751556

 +293     ;;9002226.02101,"1044,00093751556 ",.02)

 +294     ;;00093751556

 +295     ;;9002226.02101,"1044,00093751598 ",.01)

 +296     ;;00093751598

 +297     ;;9002226.02101,"1044,00093751598 ",.02)

 +298     ;;00093751598

 +299     ;;9002226.02101,"1044,00121067805 ",.01)

 +300     ;;00121067805

 +301     ;;9002226.02101,"1044,00121067805 ",.02)

 +302     ;;00121067805

 +303     ;;9002226.02101,"1044,00121067812 ",.01)

 +304     ;;00121067812

 +305     ;;9002226.02101,"1044,00121067812 ",.02)

 +306     ;;00121067812

 +307     ;;9002226.02101,"1044,00121067816 ",.01)

 +308     ;;00121067816

 +309     ;;9002226.02101,"1044,00121067816 ",.02)

 +310     ;;00121067816

 +311     ;;9002226.02101,"1044,00121067825 ",.01)

 +312     ;;00121067825

 +313     ;;9002226.02101,"1044,00121067825 ",.02)

 +314     ;;00121067825

 +315     ;;9002226.02101,"1044,00131326532 ",.01)

 +316     ;;00131326532

 +317     ;;9002226.02101,"1044,00131326532 ",.02)

 +318     ;;00131326532

 +319     ;;9002226.02101,"1044,00131326546 ",.01)

 +320     ;;00131326546

 +321     ;;9002226.02101,"1044,00131326546 ",.02)

 +322     ;;00131326546

 +323     ;;9002226.02101,"1044,00131326632 ",.01)

 +324     ;;00131326632

 +325     ;;9002226.02101,"1044,00131326632 ",.02)

 +326     ;;00131326632

 +327     ;;9002226.02101,"1044,00131326646 ",.01)

 +328     ;;00131326646

 +329     ;;9002226.02101,"1044,00131326646 ",.02)

 +330     ;;00131326646

 +331     ;;9002226.02101,"1044,00131326732 ",.01)

 +332     ;;00131326732

 +333     ;;9002226.02101,"1044,00131326732 ",.02)

 +334     ;;00131326732

 +335     ;;9002226.02101,"1044,00131326746 ",.01)

 +336     ;;00131326746

 +337     ;;9002226.02101,"1044,00131326746 ",.02)

 +338     ;;00131326746

 +339     ;;9002226.02101,"1044,00131326832 ",.01)

 +340     ;;00131326832

 +341     ;;9002226.02101,"1044,00131326832 ",.02)

 +342     ;;00131326832

 +343     ;;9002226.02101,"1044,00131326846 ",.01)

 +344     ;;00131326846

 +345     ;;9002226.02101,"1044,00131326846 ",.02)

 +346     ;;00131326846

 +347     ;;9002226.02101,"1044,00143958005 ",.01)

 +348     ;;00143958005

 +349     ;;9002226.02101,"1044,00143958005 ",.02)

 +350     ;;00143958005

 +351     ;;9002226.02101,"1044,00143958009 ",.01)

 +352     ;;00143958009

 +353     ;;9002226.02101,"1044,00143958009 ",.02)

 +354     ;;00143958009

 +355     ;;9002226.02101,"1044,00143958030 ",.01)

 +356     ;;00143958030

 +357     ;;9002226.02101,"1044,00143958030 ",.02)

 +358     ;;00143958030

 +359     ;;9002226.02101,"1044,00143958090 ",.01)

 +360     ;;00143958090

 +361     ;;9002226.02101,"1044,00143958090 ",.02)

 +362     ;;00143958090

 +363     ;;9002226.02101,"1044,00143958105 ",.01)

 +364     ;;00143958105

 +365     ;;9002226.02101,"1044,00143958105 ",.02)

 +366     ;;00143958105

 +367     ;;9002226.02101,"1044,00143958109 ",.01)

 +368     ;;00143958109

 +369     ;;9002226.02101,"1044,00143958109 ",.02)

 +370     ;;00143958109

 +371     ;;9002226.02101,"1044,00143958130 ",.01)

 +372     ;;00143958130

 +373     ;;9002226.02101,"1044,00143958130 ",.02)

 +374     ;;00143958130

 +375     ;;9002226.02101,"1044,00143958190 ",.01)

 +376     ;;00143958190

 +377     ;;9002226.02101,"1044,00143958190 ",.02)

 +378     ;;00143958190

 +379     ;;9002226.02101,"1044,00143958209 ",.01)

 +380     ;;00143958209

 +381     ;;9002226.02101,"1044,00143958209 ",.02)

 +382     ;;00143958209

 +383     ;;9002226.02101,"1044,00143958230 ",.01)

 +384     ;;00143958230

 +385     ;;9002226.02101,"1044,00143958230 ",.02)

 +386     ;;00143958230

 +387     ;;9002226.02101,"1044,00143958290 ",.01)

 +388     ;;00143958290

 +389     ;;9002226.02101,"1044,00143958290 ",.02)

 +390     ;;00143958290

 +391     ;;9002226.02101,"1044,00143995601 ",.01)

 +392     ;;00143995601

 +393     ;;9002226.02101,"1044,00143995601 ",.02)

 +394     ;;00143995601

 +395     ;;9002226.02101,"1044,00143995605 ",.01)

 +396     ;;00143995605

 +397     ;;9002226.02101,"1044,00143995605 ",.02)

 +398     ;;00143995605

 +399     ;;9002226.02101,"1044,00143995630 ",.01)

 +400     ;;00143995630

 +401     ;;9002226.02101,"1044,00143995630 ",.02)

 +402     ;;00143995630

BGPM5BBI.m