Routine: BGPM5ACE

BGPM5ACE ;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,"830,67544059675 ",.02)

 ;;67544059675

 ;;9002226.02101,"830,67544059680 ",.01)

 ;;67544059680

 ;;9002226.02101,"830,67544059680 ",.02)

 ;;67544059680

 ;;9002226.02101,"830,67544059690 ",.01)

 ;;67544059690

 ;;9002226.02101,"830,67544059690 ",.02)

 ;;67544059690

 ;;9002226.02101,"830,67544059692 ",.01)

 ;;67544059692

 ;;9002226.02101,"830,67544059692 ",.02)

 ;;67544059692

 ;;9002226.02101,"830,67544059694 ",.01)

 ;;67544059694

 ;;9002226.02101,"830,67544059694 ",.02)

 ;;67544059694

 ;;9002226.02101,"830,67544059696 ",.01)

 ;;67544059696

 ;;9002226.02101,"830,67544059696 ",.02)

 ;;67544059696

 ;;9002226.02101,"830,67767011501 ",.01)

 ;;67767011501

 ;;9002226.02101,"830,67767011501 ",.02)

 ;;67767011501

 ;;9002226.02101,"830,67877021701 ",.01)

 ;;67877021701

 ;;9002226.02101,"830,67877021701 ",.02)

 ;;67877021701

 ;;9002226.02101,"830,67877021705 ",.01)

 ;;67877021705

 ;;9002226.02101,"830,67877021705 ",.02)

 ;;67877021705

 ;;9002226.02101,"830,67877021801 ",.01)

 ;;67877021801

 ;;9002226.02101,"830,67877021801 ",.02)

 ;;67877021801

 ;;9002226.02101,"830,67877022101 ",.01)

 ;;67877022101

 ;;9002226.02101,"830,67877022101 ",.02)

 ;;67877022101

 ;;9002226.02101,"830,68071002805 ",.01)

 ;;68071002805

 ;;9002226.02101,"830,68071002805 ",.02)

 ;;68071002805

 ;;9002226.02101,"830,68071002830 ",.01)

 ;;68071002830

 ;;9002226.02101,"830,68071002830 ",.02)

 ;;68071002830

 ;;9002226.02101,"830,68071002860 ",.01)

 ;;68071002860

 ;;9002226.02101,"830,68071002860 ",.02)

 ;;68071002860

 ;;9002226.02101,"830,68071010730 ",.01)

 ;;68071010730

 ;;9002226.02101,"830,68071010730 ",.02)

 ;;68071010730

 ;;9002226.02101,"830,68071016530 ",.01)

 ;;68071016530

 ;;9002226.02101,"830,68071016530 ",.02)

 ;;68071016530

 ;;9002226.02101,"830,68071043412 ",.01)

 ;;68071043412

 ;;9002226.02101,"830,68071043412 ",.02)

 ;;68071043412

 ;;9002226.02101,"830,68071048830 ",.01)

 ;;68071048830

 ;;9002226.02101,"830,68071048830 ",.02)

 ;;68071048830

 ;;9002226.02101,"830,68071050190 ",.01)

 ;;68071050190

 ;;9002226.02101,"830,68071050190 ",.02)

 ;;68071050190

 ;;9002226.02101,"830,68084007201 ",.01)

 ;;68084007201

 ;;9002226.02101,"830,68084007201 ",.02)

 ;;68084007201

 ;;9002226.02101,"830,68084007211 ",.01)

 ;;68084007211

 ;;9002226.02101,"830,68084007211 ",.02)

 ;;68084007211

 ;;9002226.02101,"830,68084013601 ",.01)

 ;;68084013601

 ;;9002226.02101,"830,68084013601 ",.02)

 ;;68084013601

 ;;9002226.02101,"830,68084013701 ",.01)

 ;;68084013701

 ;;9002226.02101,"830,68084013701 ",.02)

 ;;68084013701

 ;;9002226.02101,"830,68084013801 ",.01)

 ;;68084013801

 ;;9002226.02101,"830,68084013801 ",.02)

 ;;68084013801

 ;;9002226.02101,"830,68115023100 ",.01)

 ;;68115023100

 ;;9002226.02101,"830,68115023100 ",.02)

 ;;68115023100

 ;;9002226.02101,"830,68382002701 ",.01)

 ;;68382002701

 ;;9002226.02101,"830,68382002701 ",.02)

 ;;68382002701

 ;;9002226.02101,"830,68382002705 ",.01)

 ;;68382002705

 ;;9002226.02101,"830,68382002705 ",.02)

 ;;68382002705

 ;;9002226.02101,"830,68382002801 ",.01)

 ;;68382002801

 ;;9002226.02101,"830,68382002801 ",.02)

 ;;68382002801

 ;;9002226.02101,"830,68382002805 ",.01)

 ;;68382002805

 ;;9002226.02101,"830,68382002805 ",.02)

 ;;68382002805

 ;;9002226.02101,"830,68382002810 ",.01)

 ;;68382002810

 ;;9002226.02101,"830,68382002810 ",.02)

 ;;68382002810

 ;;9002226.02101,"830,68382002816 ",.01)

 ;;68382002816

 ;;9002226.02101,"830,68382002816 ",.02)

 ;;68382002816

 ;;9002226.02101,"830,68382002830 ",.01)

 ;;68382002830

 ;;9002226.02101,"830,68382002830 ",.02)

 ;;68382002830

 ;;9002226.02101,"830,68382002861 ",.01)

 ;;68382002861

 ;;9002226.02101,"830,68382002861 ",.02)

 ;;68382002861

 ;;9002226.02101,"830,68382002901 ",.01)

 ;;68382002901

 ;;9002226.02101,"830,68382002901 ",.02)

 ;;68382002901

 ;;9002226.02101,"830,68382002905 ",.01)

 ;;68382002905

 ;;9002226.02101,"830,68382002905 ",.02)

 ;;68382002905

 ;;9002226.02101,"830,68382002910 ",.01)

 ;;68382002910

 ;;9002226.02101,"830,68382002910 ",.02)

 ;;68382002910

 ;;9002226.02101,"830,68382002916 ",.01)

 ;;68382002916

 ;;9002226.02101,"830,68382002916 ",.02)

 ;;68382002916

 ;;9002226.02101,"830,68382002930 ",.01)

 ;;68382002930

 ;;9002226.02101,"830,68382002930 ",.02)

 ;;68382002930

 ;;9002226.02101,"830,68382002961 ",.01)

 ;;68382002961

 ;;9002226.02101,"830,68382002961 ",.02)

 ;;68382002961

 ;;9002226.02101,"830,68382003001 ",.01)

 ;;68382003001

 ;;9002226.02101,"830,68382003001 ",.02)

 ;;68382003001

 ;;9002226.02101,"830,68382003005 ",.01)

 ;;68382003005

 ;;9002226.02101,"830,68382003005 ",.02)

 ;;68382003005

 ;;9002226.02101,"830,68382003010 ",.01)

 ;;68382003010

 ;;9002226.02101,"830,68382003010 ",.02)

 ;;68382003010

 ;;9002226.02101,"830,68382003016 ",.01)

 ;;68382003016

 ;;9002226.02101,"830,68382003016 ",.02)

 ;;68382003016

 ;;9002226.02101,"830,68382003030 ",.01)

 ;;68382003030

 ;;9002226.02101,"830,68382003030 ",.02)

 ;;68382003030

 ;;9002226.02101,"830,68382003061 ",.01)

 ;;68382003061

 ;;9002226.02101,"830,68382003061 ",.02)

 ;;68382003061

 ;;9002226.02101,"830,68382003901 ",.01)

 ;;68382003901

 ;;9002226.02101,"830,68382003901 ",.02)

 ;;68382003901

 ;;9002226.02101,"830,68382003905 ",.01)

 ;;68382003905

 ;;9002226.02101,"830,68382003905 ",.02)

 ;;68382003905

 ;;9002226.02101,"830,68462015901 ",.01)

 ;;68462015901

 ;;9002226.02101,"830,68462015901 ",.02)

 ;;68462015901

 ;;9002226.02101,"830,68462015905 ",.01)

 ;;68462015905

 ;;9002226.02101,"830,68462015905 ",.02)

 ;;68462015905

 ;;9002226.02101,"830,68462015910 ",.01)

 ;;68462015910

 ;;9002226.02101,"830,68462015910 ",.02)

 ;;68462015910

 ;;9002226.02101,"830,68462015918 ",.01)

 ;;68462015918

 ;;9002226.02101,"830,68462015918 ",.02)

 ;;68462015918

 ;;9002226.02101,"830,68462015990 ",.01)

 ;;68462015990

 ;;9002226.02101,"830,68462015990 ",.02)

 ;;68462015990

 ;;9002226.02101,"830,68462016001 ",.01)

 ;;68462016001

 ;;9002226.02101,"830,68462016001 ",.02)

 ;;68462016001

 ;;9002226.02101,"830,68462016005 ",.01)

 ;;68462016005

 ;;9002226.02101,"830,68462016005 ",.02)

 ;;68462016005

 ;;9002226.02101,"830,68462016010 ",.01)

 ;;68462016010

 ;;9002226.02101,"830,68462016010 ",.02)

 ;;68462016010

 ;;9002226.02101,"830,68462016018 ",.01)

 ;;68462016018

 ;;9002226.02101,"830,68462016018 ",.02)

 ;;68462016018

 ;;9002226.02101,"830,68462016090 ",.01)

 ;;68462016090

 ;;9002226.02101,"830,68462016090 ",.02)

 ;;68462016090

 ;;9002226.02101,"830,68462016101 ",.01)

 ;;68462016101

 ;;9002226.02101,"830,68462016101 ",.02)

 ;;68462016101

 ;;9002226.02101,"830,68462016105 ",.01)

 ;;68462016105

 ;;9002226.02101,"830,68462016105 ",.02)

 ;;68462016105

 ;;9002226.02101,"830,68462016110 ",.01)

 ;;68462016110

 ;;9002226.02101,"830,68462016110 ",.02)

 ;;68462016110

 ;;9002226.02101,"830,68462016118 ",.01)

 ;;68462016118

 ;;9002226.02101,"830,68462016118 ",.02)

 ;;68462016118

 ;;9002226.02101,"830,68462016190 ",.01)

 ;;68462016190

 ;;9002226.02101,"830,68462016190 ",.02)

 ;;68462016190

 ;;9002226.02101,"830,68533001712 ",.01)

 ;;68533001712

 ;;9002226.02101,"830,68533001712 ",.02)

 ;;68533001712

 ;;9002226.02101,"830,68533001722 ",.01)

 ;;68533001722

 ;;9002226.02101,"830,68533001722 ",.02)

 ;;68533001722

 ;;9002226.02101,"830,68533001739 ",.01)

 ;;68533001739

 ;;9002226.02101,"830,68533001739 ",.02)

 ;;68533001739

 ;;9002226.02101,"830,68645011259 ",.01)

 ;;68645011259

 ;;9002226.02101,"830,68645011259 ",.02)

 ;;68645011259

 ;;9002226.02101,"830,68645012059 ",.01)

 ;;68645012059

 ;;9002226.02101,"830,68645012059 ",.02)

 ;;68645012059

 ;;9002226.02101,"830,68788039701 ",.01)

 ;;68788039701

 ;;9002226.02101,"830,68788039701 ",.02)

 ;;68788039701

 ;;9002226.02101,"830,68788039703 ",.01)

 ;;68788039703

 ;;9002226.02101,"830,68788039703 ",.02)

 ;;68788039703

 ;;9002226.02101,"830,68788039706 ",.01)

 ;;68788039706

 ;;9002226.02101,"830,68788039706 ",.02)

 ;;68788039706

 ;;9002226.02101,"830,68788039708 ",.01)

 ;;68788039708

 ;;9002226.02101,"830,68788039708 ",.02)

 ;;68788039708

 ;;9002226.02101,"830,68788039709 ",.01)

 ;;68788039709

 ;;9002226.02101,"830,68788039709 ",.02)

 ;;68788039709

 ;;9002226.02101,"830,68788043501 ",.01)

 ;;68788043501

 ;;9002226.02101,"830,68788043501 ",.02)

 ;;68788043501

 ;;9002226.02101,"830,68788043503 ",.01)

 ;;68788043503

 ;;9002226.02101,"830,68788043503 ",.02)

 ;;68788043503

 ;;9002226.02101,"830,68788043506 ",.01)

 ;;68788043506

 ;;9002226.02101,"830,68788043506 ",.02)

 ;;68788043506

 ;;9002226.02101,"830,68788043508 ",.01)

 ;;68788043508

 ;;9002226.02101,"830,68788043508 ",.02)

 ;;68788043508

 ;;9002226.02101,"830,68788043509 ",.01)

 ;;68788043509

 ;;9002226.02101,"830,68788043509 ",.02)

 ;;68788043509

 ;;9002226.02101,"830,68788046703 ",.01)

 ;;68788046703

 ;;9002226.02101,"830,68788046703 ",.02)

 ;;68788046703

 ;;9002226.02101,"830,68788046706 ",.01)

 ;;68788046706

 ;;9002226.02101,"830,68788046706 ",.02)

 ;;68788046706

 ;;9002226.02101,"830,68788047401 ",.01)

 ;;68788047401

 ;;9002226.02101,"830,68788047401 ",.02)

 ;;68788047401

 ;;9002226.02101,"830,68788047403 ",.01)

 ;;68788047403

 ;;9002226.02101,"830,68788047403 ",.02)

 ;;68788047403

 ;;9002226.02101,"830,68788047406 ",.01)

 ;;68788047406

 ;;9002226.02101,"830,68788047406 ",.02)

 ;;68788047406

 ;;9002226.02101,"830,68788047408 ",.01)

 ;;68788047408

 ;;9002226.02101,"830,68788047408 ",.02)

 ;;68788047408

 ;;9002226.02101,"830,68788047409 ",.01)

 ;;68788047409

 ;;9002226.02101,"830,68788047409 ",.02)

 ;;68788047409

 ;;9002226.02101,"830,68788096903 ",.01)

 ;;68788096903

 ;;9002226.02101,"830,68788096903 ",.02)

 ;;68788096903

 ;;9002226.02101,"830,68788096906 ",.01)

 ;;68788096906

 ;;9002226.02101,"830,68788096906 ",.02)

 ;;68788096906

BGPM5ACE  ;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,"830,67544059675 ",.02)

 +2       ;;67544059675

 +3       ;;9002226.02101,"830,67544059680 ",.01)

 +4       ;;67544059680

 +5       ;;9002226.02101,"830,67544059680 ",.02)

 +6       ;;67544059680

 +7       ;;9002226.02101,"830,67544059690 ",.01)

 +8       ;;67544059690

 +9       ;;9002226.02101,"830,67544059690 ",.02)

 +10      ;;67544059690

 +11      ;;9002226.02101,"830,67544059692 ",.01)

 +12      ;;67544059692

 +13      ;;9002226.02101,"830,67544059692 ",.02)

 +14      ;;67544059692

 +15      ;;9002226.02101,"830,67544059694 ",.01)

 +16      ;;67544059694

 +17      ;;9002226.02101,"830,67544059694 ",.02)

 +18      ;;67544059694

 +19      ;;9002226.02101,"830,67544059696 ",.01)

 +20      ;;67544059696

 +21      ;;9002226.02101,"830,67544059696 ",.02)

 +22      ;;67544059696

 +23      ;;9002226.02101,"830,67767011501 ",.01)

 +24      ;;67767011501

 +25      ;;9002226.02101,"830,67767011501 ",.02)

 +26      ;;67767011501

 +27      ;;9002226.02101,"830,67877021701 ",.01)

 +28      ;;67877021701

 +29      ;;9002226.02101,"830,67877021701 ",.02)

 +30      ;;67877021701

 +31      ;;9002226.02101,"830,67877021705 ",.01)

 +32      ;;67877021705

 +33      ;;9002226.02101,"830,67877021705 ",.02)

 +34      ;;67877021705

 +35      ;;9002226.02101,"830,67877021801 ",.01)

 +36      ;;67877021801

 +37      ;;9002226.02101,"830,67877021801 ",.02)

 +38      ;;67877021801

 +39      ;;9002226.02101,"830,67877022101 ",.01)

 +40      ;;67877022101

 +41      ;;9002226.02101,"830,67877022101 ",.02)

 +42      ;;67877022101

 +43      ;;9002226.02101,"830,68071002805 ",.01)

 +44      ;;68071002805

 +45      ;;9002226.02101,"830,68071002805 ",.02)

 +46      ;;68071002805

 +47      ;;9002226.02101,"830,68071002830 ",.01)

 +48      ;;68071002830

 +49      ;;9002226.02101,"830,68071002830 ",.02)

 +50      ;;68071002830

 +51      ;;9002226.02101,"830,68071002860 ",.01)

 +52      ;;68071002860

 +53      ;;9002226.02101,"830,68071002860 ",.02)

 +54      ;;68071002860

 +55      ;;9002226.02101,"830,68071010730 ",.01)

 +56      ;;68071010730

 +57      ;;9002226.02101,"830,68071010730 ",.02)

 +58      ;;68071010730

 +59      ;;9002226.02101,"830,68071016530 ",.01)

 +60      ;;68071016530

 +61      ;;9002226.02101,"830,68071016530 ",.02)

 +62      ;;68071016530

 +63      ;;9002226.02101,"830,68071043412 ",.01)

 +64      ;;68071043412

 +65      ;;9002226.02101,"830,68071043412 ",.02)

 +66      ;;68071043412

 +67      ;;9002226.02101,"830,68071048830 ",.01)

 +68      ;;68071048830

 +69      ;;9002226.02101,"830,68071048830 ",.02)

 +70      ;;68071048830

 +71      ;;9002226.02101,"830,68071050190 ",.01)

 +72      ;;68071050190

 +73      ;;9002226.02101,"830,68071050190 ",.02)

 +74      ;;68071050190

 +75      ;;9002226.02101,"830,68084007201 ",.01)

 +76      ;;68084007201

 +77      ;;9002226.02101,"830,68084007201 ",.02)

 +78      ;;68084007201

 +79      ;;9002226.02101,"830,68084007211 ",.01)

 +80      ;;68084007211

 +81      ;;9002226.02101,"830,68084007211 ",.02)

 +82      ;;68084007211

 +83      ;;9002226.02101,"830,68084013601 ",.01)

 +84      ;;68084013601

 +85      ;;9002226.02101,"830,68084013601 ",.02)

 +86      ;;68084013601

 +87      ;;9002226.02101,"830,68084013701 ",.01)

 +88      ;;68084013701

 +89      ;;9002226.02101,"830,68084013701 ",.02)

 +90      ;;68084013701

 +91      ;;9002226.02101,"830,68084013801 ",.01)

 +92      ;;68084013801

 +93      ;;9002226.02101,"830,68084013801 ",.02)

 +94      ;;68084013801

 +95      ;;9002226.02101,"830,68115023100 ",.01)

 +96      ;;68115023100

 +97      ;;9002226.02101,"830,68115023100 ",.02)

 +98      ;;68115023100

 +99      ;;9002226.02101,"830,68382002701 ",.01)

 +100     ;;68382002701

 +101     ;;9002226.02101,"830,68382002701 ",.02)

 +102     ;;68382002701

 +103     ;;9002226.02101,"830,68382002705 ",.01)

 +104     ;;68382002705

 +105     ;;9002226.02101,"830,68382002705 ",.02)

 +106     ;;68382002705

 +107     ;;9002226.02101,"830,68382002801 ",.01)

 +108     ;;68382002801

 +109     ;;9002226.02101,"830,68382002801 ",.02)

 +110     ;;68382002801

 +111     ;;9002226.02101,"830,68382002805 ",.01)

 +112     ;;68382002805

 +113     ;;9002226.02101,"830,68382002805 ",.02)

 +114     ;;68382002805

 +115     ;;9002226.02101,"830,68382002810 ",.01)

 +116     ;;68382002810

 +117     ;;9002226.02101,"830,68382002810 ",.02)

 +118     ;;68382002810

 +119     ;;9002226.02101,"830,68382002816 ",.01)

 +120     ;;68382002816

 +121     ;;9002226.02101,"830,68382002816 ",.02)

 +122     ;;68382002816

 +123     ;;9002226.02101,"830,68382002830 ",.01)

 +124     ;;68382002830

 +125     ;;9002226.02101,"830,68382002830 ",.02)

 +126     ;;68382002830

 +127     ;;9002226.02101,"830,68382002861 ",.01)

 +128     ;;68382002861

 +129     ;;9002226.02101,"830,68382002861 ",.02)

 +130     ;;68382002861

 +131     ;;9002226.02101,"830,68382002901 ",.01)

 +132     ;;68382002901

 +133     ;;9002226.02101,"830,68382002901 ",.02)

 +134     ;;68382002901

 +135     ;;9002226.02101,"830,68382002905 ",.01)

 +136     ;;68382002905

 +137     ;;9002226.02101,"830,68382002905 ",.02)

 +138     ;;68382002905

 +139     ;;9002226.02101,"830,68382002910 ",.01)

 +140     ;;68382002910

 +141     ;;9002226.02101,"830,68382002910 ",.02)

 +142     ;;68382002910

 +143     ;;9002226.02101,"830,68382002916 ",.01)

 +144     ;;68382002916

 +145     ;;9002226.02101,"830,68382002916 ",.02)

 +146     ;;68382002916

 +147     ;;9002226.02101,"830,68382002930 ",.01)

 +148     ;;68382002930

 +149     ;;9002226.02101,"830,68382002930 ",.02)

 +150     ;;68382002930

 +151     ;;9002226.02101,"830,68382002961 ",.01)

 +152     ;;68382002961

 +153     ;;9002226.02101,"830,68382002961 ",.02)

 +154     ;;68382002961

 +155     ;;9002226.02101,"830,68382003001 ",.01)

 +156     ;;68382003001

 +157     ;;9002226.02101,"830,68382003001 ",.02)

 +158     ;;68382003001

 +159     ;;9002226.02101,"830,68382003005 ",.01)

 +160     ;;68382003005

 +161     ;;9002226.02101,"830,68382003005 ",.02)

 +162     ;;68382003005

 +163     ;;9002226.02101,"830,68382003010 ",.01)

 +164     ;;68382003010

 +165     ;;9002226.02101,"830,68382003010 ",.02)

 +166     ;;68382003010

 +167     ;;9002226.02101,"830,68382003016 ",.01)

 +168     ;;68382003016

 +169     ;;9002226.02101,"830,68382003016 ",.02)

 +170     ;;68382003016

 +171     ;;9002226.02101,"830,68382003030 ",.01)

 +172     ;;68382003030

 +173     ;;9002226.02101,"830,68382003030 ",.02)

 +174     ;;68382003030

 +175     ;;9002226.02101,"830,68382003061 ",.01)

 +176     ;;68382003061

 +177     ;;9002226.02101,"830,68382003061 ",.02)

 +178     ;;68382003061

 +179     ;;9002226.02101,"830,68382003901 ",.01)

 +180     ;;68382003901

 +181     ;;9002226.02101,"830,68382003901 ",.02)

 +182     ;;68382003901

 +183     ;;9002226.02101,"830,68382003905 ",.01)

 +184     ;;68382003905

 +185     ;;9002226.02101,"830,68382003905 ",.02)

 +186     ;;68382003905

 +187     ;;9002226.02101,"830,68462015901 ",.01)

 +188     ;;68462015901

 +189     ;;9002226.02101,"830,68462015901 ",.02)

 +190     ;;68462015901

 +191     ;;9002226.02101,"830,68462015905 ",.01)

 +192     ;;68462015905

 +193     ;;9002226.02101,"830,68462015905 ",.02)

 +194     ;;68462015905

 +195     ;;9002226.02101,"830,68462015910 ",.01)

 +196     ;;68462015910

 +197     ;;9002226.02101,"830,68462015910 ",.02)

 +198     ;;68462015910

 +199     ;;9002226.02101,"830,68462015918 ",.01)

 +200     ;;68462015918

 +201     ;;9002226.02101,"830,68462015918 ",.02)

 +202     ;;68462015918

 +203     ;;9002226.02101,"830,68462015990 ",.01)

 +204     ;;68462015990

 +205     ;;9002226.02101,"830,68462015990 ",.02)

 +206     ;;68462015990

 +207     ;;9002226.02101,"830,68462016001 ",.01)

 +208     ;;68462016001

 +209     ;;9002226.02101,"830,68462016001 ",.02)

 +210     ;;68462016001

 +211     ;;9002226.02101,"830,68462016005 ",.01)

 +212     ;;68462016005

 +213     ;;9002226.02101,"830,68462016005 ",.02)

 +214     ;;68462016005

 +215     ;;9002226.02101,"830,68462016010 ",.01)

 +216     ;;68462016010

 +217     ;;9002226.02101,"830,68462016010 ",.02)

 +218     ;;68462016010

 +219     ;;9002226.02101,"830,68462016018 ",.01)

 +220     ;;68462016018

 +221     ;;9002226.02101,"830,68462016018 ",.02)

 +222     ;;68462016018

 +223     ;;9002226.02101,"830,68462016090 ",.01)

 +224     ;;68462016090

 +225     ;;9002226.02101,"830,68462016090 ",.02)

 +226     ;;68462016090

 +227     ;;9002226.02101,"830,68462016101 ",.01)

 +228     ;;68462016101

 +229     ;;9002226.02101,"830,68462016101 ",.02)

 +230     ;;68462016101

 +231     ;;9002226.02101,"830,68462016105 ",.01)

 +232     ;;68462016105

 +233     ;;9002226.02101,"830,68462016105 ",.02)

 +234     ;;68462016105

 +235     ;;9002226.02101,"830,68462016110 ",.01)

 +236     ;;68462016110

 +237     ;;9002226.02101,"830,68462016110 ",.02)

 +238     ;;68462016110

 +239     ;;9002226.02101,"830,68462016118 ",.01)

 +240     ;;68462016118

 +241     ;;9002226.02101,"830,68462016118 ",.02)

 +242     ;;68462016118

 +243     ;;9002226.02101,"830,68462016190 ",.01)

 +244     ;;68462016190

 +245     ;;9002226.02101,"830,68462016190 ",.02)

 +246     ;;68462016190

 +247     ;;9002226.02101,"830,68533001712 ",.01)

 +248     ;;68533001712

 +249     ;;9002226.02101,"830,68533001712 ",.02)

 +250     ;;68533001712

 +251     ;;9002226.02101,"830,68533001722 ",.01)

 +252     ;;68533001722

 +253     ;;9002226.02101,"830,68533001722 ",.02)

 +254     ;;68533001722

 +255     ;;9002226.02101,"830,68533001739 ",.01)

 +256     ;;68533001739

 +257     ;;9002226.02101,"830,68533001739 ",.02)

 +258     ;;68533001739

 +259     ;;9002226.02101,"830,68645011259 ",.01)

 +260     ;;68645011259

 +261     ;;9002226.02101,"830,68645011259 ",.02)

 +262     ;;68645011259

 +263     ;;9002226.02101,"830,68645012059 ",.01)

 +264     ;;68645012059

 +265     ;;9002226.02101,"830,68645012059 ",.02)

 +266     ;;68645012059

 +267     ;;9002226.02101,"830,68788039701 ",.01)

 +268     ;;68788039701

 +269     ;;9002226.02101,"830,68788039701 ",.02)

 +270     ;;68788039701

 +271     ;;9002226.02101,"830,68788039703 ",.01)

 +272     ;;68788039703

 +273     ;;9002226.02101,"830,68788039703 ",.02)

 +274     ;;68788039703

 +275     ;;9002226.02101,"830,68788039706 ",.01)

 +276     ;;68788039706

 +277     ;;9002226.02101,"830,68788039706 ",.02)

 +278     ;;68788039706

 +279     ;;9002226.02101,"830,68788039708 ",.01)

 +280     ;;68788039708

 +281     ;;9002226.02101,"830,68788039708 ",.02)

 +282     ;;68788039708

 +283     ;;9002226.02101,"830,68788039709 ",.01)

 +284     ;;68788039709

 +285     ;;9002226.02101,"830,68788039709 ",.02)

 +286     ;;68788039709

 +287     ;;9002226.02101,"830,68788043501 ",.01)

 +288     ;;68788043501

 +289     ;;9002226.02101,"830,68788043501 ",.02)

 +290     ;;68788043501

 +291     ;;9002226.02101,"830,68788043503 ",.01)

 +292     ;;68788043503

 +293     ;;9002226.02101,"830,68788043503 ",.02)

 +294     ;;68788043503

 +295     ;;9002226.02101,"830,68788043506 ",.01)

 +296     ;;68788043506

 +297     ;;9002226.02101,"830,68788043506 ",.02)

 +298     ;;68788043506

 +299     ;;9002226.02101,"830,68788043508 ",.01)

 +300     ;;68788043508

 +301     ;;9002226.02101,"830,68788043508 ",.02)

 +302     ;;68788043508

 +303     ;;9002226.02101,"830,68788043509 ",.01)

 +304     ;;68788043509

 +305     ;;9002226.02101,"830,68788043509 ",.02)

 +306     ;;68788043509

 +307     ;;9002226.02101,"830,68788046703 ",.01)

 +308     ;;68788046703

 +309     ;;9002226.02101,"830,68788046703 ",.02)

 +310     ;;68788046703

 +311     ;;9002226.02101,"830,68788046706 ",.01)

 +312     ;;68788046706

 +313     ;;9002226.02101,"830,68788046706 ",.02)

 +314     ;;68788046706

 +315     ;;9002226.02101,"830,68788047401 ",.01)

 +316     ;;68788047401

 +317     ;;9002226.02101,"830,68788047401 ",.02)

 +318     ;;68788047401

 +319     ;;9002226.02101,"830,68788047403 ",.01)

 +320     ;;68788047403

 +321     ;;9002226.02101,"830,68788047403 ",.02)

 +322     ;;68788047403

 +323     ;;9002226.02101,"830,68788047406 ",.01)

 +324     ;;68788047406

 +325     ;;9002226.02101,"830,68788047406 ",.02)

 +326     ;;68788047406

 +327     ;;9002226.02101,"830,68788047408 ",.01)

 +328     ;;68788047408

 +329     ;;9002226.02101,"830,68788047408 ",.02)

 +330     ;;68788047408

 +331     ;;9002226.02101,"830,68788047409 ",.01)

 +332     ;;68788047409

 +333     ;;9002226.02101,"830,68788047409 ",.02)

 +334     ;;68788047409

 +335     ;;9002226.02101,"830,68788096903 ",.01)

 +336     ;;68788096903

 +337     ;;9002226.02101,"830,68788096903 ",.02)

 +338     ;;68788096903

 +339     ;;9002226.02101,"830,68788096906 ",.01)

 +340     ;;68788096906

 +341     ;;9002226.02101,"830,68788096906 ",.02)

 +342     ;;68788096906

BGPM5ACE.m