Routine: BGPM3AFD

BGPM3AFD ;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,"791,00725004701 ",.02)

 ;;00725004701

 ;;9002226.02101,"791,00725004710 ",.01)

 ;;00725004710

 ;;9002226.02101,"791,00725004710 ",.02)

 ;;00725004710

 ;;9002226.02101,"791,00725005001 ",.01)

 ;;00725005001

 ;;9002226.02101,"791,00725005001 ",.02)

 ;;00725005001

 ;;9002226.02101,"791,00725005010 ",.01)

 ;;00725005010

 ;;9002226.02101,"791,00725005010 ",.02)

 ;;00725005010

 ;;9002226.02101,"791,00781035207 ",.01)

 ;;00781035207

 ;;9002226.02101,"791,00781035207 ",.02)

 ;;00781035207

 ;;9002226.02101,"791,00781035208 ",.01)

 ;;00781035208

 ;;9002226.02101,"791,00781035208 ",.02)

 ;;00781035208

 ;;9002226.02101,"791,00781036306 ",.01)

 ;;00781036306

 ;;9002226.02101,"791,00781036306 ",.02)

 ;;00781036306

 ;;9002226.02101,"791,00781036307 ",.01)

 ;;00781036307

 ;;9002226.02101,"791,00781036307 ",.02)

 ;;00781036307

 ;;9002226.02101,"791,00781036308 ",.01)

 ;;00781036308

 ;;9002226.02101,"791,00781036308 ",.02)

 ;;00781036308

 ;;9002226.02101,"791,00781036406 ",.01)

 ;;00781036406

 ;;9002226.02101,"791,00781036406 ",.02)

 ;;00781036406

 ;;9002226.02101,"791,00781036407 ",.01)

 ;;00781036407

 ;;9002226.02101,"791,00781036407 ",.02)

 ;;00781036407

 ;;9002226.02101,"791,00781036408 ",.01)

 ;;00781036408

 ;;9002226.02101,"791,00781036408 ",.02)

 ;;00781036408

 ;;9002226.02101,"791,00781036607 ",.01)

 ;;00781036607

 ;;9002226.02101,"791,00781036607 ",.02)

 ;;00781036607

 ;;9002226.02101,"791,00781036608 ",.01)

 ;;00781036608

 ;;9002226.02101,"791,00781036608 ",.02)

 ;;00781036608

 ;;9002226.02101,"791,00781036907 ",.01)

 ;;00781036907

 ;;9002226.02101,"791,00781036907 ",.02)

 ;;00781036907

 ;;9002226.02101,"791,00781036908 ",.01)

 ;;00781036908

 ;;9002226.02101,"791,00781036908 ",.02)

 ;;00781036908

 ;;9002226.02101,"791,00781037704 ",.01)

 ;;00781037704

 ;;9002226.02101,"791,00781037704 ",.02)

 ;;00781037704

 ;;9002226.02101,"791,00781037706 ",.01)

 ;;00781037706

 ;;9002226.02101,"791,00781037706 ",.02)

 ;;00781037706

 ;;9002226.02101,"791,00781037707 ",.01)

 ;;00781037707

 ;;9002226.02101,"791,00781037707 ",.02)

 ;;00781037707

 ;;9002226.02101,"791,00781037708 ",.01)

 ;;00781037708

 ;;9002226.02101,"791,00781037708 ",.02)

 ;;00781037708

 ;;9002226.02101,"791,00781038107 ",.01)

 ;;00781038107

 ;;9002226.02101,"791,00781038107 ",.02)

 ;;00781038107

 ;;9002226.02101,"791,00781038108 ",.01)

 ;;00781038108

 ;;9002226.02101,"791,00781038108 ",.02)

 ;;00781038108

 ;;9002226.02101,"791,00781038707 ",.01)

 ;;00781038707

 ;;9002226.02101,"791,00781038707 ",.02)

 ;;00781038707

 ;;9002226.02101,"791,00781038708 ",.01)

 ;;00781038708

 ;;9002226.02101,"791,00781038708 ",.02)

 ;;00781038708

 ;;9002226.02101,"791,00814852114 ",.01)

 ;;00814852114

 ;;9002226.02101,"791,00814852114 ",.02)

 ;;00814852114

 ;;9002226.02101,"791,00814852214 ",.01)

 ;;00814852214

 ;;9002226.02101,"791,00814852214 ",.02)

 ;;00814852214

 ;;9002226.02101,"791,00814852230 ",.01)

 ;;00814852230

 ;;9002226.02101,"791,00814852230 ",.02)

 ;;00814852230

 ;;9002226.02101,"791,00832062500 ",.01)

 ;;00832062500

 ;;9002226.02101,"791,00832062500 ",.02)

 ;;00832062500

 ;;9002226.02101,"791,00832062600 ",.01)

 ;;00832062600

 ;;9002226.02101,"791,00832062600 ",.02)

 ;;00832062600

 ;;9002226.02101,"791,00832062700 ",.01)

 ;;00832062700

 ;;9002226.02101,"791,00832062700 ",.02)

 ;;00832062700

 ;;9002226.02101,"791,00832062710 ",.01)

 ;;00832062710

 ;;9002226.02101,"791,00832062710 ",.02)

 ;;00832062710

 ;;9002226.02101,"791,00832062725 ",.01)

 ;;00832062725

 ;;9002226.02101,"791,00832062725 ",.02)

 ;;00832062725

 ;;9002226.02101,"791,00839662606 ",.01)

 ;;00839662606

 ;;9002226.02101,"791,00839662606 ",.02)

 ;;00839662606

 ;;9002226.02101,"791,00839662706 ",.01)

 ;;00839662706

 ;;9002226.02101,"791,00839662706 ",.02)

 ;;00839662706

 ;;9002226.02101,"791,00839662806 ",.01)

 ;;00839662806

 ;;9002226.02101,"791,00839662806 ",.02)

 ;;00839662806

 ;;9002226.02101,"791,00839663006 ",.01)

 ;;00839663006

 ;;9002226.02101,"791,00839663006 ",.02)

 ;;00839663006

 ;;9002226.02101,"791,00894556001 ",.01)

 ;;00894556001

 ;;9002226.02101,"791,00894556001 ",.02)

 ;;00894556001

 ;;9002226.02101,"791,00894556002 ",.01)

 ;;00894556002

 ;;9002226.02101,"791,00894556002 ",.02)

 ;;00894556002

 ;;9002226.02101,"791,00894556501 ",.01)

 ;;00894556501

 ;;9002226.02101,"791,00894556501 ",.02)

 ;;00894556501

 ;;9002226.02101,"791,00894556502 ",.01)

 ;;00894556502

 ;;9002226.02101,"791,00894556502 ",.02)

 ;;00894556502

 ;;9002226.02101,"791,00894557001 ",.01)

 ;;00894557001

 ;;9002226.02101,"791,00894557001 ",.02)

 ;;00894557001

 ;;9002226.02101,"791,00894557002 ",.01)

 ;;00894557002

 ;;9002226.02101,"791,00894557002 ",.02)

 ;;00894557002

 ;;9002226.02101,"791,00894558001 ",.01)

 ;;00894558001

 ;;9002226.02101,"791,00894558001 ",.02)

 ;;00894558001

 ;;9002226.02101,"791,00894558002 ",.01)

 ;;00894558002

 ;;9002226.02101,"791,00894558002 ",.02)

 ;;00894558002

 ;;9002226.02101,"791,00904256060 ",.01)

 ;;00904256060

 ;;9002226.02101,"791,00904256060 ",.02)

 ;;00904256060

 ;;9002226.02101,"791,00904256160 ",.01)

 ;;00904256160

 ;;9002226.02101,"791,00904256160 ",.02)

 ;;00904256160

 ;;9002226.02101,"791,00904256260 ",.01)

 ;;00904256260

 ;;9002226.02101,"791,00904256260 ",.02)

 ;;00904256260

 ;;9002226.02101,"791,00904256270 ",.01)

 ;;00904256270

 ;;9002226.02101,"791,00904256270 ",.02)

 ;;00904256270

 ;;9002226.02101,"791,00904256360 ",.01)

 ;;00904256360

 ;;9002226.02101,"791,00904256360 ",.02)

 ;;00904256360

 ;;9002226.02101,"791,10009008401 ",.01)

 ;;10009008401

 ;;9002226.02101,"791,10009008401 ",.02)

 ;;10009008401

 ;;9002226.02101,"791,10544011830 ",.01)

 ;;10544011830

 ;;9002226.02101,"791,10544011830 ",.02)

 ;;10544011830

 ;;9002226.02101,"791,10647017202 ",.01)

 ;;10647017202

 ;;9002226.02101,"791,10647017202 ",.02)

 ;;10647017202

 ;;9002226.02101,"791,11722092199 ",.01)

 ;;11722092199

 ;;9002226.02101,"791,11722092199 ",.02)

 ;;11722092199

 ;;9002226.02101,"791,11722092299 ",.01)

 ;;11722092299

 ;;9002226.02101,"791,11722092299 ",.02)

 ;;11722092299

 ;;9002226.02101,"791,11722092399 ",.01)

 ;;11722092399

 ;;9002226.02101,"791,11722092399 ",.02)

 ;;11722092399

 ;;9002226.02101,"791,11722092499 ",.01)

 ;;11722092499

 ;;9002226.02101,"791,11722092499 ",.02)

 ;;11722092499

 ;;9002226.02101,"791,11722092599 ",.01)

 ;;11722092599

 ;;9002226.02101,"791,11722092599 ",.02)

 ;;11722092599

 ;;9002226.02101,"791,11722092699 ",.01)

 ;;11722092699

 ;;9002226.02101,"791,11722092699 ",.02)

 ;;11722092699

 ;;9002226.02101,"791,11722092799 ",.01)

 ;;11722092799

 ;;9002226.02101,"791,11722092799 ",.02)

 ;;11722092799

 ;;9002226.02101,"791,11722092999 ",.01)

 ;;11722092999

 ;;9002226.02101,"791,11722092999 ",.02)

 ;;11722092999

 ;;9002226.02101,"791,13411033903 ",.01)

 ;;13411033903

 ;;9002226.02101,"791,13411033903 ",.02)

 ;;13411033903

 ;;9002226.02101,"791,15330010001 ",.01)

 ;;15330010001

 ;;9002226.02101,"791,15330010001 ",.02)

 ;;15330010001

 ;;9002226.02101,"791,15330010010 ",.01)

 ;;15330010010

 ;;9002226.02101,"791,15330010010 ",.02)

 ;;15330010010

 ;;9002226.02101,"791,15330010101 ",.01)

 ;;15330010101

 ;;9002226.02101,"791,15330010101 ",.02)

 ;;15330010101

 ;;9002226.02101,"791,15330010110 ",.01)

 ;;15330010110

 ;;9002226.02101,"791,15330010110 ",.02)

 ;;15330010110

 ;;9002226.02101,"791,15330010201 ",.01)

 ;;15330010201

 ;;9002226.02101,"791,15330010201 ",.02)

 ;;15330010201

 ;;9002226.02101,"791,15330010210 ",.01)

 ;;15330010210

 ;;9002226.02101,"791,15330010210 ",.02)

 ;;15330010210

 ;;9002226.02101,"791,15330010601 ",.01)

 ;;15330010601

 ;;9002226.02101,"791,15330010601 ",.02)

 ;;15330010601

 ;;9002226.02101,"791,15330010801 ",.01)

 ;;15330010801

 ;;9002226.02101,"791,15330010801 ",.02)

 ;;15330010801

 ;;9002226.02101,"791,15330026601 ",.01)

 ;;15330026601

 ;;9002226.02101,"791,15330026601 ",.02)

 ;;15330026601

 ;;9002226.02101,"791,15330026701 ",.01)

 ;;15330026701

 ;;9002226.02101,"791,15330026701 ",.02)

 ;;15330026701

 ;;9002226.02101,"791,15330026801 ",.01)

 ;;15330026801

 ;;9002226.02101,"791,15330026801 ",.02)

 ;;15330026801

 ;;9002226.02101,"791,15330026810 ",.01)

 ;;15330026810

 ;;9002226.02101,"791,15330026810 ",.02)

 ;;15330026810

 ;;9002226.02101,"791,17856402902 ",.01)

 ;;17856402902

 ;;9002226.02101,"791,17856402902 ",.02)

 ;;17856402902

 ;;9002226.02101,"791,19458044301 ",.01)

 ;;19458044301

 ;;9002226.02101,"791,19458044301 ",.02)

 ;;19458044301

 ;;9002226.02101,"791,19458047101 ",.01)

 ;;19458047101

 ;;9002226.02101,"791,19458047101 ",.02)

 ;;19458047101

 ;;9002226.02101,"791,19458059801 ",.01)

 ;;19458059801

 ;;9002226.02101,"791,19458059801 ",.02)

 ;;19458059801

 ;;9002226.02101,"791,21695067330 ",.01)

 ;;21695067330

 ;;9002226.02101,"791,21695067330 ",.02)

 ;;21695067330

 ;;9002226.02101,"791,21695067730 ",.01)

 ;;21695067730

 ;;9002226.02101,"791,21695067730 ",.02)

 ;;21695067730

 ;;9002226.02101,"791,23490083305 ",.01)

 ;;23490083305

 ;;9002226.02101,"791,23490083305 ",.02)

 ;;23490083305

 ;;9002226.02101,"791,23490141903 ",.01)

 ;;23490141903

 ;;9002226.02101,"791,23490141903 ",.02)

 ;;23490141903

 ;;9002226.02101,"791,23490141909 ",.01)

 ;;23490141909

 ;;9002226.02101,"791,23490141909 ",.02)

 ;;23490141909

 ;;9002226.02101,"791,23490142003 ",.01)

 ;;23490142003

 ;;9002226.02101,"791,23490142003 ",.02)

 ;;23490142003

 ;;9002226.02101,"791,23490142009 ",.01)

 ;;23490142009

 ;;9002226.02101,"791,23490142009 ",.02)

 ;;23490142009

 ;;9002226.02101,"791,23490142203 ",.01)

 ;;23490142203

 ;;9002226.02101,"791,23490142203 ",.02)

 ;;23490142203

 ;;9002226.02101,"791,23490142206 ",.01)

 ;;23490142206

 ;;9002226.02101,"791,23490142206 ",.02)

 ;;23490142206

 ;;9002226.02101,"791,23490142209 ",.01)

 ;;23490142209

 ;;9002226.02101,"791,23490142209 ",.02)

 ;;23490142209

 ;;9002226.02101,"791,23490647801 ",.01)

 ;;23490647801

 ;;9002226.02101,"791,23490647801 ",.02)

 ;;23490647801

 ;;9002226.02101,"791,23490647802 ",.01)

 ;;23490647802

 ;;9002226.02101,"791,23490647802 ",.02)

 ;;23490647802

 ;;9002226.02101,"791,23490647803 ",.01)

 ;;23490647803

 ;;9002226.02101,"791,23490647803 ",.02)

 ;;23490647803

 ;;9002226.02101,"791,23490648001 ",.01)

 ;;23490648001

 ;;9002226.02101,"791,23490648001 ",.02)

 ;;23490648001

 ;;9002226.02101,"791,23490648002 ",.01)

 ;;23490648002

 ;;9002226.02101,"791,23490648002 ",.02)

 ;;23490648002

 ;;9002226.02101,"791,23490648003 ",.01)

 ;;23490648003

 ;;9002226.02101,"791,23490648003 ",.02)

 ;;23490648003

 ;;9002226.02101,"791,23490648101 ",.01)

 ;;23490648101

 ;;9002226.02101,"791,23490648101 ",.02)

 ;;23490648101

 ;;9002226.02101,"791,23490648102 ",.01)

 ;;23490648102

 ;;9002226.02101,"791,23490648102 ",.02)

 ;;23490648102

 ;;9002226.02101,"791,23490648103 ",.01)

 ;;23490648103

 ;;9002226.02101,"791,23490648103 ",.02)

 ;;23490648103

 ;;9002226.02101,"791,23490648201 ",.01)

 ;;23490648201

 ;;9002226.02101,"791,23490648201 ",.02)

 ;;23490648201

 ;;9002226.02101,"791,23490648202 ",.01)

 ;;23490648202

 ;;9002226.02101,"791,23490648202 ",.02)

 ;;23490648202

 ;;9002226.02101,"791,23490648203 ",.01)

 ;;23490648203

 ;;9002226.02101,"791,23490648203 ",.02)

 ;;23490648203

 ;;9002226.02101,"791,23490648301 ",.01)

 ;;23490648301

 ;;9002226.02101,"791,23490648301 ",.02)

 ;;23490648301

 ;;9002226.02101,"791,23490648302 ",.01)

 ;;23490648302

 ;;9002226.02101,"791,23490648302 ",.02)

 ;;23490648302

 ;;9002226.02101,"791,23490648303 ",.01)

 ;;23490648303

 ;;9002226.02101,"791,23490648303 ",.02)

 ;;23490648303

 ;;9002226.02101,"791,24236022802 ",.01)

 ;;24236022802

BGPM3AFD  ;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,"791,00725004701 ",.02)

 +2       ;;00725004701

 +3       ;;9002226.02101,"791,00725004710 ",.01)

 +4       ;;00725004710

 +5       ;;9002226.02101,"791,00725004710 ",.02)

 +6       ;;00725004710

 +7       ;;9002226.02101,"791,00725005001 ",.01)

 +8       ;;00725005001

 +9       ;;9002226.02101,"791,00725005001 ",.02)

 +10      ;;00725005001

 +11      ;;9002226.02101,"791,00725005010 ",.01)

 +12      ;;00725005010

 +13      ;;9002226.02101,"791,00725005010 ",.02)

 +14      ;;00725005010

 +15      ;;9002226.02101,"791,00781035207 ",.01)

 +16      ;;00781035207

 +17      ;;9002226.02101,"791,00781035207 ",.02)

 +18      ;;00781035207

 +19      ;;9002226.02101,"791,00781035208 ",.01)

 +20      ;;00781035208

 +21      ;;9002226.02101,"791,00781035208 ",.02)

 +22      ;;00781035208

 +23      ;;9002226.02101,"791,00781036306 ",.01)

 +24      ;;00781036306

 +25      ;;9002226.02101,"791,00781036306 ",.02)

 +26      ;;00781036306

 +27      ;;9002226.02101,"791,00781036307 ",.01)

 +28      ;;00781036307

 +29      ;;9002226.02101,"791,00781036307 ",.02)

 +30      ;;00781036307

 +31      ;;9002226.02101,"791,00781036308 ",.01)

 +32      ;;00781036308

 +33      ;;9002226.02101,"791,00781036308 ",.02)

 +34      ;;00781036308

 +35      ;;9002226.02101,"791,00781036406 ",.01)

 +36      ;;00781036406

 +37      ;;9002226.02101,"791,00781036406 ",.02)

 +38      ;;00781036406

 +39      ;;9002226.02101,"791,00781036407 ",.01)

 +40      ;;00781036407

 +41      ;;9002226.02101,"791,00781036407 ",.02)

 +42      ;;00781036407

 +43      ;;9002226.02101,"791,00781036408 ",.01)

 +44      ;;00781036408

 +45      ;;9002226.02101,"791,00781036408 ",.02)

 +46      ;;00781036408

 +47      ;;9002226.02101,"791,00781036607 ",.01)

 +48      ;;00781036607

 +49      ;;9002226.02101,"791,00781036607 ",.02)

 +50      ;;00781036607

 +51      ;;9002226.02101,"791,00781036608 ",.01)

 +52      ;;00781036608

 +53      ;;9002226.02101,"791,00781036608 ",.02)

 +54      ;;00781036608

 +55      ;;9002226.02101,"791,00781036907 ",.01)

 +56      ;;00781036907

 +57      ;;9002226.02101,"791,00781036907 ",.02)

 +58      ;;00781036907

 +59      ;;9002226.02101,"791,00781036908 ",.01)

 +60      ;;00781036908

 +61      ;;9002226.02101,"791,00781036908 ",.02)

 +62      ;;00781036908

 +63      ;;9002226.02101,"791,00781037704 ",.01)

 +64      ;;00781037704

 +65      ;;9002226.02101,"791,00781037704 ",.02)

 +66      ;;00781037704

 +67      ;;9002226.02101,"791,00781037706 ",.01)

 +68      ;;00781037706

 +69      ;;9002226.02101,"791,00781037706 ",.02)

 +70      ;;00781037706

 +71      ;;9002226.02101,"791,00781037707 ",.01)

 +72      ;;00781037707

 +73      ;;9002226.02101,"791,00781037707 ",.02)

 +74      ;;00781037707

 +75      ;;9002226.02101,"791,00781037708 ",.01)

 +76      ;;00781037708

 +77      ;;9002226.02101,"791,00781037708 ",.02)

 +78      ;;00781037708

 +79      ;;9002226.02101,"791,00781038107 ",.01)

 +80      ;;00781038107

 +81      ;;9002226.02101,"791,00781038107 ",.02)

 +82      ;;00781038107

 +83      ;;9002226.02101,"791,00781038108 ",.01)

 +84      ;;00781038108

 +85      ;;9002226.02101,"791,00781038108 ",.02)

 +86      ;;00781038108

 +87      ;;9002226.02101,"791,00781038707 ",.01)

 +88      ;;00781038707

 +89      ;;9002226.02101,"791,00781038707 ",.02)

 +90      ;;00781038707

 +91      ;;9002226.02101,"791,00781038708 ",.01)

 +92      ;;00781038708

 +93      ;;9002226.02101,"791,00781038708 ",.02)

 +94      ;;00781038708

 +95      ;;9002226.02101,"791,00814852114 ",.01)

 +96      ;;00814852114

 +97      ;;9002226.02101,"791,00814852114 ",.02)

 +98      ;;00814852114

 +99      ;;9002226.02101,"791,00814852214 ",.01)

 +100     ;;00814852214

 +101     ;;9002226.02101,"791,00814852214 ",.02)

 +102     ;;00814852214

 +103     ;;9002226.02101,"791,00814852230 ",.01)

 +104     ;;00814852230

 +105     ;;9002226.02101,"791,00814852230 ",.02)

 +106     ;;00814852230

 +107     ;;9002226.02101,"791,00832062500 ",.01)

 +108     ;;00832062500

 +109     ;;9002226.02101,"791,00832062500 ",.02)

 +110     ;;00832062500

 +111     ;;9002226.02101,"791,00832062600 ",.01)

 +112     ;;00832062600

 +113     ;;9002226.02101,"791,00832062600 ",.02)

 +114     ;;00832062600

 +115     ;;9002226.02101,"791,00832062700 ",.01)

 +116     ;;00832062700

 +117     ;;9002226.02101,"791,00832062700 ",.02)

 +118     ;;00832062700

 +119     ;;9002226.02101,"791,00832062710 ",.01)

 +120     ;;00832062710

 +121     ;;9002226.02101,"791,00832062710 ",.02)

 +122     ;;00832062710

 +123     ;;9002226.02101,"791,00832062725 ",.01)

 +124     ;;00832062725

 +125     ;;9002226.02101,"791,00832062725 ",.02)

 +126     ;;00832062725

 +127     ;;9002226.02101,"791,00839662606 ",.01)

 +128     ;;00839662606

 +129     ;;9002226.02101,"791,00839662606 ",.02)

 +130     ;;00839662606

 +131     ;;9002226.02101,"791,00839662706 ",.01)

 +132     ;;00839662706

 +133     ;;9002226.02101,"791,00839662706 ",.02)

 +134     ;;00839662706

 +135     ;;9002226.02101,"791,00839662806 ",.01)

 +136     ;;00839662806

 +137     ;;9002226.02101,"791,00839662806 ",.02)

 +138     ;;00839662806

 +139     ;;9002226.02101,"791,00839663006 ",.01)

 +140     ;;00839663006

 +141     ;;9002226.02101,"791,00839663006 ",.02)

 +142     ;;00839663006

 +143     ;;9002226.02101,"791,00894556001 ",.01)

 +144     ;;00894556001

 +145     ;;9002226.02101,"791,00894556001 ",.02)

 +146     ;;00894556001

 +147     ;;9002226.02101,"791,00894556002 ",.01)

 +148     ;;00894556002

 +149     ;;9002226.02101,"791,00894556002 ",.02)

 +150     ;;00894556002

 +151     ;;9002226.02101,"791,00894556501 ",.01)

 +152     ;;00894556501

 +153     ;;9002226.02101,"791,00894556501 ",.02)

 +154     ;;00894556501

 +155     ;;9002226.02101,"791,00894556502 ",.01)

 +156     ;;00894556502

 +157     ;;9002226.02101,"791,00894556502 ",.02)

 +158     ;;00894556502

 +159     ;;9002226.02101,"791,00894557001 ",.01)

 +160     ;;00894557001

 +161     ;;9002226.02101,"791,00894557001 ",.02)

 +162     ;;00894557001

 +163     ;;9002226.02101,"791,00894557002 ",.01)

 +164     ;;00894557002

 +165     ;;9002226.02101,"791,00894557002 ",.02)

 +166     ;;00894557002

 +167     ;;9002226.02101,"791,00894558001 ",.01)

 +168     ;;00894558001

 +169     ;;9002226.02101,"791,00894558001 ",.02)

 +170     ;;00894558001

 +171     ;;9002226.02101,"791,00894558002 ",.01)

 +172     ;;00894558002

 +173     ;;9002226.02101,"791,00894558002 ",.02)

 +174     ;;00894558002

 +175     ;;9002226.02101,"791,00904256060 ",.01)

 +176     ;;00904256060

 +177     ;;9002226.02101,"791,00904256060 ",.02)

 +178     ;;00904256060

 +179     ;;9002226.02101,"791,00904256160 ",.01)

 +180     ;;00904256160

 +181     ;;9002226.02101,"791,00904256160 ",.02)

 +182     ;;00904256160

 +183     ;;9002226.02101,"791,00904256260 ",.01)

 +184     ;;00904256260

 +185     ;;9002226.02101,"791,00904256260 ",.02)

 +186     ;;00904256260

 +187     ;;9002226.02101,"791,00904256270 ",.01)

 +188     ;;00904256270

 +189     ;;9002226.02101,"791,00904256270 ",.02)

 +190     ;;00904256270

 +191     ;;9002226.02101,"791,00904256360 ",.01)

 +192     ;;00904256360

 +193     ;;9002226.02101,"791,00904256360 ",.02)

 +194     ;;00904256360

 +195     ;;9002226.02101,"791,10009008401 ",.01)

 +196     ;;10009008401

 +197     ;;9002226.02101,"791,10009008401 ",.02)

 +198     ;;10009008401

 +199     ;;9002226.02101,"791,10544011830 ",.01)

 +200     ;;10544011830

 +201     ;;9002226.02101,"791,10544011830 ",.02)

 +202     ;;10544011830

 +203     ;;9002226.02101,"791,10647017202 ",.01)

 +204     ;;10647017202

 +205     ;;9002226.02101,"791,10647017202 ",.02)

 +206     ;;10647017202

 +207     ;;9002226.02101,"791,11722092199 ",.01)

 +208     ;;11722092199

 +209     ;;9002226.02101,"791,11722092199 ",.02)

 +210     ;;11722092199

 +211     ;;9002226.02101,"791,11722092299 ",.01)

 +212     ;;11722092299

 +213     ;;9002226.02101,"791,11722092299 ",.02)

 +214     ;;11722092299

 +215     ;;9002226.02101,"791,11722092399 ",.01)

 +216     ;;11722092399

 +217     ;;9002226.02101,"791,11722092399 ",.02)

 +218     ;;11722092399

 +219     ;;9002226.02101,"791,11722092499 ",.01)

 +220     ;;11722092499

 +221     ;;9002226.02101,"791,11722092499 ",.02)

 +222     ;;11722092499

 +223     ;;9002226.02101,"791,11722092599 ",.01)

 +224     ;;11722092599

 +225     ;;9002226.02101,"791,11722092599 ",.02)

 +226     ;;11722092599

 +227     ;;9002226.02101,"791,11722092699 ",.01)

 +228     ;;11722092699

 +229     ;;9002226.02101,"791,11722092699 ",.02)

 +230     ;;11722092699

 +231     ;;9002226.02101,"791,11722092799 ",.01)

 +232     ;;11722092799

 +233     ;;9002226.02101,"791,11722092799 ",.02)

 +234     ;;11722092799

 +235     ;;9002226.02101,"791,11722092999 ",.01)

 +236     ;;11722092999

 +237     ;;9002226.02101,"791,11722092999 ",.02)

 +238     ;;11722092999

 +239     ;;9002226.02101,"791,13411033903 ",.01)

 +240     ;;13411033903

 +241     ;;9002226.02101,"791,13411033903 ",.02)

 +242     ;;13411033903

 +243     ;;9002226.02101,"791,15330010001 ",.01)

 +244     ;;15330010001

 +245     ;;9002226.02101,"791,15330010001 ",.02)

 +246     ;;15330010001

 +247     ;;9002226.02101,"791,15330010010 ",.01)

 +248     ;;15330010010

 +249     ;;9002226.02101,"791,15330010010 ",.02)

 +250     ;;15330010010

 +251     ;;9002226.02101,"791,15330010101 ",.01)

 +252     ;;15330010101

 +253     ;;9002226.02101,"791,15330010101 ",.02)

 +254     ;;15330010101

 +255     ;;9002226.02101,"791,15330010110 ",.01)

 +256     ;;15330010110

 +257     ;;9002226.02101,"791,15330010110 ",.02)

 +258     ;;15330010110

 +259     ;;9002226.02101,"791,15330010201 ",.01)

 +260     ;;15330010201

 +261     ;;9002226.02101,"791,15330010201 ",.02)

 +262     ;;15330010201

 +263     ;;9002226.02101,"791,15330010210 ",.01)

 +264     ;;15330010210

 +265     ;;9002226.02101,"791,15330010210 ",.02)

 +266     ;;15330010210

 +267     ;;9002226.02101,"791,15330010601 ",.01)

 +268     ;;15330010601

 +269     ;;9002226.02101,"791,15330010601 ",.02)

 +270     ;;15330010601

 +271     ;;9002226.02101,"791,15330010801 ",.01)

 +272     ;;15330010801

 +273     ;;9002226.02101,"791,15330010801 ",.02)

 +274     ;;15330010801

 +275     ;;9002226.02101,"791,15330026601 ",.01)

 +276     ;;15330026601

 +277     ;;9002226.02101,"791,15330026601 ",.02)

 +278     ;;15330026601

 +279     ;;9002226.02101,"791,15330026701 ",.01)

 +280     ;;15330026701

 +281     ;;9002226.02101,"791,15330026701 ",.02)

 +282     ;;15330026701

 +283     ;;9002226.02101,"791,15330026801 ",.01)

 +284     ;;15330026801

 +285     ;;9002226.02101,"791,15330026801 ",.02)

 +286     ;;15330026801

 +287     ;;9002226.02101,"791,15330026810 ",.01)

 +288     ;;15330026810

 +289     ;;9002226.02101,"791,15330026810 ",.02)

 +290     ;;15330026810

 +291     ;;9002226.02101,"791,17856402902 ",.01)

 +292     ;;17856402902

 +293     ;;9002226.02101,"791,17856402902 ",.02)

 +294     ;;17856402902

 +295     ;;9002226.02101,"791,19458044301 ",.01)

 +296     ;;19458044301

 +297     ;;9002226.02101,"791,19458044301 ",.02)

 +298     ;;19458044301

 +299     ;;9002226.02101,"791,19458047101 ",.01)

 +300     ;;19458047101

 +301     ;;9002226.02101,"791,19458047101 ",.02)

 +302     ;;19458047101

 +303     ;;9002226.02101,"791,19458059801 ",.01)

 +304     ;;19458059801

 +305     ;;9002226.02101,"791,19458059801 ",.02)

 +306     ;;19458059801

 +307     ;;9002226.02101,"791,21695067330 ",.01)

 +308     ;;21695067330

 +309     ;;9002226.02101,"791,21695067330 ",.02)

 +310     ;;21695067330

 +311     ;;9002226.02101,"791,21695067730 ",.01)

 +312     ;;21695067730

 +313     ;;9002226.02101,"791,21695067730 ",.02)

 +314     ;;21695067730

 +315     ;;9002226.02101,"791,23490083305 ",.01)

 +316     ;;23490083305

 +317     ;;9002226.02101,"791,23490083305 ",.02)

 +318     ;;23490083305

 +319     ;;9002226.02101,"791,23490141903 ",.01)

 +320     ;;23490141903

 +321     ;;9002226.02101,"791,23490141903 ",.02)

 +322     ;;23490141903

 +323     ;;9002226.02101,"791,23490141909 ",.01)

 +324     ;;23490141909

 +325     ;;9002226.02101,"791,23490141909 ",.02)

 +326     ;;23490141909

 +327     ;;9002226.02101,"791,23490142003 ",.01)

 +328     ;;23490142003

 +329     ;;9002226.02101,"791,23490142003 ",.02)

 +330     ;;23490142003

 +331     ;;9002226.02101,"791,23490142009 ",.01)

 +332     ;;23490142009

 +333     ;;9002226.02101,"791,23490142009 ",.02)

 +334     ;;23490142009

 +335     ;;9002226.02101,"791,23490142203 ",.01)

 +336     ;;23490142203

 +337     ;;9002226.02101,"791,23490142203 ",.02)

 +338     ;;23490142203

 +339     ;;9002226.02101,"791,23490142206 ",.01)

 +340     ;;23490142206

 +341     ;;9002226.02101,"791,23490142206 ",.02)

 +342     ;;23490142206

 +343     ;;9002226.02101,"791,23490142209 ",.01)

 +344     ;;23490142209

 +345     ;;9002226.02101,"791,23490142209 ",.02)

 +346     ;;23490142209

 +347     ;;9002226.02101,"791,23490647801 ",.01)

 +348     ;;23490647801

 +349     ;;9002226.02101,"791,23490647801 ",.02)

 +350     ;;23490647801

 +351     ;;9002226.02101,"791,23490647802 ",.01)

 +352     ;;23490647802

 +353     ;;9002226.02101,"791,23490647802 ",.02)

 +354     ;;23490647802

 +355     ;;9002226.02101,"791,23490647803 ",.01)

 +356     ;;23490647803

 +357     ;;9002226.02101,"791,23490647803 ",.02)

 +358     ;;23490647803

 +359     ;;9002226.02101,"791,23490648001 ",.01)

 +360     ;;23490648001

 +361     ;;9002226.02101,"791,23490648001 ",.02)

 +362     ;;23490648001

 +363     ;;9002226.02101,"791,23490648002 ",.01)

 +364     ;;23490648002

 +365     ;;9002226.02101,"791,23490648002 ",.02)

 +366     ;;23490648002

 +367     ;;9002226.02101,"791,23490648003 ",.01)

 +368     ;;23490648003

 +369     ;;9002226.02101,"791,23490648003 ",.02)

 +370     ;;23490648003

 +371     ;;9002226.02101,"791,23490648101 ",.01)

 +372     ;;23490648101

 +373     ;;9002226.02101,"791,23490648101 ",.02)

 +374     ;;23490648101

 +375     ;;9002226.02101,"791,23490648102 ",.01)

 +376     ;;23490648102

 +377     ;;9002226.02101,"791,23490648102 ",.02)

 +378     ;;23490648102

 +379     ;;9002226.02101,"791,23490648103 ",.01)

 +380     ;;23490648103

 +381     ;;9002226.02101,"791,23490648103 ",.02)

 +382     ;;23490648103

 +383     ;;9002226.02101,"791,23490648201 ",.01)

 +384     ;;23490648201

 +385     ;;9002226.02101,"791,23490648201 ",.02)

 +386     ;;23490648201

 +387     ;;9002226.02101,"791,23490648202 ",.01)

 +388     ;;23490648202

 +389     ;;9002226.02101,"791,23490648202 ",.02)

 +390     ;;23490648202

 +391     ;;9002226.02101,"791,23490648203 ",.01)

 +392     ;;23490648203

 +393     ;;9002226.02101,"791,23490648203 ",.02)

 +394     ;;23490648203

 +395     ;;9002226.02101,"791,23490648301 ",.01)

 +396     ;;23490648301

 +397     ;;9002226.02101,"791,23490648301 ",.02)

 +398     ;;23490648301

 +399     ;;9002226.02101,"791,23490648302 ",.01)

 +400     ;;23490648302

 +401     ;;9002226.02101,"791,23490648302 ",.02)

 +402     ;;23490648302

 +403     ;;9002226.02101,"791,23490648303 ",.01)

 +404     ;;23490648303

 +405     ;;9002226.02101,"791,23490648303 ",.02)

 +406     ;;23490648303

 +407     ;;9002226.02101,"791,24236022802 ",.01)

 +408     ;;24236022802

BGPM3AFD.m