Routine: BGPM3AEK

BGPM3AEK ;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)

 ;;21,"52584054201 ")

 ;;210

 ;;21,"52584058102 ")

 ;;275

 ;;21,"52958032004 ")

 ;;28

 ;;21,"52958033008 ")

 ;;118

 ;;21,"52958033012 ")

 ;;119

 ;;21,"52958034012 ")

 ;;361

 ;;21,"53792014004 ")

 ;;318

 ;;21,"53978205207 ")

 ;;362

 ;;21,"55154014105 ")

 ;;211

 ;;21,"55154236205 ")

 ;;29

 ;;21,"55154239705 ")

 ;;212

 ;;21,"55154420507 ")

 ;;213

 ;;21,"55154510105 ")

 ;;214

 ;;21,"55154510107 ")

 ;;215

 ;;21,"55154510305 ")

 ;;363

 ;;21,"55154510307 ")

 ;;364

 ;;21,"55154510905 ")

 ;;30

 ;;21,"55154512205 ")

 ;;120

 ;;21,"55154512207 ")

 ;;121

 ;;21,"55154512605 ")

 ;;122

 ;;21,"55154870107 ")

 ;;365

 ;;21,"55154935105 ")

 ;;281

 ;;21,"55154935305 ")

 ;;31

 ;;21,"55154935405 ")

 ;;366

 ;;21,"55154935505 ")

 ;;32

 ;;21,"55154935905 ")

 ;;216

 ;;21,"55154936005 ")

 ;;123

 ;;21,"55154937305 ")

 ;;124

 ;;21,"55154937705 ")

 ;;125

 ;;21,"62338313701 ")

 ;;33

 ;;21,"62338332701 ")

 ;;34

 ;;21,"62338352701 ")

 ;;35

 ;;21,"62338510503 ")

 ;;126

 ;;21,"62338521303 ")

 ;;127

 ;;21,"62584038342 ")

 ;;217

 ;;21,"62584038845 ")

 ;;367

 ;;21,"63323003810 ")

 ;;128

 ;;21,"63323003830 ")

 ;;129

 ;;21,"63323004710 ")

 ;;368

 ;;21,"63323026201 ")

 ;;369

 ;;21,"63323026255 ")

 ;;370

 ;;21,"63323027602 ")

 ;;130

 ;;21,"63323054001 ")

 ;;131

 ;;21,"63323054011 ")

 ;;132

 ;;21,"63323054031 ")

 ;;133

 ;;21,"63323054057 ")

 ;;134

 ;;21,"63323054201 ")

 ;;218

 ;;21,"63323054207 ")

 ;;219

 ;;21,"63323054501 ")

 ;;36

 ;;21,"63323054505 ")

 ;;37

 ;;21,"63323091501 ")

 ;;282

 ;;21,"63807060050 ")

 ;;38

 ;;21,"64054100302 ")

 ;;39

 ;;21,"64253033301 ")

 ;;40

 ;;21,"64253033352 ")

 ;;41

 ;;21,"64579004301 ")

 ;;371

 ;;21,"64579004325 ")

 ;;372

 ;;9002226,799,.01)

 ;;BGPMU VTE ANTICOAG NDCS

 ;;9002226,799,.02)

 ;;Drug Anticoag NDC codes

 ;;9002226,799,.04)

;;@

 ;;9002226,799,.06)

;;@

 ;;9002226,799,.08)

;;@

 ;;9002226,799,.09)

;;@

 ;;9002226,799,.11)

;;@

 ;;9002226,799,.12)

;;@

 ;;9002226,799,.13)

;;@

 ;;9002226,799,.14)

;;@

 ;;9002226,799,.15)

;;@

 ;;9002226,799,.16)

;;@

 ;;9002226,799,.17)

;;@

 ;;9002226,799,3101)

;;@

 ;;9002226.02101,"799,00002721601 ",.01)

 ;;00002721601

 ;;9002226.02101,"799,00002721601 ",.02)

 ;;00002721601

 ;;9002226.02101,"799,00002721701 ",.01)

 ;;00002721701

 ;;9002226.02101,"799,00002721701 ",.02)

 ;;00002721701

 ;;9002226.02101,"799,00003296320 ",.01)

 ;;00003296320

 ;;9002226.02101,"799,00003296320 ",.02)

 ;;00003296320

 ;;9002226.02101,"799,00007440701 ",.01)

 ;;00007440701

 ;;9002226.02101,"799,00007440701 ",.02)

 ;;00007440701

 ;;9002226.02101,"799,00007440754 ",.01)

 ;;00007440754

 ;;9002226.02101,"799,00007440754 ",.02)

 ;;00007440754

 ;;9002226.02101,"799,00008027501 ",.01)

 ;;00008027501

 ;;9002226.02101,"799,00008027501 ",.02)

 ;;00008027501

 ;;9002226.02101,"799,00008027502 ",.01)

 ;;00008027502

 ;;9002226.02101,"799,00008027502 ",.02)

 ;;00008027502

 ;;9002226.02101,"799,00008027550 ",.01)

 ;;00008027550

 ;;9002226.02101,"799,00008027550 ",.02)

 ;;00008027550

 ;;9002226.02101,"799,00008027601 ",.01)

 ;;00008027601

 ;;9002226.02101,"799,00008027601 ",.02)

 ;;00008027601

 ;;9002226.02101,"799,00008027701 ",.01)

 ;;00008027701

 ;;9002226.02101,"799,00008027701 ",.02)

 ;;00008027701

 ;;9002226.02101,"799,00008027702 ",.01)

 ;;00008027702

 ;;9002226.02101,"799,00008027702 ",.02)

 ;;00008027702

 ;;9002226.02101,"799,00008027703 ",.01)

 ;;00008027703

 ;;9002226.02101,"799,00008027703 ",.02)

 ;;00008027703

 ;;9002226.02101,"799,00008027801 ",.01)

 ;;00008027801

 ;;9002226.02101,"799,00008027801 ",.02)

 ;;00008027801

 ;;9002226.02101,"799,00008027802 ",.01)

 ;;00008027802

 ;;9002226.02101,"799,00008027802 ",.02)

 ;;00008027802

 ;;9002226.02101,"799,00008029301 ",.01)

 ;;00008029301

 ;;9002226.02101,"799,00008029301 ",.02)

 ;;00008029301

 ;;9002226.02101,"799,00008048201 ",.01)

 ;;00008048201

 ;;9002226.02101,"799,00008048201 ",.02)

 ;;00008048201

 ;;9002226.02101,"799,00008048701 ",.01)

 ;;00008048701

 ;;9002226.02101,"799,00008048701 ",.02)

 ;;00008048701

 ;;9002226.02101,"799,00008048703 ",.01)

 ;;00008048703

 ;;9002226.02101,"799,00008048703 ",.02)

 ;;00008048703

 ;;9002226.02101,"799,00008252901 ",.01)

 ;;00008252901

 ;;9002226.02101,"799,00008252901 ",.02)

 ;;00008252901

 ;;9002226.02101,"799,00008252902 ",.01)

 ;;00008252902

 ;;9002226.02101,"799,00008252902 ",.02)

 ;;00008252902

 ;;9002226.02101,"799,00008252903 ",.01)

 ;;00008252903

 ;;9002226.02101,"799,00008252903 ",.02)

 ;;00008252903

 ;;9002226.02101,"799,00008252950 ",.01)

 ;;00008252950

 ;;9002226.02101,"799,00008252950 ",.02)

 ;;00008252950

 ;;9002226.02101,"799,00008252951 ",.01)

 ;;00008252951

 ;;9002226.02101,"799,00008252951 ",.02)

 ;;00008252951

 ;;9002226.02101,"799,00008252952 ",.01)

 ;;00008252952

 ;;9002226.02101,"799,00008252952 ",.02)

 ;;00008252952

 ;;9002226.02101,"799,00009026801 ",.01)

 ;;00009026801

 ;;9002226.02101,"799,00009026801 ",.02)

 ;;00009026801

 ;;9002226.02101,"799,00009026802 ",.01)

 ;;00009026802

 ;;9002226.02101,"799,00009026802 ",.02)

 ;;00009026802

 ;;9002226.02101,"799,00009026807 ",.01)

 ;;00009026807

 ;;9002226.02101,"799,00009026807 ",.02)

 ;;00009026807

 ;;9002226.02101,"799,00009026812 ",.01)

 ;;00009026812

 ;;9002226.02101,"799,00009026812 ",.02)

 ;;00009026812

 ;;9002226.02101,"799,00009029101 ",.01)

 ;;00009029101

 ;;9002226.02101,"799,00009029101 ",.02)

 ;;00009029101

 ;;9002226.02101,"799,00009029102 ",.01)

 ;;00009029102

 ;;9002226.02101,"799,00009029102 ",.02)

 ;;00009029102

 ;;9002226.02101,"799,00009031701 ",.01)

 ;;00009031701

 ;;9002226.02101,"799,00009031701 ",.02)

 ;;00009031701

 ;;9002226.02101,"799,00009031702 ",.01)

 ;;00009031702

 ;;9002226.02101,"799,00009031702 ",.02)

 ;;00009031702

 ;;9002226.02101,"799,00009031708 ",.01)

 ;;00009031708

 ;;9002226.02101,"799,00009031708 ",.02)

 ;;00009031708

 ;;9002226.02101,"799,00009031709 ",.01)

 ;;00009031709

 ;;9002226.02101,"799,00009031709 ",.02)

 ;;00009031709

 ;;9002226.02101,"799,00009031710 ",.01)

 ;;00009031710

 ;;9002226.02101,"799,00009031710 ",.02)

 ;;00009031710

 ;;9002226.02101,"799,00009031711 ",.01)

 ;;00009031711

 ;;9002226.02101,"799,00009031711 ",.02)

 ;;00009031711

 ;;9002226.02101,"799,00024072212 ",.01)

 ;;00024072212

 ;;9002226.02101,"799,00024072212 ",.02)

 ;;00024072212

 ;;9002226.02101,"799,00024072213 ",.01)

 ;;00024072213

 ;;9002226.02101,"799,00024072213 ",.02)

 ;;00024072213

 ;;9002226.02101,"799,00024072216 ",.01)

 ;;00024072216

 ;;9002226.02101,"799,00024072216 ",.02)

 ;;00024072216

 ;;9002226.02101,"799,00024072217 ",.01)

 ;;00024072217

 ;;9002226.02101,"799,00024072217 ",.02)

 ;;00024072217

 ;;9002226.02101,"799,00024072233 ",.01)

 ;;00024072233

 ;;9002226.02101,"799,00024072233 ",.02)

 ;;00024072233

 ;;9002226.02101,"799,00024073302 ",.01)

 ;;00024073302

 ;;9002226.02101,"799,00024073302 ",.02)

 ;;00024073302

 ;;9002226.02101,"799,00024073303 ",.01)

 ;;00024073303

 ;;9002226.02101,"799,00024073303 ",.02)

 ;;00024073303

 ;;9002226.02101,"799,00024073304 ",.01)

 ;;00024073304

 ;;9002226.02101,"799,00024073304 ",.02)

 ;;00024073304

 ;;9002226.02101,"799,00024073305 ",.01)

 ;;00024073305

 ;;9002226.02101,"799,00024073305 ",.02)

 ;;00024073305

 ;;9002226.02101,"799,00024073312 ",.01)

 ;;00024073312

 ;;9002226.02101,"799,00024073312 ",.02)

 ;;00024073312

 ;;9002226.02101,"799,00024073357 ",.01)

 ;;00024073357

 ;;9002226.02101,"799,00024073357 ",.02)

 ;;00024073357

 ;;9002226.02101,"799,00024074212 ",.01)

 ;;00024074212

 ;;9002226.02101,"799,00024074212 ",.02)

 ;;00024074212

 ;;9002226.02101,"799,00052081110 ",.01)

 ;;00052081110

 ;;9002226.02101,"799,00052081110 ",.02)

 ;;00052081110

 ;;9002226.02101,"799,00052081175 ",.01)

 ;;00052081175

 ;;9002226.02101,"799,00052081175 ",.02)

 ;;00052081175

 ;;9002226.02101,"799,00052081210 ",.01)

 ;;00052081210

 ;;9002226.02101,"799,00052081210 ",.02)

 ;;00052081210

 ;;9002226.02101,"799,00052081225 ",.01)

 ;;00052081225

 ;;9002226.02101,"799,00052081225 ",.02)

 ;;00052081225

 ;;9002226.02101,"799,00052081250 ",.01)

 ;;00052081250

 ;;9002226.02101,"799,00052081250 ",.02)

 ;;00052081250

 ;;9002226.02101,"799,00052081302 ",.01)

 ;;00052081302

 ;;9002226.02101,"799,00052081302 ",.02)

 ;;00052081302

 ;;9002226.02101,"799,00052081305 ",.01)

 ;;00052081305

 ;;9002226.02101,"799,00052081305 ",.02)

 ;;00052081305

 ;;9002226.02101,"799,00052081325 ",.01)

 ;;00052081325

 ;;9002226.02101,"799,00052081325 ",.02)

 ;;00052081325

 ;;9002226.02101,"799,00052081504 ",.01)

 ;;00052081504

 ;;9002226.02101,"799,00052081504 ",.02)

 ;;00052081504

 ;;9002226.02101,"799,00052081525 ",.01)

 ;;00052081525

 ;;9002226.02101,"799,00052081525 ",.02)

 ;;00052081525

 ;;9002226.02101,"799,00052081550 ",.01)

 ;;00052081550

 ;;9002226.02101,"799,00052081550 ",.02)

 ;;00052081550

 ;;9002226.02101,"799,00052081625 ",.01)

 ;;00052081625

 ;;9002226.02101,"799,00052081625 ",.02)

 ;;00052081625

 ;;9002226.02101,"799,00056003002 ",.01)

 ;;00056003002

 ;;9002226.02101,"799,00056003002 ",.02)

 ;;00056003002

 ;;9002226.02101,"799,00074115212 ",.01)

 ;;00074115212

 ;;9002226.02101,"799,00074115212 ",.02)

 ;;00074115212

 ;;9002226.02101,"799,00074115214 ",.01)

 ;;00074115214

 ;;9002226.02101,"799,00074115214 ",.02)

 ;;00074115214

 ;;9002226.02101,"799,00074115270 ",.01)

 ;;00074115270

 ;;9002226.02101,"799,00074115270 ",.02)

 ;;00074115270

 ;;9002226.02101,"799,00074115271 ",.01)

 ;;00074115271

 ;;9002226.02101,"799,00074115271 ",.02)

 ;;00074115271

 ;;9002226.02101,"799,00074115273 ",.01)

 ;;00074115273

 ;;9002226.02101,"799,00074115273 ",.02)

 ;;00074115273

 ;;9002226.02101,"799,00074115278 ",.01)

 ;;00074115278

 ;;9002226.02101,"799,00074115278 ",.02)

 ;;00074115278

 ;;9002226.02101,"799,00074128125 ",.01)

 ;;00074128125

 ;;9002226.02101,"799,00074128125 ",.02)

 ;;00074128125

 ;;9002226.02101,"799,00074131602 ",.01)

 ;;00074131602

 ;;9002226.02101,"799,00074131602 ",.02)

 ;;00074131602

 ;;9002226.02101,"799,00074131613 ",.01)

 ;;00074131613

 ;;9002226.02101,"799,00074131613 ",.02)

 ;;00074131613

 ;;9002226.02101,"799,00074131614 ",.01)

 ;;00074131614

 ;;9002226.02101,"799,00074131614 ",.02)

 ;;00074131614

 ;;9002226.02101,"799,00074131632 ",.01)

 ;;00074131632

 ;;9002226.02101,"799,00074131632 ",.02)

 ;;00074131632

 ;;9002226.02101,"799,00074131666 ",.01)

 ;;00074131666

 ;;9002226.02101,"799,00074131666 ",.02)

 ;;00074131666

 ;;9002226.02101,"799,00074140201 ",.01)

 ;;00074140201

 ;;9002226.02101,"799,00074140201 ",.02)

 ;;00074140201

 ;;9002226.02101,"799,00074140211 ",.01)

 ;;00074140211

 ;;9002226.02101,"799,00074140211 ",.02)

 ;;00074140211

 ;;9002226.02101,"799,00074140231 ",.01)

 ;;00074140231

 ;;9002226.02101,"799,00074140231 ",.02)

 ;;00074140231

 ;;9002226.02101,"799,00074258202 ",.01)

 ;;00074258202

 ;;9002226.02101,"799,00074258202 ",.02)

 ;;00074258202

 ;;9002226.02101,"799,00074258302 ",.01)

 ;;00074258302

 ;;9002226.02101,"799,00074258302 ",.02)

 ;;00074258302

 ;;9002226.02101,"799,00074258402 ",.01)

 ;;00074258402

 ;;9002226.02101,"799,00074258402 ",.02)

 ;;00074258402

 ;;9002226.02101,"799,00074628602 ",.01)

 ;;00074628602

 ;;9002226.02101,"799,00074628602 ",.02)

 ;;00074628602

 ;;9002226.02101,"799,00074628611 ",.01)

 ;;00074628611

 ;;9002226.02101,"799,00074628611 ",.02)

 ;;00074628611

 ;;9002226.02101,"799,00074628702 ",.01)

 ;;00074628702

 ;;9002226.02101,"799,00074628702 ",.02)

 ;;00074628702

 ;;9002226.02101,"799,00074628703 ",.01)

 ;;00074628703

BGPM3AEK  ;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       ;;21,"52584054201 ")

 +2       ;;210

 +3       ;;21,"52584058102 ")

 +4       ;;275

 +5       ;;21,"52958032004 ")

 +6       ;;28

 +7       ;;21,"52958033008 ")

 +8       ;;118

 +9       ;;21,"52958033012 ")

 +10      ;;119

 +11      ;;21,"52958034012 ")

 +12      ;;361

 +13      ;;21,"53792014004 ")

 +14      ;;318

 +15      ;;21,"53978205207 ")

 +16      ;;362

 +17      ;;21,"55154014105 ")

 +18      ;;211

 +19      ;;21,"55154236205 ")

 +20      ;;29

 +21      ;;21,"55154239705 ")

 +22      ;;212

 +23      ;;21,"55154420507 ")

 +24      ;;213

 +25      ;;21,"55154510105 ")

 +26      ;;214

 +27      ;;21,"55154510107 ")

 +28      ;;215

 +29      ;;21,"55154510305 ")

 +30      ;;363

 +31      ;;21,"55154510307 ")

 +32      ;;364

 +33      ;;21,"55154510905 ")

 +34      ;;30

 +35      ;;21,"55154512205 ")

 +36      ;;120

 +37      ;;21,"55154512207 ")

 +38      ;;121

 +39      ;;21,"55154512605 ")

 +40      ;;122

 +41      ;;21,"55154870107 ")

 +42      ;;365

 +43      ;;21,"55154935105 ")

 +44      ;;281

 +45      ;;21,"55154935305 ")

 +46      ;;31

 +47      ;;21,"55154935405 ")

 +48      ;;366

 +49      ;;21,"55154935505 ")

 +50      ;;32

 +51      ;;21,"55154935905 ")

 +52      ;;216

 +53      ;;21,"55154936005 ")

 +54      ;;123

 +55      ;;21,"55154937305 ")

 +56      ;;124

 +57      ;;21,"55154937705 ")

 +58      ;;125

 +59      ;;21,"62338313701 ")

 +60      ;;33

 +61      ;;21,"62338332701 ")

 +62      ;;34

 +63      ;;21,"62338352701 ")

 +64      ;;35

 +65      ;;21,"62338510503 ")

 +66      ;;126

 +67      ;;21,"62338521303 ")

 +68      ;;127

 +69      ;;21,"62584038342 ")

 +70      ;;217

 +71      ;;21,"62584038845 ")

 +72      ;;367

 +73      ;;21,"63323003810 ")

 +74      ;;128

 +75      ;;21,"63323003830 ")

 +76      ;;129

 +77      ;;21,"63323004710 ")

 +78      ;;368

 +79      ;;21,"63323026201 ")

 +80      ;;369

 +81      ;;21,"63323026255 ")

 +82      ;;370

 +83      ;;21,"63323027602 ")

 +84      ;;130

 +85      ;;21,"63323054001 ")

 +86      ;;131

 +87      ;;21,"63323054011 ")

 +88      ;;132

 +89      ;;21,"63323054031 ")

 +90      ;;133

 +91      ;;21,"63323054057 ")

 +92      ;;134

 +93      ;;21,"63323054201 ")

 +94      ;;218

 +95      ;;21,"63323054207 ")

 +96      ;;219

 +97      ;;21,"63323054501 ")

 +98      ;;36

 +99      ;;21,"63323054505 ")

 +100     ;;37

 +101     ;;21,"63323091501 ")

 +102     ;;282

 +103     ;;21,"63807060050 ")

 +104     ;;38

 +105     ;;21,"64054100302 ")

 +106     ;;39

 +107     ;;21,"64253033301 ")

 +108     ;;40

 +109     ;;21,"64253033352 ")

 +110     ;;41

 +111     ;;21,"64579004301 ")

 +112     ;;371

 +113     ;;21,"64579004325 ")

 +114     ;;372

 +115     ;;9002226,799,.01)

 +116     ;;BGPMU VTE ANTICOAG NDCS

 +117     ;;9002226,799,.02)

 +118     ;;Drug Anticoag NDC codes

 +119     ;;9002226,799,.04)

 +120     ;;@

 +121     ;;9002226,799,.06)

 +122     ;;@

 +123     ;;9002226,799,.08)

 +124     ;;@

 +125     ;;9002226,799,.09)

 +126     ;;@

 +127     ;;9002226,799,.11)

 +128     ;;@

 +129     ;;9002226,799,.12)

 +130     ;;@

 +131     ;;9002226,799,.13)

 +132     ;;@

 +133     ;;9002226,799,.14)

 +134     ;;@

 +135     ;;9002226,799,.15)

 +136     ;;@

 +137     ;;9002226,799,.16)

 +138     ;;@

 +139     ;;9002226,799,.17)

 +140     ;;@

 +141     ;;9002226,799,3101)

 +142     ;;@

 +143     ;;9002226.02101,"799,00002721601 ",.01)

 +144     ;;00002721601

 +145     ;;9002226.02101,"799,00002721601 ",.02)

 +146     ;;00002721601

 +147     ;;9002226.02101,"799,00002721701 ",.01)

 +148     ;;00002721701

 +149     ;;9002226.02101,"799,00002721701 ",.02)

 +150     ;;00002721701

 +151     ;;9002226.02101,"799,00003296320 ",.01)

 +152     ;;00003296320

 +153     ;;9002226.02101,"799,00003296320 ",.02)

 +154     ;;00003296320

 +155     ;;9002226.02101,"799,00007440701 ",.01)

 +156     ;;00007440701

 +157     ;;9002226.02101,"799,00007440701 ",.02)

 +158     ;;00007440701

 +159     ;;9002226.02101,"799,00007440754 ",.01)

 +160     ;;00007440754

 +161     ;;9002226.02101,"799,00007440754 ",.02)

 +162     ;;00007440754

 +163     ;;9002226.02101,"799,00008027501 ",.01)

 +164     ;;00008027501

 +165     ;;9002226.02101,"799,00008027501 ",.02)

 +166     ;;00008027501

 +167     ;;9002226.02101,"799,00008027502 ",.01)

 +168     ;;00008027502

 +169     ;;9002226.02101,"799,00008027502 ",.02)

 +170     ;;00008027502

 +171     ;;9002226.02101,"799,00008027550 ",.01)

 +172     ;;00008027550

 +173     ;;9002226.02101,"799,00008027550 ",.02)

 +174     ;;00008027550

 +175     ;;9002226.02101,"799,00008027601 ",.01)

 +176     ;;00008027601

 +177     ;;9002226.02101,"799,00008027601 ",.02)

 +178     ;;00008027601

 +179     ;;9002226.02101,"799,00008027701 ",.01)

 +180     ;;00008027701

 +181     ;;9002226.02101,"799,00008027701 ",.02)

 +182     ;;00008027701

 +183     ;;9002226.02101,"799,00008027702 ",.01)

 +184     ;;00008027702

 +185     ;;9002226.02101,"799,00008027702 ",.02)

 +186     ;;00008027702

 +187     ;;9002226.02101,"799,00008027703 ",.01)

 +188     ;;00008027703

 +189     ;;9002226.02101,"799,00008027703 ",.02)

 +190     ;;00008027703

 +191     ;;9002226.02101,"799,00008027801 ",.01)

 +192     ;;00008027801

 +193     ;;9002226.02101,"799,00008027801 ",.02)

 +194     ;;00008027801

 +195     ;;9002226.02101,"799,00008027802 ",.01)

 +196     ;;00008027802

 +197     ;;9002226.02101,"799,00008027802 ",.02)

 +198     ;;00008027802

 +199     ;;9002226.02101,"799,00008029301 ",.01)

 +200     ;;00008029301

 +201     ;;9002226.02101,"799,00008029301 ",.02)

 +202     ;;00008029301

 +203     ;;9002226.02101,"799,00008048201 ",.01)

 +204     ;;00008048201

 +205     ;;9002226.02101,"799,00008048201 ",.02)

 +206     ;;00008048201

 +207     ;;9002226.02101,"799,00008048701 ",.01)

 +208     ;;00008048701

 +209     ;;9002226.02101,"799,00008048701 ",.02)

 +210     ;;00008048701

 +211     ;;9002226.02101,"799,00008048703 ",.01)

 +212     ;;00008048703

 +213     ;;9002226.02101,"799,00008048703 ",.02)

 +214     ;;00008048703

 +215     ;;9002226.02101,"799,00008252901 ",.01)

 +216     ;;00008252901

 +217     ;;9002226.02101,"799,00008252901 ",.02)

 +218     ;;00008252901

 +219     ;;9002226.02101,"799,00008252902 ",.01)

 +220     ;;00008252902

 +221     ;;9002226.02101,"799,00008252902 ",.02)

 +222     ;;00008252902

 +223     ;;9002226.02101,"799,00008252903 ",.01)

 +224     ;;00008252903

 +225     ;;9002226.02101,"799,00008252903 ",.02)

 +226     ;;00008252903

 +227     ;;9002226.02101,"799,00008252950 ",.01)

 +228     ;;00008252950

 +229     ;;9002226.02101,"799,00008252950 ",.02)

 +230     ;;00008252950

 +231     ;;9002226.02101,"799,00008252951 ",.01)

 +232     ;;00008252951

 +233     ;;9002226.02101,"799,00008252951 ",.02)

 +234     ;;00008252951

 +235     ;;9002226.02101,"799,00008252952 ",.01)

 +236     ;;00008252952

 +237     ;;9002226.02101,"799,00008252952 ",.02)

 +238     ;;00008252952

 +239     ;;9002226.02101,"799,00009026801 ",.01)

 +240     ;;00009026801

 +241     ;;9002226.02101,"799,00009026801 ",.02)

 +242     ;;00009026801

 +243     ;;9002226.02101,"799,00009026802 ",.01)

 +244     ;;00009026802

 +245     ;;9002226.02101,"799,00009026802 ",.02)

 +246     ;;00009026802

 +247     ;;9002226.02101,"799,00009026807 ",.01)

 +248     ;;00009026807

 +249     ;;9002226.02101,"799,00009026807 ",.02)

 +250     ;;00009026807

 +251     ;;9002226.02101,"799,00009026812 ",.01)

 +252     ;;00009026812

 +253     ;;9002226.02101,"799,00009026812 ",.02)

 +254     ;;00009026812

 +255     ;;9002226.02101,"799,00009029101 ",.01)

 +256     ;;00009029101

 +257     ;;9002226.02101,"799,00009029101 ",.02)

 +258     ;;00009029101

 +259     ;;9002226.02101,"799,00009029102 ",.01)

 +260     ;;00009029102

 +261     ;;9002226.02101,"799,00009029102 ",.02)

 +262     ;;00009029102

 +263     ;;9002226.02101,"799,00009031701 ",.01)

 +264     ;;00009031701

 +265     ;;9002226.02101,"799,00009031701 ",.02)

 +266     ;;00009031701

 +267     ;;9002226.02101,"799,00009031702 ",.01)

 +268     ;;00009031702

 +269     ;;9002226.02101,"799,00009031702 ",.02)

 +270     ;;00009031702

 +271     ;;9002226.02101,"799,00009031708 ",.01)

 +272     ;;00009031708

 +273     ;;9002226.02101,"799,00009031708 ",.02)

 +274     ;;00009031708

 +275     ;;9002226.02101,"799,00009031709 ",.01)

 +276     ;;00009031709

 +277     ;;9002226.02101,"799,00009031709 ",.02)

 +278     ;;00009031709

 +279     ;;9002226.02101,"799,00009031710 ",.01)

 +280     ;;00009031710

 +281     ;;9002226.02101,"799,00009031710 ",.02)

 +282     ;;00009031710

 +283     ;;9002226.02101,"799,00009031711 ",.01)

 +284     ;;00009031711

 +285     ;;9002226.02101,"799,00009031711 ",.02)

 +286     ;;00009031711

 +287     ;;9002226.02101,"799,00024072212 ",.01)

 +288     ;;00024072212

 +289     ;;9002226.02101,"799,00024072212 ",.02)

 +290     ;;00024072212

 +291     ;;9002226.02101,"799,00024072213 ",.01)

 +292     ;;00024072213

 +293     ;;9002226.02101,"799,00024072213 ",.02)

 +294     ;;00024072213

 +295     ;;9002226.02101,"799,00024072216 ",.01)

 +296     ;;00024072216

 +297     ;;9002226.02101,"799,00024072216 ",.02)

 +298     ;;00024072216

 +299     ;;9002226.02101,"799,00024072217 ",.01)

 +300     ;;00024072217

 +301     ;;9002226.02101,"799,00024072217 ",.02)

 +302     ;;00024072217

 +303     ;;9002226.02101,"799,00024072233 ",.01)

 +304     ;;00024072233

 +305     ;;9002226.02101,"799,00024072233 ",.02)

 +306     ;;00024072233

 +307     ;;9002226.02101,"799,00024073302 ",.01)

 +308     ;;00024073302

 +309     ;;9002226.02101,"799,00024073302 ",.02)

 +310     ;;00024073302

 +311     ;;9002226.02101,"799,00024073303 ",.01)

 +312     ;;00024073303

 +313     ;;9002226.02101,"799,00024073303 ",.02)

 +314     ;;00024073303

 +315     ;;9002226.02101,"799,00024073304 ",.01)

 +316     ;;00024073304

 +317     ;;9002226.02101,"799,00024073304 ",.02)

 +318     ;;00024073304

 +319     ;;9002226.02101,"799,00024073305 ",.01)

 +320     ;;00024073305

 +321     ;;9002226.02101,"799,00024073305 ",.02)

 +322     ;;00024073305

 +323     ;;9002226.02101,"799,00024073312 ",.01)

 +324     ;;00024073312

 +325     ;;9002226.02101,"799,00024073312 ",.02)

 +326     ;;00024073312

 +327     ;;9002226.02101,"799,00024073357 ",.01)

 +328     ;;00024073357

 +329     ;;9002226.02101,"799,00024073357 ",.02)

 +330     ;;00024073357

 +331     ;;9002226.02101,"799,00024074212 ",.01)

 +332     ;;00024074212

 +333     ;;9002226.02101,"799,00024074212 ",.02)

 +334     ;;00024074212

 +335     ;;9002226.02101,"799,00052081110 ",.01)

 +336     ;;00052081110

 +337     ;;9002226.02101,"799,00052081110 ",.02)

 +338     ;;00052081110

 +339     ;;9002226.02101,"799,00052081175 ",.01)

 +340     ;;00052081175

 +341     ;;9002226.02101,"799,00052081175 ",.02)

 +342     ;;00052081175

 +343     ;;9002226.02101,"799,00052081210 ",.01)

 +344     ;;00052081210

 +345     ;;9002226.02101,"799,00052081210 ",.02)

 +346     ;;00052081210

 +347     ;;9002226.02101,"799,00052081225 ",.01)

 +348     ;;00052081225

 +349     ;;9002226.02101,"799,00052081225 ",.02)

 +350     ;;00052081225

 +351     ;;9002226.02101,"799,00052081250 ",.01)

 +352     ;;00052081250

 +353     ;;9002226.02101,"799,00052081250 ",.02)

 +354     ;;00052081250

 +355     ;;9002226.02101,"799,00052081302 ",.01)

 +356     ;;00052081302

 +357     ;;9002226.02101,"799,00052081302 ",.02)

 +358     ;;00052081302

 +359     ;;9002226.02101,"799,00052081305 ",.01)

 +360     ;;00052081305

 +361     ;;9002226.02101,"799,00052081305 ",.02)

 +362     ;;00052081305

 +363     ;;9002226.02101,"799,00052081325 ",.01)

 +364     ;;00052081325

 +365     ;;9002226.02101,"799,00052081325 ",.02)

 +366     ;;00052081325

 +367     ;;9002226.02101,"799,00052081504 ",.01)

 +368     ;;00052081504

 +369     ;;9002226.02101,"799,00052081504 ",.02)

 +370     ;;00052081504

 +371     ;;9002226.02101,"799,00052081525 ",.01)

 +372     ;;00052081525

 +373     ;;9002226.02101,"799,00052081525 ",.02)

 +374     ;;00052081525

 +375     ;;9002226.02101,"799,00052081550 ",.01)

 +376     ;;00052081550

 +377     ;;9002226.02101,"799,00052081550 ",.02)

 +378     ;;00052081550

 +379     ;;9002226.02101,"799,00052081625 ",.01)

 +380     ;;00052081625

 +381     ;;9002226.02101,"799,00052081625 ",.02)

 +382     ;;00052081625

 +383     ;;9002226.02101,"799,00056003002 ",.01)

 +384     ;;00056003002

 +385     ;;9002226.02101,"799,00056003002 ",.02)

 +386     ;;00056003002

 +387     ;;9002226.02101,"799,00074115212 ",.01)

 +388     ;;00074115212

 +389     ;;9002226.02101,"799,00074115212 ",.02)

 +390     ;;00074115212

 +391     ;;9002226.02101,"799,00074115214 ",.01)

 +392     ;;00074115214

 +393     ;;9002226.02101,"799,00074115214 ",.02)

 +394     ;;00074115214

 +395     ;;9002226.02101,"799,00074115270 ",.01)

 +396     ;;00074115270

 +397     ;;9002226.02101,"799,00074115270 ",.02)

 +398     ;;00074115270

 +399     ;;9002226.02101,"799,00074115271 ",.01)

 +400     ;;00074115271

 +401     ;;9002226.02101,"799,00074115271 ",.02)

 +402     ;;00074115271

 +403     ;;9002226.02101,"799,00074115273 ",.01)

 +404     ;;00074115273

 +405     ;;9002226.02101,"799,00074115273 ",.02)

 +406     ;;00074115273

 +407     ;;9002226.02101,"799,00074115278 ",.01)

 +408     ;;00074115278

 +409     ;;9002226.02101,"799,00074115278 ",.02)

 +410     ;;00074115278

 +411     ;;9002226.02101,"799,00074128125 ",.01)

 +412     ;;00074128125

 +413     ;;9002226.02101,"799,00074128125 ",.02)

 +414     ;;00074128125

 +415     ;;9002226.02101,"799,00074131602 ",.01)

 +416     ;;00074131602

 +417     ;;9002226.02101,"799,00074131602 ",.02)

 +418     ;;00074131602

 +419     ;;9002226.02101,"799,00074131613 ",.01)

 +420     ;;00074131613

 +421     ;;9002226.02101,"799,00074131613 ",.02)

 +422     ;;00074131613

 +423     ;;9002226.02101,"799,00074131614 ",.01)

 +424     ;;00074131614

 +425     ;;9002226.02101,"799,00074131614 ",.02)

 +426     ;;00074131614

 +427     ;;9002226.02101,"799,00074131632 ",.01)

 +428     ;;00074131632

 +429     ;;9002226.02101,"799,00074131632 ",.02)

 +430     ;;00074131632

 +431     ;;9002226.02101,"799,00074131666 ",.01)

 +432     ;;00074131666

 +433     ;;9002226.02101,"799,00074131666 ",.02)

 +434     ;;00074131666

 +435     ;;9002226.02101,"799,00074140201 ",.01)

 +436     ;;00074140201

 +437     ;;9002226.02101,"799,00074140201 ",.02)

 +438     ;;00074140201

 +439     ;;9002226.02101,"799,00074140211 ",.01)

 +440     ;;00074140211

 +441     ;;9002226.02101,"799,00074140211 ",.02)

 +442     ;;00074140211

 +443     ;;9002226.02101,"799,00074140231 ",.01)

 +444     ;;00074140231

 +445     ;;9002226.02101,"799,00074140231 ",.02)

 +446     ;;00074140231

 +447     ;;9002226.02101,"799,00074258202 ",.01)

 +448     ;;00074258202

 +449     ;;9002226.02101,"799,00074258202 ",.02)

 +450     ;;00074258202

 +451     ;;9002226.02101,"799,00074258302 ",.01)

 +452     ;;00074258302

 +453     ;;9002226.02101,"799,00074258302 ",.02)

 +454     ;;00074258302

 +455     ;;9002226.02101,"799,00074258402 ",.01)

 +456     ;;00074258402

 +457     ;;9002226.02101,"799,00074258402 ",.02)

 +458     ;;00074258402

 +459     ;;9002226.02101,"799,00074628602 ",.01)

 +460     ;;00074628602

 +461     ;;9002226.02101,"799,00074628602 ",.02)

 +462     ;;00074628602

 +463     ;;9002226.02101,"799,00074628611 ",.01)

 +464     ;;00074628611

 +465     ;;9002226.02101,"799,00074628611 ",.02)

 +466     ;;00074628611

 +467     ;;9002226.02101,"799,00074628702 ",.01)

 +468     ;;00074628702

 +469     ;;9002226.02101,"799,00074628702 ",.02)

 +470     ;;00074628702

 +471     ;;9002226.02101,"799,00074628703 ",.01)

 +472     ;;00074628703

BGPM3AEK.m