Routine: BGPM5AME

BGPM5AME ;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,"900,62022063030 ",.01)

 ;;62022063030

 ;;9002226.02101,"900,62022063030 ",.02)

 ;;62022063030

 ;;9002226.02101,"900,62037063007 ",.01)

 ;;62037063007

 ;;9002226.02101,"900,62037063007 ",.02)

 ;;62037063007

 ;;9002226.02101,"900,62037063030 ",.01)

 ;;62037063030

 ;;9002226.02101,"900,62037063030 ",.02)

 ;;62037063030

 ;;9002226.02101,"900,62037079101 ",.01)

 ;;62037079101

 ;;9002226.02101,"900,62037079101 ",.02)

 ;;62037079101

 ;;9002226.02101,"900,62037079160 ",.01)

 ;;62037079160

 ;;9002226.02101,"900,62037079160 ",.02)

 ;;62037079160

 ;;9002226.02101,"900,62037079201 ",.01)

 ;;62037079201

 ;;9002226.02101,"900,62037079201 ",.02)

 ;;62037079201

 ;;9002226.02101,"900,62037079205 ",.01)

 ;;62037079205

 ;;9002226.02101,"900,62037079205 ",.02)

 ;;62037079205

 ;;9002226.02101,"900,62037079210 ",.01)

 ;;62037079210

 ;;9002226.02101,"900,62037079210 ",.02)

 ;;62037079210

 ;;9002226.02101,"900,62037079260 ",.01)

 ;;62037079260

 ;;9002226.02101,"900,62037079260 ",.02)

 ;;62037079260

 ;;9002226.02101,"900,62037079301 ",.01)

 ;;62037079301

 ;;9002226.02101,"900,62037079301 ",.02)

 ;;62037079301

 ;;9002226.02101,"900,62037079305 ",.01)

 ;;62037079305

 ;;9002226.02101,"900,62037079305 ",.02)

 ;;62037079305

 ;;9002226.02101,"900,62037079310 ",.01)

 ;;62037079310

 ;;9002226.02101,"900,62037079310 ",.02)

 ;;62037079310

 ;;9002226.02101,"900,62037079360 ",.01)

 ;;62037079360

 ;;9002226.02101,"900,62037079360 ",.02)

 ;;62037079360

 ;;9002226.02101,"900,62301005252 ",.01)

 ;;62301005252

 ;;9002226.02101,"900,62301005252 ",.02)

 ;;62301005252

 ;;9002226.02101,"900,62318003404 ",.01)

 ;;62318003404

 ;;9002226.02101,"900,62318003404 ",.02)

 ;;62318003404

 ;;9002226.02101,"900,62318003408 ",.01)

 ;;62318003408

 ;;9002226.02101,"900,62318003408 ",.02)

 ;;62318003408

 ;;9002226.02101,"900,62584009250 ",.01)

 ;;62584009250

 ;;9002226.02101,"900,62584009250 ",.02)

 ;;62584009250

 ;;9002226.02101,"900,63126028110 ",.01)

 ;;63126028110

 ;;9002226.02101,"900,63126028110 ",.02)

 ;;63126028110

 ;;9002226.02101,"900,63126028160 ",.01)

 ;;63126028160

 ;;9002226.02101,"900,63126028160 ",.02)

 ;;63126028160

 ;;9002226.02101,"900,63126028210 ",.01)

 ;;63126028210

 ;;9002226.02101,"900,63126028210 ",.02)

 ;;63126028210

 ;;9002226.02101,"900,63126028260 ",.01)

 ;;63126028260

 ;;9002226.02101,"900,63126028260 ",.02)

 ;;63126028260

 ;;9002226.02101,"900,63126028310 ",.01)

 ;;63126028310

 ;;9002226.02101,"900,63126028310 ",.02)

 ;;63126028310

 ;;9002226.02101,"900,63126028360 ",.01)

 ;;63126028360

 ;;9002226.02101,"900,63126028360 ",.02)

 ;;63126028360

 ;;9002226.02101,"900,63539021507 ",.01)

 ;;63539021507

 ;;9002226.02101,"900,63539021507 ",.02)

 ;;63539021507

 ;;9002226.02101,"900,63539021530 ",.01)

 ;;63539021530

 ;;9002226.02101,"900,63539021530 ",.02)

 ;;63539021530

 ;;9002226.02101,"900,63539021557 ",.01)

 ;;63539021557

 ;;9002226.02101,"900,63539021557 ",.02)

 ;;63539021557

 ;;9002226.02101,"900,63539021587 ",.01)

 ;;63539021587

 ;;9002226.02101,"900,63539021587 ",.02)

 ;;63539021587

 ;;9002226.02101,"900,63539021607 ",.01)

 ;;63539021607

 ;;9002226.02101,"900,63539021607 ",.02)

 ;;63539021607

 ;;9002226.02101,"900,63539021687 ",.01)

 ;;63539021687

 ;;9002226.02101,"900,63539021687 ",.02)

 ;;63539021687

 ;;9002226.02101,"900,63539021707 ",.01)

 ;;63539021707

 ;;9002226.02101,"900,63539021707 ",.02)

 ;;63539021707

 ;;9002226.02101,"900,63539021730 ",.01)

 ;;63539021730

 ;;9002226.02101,"900,63539021730 ",.02)

 ;;63539021730

 ;;9002226.02101,"900,63539021787 ",.01)

 ;;63539021787

 ;;9002226.02101,"900,63539021787 ",.02)

 ;;63539021787

 ;;9002226.02101,"900,63539021807 ",.01)

 ;;63539021807

 ;;9002226.02101,"900,63539021807 ",.02)

 ;;63539021807

 ;;9002226.02101,"900,63539021830 ",.01)

 ;;63539021830

 ;;9002226.02101,"900,63539021830 ",.02)

 ;;63539021830

 ;;9002226.02101,"900,63539021857 ",.01)

 ;;63539021857

 ;;9002226.02101,"900,63539021857 ",.02)

 ;;63539021857

 ;;9002226.02101,"900,63539021887 ",.01)

 ;;63539021887

 ;;9002226.02101,"900,63539021887 ",.02)

 ;;63539021887

 ;;9002226.02101,"900,63539021907 ",.01)

 ;;63539021907

 ;;9002226.02101,"900,63539021907 ",.02)

 ;;63539021907

 ;;9002226.02101,"900,63539021930 ",.01)

 ;;63539021930

 ;;9002226.02101,"900,63539021930 ",.02)

 ;;63539021930

 ;;9002226.02101,"900,63539021957 ",.01)

 ;;63539021957

 ;;9002226.02101,"900,63539021957 ",.02)

 ;;63539021957

 ;;9002226.02101,"900,63539021987 ",.01)

 ;;63539021987

 ;;9002226.02101,"900,63539021987 ",.02)

 ;;63539021987

 ;;9002226.02101,"900,63539022501 ",.01)

 ;;63539022501

 ;;9002226.02101,"900,63539022501 ",.02)

 ;;63539022501

 ;;9002226.02101,"900,63629139001 ",.01)

 ;;63629139001

 ;;9002226.02101,"900,63629139001 ",.02)

 ;;63629139001

 ;;9002226.02101,"900,63629139002 ",.01)

 ;;63629139002

 ;;9002226.02101,"900,63629139002 ",.02)

 ;;63629139002

 ;;9002226.02101,"900,63629139003 ",.01)

 ;;63629139003

 ;;9002226.02101,"900,63629139003 ",.02)

 ;;63629139003

 ;;9002226.02101,"900,63629144601 ",.01)

 ;;63629144601

 ;;9002226.02101,"900,63629144601 ",.02)

 ;;63629144601

 ;;9002226.02101,"900,63629144602 ",.01)

 ;;63629144602

 ;;9002226.02101,"900,63629144602 ",.02)

 ;;63629144602

 ;;9002226.02101,"900,63629144701 ",.01)

 ;;63629144701

 ;;9002226.02101,"900,63629144701 ",.02)

 ;;63629144701

 ;;9002226.02101,"900,63629146401 ",.01)

 ;;63629146401

 ;;9002226.02101,"900,63629146401 ",.02)

 ;;63629146401

 ;;9002226.02101,"900,63629146402 ",.01)

 ;;63629146402

 ;;9002226.02101,"900,63629146402 ",.02)

 ;;63629146402

 ;;9002226.02101,"900,63629146403 ",.01)

 ;;63629146403

 ;;9002226.02101,"900,63629146403 ",.02)

 ;;63629146403

 ;;9002226.02101,"900,63629178401 ",.01)

 ;;63629178401

 ;;9002226.02101,"900,63629178401 ",.02)

 ;;63629178401

 ;;9002226.02101,"900,63629178402 ",.01)

 ;;63629178402

 ;;9002226.02101,"900,63629178402 ",.02)

 ;;63629178402

 ;;9002226.02101,"900,63629336601 ",.01)

 ;;63629336601

 ;;9002226.02101,"900,63629336601 ",.02)

 ;;63629336601

 ;;9002226.02101,"900,63629336602 ",.01)

 ;;63629336602

 ;;9002226.02101,"900,63629336602 ",.02)

 ;;63629336602

 ;;9002226.02101,"900,63629336603 ",.01)

 ;;63629336603

 ;;9002226.02101,"900,63629336603 ",.02)

 ;;63629336603

 ;;9002226.02101,"900,63629336604 ",.01)

 ;;63629336604

 ;;9002226.02101,"900,63629336604 ",.02)

 ;;63629336604

 ;;9002226.02101,"900,63629338101 ",.01)

 ;;63629338101

 ;;9002226.02101,"900,63629338101 ",.02)

 ;;63629338101

 ;;9002226.02101,"900,63629338102 ",.01)

 ;;63629338102

 ;;9002226.02101,"900,63629338102 ",.02)

 ;;63629338102

 ;;9002226.02101,"900,63629338103 ",.01)

 ;;63629338103

 ;;9002226.02101,"900,63629338103 ",.02)

 ;;63629338103

 ;;9002226.02101,"900,63629338104 ",.01)

 ;;63629338104

 ;;9002226.02101,"900,63629338104 ",.02)

 ;;63629338104

 ;;9002226.02101,"900,63629358301 ",.01)

 ;;63629358301

 ;;9002226.02101,"900,63629358301 ",.02)

 ;;63629358301

 ;;9002226.02101,"900,63629358302 ",.01)

 ;;63629358302

 ;;9002226.02101,"900,63629358302 ",.02)

 ;;63629358302

 ;;9002226.02101,"900,63629437201 ",.01)

 ;;63629437201

 ;;9002226.02101,"900,63629437201 ",.02)

 ;;63629437201

 ;;9002226.02101,"900,63739028101 ",.01)

 ;;63739028101

 ;;9002226.02101,"900,63739028101 ",.02)

 ;;63739028101

 ;;9002226.02101,"900,63739028110 ",.01)

 ;;63739028110

 ;;9002226.02101,"900,63739028110 ",.02)

 ;;63739028110

 ;;9002226.02101,"900,63739028201 ",.01)

 ;;63739028201

 ;;9002226.02101,"900,63739028201 ",.02)

 ;;63739028201

 ;;9002226.02101,"900,63739028210 ",.01)

 ;;63739028210

 ;;9002226.02101,"900,63739028210 ",.02)

 ;;63739028210

 ;;9002226.02101,"900,63874031990 ",.01)

 ;;63874031990

 ;;9002226.02101,"900,63874031990 ",.02)

 ;;63874031990

 ;;9002226.02101,"900,63874036301 ",.01)

 ;;63874036301

 ;;9002226.02101,"900,63874036301 ",.02)

 ;;63874036301

 ;;9002226.02101,"900,63874036310 ",.01)

 ;;63874036310

 ;;9002226.02101,"900,63874036310 ",.02)

 ;;63874036310

 ;;9002226.02101,"900,63874036320 ",.01)

 ;;63874036320

 ;;9002226.02101,"900,63874036320 ",.02)

 ;;63874036320

 ;;9002226.02101,"900,63874036330 ",.01)

 ;;63874036330

 ;;9002226.02101,"900,63874036330 ",.02)

 ;;63874036330

 ;;9002226.02101,"900,63874036360 ",.01)

 ;;63874036360

 ;;9002226.02101,"900,63874036360 ",.02)

 ;;63874036360

 ;;9002226.02101,"900,63874036390 ",.01)

 ;;63874036390

 ;;9002226.02101,"900,63874036390 ",.02)

 ;;63874036390

 ;;9002226.02101,"900,63874058901 ",.01)

 ;;63874058901

 ;;9002226.02101,"900,63874058901 ",.02)

 ;;63874058901

 ;;9002226.02101,"900,63874058990 ",.01)

 ;;63874058990

 ;;9002226.02101,"900,63874058990 ",.02)

 ;;63874058990

 ;;9002226.02101,"900,63924000101 ",.01)

 ;;63924000101

 ;;9002226.02101,"900,63924000101 ",.02)

 ;;63924000101

 ;;9002226.02101,"900,63924000201 ",.01)

 ;;63924000201

 ;;9002226.02101,"900,63924000201 ",.02)

 ;;63924000201

 ;;9002226.02101,"900,63924000301 ",.01)

 ;;63924000301

 ;;9002226.02101,"900,63924000301 ",.02)

 ;;63924000301

 ;;9002226.02101,"900,63924000601 ",.01)

 ;;63924000601

 ;;9002226.02101,"900,63924000601 ",.02)

 ;;63924000601

 ;;9002226.02101,"900,63924004801 ",.01)

 ;;63924004801

 ;;9002226.02101,"900,63924004801 ",.02)

 ;;63924004801

 ;;9002226.02101,"900,63924014501 ",.01)

 ;;63924014501

 ;;9002226.02101,"900,63924014501 ",.02)

 ;;63924014501

 ;;9002226.02101,"900,64176041401 ",.01)

 ;;64176041401

 ;;9002226.02101,"900,64176041401 ",.02)

 ;;64176041401

 ;;9002226.02101,"900,64176041402 ",.01)

 ;;64176041402

 ;;9002226.02101,"900,64176041402 ",.02)

 ;;64176041402

 ;;9002226.02101,"900,64176041403 ",.01)

 ;;64176041403

 ;;9002226.02101,"900,64176041403 ",.02)

 ;;64176041403

 ;;9002226.02101,"900,64579005100 ",.01)

 ;;64579005100

 ;;9002226.02101,"900,64579005100 ",.02)

 ;;64579005100

 ;;9002226.02101,"900,64579005101 ",.01)

 ;;64579005101

 ;;9002226.02101,"900,64579005101 ",.02)

 ;;64579005101

 ;;9002226.02101,"900,64679090101 ",.01)

 ;;64679090101

 ;;9002226.02101,"900,64679090101 ",.02)

 ;;64679090101

 ;;9002226.02101,"900,64725014403 ",.01)

 ;;64725014403

 ;;9002226.02101,"900,64725014403 ",.02)

 ;;64725014403

 ;;9002226.02101,"900,64725019503 ",.01)

 ;;64725019503

 ;;9002226.02101,"900,64725019503 ",.02)

 ;;64725019503

 ;;9002226.02101,"900,64725019603 ",.01)

 ;;64725019603

 ;;9002226.02101,"900,64725019603 ",.02)

 ;;64725019603

 ;;9002226.02101,"900,64896051101 ",.01)

 ;;64896051101

 ;;9002226.02101,"900,64896051101 ",.02)

 ;;64896051101

 ;;9002226.02101,"900,64896052201 ",.01)

 ;;64896052201

 ;;9002226.02101,"900,64896052201 ",.02)

 ;;64896052201

 ;;9002226.02101,"900,64896053301 ",.01)

 ;;64896053301

 ;;9002226.02101,"900,64896053301 ",.02)

 ;;64896053301

 ;;9002226.02101,"900,65162041810 ",.01)

 ;;65162041810

 ;;9002226.02101,"900,65162041810 ",.02)

 ;;65162041810

 ;;9002226.02101,"900,65162041811 ",.01)

 ;;65162041811

 ;;9002226.02101,"900,65162041811 ",.02)

 ;;65162041811

 ;;9002226.02101,"900,65162042010 ",.01)

 ;;65162042010

 ;;9002226.02101,"900,65162042010 ",.02)

 ;;65162042010

 ;;9002226.02101,"900,65162042011 ",.01)

 ;;65162042011

 ;;9002226.02101,"900,65162042011 ",.02)

 ;;65162042011

 ;;9002226.02101,"900,65162042110 ",.01)

 ;;65162042110

 ;;9002226.02101,"900,65162042110 ",.02)

 ;;65162042110

 ;;9002226.02101,"900,65243003506 ",.01)

 ;;65243003506

 ;;9002226.02101,"900,65243003506 ",.02)

 ;;65243003506

 ;;9002226.02101,"900,65243003518 ",.01)

 ;;65243003518

 ;;9002226.02101,"900,65243003518 ",.02)

 ;;65243003518

 ;;9002226.02101,"900,65243004503 ",.01)

 ;;65243004503

 ;;9002226.02101,"900,65243004503 ",.02)

 ;;65243004503

BGPM5AME  ;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,"900,62022063030 ",.01)

 +2       ;;62022063030

 +3       ;;9002226.02101,"900,62022063030 ",.02)

 +4       ;;62022063030

 +5       ;;9002226.02101,"900,62037063007 ",.01)

 +6       ;;62037063007

 +7       ;;9002226.02101,"900,62037063007 ",.02)

 +8       ;;62037063007

 +9       ;;9002226.02101,"900,62037063030 ",.01)

 +10      ;;62037063030

 +11      ;;9002226.02101,"900,62037063030 ",.02)

 +12      ;;62037063030

 +13      ;;9002226.02101,"900,62037079101 ",.01)

 +14      ;;62037079101

 +15      ;;9002226.02101,"900,62037079101 ",.02)

 +16      ;;62037079101

 +17      ;;9002226.02101,"900,62037079160 ",.01)

 +18      ;;62037079160

 +19      ;;9002226.02101,"900,62037079160 ",.02)

 +20      ;;62037079160

 +21      ;;9002226.02101,"900,62037079201 ",.01)

 +22      ;;62037079201

 +23      ;;9002226.02101,"900,62037079201 ",.02)

 +24      ;;62037079201

 +25      ;;9002226.02101,"900,62037079205 ",.01)

 +26      ;;62037079205

 +27      ;;9002226.02101,"900,62037079205 ",.02)

 +28      ;;62037079205

 +29      ;;9002226.02101,"900,62037079210 ",.01)

 +30      ;;62037079210

 +31      ;;9002226.02101,"900,62037079210 ",.02)

 +32      ;;62037079210

 +33      ;;9002226.02101,"900,62037079260 ",.01)

 +34      ;;62037079260

 +35      ;;9002226.02101,"900,62037079260 ",.02)

 +36      ;;62037079260

 +37      ;;9002226.02101,"900,62037079301 ",.01)

 +38      ;;62037079301

 +39      ;;9002226.02101,"900,62037079301 ",.02)

 +40      ;;62037079301

 +41      ;;9002226.02101,"900,62037079305 ",.01)

 +42      ;;62037079305

 +43      ;;9002226.02101,"900,62037079305 ",.02)

 +44      ;;62037079305

 +45      ;;9002226.02101,"900,62037079310 ",.01)

 +46      ;;62037079310

 +47      ;;9002226.02101,"900,62037079310 ",.02)

 +48      ;;62037079310

 +49      ;;9002226.02101,"900,62037079360 ",.01)

 +50      ;;62037079360

 +51      ;;9002226.02101,"900,62037079360 ",.02)

 +52      ;;62037079360

 +53      ;;9002226.02101,"900,62301005252 ",.01)

 +54      ;;62301005252

 +55      ;;9002226.02101,"900,62301005252 ",.02)

 +56      ;;62301005252

 +57      ;;9002226.02101,"900,62318003404 ",.01)

 +58      ;;62318003404

 +59      ;;9002226.02101,"900,62318003404 ",.02)

 +60      ;;62318003404

 +61      ;;9002226.02101,"900,62318003408 ",.01)

 +62      ;;62318003408

 +63      ;;9002226.02101,"900,62318003408 ",.02)

 +64      ;;62318003408

 +65      ;;9002226.02101,"900,62584009250 ",.01)

 +66      ;;62584009250

 +67      ;;9002226.02101,"900,62584009250 ",.02)

 +68      ;;62584009250

 +69      ;;9002226.02101,"900,63126028110 ",.01)

 +70      ;;63126028110

 +71      ;;9002226.02101,"900,63126028110 ",.02)

 +72      ;;63126028110

 +73      ;;9002226.02101,"900,63126028160 ",.01)

 +74      ;;63126028160

 +75      ;;9002226.02101,"900,63126028160 ",.02)

 +76      ;;63126028160

 +77      ;;9002226.02101,"900,63126028210 ",.01)

 +78      ;;63126028210

 +79      ;;9002226.02101,"900,63126028210 ",.02)

 +80      ;;63126028210

 +81      ;;9002226.02101,"900,63126028260 ",.01)

 +82      ;;63126028260

 +83      ;;9002226.02101,"900,63126028260 ",.02)

 +84      ;;63126028260

 +85      ;;9002226.02101,"900,63126028310 ",.01)

 +86      ;;63126028310

 +87      ;;9002226.02101,"900,63126028310 ",.02)

 +88      ;;63126028310

 +89      ;;9002226.02101,"900,63126028360 ",.01)

 +90      ;;63126028360

 +91      ;;9002226.02101,"900,63126028360 ",.02)

 +92      ;;63126028360

 +93      ;;9002226.02101,"900,63539021507 ",.01)

 +94      ;;63539021507

 +95      ;;9002226.02101,"900,63539021507 ",.02)

 +96      ;;63539021507

 +97      ;;9002226.02101,"900,63539021530 ",.01)

 +98      ;;63539021530

 +99      ;;9002226.02101,"900,63539021530 ",.02)

 +100     ;;63539021530

 +101     ;;9002226.02101,"900,63539021557 ",.01)

 +102     ;;63539021557

 +103     ;;9002226.02101,"900,63539021557 ",.02)

 +104     ;;63539021557

 +105     ;;9002226.02101,"900,63539021587 ",.01)

 +106     ;;63539021587

 +107     ;;9002226.02101,"900,63539021587 ",.02)

 +108     ;;63539021587

 +109     ;;9002226.02101,"900,63539021607 ",.01)

 +110     ;;63539021607

 +111     ;;9002226.02101,"900,63539021607 ",.02)

 +112     ;;63539021607

 +113     ;;9002226.02101,"900,63539021687 ",.01)

 +114     ;;63539021687

 +115     ;;9002226.02101,"900,63539021687 ",.02)

 +116     ;;63539021687

 +117     ;;9002226.02101,"900,63539021707 ",.01)

 +118     ;;63539021707

 +119     ;;9002226.02101,"900,63539021707 ",.02)

 +120     ;;63539021707

 +121     ;;9002226.02101,"900,63539021730 ",.01)

 +122     ;;63539021730

 +123     ;;9002226.02101,"900,63539021730 ",.02)

 +124     ;;63539021730

 +125     ;;9002226.02101,"900,63539021787 ",.01)

 +126     ;;63539021787

 +127     ;;9002226.02101,"900,63539021787 ",.02)

 +128     ;;63539021787

 +129     ;;9002226.02101,"900,63539021807 ",.01)

 +130     ;;63539021807

 +131     ;;9002226.02101,"900,63539021807 ",.02)

 +132     ;;63539021807

 +133     ;;9002226.02101,"900,63539021830 ",.01)

 +134     ;;63539021830

 +135     ;;9002226.02101,"900,63539021830 ",.02)

 +136     ;;63539021830

 +137     ;;9002226.02101,"900,63539021857 ",.01)

 +138     ;;63539021857

 +139     ;;9002226.02101,"900,63539021857 ",.02)

 +140     ;;63539021857

 +141     ;;9002226.02101,"900,63539021887 ",.01)

 +142     ;;63539021887

 +143     ;;9002226.02101,"900,63539021887 ",.02)

 +144     ;;63539021887

 +145     ;;9002226.02101,"900,63539021907 ",.01)

 +146     ;;63539021907

 +147     ;;9002226.02101,"900,63539021907 ",.02)

 +148     ;;63539021907

 +149     ;;9002226.02101,"900,63539021930 ",.01)

 +150     ;;63539021930

 +151     ;;9002226.02101,"900,63539021930 ",.02)

 +152     ;;63539021930

 +153     ;;9002226.02101,"900,63539021957 ",.01)

 +154     ;;63539021957

 +155     ;;9002226.02101,"900,63539021957 ",.02)

 +156     ;;63539021957

 +157     ;;9002226.02101,"900,63539021987 ",.01)

 +158     ;;63539021987

 +159     ;;9002226.02101,"900,63539021987 ",.02)

 +160     ;;63539021987

 +161     ;;9002226.02101,"900,63539022501 ",.01)

 +162     ;;63539022501

 +163     ;;9002226.02101,"900,63539022501 ",.02)

 +164     ;;63539022501

 +165     ;;9002226.02101,"900,63629139001 ",.01)

 +166     ;;63629139001

 +167     ;;9002226.02101,"900,63629139001 ",.02)

 +168     ;;63629139001

 +169     ;;9002226.02101,"900,63629139002 ",.01)

 +170     ;;63629139002

 +171     ;;9002226.02101,"900,63629139002 ",.02)

 +172     ;;63629139002

 +173     ;;9002226.02101,"900,63629139003 ",.01)

 +174     ;;63629139003

 +175     ;;9002226.02101,"900,63629139003 ",.02)

 +176     ;;63629139003

 +177     ;;9002226.02101,"900,63629144601 ",.01)

 +178     ;;63629144601

 +179     ;;9002226.02101,"900,63629144601 ",.02)

 +180     ;;63629144601

 +181     ;;9002226.02101,"900,63629144602 ",.01)

 +182     ;;63629144602

 +183     ;;9002226.02101,"900,63629144602 ",.02)

 +184     ;;63629144602

 +185     ;;9002226.02101,"900,63629144701 ",.01)

 +186     ;;63629144701

 +187     ;;9002226.02101,"900,63629144701 ",.02)

 +188     ;;63629144701

 +189     ;;9002226.02101,"900,63629146401 ",.01)

 +190     ;;63629146401

 +191     ;;9002226.02101,"900,63629146401 ",.02)

 +192     ;;63629146401

 +193     ;;9002226.02101,"900,63629146402 ",.01)

 +194     ;;63629146402

 +195     ;;9002226.02101,"900,63629146402 ",.02)

 +196     ;;63629146402

 +197     ;;9002226.02101,"900,63629146403 ",.01)

 +198     ;;63629146403

 +199     ;;9002226.02101,"900,63629146403 ",.02)

 +200     ;;63629146403

 +201     ;;9002226.02101,"900,63629178401 ",.01)

 +202     ;;63629178401

 +203     ;;9002226.02101,"900,63629178401 ",.02)

 +204     ;;63629178401

 +205     ;;9002226.02101,"900,63629178402 ",.01)

 +206     ;;63629178402

 +207     ;;9002226.02101,"900,63629178402 ",.02)

 +208     ;;63629178402

 +209     ;;9002226.02101,"900,63629336601 ",.01)

 +210     ;;63629336601

 +211     ;;9002226.02101,"900,63629336601 ",.02)

 +212     ;;63629336601

 +213     ;;9002226.02101,"900,63629336602 ",.01)

 +214     ;;63629336602

 +215     ;;9002226.02101,"900,63629336602 ",.02)

 +216     ;;63629336602

 +217     ;;9002226.02101,"900,63629336603 ",.01)

 +218     ;;63629336603

 +219     ;;9002226.02101,"900,63629336603 ",.02)

 +220     ;;63629336603

 +221     ;;9002226.02101,"900,63629336604 ",.01)

 +222     ;;63629336604

 +223     ;;9002226.02101,"900,63629336604 ",.02)

 +224     ;;63629336604

 +225     ;;9002226.02101,"900,63629338101 ",.01)

 +226     ;;63629338101

 +227     ;;9002226.02101,"900,63629338101 ",.02)

 +228     ;;63629338101

 +229     ;;9002226.02101,"900,63629338102 ",.01)

 +230     ;;63629338102

 +231     ;;9002226.02101,"900,63629338102 ",.02)

 +232     ;;63629338102

 +233     ;;9002226.02101,"900,63629338103 ",.01)

 +234     ;;63629338103

 +235     ;;9002226.02101,"900,63629338103 ",.02)

 +236     ;;63629338103

 +237     ;;9002226.02101,"900,63629338104 ",.01)

 +238     ;;63629338104

 +239     ;;9002226.02101,"900,63629338104 ",.02)

 +240     ;;63629338104

 +241     ;;9002226.02101,"900,63629358301 ",.01)

 +242     ;;63629358301

 +243     ;;9002226.02101,"900,63629358301 ",.02)

 +244     ;;63629358301

 +245     ;;9002226.02101,"900,63629358302 ",.01)

 +246     ;;63629358302

 +247     ;;9002226.02101,"900,63629358302 ",.02)

 +248     ;;63629358302

 +249     ;;9002226.02101,"900,63629437201 ",.01)

 +250     ;;63629437201

 +251     ;;9002226.02101,"900,63629437201 ",.02)

 +252     ;;63629437201

 +253     ;;9002226.02101,"900,63739028101 ",.01)

 +254     ;;63739028101

 +255     ;;9002226.02101,"900,63739028101 ",.02)

 +256     ;;63739028101

 +257     ;;9002226.02101,"900,63739028110 ",.01)

 +258     ;;63739028110

 +259     ;;9002226.02101,"900,63739028110 ",.02)

 +260     ;;63739028110

 +261     ;;9002226.02101,"900,63739028201 ",.01)

 +262     ;;63739028201

 +263     ;;9002226.02101,"900,63739028201 ",.02)

 +264     ;;63739028201

 +265     ;;9002226.02101,"900,63739028210 ",.01)

 +266     ;;63739028210

 +267     ;;9002226.02101,"900,63739028210 ",.02)

 +268     ;;63739028210

 +269     ;;9002226.02101,"900,63874031990 ",.01)

 +270     ;;63874031990

 +271     ;;9002226.02101,"900,63874031990 ",.02)

 +272     ;;63874031990

 +273     ;;9002226.02101,"900,63874036301 ",.01)

 +274     ;;63874036301

 +275     ;;9002226.02101,"900,63874036301 ",.02)

 +276     ;;63874036301

 +277     ;;9002226.02101,"900,63874036310 ",.01)

 +278     ;;63874036310

 +279     ;;9002226.02101,"900,63874036310 ",.02)

 +280     ;;63874036310

 +281     ;;9002226.02101,"900,63874036320 ",.01)

 +282     ;;63874036320

 +283     ;;9002226.02101,"900,63874036320 ",.02)

 +284     ;;63874036320

 +285     ;;9002226.02101,"900,63874036330 ",.01)

 +286     ;;63874036330

 +287     ;;9002226.02101,"900,63874036330 ",.02)

 +288     ;;63874036330

 +289     ;;9002226.02101,"900,63874036360 ",.01)

 +290     ;;63874036360

 +291     ;;9002226.02101,"900,63874036360 ",.02)

 +292     ;;63874036360

 +293     ;;9002226.02101,"900,63874036390 ",.01)

 +294     ;;63874036390

 +295     ;;9002226.02101,"900,63874036390 ",.02)

 +296     ;;63874036390

 +297     ;;9002226.02101,"900,63874058901 ",.01)

 +298     ;;63874058901

 +299     ;;9002226.02101,"900,63874058901 ",.02)

 +300     ;;63874058901

 +301     ;;9002226.02101,"900,63874058990 ",.01)

 +302     ;;63874058990

 +303     ;;9002226.02101,"900,63874058990 ",.02)

 +304     ;;63874058990

 +305     ;;9002226.02101,"900,63924000101 ",.01)

 +306     ;;63924000101

 +307     ;;9002226.02101,"900,63924000101 ",.02)

 +308     ;;63924000101

 +309     ;;9002226.02101,"900,63924000201 ",.01)

 +310     ;;63924000201

 +311     ;;9002226.02101,"900,63924000201 ",.02)

 +312     ;;63924000201

 +313     ;;9002226.02101,"900,63924000301 ",.01)

 +314     ;;63924000301

 +315     ;;9002226.02101,"900,63924000301 ",.02)

 +316     ;;63924000301

 +317     ;;9002226.02101,"900,63924000601 ",.01)

 +318     ;;63924000601

 +319     ;;9002226.02101,"900,63924000601 ",.02)

 +320     ;;63924000601

 +321     ;;9002226.02101,"900,63924004801 ",.01)

 +322     ;;63924004801

 +323     ;;9002226.02101,"900,63924004801 ",.02)

 +324     ;;63924004801

 +325     ;;9002226.02101,"900,63924014501 ",.01)

 +326     ;;63924014501

 +327     ;;9002226.02101,"900,63924014501 ",.02)

 +328     ;;63924014501

 +329     ;;9002226.02101,"900,64176041401 ",.01)

 +330     ;;64176041401

 +331     ;;9002226.02101,"900,64176041401 ",.02)

 +332     ;;64176041401

 +333     ;;9002226.02101,"900,64176041402 ",.01)

 +334     ;;64176041402

 +335     ;;9002226.02101,"900,64176041402 ",.02)

 +336     ;;64176041402

 +337     ;;9002226.02101,"900,64176041403 ",.01)

 +338     ;;64176041403

 +339     ;;9002226.02101,"900,64176041403 ",.02)

 +340     ;;64176041403

 +341     ;;9002226.02101,"900,64579005100 ",.01)

 +342     ;;64579005100

 +343     ;;9002226.02101,"900,64579005100 ",.02)

 +344     ;;64579005100

 +345     ;;9002226.02101,"900,64579005101 ",.01)

 +346     ;;64579005101

 +347     ;;9002226.02101,"900,64579005101 ",.02)

 +348     ;;64579005101

 +349     ;;9002226.02101,"900,64679090101 ",.01)

 +350     ;;64679090101

 +351     ;;9002226.02101,"900,64679090101 ",.02)

 +352     ;;64679090101

 +353     ;;9002226.02101,"900,64725014403 ",.01)

 +354     ;;64725014403

 +355     ;;9002226.02101,"900,64725014403 ",.02)

 +356     ;;64725014403

 +357     ;;9002226.02101,"900,64725019503 ",.01)

 +358     ;;64725019503

 +359     ;;9002226.02101,"900,64725019503 ",.02)

 +360     ;;64725019503

 +361     ;;9002226.02101,"900,64725019603 ",.01)

 +362     ;;64725019603

 +363     ;;9002226.02101,"900,64725019603 ",.02)

 +364     ;;64725019603

 +365     ;;9002226.02101,"900,64896051101 ",.01)

 +366     ;;64896051101

 +367     ;;9002226.02101,"900,64896051101 ",.02)

 +368     ;;64896051101

 +369     ;;9002226.02101,"900,64896052201 ",.01)

 +370     ;;64896052201

 +371     ;;9002226.02101,"900,64896052201 ",.02)

 +372     ;;64896052201

 +373     ;;9002226.02101,"900,64896053301 ",.01)

 +374     ;;64896053301

 +375     ;;9002226.02101,"900,64896053301 ",.02)

 +376     ;;64896053301

 +377     ;;9002226.02101,"900,65162041810 ",.01)

 +378     ;;65162041810

 +379     ;;9002226.02101,"900,65162041810 ",.02)

 +380     ;;65162041810

 +381     ;;9002226.02101,"900,65162041811 ",.01)

 +382     ;;65162041811

 +383     ;;9002226.02101,"900,65162041811 ",.02)

 +384     ;;65162041811

 +385     ;;9002226.02101,"900,65162042010 ",.01)

 +386     ;;65162042010

 +387     ;;9002226.02101,"900,65162042010 ",.02)

 +388     ;;65162042010

 +389     ;;9002226.02101,"900,65162042011 ",.01)

 +390     ;;65162042011

 +391     ;;9002226.02101,"900,65162042011 ",.02)

 +392     ;;65162042011

 +393     ;;9002226.02101,"900,65162042110 ",.01)

 +394     ;;65162042110

 +395     ;;9002226.02101,"900,65162042110 ",.02)

 +396     ;;65162042110

 +397     ;;9002226.02101,"900,65243003506 ",.01)

 +398     ;;65243003506

 +399     ;;9002226.02101,"900,65243003506 ",.02)

 +400     ;;65243003506

 +401     ;;9002226.02101,"900,65243003518 ",.01)

 +402     ;;65243003518

 +403     ;;9002226.02101,"900,65243003518 ",.02)

 +404     ;;65243003518

 +405     ;;9002226.02101,"900,65243004503 ",.01)

 +406     ;;65243004503

 +407     ;;9002226.02101,"900,65243004503 ",.02)

 +408     ;;65243004503

BGPM5AME.m