Routine: BGPM5ARE

BGPM5ARE ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON AUG 16, 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,"1005,54569371300 ",.02)

 ;;54569371300

 ;;9002226.02101,"1005,54569371400 ",.01)

 ;;54569371400

 ;;9002226.02101,"1005,54569371400 ",.02)

 ;;54569371400

 ;;9002226.02101,"1005,54569377100 ",.01)

 ;;54569377100

 ;;9002226.02101,"1005,54569377100 ",.02)

 ;;54569377100

 ;;9002226.02101,"1005,54569398400 ",.01)

 ;;54569398400

 ;;9002226.02101,"1005,54569398400 ",.02)

 ;;54569398400

 ;;9002226.02101,"1005,54569398500 ",.01)

 ;;54569398500

 ;;9002226.02101,"1005,54569398500 ",.02)

 ;;54569398500

 ;;9002226.02101,"1005,54569424600 ",.01)

 ;;54569424600

 ;;9002226.02101,"1005,54569424600 ",.02)

 ;;54569424600

 ;;9002226.02101,"1005,54569424601 ",.01)

 ;;54569424601

 ;;9002226.02101,"1005,54569424601 ",.02)

 ;;54569424601

 ;;9002226.02101,"1005,54569424603 ",.01)

 ;;54569424603

 ;;9002226.02101,"1005,54569424603 ",.02)

 ;;54569424603

 ;;9002226.02101,"1005,54569424604 ",.01)

 ;;54569424604

 ;;9002226.02101,"1005,54569424604 ",.02)

 ;;54569424604

 ;;9002226.02101,"1005,54569424605 ",.01)

 ;;54569424605

 ;;9002226.02101,"1005,54569424605 ",.02)

 ;;54569424605

 ;;9002226.02101,"1005,54569424607 ",.01)

 ;;54569424607

 ;;9002226.02101,"1005,54569424607 ",.02)

 ;;54569424607

 ;;9002226.02101,"1005,54569424700 ",.01)

 ;;54569424700

 ;;9002226.02101,"1005,54569424700 ",.02)

 ;;54569424700

 ;;9002226.02101,"1005,54569424702 ",.01)

 ;;54569424702

 ;;9002226.02101,"1005,54569424702 ",.02)

 ;;54569424702

 ;;9002226.02101,"1005,54569424703 ",.01)

 ;;54569424703

 ;;9002226.02101,"1005,54569424703 ",.02)

 ;;54569424703

 ;;9002226.02101,"1005,54569424704 ",.01)

 ;;54569424704

 ;;9002226.02101,"1005,54569424704 ",.02)

 ;;54569424704

 ;;9002226.02101,"1005,54569427600 ",.01)

 ;;54569427600

 ;;9002226.02101,"1005,54569427600 ",.02)

 ;;54569427600

 ;;9002226.02101,"1005,54569457200 ",.01)

 ;;54569457200

 ;;9002226.02101,"1005,54569457200 ",.02)

 ;;54569457200

 ;;9002226.02101,"1005,54569459300 ",.01)

 ;;54569459300

 ;;9002226.02101,"1005,54569459300 ",.02)

 ;;54569459300

 ;;9002226.02101,"1005,54569459301 ",.01)

 ;;54569459301

 ;;9002226.02101,"1005,54569459301 ",.02)

 ;;54569459301

 ;;9002226.02101,"1005,54569459303 ",.01)

 ;;54569459303

 ;;9002226.02101,"1005,54569459303 ",.02)

 ;;54569459303

 ;;9002226.02101,"1005,54569469800 ",.01)

 ;;54569469800

 ;;9002226.02101,"1005,54569469800 ",.02)

 ;;54569469800

 ;;9002226.02101,"1005,54569471400 ",.01)

 ;;54569471400

 ;;9002226.02101,"1005,54569471400 ",.02)

 ;;54569471400

 ;;9002226.02101,"1005,54569471900 ",.01)

 ;;54569471900

 ;;9002226.02101,"1005,54569471900 ",.02)

 ;;54569471900

 ;;9002226.02101,"1005,54569471901 ",.01)

 ;;54569471901

 ;;9002226.02101,"1005,54569471901 ",.02)

 ;;54569471901

 ;;9002226.02101,"1005,54569476600 ",.01)

 ;;54569476600

 ;;9002226.02101,"1005,54569476600 ",.02)

 ;;54569476600

 ;;9002226.02101,"1005,54569476601 ",.01)

 ;;54569476601

 ;;9002226.02101,"1005,54569476601 ",.02)

 ;;54569476601

 ;;9002226.02101,"1005,54569476700 ",.01)

 ;;54569476700

 ;;9002226.02101,"1005,54569476700 ",.02)

 ;;54569476700

 ;;9002226.02101,"1005,54569482900 ",.01)

 ;;54569482900

 ;;9002226.02101,"1005,54569482900 ",.02)

 ;;54569482900

 ;;9002226.02101,"1005,54569489500 ",.01)

 ;;54569489500

 ;;9002226.02101,"1005,54569489500 ",.02)

 ;;54569489500

 ;;9002226.02101,"1005,54569494800 ",.01)

 ;;54569494800

 ;;9002226.02101,"1005,54569494800 ",.02)

 ;;54569494800

 ;;9002226.02101,"1005,54569499000 ",.01)

 ;;54569499000

 ;;9002226.02101,"1005,54569499000 ",.02)

 ;;54569499000

 ;;9002226.02101,"1005,54569513300 ",.01)

 ;;54569513300

 ;;9002226.02101,"1005,54569513300 ",.02)

 ;;54569513300

 ;;9002226.02101,"1005,54569513301 ",.01)

 ;;54569513301

 ;;9002226.02101,"1005,54569513301 ",.02)

 ;;54569513301

 ;;9002226.02101,"1005,54569513400 ",.01)

 ;;54569513400

 ;;9002226.02101,"1005,54569513400 ",.02)

 ;;54569513400

 ;;9002226.02101,"1005,54569513401 ",.01)

 ;;54569513401

 ;;9002226.02101,"1005,54569513401 ",.02)

 ;;54569513401

 ;;9002226.02101,"1005,54569513402 ",.01)

 ;;54569513402

 ;;9002226.02101,"1005,54569513402 ",.02)

 ;;54569513402

 ;;9002226.02101,"1005,54569513500 ",.01)

 ;;54569513500

 ;;9002226.02101,"1005,54569513500 ",.02)

 ;;54569513500

 ;;9002226.02101,"1005,54569513501 ",.01)

 ;;54569513501

 ;;9002226.02101,"1005,54569513501 ",.02)

 ;;54569513501

 ;;9002226.02101,"1005,54569536100 ",.01)

 ;;54569536100

 ;;9002226.02101,"1005,54569536100 ",.02)

 ;;54569536100

 ;;9002226.02101,"1005,54569536200 ",.01)

 ;;54569536200

 ;;9002226.02101,"1005,54569536200 ",.02)

 ;;54569536200

 ;;9002226.02101,"1005,54569543400 ",.01)

 ;;54569543400

 ;;9002226.02101,"1005,54569543400 ",.02)

 ;;54569543400

 ;;9002226.02101,"1005,54569543403 ",.01)

 ;;54569543403

 ;;9002226.02101,"1005,54569543403 ",.02)

 ;;54569543403

 ;;9002226.02101,"1005,54569543404 ",.01)

 ;;54569543404

 ;;9002226.02101,"1005,54569543404 ",.02)

 ;;54569543404

 ;;9002226.02101,"1005,54569543405 ",.01)

 ;;54569543405

 ;;9002226.02101,"1005,54569543405 ",.02)

 ;;54569543405

 ;;9002226.02101,"1005,54569543500 ",.01)

 ;;54569543500

 ;;9002226.02101,"1005,54569543500 ",.02)

 ;;54569543500

 ;;9002226.02101,"1005,54569543503 ",.01)

 ;;54569543503

 ;;9002226.02101,"1005,54569543503 ",.02)

 ;;54569543503

 ;;9002226.02101,"1005,54569543504 ",.01)

 ;;54569543504

 ;;9002226.02101,"1005,54569543504 ",.02)

 ;;54569543504

 ;;9002226.02101,"1005,54569543505 ",.01)

 ;;54569543505

 ;;9002226.02101,"1005,54569543505 ",.02)

 ;;54569543505

 ;;9002226.02101,"1005,54569543700 ",.01)

 ;;54569543700

 ;;9002226.02101,"1005,54569543700 ",.02)

 ;;54569543700

 ;;9002226.02101,"1005,54569543702 ",.01)

 ;;54569543702

 ;;9002226.02101,"1005,54569543702 ",.02)

 ;;54569543702

 ;;9002226.02101,"1005,54569543800 ",.01)

 ;;54569543800

 ;;9002226.02101,"1005,54569543800 ",.02)

 ;;54569543800

 ;;9002226.02101,"1005,54569543803 ",.01)

 ;;54569543803

 ;;9002226.02101,"1005,54569543803 ",.02)

 ;;54569543803

 ;;9002226.02101,"1005,54569547200 ",.01)

 ;;54569547200

 ;;9002226.02101,"1005,54569547200 ",.02)

 ;;54569547200

 ;;9002226.02101,"1005,54569547202 ",.01)

 ;;54569547202

 ;;9002226.02101,"1005,54569547202 ",.02)

 ;;54569547202

 ;;9002226.02101,"1005,54569560600 ",.01)

 ;;54569560600

 ;;9002226.02101,"1005,54569560600 ",.02)

 ;;54569560600

 ;;9002226.02101,"1005,54569562100 ",.01)

 ;;54569562100

 ;;9002226.02101,"1005,54569562100 ",.02)

 ;;54569562100

 ;;9002226.02101,"1005,54569566500 ",.01)

 ;;54569566500

 ;;9002226.02101,"1005,54569566500 ",.02)

 ;;54569566500

 ;;9002226.02101,"1005,54569566600 ",.01)

 ;;54569566600

 ;;9002226.02101,"1005,54569566600 ",.02)

 ;;54569566600

 ;;9002226.02101,"1005,54569566700 ",.01)

 ;;54569566700

 ;;9002226.02101,"1005,54569566700 ",.02)

 ;;54569566700

 ;;9002226.02101,"1005,54569570900 ",.01)

 ;;54569570900

 ;;9002226.02101,"1005,54569570900 ",.02)

 ;;54569570900

 ;;9002226.02101,"1005,54569571000 ",.01)

 ;;54569571000

 ;;9002226.02101,"1005,54569571000 ",.02)

 ;;54569571000

 ;;9002226.02101,"1005,54569571100 ",.01)

 ;;54569571100

 ;;9002226.02101,"1005,54569571100 ",.02)

 ;;54569571100

 ;;9002226.02101,"1005,54569572800 ",.01)

 ;;54569572800

 ;;9002226.02101,"1005,54569572800 ",.02)

 ;;54569572800

 ;;9002226.02101,"1005,54569580100 ",.01)

 ;;54569580100

 ;;9002226.02101,"1005,54569580100 ",.02)

 ;;54569580100

 ;;9002226.02101,"1005,54569586700 ",.01)

 ;;54569586700

 ;;9002226.02101,"1005,54569586700 ",.02)

 ;;54569586700

 ;;9002226.02101,"1005,54569590300 ",.01)

 ;;54569590300

 ;;9002226.02101,"1005,54569590300 ",.02)

 ;;54569590300

 ;;9002226.02101,"1005,54569591600 ",.01)

 ;;54569591600

 ;;9002226.02101,"1005,54569591600 ",.02)

 ;;54569591600

 ;;9002226.02101,"1005,54569593600 ",.01)

 ;;54569593600

 ;;9002226.02101,"1005,54569593600 ",.02)

 ;;54569593600

 ;;9002226.02101,"1005,54569599800 ",.01)

 ;;54569599800

 ;;9002226.02101,"1005,54569599800 ",.02)

 ;;54569599800

 ;;9002226.02101,"1005,54569609100 ",.01)

 ;;54569609100

 ;;9002226.02101,"1005,54569609100 ",.02)

 ;;54569609100

 ;;9002226.02101,"1005,54569609101 ",.01)

 ;;54569609101

 ;;9002226.02101,"1005,54569609101 ",.02)

 ;;54569609101

 ;;9002226.02101,"1005,54569609200 ",.01)

 ;;54569609200

 ;;9002226.02101,"1005,54569609200 ",.02)

 ;;54569609200

 ;;9002226.02101,"1005,54569609201 ",.01)

 ;;54569609201

 ;;9002226.02101,"1005,54569609201 ",.02)

 ;;54569609201

 ;;9002226.02101,"1005,54569609800 ",.01)

 ;;54569609800

 ;;9002226.02101,"1005,54569609800 ",.02)

 ;;54569609800

 ;;9002226.02101,"1005,54569622800 ",.01)

 ;;54569622800

 ;;9002226.02101,"1005,54569622800 ",.02)

 ;;54569622800

 ;;9002226.02101,"1005,54569851500 ",.01)

 ;;54569851500

 ;;9002226.02101,"1005,54569851500 ",.02)

 ;;54569851500

 ;;9002226.02101,"1005,54569852700 ",.01)

 ;;54569852700

 ;;9002226.02101,"1005,54569852700 ",.02)

 ;;54569852700

 ;;9002226.02101,"1005,54569858300 ",.01)

 ;;54569858300

 ;;9002226.02101,"1005,54569858300 ",.02)

 ;;54569858300

 ;;9002226.02101,"1005,54569858400 ",.01)

 ;;54569858400

 ;;9002226.02101,"1005,54569858400 ",.02)

 ;;54569858400

 ;;9002226.02101,"1005,54569859200 ",.01)

 ;;54569859200

 ;;9002226.02101,"1005,54569859200 ",.02)

 ;;54569859200

 ;;9002226.02101,"1005,54569859500 ",.01)

 ;;54569859500

 ;;9002226.02101,"1005,54569859500 ",.02)

 ;;54569859500

 ;;9002226.02101,"1005,54868054100 ",.01)

 ;;54868054100

 ;;9002226.02101,"1005,54868054100 ",.02)

 ;;54868054100

 ;;9002226.02101,"1005,54868054101 ",.01)

 ;;54868054101

 ;;9002226.02101,"1005,54868054101 ",.02)

 ;;54868054101

 ;;9002226.02101,"1005,54868054103 ",.01)

 ;;54868054103

 ;;9002226.02101,"1005,54868054103 ",.02)

 ;;54868054103

 ;;9002226.02101,"1005,54868054104 ",.01)

 ;;54868054104

 ;;9002226.02101,"1005,54868054104 ",.02)

 ;;54868054104

 ;;9002226.02101,"1005,54868062000 ",.01)

 ;;54868062000

 ;;9002226.02101,"1005,54868062000 ",.02)

 ;;54868062000

 ;;9002226.02101,"1005,54868062001 ",.01)

 ;;54868062001

 ;;9002226.02101,"1005,54868062001 ",.02)

 ;;54868062001

 ;;9002226.02101,"1005,54868062002 ",.01)

 ;;54868062002

 ;;9002226.02101,"1005,54868062002 ",.02)

 ;;54868062002

 ;;9002226.02101,"1005,54868062003 ",.01)

 ;;54868062003

 ;;9002226.02101,"1005,54868062003 ",.02)

 ;;54868062003

 ;;9002226.02101,"1005,54868062004 ",.01)

 ;;54868062004

 ;;9002226.02101,"1005,54868062004 ",.02)

 ;;54868062004

 ;;9002226.02101,"1005,54868062005 ",.01)

 ;;54868062005

 ;;9002226.02101,"1005,54868062005 ",.02)

 ;;54868062005

 ;;9002226.02101,"1005,54868100100 ",.01)

 ;;54868100100

 ;;9002226.02101,"1005,54868100100 ",.02)

 ;;54868100100

 ;;9002226.02101,"1005,54868100101 ",.01)

 ;;54868100101

 ;;9002226.02101,"1005,54868100101 ",.02)

 ;;54868100101

 ;;9002226.02101,"1005,54868109000 ",.01)

 ;;54868109000

 ;;9002226.02101,"1005,54868109000 ",.02)

 ;;54868109000

 ;;9002226.02101,"1005,54868109001 ",.01)

 ;;54868109001

 ;;9002226.02101,"1005,54868109001 ",.02)

 ;;54868109001

 ;;9002226.02101,"1005,54868109004 ",.01)

 ;;54868109004

 ;;9002226.02101,"1005,54868109004 ",.02)

 ;;54868109004

 ;;9002226.02101,"1005,54868109005 ",.01)

 ;;54868109005

 ;;9002226.02101,"1005,54868109005 ",.02)

 ;;54868109005

 ;;9002226.02101,"1005,54868109006 ",.01)

 ;;54868109006

 ;;9002226.02101,"1005,54868109006 ",.02)

 ;;54868109006

 ;;9002226.02101,"1005,54868129600 ",.01)

 ;;54868129600

 ;;9002226.02101,"1005,54868129600 ",.02)

 ;;54868129600

 ;;9002226.02101,"1005,54868129601 ",.01)

 ;;54868129601

 ;;9002226.02101,"1005,54868129601 ",.02)

 ;;54868129601

 ;;9002226.02101,"1005,54868129602 ",.01)

 ;;54868129602

 ;;9002226.02101,"1005,54868129602 ",.02)

 ;;54868129602

BGPM5ARE  ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON AUG 16, 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,"1005,54569371300 ",.02)

 +2       ;;54569371300

 +3       ;;9002226.02101,"1005,54569371400 ",.01)

 +4       ;;54569371400

 +5       ;;9002226.02101,"1005,54569371400 ",.02)

 +6       ;;54569371400

 +7       ;;9002226.02101,"1005,54569377100 ",.01)

 +8       ;;54569377100

 +9       ;;9002226.02101,"1005,54569377100 ",.02)

 +10      ;;54569377100

 +11      ;;9002226.02101,"1005,54569398400 ",.01)

 +12      ;;54569398400

 +13      ;;9002226.02101,"1005,54569398400 ",.02)

 +14      ;;54569398400

 +15      ;;9002226.02101,"1005,54569398500 ",.01)

 +16      ;;54569398500

 +17      ;;9002226.02101,"1005,54569398500 ",.02)

 +18      ;;54569398500

 +19      ;;9002226.02101,"1005,54569424600 ",.01)

 +20      ;;54569424600

 +21      ;;9002226.02101,"1005,54569424600 ",.02)

 +22      ;;54569424600

 +23      ;;9002226.02101,"1005,54569424601 ",.01)

 +24      ;;54569424601

 +25      ;;9002226.02101,"1005,54569424601 ",.02)

 +26      ;;54569424601

 +27      ;;9002226.02101,"1005,54569424603 ",.01)

 +28      ;;54569424603

 +29      ;;9002226.02101,"1005,54569424603 ",.02)

 +30      ;;54569424603

 +31      ;;9002226.02101,"1005,54569424604 ",.01)

 +32      ;;54569424604

 +33      ;;9002226.02101,"1005,54569424604 ",.02)

 +34      ;;54569424604

 +35      ;;9002226.02101,"1005,54569424605 ",.01)

 +36      ;;54569424605

 +37      ;;9002226.02101,"1005,54569424605 ",.02)

 +38      ;;54569424605

 +39      ;;9002226.02101,"1005,54569424607 ",.01)

 +40      ;;54569424607

 +41      ;;9002226.02101,"1005,54569424607 ",.02)

 +42      ;;54569424607

 +43      ;;9002226.02101,"1005,54569424700 ",.01)

 +44      ;;54569424700

 +45      ;;9002226.02101,"1005,54569424700 ",.02)

 +46      ;;54569424700

 +47      ;;9002226.02101,"1005,54569424702 ",.01)

 +48      ;;54569424702

 +49      ;;9002226.02101,"1005,54569424702 ",.02)

 +50      ;;54569424702

 +51      ;;9002226.02101,"1005,54569424703 ",.01)

 +52      ;;54569424703

 +53      ;;9002226.02101,"1005,54569424703 ",.02)

 +54      ;;54569424703

 +55      ;;9002226.02101,"1005,54569424704 ",.01)

 +56      ;;54569424704

 +57      ;;9002226.02101,"1005,54569424704 ",.02)

 +58      ;;54569424704

 +59      ;;9002226.02101,"1005,54569427600 ",.01)

 +60      ;;54569427600

 +61      ;;9002226.02101,"1005,54569427600 ",.02)

 +62      ;;54569427600

 +63      ;;9002226.02101,"1005,54569457200 ",.01)

 +64      ;;54569457200

 +65      ;;9002226.02101,"1005,54569457200 ",.02)

 +66      ;;54569457200

 +67      ;;9002226.02101,"1005,54569459300 ",.01)

 +68      ;;54569459300

 +69      ;;9002226.02101,"1005,54569459300 ",.02)

 +70      ;;54569459300

 +71      ;;9002226.02101,"1005,54569459301 ",.01)

 +72      ;;54569459301

 +73      ;;9002226.02101,"1005,54569459301 ",.02)

 +74      ;;54569459301

 +75      ;;9002226.02101,"1005,54569459303 ",.01)

 +76      ;;54569459303

 +77      ;;9002226.02101,"1005,54569459303 ",.02)

 +78      ;;54569459303

 +79      ;;9002226.02101,"1005,54569469800 ",.01)

 +80      ;;54569469800

 +81      ;;9002226.02101,"1005,54569469800 ",.02)

 +82      ;;54569469800

 +83      ;;9002226.02101,"1005,54569471400 ",.01)

 +84      ;;54569471400

 +85      ;;9002226.02101,"1005,54569471400 ",.02)

 +86      ;;54569471400

 +87      ;;9002226.02101,"1005,54569471900 ",.01)

 +88      ;;54569471900

 +89      ;;9002226.02101,"1005,54569471900 ",.02)

 +90      ;;54569471900

 +91      ;;9002226.02101,"1005,54569471901 ",.01)

 +92      ;;54569471901

 +93      ;;9002226.02101,"1005,54569471901 ",.02)

 +94      ;;54569471901

 +95      ;;9002226.02101,"1005,54569476600 ",.01)

 +96      ;;54569476600

 +97      ;;9002226.02101,"1005,54569476600 ",.02)

 +98      ;;54569476600

 +99      ;;9002226.02101,"1005,54569476601 ",.01)

 +100     ;;54569476601

 +101     ;;9002226.02101,"1005,54569476601 ",.02)

 +102     ;;54569476601

 +103     ;;9002226.02101,"1005,54569476700 ",.01)

 +104     ;;54569476700

 +105     ;;9002226.02101,"1005,54569476700 ",.02)

 +106     ;;54569476700

 +107     ;;9002226.02101,"1005,54569482900 ",.01)

 +108     ;;54569482900

 +109     ;;9002226.02101,"1005,54569482900 ",.02)

 +110     ;;54569482900

 +111     ;;9002226.02101,"1005,54569489500 ",.01)

 +112     ;;54569489500

 +113     ;;9002226.02101,"1005,54569489500 ",.02)

 +114     ;;54569489500

 +115     ;;9002226.02101,"1005,54569494800 ",.01)

 +116     ;;54569494800

 +117     ;;9002226.02101,"1005,54569494800 ",.02)

 +118     ;;54569494800

 +119     ;;9002226.02101,"1005,54569499000 ",.01)

 +120     ;;54569499000

 +121     ;;9002226.02101,"1005,54569499000 ",.02)

 +122     ;;54569499000

 +123     ;;9002226.02101,"1005,54569513300 ",.01)

 +124     ;;54569513300

 +125     ;;9002226.02101,"1005,54569513300 ",.02)

 +126     ;;54569513300

 +127     ;;9002226.02101,"1005,54569513301 ",.01)

 +128     ;;54569513301

 +129     ;;9002226.02101,"1005,54569513301 ",.02)

 +130     ;;54569513301

 +131     ;;9002226.02101,"1005,54569513400 ",.01)

 +132     ;;54569513400

 +133     ;;9002226.02101,"1005,54569513400 ",.02)

 +134     ;;54569513400

 +135     ;;9002226.02101,"1005,54569513401 ",.01)

 +136     ;;54569513401

 +137     ;;9002226.02101,"1005,54569513401 ",.02)

 +138     ;;54569513401

 +139     ;;9002226.02101,"1005,54569513402 ",.01)

 +140     ;;54569513402

 +141     ;;9002226.02101,"1005,54569513402 ",.02)

 +142     ;;54569513402

 +143     ;;9002226.02101,"1005,54569513500 ",.01)

 +144     ;;54569513500

 +145     ;;9002226.02101,"1005,54569513500 ",.02)

 +146     ;;54569513500

 +147     ;;9002226.02101,"1005,54569513501 ",.01)

 +148     ;;54569513501

 +149     ;;9002226.02101,"1005,54569513501 ",.02)

 +150     ;;54569513501

 +151     ;;9002226.02101,"1005,54569536100 ",.01)

 +152     ;;54569536100

 +153     ;;9002226.02101,"1005,54569536100 ",.02)

 +154     ;;54569536100

 +155     ;;9002226.02101,"1005,54569536200 ",.01)

 +156     ;;54569536200

 +157     ;;9002226.02101,"1005,54569536200 ",.02)

 +158     ;;54569536200

 +159     ;;9002226.02101,"1005,54569543400 ",.01)

 +160     ;;54569543400

 +161     ;;9002226.02101,"1005,54569543400 ",.02)

 +162     ;;54569543400

 +163     ;;9002226.02101,"1005,54569543403 ",.01)

 +164     ;;54569543403

 +165     ;;9002226.02101,"1005,54569543403 ",.02)

 +166     ;;54569543403

 +167     ;;9002226.02101,"1005,54569543404 ",.01)

 +168     ;;54569543404

 +169     ;;9002226.02101,"1005,54569543404 ",.02)

 +170     ;;54569543404

 +171     ;;9002226.02101,"1005,54569543405 ",.01)

 +172     ;;54569543405

 +173     ;;9002226.02101,"1005,54569543405 ",.02)

 +174     ;;54569543405

 +175     ;;9002226.02101,"1005,54569543500 ",.01)

 +176     ;;54569543500

 +177     ;;9002226.02101,"1005,54569543500 ",.02)

 +178     ;;54569543500

 +179     ;;9002226.02101,"1005,54569543503 ",.01)

 +180     ;;54569543503

 +181     ;;9002226.02101,"1005,54569543503 ",.02)

 +182     ;;54569543503

 +183     ;;9002226.02101,"1005,54569543504 ",.01)

 +184     ;;54569543504

 +185     ;;9002226.02101,"1005,54569543504 ",.02)

 +186     ;;54569543504

 +187     ;;9002226.02101,"1005,54569543505 ",.01)

 +188     ;;54569543505

 +189     ;;9002226.02101,"1005,54569543505 ",.02)

 +190     ;;54569543505

 +191     ;;9002226.02101,"1005,54569543700 ",.01)

 +192     ;;54569543700

 +193     ;;9002226.02101,"1005,54569543700 ",.02)

 +194     ;;54569543700

 +195     ;;9002226.02101,"1005,54569543702 ",.01)

 +196     ;;54569543702

 +197     ;;9002226.02101,"1005,54569543702 ",.02)

 +198     ;;54569543702

 +199     ;;9002226.02101,"1005,54569543800 ",.01)

 +200     ;;54569543800

 +201     ;;9002226.02101,"1005,54569543800 ",.02)

 +202     ;;54569543800

 +203     ;;9002226.02101,"1005,54569543803 ",.01)

 +204     ;;54569543803

 +205     ;;9002226.02101,"1005,54569543803 ",.02)

 +206     ;;54569543803

 +207     ;;9002226.02101,"1005,54569547200 ",.01)

 +208     ;;54569547200

 +209     ;;9002226.02101,"1005,54569547200 ",.02)

 +210     ;;54569547200

 +211     ;;9002226.02101,"1005,54569547202 ",.01)

 +212     ;;54569547202

 +213     ;;9002226.02101,"1005,54569547202 ",.02)

 +214     ;;54569547202

 +215     ;;9002226.02101,"1005,54569560600 ",.01)

 +216     ;;54569560600

 +217     ;;9002226.02101,"1005,54569560600 ",.02)

 +218     ;;54569560600

 +219     ;;9002226.02101,"1005,54569562100 ",.01)

 +220     ;;54569562100

 +221     ;;9002226.02101,"1005,54569562100 ",.02)

 +222     ;;54569562100

 +223     ;;9002226.02101,"1005,54569566500 ",.01)

 +224     ;;54569566500

 +225     ;;9002226.02101,"1005,54569566500 ",.02)

 +226     ;;54569566500

 +227     ;;9002226.02101,"1005,54569566600 ",.01)

 +228     ;;54569566600

 +229     ;;9002226.02101,"1005,54569566600 ",.02)

 +230     ;;54569566600

 +231     ;;9002226.02101,"1005,54569566700 ",.01)

 +232     ;;54569566700

 +233     ;;9002226.02101,"1005,54569566700 ",.02)

 +234     ;;54569566700

 +235     ;;9002226.02101,"1005,54569570900 ",.01)

 +236     ;;54569570900

 +237     ;;9002226.02101,"1005,54569570900 ",.02)

 +238     ;;54569570900

 +239     ;;9002226.02101,"1005,54569571000 ",.01)

 +240     ;;54569571000

 +241     ;;9002226.02101,"1005,54569571000 ",.02)

 +242     ;;54569571000

 +243     ;;9002226.02101,"1005,54569571100 ",.01)

 +244     ;;54569571100

 +245     ;;9002226.02101,"1005,54569571100 ",.02)

 +246     ;;54569571100

 +247     ;;9002226.02101,"1005,54569572800 ",.01)

 +248     ;;54569572800

 +249     ;;9002226.02101,"1005,54569572800 ",.02)

 +250     ;;54569572800

 +251     ;;9002226.02101,"1005,54569580100 ",.01)

 +252     ;;54569580100

 +253     ;;9002226.02101,"1005,54569580100 ",.02)

 +254     ;;54569580100

 +255     ;;9002226.02101,"1005,54569586700 ",.01)

 +256     ;;54569586700

 +257     ;;9002226.02101,"1005,54569586700 ",.02)

 +258     ;;54569586700

 +259     ;;9002226.02101,"1005,54569590300 ",.01)

 +260     ;;54569590300

 +261     ;;9002226.02101,"1005,54569590300 ",.02)

 +262     ;;54569590300

 +263     ;;9002226.02101,"1005,54569591600 ",.01)

 +264     ;;54569591600

 +265     ;;9002226.02101,"1005,54569591600 ",.02)

 +266     ;;54569591600

 +267     ;;9002226.02101,"1005,54569593600 ",.01)

 +268     ;;54569593600

 +269     ;;9002226.02101,"1005,54569593600 ",.02)

 +270     ;;54569593600

 +271     ;;9002226.02101,"1005,54569599800 ",.01)

 +272     ;;54569599800

 +273     ;;9002226.02101,"1005,54569599800 ",.02)

 +274     ;;54569599800

 +275     ;;9002226.02101,"1005,54569609100 ",.01)

 +276     ;;54569609100

 +277     ;;9002226.02101,"1005,54569609100 ",.02)

 +278     ;;54569609100

 +279     ;;9002226.02101,"1005,54569609101 ",.01)

 +280     ;;54569609101

 +281     ;;9002226.02101,"1005,54569609101 ",.02)

 +282     ;;54569609101

 +283     ;;9002226.02101,"1005,54569609200 ",.01)

 +284     ;;54569609200

 +285     ;;9002226.02101,"1005,54569609200 ",.02)

 +286     ;;54569609200

 +287     ;;9002226.02101,"1005,54569609201 ",.01)

 +288     ;;54569609201

 +289     ;;9002226.02101,"1005,54569609201 ",.02)

 +290     ;;54569609201

 +291     ;;9002226.02101,"1005,54569609800 ",.01)

 +292     ;;54569609800

 +293     ;;9002226.02101,"1005,54569609800 ",.02)

 +294     ;;54569609800

 +295     ;;9002226.02101,"1005,54569622800 ",.01)

 +296     ;;54569622800

 +297     ;;9002226.02101,"1005,54569622800 ",.02)

 +298     ;;54569622800

 +299     ;;9002226.02101,"1005,54569851500 ",.01)

 +300     ;;54569851500

 +301     ;;9002226.02101,"1005,54569851500 ",.02)

 +302     ;;54569851500

 +303     ;;9002226.02101,"1005,54569852700 ",.01)

 +304     ;;54569852700

 +305     ;;9002226.02101,"1005,54569852700 ",.02)

 +306     ;;54569852700

 +307     ;;9002226.02101,"1005,54569858300 ",.01)

 +308     ;;54569858300

 +309     ;;9002226.02101,"1005,54569858300 ",.02)

 +310     ;;54569858300

 +311     ;;9002226.02101,"1005,54569858400 ",.01)

 +312     ;;54569858400

 +313     ;;9002226.02101,"1005,54569858400 ",.02)

 +314     ;;54569858400

 +315     ;;9002226.02101,"1005,54569859200 ",.01)

 +316     ;;54569859200

 +317     ;;9002226.02101,"1005,54569859200 ",.02)

 +318     ;;54569859200

 +319     ;;9002226.02101,"1005,54569859500 ",.01)

 +320     ;;54569859500

 +321     ;;9002226.02101,"1005,54569859500 ",.02)

 +322     ;;54569859500

 +323     ;;9002226.02101,"1005,54868054100 ",.01)

 +324     ;;54868054100

 +325     ;;9002226.02101,"1005,54868054100 ",.02)

 +326     ;;54868054100

 +327     ;;9002226.02101,"1005,54868054101 ",.01)

 +328     ;;54868054101

 +329     ;;9002226.02101,"1005,54868054101 ",.02)

 +330     ;;54868054101

 +331     ;;9002226.02101,"1005,54868054103 ",.01)

 +332     ;;54868054103

 +333     ;;9002226.02101,"1005,54868054103 ",.02)

 +334     ;;54868054103

 +335     ;;9002226.02101,"1005,54868054104 ",.01)

 +336     ;;54868054104

 +337     ;;9002226.02101,"1005,54868054104 ",.02)

 +338     ;;54868054104

 +339     ;;9002226.02101,"1005,54868062000 ",.01)

 +340     ;;54868062000

 +341     ;;9002226.02101,"1005,54868062000 ",.02)

 +342     ;;54868062000

 +343     ;;9002226.02101,"1005,54868062001 ",.01)

 +344     ;;54868062001

 +345     ;;9002226.02101,"1005,54868062001 ",.02)

 +346     ;;54868062001

 +347     ;;9002226.02101,"1005,54868062002 ",.01)

 +348     ;;54868062002

 +349     ;;9002226.02101,"1005,54868062002 ",.02)

 +350     ;;54868062002

 +351     ;;9002226.02101,"1005,54868062003 ",.01)

 +352     ;;54868062003

 +353     ;;9002226.02101,"1005,54868062003 ",.02)

 +354     ;;54868062003

 +355     ;;9002226.02101,"1005,54868062004 ",.01)

 +356     ;;54868062004

 +357     ;;9002226.02101,"1005,54868062004 ",.02)

 +358     ;;54868062004

 +359     ;;9002226.02101,"1005,54868062005 ",.01)

 +360     ;;54868062005

 +361     ;;9002226.02101,"1005,54868062005 ",.02)

 +362     ;;54868062005

 +363     ;;9002226.02101,"1005,54868100100 ",.01)

 +364     ;;54868100100

 +365     ;;9002226.02101,"1005,54868100100 ",.02)

 +366     ;;54868100100

 +367     ;;9002226.02101,"1005,54868100101 ",.01)

 +368     ;;54868100101

 +369     ;;9002226.02101,"1005,54868100101 ",.02)

 +370     ;;54868100101

 +371     ;;9002226.02101,"1005,54868109000 ",.01)

 +372     ;;54868109000

 +373     ;;9002226.02101,"1005,54868109000 ",.02)

 +374     ;;54868109000

 +375     ;;9002226.02101,"1005,54868109001 ",.01)

 +376     ;;54868109001

 +377     ;;9002226.02101,"1005,54868109001 ",.02)

 +378     ;;54868109001

 +379     ;;9002226.02101,"1005,54868109004 ",.01)

 +380     ;;54868109004

 +381     ;;9002226.02101,"1005,54868109004 ",.02)

 +382     ;;54868109004

 +383     ;;9002226.02101,"1005,54868109005 ",.01)

 +384     ;;54868109005

 +385     ;;9002226.02101,"1005,54868109005 ",.02)

 +386     ;;54868109005

 +387     ;;9002226.02101,"1005,54868109006 ",.01)

 +388     ;;54868109006

 +389     ;;9002226.02101,"1005,54868109006 ",.02)

 +390     ;;54868109006

 +391     ;;9002226.02101,"1005,54868129600 ",.01)

 +392     ;;54868129600

 +393     ;;9002226.02101,"1005,54868129600 ",.02)

 +394     ;;54868129600

 +395     ;;9002226.02101,"1005,54868129601 ",.01)

 +396     ;;54868129601

 +397     ;;9002226.02101,"1005,54868129601 ",.02)

 +398     ;;54868129601

 +399     ;;9002226.02101,"1005,54868129602 ",.01)

 +400     ;;54868129602

 +401     ;;9002226.02101,"1005,54868129602 ",.02)

 +402     ;;54868129602

BGPM5ARE.m