Routine: BGPM3AE

BGPM3AE ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON APR 21, 2011;

 ;;11.0;IHS CLINICAL REPORTING;**4**;JAN 06, 2011;Build 84

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,"785,63304078930 ",.01)

 ;;63304078930

 ;;9002226.02101,"785,63304078930 ",.02)

 ;;63304078930

 ;;9002226.02101,"785,63304078990 ",.01)

 ;;63304078990

 ;;9002226.02101,"785,63304078990 ",.02)

 ;;63304078990

 ;;9002226.02101,"785,63304079010 ",.01)

 ;;63304079010

 ;;9002226.02101,"785,63304079010 ",.02)

 ;;63304079010

 ;;9002226.02101,"785,63304079030 ",.01)

 ;;63304079030

 ;;9002226.02101,"785,63304079030 ",.02)

 ;;63304079030

 ;;9002226.02101,"785,63304079090 ",.01)

 ;;63304079090

 ;;9002226.02101,"785,63304079090 ",.02)

 ;;63304079090

 ;;9002226.02101,"785,63304079110 ",.01)

 ;;63304079110

 ;;9002226.02101,"785,63304079110 ",.02)

 ;;63304079110

 ;;9002226.02101,"785,63304079130 ",.01)

 ;;63304079130

 ;;9002226.02101,"785,63304079130 ",.02)

 ;;63304079130

 ;;9002226.02101,"785,63304079190 ",.01)

 ;;63304079190

 ;;9002226.02101,"785,63304079190 ",.02)

 ;;63304079190

 ;;9002226.02101,"785,63304079210 ",.01)

 ;;63304079210

 ;;9002226.02101,"785,63304079210 ",.02)

 ;;63304079210

 ;;9002226.02101,"785,63304079230 ",.01)

 ;;63304079230

 ;;9002226.02101,"785,63304079230 ",.02)

 ;;63304079230

 ;;9002226.02101,"785,63304079250 ",.01)

 ;;63304079250

 ;;9002226.02101,"785,63304079250 ",.02)

 ;;63304079250

 ;;9002226.02101,"785,63304079290 ",.01)

 ;;63304079290

 ;;9002226.02101,"785,63304079290 ",.02)

 ;;63304079290

 ;;9002226.02101,"785,63304079310 ",.01)

 ;;63304079310

 ;;9002226.02101,"785,63304079310 ",.02)

 ;;63304079310

 ;;9002226.02101,"785,63304079330 ",.01)

 ;;63304079330

 ;;9002226.02101,"785,63304079330 ",.02)

 ;;63304079330

 ;;9002226.02101,"785,63304079350 ",.01)

 ;;63304079350

 ;;9002226.02101,"785,63304079350 ",.02)

 ;;63304079350

 ;;9002226.02101,"785,63304079390 ",.01)

 ;;63304079390

 ;;9002226.02101,"785,63304079390 ",.02)

 ;;63304079390

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

 ;;63629146401

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

 ;;63629146401

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

 ;;63629146402

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

 ;;63629146402

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

 ;;63629146403

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

 ;;63629146403

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

 ;;63629178401

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

 ;;63629178401

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

 ;;63629178402

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

 ;;63629178402

 ;;9002226.02101,"785,63629338501 ",.01)

 ;;63629338501

 ;;9002226.02101,"785,63629338501 ",.02)

 ;;63629338501

 ;;9002226.02101,"785,63629338502 ",.01)

 ;;63629338502

 ;;9002226.02101,"785,63629338502 ",.02)

 ;;63629338502

 ;;9002226.02101,"785,63629338503 ",.01)

 ;;63629338503

 ;;9002226.02101,"785,63629338503 ",.02)

 ;;63629338503

 ;;9002226.02101,"785,63629338504 ",.01)

 ;;63629338504

 ;;9002226.02101,"785,63629338504 ",.02)

 ;;63629338504

 ;;9002226.02101,"785,63629338505 ",.01)

 ;;63629338505

 ;;9002226.02101,"785,63629338505 ",.02)

 ;;63629338505

 ;;9002226.02101,"785,63629339201 ",.01)

 ;;63629339201

 ;;9002226.02101,"785,63629339201 ",.02)

 ;;63629339201

 ;;9002226.02101,"785,63629339301 ",.01)

 ;;63629339301

 ;;9002226.02101,"785,63629339301 ",.02)

 ;;63629339301

 ;;9002226.02101,"785,63629339302 ",.01)

 ;;63629339302

 ;;9002226.02101,"785,63629339302 ",.02)

 ;;63629339302

 ;;9002226.02101,"785,63629339303 ",.01)

 ;;63629339303

 ;;9002226.02101,"785,63629339303 ",.02)

 ;;63629339303

 ;;9002226.02101,"785,63629339304 ",.01)

 ;;63629339304

 ;;9002226.02101,"785,63629339304 ",.02)

 ;;63629339304

 ;;9002226.02101,"785,63629340801 ",.01)

 ;;63629340801

 ;;9002226.02101,"785,63629340801 ",.02)

 ;;63629340801

 ;;9002226.02101,"785,63629340804 ",.01)

 ;;63629340804

 ;;9002226.02101,"785,63629340804 ",.02)

 ;;63629340804

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

 ;;63629358301

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

 ;;63629358301

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

 ;;63629358302

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

 ;;63629358302

 ;;9002226.02101,"785,63672000101 ",.01)

 ;;63672000101

 ;;9002226.02101,"785,63672000101 ",.02)

 ;;63672000101

 ;;9002226.02101,"785,63672000103 ",.01)

 ;;63672000103

 ;;9002226.02101,"785,63672000103 ",.02)

 ;;63672000103

 ;;9002226.02101,"785,63672000201 ",.01)

 ;;63672000201

 ;;9002226.02101,"785,63672000201 ",.02)

 ;;63672000201

 ;;9002226.02101,"785,63672000203 ",.01)

 ;;63672000203

 ;;9002226.02101,"785,63672000203 ",.02)

 ;;63672000203

 ;;9002226.02101,"785,63672000301 ",.01)

 ;;63672000301

 ;;9002226.02101,"785,63672000301 ",.02)

 ;;63672000301

 ;;9002226.02101,"785,63672000303 ",.01)

 ;;63672000303

 ;;9002226.02101,"785,63672000303 ",.02)

 ;;63672000303

 ;;9002226.02101,"785,63672000401 ",.01)

 ;;63672000401

 ;;9002226.02101,"785,63672000401 ",.02)

 ;;63672000401

 ;;9002226.02101,"785,63672000403 ",.01)

 ;;63672000403

 ;;9002226.02101,"785,63672000403 ",.02)

 ;;63672000403

 ;;9002226.02101,"785,63739028010 ",.01)

 ;;63739028010

 ;;9002226.02101,"785,63739028010 ",.02)

 ;;63739028010

 ;;9002226.02101,"785,63739028015 ",.01)

 ;;63739028015

 ;;9002226.02101,"785,63739028015 ",.02)

 ;;63739028015

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

 ;;63739028101

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

 ;;63739028101

 ;;9002226.02101,"785,63739028103 ",.01)

 ;;63739028103

 ;;9002226.02101,"785,63739028103 ",.02)

 ;;63739028103

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

 ;;63739028110

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

 ;;63739028110

 ;;9002226.02101,"785,63739028115 ",.01)

 ;;63739028115

 ;;9002226.02101,"785,63739028115 ",.02)

 ;;63739028115

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

 ;;63739028201

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

 ;;63739028201

 ;;9002226.02101,"785,63739028203 ",.01)

 ;;63739028203

 ;;9002226.02101,"785,63739028203 ",.02)

 ;;63739028203

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

 ;;63739028210

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

 ;;63739028210

 ;;9002226.02101,"785,63739041910 ",.01)

 ;;63739041910

 ;;9002226.02101,"785,63739041910 ",.02)

 ;;63739041910

 ;;9002226.02101,"785,63739042010 ",.01)

 ;;63739042010

 ;;9002226.02101,"785,63739042010 ",.02)

 ;;63739042010

 ;;9002226.02101,"785,63739042110 ",.01)

 ;;63739042110

 ;;9002226.02101,"785,63739042110 ",.02)

 ;;63739042110

 ;;9002226.02101,"785,63739042210 ",.01)

 ;;63739042210

 ;;9002226.02101,"785,63739042210 ",.02)

 ;;63739042210

 ;;9002226.02101,"785,63739043510 ",.01)

 ;;63739043510

 ;;9002226.02101,"785,63739043510 ",.02)

 ;;63739043510

 ;;9002226.02101,"785,63739043610 ",.01)

 ;;63739043610

 ;;9002226.02101,"785,63739043610 ",.02)

 ;;63739043610

 ;;9002226.02101,"785,63739043710 ",.01)

 ;;63739043710

 ;;9002226.02101,"785,63739043710 ",.02)

 ;;63739043710

 ;;9002226.02101,"785,63739043810 ",.01)

 ;;63739043810

 ;;9002226.02101,"785,63739043810 ",.02)

 ;;63739043810

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

 ;;63874036301

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

 ;;63874036301

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

 ;;63874036310

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

 ;;63874036310

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

 ;;63874036320

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

 ;;63874036320

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

 ;;63874036330

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

 ;;63874036330

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

 ;;63874036360

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

 ;;63874036360

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

 ;;63874036390

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

 ;;63874036390

 ;;9002226.02101,"785,65243035203 ",.01)

 ;;65243035203

 ;;9002226.02101,"785,65243035203 ",.02)

 ;;65243035203

 ;;9002226.02101,"785,65243035206 ",.01)

 ;;65243035206

 ;;9002226.02101,"785,65243035206 ",.02)

 ;;65243035206

 ;;9002226.02101,"785,65243035209 ",.01)

 ;;65243035209

 ;;9002226.02101,"785,65243035209 ",.02)

 ;;65243035209

 ;;9002226.02101,"785,65243035218 ",.01)

 ;;65243035218

 ;;9002226.02101,"785,65243035218 ",.02)

 ;;65243035218

 ;;9002226.02101,"785,65243035245 ",.01)

 ;;65243035245

 ;;9002226.02101,"785,65243035245 ",.02)

 ;;65243035245

 ;;9002226.02101,"785,65243036103 ",.01)

 ;;65243036103

 ;;9002226.02101,"785,65243036103 ",.02)

 ;;65243036103

 ;;9002226.02101,"785,65243036106 ",.01)

 ;;65243036106

 ;;9002226.02101,"785,65243036106 ",.02)

 ;;65243036106

 ;;9002226.02101,"785,65243036109 ",.01)

 ;;65243036109

 ;;9002226.02101,"785,65243036109 ",.02)

 ;;65243036109

 ;;9002226.02101,"785,65243036115 ",.01)

 ;;65243036115

 ;;9002226.02101,"785,65243036115 ",.02)

 ;;65243036115

 ;;9002226.02101,"785,65243036145 ",.01)

 ;;65243036145

 ;;9002226.02101,"785,65243036145 ",.02)

 ;;65243036145

 ;;9002226.02101,"785,65243036503 ",.01)

 ;;65243036503

 ;;9002226.02101,"785,65243036503 ",.02)

 ;;65243036503

 ;;9002226.02101,"785,65243036506 ",.01)

 ;;65243036506

 ;;9002226.02101,"785,65243036506 ",.02)

 ;;65243036506

 ;;9002226.02101,"785,65243036509 ",.01)

 ;;65243036509

 ;;9002226.02101,"785,65243036509 ",.02)

 ;;65243036509

 ;;9002226.02101,"785,65243036515 ",.01)

 ;;65243036515

 ;;9002226.02101,"785,65243036515 ",.02)

 ;;65243036515

 ;;9002226.02101,"785,65243036545 ",.01)

 ;;65243036545

 ;;9002226.02101,"785,65243036545 ",.02)

 ;;65243036545

 ;;9002226.02101,"785,65243036903 ",.01)

 ;;65243036903

 ;;9002226.02101,"785,65243036903 ",.02)

 ;;65243036903

 ;;9002226.02101,"785,65243036906 ",.01)

 ;;65243036906

 ;;9002226.02101,"785,65243036906 ",.02)

 ;;65243036906

 ;;9002226.02101,"785,65243036909 ",.01)

 ;;65243036909

 ;;9002226.02101,"785,65243036909 ",.02)

 ;;65243036909

 ;;9002226.02101,"785,65243036915 ",.01)

 ;;65243036915

 ;;9002226.02101,"785,65243036915 ",.02)

 ;;65243036915

 ;;9002226.02101,"785,65243036945 ",.01)

 ;;65243036945

 ;;9002226.02101,"785,65243036945 ",.02)

 ;;65243036945

 ;;9002226.02101,"785,65841006505 ",.01)

 ;;65841006505

 ;;9002226.02101,"785,65841006505 ",.02)

 ;;65841006505

 ;;9002226.02101,"785,65841006506 ",.01)

 ;;65841006506

 ;;9002226.02101,"785,65841006506 ",.02)

 ;;65841006506

 ;;9002226.02101,"785,65841006510 ",.01)

 ;;65841006510

 ;;9002226.02101,"785,65841006510 ",.02)

 ;;65841006510

 ;;9002226.02101,"785,65841006514 ",.01)

 ;;65841006514

 ;;9002226.02101,"785,65841006514 ",.02)

 ;;65841006514

 ;;9002226.02101,"785,65841006516 ",.01)

 ;;65841006516

 ;;9002226.02101,"785,65841006516 ",.02)

 ;;65841006516

 ;;9002226.02101,"785,65841006605 ",.01)

 ;;65841006605

 ;;9002226.02101,"785,65841006605 ",.02)

 ;;65841006605

 ;;9002226.02101,"785,65841006606 ",.01)

 ;;65841006606

 ;;9002226.02101,"785,65841006606 ",.02)

 ;;65841006606

 ;;9002226.02101,"785,65841006610 ",.01)

 ;;65841006610

 ;;9002226.02101,"785,65841006610 ",.02)

 ;;65841006610

 ;;9002226.02101,"785,65841006614 ",.01)

 ;;65841006614

 ;;9002226.02101,"785,65841006614 ",.02)

 ;;65841006614

 ;;9002226.02101,"785,65841006616 ",.01)

 ;;65841006616

 ;;9002226.02101,"785,65841006616 ",.02)

 ;;65841006616

 ;;9002226.02101,"785,65841006624 ",.01)

 ;;65841006624

 ;;9002226.02101,"785,65841006624 ",.02)

 ;;65841006624

 ;;9002226.02101,"785,65841006705 ",.01)

 ;;65841006705

 ;;9002226.02101,"785,65841006705 ",.02)

 ;;65841006705

 ;;9002226.02101,"785,65841006706 ",.01)

 ;;65841006706

 ;;9002226.02101,"785,65841006706 ",.02)

 ;;65841006706

 ;;9002226.02101,"785,65841006710 ",.01)

 ;;65841006710

 ;;9002226.02101,"785,65841006710 ",.02)

 ;;65841006710

 ;;9002226.02101,"785,65841006714 ",.01)

 ;;65841006714

 ;;9002226.02101,"785,65841006714 ",.02)

 ;;65841006714

 ;;9002226.02101,"785,65841006716 ",.01)

 ;;65841006716

 ;;9002226.02101,"785,65841006716 ",.02)

 ;;65841006716

BGPM3AE   ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON APR 21, 2011;

 +1       ;;11.0;IHS CLINICAL REPORTING;**4**;JAN 06, 2011;Build 84

 +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,"785,63304078930 ",.01)

 +2       ;;63304078930

 +3       ;;9002226.02101,"785,63304078930 ",.02)

 +4       ;;63304078930

 +5       ;;9002226.02101,"785,63304078990 ",.01)

 +6       ;;63304078990

 +7       ;;9002226.02101,"785,63304078990 ",.02)

 +8       ;;63304078990

 +9       ;;9002226.02101,"785,63304079010 ",.01)

 +10      ;;63304079010

 +11      ;;9002226.02101,"785,63304079010 ",.02)

 +12      ;;63304079010

 +13      ;;9002226.02101,"785,63304079030 ",.01)

 +14      ;;63304079030

 +15      ;;9002226.02101,"785,63304079030 ",.02)

 +16      ;;63304079030

 +17      ;;9002226.02101,"785,63304079090 ",.01)

 +18      ;;63304079090

 +19      ;;9002226.02101,"785,63304079090 ",.02)

 +20      ;;63304079090

 +21      ;;9002226.02101,"785,63304079110 ",.01)

 +22      ;;63304079110

 +23      ;;9002226.02101,"785,63304079110 ",.02)

 +24      ;;63304079110

 +25      ;;9002226.02101,"785,63304079130 ",.01)

 +26      ;;63304079130

 +27      ;;9002226.02101,"785,63304079130 ",.02)

 +28      ;;63304079130

 +29      ;;9002226.02101,"785,63304079190 ",.01)

 +30      ;;63304079190

 +31      ;;9002226.02101,"785,63304079190 ",.02)

 +32      ;;63304079190

 +33      ;;9002226.02101,"785,63304079210 ",.01)

 +34      ;;63304079210

 +35      ;;9002226.02101,"785,63304079210 ",.02)

 +36      ;;63304079210

 +37      ;;9002226.02101,"785,63304079230 ",.01)

 +38      ;;63304079230

 +39      ;;9002226.02101,"785,63304079230 ",.02)

 +40      ;;63304079230

 +41      ;;9002226.02101,"785,63304079250 ",.01)

 +42      ;;63304079250

 +43      ;;9002226.02101,"785,63304079250 ",.02)

 +44      ;;63304079250

 +45      ;;9002226.02101,"785,63304079290 ",.01)

 +46      ;;63304079290

 +47      ;;9002226.02101,"785,63304079290 ",.02)

 +48      ;;63304079290

 +49      ;;9002226.02101,"785,63304079310 ",.01)

 +50      ;;63304079310

 +51      ;;9002226.02101,"785,63304079310 ",.02)

 +52      ;;63304079310

 +53      ;;9002226.02101,"785,63304079330 ",.01)

 +54      ;;63304079330

 +55      ;;9002226.02101,"785,63304079330 ",.02)

 +56      ;;63304079330

 +57      ;;9002226.02101,"785,63304079350 ",.01)

 +58      ;;63304079350

 +59      ;;9002226.02101,"785,63304079350 ",.02)

 +60      ;;63304079350

 +61      ;;9002226.02101,"785,63304079390 ",.01)

 +62      ;;63304079390

 +63      ;;9002226.02101,"785,63304079390 ",.02)

 +64      ;;63304079390

 +65      ;;9002226.02101,"785,63629146401 ",.01)

 +66      ;;63629146401

 +67      ;;9002226.02101,"785,63629146401 ",.02)

 +68      ;;63629146401

 +69      ;;9002226.02101,"785,63629146402 ",.01)

 +70      ;;63629146402

 +71      ;;9002226.02101,"785,63629146402 ",.02)

 +72      ;;63629146402

 +73      ;;9002226.02101,"785,63629146403 ",.01)

 +74      ;;63629146403

 +75      ;;9002226.02101,"785,63629146403 ",.02)

 +76      ;;63629146403

 +77      ;;9002226.02101,"785,63629178401 ",.01)

 +78      ;;63629178401

 +79      ;;9002226.02101,"785,63629178401 ",.02)

 +80      ;;63629178401

 +81      ;;9002226.02101,"785,63629178402 ",.01)

 +82      ;;63629178402

 +83      ;;9002226.02101,"785,63629178402 ",.02)

 +84      ;;63629178402

 +85      ;;9002226.02101,"785,63629338501 ",.01)

 +86      ;;63629338501

 +87      ;;9002226.02101,"785,63629338501 ",.02)

 +88      ;;63629338501

 +89      ;;9002226.02101,"785,63629338502 ",.01)

 +90      ;;63629338502

 +91      ;;9002226.02101,"785,63629338502 ",.02)

 +92      ;;63629338502

 +93      ;;9002226.02101,"785,63629338503 ",.01)

 +94      ;;63629338503

 +95      ;;9002226.02101,"785,63629338503 ",.02)

 +96      ;;63629338503

 +97      ;;9002226.02101,"785,63629338504 ",.01)

 +98      ;;63629338504

 +99      ;;9002226.02101,"785,63629338504 ",.02)

 +100     ;;63629338504

 +101     ;;9002226.02101,"785,63629338505 ",.01)

 +102     ;;63629338505

 +103     ;;9002226.02101,"785,63629338505 ",.02)

 +104     ;;63629338505

 +105     ;;9002226.02101,"785,63629339201 ",.01)

 +106     ;;63629339201

 +107     ;;9002226.02101,"785,63629339201 ",.02)

 +108     ;;63629339201

 +109     ;;9002226.02101,"785,63629339301 ",.01)

 +110     ;;63629339301

 +111     ;;9002226.02101,"785,63629339301 ",.02)

 +112     ;;63629339301

 +113     ;;9002226.02101,"785,63629339302 ",.01)

 +114     ;;63629339302

 +115     ;;9002226.02101,"785,63629339302 ",.02)

 +116     ;;63629339302

 +117     ;;9002226.02101,"785,63629339303 ",.01)

 +118     ;;63629339303

 +119     ;;9002226.02101,"785,63629339303 ",.02)

 +120     ;;63629339303

 +121     ;;9002226.02101,"785,63629339304 ",.01)

 +122     ;;63629339304

 +123     ;;9002226.02101,"785,63629339304 ",.02)

 +124     ;;63629339304

 +125     ;;9002226.02101,"785,63629340801 ",.01)

 +126     ;;63629340801

 +127     ;;9002226.02101,"785,63629340801 ",.02)

 +128     ;;63629340801

 +129     ;;9002226.02101,"785,63629340804 ",.01)

 +130     ;;63629340804

 +131     ;;9002226.02101,"785,63629340804 ",.02)

 +132     ;;63629340804

 +133     ;;9002226.02101,"785,63629358301 ",.01)

 +134     ;;63629358301

 +135     ;;9002226.02101,"785,63629358301 ",.02)

 +136     ;;63629358301

 +137     ;;9002226.02101,"785,63629358302 ",.01)

 +138     ;;63629358302

 +139     ;;9002226.02101,"785,63629358302 ",.02)

 +140     ;;63629358302

 +141     ;;9002226.02101,"785,63672000101 ",.01)

 +142     ;;63672000101

 +143     ;;9002226.02101,"785,63672000101 ",.02)

 +144     ;;63672000101

 +145     ;;9002226.02101,"785,63672000103 ",.01)

 +146     ;;63672000103

 +147     ;;9002226.02101,"785,63672000103 ",.02)

 +148     ;;63672000103

 +149     ;;9002226.02101,"785,63672000201 ",.01)

 +150     ;;63672000201

 +151     ;;9002226.02101,"785,63672000201 ",.02)

 +152     ;;63672000201

 +153     ;;9002226.02101,"785,63672000203 ",.01)

 +154     ;;63672000203

 +155     ;;9002226.02101,"785,63672000203 ",.02)

 +156     ;;63672000203

 +157     ;;9002226.02101,"785,63672000301 ",.01)

 +158     ;;63672000301

 +159     ;;9002226.02101,"785,63672000301 ",.02)

 +160     ;;63672000301

 +161     ;;9002226.02101,"785,63672000303 ",.01)

 +162     ;;63672000303

 +163     ;;9002226.02101,"785,63672000303 ",.02)

 +164     ;;63672000303

 +165     ;;9002226.02101,"785,63672000401 ",.01)

 +166     ;;63672000401

 +167     ;;9002226.02101,"785,63672000401 ",.02)

 +168     ;;63672000401

 +169     ;;9002226.02101,"785,63672000403 ",.01)

 +170     ;;63672000403

 +171     ;;9002226.02101,"785,63672000403 ",.02)

 +172     ;;63672000403

 +173     ;;9002226.02101,"785,63739028010 ",.01)

 +174     ;;63739028010

 +175     ;;9002226.02101,"785,63739028010 ",.02)

 +176     ;;63739028010

 +177     ;;9002226.02101,"785,63739028015 ",.01)

 +178     ;;63739028015

 +179     ;;9002226.02101,"785,63739028015 ",.02)

 +180     ;;63739028015

 +181     ;;9002226.02101,"785,63739028101 ",.01)

 +182     ;;63739028101

 +183     ;;9002226.02101,"785,63739028101 ",.02)

 +184     ;;63739028101

 +185     ;;9002226.02101,"785,63739028103 ",.01)

 +186     ;;63739028103

 +187     ;;9002226.02101,"785,63739028103 ",.02)

 +188     ;;63739028103

 +189     ;;9002226.02101,"785,63739028110 ",.01)

 +190     ;;63739028110

 +191     ;;9002226.02101,"785,63739028110 ",.02)

 +192     ;;63739028110

 +193     ;;9002226.02101,"785,63739028115 ",.01)

 +194     ;;63739028115

 +195     ;;9002226.02101,"785,63739028115 ",.02)

 +196     ;;63739028115

 +197     ;;9002226.02101,"785,63739028201 ",.01)

 +198     ;;63739028201

 +199     ;;9002226.02101,"785,63739028201 ",.02)

 +200     ;;63739028201

 +201     ;;9002226.02101,"785,63739028203 ",.01)

 +202     ;;63739028203

 +203     ;;9002226.02101,"785,63739028203 ",.02)

 +204     ;;63739028203

 +205     ;;9002226.02101,"785,63739028210 ",.01)

 +206     ;;63739028210

 +207     ;;9002226.02101,"785,63739028210 ",.02)

 +208     ;;63739028210

 +209     ;;9002226.02101,"785,63739041910 ",.01)

 +210     ;;63739041910

 +211     ;;9002226.02101,"785,63739041910 ",.02)

 +212     ;;63739041910

 +213     ;;9002226.02101,"785,63739042010 ",.01)

 +214     ;;63739042010

 +215     ;;9002226.02101,"785,63739042010 ",.02)

 +216     ;;63739042010

 +217     ;;9002226.02101,"785,63739042110 ",.01)

 +218     ;;63739042110

 +219     ;;9002226.02101,"785,63739042110 ",.02)

 +220     ;;63739042110

 +221     ;;9002226.02101,"785,63739042210 ",.01)

 +222     ;;63739042210

 +223     ;;9002226.02101,"785,63739042210 ",.02)

 +224     ;;63739042210

 +225     ;;9002226.02101,"785,63739043510 ",.01)

 +226     ;;63739043510

 +227     ;;9002226.02101,"785,63739043510 ",.02)

 +228     ;;63739043510

 +229     ;;9002226.02101,"785,63739043610 ",.01)

 +230     ;;63739043610

 +231     ;;9002226.02101,"785,63739043610 ",.02)

 +232     ;;63739043610

 +233     ;;9002226.02101,"785,63739043710 ",.01)

 +234     ;;63739043710

 +235     ;;9002226.02101,"785,63739043710 ",.02)

 +236     ;;63739043710

 +237     ;;9002226.02101,"785,63739043810 ",.01)

 +238     ;;63739043810

 +239     ;;9002226.02101,"785,63739043810 ",.02)

 +240     ;;63739043810

 +241     ;;9002226.02101,"785,63874036301 ",.01)

 +242     ;;63874036301

 +243     ;;9002226.02101,"785,63874036301 ",.02)

 +244     ;;63874036301

 +245     ;;9002226.02101,"785,63874036310 ",.01)

 +246     ;;63874036310

 +247     ;;9002226.02101,"785,63874036310 ",.02)

 +248     ;;63874036310

 +249     ;;9002226.02101,"785,63874036320 ",.01)

 +250     ;;63874036320

 +251     ;;9002226.02101,"785,63874036320 ",.02)

 +252     ;;63874036320

 +253     ;;9002226.02101,"785,63874036330 ",.01)

 +254     ;;63874036330

 +255     ;;9002226.02101,"785,63874036330 ",.02)

 +256     ;;63874036330

 +257     ;;9002226.02101,"785,63874036360 ",.01)

 +258     ;;63874036360

 +259     ;;9002226.02101,"785,63874036360 ",.02)

 +260     ;;63874036360

 +261     ;;9002226.02101,"785,63874036390 ",.01)

 +262     ;;63874036390

 +263     ;;9002226.02101,"785,63874036390 ",.02)

 +264     ;;63874036390

 +265     ;;9002226.02101,"785,65243035203 ",.01)

 +266     ;;65243035203

 +267     ;;9002226.02101,"785,65243035203 ",.02)

 +268     ;;65243035203

 +269     ;;9002226.02101,"785,65243035206 ",.01)

 +270     ;;65243035206

 +271     ;;9002226.02101,"785,65243035206 ",.02)

 +272     ;;65243035206

 +273     ;;9002226.02101,"785,65243035209 ",.01)

 +274     ;;65243035209

 +275     ;;9002226.02101,"785,65243035209 ",.02)

 +276     ;;65243035209

 +277     ;;9002226.02101,"785,65243035218 ",.01)

 +278     ;;65243035218

 +279     ;;9002226.02101,"785,65243035218 ",.02)

 +280     ;;65243035218

 +281     ;;9002226.02101,"785,65243035245 ",.01)

 +282     ;;65243035245

 +283     ;;9002226.02101,"785,65243035245 ",.02)

 +284     ;;65243035245

 +285     ;;9002226.02101,"785,65243036103 ",.01)

 +286     ;;65243036103

 +287     ;;9002226.02101,"785,65243036103 ",.02)

 +288     ;;65243036103

 +289     ;;9002226.02101,"785,65243036106 ",.01)

 +290     ;;65243036106

 +291     ;;9002226.02101,"785,65243036106 ",.02)

 +292     ;;65243036106

 +293     ;;9002226.02101,"785,65243036109 ",.01)

 +294     ;;65243036109

 +295     ;;9002226.02101,"785,65243036109 ",.02)

 +296     ;;65243036109

 +297     ;;9002226.02101,"785,65243036115 ",.01)

 +298     ;;65243036115

 +299     ;;9002226.02101,"785,65243036115 ",.02)

 +300     ;;65243036115

 +301     ;;9002226.02101,"785,65243036145 ",.01)

 +302     ;;65243036145

 +303     ;;9002226.02101,"785,65243036145 ",.02)

 +304     ;;65243036145

 +305     ;;9002226.02101,"785,65243036503 ",.01)

 +306     ;;65243036503

 +307     ;;9002226.02101,"785,65243036503 ",.02)

 +308     ;;65243036503

 +309     ;;9002226.02101,"785,65243036506 ",.01)

 +310     ;;65243036506

 +311     ;;9002226.02101,"785,65243036506 ",.02)

 +312     ;;65243036506

 +313     ;;9002226.02101,"785,65243036509 ",.01)

 +314     ;;65243036509

 +315     ;;9002226.02101,"785,65243036509 ",.02)

 +316     ;;65243036509

 +317     ;;9002226.02101,"785,65243036515 ",.01)

 +318     ;;65243036515

 +319     ;;9002226.02101,"785,65243036515 ",.02)

 +320     ;;65243036515

 +321     ;;9002226.02101,"785,65243036545 ",.01)

 +322     ;;65243036545

 +323     ;;9002226.02101,"785,65243036545 ",.02)

 +324     ;;65243036545

 +325     ;;9002226.02101,"785,65243036903 ",.01)

 +326     ;;65243036903

 +327     ;;9002226.02101,"785,65243036903 ",.02)

 +328     ;;65243036903

 +329     ;;9002226.02101,"785,65243036906 ",.01)

 +330     ;;65243036906

 +331     ;;9002226.02101,"785,65243036906 ",.02)

 +332     ;;65243036906

 +333     ;;9002226.02101,"785,65243036909 ",.01)

 +334     ;;65243036909

 +335     ;;9002226.02101,"785,65243036909 ",.02)

 +336     ;;65243036909

 +337     ;;9002226.02101,"785,65243036915 ",.01)

 +338     ;;65243036915

 +339     ;;9002226.02101,"785,65243036915 ",.02)

 +340     ;;65243036915

 +341     ;;9002226.02101,"785,65243036945 ",.01)

 +342     ;;65243036945

 +343     ;;9002226.02101,"785,65243036945 ",.02)

 +344     ;;65243036945

 +345     ;;9002226.02101,"785,65841006505 ",.01)

 +346     ;;65841006505

 +347     ;;9002226.02101,"785,65841006505 ",.02)

 +348     ;;65841006505

 +349     ;;9002226.02101,"785,65841006506 ",.01)

 +350     ;;65841006506

 +351     ;;9002226.02101,"785,65841006506 ",.02)

 +352     ;;65841006506

 +353     ;;9002226.02101,"785,65841006510 ",.01)

 +354     ;;65841006510

 +355     ;;9002226.02101,"785,65841006510 ",.02)

 +356     ;;65841006510

 +357     ;;9002226.02101,"785,65841006514 ",.01)

 +358     ;;65841006514

 +359     ;;9002226.02101,"785,65841006514 ",.02)

 +360     ;;65841006514

 +361     ;;9002226.02101,"785,65841006516 ",.01)

 +362     ;;65841006516

 +363     ;;9002226.02101,"785,65841006516 ",.02)

 +364     ;;65841006516

 +365     ;;9002226.02101,"785,65841006605 ",.01)

 +366     ;;65841006605

 +367     ;;9002226.02101,"785,65841006605 ",.02)

 +368     ;;65841006605

 +369     ;;9002226.02101,"785,65841006606 ",.01)

 +370     ;;65841006606

 +371     ;;9002226.02101,"785,65841006606 ",.02)

 +372     ;;65841006606

 +373     ;;9002226.02101,"785,65841006610 ",.01)

 +374     ;;65841006610

 +375     ;;9002226.02101,"785,65841006610 ",.02)

 +376     ;;65841006610

 +377     ;;9002226.02101,"785,65841006614 ",.01)

 +378     ;;65841006614

 +379     ;;9002226.02101,"785,65841006614 ",.02)

 +380     ;;65841006614

 +381     ;;9002226.02101,"785,65841006616 ",.01)

 +382     ;;65841006616

 +383     ;;9002226.02101,"785,65841006616 ",.02)

 +384     ;;65841006616

 +385     ;;9002226.02101,"785,65841006624 ",.01)

 +386     ;;65841006624

 +387     ;;9002226.02101,"785,65841006624 ",.02)

 +388     ;;65841006624

 +389     ;;9002226.02101,"785,65841006705 ",.01)

 +390     ;;65841006705

 +391     ;;9002226.02101,"785,65841006705 ",.02)

 +392     ;;65841006705

 +393     ;;9002226.02101,"785,65841006706 ",.01)

 +394     ;;65841006706

 +395     ;;9002226.02101,"785,65841006706 ",.02)

 +396     ;;65841006706

 +397     ;;9002226.02101,"785,65841006710 ",.01)

 +398     ;;65841006710

 +399     ;;9002226.02101,"785,65841006710 ",.02)

 +400     ;;65841006710

 +401     ;;9002226.02101,"785,65841006714 ",.01)

 +402     ;;65841006714

 +403     ;;9002226.02101,"785,65841006714 ",.02)

 +404     ;;65841006714

 +405     ;;9002226.02101,"785,65841006716 ",.01)

 +406     ;;65841006716

 +407     ;;9002226.02101,"785,65841006716 ",.02)

 +408     ;;65841006716

BGPM3AE.m