Routine: BGPM5AEI

BGPM5AEI ;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,"881,23490082909 ",.01)

 ;;23490082909

 ;;9002226.02101,"881,23490082909 ",.02)

 ;;23490082909

 ;;9002226.02101,"881,23490148703 ",.01)

 ;;23490148703

 ;;9002226.02101,"881,23490148703 ",.02)

 ;;23490148703

 ;;9002226.02101,"881,23490148706 ",.01)

 ;;23490148706

 ;;9002226.02101,"881,23490148706 ",.02)

 ;;23490148706

 ;;9002226.02101,"881,23490148709 ",.01)

 ;;23490148709

 ;;9002226.02101,"881,23490148709 ",.02)

 ;;23490148709

 ;;9002226.02101,"881,23490148800 ",.01)

 ;;23490148800

 ;;9002226.02101,"881,23490148800 ",.02)

 ;;23490148800

 ;;9002226.02101,"881,23490148803 ",.01)

 ;;23490148803

 ;;9002226.02101,"881,23490148803 ",.02)

 ;;23490148803

 ;;9002226.02101,"881,23490148806 ",.01)

 ;;23490148806

 ;;9002226.02101,"881,23490148806 ",.02)

 ;;23490148806

 ;;9002226.02101,"881,23490148809 ",.01)

 ;;23490148809

 ;;9002226.02101,"881,23490148809 ",.02)

 ;;23490148809

 ;;9002226.02101,"881,23490519101 ",.01)

 ;;23490519101

 ;;9002226.02101,"881,23490519101 ",.02)

 ;;23490519101

 ;;9002226.02101,"881,23490519201 ",.01)

 ;;23490519201

 ;;9002226.02101,"881,23490519201 ",.02)

 ;;23490519201

 ;;9002226.02101,"881,23490519301 ",.01)

 ;;23490519301

 ;;9002226.02101,"881,23490519301 ",.02)

 ;;23490519301

 ;;9002226.02101,"881,23490519302 ",.01)

 ;;23490519302

 ;;9002226.02101,"881,23490519302 ",.02)

 ;;23490519302

 ;;9002226.02101,"881,23490519303 ",.01)

 ;;23490519303

 ;;9002226.02101,"881,23490519303 ",.02)

 ;;23490519303

 ;;9002226.02101,"881,23490519400 ",.01)

 ;;23490519400

 ;;9002226.02101,"881,23490519400 ",.02)

 ;;23490519400

 ;;9002226.02101,"881,23490519401 ",.01)

 ;;23490519401

 ;;9002226.02101,"881,23490519401 ",.02)

 ;;23490519401

 ;;9002226.02101,"881,23490519402 ",.01)

 ;;23490519402

 ;;9002226.02101,"881,23490519402 ",.02)

 ;;23490519402

 ;;9002226.02101,"881,23490549101 ",.01)

 ;;23490549101

 ;;9002226.02101,"881,23490549101 ",.02)

 ;;23490549101

 ;;9002226.02101,"881,23490549102 ",.01)

 ;;23490549102

 ;;9002226.02101,"881,23490549102 ",.02)

 ;;23490549102

 ;;9002226.02101,"881,23490549108 ",.01)

 ;;23490549108

 ;;9002226.02101,"881,23490549108 ",.02)

 ;;23490549108

 ;;9002226.02101,"881,23490549109 ",.01)

 ;;23490549109

 ;;9002226.02101,"881,23490549109 ",.02)

 ;;23490549109

 ;;9002226.02101,"881,23490549201 ",.01)

 ;;23490549201

 ;;9002226.02101,"881,23490549201 ",.02)

 ;;23490549201

 ;;9002226.02101,"881,23490549202 ",.01)

 ;;23490549202

 ;;9002226.02101,"881,23490549202 ",.02)

 ;;23490549202

 ;;9002226.02101,"881,23490549401 ",.01)

 ;;23490549401

 ;;9002226.02101,"881,23490549401 ",.02)

 ;;23490549401

 ;;9002226.02101,"881,23490549402 ",.01)

 ;;23490549402

 ;;9002226.02101,"881,23490549402 ",.02)

 ;;23490549402

 ;;9002226.02101,"881,23490581500 ",.01)

 ;;23490581500

 ;;9002226.02101,"881,23490581500 ",.02)

 ;;23490581500

 ;;9002226.02101,"881,23490581501 ",.01)

 ;;23490581501

 ;;9002226.02101,"881,23490581501 ",.02)

 ;;23490581501

 ;;9002226.02101,"881,23490581601 ",.01)

 ;;23490581601

 ;;9002226.02101,"881,23490581601 ",.02)

 ;;23490581601

 ;;9002226.02101,"881,23490581602 ",.01)

 ;;23490581602

 ;;9002226.02101,"881,23490581602 ",.02)

 ;;23490581602

 ;;9002226.02101,"881,23490581606 ",.01)

 ;;23490581606

 ;;9002226.02101,"881,23490581606 ",.02)

 ;;23490581606

 ;;9002226.02101,"881,23490581702 ",.01)

 ;;23490581702

 ;;9002226.02101,"881,23490581702 ",.02)

 ;;23490581702

 ;;9002226.02101,"881,23490581802 ",.01)

 ;;23490581802

 ;;9002226.02101,"881,23490581802 ",.02)

 ;;23490581802

 ;;9002226.02101,"881,23490581902 ",.01)

 ;;23490581902

 ;;9002226.02101,"881,23490581902 ",.02)

 ;;23490581902

 ;;9002226.02101,"881,23490582001 ",.01)

 ;;23490582001

 ;;9002226.02101,"881,23490582001 ",.02)

 ;;23490582001

 ;;9002226.02101,"881,23490582101 ",.01)

 ;;23490582101

 ;;9002226.02101,"881,23490582101 ",.02)

 ;;23490582101

 ;;9002226.02101,"881,23490582201 ",.01)

 ;;23490582201

 ;;9002226.02101,"881,23490582201 ",.02)

 ;;23490582201

 ;;9002226.02101,"881,23490936403 ",.01)

 ;;23490936403

 ;;9002226.02101,"881,23490936403 ",.02)

 ;;23490936403

 ;;9002226.02101,"881,24196050101 ",.01)

 ;;24196050101

 ;;9002226.02101,"881,24196050101 ",.02)

 ;;24196050101

 ;;9002226.02101,"881,24196050105 ",.01)

 ;;24196050105

 ;;9002226.02101,"881,24196050105 ",.02)

 ;;24196050105

 ;;9002226.02101,"881,24196050201 ",.01)

 ;;24196050201

 ;;9002226.02101,"881,24196050201 ",.02)

 ;;24196050201

 ;;9002226.02101,"881,24196050210 ",.01)

 ;;24196050210

 ;;9002226.02101,"881,24196050210 ",.02)

 ;;24196050210

 ;;9002226.02101,"881,24196050301 ",.01)

 ;;24196050301

 ;;9002226.02101,"881,24196050301 ",.02)

 ;;24196050301

 ;;9002226.02101,"881,24196050310 ",.01)

 ;;24196050310

 ;;9002226.02101,"881,24196050310 ",.02)

 ;;24196050310

 ;;9002226.02101,"881,24196050401 ",.01)

 ;;24196050401

 ;;9002226.02101,"881,24196050401 ",.02)

 ;;24196050401

 ;;9002226.02101,"881,24196050410 ",.01)

 ;;24196050410

 ;;9002226.02101,"881,24196050410 ",.02)

 ;;24196050410

 ;;9002226.02101,"881,24196050501 ",.01)

 ;;24196050501

 ;;9002226.02101,"881,24196050501 ",.02)

 ;;24196050501

 ;;9002226.02101,"881,24196050601 ",.01)

 ;;24196050601

 ;;9002226.02101,"881,24196050601 ",.02)

 ;;24196050601

 ;;9002226.02101,"881,24196050605 ",.01)

 ;;24196050605

 ;;9002226.02101,"881,24196050605 ",.02)

 ;;24196050605

 ;;9002226.02101,"881,24196056501 ",.01)

 ;;24196056501

 ;;9002226.02101,"881,24196056501 ",.02)

 ;;24196056501

 ;;9002226.02101,"881,24196056505 ",.01)

 ;;24196056505

 ;;9002226.02101,"881,24196056505 ",.02)

 ;;24196056505

 ;;9002226.02101,"881,24196056601 ",.01)

 ;;24196056601

 ;;9002226.02101,"881,24196056601 ",.02)

 ;;24196056601

 ;;9002226.02101,"881,24196056605 ",.01)

 ;;24196056605

 ;;9002226.02101,"881,24196056605 ",.02)

 ;;24196056605

 ;;9002226.02101,"881,24196056701 ",.01)

 ;;24196056701

 ;;9002226.02101,"881,24196056701 ",.02)

 ;;24196056701

 ;;9002226.02101,"881,24196056705 ",.01)

 ;;24196056705

 ;;9002226.02101,"881,24196056705 ",.02)

 ;;24196056705

 ;;9002226.02101,"881,24236001002 ",.01)

 ;;24236001002

 ;;9002226.02101,"881,24236001002 ",.02)

 ;;24236001002

 ;;9002226.02101,"881,24236005102 ",.01)

 ;;24236005102

 ;;9002226.02101,"881,24236005102 ",.02)

 ;;24236005102

 ;;9002226.02101,"881,24236005202 ",.01)

 ;;24236005202

 ;;9002226.02101,"881,24236005202 ",.02)

 ;;24236005202

 ;;9002226.02101,"881,24236007602 ",.01)

 ;;24236007602

 ;;9002226.02101,"881,24236007602 ",.02)

 ;;24236007602

 ;;9002226.02101,"881,24236007902 ",.01)

 ;;24236007902

 ;;9002226.02101,"881,24236007902 ",.02)

 ;;24236007902

 ;;9002226.02101,"881,24236008002 ",.01)

 ;;24236008002

 ;;9002226.02101,"881,24236008002 ",.02)

 ;;24236008002

 ;;9002226.02101,"881,24236015302 ",.01)

 ;;24236015302

 ;;9002226.02101,"881,24236015302 ",.02)

 ;;24236015302

 ;;9002226.02101,"881,24236015402 ",.01)

 ;;24236015402

 ;;9002226.02101,"881,24236015402 ",.02)

 ;;24236015402

 ;;9002226.02101,"881,24236022702 ",.01)

 ;;24236022702

 ;;9002226.02101,"881,24236022702 ",.02)

 ;;24236022702

 ;;9002226.02101,"881,24236031702 ",.01)

 ;;24236031702

 ;;9002226.02101,"881,24236031702 ",.02)

 ;;24236031702

 ;;9002226.02101,"881,24236035102 ",.01)

 ;;24236035102

 ;;9002226.02101,"881,24236035102 ",.02)

 ;;24236035102

 ;;9002226.02101,"881,24236037602 ",.01)

 ;;24236037602

 ;;9002226.02101,"881,24236037602 ",.02)

 ;;24236037602

 ;;9002226.02101,"881,24236039502 ",.01)

 ;;24236039502

 ;;9002226.02101,"881,24236039502 ",.02)

 ;;24236039502

 ;;9002226.02101,"881,24236041202 ",.01)

 ;;24236041202

 ;;9002226.02101,"881,24236041202 ",.02)

 ;;24236041202

 ;;9002226.02101,"881,24236054402 ",.01)

 ;;24236054402

 ;;9002226.02101,"881,24236054402 ",.02)

 ;;24236054402

 ;;9002226.02101,"881,24236060802 ",.01)

 ;;24236060802

 ;;9002226.02101,"881,24236060802 ",.02)

 ;;24236060802

 ;;9002226.02101,"881,24236061502 ",.01)

 ;;24236061502

 ;;9002226.02101,"881,24236061502 ",.02)

 ;;24236061502

 ;;9002226.02101,"881,24236072002 ",.01)

 ;;24236072002

 ;;9002226.02101,"881,24236072002 ",.02)

 ;;24236072002

 ;;9002226.02101,"881,24236075002 ",.01)

 ;;24236075002

 ;;9002226.02101,"881,24236075002 ",.02)

 ;;24236075002

 ;;9002226.02101,"881,24236086602 ",.01)

 ;;24236086602

 ;;9002226.02101,"881,24236086602 ",.02)

 ;;24236086602

 ;;9002226.02101,"881,24236090002 ",.01)

 ;;24236090002

 ;;9002226.02101,"881,24236090002 ",.02)

 ;;24236090002

 ;;9002226.02101,"881,24236090902 ",.01)

 ;;24236090902

 ;;9002226.02101,"881,24236090902 ",.02)

 ;;24236090902

 ;;9002226.02101,"881,24658010010 ",.01)

 ;;24658010010

 ;;9002226.02101,"881,24658010010 ",.02)

 ;;24658010010

 ;;9002226.02101,"881,24658010090 ",.01)

 ;;24658010090

 ;;9002226.02101,"881,24658010090 ",.02)

 ;;24658010090

 ;;9002226.02101,"881,24658010110 ",.01)

 ;;24658010110

 ;;9002226.02101,"881,24658010110 ",.02)

 ;;24658010110

 ;;9002226.02101,"881,24658010190 ",.01)

 ;;24658010190

 ;;9002226.02101,"881,24658010190 ",.02)

 ;;24658010190

 ;;9002226.02101,"881,24658010210 ",.01)

 ;;24658010210

 ;;9002226.02101,"881,24658010210 ",.02)

 ;;24658010210

 ;;9002226.02101,"881,24658010290 ",.01)

 ;;24658010290

 ;;9002226.02101,"881,24658010290 ",.02)

 ;;24658010290

 ;;9002226.02101,"881,24658020001 ",.01)

 ;;24658020001

 ;;9002226.02101,"881,24658020001 ",.02)

 ;;24658020001

 ;;9002226.02101,"881,24658020005 ",.01)

 ;;24658020005

 ;;9002226.02101,"881,24658020005 ",.02)

 ;;24658020005

 ;;9002226.02101,"881,24658020101 ",.01)

 ;;24658020101

 ;;9002226.02101,"881,24658020101 ",.02)

 ;;24658020101

 ;;9002226.02101,"881,24658020105 ",.01)

 ;;24658020105

 ;;9002226.02101,"881,24658020105 ",.02)

 ;;24658020105

 ;;9002226.02101,"881,24658020201 ",.01)

 ;;24658020201

 ;;9002226.02101,"881,24658020201 ",.02)

 ;;24658020201

 ;;9002226.02101,"881,24658020205 ",.01)

 ;;24658020205

 ;;9002226.02101,"881,24658020205 ",.02)

 ;;24658020205

 ;;9002226.02101,"881,24658020301 ",.01)

 ;;24658020301

 ;;9002226.02101,"881,24658020301 ",.02)

 ;;24658020301

 ;;9002226.02101,"881,24658020305 ",.01)

 ;;24658020305

 ;;9002226.02101,"881,24658020305 ",.02)

 ;;24658020305

 ;;9002226.02101,"881,24658024010 ",.01)

 ;;24658024010

 ;;9002226.02101,"881,24658024010 ",.02)

 ;;24658024010

 ;;9002226.02101,"881,24658024090 ",.01)

 ;;24658024090

 ;;9002226.02101,"881,24658024090 ",.02)

 ;;24658024090

 ;;9002226.02101,"881,24658024110 ",.01)

 ;;24658024110

 ;;9002226.02101,"881,24658024110 ",.02)

 ;;24658024110

 ;;9002226.02101,"881,24658024130 ",.01)

 ;;24658024130

 ;;9002226.02101,"881,24658024130 ",.02)

 ;;24658024130

 ;;9002226.02101,"881,24658024145 ",.01)

 ;;24658024145

 ;;9002226.02101,"881,24658024145 ",.02)

 ;;24658024145

 ;;9002226.02101,"881,24658024190 ",.01)

 ;;24658024190

 ;;9002226.02101,"881,24658024190 ",.02)

 ;;24658024190

 ;;9002226.02101,"881,24658024210 ",.01)

 ;;24658024210

 ;;9002226.02101,"881,24658024210 ",.02)

 ;;24658024210

 ;;9002226.02101,"881,24658024215 ",.01)

 ;;24658024215

 ;;9002226.02101,"881,24658024215 ",.02)

 ;;24658024215

 ;;9002226.02101,"881,24658024218 ",.01)

 ;;24658024218

 ;;9002226.02101,"881,24658024218 ",.02)

 ;;24658024218

 ;;9002226.02101,"881,24658024230 ",.01)

 ;;24658024230

 ;;9002226.02101,"881,24658024230 ",.02)

 ;;24658024230

 ;;9002226.02101,"881,24658024245 ",.01)

 ;;24658024245

 ;;9002226.02101,"881,24658024245 ",.02)

 ;;24658024245

 ;;9002226.02101,"881,24658024290 ",.01)

 ;;24658024290

 ;;9002226.02101,"881,24658024290 ",.02)

 ;;24658024290

 ;;9002226.02101,"881,24658024310 ",.01)

 ;;24658024310

 ;;9002226.02101,"881,24658024310 ",.02)

 ;;24658024310

BGPM5AEI  ;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,"881,23490082909 ",.01)

 +2       ;;23490082909

 +3       ;;9002226.02101,"881,23490082909 ",.02)

 +4       ;;23490082909

 +5       ;;9002226.02101,"881,23490148703 ",.01)

 +6       ;;23490148703

 +7       ;;9002226.02101,"881,23490148703 ",.02)

 +8       ;;23490148703

 +9       ;;9002226.02101,"881,23490148706 ",.01)

 +10      ;;23490148706

 +11      ;;9002226.02101,"881,23490148706 ",.02)

 +12      ;;23490148706

 +13      ;;9002226.02101,"881,23490148709 ",.01)

 +14      ;;23490148709

 +15      ;;9002226.02101,"881,23490148709 ",.02)

 +16      ;;23490148709

 +17      ;;9002226.02101,"881,23490148800 ",.01)

 +18      ;;23490148800

 +19      ;;9002226.02101,"881,23490148800 ",.02)

 +20      ;;23490148800

 +21      ;;9002226.02101,"881,23490148803 ",.01)

 +22      ;;23490148803

 +23      ;;9002226.02101,"881,23490148803 ",.02)

 +24      ;;23490148803

 +25      ;;9002226.02101,"881,23490148806 ",.01)

 +26      ;;23490148806

 +27      ;;9002226.02101,"881,23490148806 ",.02)

 +28      ;;23490148806

 +29      ;;9002226.02101,"881,23490148809 ",.01)

 +30      ;;23490148809

 +31      ;;9002226.02101,"881,23490148809 ",.02)

 +32      ;;23490148809

 +33      ;;9002226.02101,"881,23490519101 ",.01)

 +34      ;;23490519101

 +35      ;;9002226.02101,"881,23490519101 ",.02)

 +36      ;;23490519101

 +37      ;;9002226.02101,"881,23490519201 ",.01)

 +38      ;;23490519201

 +39      ;;9002226.02101,"881,23490519201 ",.02)

 +40      ;;23490519201

 +41      ;;9002226.02101,"881,23490519301 ",.01)

 +42      ;;23490519301

 +43      ;;9002226.02101,"881,23490519301 ",.02)

 +44      ;;23490519301

 +45      ;;9002226.02101,"881,23490519302 ",.01)

 +46      ;;23490519302

 +47      ;;9002226.02101,"881,23490519302 ",.02)

 +48      ;;23490519302

 +49      ;;9002226.02101,"881,23490519303 ",.01)

 +50      ;;23490519303

 +51      ;;9002226.02101,"881,23490519303 ",.02)

 +52      ;;23490519303

 +53      ;;9002226.02101,"881,23490519400 ",.01)

 +54      ;;23490519400

 +55      ;;9002226.02101,"881,23490519400 ",.02)

 +56      ;;23490519400

 +57      ;;9002226.02101,"881,23490519401 ",.01)

 +58      ;;23490519401

 +59      ;;9002226.02101,"881,23490519401 ",.02)

 +60      ;;23490519401

 +61      ;;9002226.02101,"881,23490519402 ",.01)

 +62      ;;23490519402

 +63      ;;9002226.02101,"881,23490519402 ",.02)

 +64      ;;23490519402

 +65      ;;9002226.02101,"881,23490549101 ",.01)

 +66      ;;23490549101

 +67      ;;9002226.02101,"881,23490549101 ",.02)

 +68      ;;23490549101

 +69      ;;9002226.02101,"881,23490549102 ",.01)

 +70      ;;23490549102

 +71      ;;9002226.02101,"881,23490549102 ",.02)

 +72      ;;23490549102

 +73      ;;9002226.02101,"881,23490549108 ",.01)

 +74      ;;23490549108

 +75      ;;9002226.02101,"881,23490549108 ",.02)

 +76      ;;23490549108

 +77      ;;9002226.02101,"881,23490549109 ",.01)

 +78      ;;23490549109

 +79      ;;9002226.02101,"881,23490549109 ",.02)

 +80      ;;23490549109

 +81      ;;9002226.02101,"881,23490549201 ",.01)

 +82      ;;23490549201

 +83      ;;9002226.02101,"881,23490549201 ",.02)

 +84      ;;23490549201

 +85      ;;9002226.02101,"881,23490549202 ",.01)

 +86      ;;23490549202

 +87      ;;9002226.02101,"881,23490549202 ",.02)

 +88      ;;23490549202

 +89      ;;9002226.02101,"881,23490549401 ",.01)

 +90      ;;23490549401

 +91      ;;9002226.02101,"881,23490549401 ",.02)

 +92      ;;23490549401

 +93      ;;9002226.02101,"881,23490549402 ",.01)

 +94      ;;23490549402

 +95      ;;9002226.02101,"881,23490549402 ",.02)

 +96      ;;23490549402

 +97      ;;9002226.02101,"881,23490581500 ",.01)

 +98      ;;23490581500

 +99      ;;9002226.02101,"881,23490581500 ",.02)

 +100     ;;23490581500

 +101     ;;9002226.02101,"881,23490581501 ",.01)

 +102     ;;23490581501

 +103     ;;9002226.02101,"881,23490581501 ",.02)

 +104     ;;23490581501

 +105     ;;9002226.02101,"881,23490581601 ",.01)

 +106     ;;23490581601

 +107     ;;9002226.02101,"881,23490581601 ",.02)

 +108     ;;23490581601

 +109     ;;9002226.02101,"881,23490581602 ",.01)

 +110     ;;23490581602

 +111     ;;9002226.02101,"881,23490581602 ",.02)

 +112     ;;23490581602

 +113     ;;9002226.02101,"881,23490581606 ",.01)

 +114     ;;23490581606

 +115     ;;9002226.02101,"881,23490581606 ",.02)

 +116     ;;23490581606

 +117     ;;9002226.02101,"881,23490581702 ",.01)

 +118     ;;23490581702

 +119     ;;9002226.02101,"881,23490581702 ",.02)

 +120     ;;23490581702

 +121     ;;9002226.02101,"881,23490581802 ",.01)

 +122     ;;23490581802

 +123     ;;9002226.02101,"881,23490581802 ",.02)

 +124     ;;23490581802

 +125     ;;9002226.02101,"881,23490581902 ",.01)

 +126     ;;23490581902

 +127     ;;9002226.02101,"881,23490581902 ",.02)

 +128     ;;23490581902

 +129     ;;9002226.02101,"881,23490582001 ",.01)

 +130     ;;23490582001

 +131     ;;9002226.02101,"881,23490582001 ",.02)

 +132     ;;23490582001

 +133     ;;9002226.02101,"881,23490582101 ",.01)

 +134     ;;23490582101

 +135     ;;9002226.02101,"881,23490582101 ",.02)

 +136     ;;23490582101

 +137     ;;9002226.02101,"881,23490582201 ",.01)

 +138     ;;23490582201

 +139     ;;9002226.02101,"881,23490582201 ",.02)

 +140     ;;23490582201

 +141     ;;9002226.02101,"881,23490936403 ",.01)

 +142     ;;23490936403

 +143     ;;9002226.02101,"881,23490936403 ",.02)

 +144     ;;23490936403

 +145     ;;9002226.02101,"881,24196050101 ",.01)

 +146     ;;24196050101

 +147     ;;9002226.02101,"881,24196050101 ",.02)

 +148     ;;24196050101

 +149     ;;9002226.02101,"881,24196050105 ",.01)

 +150     ;;24196050105

 +151     ;;9002226.02101,"881,24196050105 ",.02)

 +152     ;;24196050105

 +153     ;;9002226.02101,"881,24196050201 ",.01)

 +154     ;;24196050201

 +155     ;;9002226.02101,"881,24196050201 ",.02)

 +156     ;;24196050201

 +157     ;;9002226.02101,"881,24196050210 ",.01)

 +158     ;;24196050210

 +159     ;;9002226.02101,"881,24196050210 ",.02)

 +160     ;;24196050210

 +161     ;;9002226.02101,"881,24196050301 ",.01)

 +162     ;;24196050301

 +163     ;;9002226.02101,"881,24196050301 ",.02)

 +164     ;;24196050301

 +165     ;;9002226.02101,"881,24196050310 ",.01)

 +166     ;;24196050310

 +167     ;;9002226.02101,"881,24196050310 ",.02)

 +168     ;;24196050310

 +169     ;;9002226.02101,"881,24196050401 ",.01)

 +170     ;;24196050401

 +171     ;;9002226.02101,"881,24196050401 ",.02)

 +172     ;;24196050401

 +173     ;;9002226.02101,"881,24196050410 ",.01)

 +174     ;;24196050410

 +175     ;;9002226.02101,"881,24196050410 ",.02)

 +176     ;;24196050410

 +177     ;;9002226.02101,"881,24196050501 ",.01)

 +178     ;;24196050501

 +179     ;;9002226.02101,"881,24196050501 ",.02)

 +180     ;;24196050501

 +181     ;;9002226.02101,"881,24196050601 ",.01)

 +182     ;;24196050601

 +183     ;;9002226.02101,"881,24196050601 ",.02)

 +184     ;;24196050601

 +185     ;;9002226.02101,"881,24196050605 ",.01)

 +186     ;;24196050605

 +187     ;;9002226.02101,"881,24196050605 ",.02)

 +188     ;;24196050605

 +189     ;;9002226.02101,"881,24196056501 ",.01)

 +190     ;;24196056501

 +191     ;;9002226.02101,"881,24196056501 ",.02)

 +192     ;;24196056501

 +193     ;;9002226.02101,"881,24196056505 ",.01)

 +194     ;;24196056505

 +195     ;;9002226.02101,"881,24196056505 ",.02)

 +196     ;;24196056505

 +197     ;;9002226.02101,"881,24196056601 ",.01)

 +198     ;;24196056601

 +199     ;;9002226.02101,"881,24196056601 ",.02)

 +200     ;;24196056601

 +201     ;;9002226.02101,"881,24196056605 ",.01)

 +202     ;;24196056605

 +203     ;;9002226.02101,"881,24196056605 ",.02)

 +204     ;;24196056605

 +205     ;;9002226.02101,"881,24196056701 ",.01)

 +206     ;;24196056701

 +207     ;;9002226.02101,"881,24196056701 ",.02)

 +208     ;;24196056701

 +209     ;;9002226.02101,"881,24196056705 ",.01)

 +210     ;;24196056705

 +211     ;;9002226.02101,"881,24196056705 ",.02)

 +212     ;;24196056705

 +213     ;;9002226.02101,"881,24236001002 ",.01)

 +214     ;;24236001002

 +215     ;;9002226.02101,"881,24236001002 ",.02)

 +216     ;;24236001002

 +217     ;;9002226.02101,"881,24236005102 ",.01)

 +218     ;;24236005102

 +219     ;;9002226.02101,"881,24236005102 ",.02)

 +220     ;;24236005102

 +221     ;;9002226.02101,"881,24236005202 ",.01)

 +222     ;;24236005202

 +223     ;;9002226.02101,"881,24236005202 ",.02)

 +224     ;;24236005202

 +225     ;;9002226.02101,"881,24236007602 ",.01)

 +226     ;;24236007602

 +227     ;;9002226.02101,"881,24236007602 ",.02)

 +228     ;;24236007602

 +229     ;;9002226.02101,"881,24236007902 ",.01)

 +230     ;;24236007902

 +231     ;;9002226.02101,"881,24236007902 ",.02)

 +232     ;;24236007902

 +233     ;;9002226.02101,"881,24236008002 ",.01)

 +234     ;;24236008002

 +235     ;;9002226.02101,"881,24236008002 ",.02)

 +236     ;;24236008002

 +237     ;;9002226.02101,"881,24236015302 ",.01)

 +238     ;;24236015302

 +239     ;;9002226.02101,"881,24236015302 ",.02)

 +240     ;;24236015302

 +241     ;;9002226.02101,"881,24236015402 ",.01)

 +242     ;;24236015402

 +243     ;;9002226.02101,"881,24236015402 ",.02)

 +244     ;;24236015402

 +245     ;;9002226.02101,"881,24236022702 ",.01)

 +246     ;;24236022702

 +247     ;;9002226.02101,"881,24236022702 ",.02)

 +248     ;;24236022702

 +249     ;;9002226.02101,"881,24236031702 ",.01)

 +250     ;;24236031702

 +251     ;;9002226.02101,"881,24236031702 ",.02)

 +252     ;;24236031702

 +253     ;;9002226.02101,"881,24236035102 ",.01)

 +254     ;;24236035102

 +255     ;;9002226.02101,"881,24236035102 ",.02)

 +256     ;;24236035102

 +257     ;;9002226.02101,"881,24236037602 ",.01)

 +258     ;;24236037602

 +259     ;;9002226.02101,"881,24236037602 ",.02)

 +260     ;;24236037602

 +261     ;;9002226.02101,"881,24236039502 ",.01)

 +262     ;;24236039502

 +263     ;;9002226.02101,"881,24236039502 ",.02)

 +264     ;;24236039502

 +265     ;;9002226.02101,"881,24236041202 ",.01)

 +266     ;;24236041202

 +267     ;;9002226.02101,"881,24236041202 ",.02)

 +268     ;;24236041202

 +269     ;;9002226.02101,"881,24236054402 ",.01)

 +270     ;;24236054402

 +271     ;;9002226.02101,"881,24236054402 ",.02)

 +272     ;;24236054402

 +273     ;;9002226.02101,"881,24236060802 ",.01)

 +274     ;;24236060802

 +275     ;;9002226.02101,"881,24236060802 ",.02)

 +276     ;;24236060802

 +277     ;;9002226.02101,"881,24236061502 ",.01)

 +278     ;;24236061502

 +279     ;;9002226.02101,"881,24236061502 ",.02)

 +280     ;;24236061502

 +281     ;;9002226.02101,"881,24236072002 ",.01)

 +282     ;;24236072002

 +283     ;;9002226.02101,"881,24236072002 ",.02)

 +284     ;;24236072002

 +285     ;;9002226.02101,"881,24236075002 ",.01)

 +286     ;;24236075002

 +287     ;;9002226.02101,"881,24236075002 ",.02)

 +288     ;;24236075002

 +289     ;;9002226.02101,"881,24236086602 ",.01)

 +290     ;;24236086602

 +291     ;;9002226.02101,"881,24236086602 ",.02)

 +292     ;;24236086602

 +293     ;;9002226.02101,"881,24236090002 ",.01)

 +294     ;;24236090002

 +295     ;;9002226.02101,"881,24236090002 ",.02)

 +296     ;;24236090002

 +297     ;;9002226.02101,"881,24236090902 ",.01)

 +298     ;;24236090902

 +299     ;;9002226.02101,"881,24236090902 ",.02)

 +300     ;;24236090902

 +301     ;;9002226.02101,"881,24658010010 ",.01)

 +302     ;;24658010010

 +303     ;;9002226.02101,"881,24658010010 ",.02)

 +304     ;;24658010010

 +305     ;;9002226.02101,"881,24658010090 ",.01)

 +306     ;;24658010090

 +307     ;;9002226.02101,"881,24658010090 ",.02)

 +308     ;;24658010090

 +309     ;;9002226.02101,"881,24658010110 ",.01)

 +310     ;;24658010110

 +311     ;;9002226.02101,"881,24658010110 ",.02)

 +312     ;;24658010110

 +313     ;;9002226.02101,"881,24658010190 ",.01)

 +314     ;;24658010190

 +315     ;;9002226.02101,"881,24658010190 ",.02)

 +316     ;;24658010190

 +317     ;;9002226.02101,"881,24658010210 ",.01)

 +318     ;;24658010210

 +319     ;;9002226.02101,"881,24658010210 ",.02)

 +320     ;;24658010210

 +321     ;;9002226.02101,"881,24658010290 ",.01)

 +322     ;;24658010290

 +323     ;;9002226.02101,"881,24658010290 ",.02)

 +324     ;;24658010290

 +325     ;;9002226.02101,"881,24658020001 ",.01)

 +326     ;;24658020001

 +327     ;;9002226.02101,"881,24658020001 ",.02)

 +328     ;;24658020001

 +329     ;;9002226.02101,"881,24658020005 ",.01)

 +330     ;;24658020005

 +331     ;;9002226.02101,"881,24658020005 ",.02)

 +332     ;;24658020005

 +333     ;;9002226.02101,"881,24658020101 ",.01)

 +334     ;;24658020101

 +335     ;;9002226.02101,"881,24658020101 ",.02)

 +336     ;;24658020101

 +337     ;;9002226.02101,"881,24658020105 ",.01)

 +338     ;;24658020105

 +339     ;;9002226.02101,"881,24658020105 ",.02)

 +340     ;;24658020105

 +341     ;;9002226.02101,"881,24658020201 ",.01)

 +342     ;;24658020201

 +343     ;;9002226.02101,"881,24658020201 ",.02)

 +344     ;;24658020201

 +345     ;;9002226.02101,"881,24658020205 ",.01)

 +346     ;;24658020205

 +347     ;;9002226.02101,"881,24658020205 ",.02)

 +348     ;;24658020205

 +349     ;;9002226.02101,"881,24658020301 ",.01)

 +350     ;;24658020301

 +351     ;;9002226.02101,"881,24658020301 ",.02)

 +352     ;;24658020301

 +353     ;;9002226.02101,"881,24658020305 ",.01)

 +354     ;;24658020305

 +355     ;;9002226.02101,"881,24658020305 ",.02)

 +356     ;;24658020305

 +357     ;;9002226.02101,"881,24658024010 ",.01)

 +358     ;;24658024010

 +359     ;;9002226.02101,"881,24658024010 ",.02)

 +360     ;;24658024010

 +361     ;;9002226.02101,"881,24658024090 ",.01)

 +362     ;;24658024090

 +363     ;;9002226.02101,"881,24658024090 ",.02)

 +364     ;;24658024090

 +365     ;;9002226.02101,"881,24658024110 ",.01)

 +366     ;;24658024110

 +367     ;;9002226.02101,"881,24658024110 ",.02)

 +368     ;;24658024110

 +369     ;;9002226.02101,"881,24658024130 ",.01)

 +370     ;;24658024130

 +371     ;;9002226.02101,"881,24658024130 ",.02)

 +372     ;;24658024130

 +373     ;;9002226.02101,"881,24658024145 ",.01)

 +374     ;;24658024145

 +375     ;;9002226.02101,"881,24658024145 ",.02)

 +376     ;;24658024145

 +377     ;;9002226.02101,"881,24658024190 ",.01)

 +378     ;;24658024190

 +379     ;;9002226.02101,"881,24658024190 ",.02)

 +380     ;;24658024190

 +381     ;;9002226.02101,"881,24658024210 ",.01)

 +382     ;;24658024210

 +383     ;;9002226.02101,"881,24658024210 ",.02)

 +384     ;;24658024210

 +385     ;;9002226.02101,"881,24658024215 ",.01)

 +386     ;;24658024215

 +387     ;;9002226.02101,"881,24658024215 ",.02)

 +388     ;;24658024215

 +389     ;;9002226.02101,"881,24658024218 ",.01)

 +390     ;;24658024218

 +391     ;;9002226.02101,"881,24658024218 ",.02)

 +392     ;;24658024218

 +393     ;;9002226.02101,"881,24658024230 ",.01)

 +394     ;;24658024230

 +395     ;;9002226.02101,"881,24658024230 ",.02)

 +396     ;;24658024230

 +397     ;;9002226.02101,"881,24658024245 ",.01)

 +398     ;;24658024245

 +399     ;;9002226.02101,"881,24658024245 ",.02)

 +400     ;;24658024245

 +401     ;;9002226.02101,"881,24658024290 ",.01)

 +402     ;;24658024290

 +403     ;;9002226.02101,"881,24658024290 ",.02)

 +404     ;;24658024290

 +405     ;;9002226.02101,"881,24658024310 ",.01)

 +406     ;;24658024310

 +407     ;;9002226.02101,"881,24658024310 ",.02)

 +408     ;;24658024310

BGPM5AEI.m