Routine: BGPM5BCE

BGPM5BCE ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON SEP 12, 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,"1044,41616075881 ",.01)

 ;;41616075881

 ;;9002226.02101,"1044,41616075881 ",.02)

 ;;41616075881

 ;;9002226.02101,"1044,41616075883 ",.01)

 ;;41616075883

 ;;9002226.02101,"1044,41616075883 ",.02)

 ;;41616075883

 ;;9002226.02101,"1044,41616075888 ",.01)

 ;;41616075888

 ;;9002226.02101,"1044,41616075888 ",.02)

 ;;41616075888

 ;;9002226.02101,"1044,41616075908 ",.01)

 ;;41616075908

 ;;9002226.02101,"1044,41616075908 ",.02)

 ;;41616075908

 ;;9002226.02101,"1044,41616075918 ",.01)

 ;;41616075918

 ;;9002226.02101,"1044,41616075918 ",.02)

 ;;41616075918

 ;;9002226.02101,"1044,41616075981 ",.01)

 ;;41616075981

 ;;9002226.02101,"1044,41616075981 ",.02)

 ;;41616075981

 ;;9002226.02101,"1044,41616075983 ",.01)

 ;;41616075983

 ;;9002226.02101,"1044,41616075983 ",.02)

 ;;41616075983

 ;;9002226.02101,"1044,41616075988 ",.01)

 ;;41616075988

 ;;9002226.02101,"1044,41616075988 ",.02)

 ;;41616075988

 ;;9002226.02101,"1044,41616076008 ",.01)

 ;;41616076008

 ;;9002226.02101,"1044,41616076008 ",.02)

 ;;41616076008

 ;;9002226.02101,"1044,41616076018 ",.01)

 ;;41616076018

 ;;9002226.02101,"1044,41616076018 ",.02)

 ;;41616076018

 ;;9002226.02101,"1044,41616076081 ",.01)

 ;;41616076081

 ;;9002226.02101,"1044,41616076081 ",.02)

 ;;41616076081

 ;;9002226.02101,"1044,41616076083 ",.01)

 ;;41616076083

 ;;9002226.02101,"1044,41616076083 ",.02)

 ;;41616076083

 ;;9002226.02101,"1044,41616076088 ",.01)

 ;;41616076088

 ;;9002226.02101,"1044,41616076088 ",.02)

 ;;41616076088

 ;;9002226.02101,"1044,42549032930 ",.01)

 ;;42549032930

 ;;9002226.02101,"1044,42549032930 ",.02)

 ;;42549032930

 ;;9002226.02101,"1044,42549033630 ",.01)

 ;;42549033630

 ;;9002226.02101,"1044,42549033630 ",.02)

 ;;42549033630

 ;;9002226.02101,"1044,42549052930 ",.01)

 ;;42549052930

 ;;9002226.02101,"1044,42549052930 ",.02)

 ;;42549052930

 ;;9002226.02101,"1044,42549052960 ",.01)

 ;;42549052960

 ;;9002226.02101,"1044,42549052960 ",.02)

 ;;42549052960

 ;;9002226.02101,"1044,42549052990 ",.01)

 ;;42549052990

 ;;9002226.02101,"1044,42549052990 ",.02)

 ;;42549052990

 ;;9002226.02101,"1044,42549053630 ",.01)

 ;;42549053630

 ;;9002226.02101,"1044,42549053630 ",.02)

 ;;42549053630

 ;;9002226.02101,"1044,42549054612 ",.01)

 ;;42549054612

 ;;9002226.02101,"1044,42549054612 ",.02)

 ;;42549054612

 ;;9002226.02101,"1044,42549054630 ",.01)

 ;;42549054630

 ;;9002226.02101,"1044,42549054630 ",.02)

 ;;42549054630

 ;;9002226.02101,"1044,42549054660 ",.01)

 ;;42549054660

 ;;9002226.02101,"1044,42549054660 ",.02)

 ;;42549054660

 ;;9002226.02101,"1044,42549054690 ",.01)

 ;;42549054690

 ;;9002226.02101,"1044,42549054690 ",.02)

 ;;42549054690

 ;;9002226.02101,"1044,42549059930 ",.01)

 ;;42549059930

 ;;9002226.02101,"1044,42549059930 ",.02)

 ;;42549059930

 ;;9002226.02101,"1044,42549060530 ",.01)

 ;;42549060530

 ;;9002226.02101,"1044,42549060530 ",.02)

 ;;42549060530

 ;;9002226.02101,"1044,42549060560 ",.01)

 ;;42549060560

 ;;9002226.02101,"1044,42549060560 ",.02)

 ;;42549060560

 ;;9002226.02101,"1044,42549060590 ",.01)

 ;;42549060590

 ;;9002226.02101,"1044,42549060590 ",.02)

 ;;42549060590

 ;;9002226.02101,"1044,42549061330 ",.01)

 ;;42549061330

 ;;9002226.02101,"1044,42549061330 ",.02)

 ;;42549061330

 ;;9002226.02101,"1044,42549061360 ",.01)

 ;;42549061360

 ;;9002226.02101,"1044,42549061360 ",.02)

 ;;42549061360

 ;;9002226.02101,"1044,42549061390 ",.01)

 ;;42549061390

 ;;9002226.02101,"1044,42549061390 ",.02)

 ;;42549061390

 ;;9002226.02101,"1044,42769122100 ",.01)

 ;;42769122100

 ;;9002226.02101,"1044,42769122100 ",.02)

 ;;42769122100

 ;;9002226.02101,"1044,42769122200 ",.01)

 ;;42769122200

 ;;9002226.02101,"1044,42769122200 ",.02)

 ;;42769122200

 ;;9002226.02101,"1044,42769122500 ",.01)

 ;;42769122500

 ;;9002226.02101,"1044,42769122500 ",.02)

 ;;42769122500

 ;;9002226.02101,"1044,42806001901 ",.01)

 ;;42806001901

 ;;9002226.02101,"1044,42806001901 ",.02)

 ;;42806001901

 ;;9002226.02101,"1044,42806001910 ",.01)

 ;;42806001910

 ;;9002226.02101,"1044,42806001910 ",.02)

 ;;42806001910

 ;;9002226.02101,"1044,42806001930 ",.01)

 ;;42806001930

 ;;9002226.02101,"1044,42806001930 ",.02)

 ;;42806001930

 ;;9002226.02101,"1044,42806002001 ",.01)

 ;;42806002001

 ;;9002226.02101,"1044,42806002001 ",.02)

 ;;42806002001

 ;;9002226.02101,"1044,42806002010 ",.01)

 ;;42806002010

 ;;9002226.02101,"1044,42806002010 ",.02)

 ;;42806002010

 ;;9002226.02101,"1044,42806002030 ",.01)

 ;;42806002030

 ;;9002226.02101,"1044,42806002030 ",.02)

 ;;42806002030

 ;;9002226.02101,"1044,42806002101 ",.01)

 ;;42806002101

 ;;9002226.02101,"1044,42806002101 ",.02)

 ;;42806002101

 ;;9002226.02101,"1044,42806002110 ",.01)

 ;;42806002110

 ;;9002226.02101,"1044,42806002110 ",.02)

 ;;42806002110

 ;;9002226.02101,"1044,42806002130 ",.01)

 ;;42806002130

 ;;9002226.02101,"1044,42806002130 ",.02)

 ;;42806002130

 ;;9002226.02101,"1044,42843030110 ",.01)

 ;;42843030110

 ;;9002226.02101,"1044,42843030110 ",.02)

 ;;42843030110

 ;;9002226.02101,"1044,42843030111 ",.01)

 ;;42843030111

 ;;9002226.02101,"1044,42843030111 ",.02)

 ;;42843030111

 ;;9002226.02101,"1044,42843030210 ",.01)

 ;;42843030210

 ;;9002226.02101,"1044,42843030210 ",.02)

 ;;42843030210

 ;;9002226.02101,"1044,42843030211 ",.01)

 ;;42843030211

 ;;9002226.02101,"1044,42843030211 ",.02)

 ;;42843030211

 ;;9002226.02101,"1044,42843030310 ",.01)

 ;;42843030310

 ;;9002226.02101,"1044,42843030310 ",.02)

 ;;42843030310

 ;;9002226.02101,"1044,42843030311 ",.01)

 ;;42843030311

 ;;9002226.02101,"1044,42843030311 ",.02)

 ;;42843030311

 ;;9002226.02101,"1044,42843030410 ",.01)

 ;;42843030410

 ;;9002226.02101,"1044,42843030410 ",.02)

 ;;42843030410

 ;;9002226.02101,"1044,42843030411 ",.01)

 ;;42843030411

 ;;9002226.02101,"1044,42843030411 ",.02)

 ;;42843030411

 ;;9002226.02101,"1044,43063000901 ",.01)

 ;;43063000901

 ;;9002226.02101,"1044,43063000901 ",.02)

 ;;43063000901

 ;;9002226.02101,"1044,43063003301 ",.01)

 ;;43063003301

 ;;9002226.02101,"1044,43063003301 ",.02)

 ;;43063003301

 ;;9002226.02101,"1044,43063003390 ",.01)

 ;;43063003390

 ;;9002226.02101,"1044,43063003390 ",.02)

 ;;43063003390

 ;;9002226.02101,"1044,43063006301 ",.01)

 ;;43063006301

 ;;9002226.02101,"1044,43063006301 ",.02)

 ;;43063006301

 ;;9002226.02101,"1044,43063019360 ",.01)

 ;;43063019360

 ;;9002226.02101,"1044,43063019360 ",.02)

 ;;43063019360

 ;;9002226.02101,"1044,43063019730 ",.01)

 ;;43063019730

 ;;9002226.02101,"1044,43063019730 ",.02)

 ;;43063019730

 ;;9002226.02101,"1044,43063021301 ",.01)

 ;;43063021301

 ;;9002226.02101,"1044,43063021301 ",.02)

 ;;43063021301

 ;;9002226.02101,"1044,43063021401 ",.01)

 ;;43063021401

 ;;9002226.02101,"1044,43063021401 ",.02)

 ;;43063021401

 ;;9002226.02101,"1044,43063021601 ",.01)

 ;;43063021601

 ;;9002226.02101,"1044,43063021601 ",.02)

 ;;43063021601

 ;;9002226.02101,"1044,43063022101 ",.01)

 ;;43063022101

 ;;9002226.02101,"1044,43063022101 ",.02)

 ;;43063022101

 ;;9002226.02101,"1044,43063022130 ",.01)

 ;;43063022130

 ;;9002226.02101,"1044,43063022130 ",.02)

 ;;43063022130

 ;;9002226.02101,"1044,43063022190 ",.01)

 ;;43063022190

 ;;9002226.02101,"1044,43063022190 ",.02)

 ;;43063022190

 ;;9002226.02101,"1044,43063024930 ",.01)

 ;;43063024930

 ;;9002226.02101,"1044,43063024930 ",.02)

 ;;43063024930

 ;;9002226.02101,"1044,43063025530 ",.01)

 ;;43063025530

 ;;9002226.02101,"1044,43063025530 ",.02)

 ;;43063025530

 ;;9002226.02101,"1044,43063025730 ",.01)

 ;;43063025730

 ;;9002226.02101,"1044,43063025730 ",.02)

 ;;43063025730

 ;;9002226.02101,"1044,43063029230 ",.01)

 ;;43063029230

 ;;9002226.02101,"1044,43063029230 ",.02)

 ;;43063029230

 ;;9002226.02101,"1044,43353000532 ",.01)

 ;;43353000532

 ;;9002226.02101,"1044,43353000532 ",.02)

 ;;43353000532

 ;;9002226.02101,"1044,43353011030 ",.01)

 ;;43353011030

 ;;9002226.02101,"1044,43353011030 ",.02)

 ;;43353011030

 ;;9002226.02101,"1044,43353011032 ",.01)

 ;;43353011032

 ;;9002226.02101,"1044,43353011032 ",.02)

 ;;43353011032

 ;;9002226.02101,"1044,43353011070 ",.01)

 ;;43353011070

 ;;9002226.02101,"1044,43353011070 ",.02)

 ;;43353011070

 ;;9002226.02101,"1044,43353011832 ",.01)

 ;;43353011832

 ;;9002226.02101,"1044,43353011832 ",.02)

 ;;43353011832

 ;;9002226.02101,"1044,43353020430 ",.01)

 ;;43353020430

 ;;9002226.02101,"1044,43353020430 ",.02)

 ;;43353020430

 ;;9002226.02101,"1044,43353020431 ",.01)

 ;;43353020431

 ;;9002226.02101,"1044,43353020431 ",.02)

 ;;43353020431

 ;;9002226.02101,"1044,43353020432 ",.01)

 ;;43353020432

 ;;9002226.02101,"1044,43353020432 ",.02)

 ;;43353020432

 ;;9002226.02101,"1044,43353020453 ",.01)

 ;;43353020453

 ;;9002226.02101,"1044,43353020453 ",.02)

 ;;43353020453

 ;;9002226.02101,"1044,43353020460 ",.01)

 ;;43353020460

 ;;9002226.02101,"1044,43353020460 ",.02)

 ;;43353020460

 ;;9002226.02101,"1044,43353020480 ",.01)

 ;;43353020480

 ;;9002226.02101,"1044,43353020480 ",.02)

 ;;43353020480

 ;;9002226.02101,"1044,43353035330 ",.01)

 ;;43353035330

 ;;9002226.02101,"1044,43353035330 ",.02)

 ;;43353035330

 ;;9002226.02101,"1044,43353035332 ",.01)

 ;;43353035332

 ;;9002226.02101,"1044,43353035332 ",.02)

 ;;43353035332

 ;;9002226.02101,"1044,43353035360 ",.01)

 ;;43353035360

 ;;9002226.02101,"1044,43353035360 ",.02)

 ;;43353035360

 ;;9002226.02101,"1044,43353036215 ",.01)

 ;;43353036215

 ;;9002226.02101,"1044,43353036215 ",.02)

 ;;43353036215

 ;;9002226.02101,"1044,43353036230 ",.01)

 ;;43353036230

 ;;9002226.02101,"1044,43353036230 ",.02)

 ;;43353036230

 ;;9002226.02101,"1044,43353036232 ",.01)

 ;;43353036232

 ;;9002226.02101,"1044,43353036232 ",.02)

 ;;43353036232

 ;;9002226.02101,"1044,43353036245 ",.01)

 ;;43353036245

 ;;9002226.02101,"1044,43353036245 ",.02)

 ;;43353036245

 ;;9002226.02101,"1044,43353036253 ",.01)

 ;;43353036253

 ;;9002226.02101,"1044,43353036253 ",.02)

 ;;43353036253

 ;;9002226.02101,"1044,43353036260 ",.01)

 ;;43353036260

 ;;9002226.02101,"1044,43353036260 ",.02)

 ;;43353036260

 ;;9002226.02101,"1044,43353036273 ",.01)

 ;;43353036273

 ;;9002226.02101,"1044,43353036273 ",.02)

 ;;43353036273

 ;;9002226.02101,"1044,43353036280 ",.01)

 ;;43353036280

 ;;9002226.02101,"1044,43353036280 ",.02)

 ;;43353036280

 ;;9002226.02101,"1044,43353036415 ",.01)

 ;;43353036415

 ;;9002226.02101,"1044,43353036415 ",.02)

 ;;43353036415

 ;;9002226.02101,"1044,43353036430 ",.01)

 ;;43353036430

 ;;9002226.02101,"1044,43353036430 ",.02)

 ;;43353036430

 ;;9002226.02101,"1044,43353036445 ",.01)

 ;;43353036445

 ;;9002226.02101,"1044,43353036445 ",.02)

 ;;43353036445

 ;;9002226.02101,"1044,43353036453 ",.01)

 ;;43353036453

 ;;9002226.02101,"1044,43353036453 ",.02)

 ;;43353036453

 ;;9002226.02101,"1044,43353036460 ",.01)

 ;;43353036460

 ;;9002226.02101,"1044,43353036460 ",.02)

 ;;43353036460

 ;;9002226.02101,"1044,43353036480 ",.01)

 ;;43353036480

 ;;9002226.02101,"1044,43353036480 ",.02)

 ;;43353036480

 ;;9002226.02101,"1044,43353037053 ",.01)

 ;;43353037053

 ;;9002226.02101,"1044,43353037053 ",.02)

 ;;43353037053

 ;;9002226.02101,"1044,43353037845 ",.01)

 ;;43353037845

 ;;9002226.02101,"1044,43353037845 ",.02)

 ;;43353037845

 ;;9002226.02101,"1044,43353038230 ",.01)

 ;;43353038230

 ;;9002226.02101,"1044,43353038230 ",.02)

 ;;43353038230

 ;;9002226.02101,"1044,43353038284 ",.01)

 ;;43353038284

 ;;9002226.02101,"1044,43353038284 ",.02)

 ;;43353038284

 ;;9002226.02101,"1044,43353041515 ",.01)

 ;;43353041515

 ;;9002226.02101,"1044,43353041515 ",.02)

 ;;43353041515

 ;;9002226.02101,"1044,43353041530 ",.01)

 ;;43353041530

 ;;9002226.02101,"1044,43353041530 ",.02)

 ;;43353041530

 ;;9002226.02101,"1044,43353041545 ",.01)

 ;;43353041545

BGPM5BCE  ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON SEP 12, 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,"1044,41616075881 ",.01)

 +2       ;;41616075881

 +3       ;;9002226.02101,"1044,41616075881 ",.02)

 +4       ;;41616075881

 +5       ;;9002226.02101,"1044,41616075883 ",.01)

 +6       ;;41616075883

 +7       ;;9002226.02101,"1044,41616075883 ",.02)

 +8       ;;41616075883

 +9       ;;9002226.02101,"1044,41616075888 ",.01)

 +10      ;;41616075888

 +11      ;;9002226.02101,"1044,41616075888 ",.02)

 +12      ;;41616075888

 +13      ;;9002226.02101,"1044,41616075908 ",.01)

 +14      ;;41616075908

 +15      ;;9002226.02101,"1044,41616075908 ",.02)

 +16      ;;41616075908

 +17      ;;9002226.02101,"1044,41616075918 ",.01)

 +18      ;;41616075918

 +19      ;;9002226.02101,"1044,41616075918 ",.02)

 +20      ;;41616075918

 +21      ;;9002226.02101,"1044,41616075981 ",.01)

 +22      ;;41616075981

 +23      ;;9002226.02101,"1044,41616075981 ",.02)

 +24      ;;41616075981

 +25      ;;9002226.02101,"1044,41616075983 ",.01)

 +26      ;;41616075983

 +27      ;;9002226.02101,"1044,41616075983 ",.02)

 +28      ;;41616075983

 +29      ;;9002226.02101,"1044,41616075988 ",.01)

 +30      ;;41616075988

 +31      ;;9002226.02101,"1044,41616075988 ",.02)

 +32      ;;41616075988

 +33      ;;9002226.02101,"1044,41616076008 ",.01)

 +34      ;;41616076008

 +35      ;;9002226.02101,"1044,41616076008 ",.02)

 +36      ;;41616076008

 +37      ;;9002226.02101,"1044,41616076018 ",.01)

 +38      ;;41616076018

 +39      ;;9002226.02101,"1044,41616076018 ",.02)

 +40      ;;41616076018

 +41      ;;9002226.02101,"1044,41616076081 ",.01)

 +42      ;;41616076081

 +43      ;;9002226.02101,"1044,41616076081 ",.02)

 +44      ;;41616076081

 +45      ;;9002226.02101,"1044,41616076083 ",.01)

 +46      ;;41616076083

 +47      ;;9002226.02101,"1044,41616076083 ",.02)

 +48      ;;41616076083

 +49      ;;9002226.02101,"1044,41616076088 ",.01)

 +50      ;;41616076088

 +51      ;;9002226.02101,"1044,41616076088 ",.02)

 +52      ;;41616076088

 +53      ;;9002226.02101,"1044,42549032930 ",.01)

 +54      ;;42549032930

 +55      ;;9002226.02101,"1044,42549032930 ",.02)

 +56      ;;42549032930

 +57      ;;9002226.02101,"1044,42549033630 ",.01)

 +58      ;;42549033630

 +59      ;;9002226.02101,"1044,42549033630 ",.02)

 +60      ;;42549033630

 +61      ;;9002226.02101,"1044,42549052930 ",.01)

 +62      ;;42549052930

 +63      ;;9002226.02101,"1044,42549052930 ",.02)

 +64      ;;42549052930

 +65      ;;9002226.02101,"1044,42549052960 ",.01)

 +66      ;;42549052960

 +67      ;;9002226.02101,"1044,42549052960 ",.02)

 +68      ;;42549052960

 +69      ;;9002226.02101,"1044,42549052990 ",.01)

 +70      ;;42549052990

 +71      ;;9002226.02101,"1044,42549052990 ",.02)

 +72      ;;42549052990

 +73      ;;9002226.02101,"1044,42549053630 ",.01)

 +74      ;;42549053630

 +75      ;;9002226.02101,"1044,42549053630 ",.02)

 +76      ;;42549053630

 +77      ;;9002226.02101,"1044,42549054612 ",.01)

 +78      ;;42549054612

 +79      ;;9002226.02101,"1044,42549054612 ",.02)

 +80      ;;42549054612

 +81      ;;9002226.02101,"1044,42549054630 ",.01)

 +82      ;;42549054630

 +83      ;;9002226.02101,"1044,42549054630 ",.02)

 +84      ;;42549054630

 +85      ;;9002226.02101,"1044,42549054660 ",.01)

 +86      ;;42549054660

 +87      ;;9002226.02101,"1044,42549054660 ",.02)

 +88      ;;42549054660

 +89      ;;9002226.02101,"1044,42549054690 ",.01)

 +90      ;;42549054690

 +91      ;;9002226.02101,"1044,42549054690 ",.02)

 +92      ;;42549054690

 +93      ;;9002226.02101,"1044,42549059930 ",.01)

 +94      ;;42549059930

 +95      ;;9002226.02101,"1044,42549059930 ",.02)

 +96      ;;42549059930

 +97      ;;9002226.02101,"1044,42549060530 ",.01)

 +98      ;;42549060530

 +99      ;;9002226.02101,"1044,42549060530 ",.02)

 +100     ;;42549060530

 +101     ;;9002226.02101,"1044,42549060560 ",.01)

 +102     ;;42549060560

 +103     ;;9002226.02101,"1044,42549060560 ",.02)

 +104     ;;42549060560

 +105     ;;9002226.02101,"1044,42549060590 ",.01)

 +106     ;;42549060590

 +107     ;;9002226.02101,"1044,42549060590 ",.02)

 +108     ;;42549060590

 +109     ;;9002226.02101,"1044,42549061330 ",.01)

 +110     ;;42549061330

 +111     ;;9002226.02101,"1044,42549061330 ",.02)

 +112     ;;42549061330

 +113     ;;9002226.02101,"1044,42549061360 ",.01)

 +114     ;;42549061360

 +115     ;;9002226.02101,"1044,42549061360 ",.02)

 +116     ;;42549061360

 +117     ;;9002226.02101,"1044,42549061390 ",.01)

 +118     ;;42549061390

 +119     ;;9002226.02101,"1044,42549061390 ",.02)

 +120     ;;42549061390

 +121     ;;9002226.02101,"1044,42769122100 ",.01)

 +122     ;;42769122100

 +123     ;;9002226.02101,"1044,42769122100 ",.02)

 +124     ;;42769122100

 +125     ;;9002226.02101,"1044,42769122200 ",.01)

 +126     ;;42769122200

 +127     ;;9002226.02101,"1044,42769122200 ",.02)

 +128     ;;42769122200

 +129     ;;9002226.02101,"1044,42769122500 ",.01)

 +130     ;;42769122500

 +131     ;;9002226.02101,"1044,42769122500 ",.02)

 +132     ;;42769122500

 +133     ;;9002226.02101,"1044,42806001901 ",.01)

 +134     ;;42806001901

 +135     ;;9002226.02101,"1044,42806001901 ",.02)

 +136     ;;42806001901

 +137     ;;9002226.02101,"1044,42806001910 ",.01)

 +138     ;;42806001910

 +139     ;;9002226.02101,"1044,42806001910 ",.02)

 +140     ;;42806001910

 +141     ;;9002226.02101,"1044,42806001930 ",.01)

 +142     ;;42806001930

 +143     ;;9002226.02101,"1044,42806001930 ",.02)

 +144     ;;42806001930

 +145     ;;9002226.02101,"1044,42806002001 ",.01)

 +146     ;;42806002001

 +147     ;;9002226.02101,"1044,42806002001 ",.02)

 +148     ;;42806002001

 +149     ;;9002226.02101,"1044,42806002010 ",.01)

 +150     ;;42806002010

 +151     ;;9002226.02101,"1044,42806002010 ",.02)

 +152     ;;42806002010

 +153     ;;9002226.02101,"1044,42806002030 ",.01)

 +154     ;;42806002030

 +155     ;;9002226.02101,"1044,42806002030 ",.02)

 +156     ;;42806002030

 +157     ;;9002226.02101,"1044,42806002101 ",.01)

 +158     ;;42806002101

 +159     ;;9002226.02101,"1044,42806002101 ",.02)

 +160     ;;42806002101

 +161     ;;9002226.02101,"1044,42806002110 ",.01)

 +162     ;;42806002110

 +163     ;;9002226.02101,"1044,42806002110 ",.02)

 +164     ;;42806002110

 +165     ;;9002226.02101,"1044,42806002130 ",.01)

 +166     ;;42806002130

 +167     ;;9002226.02101,"1044,42806002130 ",.02)

 +168     ;;42806002130

 +169     ;;9002226.02101,"1044,42843030110 ",.01)

 +170     ;;42843030110

 +171     ;;9002226.02101,"1044,42843030110 ",.02)

 +172     ;;42843030110

 +173     ;;9002226.02101,"1044,42843030111 ",.01)

 +174     ;;42843030111

 +175     ;;9002226.02101,"1044,42843030111 ",.02)

 +176     ;;42843030111

 +177     ;;9002226.02101,"1044,42843030210 ",.01)

 +178     ;;42843030210

 +179     ;;9002226.02101,"1044,42843030210 ",.02)

 +180     ;;42843030210

 +181     ;;9002226.02101,"1044,42843030211 ",.01)

 +182     ;;42843030211

 +183     ;;9002226.02101,"1044,42843030211 ",.02)

 +184     ;;42843030211

 +185     ;;9002226.02101,"1044,42843030310 ",.01)

 +186     ;;42843030310

 +187     ;;9002226.02101,"1044,42843030310 ",.02)

 +188     ;;42843030310

 +189     ;;9002226.02101,"1044,42843030311 ",.01)

 +190     ;;42843030311

 +191     ;;9002226.02101,"1044,42843030311 ",.02)

 +192     ;;42843030311

 +193     ;;9002226.02101,"1044,42843030410 ",.01)

 +194     ;;42843030410

 +195     ;;9002226.02101,"1044,42843030410 ",.02)

 +196     ;;42843030410

 +197     ;;9002226.02101,"1044,42843030411 ",.01)

 +198     ;;42843030411

 +199     ;;9002226.02101,"1044,42843030411 ",.02)

 +200     ;;42843030411

 +201     ;;9002226.02101,"1044,43063000901 ",.01)

 +202     ;;43063000901

 +203     ;;9002226.02101,"1044,43063000901 ",.02)

 +204     ;;43063000901

 +205     ;;9002226.02101,"1044,43063003301 ",.01)

 +206     ;;43063003301

 +207     ;;9002226.02101,"1044,43063003301 ",.02)

 +208     ;;43063003301

 +209     ;;9002226.02101,"1044,43063003390 ",.01)

 +210     ;;43063003390

 +211     ;;9002226.02101,"1044,43063003390 ",.02)

 +212     ;;43063003390

 +213     ;;9002226.02101,"1044,43063006301 ",.01)

 +214     ;;43063006301

 +215     ;;9002226.02101,"1044,43063006301 ",.02)

 +216     ;;43063006301

 +217     ;;9002226.02101,"1044,43063019360 ",.01)

 +218     ;;43063019360

 +219     ;;9002226.02101,"1044,43063019360 ",.02)

 +220     ;;43063019360

 +221     ;;9002226.02101,"1044,43063019730 ",.01)

 +222     ;;43063019730

 +223     ;;9002226.02101,"1044,43063019730 ",.02)

 +224     ;;43063019730

 +225     ;;9002226.02101,"1044,43063021301 ",.01)

 +226     ;;43063021301

 +227     ;;9002226.02101,"1044,43063021301 ",.02)

 +228     ;;43063021301

 +229     ;;9002226.02101,"1044,43063021401 ",.01)

 +230     ;;43063021401

 +231     ;;9002226.02101,"1044,43063021401 ",.02)

 +232     ;;43063021401

 +233     ;;9002226.02101,"1044,43063021601 ",.01)

 +234     ;;43063021601

 +235     ;;9002226.02101,"1044,43063021601 ",.02)

 +236     ;;43063021601

 +237     ;;9002226.02101,"1044,43063022101 ",.01)

 +238     ;;43063022101

 +239     ;;9002226.02101,"1044,43063022101 ",.02)

 +240     ;;43063022101

 +241     ;;9002226.02101,"1044,43063022130 ",.01)

 +242     ;;43063022130

 +243     ;;9002226.02101,"1044,43063022130 ",.02)

 +244     ;;43063022130

 +245     ;;9002226.02101,"1044,43063022190 ",.01)

 +246     ;;43063022190

 +247     ;;9002226.02101,"1044,43063022190 ",.02)

 +248     ;;43063022190

 +249     ;;9002226.02101,"1044,43063024930 ",.01)

 +250     ;;43063024930

 +251     ;;9002226.02101,"1044,43063024930 ",.02)

 +252     ;;43063024930

 +253     ;;9002226.02101,"1044,43063025530 ",.01)

 +254     ;;43063025530

 +255     ;;9002226.02101,"1044,43063025530 ",.02)

 +256     ;;43063025530

 +257     ;;9002226.02101,"1044,43063025730 ",.01)

 +258     ;;43063025730

 +259     ;;9002226.02101,"1044,43063025730 ",.02)

 +260     ;;43063025730

 +261     ;;9002226.02101,"1044,43063029230 ",.01)

 +262     ;;43063029230

 +263     ;;9002226.02101,"1044,43063029230 ",.02)

 +264     ;;43063029230

 +265     ;;9002226.02101,"1044,43353000532 ",.01)

 +266     ;;43353000532

 +267     ;;9002226.02101,"1044,43353000532 ",.02)

 +268     ;;43353000532

 +269     ;;9002226.02101,"1044,43353011030 ",.01)

 +270     ;;43353011030

 +271     ;;9002226.02101,"1044,43353011030 ",.02)

 +272     ;;43353011030

 +273     ;;9002226.02101,"1044,43353011032 ",.01)

 +274     ;;43353011032

 +275     ;;9002226.02101,"1044,43353011032 ",.02)

 +276     ;;43353011032

 +277     ;;9002226.02101,"1044,43353011070 ",.01)

 +278     ;;43353011070

 +279     ;;9002226.02101,"1044,43353011070 ",.02)

 +280     ;;43353011070

 +281     ;;9002226.02101,"1044,43353011832 ",.01)

 +282     ;;43353011832

 +283     ;;9002226.02101,"1044,43353011832 ",.02)

 +284     ;;43353011832

 +285     ;;9002226.02101,"1044,43353020430 ",.01)

 +286     ;;43353020430

 +287     ;;9002226.02101,"1044,43353020430 ",.02)

 +288     ;;43353020430

 +289     ;;9002226.02101,"1044,43353020431 ",.01)

 +290     ;;43353020431

 +291     ;;9002226.02101,"1044,43353020431 ",.02)

 +292     ;;43353020431

 +293     ;;9002226.02101,"1044,43353020432 ",.01)

 +294     ;;43353020432

 +295     ;;9002226.02101,"1044,43353020432 ",.02)

 +296     ;;43353020432

 +297     ;;9002226.02101,"1044,43353020453 ",.01)

 +298     ;;43353020453

 +299     ;;9002226.02101,"1044,43353020453 ",.02)

 +300     ;;43353020453

 +301     ;;9002226.02101,"1044,43353020460 ",.01)

 +302     ;;43353020460

 +303     ;;9002226.02101,"1044,43353020460 ",.02)

 +304     ;;43353020460

 +305     ;;9002226.02101,"1044,43353020480 ",.01)

 +306     ;;43353020480

 +307     ;;9002226.02101,"1044,43353020480 ",.02)

 +308     ;;43353020480

 +309     ;;9002226.02101,"1044,43353035330 ",.01)

 +310     ;;43353035330

 +311     ;;9002226.02101,"1044,43353035330 ",.02)

 +312     ;;43353035330

 +313     ;;9002226.02101,"1044,43353035332 ",.01)

 +314     ;;43353035332

 +315     ;;9002226.02101,"1044,43353035332 ",.02)

 +316     ;;43353035332

 +317     ;;9002226.02101,"1044,43353035360 ",.01)

 +318     ;;43353035360

 +319     ;;9002226.02101,"1044,43353035360 ",.02)

 +320     ;;43353035360

 +321     ;;9002226.02101,"1044,43353036215 ",.01)

 +322     ;;43353036215

 +323     ;;9002226.02101,"1044,43353036215 ",.02)

 +324     ;;43353036215

 +325     ;;9002226.02101,"1044,43353036230 ",.01)

 +326     ;;43353036230

 +327     ;;9002226.02101,"1044,43353036230 ",.02)

 +328     ;;43353036230

 +329     ;;9002226.02101,"1044,43353036232 ",.01)

 +330     ;;43353036232

 +331     ;;9002226.02101,"1044,43353036232 ",.02)

 +332     ;;43353036232

 +333     ;;9002226.02101,"1044,43353036245 ",.01)

 +334     ;;43353036245

 +335     ;;9002226.02101,"1044,43353036245 ",.02)

 +336     ;;43353036245

 +337     ;;9002226.02101,"1044,43353036253 ",.01)

 +338     ;;43353036253

 +339     ;;9002226.02101,"1044,43353036253 ",.02)

 +340     ;;43353036253

 +341     ;;9002226.02101,"1044,43353036260 ",.01)

 +342     ;;43353036260

 +343     ;;9002226.02101,"1044,43353036260 ",.02)

 +344     ;;43353036260

 +345     ;;9002226.02101,"1044,43353036273 ",.01)

 +346     ;;43353036273

 +347     ;;9002226.02101,"1044,43353036273 ",.02)

 +348     ;;43353036273

 +349     ;;9002226.02101,"1044,43353036280 ",.01)

 +350     ;;43353036280

 +351     ;;9002226.02101,"1044,43353036280 ",.02)

 +352     ;;43353036280

 +353     ;;9002226.02101,"1044,43353036415 ",.01)

 +354     ;;43353036415

 +355     ;;9002226.02101,"1044,43353036415 ",.02)

 +356     ;;43353036415

 +357     ;;9002226.02101,"1044,43353036430 ",.01)

 +358     ;;43353036430

 +359     ;;9002226.02101,"1044,43353036430 ",.02)

 +360     ;;43353036430

 +361     ;;9002226.02101,"1044,43353036445 ",.01)

 +362     ;;43353036445

 +363     ;;9002226.02101,"1044,43353036445 ",.02)

 +364     ;;43353036445

 +365     ;;9002226.02101,"1044,43353036453 ",.01)

 +366     ;;43353036453

 +367     ;;9002226.02101,"1044,43353036453 ",.02)

 +368     ;;43353036453

 +369     ;;9002226.02101,"1044,43353036460 ",.01)

 +370     ;;43353036460

 +371     ;;9002226.02101,"1044,43353036460 ",.02)

 +372     ;;43353036460

 +373     ;;9002226.02101,"1044,43353036480 ",.01)

 +374     ;;43353036480

 +375     ;;9002226.02101,"1044,43353036480 ",.02)

 +376     ;;43353036480

 +377     ;;9002226.02101,"1044,43353037053 ",.01)

 +378     ;;43353037053

 +379     ;;9002226.02101,"1044,43353037053 ",.02)

 +380     ;;43353037053

 +381     ;;9002226.02101,"1044,43353037845 ",.01)

 +382     ;;43353037845

 +383     ;;9002226.02101,"1044,43353037845 ",.02)

 +384     ;;43353037845

 +385     ;;9002226.02101,"1044,43353038230 ",.01)

 +386     ;;43353038230

 +387     ;;9002226.02101,"1044,43353038230 ",.02)

 +388     ;;43353038230

 +389     ;;9002226.02101,"1044,43353038284 ",.01)

 +390     ;;43353038284

 +391     ;;9002226.02101,"1044,43353038284 ",.02)

 +392     ;;43353038284

 +393     ;;9002226.02101,"1044,43353041515 ",.01)

 +394     ;;43353041515

 +395     ;;9002226.02101,"1044,43353041515 ",.02)

 +396     ;;43353041515

 +397     ;;9002226.02101,"1044,43353041530 ",.01)

 +398     ;;43353041530

 +399     ;;9002226.02101,"1044,43353041530 ",.02)

 +400     ;;43353041530

 +401     ;;9002226.02101,"1044,43353041545 ",.01)

 +402     ;;43353041545

BGPM5BCE.m