BGPM3AAT.m

BGPM3AAT ;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

 Q

 ;

TMP ;;TAXONOMY (WITH BULLETIN)

 ;;21,"00247119530 ")

 ;;1077

 ;;21,"00247119550 ")

 ;;1078

 ;;21,"00247127530 ")

 ;;1383

 ;;21,"00247127560 ")

 ;;1384

 ;;21,"00247215000 ")

 ;;856

 ;;21,"00247215030 ")

 ;;857

 ;;21,"00247225203 ")

 ;;1774

 ;;21,"00247225206 ")

 ;;1775

 ;;21,"00247227330 ")

 ;;920

 ;;21,"00247227360 ")

 ;;921

 ;;21,"00257012501 ")

 ;;1312

 ;;21,"00257012601 ")

 ;;1165

 ;;21,"00257016701 ")

 ;;1166

 ;;21,"00264557710 ")

 ;;1266

 ;;21,"00264887710 ")

 ;;1267

 ;;21,"00264956710 ")

 ;;1237

 ;;21,"00264957710 ")

 ;;1268

 ;;21,"00264958720 ")

 ;;999

 ;;21,"00295123601 ")

 ;;503

 ;;21,"00295123625 ")

 ;;504

 ;;21,"00298690861 ")

 ;;1079

 ;;21,"00302820001 ")

 ;;1776

 ;;21,"00302820201 ")

 ;;1904

 ;;21,"00302820401 ")

 ;;2372

 ;;21,"00308618030 ")

 ;;1905

 ;;21,"00308618099 ")

 ;;1906

 ;;21,"00308620030 ")

 ;;2373

 ;;21,"00308620099 ")

 ;;2374

 ;;21,"00338044903 ")

 ;;1238

 ;;21,"00338045003 ")

 ;;1269

 ;;21,"00338045102 ")

 ;;1000

 ;;21,"00338054903 ")

 ;;1239

 ;;21,"00338055002 ")

 ;;1001

 ;;21,"00338055003 ")

 ;;1270

 ;;21,"00339653712 ")

 ;;1530

 ;;21,"00339653812 ")

 ;;1777

 ;;21,"00339653912 ")

 ;;1907

 ;;21,"00339654012 ")

 ;;1999

 ;;21,"00339654112 ")

 ;;2143

 ;;21,"00339654212 ")

 ;;2375

 ;;21,"00339654312 ")

 ;;2449

 ;;21,"00339654412 ")

 ;;2522

 ;;21,"00339654512 ")

 ;;1597

 ;;21,"00349835001 ")

 ;;505

 ;;21,"00349839001 ")

 ;;1908

 ;;21,"00349839101 ")

 ;;2376

 ;;21,"00349839201 ")

 ;;1598

 ;;21,"00349844501 ")

 ;;506

 ;;21,"00349844510 ")

 ;;507

 ;;21,"00349847401 ")

 ;;707

 ;;21,"00349847410 ")

 ;;708

 ;;21,"00349878401 ")

 ;;726

 ;;21,"00353201701 ")

 ;;508

 ;;21,"00363015712 ")

 ;;509

 ;;21,"00363015714 ")

 ;;510

 ;;21,"00363015716 ")

 ;;511

 ;;21,"00363015717 ")

 ;;512

 ;;21,"00363018330 ")

 ;;513

 ;;21,"00363021807 ")

 ;;792

 ;;21,"00363022714 ")

 ;;177

 ;;21,"00363022717 ")

 ;;178

 ;;21,"00363022757 ")

 ;;179

 ;;21,"00363025514 ")

 ;;858

 ;;21,"00363025517 ")

 ;;859

 ;;21,"00363025532 ")

 ;;860

 ;;21,"00363039707 ")

 ;;793

 ;;21,"00363056314 ")

 ;;861

 ;;21,"00364002902 ")

 ;;630

 ;;21,"00364064001 ")

 ;;2377

 ;;21,"00364064002 ")

 ;;2378

 ;;21,"00364064401 ")

 ;;180

 ;;21,"00364064402 ")

 ;;181

 ;;21,"00364073501 ")

 ;;514

 ;;21,"00364073502 ")

 ;;515

 ;;21,"00364083501 ")

 ;;516

 ;;21,"00364224906 ")

 ;;633

 ;;21,"00364236446 ")

 ;;1245

 ;;21,"00364236448 ")

 ;;1246

 ;;21,"00364236453 ")

 ;;1247

 ;;21,"00364238801 ")

 ;;517

 ;;21,"00364653854 ")

 ;;1313

 ;;21,"00364653934 ")

 ;;1167

 ;;21,"00364653949 ")

 ;;1168

 ;;21,"00364653953 ")

 ;;1169

 ;;21,"00364653954 ")

 ;;1170

 ;;21,"00364654046 ")

 ;;1214

 ;;21,"00364654048 ")

 ;;1215

 ;;21,"00364654053 ")

 ;;1216

 ;;21,"00364666934 ")

 ;;1080

 ;;21,"00364666954 ")

 ;;1081

 ;;21,"00364666956 ")

 ;;1082

 ;;21,"00364711912 ")

 ;;1

 ;;21,"00364712012 ")

 ;;49

 ;;21,"00364712112 ")

 ;;680

 ;;21,"00378045301 ")

 ;;1385

 ;;21,"00378045305 ")

 ;;1386

 ;;21,"00378880101 ")

 ;;1531

 ;;21,"00378880110 ")

 ;;1532

 ;;21,"00378880201 ")

 ;;1778

 ;;21,"00378880210 ")

 ;;1779

 ;;21,"00378880301 ")

 ;;2000

 ;;21,"00378880310 ")

 ;;2001

 ;;21,"00378880401 ")

 ;;2144

 ;;21,"00378880410 ")

 ;;2145

 ;;21,"00378880501 ")

 ;;2379

 ;;21,"00378880510 ")

 ;;2380

 ;;21,"00378880601 ")

 ;;2450

 ;;21,"00378880610 ")

 ;;2451

 ;;21,"00378881001 ")

 ;;1599

 ;;21,"00378881010 ")

 ;;1600

 ;;21,"00378882501 ")

 ;;1909

 ;;21,"00378882510 ")

 ;;1910

 ;;21,"00378887501 ")

 ;;2523

 ;;21,"00378887510 ")

 ;;2524

 ;;21,"00381004901 ")

 ;;1171

 ;;21,"00381004904 ")

 ;;1172

 ;;21,"00381004905 ")

 ;;1173

 ;;21,"00381004910 ")

 ;;1174

 ;;21,"00381005001 ")

 ;;1217

 ;;21,"00381005002 ")

 ;;1218

 ;;21,"00381005004 ")

 ;;1219

 ;;21,"00381005005 ")

 ;;1220

 ;;21,"00381005010 ")

 ;;1221

 ;;21,"00381018401 ")

 ;;1340

 ;;21,"00381040301 ")

 ;;1002

 ;;21,"00381041802 ")

 ;;1314

 ;;21,"00381041810 ")

 ;;1315

 ;;21,"00381046301 ")

 ;;1083

 ;;21,"00381046305 ")

 ;;1084

 ;;21,"00381046310 ")

 ;;1085

 ;;21,"00381051901 ")

 ;;1248

 ;;21,"00381051902 ")

 ;;1249

 ;;21,"00381051904 ")

 ;;1250

 ;;21,"00381051910 ")

 ;;1251

 ;;21,"00392051468 ")

 ;;727

 ;;21,"00395013410 ")

 ;;518

 ;;21,"00395013425 ")

 ;;519

 ;;21,"00395013450 ")

 ;;520

 ;;21,"00402004910 ")

 ;;1175

 ;;21,"00402005005 ")

 ;;1222

 ;;21,"00402041810 ")

 ;;1316

 ;;21,"00402046310 ")

 ;;1086

 ;;21,"00402051905 ")

 ;;1252

 ;;21,"00405410001 ")

 ;;728

 ;;21,"00406205201 ")

 ;;1533

 ;;21,"00406205210 ")

 ;;1534

 ;;21,"00406205301 ")

 ;;1780

 ;;21,"00406205310 ")

 ;;1781

 ;;21,"00406205401 ")

 ;;2002

 ;;21,"00406205410 ")

 ;;2003

 ;;21,"00406205501 ")

 ;;2146

 ;;21,"00406205510 ")

 ;;2147

 ;;21,"00406205601 ")

 ;;2381

 ;;21,"00406205610 ")

 ;;2382

 ;;21,"00406205701 ")

 ;;2452

 ;;21,"00406205801 ")

 ;;2525

 ;;21,"00406205901 ")

 ;;1601

 ;;21,"00406206401 ")

 ;;1911

 ;;21,"00406206410 ")

 ;;1912

 ;;21,"00406506410 ")

 ;;1913

 ;;21,"00409115212 ")

 ;;1003

 ;;21,"00409115214 ")

 ;;1004

 ;;21,"00409115270 ")

 ;;1005

 ;;21,"00409115278 ")

 ;;1006

 ;;21,"00409131625 ")

 ;;933

 ;;21,"00409131632 ")

 ;;934

 ;;21,"00409131666 ")

 ;;935

 ;;21,"00409140231 ")

 ;;1317

 ;;21,"00409258102 ")

 ;;1202

 ;;21,"00409258402 ")

 ;;1234

 ;;21,"00409272001 ")

 ;;1087

 ;;21,"00409272002 ")

 ;;1088

 ;;21,"00409272003 ")

 ;;1089

 ;;21,"00409272101 ")

 ;;1176

 ;;21,"00409272301 ")

 ;;1318

 ;;21,"00409272302 ")

 ;;1319

 ;;21,"00409765062 ")

 ;;1007

 ;;21,"00409765103 ")

 ;;1271

 ;;21,"00409765162 ")

 ;;1272

 ;;21,"00409776003 ")

 ;;1240

 ;;21,"00409776103 ")

 ;;1273

 ;;21,"00409776130 ")

 ;;1274

 ;;21,"00409779323 ")

 ;;1008

 ;;21,"00409779362 ")

 ;;1009

 ;;21,"00409779462 ")

 ;;1275

 ;;21,"00418434105 ")

 ;;1223

 ;;21,"00418435105 ")

 ;;1177

 ;;21,"00418435141 ")

 ;;1178

 ;;21,"00418446105 ")

 ;;1253

 ;;21,"00436022070 ")

 ;;1090

 ;;21,"00436022145 ")

 ;;1179

 ;;21,"00436022170 ")

 ;;1180

 ;;21,"00436022175 ")

 ;;1181

 ;;21,"00436027570 ")

 ;;1320

 ;;21,"00436041601 ")

 ;;521

 ;;21,"00436041610 ")

 ;;522

 ;;21,"00440713016 ")

 ;;182

 ;;21,"00454091330 ")

 ;;1091

 ;;21,"00456077826 ")

 ;;1092

 ;;21,"00463103410 ")

 ;;1093

 ;;21,"00463602010 ")

 ;;523

 ;;21,"00463602110 ")

 ;;524

 ;;21,"00463602310 ")

 ;;525

 ;;21,"00463602610 ")

 ;;183

 ;;21,"00463624910 ")

 ;;709

 ;;21,"00467103325 ")

 ;;1094

 ;;21,"00467126225 ")

 ;;1321

 ;;21,"00467203325 ")

 ;;1095

 ;;21,"00467215225 ")

 ;;1182

 ;;21,"00467750710 ")

 ;;1096

 ;;21,"00469003115 ")

 ;;1010

 ;;21,"00469003325 ")

 ;;1097

 ;;21,"00469015225 ")

 ;;1183

 ;;21,"00469081330 ")

 ;;1098

 ;;21,"00469081350 ")

 ;;1099

 ;;21,"00469083300 ")

 ;;1184

 ;;21,"00469083303 ")

 ;;1185

 ;;21,"00469083370 ")

 ;;1186

 ;;21,"00469091300 ")

 ;;1100

 ;;21,"00469091330 ")

 ;;1101

 ;;21,"00469091350 ")

 ;;1102

 ;;21,"00469092300 ")

 ;;1322

 ;;21,"00469092303 ")

 ;;1323

 ;;21,"00469092330 ")

 ;;1324

 ;;21,"00469093300 ")

 ;;1187

 ;;21,"00469093320 ")

 ;;1188

 ;;21,"00469103315 ")

 ;;1103

 ;;21,"00469115515 ")

 ;;1224

 ;;21,"00469126215 ")

 ;;1325

 ;;21,"00469190300 ")

 ;;1011

 ;;21,"00469190303 ")

 ;;1012

 ;;21,"00469203325 ")

 ;;1104

 ;;21,"00469215215 ")

 ;;1189

 ;;21,"00469276010 ")

 ;;1105

 ;;21,"00469276025 ")

 ;;1106

 ;;21,"00469310115 ")

 ;;1013

 ;;21,"00469310525 ")

 ;;1014

 ;;21,"00469504001 ")

 ;;1107

 ;;21,"00469504501 ")

 ;;1015

 ;;21,"00469504505 ")

 ;;1016

 ;;21,"00480015401 ")

 ;;1387

 ;;21,"00480015405 ")

 ;;1388

 ;;21,"00517430101 ")

 ;;1108

 ;;21,"00524005701 ")

 ;;729

 ;;21,"00527013955 ")

 ;;1109

 ;;21,"00527014855 ")

 ;;1326

 ;;21,"00527017455 ")

 ;;1190

 ;;21,"00527100301 ")

 ;;2383

 ;;21,"00527100310 ")

 ;;2384

 ;;21,"00527101801 ")

 ;;526

 ;;21,"00527101810 ")

 ;;527

 ;;21,"00527101851 ")

 ;;528

 ;;21,"00527101910 ")

 ;;529

 ;;21,"00527101951 ")

 ;;530

 ;;21,"00527102010 ")

 ;;531

 ;;21,"00527102051 ")

 ;;532

 ;;21,"00527106401 ")

 ;;1782

 ;;21,"00527106410 ")

 ;;1783

 ;;21,"00527107201 ")

 ;;1914

 ;;21,"00527107210 ")

 ;;1915

 ;;21,"00527117410 ")

 ;;533

 ;;21,"00527117510 ")

 ;;710

 ;;21,"00527119901 ")

 ;;534

 ;;21,"00527119910 ")

 ;;535

 ;;21,"00527121810 ")

 ;;536

 ;;21,"00527150169 ")

 ;;28

 ;;21,"00527150170 ")

 ;;29

 ;;21,"00527150369 ")

 ;;627

 ;;21,"00527150370 ")

 ;;628

 ;;21,"00527150469 ")

 ;;719

 ;;21,"00527150470 ")

 ;;720

 ;;21,"00536133012 ")

 ;;17

 ;;21,"00536134001 ")

 ;;50

 ;;21,"00536135001 ")

 ;;681

 ;;21,"00536135012 ")

 ;;682

 ;;21,"00536308610 ")

 ;;862

 ;;21,"00536308641 ")

 ;;863

 ;;21,"00536329736 ")

 ;;794

 ;;21,"00536330010 ")

 ;;537

 ;;21,"00536330501 ")

 ;;538

 ;;21,"00536330510 ")

 ;;539

 ;;21,"00536331101 ")

 ;;540

 ;;21,"00536331301 ")

 ;;184

 ;;21,"00536331310 ")

 ;;185

 ;;21,"00536331810 ")

 ;;186

 ;;21,"00536332001 ")

 ;;730

 ;;21,"00536332101 ")

 ;;878

 ;;21,"00536332610 ")

 ;;711

 ;;21,"00536486070 ")

 ;;1110

 ;;21,"00536486075 ")

 ;;1111

 ;;21,"00536490070 ")

 ;;1327

 ;;21,"00536492570 ")

 ;;1191

 ;;21,"00536495065 ")

 ;;1225

 ;;21,"00555083102 ")

 ;;1535

 ;;21,"00555083104 ")

 ;;1536

 ;;21,"00555083105 ")

 ;;1537

 ;;21,"00555083156 ")

 ;;1538

 ;;21,"00555083202 ")

 ;;1916

 ;;21,"00555083204 ")

 ;;1917

 ;;21,"00555083205 ")

 ;;1918

 ;;21,"00555083256 ")

 ;;1919

 ;;21,"00555083302 ")

 ;;2385

 ;;21,"00555083304 ")

 ;;2386

 ;;21,"00555083305 ")

 ;;2387

 ;;21,"00555083356 ")

 ;;2388

 ;;21,"00555083402 ")

 ;;2526

 ;;21,"00555083405 ")

 ;;2527

 ;;21,"00555083456 ")

 ;;2528

 ;;21,"00555083502 ")

 ;;1602

 ;;21,"00555083504 ")

 ;;1603

 ;;21,"00555083556 ")

 ;;1604

 ;;21,"00555086902 ")

 ;;1784

 ;;21,"00555086904 ")

 ;;1785

 ;;21,"00555086905 ")

 ;;1786

 ;;21,"00555086956 ")

 ;;1787

 ;;21,"00555087402 ")

 ;;2148

 ;;21,"00555087405 ")

 ;;2149

 ;;21,"00555087456 ")

 ;;2150

 ;;21,"00555092501 ")

 ;;2004

 ;;21,"00555092502 ")

 ;;2005

 ;;21,"00555092504 ")

 ;;2006

 ;;21,"00555092505 ")

 ;;2007

 ;;21,"00555092556 ")

 ;;2008

 ;;21,"00555092601 ")

 ;;2453

 ;;21,"00555092602 ")

 ;;2454

 ;;21,"00555092604 ")

 ;;2455

 ;;21,"00555092605 ")

 ;;2456

 ;;21,"00555092656 ")

 ;;2457

 ;;21,"00573027110 ")

 ;;660

 ;;21,"00573027120 ")

 ;;661

 ;;21,"00573027130 ")

 ;;662

 ;;21,"00574000201 ")

 ;;187

 ;;21,"00574000210 ")

 ;;188

 ;;21,"00574000211 ")

 ;;189

 ;;21,"00574000501 ")

 ;;541

 ;;21,"00574000511 ")

 ;;542

 ;;21,"00574000522 ")

 ;;543

 ;;21,"00574703212 ")

 ;;18

 ;;21,"00574703250 ")

 ;;19

 ;;21,"00574703412 ")

 ;;51

 ;;21,"00574703450 ")

 ;;52

 ;;21,"00574703612 ")

 ;;683

 ;;21,"00574703650 ")

 ;;684

 ;;21,"00603002436 ")

 ;;795

 ;;21,"00603002522 ")

 ;;864

 ;;21,"00603002532 ")

 ;;865

 ;;21,"00603002622 ")

 ;;866

 ;;21,"00603002632 ")

 ;;867

 ;;21,"00603003121 ")

 ;;544

 ;;21,"00603003125 ")

 ;;545

 ;;21,"00603008521 ")

 ;;546

 ;;21,"00603016702 ")

 ;;190

 ;;21,"00603016721 ")

 ;;191

 ;;21,"00603016732 ")

 ;;192

 ;;21,"00603016821 ")

 ;;193

BGPM3AAT  ;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,"00247119530 ")

 +2       ;;1077

 +3       ;;21,"00247119550 ")

 +4       ;;1078

 +5       ;;21,"00247127530 ")

 +6       ;;1383

 +7       ;;21,"00247127560 ")

 +8       ;;1384

 +9       ;;21,"00247215000 ")

 +10      ;;856

 +11      ;;21,"00247215030 ")

 +12      ;;857

 +13      ;;21,"00247225203 ")

 +14      ;;1774

 +15      ;;21,"00247225206 ")

 +16      ;;1775

 +17      ;;21,"00247227330 ")

 +18      ;;920

 +19      ;;21,"00247227360 ")

 +20      ;;921

 +21      ;;21,"00257012501 ")

 +22      ;;1312

 +23      ;;21,"00257012601 ")

 +24      ;;1165

 +25      ;;21,"00257016701 ")

 +26      ;;1166

 +27      ;;21,"00264557710 ")

 +28      ;;1266

 +29      ;;21,"00264887710 ")

 +30      ;;1267

 +31      ;;21,"00264956710 ")

 +32      ;;1237

 +33      ;;21,"00264957710 ")

 +34      ;;1268

 +35      ;;21,"00264958720 ")

 +36      ;;999

 +37      ;;21,"00295123601 ")

 +38      ;;503

 +39      ;;21,"00295123625 ")

 +40      ;;504

 +41      ;;21,"00298690861 ")

 +42      ;;1079

 +43      ;;21,"00302820001 ")

 +44      ;;1776

 +45      ;;21,"00302820201 ")

 +46      ;;1904

 +47      ;;21,"00302820401 ")

 +48      ;;2372

 +49      ;;21,"00308618030 ")

 +50      ;;1905

 +51      ;;21,"00308618099 ")

 +52      ;;1906

 +53      ;;21,"00308620030 ")

 +54      ;;2373

 +55      ;;21,"00308620099 ")

 +56      ;;2374

 +57      ;;21,"00338044903 ")

 +58      ;;1238

 +59      ;;21,"00338045003 ")

 +60      ;;1269

 +61      ;;21,"00338045102 ")

 +62      ;;1000

 +63      ;;21,"00338054903 ")

 +64      ;;1239

 +65      ;;21,"00338055002 ")

 +66      ;;1001

 +67      ;;21,"00338055003 ")

 +68      ;;1270

 +69      ;;21,"00339653712 ")

 +70      ;;1530

 +71      ;;21,"00339653812 ")

 +72      ;;1777

 +73      ;;21,"00339653912 ")

 +74      ;;1907

 +75      ;;21,"00339654012 ")

 +76      ;;1999

 +77      ;;21,"00339654112 ")

 +78      ;;2143

 +79      ;;21,"00339654212 ")

 +80      ;;2375

 +81      ;;21,"00339654312 ")

 +82      ;;2449

 +83      ;;21,"00339654412 ")

 +84      ;;2522

 +85      ;;21,"00339654512 ")

 +86      ;;1597

 +87      ;;21,"00349835001 ")

 +88      ;;505

 +89      ;;21,"00349839001 ")

 +90      ;;1908

 +91      ;;21,"00349839101 ")

 +92      ;;2376

 +93      ;;21,"00349839201 ")

 +94      ;;1598

 +95      ;;21,"00349844501 ")

 +96      ;;506

 +97      ;;21,"00349844510 ")

 +98      ;;507

 +99      ;;21,"00349847401 ")

 +100     ;;707

 +101     ;;21,"00349847410 ")

 +102     ;;708

 +103     ;;21,"00349878401 ")

 +104     ;;726

 +105     ;;21,"00353201701 ")

 +106     ;;508

 +107     ;;21,"00363015712 ")

 +108     ;;509

 +109     ;;21,"00363015714 ")

 +110     ;;510

 +111     ;;21,"00363015716 ")

 +112     ;;511

 +113     ;;21,"00363015717 ")

 +114     ;;512

 +115     ;;21,"00363018330 ")

 +116     ;;513

 +117     ;;21,"00363021807 ")

 +118     ;;792

 +119     ;;21,"00363022714 ")

 +120     ;;177

 +121     ;;21,"00363022717 ")

 +122     ;;178

 +123     ;;21,"00363022757 ")

 +124     ;;179

 +125     ;;21,"00363025514 ")

 +126     ;;858

 +127     ;;21,"00363025517 ")

 +128     ;;859

 +129     ;;21,"00363025532 ")

 +130     ;;860

 +131     ;;21,"00363039707 ")

 +132     ;;793

 +133     ;;21,"00363056314 ")

 +134     ;;861

 +135     ;;21,"00364002902 ")

 +136     ;;630

 +137     ;;21,"00364064001 ")

 +138     ;;2377

 +139     ;;21,"00364064002 ")

 +140     ;;2378

 +141     ;;21,"00364064401 ")

 +142     ;;180

 +143     ;;21,"00364064402 ")

 +144     ;;181

 +145     ;;21,"00364073501 ")

 +146     ;;514

 +147     ;;21,"00364073502 ")

 +148     ;;515

 +149     ;;21,"00364083501 ")

 +150     ;;516

 +151     ;;21,"00364224906 ")

 +152     ;;633

 +153     ;;21,"00364236446 ")

 +154     ;;1245

 +155     ;;21,"00364236448 ")

 +156     ;;1246

 +157     ;;21,"00364236453 ")

 +158     ;;1247

 +159     ;;21,"00364238801 ")

 +160     ;;517

 +161     ;;21,"00364653854 ")

 +162     ;;1313

 +163     ;;21,"00364653934 ")

 +164     ;;1167

 +165     ;;21,"00364653949 ")

 +166     ;;1168

 +167     ;;21,"00364653953 ")

 +168     ;;1169

 +169     ;;21,"00364653954 ")

 +170     ;;1170

 +171     ;;21,"00364654046 ")

 +172     ;;1214

 +173     ;;21,"00364654048 ")

 +174     ;;1215

 +175     ;;21,"00364654053 ")

 +176     ;;1216

 +177     ;;21,"00364666934 ")

 +178     ;;1080

 +179     ;;21,"00364666954 ")

 +180     ;;1081

 +181     ;;21,"00364666956 ")

 +182     ;;1082

 +183     ;;21,"00364711912 ")

 +184     ;;1

 +185     ;;21,"00364712012 ")

 +186     ;;49

 +187     ;;21,"00364712112 ")

 +188     ;;680

 +189     ;;21,"00378045301 ")

 +190     ;;1385

 +191     ;;21,"00378045305 ")

 +192     ;;1386

 +193     ;;21,"00378880101 ")

 +194     ;;1531

 +195     ;;21,"00378880110 ")

 +196     ;;1532

 +197     ;;21,"00378880201 ")

 +198     ;;1778

 +199     ;;21,"00378880210 ")

 +200     ;;1779

 +201     ;;21,"00378880301 ")

 +202     ;;2000

 +203     ;;21,"00378880310 ")

 +204     ;;2001

 +205     ;;21,"00378880401 ")

 +206     ;;2144

 +207     ;;21,"00378880410 ")

 +208     ;;2145

 +209     ;;21,"00378880501 ")

 +210     ;;2379

 +211     ;;21,"00378880510 ")

 +212     ;;2380

 +213     ;;21,"00378880601 ")

 +214     ;;2450

 +215     ;;21,"00378880610 ")

 +216     ;;2451

 +217     ;;21,"00378881001 ")

 +218     ;;1599

 +219     ;;21,"00378881010 ")

 +220     ;;1600

 +221     ;;21,"00378882501 ")

 +222     ;;1909

 +223     ;;21,"00378882510 ")

 +224     ;;1910

 +225     ;;21,"00378887501 ")

 +226     ;;2523

 +227     ;;21,"00378887510 ")

 +228     ;;2524

 +229     ;;21,"00381004901 ")

 +230     ;;1171

 +231     ;;21,"00381004904 ")

 +232     ;;1172

 +233     ;;21,"00381004905 ")

 +234     ;;1173

 +235     ;;21,"00381004910 ")

 +236     ;;1174

 +237     ;;21,"00381005001 ")

 +238     ;;1217

 +239     ;;21,"00381005002 ")

 +240     ;;1218

 +241     ;;21,"00381005004 ")

 +242     ;;1219

 +243     ;;21,"00381005005 ")

 +244     ;;1220

 +245     ;;21,"00381005010 ")

 +246     ;;1221

 +247     ;;21,"00381018401 ")

 +248     ;;1340

 +249     ;;21,"00381040301 ")

 +250     ;;1002

 +251     ;;21,"00381041802 ")

 +252     ;;1314

 +253     ;;21,"00381041810 ")

 +254     ;;1315

 +255     ;;21,"00381046301 ")

 +256     ;;1083

 +257     ;;21,"00381046305 ")

 +258     ;;1084

 +259     ;;21,"00381046310 ")

 +260     ;;1085

 +261     ;;21,"00381051901 ")

 +262     ;;1248

 +263     ;;21,"00381051902 ")

 +264     ;;1249

 +265     ;;21,"00381051904 ")

 +266     ;;1250

 +267     ;;21,"00381051910 ")

 +268     ;;1251

 +269     ;;21,"00392051468 ")

 +270     ;;727

 +271     ;;21,"00395013410 ")

 +272     ;;518

 +273     ;;21,"00395013425 ")

 +274     ;;519

 +275     ;;21,"00395013450 ")

 +276     ;;520

 +277     ;;21,"00402004910 ")

 +278     ;;1175

 +279     ;;21,"00402005005 ")

 +280     ;;1222

 +281     ;;21,"00402041810 ")

 +282     ;;1316

 +283     ;;21,"00402046310 ")

 +284     ;;1086

 +285     ;;21,"00402051905 ")

 +286     ;;1252

 +287     ;;21,"00405410001 ")

 +288     ;;728

 +289     ;;21,"00406205201 ")

 +290     ;;1533

 +291     ;;21,"00406205210 ")

 +292     ;;1534

 +293     ;;21,"00406205301 ")

 +294     ;;1780

 +295     ;;21,"00406205310 ")

 +296     ;;1781

 +297     ;;21,"00406205401 ")

 +298     ;;2002

 +299     ;;21,"00406205410 ")

 +300     ;;2003

 +301     ;;21,"00406205501 ")

 +302     ;;2146

 +303     ;;21,"00406205510 ")

 +304     ;;2147

 +305     ;;21,"00406205601 ")

 +306     ;;2381

 +307     ;;21,"00406205610 ")

 +308     ;;2382

 +309     ;;21,"00406205701 ")

 +310     ;;2452

 +311     ;;21,"00406205801 ")

 +312     ;;2525

 +313     ;;21,"00406205901 ")

 +314     ;;1601

 +315     ;;21,"00406206401 ")

 +316     ;;1911

 +317     ;;21,"00406206410 ")

 +318     ;;1912

 +319     ;;21,"00406506410 ")

 +320     ;;1913

 +321     ;;21,"00409115212 ")

 +322     ;;1003

 +323     ;;21,"00409115214 ")

 +324     ;;1004

 +325     ;;21,"00409115270 ")

 +326     ;;1005

 +327     ;;21,"00409115278 ")

 +328     ;;1006

 +329     ;;21,"00409131625 ")

 +330     ;;933

 +331     ;;21,"00409131632 ")

 +332     ;;934

 +333     ;;21,"00409131666 ")

 +334     ;;935

 +335     ;;21,"00409140231 ")

 +336     ;;1317

 +337     ;;21,"00409258102 ")

 +338     ;;1202

 +339     ;;21,"00409258402 ")

 +340     ;;1234

 +341     ;;21,"00409272001 ")

 +342     ;;1087

 +343     ;;21,"00409272002 ")

 +344     ;;1088

 +345     ;;21,"00409272003 ")

 +346     ;;1089

 +347     ;;21,"00409272101 ")

 +348     ;;1176

 +349     ;;21,"00409272301 ")

 +350     ;;1318

 +351     ;;21,"00409272302 ")

 +352     ;;1319

 +353     ;;21,"00409765062 ")

 +354     ;;1007

 +355     ;;21,"00409765103 ")

 +356     ;;1271

 +357     ;;21,"00409765162 ")

 +358     ;;1272

 +359     ;;21,"00409776003 ")

 +360     ;;1240

 +361     ;;21,"00409776103 ")

 +362     ;;1273

 +363     ;;21,"00409776130 ")

 +364     ;;1274

 +365     ;;21,"00409779323 ")

 +366     ;;1008

 +367     ;;21,"00409779362 ")

 +368     ;;1009

 +369     ;;21,"00409779462 ")

 +370     ;;1275

 +371     ;;21,"00418434105 ")

 +372     ;;1223

 +373     ;;21,"00418435105 ")

 +374     ;;1177

 +375     ;;21,"00418435141 ")

 +376     ;;1178

 +377     ;;21,"00418446105 ")

 +378     ;;1253

 +379     ;;21,"00436022070 ")

 +380     ;;1090

 +381     ;;21,"00436022145 ")

 +382     ;;1179

 +383     ;;21,"00436022170 ")

 +384     ;;1180

 +385     ;;21,"00436022175 ")

 +386     ;;1181

 +387     ;;21,"00436027570 ")

 +388     ;;1320

 +389     ;;21,"00436041601 ")

 +390     ;;521

 +391     ;;21,"00436041610 ")

 +392     ;;522

 +393     ;;21,"00440713016 ")

 +394     ;;182

 +395     ;;21,"00454091330 ")

 +396     ;;1091

 +397     ;;21,"00456077826 ")

 +398     ;;1092

 +399     ;;21,"00463103410 ")

 +400     ;;1093

 +401     ;;21,"00463602010 ")

 +402     ;;523

 +403     ;;21,"00463602110 ")

 +404     ;;524

 +405     ;;21,"00463602310 ")

 +406     ;;525

 +407     ;;21,"00463602610 ")

 +408     ;;183

 +409     ;;21,"00463624910 ")

 +410     ;;709

 +411     ;;21,"00467103325 ")

 +412     ;;1094

 +413     ;;21,"00467126225 ")

 +414     ;;1321

 +415     ;;21,"00467203325 ")

 +416     ;;1095

 +417     ;;21,"00467215225 ")

 +418     ;;1182

 +419     ;;21,"00467750710 ")

 +420     ;;1096

 +421     ;;21,"00469003115 ")

 +422     ;;1010

 +423     ;;21,"00469003325 ")

 +424     ;;1097

 +425     ;;21,"00469015225 ")

 +426     ;;1183

 +427     ;;21,"00469081330 ")

 +428     ;;1098

 +429     ;;21,"00469081350 ")

 +430     ;;1099

 +431     ;;21,"00469083300 ")

 +432     ;;1184

 +433     ;;21,"00469083303 ")

 +434     ;;1185

 +435     ;;21,"00469083370 ")

 +436     ;;1186

 +437     ;;21,"00469091300 ")

 +438     ;;1100

 +439     ;;21,"00469091330 ")

 +440     ;;1101

 +441     ;;21,"00469091350 ")

 +442     ;;1102

 +443     ;;21,"00469092300 ")

 +444     ;;1322

 +445     ;;21,"00469092303 ")

 +446     ;;1323

 +447     ;;21,"00469092330 ")

 +448     ;;1324

 +449     ;;21,"00469093300 ")

 +450     ;;1187

 +451     ;;21,"00469093320 ")

 +452     ;;1188

 +453     ;;21,"00469103315 ")

 +454     ;;1103

 +455     ;;21,"00469115515 ")

 +456     ;;1224

 +457     ;;21,"00469126215 ")

 +458     ;;1325

 +459     ;;21,"00469190300 ")

 +460     ;;1011

 +461     ;;21,"00469190303 ")

 +462     ;;1012

 +463     ;;21,"00469203325 ")

 +464     ;;1104

 +465     ;;21,"00469215215 ")

 +466     ;;1189

 +467     ;;21,"00469276010 ")

 +468     ;;1105

 +469     ;;21,"00469276025 ")

 +470     ;;1106

 +471     ;;21,"00469310115 ")

 +472     ;;1013

 +473     ;;21,"00469310525 ")

 +474     ;;1014

 +475     ;;21,"00469504001 ")

 +476     ;;1107

 +477     ;;21,"00469504501 ")

 +478     ;;1015

 +479     ;;21,"00469504505 ")

 +480     ;;1016

 +481     ;;21,"00480015401 ")

 +482     ;;1387

 +483     ;;21,"00480015405 ")

 +484     ;;1388

 +485     ;;21,"00517430101 ")

 +486     ;;1108

 +487     ;;21,"00524005701 ")

 +488     ;;729

 +489     ;;21,"00527013955 ")

 +490     ;;1109

 +491     ;;21,"00527014855 ")

 +492     ;;1326

 +493     ;;21,"00527017455 ")

 +494     ;;1190

 +495     ;;21,"00527100301 ")

 +496     ;;2383

 +497     ;;21,"00527100310 ")

 +498     ;;2384

 +499     ;;21,"00527101801 ")

 +500     ;;526

 +501     ;;21,"00527101810 ")

 +502     ;;527

 +503     ;;21,"00527101851 ")

 +504     ;;528

 +505     ;;21,"00527101910 ")

 +506     ;;529

 +507     ;;21,"00527101951 ")

 +508     ;;530

 +509     ;;21,"00527102010 ")

 +510     ;;531

 +511     ;;21,"00527102051 ")

 +512     ;;532

 +513     ;;21,"00527106401 ")

 +514     ;;1782

 +515     ;;21,"00527106410 ")

 +516     ;;1783

 +517     ;;21,"00527107201 ")

 +518     ;;1914

 +519     ;;21,"00527107210 ")

 +520     ;;1915

 +521     ;;21,"00527117410 ")

 +522     ;;533

 +523     ;;21,"00527117510 ")

 +524     ;;710

 +525     ;;21,"00527119901 ")

 +526     ;;534

 +527     ;;21,"00527119910 ")

 +528     ;;535

 +529     ;;21,"00527121810 ")

 +530     ;;536

 +531     ;;21,"00527150169 ")

 +532     ;;28

 +533     ;;21,"00527150170 ")

 +534     ;;29

 +535     ;;21,"00527150369 ")

 +536     ;;627

 +537     ;;21,"00527150370 ")

 +538     ;;628

 +539     ;;21,"00527150469 ")

 +540     ;;719

 +541     ;;21,"00527150470 ")

 +542     ;;720

 +543     ;;21,"00536133012 ")

 +544     ;;17

 +545     ;;21,"00536134001 ")

 +546     ;;50

 +547     ;;21,"00536135001 ")

 +548     ;;681

 +549     ;;21,"00536135012 ")

 +550     ;;682

 +551     ;;21,"00536308610 ")

 +552     ;;862

 +553     ;;21,"00536308641 ")

 +554     ;;863

 +555     ;;21,"00536329736 ")

 +556     ;;794

 +557     ;;21,"00536330010 ")

 +558     ;;537

 +559     ;;21,"00536330501 ")

 +560     ;;538

 +561     ;;21,"00536330510 ")

 +562     ;;539

 +563     ;;21,"00536331101 ")

 +564     ;;540

 +565     ;;21,"00536331301 ")

 +566     ;;184

 +567     ;;21,"00536331310 ")

 +568     ;;185

 +569     ;;21,"00536331810 ")

 +570     ;;186

 +571     ;;21,"00536332001 ")

 +572     ;;730

 +573     ;;21,"00536332101 ")

 +574     ;;878

 +575     ;;21,"00536332610 ")

 +576     ;;711

 +577     ;;21,"00536486070 ")

 +578     ;;1110

 +579     ;;21,"00536486075 ")

 +580     ;;1111

 +581     ;;21,"00536490070 ")

 +582     ;;1327

 +583     ;;21,"00536492570 ")

 +584     ;;1191

 +585     ;;21,"00536495065 ")

 +586     ;;1225

 +587     ;;21,"00555083102 ")

 +588     ;;1535

 +589     ;;21,"00555083104 ")

 +590     ;;1536

 +591     ;;21,"00555083105 ")

 +592     ;;1537

 +593     ;;21,"00555083156 ")

 +594     ;;1538

 +595     ;;21,"00555083202 ")

 +596     ;;1916

 +597     ;;21,"00555083204 ")

 +598     ;;1917

 +599     ;;21,"00555083205 ")

 +600     ;;1918

 +601     ;;21,"00555083256 ")

 +602     ;;1919

 +603     ;;21,"00555083302 ")

 +604     ;;2385

 +605     ;;21,"00555083304 ")

 +606     ;;2386

 +607     ;;21,"00555083305 ")

 +608     ;;2387

 +609     ;;21,"00555083356 ")

 +610     ;;2388

 +611     ;;21,"00555083402 ")

 +612     ;;2526

 +613     ;;21,"00555083405 ")

 +614     ;;2527

 +615     ;;21,"00555083456 ")

 +616     ;;2528

 +617     ;;21,"00555083502 ")

 +618     ;;1602

 +619     ;;21,"00555083504 ")

 +620     ;;1603

 +621     ;;21,"00555083556 ")

 +622     ;;1604

 +623     ;;21,"00555086902 ")

 +624     ;;1784

 +625     ;;21,"00555086904 ")

 +626     ;;1785

 +627     ;;21,"00555086905 ")

 +628     ;;1786

 +629     ;;21,"00555086956 ")

 +630     ;;1787

 +631     ;;21,"00555087402 ")

 +632     ;;2148

 +633     ;;21,"00555087405 ")

 +634     ;;2149

 +635     ;;21,"00555087456 ")

 +636     ;;2150

 +637     ;;21,"00555092501 ")

 +638     ;;2004

 +639     ;;21,"00555092502 ")

 +640     ;;2005

 +641     ;;21,"00555092504 ")

 +642     ;;2006

 +643     ;;21,"00555092505 ")

 +644     ;;2007

 +645     ;;21,"00555092556 ")

 +646     ;;2008

 +647     ;;21,"00555092601 ")

 +648     ;;2453

 +649     ;;21,"00555092602 ")

 +650     ;;2454

 +651     ;;21,"00555092604 ")

 +652     ;;2455

 +653     ;;21,"00555092605 ")

 +654     ;;2456

 +655     ;;21,"00555092656 ")

 +656     ;;2457

 +657     ;;21,"00573027110 ")

 +658     ;;660

 +659     ;;21,"00573027120 ")

 +660     ;;661

 +661     ;;21,"00573027130 ")

 +662     ;;662

 +663     ;;21,"00574000201 ")

 +664     ;;187

 +665     ;;21,"00574000210 ")

 +666     ;;188

 +667     ;;21,"00574000211 ")

 +668     ;;189

 +669     ;;21,"00574000501 ")

 +670     ;;541

 +671     ;;21,"00574000511 ")

 +672     ;;542

 +673     ;;21,"00574000522 ")

 +674     ;;543

 +675     ;;21,"00574703212 ")

 +676     ;;18

 +677     ;;21,"00574703250 ")

 +678     ;;19

 +679     ;;21,"00574703412 ")

 +680     ;;51

 +681     ;;21,"00574703450 ")

 +682     ;;52

 +683     ;;21,"00574703612 ")

 +684     ;;683

 +685     ;;21,"00574703650 ")

 +686     ;;684

 +687     ;;21,"00603002436 ")

 +688     ;;795

 +689     ;;21,"00603002522 ")

 +690     ;;864

 +691     ;;21,"00603002532 ")

 +692     ;;865

 +693     ;;21,"00603002622 ")

 +694     ;;866

 +695     ;;21,"00603002632 ")

 +696     ;;867

 +697     ;;21,"00603003121 ")

 +698     ;;544

 +699     ;;21,"00603003125 ")

 +700     ;;545

 +701     ;;21,"00603008521 ")

 +702     ;;546

 +703     ;;21,"00603016702 ")

 +704     ;;190

 +705     ;;21,"00603016721 ")

 +706     ;;191

 +707     ;;21,"00603016732 ")

 +708     ;;192

 +709     ;;21,"00603016821 ")

 +710     ;;193