Routine: BGPM3ADT

BGPM3ADT ;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,24236069502 ",.01)

 ;;24236069502

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

 ;;24236069502

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

 ;;24236072402

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

 ;;24236072402

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

 ;;24236074502

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

 ;;24236074502

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

 ;;24236075602

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

 ;;24236075602

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

 ;;24236093702

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

 ;;24236093702

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

 ;;24658021010

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

 ;;24658021010

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

 ;;24658021030

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

 ;;24658021030

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

 ;;24658021045

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

 ;;24658021045

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

 ;;24658021090

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

 ;;24658021090

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

 ;;24658021110

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

 ;;24658021110

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

 ;;24658021130

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

 ;;24658021130

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

 ;;24658021145

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

 ;;24658021145

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

 ;;24658021190

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

 ;;24658021190

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

 ;;24658021210

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

 ;;24658021210

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

 ;;24658021230

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

 ;;24658021230

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

 ;;24658021245

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

 ;;24658021245

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

 ;;24658021290

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

 ;;24658021290

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

 ;;24658021310

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

 ;;24658021310

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

 ;;24658021330

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

 ;;24658021330

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

 ;;24658021345

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

 ;;24658021345

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

 ;;24658021390

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

 ;;24658021390

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

 ;;24658021410

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

 ;;24658021410

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

 ;;24658021430

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

 ;;24658021430

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

 ;;24658021445

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

 ;;24658021445

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

 ;;24658021490

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

 ;;24658021490

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

 ;;26053006401

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

 ;;26053006401

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

 ;;26053006501

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

 ;;26053006501

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

 ;;26053006601

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

 ;;26053006601

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

 ;;26053017701

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

 ;;26053017701

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

 ;;26053018301

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

 ;;26053018301

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

 ;;26053031001

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

 ;;26053031001

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

 ;;26053031201

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

 ;;26053031201

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

 ;;26053041501

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

 ;;26053041501

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

 ;;33358022330

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

 ;;33358022330

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

 ;;33358022500

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

 ;;33358022500

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

 ;;33358022530

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

 ;;33358022530

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

 ;;33358022560

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

 ;;33358022560

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

 ;;33358022630

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

 ;;33358022630

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

 ;;33358043130

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

 ;;33358043130

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

 ;;43063000801

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

 ;;43063000801

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

 ;;43063008030

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

 ;;43063008030

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

 ;;43063008090

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

 ;;43063008090

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

 ;;43353000730

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

 ;;43353000730

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

 ;;43353000733

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

 ;;43353000733

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

 ;;43353000760

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

 ;;43353000760

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

 ;;43353022715

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

 ;;43353022715

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

 ;;43353022730

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

 ;;43353022730

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

 ;;43353022745

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

 ;;43353022745

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

 ;;43353022760

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

 ;;43353022760

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

 ;;43353022815

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

 ;;43353022815

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

 ;;43353022830

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

 ;;43353022830

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

 ;;43353022845

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

 ;;43353022845

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

 ;;43353022860

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

 ;;43353022860

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

 ;;43353039460

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

 ;;43353039460

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

 ;;43683015230

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

 ;;43683015230

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

 ;;43869415600

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

 ;;43869415600

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

 ;;45802009301

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

 ;;45802009301

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

 ;;45802009365

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

 ;;45802009365

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

 ;;45802009375

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

 ;;45802009375

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

 ;;45802029265

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

 ;;45802029265

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

 ;;45802029275

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

 ;;45802029275

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

 ;;45802038401

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

 ;;45802038401

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

 ;;45802038465

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

 ;;45802038465

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

 ;;45802038475

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

 ;;45802038475

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

 ;;45802038493

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

 ;;45802038493

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

 ;;45802087901

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

 ;;45802087901

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

 ;;45802087965

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

 ;;45802087965

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

 ;;45802087975

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

 ;;45802087975

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

 ;;45802087993

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

 ;;45802087993

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

 ;;45802092465

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

 ;;45802092465

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

 ;;49856017700

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

 ;;49856017700

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

 ;;49856017701

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

 ;;49856017701

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

 ;;49856017703

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

 ;;49856017703

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

 ;;49856017709

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

 ;;49856017709

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

 ;;49856017800

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

 ;;49856017800

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

 ;;49856017801

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

 ;;49856017801

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

 ;;49856017803

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

 ;;49856017803

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

 ;;49856017809

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

 ;;49856017809

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

 ;;49856017900

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

 ;;49856017900

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

 ;;49856017901

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

 ;;49856017901

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

 ;;49856017903

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

 ;;49856017903

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

 ;;49856017909

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

 ;;49856017909

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

 ;;49884075401

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

 ;;49884075401

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

 ;;49884075402

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

 ;;49884075402

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

 ;;49884075410

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

 ;;49884075410

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

 ;;49884075501

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

 ;;49884075501

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

 ;;49884075502

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

 ;;49884075502

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

 ;;49884075510

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

 ;;49884075510

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

 ;;49884075601

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

 ;;49884075601

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

 ;;49884075602

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

 ;;49884075602

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

 ;;49884075610

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

 ;;49884075610

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

 ;;49999029330

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

 ;;49999029330

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

 ;;49999047060

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

 ;;49999047060

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

 ;;49999047100

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

 ;;49999047100

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

 ;;49999047130

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

 ;;49999047130

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

 ;;49999047160

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

 ;;49999047160

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

 ;;49999088930

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

 ;;49999088930

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

 ;;49999088960

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

 ;;49999088960

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

 ;;49999088990

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

 ;;49999088990

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

 ;;49999090090

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

 ;;49999090090

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

 ;;49999090315

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

 ;;49999090315

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

 ;;49999090330

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

 ;;49999090330

BGPM3ADT  ;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,24236069502 ",.01)

 +2       ;;24236069502

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

 +4       ;;24236069502

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

 +6       ;;24236072402

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

 +8       ;;24236072402

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

 +10      ;;24236074502

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

 +12      ;;24236074502

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

 +14      ;;24236075602

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

 +16      ;;24236075602

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

 +18      ;;24236093702

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

 +20      ;;24236093702

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

 +22      ;;24658021010

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

 +24      ;;24658021010

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

 +26      ;;24658021030

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

 +28      ;;24658021030

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

 +30      ;;24658021045

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

 +32      ;;24658021045

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

 +34      ;;24658021090

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

 +36      ;;24658021090

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

 +38      ;;24658021110

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

 +40      ;;24658021110

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

 +42      ;;24658021130

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

 +44      ;;24658021130

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

 +46      ;;24658021145

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

 +48      ;;24658021145

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

 +50      ;;24658021190

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

 +52      ;;24658021190

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

 +54      ;;24658021210

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

 +56      ;;24658021210

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

 +58      ;;24658021230

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

 +60      ;;24658021230

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

 +62      ;;24658021245

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

 +64      ;;24658021245

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

 +66      ;;24658021290

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

 +68      ;;24658021290

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

 +70      ;;24658021310

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

 +72      ;;24658021310

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

 +74      ;;24658021330

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

 +76      ;;24658021330

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

 +78      ;;24658021345

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

 +80      ;;24658021345

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

 +82      ;;24658021390

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

 +84      ;;24658021390

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

 +86      ;;24658021410

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

 +88      ;;24658021410

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

 +90      ;;24658021430

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

 +92      ;;24658021430

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

 +94      ;;24658021445

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

 +96      ;;24658021445

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

 +98      ;;24658021490

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

 +100     ;;24658021490

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

 +102     ;;26053006401

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

 +104     ;;26053006401

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

 +106     ;;26053006501

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

 +108     ;;26053006501

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

 +110     ;;26053006601

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

 +112     ;;26053006601

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

 +114     ;;26053017701

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

 +116     ;;26053017701

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

 +118     ;;26053018301

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

 +120     ;;26053018301

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

 +122     ;;26053031001

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

 +124     ;;26053031001

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

 +126     ;;26053031201

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

 +128     ;;26053031201

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

 +130     ;;26053041501

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

 +132     ;;26053041501

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

 +134     ;;33358022330

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

 +136     ;;33358022330

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

 +138     ;;33358022500

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

 +140     ;;33358022500

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

 +142     ;;33358022530

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

 +144     ;;33358022530

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

 +146     ;;33358022560

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

 +148     ;;33358022560

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

 +150     ;;33358022630

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

 +152     ;;33358022630

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

 +154     ;;33358043130

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

 +156     ;;33358043130

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

 +158     ;;43063000801

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

 +160     ;;43063000801

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

 +162     ;;43063008030

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

 +164     ;;43063008030

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

 +166     ;;43063008090

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

 +168     ;;43063008090

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

 +170     ;;43353000730

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

 +172     ;;43353000730

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

 +174     ;;43353000733

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

 +176     ;;43353000733

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

 +178     ;;43353000760

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

 +180     ;;43353000760

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

 +182     ;;43353022715

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

 +184     ;;43353022715

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

 +186     ;;43353022730

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

 +188     ;;43353022730

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

 +190     ;;43353022745

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

 +192     ;;43353022745

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

 +194     ;;43353022760

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

 +196     ;;43353022760

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

 +198     ;;43353022815

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

 +200     ;;43353022815

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

 +202     ;;43353022830

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

 +204     ;;43353022830

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

 +206     ;;43353022845

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

 +208     ;;43353022845

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

 +210     ;;43353022860

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

 +212     ;;43353022860

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

 +214     ;;43353039460

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

 +216     ;;43353039460

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

 +218     ;;43683015230

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

 +220     ;;43683015230

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

 +222     ;;43869415600

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

 +224     ;;43869415600

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

 +226     ;;45802009301

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

 +228     ;;45802009301

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

 +230     ;;45802009365

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

 +232     ;;45802009365

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

 +234     ;;45802009375

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

 +236     ;;45802009375

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

 +238     ;;45802029265

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

 +240     ;;45802029265

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

 +242     ;;45802029275

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

 +244     ;;45802029275

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

 +246     ;;45802038401

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

 +248     ;;45802038401

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

 +250     ;;45802038465

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

 +252     ;;45802038465

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

 +254     ;;45802038475

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

 +256     ;;45802038475

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

 +258     ;;45802038493

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

 +260     ;;45802038493

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

 +262     ;;45802087901

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

 +264     ;;45802087901

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

 +266     ;;45802087965

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

 +268     ;;45802087965

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

 +270     ;;45802087975

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

 +272     ;;45802087975

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

 +274     ;;45802087993

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

 +276     ;;45802087993

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

 +278     ;;45802092465

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

 +280     ;;45802092465

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

 +282     ;;49856017700

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

 +284     ;;49856017700

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

 +286     ;;49856017701

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

 +288     ;;49856017701

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

 +290     ;;49856017703

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

 +292     ;;49856017703

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

 +294     ;;49856017709

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

 +296     ;;49856017709

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

 +298     ;;49856017800

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

 +300     ;;49856017800

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

 +302     ;;49856017801

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

 +304     ;;49856017801

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

 +306     ;;49856017803

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

 +308     ;;49856017803

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

 +310     ;;49856017809

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

 +312     ;;49856017809

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

 +314     ;;49856017900

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

 +316     ;;49856017900

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

 +318     ;;49856017901

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

 +320     ;;49856017901

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

 +322     ;;49856017903

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

 +324     ;;49856017903

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

 +326     ;;49856017909

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

 +328     ;;49856017909

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

 +330     ;;49884075401

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

 +332     ;;49884075401

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

 +334     ;;49884075402

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

 +336     ;;49884075402

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

 +338     ;;49884075410

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

 +340     ;;49884075410

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

 +342     ;;49884075501

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

 +344     ;;49884075501

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

 +346     ;;49884075502

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

 +348     ;;49884075502

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

 +350     ;;49884075510

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

 +352     ;;49884075510

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

 +354     ;;49884075601

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

 +356     ;;49884075601

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

 +358     ;;49884075602

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

 +360     ;;49884075602

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

 +362     ;;49884075610

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

 +364     ;;49884075610

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

 +366     ;;49999029330

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

 +368     ;;49999029330

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

 +370     ;;49999047060

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

 +372     ;;49999047060

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

 +374     ;;49999047100

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

 +376     ;;49999047100

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

 +378     ;;49999047130

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

 +380     ;;49999047130

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

 +382     ;;49999047160

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

 +384     ;;49999047160

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

 +386     ;;49999088930

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

 +388     ;;49999088930

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

 +390     ;;49999088960

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

 +392     ;;49999088960

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

 +394     ;;49999088990

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

 +396     ;;49999088990

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

 +398     ;;49999090090

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

 +400     ;;49999090090

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

 +402     ;;49999090315

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

 +404     ;;49999090315

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

 +406     ;;49999090330

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

 +408     ;;49999090330

BGPM3ADT.m