Routine: BGPM5AWC

BGPM5AWC ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 29, 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,"1033,58864076720 ",.02)

 ;;58864076720

 ;;9002226.02101,"1033,58864076721 ",.01)

 ;;58864076721

 ;;9002226.02101,"1033,58864076721 ",.02)

 ;;58864076721

 ;;9002226.02101,"1033,58864076730 ",.01)

 ;;58864076730

 ;;9002226.02101,"1033,58864076730 ",.02)

 ;;58864076730

 ;;9002226.02101,"1033,58864077730 ",.01)

 ;;58864077730

 ;;9002226.02101,"1033,58864077730 ",.02)

 ;;58864077730

 ;;9002226.02101,"1033,58864079106 ",.01)

 ;;58864079106

 ;;9002226.02101,"1033,58864079106 ",.02)

 ;;58864079106

 ;;9002226.02101,"1033,58864080606 ",.01)

 ;;58864080606

 ;;9002226.02101,"1033,58864080606 ",.02)

 ;;58864080606

 ;;9002226.02101,"1033,58864080614 ",.01)

 ;;58864080614

 ;;9002226.02101,"1033,58864080614 ",.02)

 ;;58864080614

 ;;9002226.02101,"1033,58864080620 ",.01)

 ;;58864080620

 ;;9002226.02101,"1033,58864080620 ",.02)

 ;;58864080620

 ;;9002226.02101,"1033,58864083310 ",.01)

 ;;58864083310

 ;;9002226.02101,"1033,58864083310 ",.02)

 ;;58864083310

 ;;9002226.02101,"1033,58864083320 ",.01)

 ;;58864083320

 ;;9002226.02101,"1033,58864083320 ",.02)

 ;;58864083320

 ;;9002226.02101,"1033,58864083720 ",.01)

 ;;58864083720

 ;;9002226.02101,"1033,58864083720 ",.02)

 ;;58864083720

 ;;9002226.02101,"1033,58864084830 ",.01)

 ;;58864084830

 ;;9002226.02101,"1033,58864084830 ",.02)

 ;;58864084830

 ;;9002226.02101,"1033,59115002301 ",.01)

 ;;59115002301

 ;;9002226.02101,"1033,59115002301 ",.02)

 ;;59115002301

 ;;9002226.02101,"1033,59115002350 ",.01)

 ;;59115002350

 ;;9002226.02101,"1033,59115002350 ",.02)

 ;;59115002350

 ;;9002226.02101,"1033,59115002375 ",.01)

 ;;59115002375

 ;;9002226.02101,"1033,59115002375 ",.02)

 ;;59115002375

 ;;9002226.02101,"1033,59115002401 ",.01)

 ;;59115002401

 ;;9002226.02101,"1033,59115002401 ",.02)

 ;;59115002401

 ;;9002226.02101,"1033,59115002450 ",.01)

 ;;59115002450

 ;;9002226.02101,"1033,59115002450 ",.02)

 ;;59115002450

 ;;9002226.02101,"1033,59115002475 ",.01)

 ;;59115002475

 ;;9002226.02101,"1033,59115002475 ",.02)

 ;;59115002475

 ;;9002226.02101,"1033,59115002801 ",.01)

 ;;59115002801

 ;;9002226.02101,"1033,59115002801 ",.02)

 ;;59115002801

 ;;9002226.02101,"1033,59115002850 ",.01)

 ;;59115002850

 ;;9002226.02101,"1033,59115002850 ",.02)

 ;;59115002850

 ;;9002226.02101,"1033,59115002899 ",.01)

 ;;59115002899

 ;;9002226.02101,"1033,59115002899 ",.02)

 ;;59115002899

 ;;9002226.02101,"1033,59115002901 ",.01)

 ;;59115002901

 ;;9002226.02101,"1033,59115002901 ",.02)

 ;;59115002901

 ;;9002226.02101,"1033,59115002933 ",.01)

 ;;59115002933

 ;;9002226.02101,"1033,59115002933 ",.02)

 ;;59115002933

 ;;9002226.02101,"1033,59115002955 ",.01)

 ;;59115002955

 ;;9002226.02101,"1033,59115002955 ",.02)

 ;;59115002955

 ;;9002226.02101,"1033,59115002999 ",.01)

 ;;59115002999

 ;;9002226.02101,"1033,59115002999 ",.02)

 ;;59115002999

 ;;9002226.02101,"1033,59115003001 ",.01)

 ;;59115003001

 ;;9002226.02101,"1033,59115003001 ",.02)

 ;;59115003001

 ;;9002226.02101,"1033,59115003033 ",.01)

 ;;59115003033

 ;;9002226.02101,"1033,59115003033 ",.02)

 ;;59115003033

 ;;9002226.02101,"1033,59115003055 ",.01)

 ;;59115003055

 ;;9002226.02101,"1033,59115003055 ",.02)

 ;;59115003055

 ;;9002226.02101,"1033,59115003099 ",.01)

 ;;59115003099

 ;;9002226.02101,"1033,59115003099 ",.02)

 ;;59115003099

 ;;9002226.02101,"1033,59115003301 ",.01)

 ;;59115003301

 ;;9002226.02101,"1033,59115003301 ",.02)

 ;;59115003301

 ;;9002226.02101,"1033,59115003355 ",.01)

 ;;59115003355

 ;;9002226.02101,"1033,59115003355 ",.02)

 ;;59115003355

 ;;9002226.02101,"1033,59115004001 ",.01)

 ;;59115004001

 ;;9002226.02101,"1033,59115004001 ",.02)

 ;;59115004001

 ;;9002226.02101,"1033,59115004022 ",.01)

 ;;59115004022

 ;;9002226.02101,"1033,59115004022 ",.02)

 ;;59115004022

 ;;9002226.02101,"1033,59115004101 ",.01)

 ;;59115004101

 ;;9002226.02101,"1033,59115004101 ",.02)

 ;;59115004101

 ;;9002226.02101,"1033,59115004122 ",.01)

 ;;59115004122

 ;;9002226.02101,"1033,59115004122 ",.02)

 ;;59115004122

 ;;9002226.02101,"1033,59115004155 ",.01)

 ;;59115004155

 ;;9002226.02101,"1033,59115004155 ",.02)

 ;;59115004155

 ;;9002226.02101,"1033,59115004201 ",.01)

 ;;59115004201

 ;;9002226.02101,"1033,59115004201 ",.02)

 ;;59115004201

 ;;9002226.02101,"1033,59115004233 ",.01)

 ;;59115004233

 ;;9002226.02101,"1033,59115004233 ",.02)

 ;;59115004233

 ;;9002226.02101,"1033,59115004255 ",.01)

 ;;59115004255

 ;;9002226.02101,"1033,59115004255 ",.02)

 ;;59115004255

 ;;9002226.02101,"1033,59115004301 ",.01)

 ;;59115004301

 ;;9002226.02101,"1033,59115004301 ",.02)

 ;;59115004301

 ;;9002226.02101,"1033,59115004350 ",.01)

 ;;59115004350

 ;;9002226.02101,"1033,59115004350 ",.02)

 ;;59115004350

 ;;9002226.02101,"1033,59115004375 ",.01)

 ;;59115004375

 ;;9002226.02101,"1033,59115004375 ",.02)

 ;;59115004375

 ;;9002226.02101,"1033,59115004401 ",.01)

 ;;59115004401

 ;;9002226.02101,"1033,59115004401 ",.02)

 ;;59115004401

 ;;9002226.02101,"1033,59115004405 ",.01)

 ;;59115004405

 ;;9002226.02101,"1033,59115004405 ",.02)

 ;;59115004405

 ;;9002226.02101,"1033,59115004480 ",.01)

 ;;59115004480

 ;;9002226.02101,"1033,59115004480 ",.02)

 ;;59115004480

 ;;9002226.02101,"1033,59115004501 ",.01)

 ;;59115004501

 ;;9002226.02101,"1033,59115004501 ",.02)

 ;;59115004501

 ;;9002226.02101,"1033,59115004550 ",.01)

 ;;59115004550

 ;;9002226.02101,"1033,59115004550 ",.02)

 ;;59115004550

 ;;9002226.02101,"1033,59115004575 ",.01)

 ;;59115004575

 ;;9002226.02101,"1033,59115004575 ",.02)

 ;;59115004575

 ;;9002226.02101,"1033,59115004601 ",.01)

 ;;59115004601

 ;;9002226.02101,"1033,59115004601 ",.02)

 ;;59115004601

 ;;9002226.02101,"1033,59115004605 ",.01)

 ;;59115004605

 ;;9002226.02101,"1033,59115004605 ",.02)

 ;;59115004605

 ;;9002226.02101,"1033,59115004680 ",.01)

 ;;59115004680

 ;;9002226.02101,"1033,59115004680 ",.02)

 ;;59115004680

 ;;9002226.02101,"1033,59115005101 ",.01)

 ;;59115005101

 ;;9002226.02101,"1033,59115005101 ",.02)

 ;;59115005101

 ;;9002226.02101,"1033,59115005122 ",.01)

 ;;59115005122

 ;;9002226.02101,"1033,59115005122 ",.02)

 ;;59115005122

 ;;9002226.02101,"1033,59115005150 ",.01)

 ;;59115005150

 ;;9002226.02101,"1033,59115005150 ",.02)

 ;;59115005150

 ;;9002226.02101,"1033,59115005201 ",.01)

 ;;59115005201

 ;;9002226.02101,"1033,59115005201 ",.02)

 ;;59115005201

 ;;9002226.02101,"1033,59115005250 ",.01)

 ;;59115005250

 ;;9002226.02101,"1033,59115005250 ",.02)

 ;;59115005250

 ;;9002226.02101,"1033,59115006120 ",.01)

 ;;59115006120

 ;;9002226.02101,"1033,59115006120 ",.02)

 ;;59115006120

 ;;9002226.02101,"1033,59115006125 ",.01)

 ;;59115006125

 ;;9002226.02101,"1033,59115006125 ",.02)

 ;;59115006125

 ;;9002226.02101,"1033,59115006175 ",.01)

 ;;59115006175

 ;;9002226.02101,"1033,59115006175 ",.02)

 ;;59115006175

 ;;9002226.02101,"1033,59115012205 ",.01)

 ;;59115012205

 ;;9002226.02101,"1033,59115012205 ",.02)

 ;;59115012205

 ;;9002226.02101,"1033,59115012214 ",.01)

 ;;59115012214

 ;;9002226.02101,"1033,59115012214 ",.02)

 ;;59115012214

 ;;9002226.02101,"1033,59115012220 ",.01)

 ;;59115012220

 ;;9002226.02101,"1033,59115012220 ",.02)

 ;;59115012220

 ;;9002226.02101,"1033,59115012250 ",.01)

 ;;59115012250

 ;;9002226.02101,"1033,59115012250 ",.02)

 ;;59115012250

 ;;9002226.02101,"1033,59115012299 ",.01)

 ;;59115012299

 ;;9002226.02101,"1033,59115012299 ",.02)

 ;;59115012299

 ;;9002226.02101,"1033,59115012305 ",.01)

 ;;59115012305

 ;;9002226.02101,"1033,59115012305 ",.02)

 ;;59115012305

 ;;9002226.02101,"1033,59115012350 ",.01)

 ;;59115012350

 ;;9002226.02101,"1033,59115012350 ",.02)

 ;;59115012350

 ;;9002226.02101,"1033,59214010606 ",.01)

 ;;59214010606

 ;;9002226.02101,"1033,59214010606 ",.02)

 ;;59214010606

 ;;9002226.02101,"1033,59214083901 ",.01)

 ;;59214083901

 ;;9002226.02101,"1033,59214083901 ",.02)

 ;;59214083901

 ;;9002226.02101,"1033,59214252201 ",.01)

 ;;59214252201

 ;;9002226.02101,"1033,59214252201 ",.02)

 ;;59214252201

 ;;9002226.02101,"1033,59366271306 ",.01)

 ;;59366271306

 ;;9002226.02101,"1033,59366271306 ",.02)

 ;;59366271306

 ;;9002226.02101,"1033,59366285206 ",.01)

 ;;59366285206

 ;;9002226.02101,"1033,59366285206 ",.02)

 ;;59366285206

 ;;9002226.02101,"1033,59453009201 ",.01)

 ;;59453009201

 ;;9002226.02101,"1033,59453009201 ",.02)

 ;;59453009201

 ;;9002226.02101,"1033,59453013001 ",.01)

 ;;59453013001

 ;;9002226.02101,"1033,59453013001 ",.02)

 ;;59453013001

 ;;9002226.02101,"1033,59564019905 ",.01)

 ;;59564019905

 ;;9002226.02101,"1033,59564019905 ",.02)

 ;;59564019905

 ;;9002226.02101,"1033,59564019910 ",.01)

 ;;59564019910

 ;;9002226.02101,"1033,59564019910 ",.02)

 ;;59564019910

 ;;9002226.02101,"1033,59564019911 ",.01)

 ;;59564019911

 ;;9002226.02101,"1033,59564019911 ",.02)

 ;;59564019911

 ;;9002226.02101,"1033,59564019914 ",.01)

 ;;59564019914

 ;;9002226.02101,"1033,59564019914 ",.02)

 ;;59564019914

 ;;9002226.02101,"1033,59564019928 ",.01)

 ;;59564019928

 ;;9002226.02101,"1033,59564019928 ",.02)

 ;;59564019928

 ;;9002226.02101,"1033,59762001601 ",.01)

 ;;59762001601

 ;;9002226.02101,"1033,59762001601 ",.02)

 ;;59762001601

 ;;9002226.02101,"1033,59762028003 ",.01)

 ;;59762028003

 ;;9002226.02101,"1033,59762028003 ",.02)

 ;;59762028003

 ;;9002226.02101,"1033,59762040902 ",.01)

 ;;59762040902

 ;;9002226.02101,"1033,59762040902 ",.02)

 ;;59762040902

 ;;9002226.02101,"1033,59762040904 ",.01)

 ;;59762040904

 ;;9002226.02101,"1033,59762040904 ",.02)

 ;;59762040904

 ;;9002226.02101,"1033,59762040907 ",.01)

 ;;59762040907

 ;;9002226.02101,"1033,59762040907 ",.02)

 ;;59762040907

 ;;9002226.02101,"1033,59762102001 ",.01)

 ;;59762102001

 ;;9002226.02101,"1033,59762102001 ",.02)

 ;;59762102001

 ;;9002226.02101,"1033,59762102003 ",.01)

 ;;59762102003

 ;;9002226.02101,"1033,59762102003 ",.02)

 ;;59762102003

 ;;9002226.02101,"1033,59762102101 ",.01)

 ;;59762102101

 ;;9002226.02101,"1033,59762102101 ",.02)

 ;;59762102101

 ;;9002226.02101,"1033,59762102107 ",.01)

 ;;59762102107

 ;;9002226.02101,"1033,59762102107 ",.02)

 ;;59762102107

 ;;9002226.02101,"1033,59762102202 ",.01)

 ;;59762102202

 ;;9002226.02101,"1033,59762102202 ",.02)

 ;;59762102202

 ;;9002226.02101,"1033,59762102204 ",.01)

 ;;59762102204

 ;;9002226.02101,"1033,59762102204 ",.02)

 ;;59762102204

 ;;9002226.02101,"1033,59762102207 ",.01)

 ;;59762102207

 ;;9002226.02101,"1033,59762102207 ",.02)

 ;;59762102207

 ;;9002226.02101,"1033,59762102304 ",.01)

 ;;59762102304

 ;;9002226.02101,"1033,59762102304 ",.02)

 ;;59762102304

 ;;9002226.02101,"1033,59762102305 ",.01)

 ;;59762102305

 ;;9002226.02101,"1033,59762102305 ",.02)

 ;;59762102305

 ;;9002226.02101,"1033,59762102306 ",.01)

 ;;59762102306

 ;;9002226.02101,"1033,59762102306 ",.02)

 ;;59762102306

 ;;9002226.02101,"1033,59762105002 ",.01)

 ;;59762105002

 ;;9002226.02101,"1033,59762105002 ",.02)

 ;;59762105002

 ;;9002226.02101,"1033,59762105005 ",.01)

 ;;59762105005

 ;;9002226.02101,"1033,59762105005 ",.02)

 ;;59762105005

 ;;9002226.02101,"1033,59762108101 ",.01)

 ;;59762108101

 ;;9002226.02101,"1033,59762108101 ",.02)

 ;;59762108101

 ;;9002226.02101,"1033,59762108102 ",.01)

 ;;59762108102

 ;;9002226.02101,"1033,59762108102 ",.02)

 ;;59762108102

 ;;9002226.02101,"1033,59762108301 ",.01)

 ;;59762108301

 ;;9002226.02101,"1033,59762108301 ",.02)

 ;;59762108301

 ;;9002226.02101,"1033,59762108302 ",.01)

 ;;59762108302

 ;;9002226.02101,"1033,59762108302 ",.02)

 ;;59762108302

 ;;9002226.02101,"1033,59762153401 ",.01)

 ;;59762153401

 ;;9002226.02101,"1033,59762153401 ",.02)

 ;;59762153401

 ;;9002226.02101,"1033,59762153402 ",.01)

 ;;59762153402

 ;;9002226.02101,"1033,59762153402 ",.02)

 ;;59762153402

BGPM5AWC  ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 29, 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,"1033,58864076720 ",.02)

 +2       ;;58864076720

 +3       ;;9002226.02101,"1033,58864076721 ",.01)

 +4       ;;58864076721

 +5       ;;9002226.02101,"1033,58864076721 ",.02)

 +6       ;;58864076721

 +7       ;;9002226.02101,"1033,58864076730 ",.01)

 +8       ;;58864076730

 +9       ;;9002226.02101,"1033,58864076730 ",.02)

 +10      ;;58864076730

 +11      ;;9002226.02101,"1033,58864077730 ",.01)

 +12      ;;58864077730

 +13      ;;9002226.02101,"1033,58864077730 ",.02)

 +14      ;;58864077730

 +15      ;;9002226.02101,"1033,58864079106 ",.01)

 +16      ;;58864079106

 +17      ;;9002226.02101,"1033,58864079106 ",.02)

 +18      ;;58864079106

 +19      ;;9002226.02101,"1033,58864080606 ",.01)

 +20      ;;58864080606

 +21      ;;9002226.02101,"1033,58864080606 ",.02)

 +22      ;;58864080606

 +23      ;;9002226.02101,"1033,58864080614 ",.01)

 +24      ;;58864080614

 +25      ;;9002226.02101,"1033,58864080614 ",.02)

 +26      ;;58864080614

 +27      ;;9002226.02101,"1033,58864080620 ",.01)

 +28      ;;58864080620

 +29      ;;9002226.02101,"1033,58864080620 ",.02)

 +30      ;;58864080620

 +31      ;;9002226.02101,"1033,58864083310 ",.01)

 +32      ;;58864083310

 +33      ;;9002226.02101,"1033,58864083310 ",.02)

 +34      ;;58864083310

 +35      ;;9002226.02101,"1033,58864083320 ",.01)

 +36      ;;58864083320

 +37      ;;9002226.02101,"1033,58864083320 ",.02)

 +38      ;;58864083320

 +39      ;;9002226.02101,"1033,58864083720 ",.01)

 +40      ;;58864083720

 +41      ;;9002226.02101,"1033,58864083720 ",.02)

 +42      ;;58864083720

 +43      ;;9002226.02101,"1033,58864084830 ",.01)

 +44      ;;58864084830

 +45      ;;9002226.02101,"1033,58864084830 ",.02)

 +46      ;;58864084830

 +47      ;;9002226.02101,"1033,59115002301 ",.01)

 +48      ;;59115002301

 +49      ;;9002226.02101,"1033,59115002301 ",.02)

 +50      ;;59115002301

 +51      ;;9002226.02101,"1033,59115002350 ",.01)

 +52      ;;59115002350

 +53      ;;9002226.02101,"1033,59115002350 ",.02)

 +54      ;;59115002350

 +55      ;;9002226.02101,"1033,59115002375 ",.01)

 +56      ;;59115002375

 +57      ;;9002226.02101,"1033,59115002375 ",.02)

 +58      ;;59115002375

 +59      ;;9002226.02101,"1033,59115002401 ",.01)

 +60      ;;59115002401

 +61      ;;9002226.02101,"1033,59115002401 ",.02)

 +62      ;;59115002401

 +63      ;;9002226.02101,"1033,59115002450 ",.01)

 +64      ;;59115002450

 +65      ;;9002226.02101,"1033,59115002450 ",.02)

 +66      ;;59115002450

 +67      ;;9002226.02101,"1033,59115002475 ",.01)

 +68      ;;59115002475

 +69      ;;9002226.02101,"1033,59115002475 ",.02)

 +70      ;;59115002475

 +71      ;;9002226.02101,"1033,59115002801 ",.01)

 +72      ;;59115002801

 +73      ;;9002226.02101,"1033,59115002801 ",.02)

 +74      ;;59115002801

 +75      ;;9002226.02101,"1033,59115002850 ",.01)

 +76      ;;59115002850

 +77      ;;9002226.02101,"1033,59115002850 ",.02)

 +78      ;;59115002850

 +79      ;;9002226.02101,"1033,59115002899 ",.01)

 +80      ;;59115002899

 +81      ;;9002226.02101,"1033,59115002899 ",.02)

 +82      ;;59115002899

 +83      ;;9002226.02101,"1033,59115002901 ",.01)

 +84      ;;59115002901

 +85      ;;9002226.02101,"1033,59115002901 ",.02)

 +86      ;;59115002901

 +87      ;;9002226.02101,"1033,59115002933 ",.01)

 +88      ;;59115002933

 +89      ;;9002226.02101,"1033,59115002933 ",.02)

 +90      ;;59115002933

 +91      ;;9002226.02101,"1033,59115002955 ",.01)

 +92      ;;59115002955

 +93      ;;9002226.02101,"1033,59115002955 ",.02)

 +94      ;;59115002955

 +95      ;;9002226.02101,"1033,59115002999 ",.01)

 +96      ;;59115002999

 +97      ;;9002226.02101,"1033,59115002999 ",.02)

 +98      ;;59115002999

 +99      ;;9002226.02101,"1033,59115003001 ",.01)

 +100     ;;59115003001

 +101     ;;9002226.02101,"1033,59115003001 ",.02)

 +102     ;;59115003001

 +103     ;;9002226.02101,"1033,59115003033 ",.01)

 +104     ;;59115003033

 +105     ;;9002226.02101,"1033,59115003033 ",.02)

 +106     ;;59115003033

 +107     ;;9002226.02101,"1033,59115003055 ",.01)

 +108     ;;59115003055

 +109     ;;9002226.02101,"1033,59115003055 ",.02)

 +110     ;;59115003055

 +111     ;;9002226.02101,"1033,59115003099 ",.01)

 +112     ;;59115003099

 +113     ;;9002226.02101,"1033,59115003099 ",.02)

 +114     ;;59115003099

 +115     ;;9002226.02101,"1033,59115003301 ",.01)

 +116     ;;59115003301

 +117     ;;9002226.02101,"1033,59115003301 ",.02)

 +118     ;;59115003301

 +119     ;;9002226.02101,"1033,59115003355 ",.01)

 +120     ;;59115003355

 +121     ;;9002226.02101,"1033,59115003355 ",.02)

 +122     ;;59115003355

 +123     ;;9002226.02101,"1033,59115004001 ",.01)

 +124     ;;59115004001

 +125     ;;9002226.02101,"1033,59115004001 ",.02)

 +126     ;;59115004001

 +127     ;;9002226.02101,"1033,59115004022 ",.01)

 +128     ;;59115004022

 +129     ;;9002226.02101,"1033,59115004022 ",.02)

 +130     ;;59115004022

 +131     ;;9002226.02101,"1033,59115004101 ",.01)

 +132     ;;59115004101

 +133     ;;9002226.02101,"1033,59115004101 ",.02)

 +134     ;;59115004101

 +135     ;;9002226.02101,"1033,59115004122 ",.01)

 +136     ;;59115004122

 +137     ;;9002226.02101,"1033,59115004122 ",.02)

 +138     ;;59115004122

 +139     ;;9002226.02101,"1033,59115004155 ",.01)

 +140     ;;59115004155

 +141     ;;9002226.02101,"1033,59115004155 ",.02)

 +142     ;;59115004155

 +143     ;;9002226.02101,"1033,59115004201 ",.01)

 +144     ;;59115004201

 +145     ;;9002226.02101,"1033,59115004201 ",.02)

 +146     ;;59115004201

 +147     ;;9002226.02101,"1033,59115004233 ",.01)

 +148     ;;59115004233

 +149     ;;9002226.02101,"1033,59115004233 ",.02)

 +150     ;;59115004233

 +151     ;;9002226.02101,"1033,59115004255 ",.01)

 +152     ;;59115004255

 +153     ;;9002226.02101,"1033,59115004255 ",.02)

 +154     ;;59115004255

 +155     ;;9002226.02101,"1033,59115004301 ",.01)

 +156     ;;59115004301

 +157     ;;9002226.02101,"1033,59115004301 ",.02)

 +158     ;;59115004301

 +159     ;;9002226.02101,"1033,59115004350 ",.01)

 +160     ;;59115004350

 +161     ;;9002226.02101,"1033,59115004350 ",.02)

 +162     ;;59115004350

 +163     ;;9002226.02101,"1033,59115004375 ",.01)

 +164     ;;59115004375

 +165     ;;9002226.02101,"1033,59115004375 ",.02)

 +166     ;;59115004375

 +167     ;;9002226.02101,"1033,59115004401 ",.01)

 +168     ;;59115004401

 +169     ;;9002226.02101,"1033,59115004401 ",.02)

 +170     ;;59115004401

 +171     ;;9002226.02101,"1033,59115004405 ",.01)

 +172     ;;59115004405

 +173     ;;9002226.02101,"1033,59115004405 ",.02)

 +174     ;;59115004405

 +175     ;;9002226.02101,"1033,59115004480 ",.01)

 +176     ;;59115004480

 +177     ;;9002226.02101,"1033,59115004480 ",.02)

 +178     ;;59115004480

 +179     ;;9002226.02101,"1033,59115004501 ",.01)

 +180     ;;59115004501

 +181     ;;9002226.02101,"1033,59115004501 ",.02)

 +182     ;;59115004501

 +183     ;;9002226.02101,"1033,59115004550 ",.01)

 +184     ;;59115004550

 +185     ;;9002226.02101,"1033,59115004550 ",.02)

 +186     ;;59115004550

 +187     ;;9002226.02101,"1033,59115004575 ",.01)

 +188     ;;59115004575

 +189     ;;9002226.02101,"1033,59115004575 ",.02)

 +190     ;;59115004575

 +191     ;;9002226.02101,"1033,59115004601 ",.01)

 +192     ;;59115004601

 +193     ;;9002226.02101,"1033,59115004601 ",.02)

 +194     ;;59115004601

 +195     ;;9002226.02101,"1033,59115004605 ",.01)

 +196     ;;59115004605

 +197     ;;9002226.02101,"1033,59115004605 ",.02)

 +198     ;;59115004605

 +199     ;;9002226.02101,"1033,59115004680 ",.01)

 +200     ;;59115004680

 +201     ;;9002226.02101,"1033,59115004680 ",.02)

 +202     ;;59115004680

 +203     ;;9002226.02101,"1033,59115005101 ",.01)

 +204     ;;59115005101

 +205     ;;9002226.02101,"1033,59115005101 ",.02)

 +206     ;;59115005101

 +207     ;;9002226.02101,"1033,59115005122 ",.01)

 +208     ;;59115005122

 +209     ;;9002226.02101,"1033,59115005122 ",.02)

 +210     ;;59115005122

 +211     ;;9002226.02101,"1033,59115005150 ",.01)

 +212     ;;59115005150

 +213     ;;9002226.02101,"1033,59115005150 ",.02)

 +214     ;;59115005150

 +215     ;;9002226.02101,"1033,59115005201 ",.01)

 +216     ;;59115005201

 +217     ;;9002226.02101,"1033,59115005201 ",.02)

 +218     ;;59115005201

 +219     ;;9002226.02101,"1033,59115005250 ",.01)

 +220     ;;59115005250

 +221     ;;9002226.02101,"1033,59115005250 ",.02)

 +222     ;;59115005250

 +223     ;;9002226.02101,"1033,59115006120 ",.01)

 +224     ;;59115006120

 +225     ;;9002226.02101,"1033,59115006120 ",.02)

 +226     ;;59115006120

 +227     ;;9002226.02101,"1033,59115006125 ",.01)

 +228     ;;59115006125

 +229     ;;9002226.02101,"1033,59115006125 ",.02)

 +230     ;;59115006125

 +231     ;;9002226.02101,"1033,59115006175 ",.01)

 +232     ;;59115006175

 +233     ;;9002226.02101,"1033,59115006175 ",.02)

 +234     ;;59115006175

 +235     ;;9002226.02101,"1033,59115012205 ",.01)

 +236     ;;59115012205

 +237     ;;9002226.02101,"1033,59115012205 ",.02)

 +238     ;;59115012205

 +239     ;;9002226.02101,"1033,59115012214 ",.01)

 +240     ;;59115012214

 +241     ;;9002226.02101,"1033,59115012214 ",.02)

 +242     ;;59115012214

 +243     ;;9002226.02101,"1033,59115012220 ",.01)

 +244     ;;59115012220

 +245     ;;9002226.02101,"1033,59115012220 ",.02)

 +246     ;;59115012220

 +247     ;;9002226.02101,"1033,59115012250 ",.01)

 +248     ;;59115012250

 +249     ;;9002226.02101,"1033,59115012250 ",.02)

 +250     ;;59115012250

 +251     ;;9002226.02101,"1033,59115012299 ",.01)

 +252     ;;59115012299

 +253     ;;9002226.02101,"1033,59115012299 ",.02)

 +254     ;;59115012299

 +255     ;;9002226.02101,"1033,59115012305 ",.01)

 +256     ;;59115012305

 +257     ;;9002226.02101,"1033,59115012305 ",.02)

 +258     ;;59115012305

 +259     ;;9002226.02101,"1033,59115012350 ",.01)

 +260     ;;59115012350

 +261     ;;9002226.02101,"1033,59115012350 ",.02)

 +262     ;;59115012350

 +263     ;;9002226.02101,"1033,59214010606 ",.01)

 +264     ;;59214010606

 +265     ;;9002226.02101,"1033,59214010606 ",.02)

 +266     ;;59214010606

 +267     ;;9002226.02101,"1033,59214083901 ",.01)

 +268     ;;59214083901

 +269     ;;9002226.02101,"1033,59214083901 ",.02)

 +270     ;;59214083901

 +271     ;;9002226.02101,"1033,59214252201 ",.01)

 +272     ;;59214252201

 +273     ;;9002226.02101,"1033,59214252201 ",.02)

 +274     ;;59214252201

 +275     ;;9002226.02101,"1033,59366271306 ",.01)

 +276     ;;59366271306

 +277     ;;9002226.02101,"1033,59366271306 ",.02)

 +278     ;;59366271306

 +279     ;;9002226.02101,"1033,59366285206 ",.01)

 +280     ;;59366285206

 +281     ;;9002226.02101,"1033,59366285206 ",.02)

 +282     ;;59366285206

 +283     ;;9002226.02101,"1033,59453009201 ",.01)

 +284     ;;59453009201

 +285     ;;9002226.02101,"1033,59453009201 ",.02)

 +286     ;;59453009201

 +287     ;;9002226.02101,"1033,59453013001 ",.01)

 +288     ;;59453013001

 +289     ;;9002226.02101,"1033,59453013001 ",.02)

 +290     ;;59453013001

 +291     ;;9002226.02101,"1033,59564019905 ",.01)

 +292     ;;59564019905

 +293     ;;9002226.02101,"1033,59564019905 ",.02)

 +294     ;;59564019905

 +295     ;;9002226.02101,"1033,59564019910 ",.01)

 +296     ;;59564019910

 +297     ;;9002226.02101,"1033,59564019910 ",.02)

 +298     ;;59564019910

 +299     ;;9002226.02101,"1033,59564019911 ",.01)

 +300     ;;59564019911

 +301     ;;9002226.02101,"1033,59564019911 ",.02)

 +302     ;;59564019911

 +303     ;;9002226.02101,"1033,59564019914 ",.01)

 +304     ;;59564019914

 +305     ;;9002226.02101,"1033,59564019914 ",.02)

 +306     ;;59564019914

 +307     ;;9002226.02101,"1033,59564019928 ",.01)

 +308     ;;59564019928

 +309     ;;9002226.02101,"1033,59564019928 ",.02)

 +310     ;;59564019928

 +311     ;;9002226.02101,"1033,59762001601 ",.01)

 +312     ;;59762001601

 +313     ;;9002226.02101,"1033,59762001601 ",.02)

 +314     ;;59762001601

 +315     ;;9002226.02101,"1033,59762028003 ",.01)

 +316     ;;59762028003

 +317     ;;9002226.02101,"1033,59762028003 ",.02)

 +318     ;;59762028003

 +319     ;;9002226.02101,"1033,59762040902 ",.01)

 +320     ;;59762040902

 +321     ;;9002226.02101,"1033,59762040902 ",.02)

 +322     ;;59762040902

 +323     ;;9002226.02101,"1033,59762040904 ",.01)

 +324     ;;59762040904

 +325     ;;9002226.02101,"1033,59762040904 ",.02)

 +326     ;;59762040904

 +327     ;;9002226.02101,"1033,59762040907 ",.01)

 +328     ;;59762040907

 +329     ;;9002226.02101,"1033,59762040907 ",.02)

 +330     ;;59762040907

 +331     ;;9002226.02101,"1033,59762102001 ",.01)

 +332     ;;59762102001

 +333     ;;9002226.02101,"1033,59762102001 ",.02)

 +334     ;;59762102001

 +335     ;;9002226.02101,"1033,59762102003 ",.01)

 +336     ;;59762102003

 +337     ;;9002226.02101,"1033,59762102003 ",.02)

 +338     ;;59762102003

 +339     ;;9002226.02101,"1033,59762102101 ",.01)

 +340     ;;59762102101

 +341     ;;9002226.02101,"1033,59762102101 ",.02)

 +342     ;;59762102101

 +343     ;;9002226.02101,"1033,59762102107 ",.01)

 +344     ;;59762102107

 +345     ;;9002226.02101,"1033,59762102107 ",.02)

 +346     ;;59762102107

 +347     ;;9002226.02101,"1033,59762102202 ",.01)

 +348     ;;59762102202

 +349     ;;9002226.02101,"1033,59762102202 ",.02)

 +350     ;;59762102202

 +351     ;;9002226.02101,"1033,59762102204 ",.01)

 +352     ;;59762102204

 +353     ;;9002226.02101,"1033,59762102204 ",.02)

 +354     ;;59762102204

 +355     ;;9002226.02101,"1033,59762102207 ",.01)

 +356     ;;59762102207

 +357     ;;9002226.02101,"1033,59762102207 ",.02)

 +358     ;;59762102207

 +359     ;;9002226.02101,"1033,59762102304 ",.01)

 +360     ;;59762102304

 +361     ;;9002226.02101,"1033,59762102304 ",.02)

 +362     ;;59762102304

 +363     ;;9002226.02101,"1033,59762102305 ",.01)

 +364     ;;59762102305

 +365     ;;9002226.02101,"1033,59762102305 ",.02)

 +366     ;;59762102305

 +367     ;;9002226.02101,"1033,59762102306 ",.01)

 +368     ;;59762102306

 +369     ;;9002226.02101,"1033,59762102306 ",.02)

 +370     ;;59762102306

 +371     ;;9002226.02101,"1033,59762105002 ",.01)

 +372     ;;59762105002

 +373     ;;9002226.02101,"1033,59762105002 ",.02)

 +374     ;;59762105002

 +375     ;;9002226.02101,"1033,59762105005 ",.01)

 +376     ;;59762105005

 +377     ;;9002226.02101,"1033,59762105005 ",.02)

 +378     ;;59762105005

 +379     ;;9002226.02101,"1033,59762108101 ",.01)

 +380     ;;59762108101

 +381     ;;9002226.02101,"1033,59762108101 ",.02)

 +382     ;;59762108101

 +383     ;;9002226.02101,"1033,59762108102 ",.01)

 +384     ;;59762108102

 +385     ;;9002226.02101,"1033,59762108102 ",.02)

 +386     ;;59762108102

 +387     ;;9002226.02101,"1033,59762108301 ",.01)

 +388     ;;59762108301

 +389     ;;9002226.02101,"1033,59762108301 ",.02)

 +390     ;;59762108301

 +391     ;;9002226.02101,"1033,59762108302 ",.01)

 +392     ;;59762108302

 +393     ;;9002226.02101,"1033,59762108302 ",.02)

 +394     ;;59762108302

 +395     ;;9002226.02101,"1033,59762153401 ",.01)

 +396     ;;59762153401

 +397     ;;9002226.02101,"1033,59762153401 ",.02)

 +398     ;;59762153401

 +399     ;;9002226.02101,"1033,59762153402 ",.01)

 +400     ;;59762153402

 +401     ;;9002226.02101,"1033,59762153402 ",.02)

 +402     ;;59762153402

BGPM5AWC.m