BGPM3AAV.m

BGPM3AAV ;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,"11722092999 ")

 ;;1543

 ;;21,"11743021002 ")

 ;;1029

 ;;21,"11819000990 ")

 ;;810

 ;;21,"11822316901 ")

 ;;811

 ;;21,"11845084701 ")

 ;;236

 ;;21,"11845089004 ")

 ;;237

 ;;21,"11845093001 ")

 ;;238

 ;;21,"11845094236 ")

 ;;738

 ;;21,"11845097502 ")

 ;;239

 ;;21,"11917004160 ")

 ;;240

 ;;21,"11917004161 ")

 ;;241

 ;;21,"12333902801 ")

 ;;74

 ;;21,"12333902802 ")

 ;;75

 ;;21,"12333902803 ")

 ;;76

 ;;21,"12333902804 ")

 ;;77

 ;;21,"12333904804 ")

 ;;242

 ;;21,"12333904901 ")

 ;;243

 ;;21,"12333904902 ")

 ;;244

 ;;21,"12333904903 ")

 ;;245

 ;;21,"12333904904 ")

 ;;246

 ;;21,"12333905001 ")

 ;;247

 ;;21,"12333905002 ")

 ;;248

 ;;21,"12333944601 ")

 ;;739

 ;;21,"12333950001 ")

 ;;740

 ;;21,"12634010401 ")

 ;;78

 ;;21,"12634010410 ")

 ;;79

 ;;21,"12634010510 ")

 ;;693

 ;;21,"12634012001 ")

 ;;249

 ;;21,"12671002403 ")

 ;;1030

 ;;21,"12671002407 ")

 ;;1031

 ;;21,"12671002503 ")

 ;;1278

 ;;21,"12671002601 ")

 ;;1126

 ;;21,"12671002603 ")

 ;;1127

 ;;21,"12671006303 ")

 ;;1032

 ;;21,"12671006307 ")

 ;;1033

 ;;21,"12671006403 ")

 ;;1279

 ;;21,"12671006501 ")

 ;;1128

 ;;21,"12671006515 ")

 ;;1129

 ;;21,"12843010514 ")

 ;;639

 ;;21,"12843016158 ")

 ;;640

 ;;21,"12843019176 ")

 ;;702

 ;;21,"12843020256 ")

 ;;641

 ;;21,"13411033903 ")

 ;;2159

 ;;21,"15330010001 ")

 ;;1398

 ;;21,"15330010010 ")

 ;;1399

 ;;21,"15330010101 ")

 ;;1616

 ;;21,"15330010110 ")

 ;;1617

 ;;21,"15330010201 ")

 ;;1801

 ;;21,"15330010210 ")

 ;;1802

 ;;21,"15330010601 ")

 ;;2412

 ;;21,"15330010701 ")

 ;;2463

 ;;21,"15330010801 ")

 ;;1544

 ;;21,"15330026601 ")

 ;;1938

 ;;21,"15330026701 ")

 ;;2016

 ;;21,"15330026801 ")

 ;;2160

 ;;21,"15330026810 ")

 ;;2161

 ;;21,"17236001436 ")

 ;;741

 ;;21,"17236037801 ")

 ;;250

 ;;21,"17236037810 ")

 ;;251

 ;;21,"17236037825 ")

 ;;252

 ;;21,"17236038001 ")

 ;;253

 ;;21,"17236038010 ")

 ;;254

 ;;21,"17236038025 ")

 ;;255

 ;;21,"17236070510 ")

 ;;812

 ;;21,"17236070566 ")

 ;;813

 ;;21,"17714000936 ")

 ;;742

 ;;21,"17714001001 ")

 ;;256

 ;;21,"17714001010 ")

 ;;257

 ;;21,"17714001101 ")

 ;;80

 ;;21,"17714001110 ")

 ;;81

 ;;21,"17856402902 ")

 ;;1803

 ;;21,"19458044301 ")

 ;;1804

 ;;21,"19458047101 ")

 ;;2162

 ;;21,"19458059801 ")

 ;;1618

 ;;21,"19458500101 ")

 ;;258

 ;;21,"19458500102 ")

 ;;259

 ;;21,"19458500201 ")

 ;;642

 ;;21,"19458500301 ")

 ;;260

 ;;21,"19458500801 ")

 ;;261

 ;;21,"19810000743 ")

 ;;643

 ;;21,"19810005101 ")

 ;;644

 ;;21,"19810005102 ")

 ;;645

 ;;21,"19810005250 ")

 ;;262

 ;;21,"19810007401 ")

 ;;646

 ;;21,"19810007403 ")

 ;;647

 ;;21,"19810007404 ")

 ;;648

 ;;21,"21695067330 ")

 ;;1619

 ;;21,"21695067730 ")

 ;;2163

 ;;21,"23490083305 ")

 ;;2164

 ;;21,"23490141903 ")

 ;;1620

 ;;21,"23490141909 ")

 ;;1621

 ;;21,"23490142003 ")

 ;;1805

 ;;21,"23490142009 ")

 ;;1806

 ;;21,"23490142203 ")

 ;;2165

 ;;21,"23490142206 ")

 ;;2166

 ;;21,"23490142209 ")

 ;;2167

 ;;21,"23490647801 ")

 ;;1400

 ;;21,"23490647802 ")

 ;;1401

 ;;21,"23490647803 ")

 ;;1402

 ;;21,"23490648001 ")

 ;;1622

 ;;21,"23490648002 ")

 ;;1623

 ;;21,"23490648003 ")

 ;;1624

 ;;21,"23490648101 ")

 ;;1807

 ;;21,"23490648102 ")

 ;;1808

 ;;21,"23490648103 ")

 ;;1809

 ;;21,"23490648201 ")

 ;;2017

 ;;21,"23490648202 ")

 ;;2018

 ;;21,"23490648203 ")

 ;;2019

 ;;21,"23490648301 ")

 ;;2168

 ;;21,"23490648302 ")

 ;;2169

 ;;21,"23490648303 ")

 ;;2170

 ;;21,"23490648401 ")

 ;;2464

 ;;21,"23490648402 ")

 ;;2465

 ;;21,"23490648403 ")

 ;;2466

 ;;21,"23490660701 ")

 ;;82

 ;;21,"23490660702 ")

 ;;83

 ;;21,"23490661201 ")

 ;;814

 ;;21,"23490661202 ")

 ;;815

 ;;21,"24236022802 ")

 ;;2171

 ;;21,"24236026002 ")

 ;;1403

 ;;21,"24236032102 ")

 ;;1625

 ;;21,"24236034802 ")

 ;;2172

 ;;21,"24236035302 ")

 ;;1626

 ;;21,"24236056402 ")

 ;;1404

 ;;21,"24236069302 ")

 ;;1810

 ;;21,"24236084702 ")

 ;;1939

 ;;21,"24236087202 ")

 ;;2020

 ;;21,"24385002868 ")

 ;;743

 ;;21,"24385027868 ")

 ;;744

 ;;21,"24385041178 ")

 ;;263

 ;;21,"24385041185 ")

 ;;264

 ;;21,"24385041190 ")

 ;;265

 ;;21,"24385041678 ")

 ;;266

 ;;21,"24385041685 ")

 ;;267

 ;;21,"24385041687 ")

 ;;268

 ;;21,"24385041690 ")

 ;;269

 ;;21,"24385042990 ")

 ;;84

 ;;21,"24385053548 ")

 ;;816

 ;;21,"24385053587 ")

 ;;817

 ;;21,"24385053590 ")

 ;;818

 ;;21,"24385054572 ")

 ;;649

 ;;21,"24385064278 ")

 ;;270

 ;;21,"25021040001 ")

 ;;1034

 ;;21,"25021040010 ")

 ;;1035

 ;;21,"25021040030 ")

 ;;1036

 ;;21,"25021040102 ")

 ;;1037

 ;;21,"25021040201 ")

 ;;1280

 ;;21,"25021040210 ")

 ;;1281

 ;;21,"25021040301 ")

 ;;1130

 ;;21,"25021040304 ")

 ;;1131

 ;;21,"25021040401 ")

 ;;1204

 ;;21,"26053000701 ")

 ;;887

 ;;21,"26053032301 ")

 ;;1341

 ;;21,"33261001501 ")

 ;;85

 ;;21,"33261001505 ")

 ;;86

 ;;21,"33261001525 ")

 ;;87

 ;;21,"33261002401 ")

 ;;271

 ;;21,"33261004063 ")

 ;;745

 ;;21,"33261029601 ")

 ;;272

 ;;21,"35470053501 ")

 ;;2173

 ;;21,"37205010378 ")

 ;;273

 ;;21,"37205014519 ")

 ;;274

 ;;21,"37205014578 ")

 ;;275

 ;;21,"37205014587 ")

 ;;276

 ;;21,"37205014590 ")

 ;;277

 ;;21,"37205015078 ")

 ;;278

 ;;21,"37205041187 ")

 ;;279

 ;;21,"37205041190 ")

 ;;280

 ;;21,"37205041678 ")

 ;;281

 ;;21,"37205042978 ")

 ;;88

 ;;21,"37205042990 ")

 ;;89

 ;;21,"37205042999 ")

 ;;90

 ;;21,"37205046768 ")

 ;;746

 ;;21,"37205051076 ")

 ;;819

 ;;21,"37205051087 ")

 ;;820

 ;;21,"37205051090 ")

 ;;821

 ;;21,"37205058278 ")

 ;;282

 ;;21,"37205058287 ")

 ;;283

 ;;21,"37205064278 ")

 ;;284

 ;;21,"37205070868 ")

 ;;747

 ;;21,"37937004110 ")

 ;;285

 ;;21,"37937004119 ")

 ;;286

 ;;21,"37937004123 ")

 ;;287

 ;;21,"37937004310 ")

 ;;288

 ;;21,"37937004510 ")

 ;;289

 ;;21,"37937004553 ")

 ;;290

 ;;21,"37937009710 ")

 ;;291

 ;;21,"37937028910 ")

 ;;292

 ;;21,"39769001101 ")

 ;;937

 ;;21,"39769001102 ")

 ;;938

 ;;21,"39769001105 ")

 ;;939

 ;;21,"39769001171 ")

 ;;940

 ;;21,"39769001173 ")

 ;;941

 ;;21,"39769001175 ")

 ;;942

 ;;21,"39769001910 ")

 ;;1038

 ;;21,"39769001930 ")

 ;;1039

 ;;21,"39769002601 ")

 ;;1040

 ;;21,"39769002701 ")

 ;;1282

 ;;21,"39769002801 ")

 ;;1132

 ;;21,"39769002905 ")

 ;;1133

 ;;21,"39769003005 ")

 ;;1205

 ;;21,"39769003610 ")

 ;;943

 ;;21,"39769003630 ")

 ;;944

 ;;21,"39769003671 ")

 ;;945

 ;;21,"39769010771 ")

 ;;946

 ;;21,"39769010773 ")

 ;;947

 ;;21,"39769010775 ")

 ;;948

 ;;21,"39769011871 ")

 ;;949

 ;;21,"39769011873 ")

 ;;950

 ;;21,"39769011875 ")

 ;;951

 ;;21,"41100000208 ")

 ;;293

 ;;21,"41100000232 ")

 ;;294

 ;;21,"41100602400 ")

 ;;748

 ;;21,"41163027468 ")

 ;;749

 ;;21,"41163041678 ")

 ;;295

 ;;21,"41163041687 ")

 ;;296

 ;;21,"41163041693 ")

 ;;297

 ;;21,"41163042978 ")

 ;;91

 ;;21,"41163042990 ")

 ;;92

 ;;21,"41163046768 ")

 ;;750

 ;;21,"41163053576 ")

 ;;822

 ;;21,"41163053587 ")

 ;;823

 ;;21,"41163064281 ")

 ;;298

 ;;21,"41167093001 ")

 ;;299

 ;;21,"41167108105 ")

 ;;650

 ;;21,"43683011730 ")

 ;;2174

 ;;21,"43683011830 ")

 ;;1940

 ;;21,"43797015503 ")

 ;;703

 ;;21,"43797034406 ")

 ;;300

 ;;21,"45802070114 ")

 ;;665

 ;;21,"45802070130 ")

 ;;666

 ;;21,"45802070133 ")

 ;;667

 ;;21,"45802070230 ")

 ;;4

 ;;21,"45802070233 ")

 ;;5

 ;;21,"45802070314 ")

 ;;31

 ;;21,"45802070330 ")

 ;;35

 ;;21,"45802070333 ")

 ;;36

 ;;21,"45802070414 ")

 ;;40

 ;;21,"45802070430 ")

 ;;41

 ;;21,"45802070433 ")

 ;;42

 ;;21,"45802070514 ")

 ;;671

 ;;21,"45802070530 ")

 ;;672

 ;;21,"45802070533 ")

 ;;673

 ;;21,"45802070814 ")

 ;;24

 ;;21,"47682001133 ")

 ;;301

 ;;21,"47682001148 ")

 ;;302

 ;;21,"47682001199 ")

 ;;303

 ;;21,"47682008513 ")

 ;;304

 ;;21,"47682008533 ")

 ;;305

 ;;21,"47682011664 ")

 ;;306

 ;;21,"47682011913 ")

 ;;307

 ;;21,"47682011936 ")

 ;;308

 ;;21,"47682011948 ")

 ;;309

 ;;21,"47682011999 ")

 ;;310

 ;;21,"47682080533 ")

 ;;311

 ;;21,"47682080548 ")

 ;;312

 ;;21,"47682080613 ")

 ;;313

 ;;21,"47682080633 ")

 ;;314

 ;;21,"47682080648 ")

 ;;315

 ;;21,"47682080699 ")

 ;;316

 ;;21,"47682090633 ")

 ;;317

 ;;21,"47682090648 ")

 ;;318

 ;;21,"49035053587 ")

 ;;824

 ;;21,"49072029130 ")

 ;;1041

 ;;21,"49072029710 ")

 ;;1283

 ;;21,"49348000110 ")

 ;;319

 ;;21,"49348000114 ")

 ;;320

 ;;21,"49348000119 ")

 ;;321

 ;;21,"49348000123 ")

 ;;322

 ;;21,"49348000610 ")

 ;;323

 ;;21,"49348000622 ")

 ;;324

 ;;21,"49348000645 ")

 ;;325

 ;;21,"49348003414 ")

 ;;93

 ;;21,"49348003423 ")

 ;;94

 ;;21,"49348003482 ")

 ;;95

 ;;21,"49348019107 ")

 ;;751

 ;;21,"49348028314 ")

 ;;96

 ;;21,"49348028423 ")

 ;;825

 ;;21,"49348049807 ")

 ;;752

 ;;21,"49348075615 ")

 ;;826

 ;;21,"49348075707 ")

 ;;753

 ;;21,"49348093714 ")

 ;;97

 ;;21,"49348093782 ")

 ;;98

 ;;21,"49483000101 ")

 ;;99

 ;;21,"49483000110 ")

 ;;100

 ;;21,"49483000201 ")

 ;;694

 ;;21,"49483000210 ")

 ;;695

 ;;21,"49483000501 ")

 ;;651

 ;;21,"49483000510 ")

 ;;652

 ;;21,"49483001101 ")

 ;;326

 ;;21,"49483001110 ")

 ;;327

 ;;21,"49483002510 ")

 ;;827

 ;;21,"49483002512 ")

 ;;828

 ;;21,"49483003201 ")

 ;;101

 ;;21,"49483003210 ")

 ;;102

 ;;21,"49483005201 ")

 ;;103

 ;;21,"49483005210 ")

 ;;104

 ;;21,"49483022405 ")

 ;;873

 ;;21,"49483022410 ")

 ;;874

 ;;21,"49614011378 ")

 ;;105

 ;;21,"49614011385 ")

 ;;106

 ;;21,"49614046768 ")

 ;;754

 ;;21,"49692090130 ")

 ;;107

 ;;21,"49692090875 ")

 ;;108

 ;;21,"49856002702 ")

 ;;1342

 ;;21,"49856002704 ")

 ;;1343

 ;;21,"49856002707 ")

 ;;1344

 ;;21,"49856002709 ")

 ;;1345

 ;;21,"49856025301 ")

 ;;890

 ;;21,"49856025302 ")

 ;;891

 ;;21,"49856025303 ")

 ;;892

 ;;21,"49856025304 ")

 ;;893

 ;;21,"49884059901 ")

 ;;1346

 ;;21,"49884059902 ")

 ;;1347

 ;;21,"49884059905 ")

 ;;1348

 ;;21,"49884059911 ")

 ;;1349

 ;;21,"49910000606 ")

 ;;1284

 ;;21,"49999057600 ")

 ;;2175

 ;;21,"49999057610 ")

 ;;2176

 ;;21,"49999057620 ")

 ;;2177

 ;;21,"49999081300 ")

 ;;328

 ;;21,"49999082900 ")

 ;;2467

 ;;21,"49999086230 ")

 ;;894

 ;;21,"49999092310 ")

 ;;2021

 ;;21,"50111092201 ")

 ;;1627

 ;;21,"50111092203 ")

 ;;1628

 ;;21,"50111092210 ")

 ;;1629

 ;;21,"50111092258 ")

 ;;1630

 ;;21,"50111092401 ")

 ;;1941

 ;;21,"50111092403 ")

 ;;1942

 ;;21,"50111092410 ")

 ;;1943

 ;;21,"50111092458 ")

 ;;1944

 ;;21,"50111092501 ")

 ;;2022

 ;;21,"50111092503 ")

 ;;2023

 ;;21,"50111092510 ")

 ;;2024

 ;;21,"50111092558 ")

 ;;2025

 ;;21,"50111092601 ")

 ;;2178

 ;;21,"50111092603 ")

 ;;2179

 ;;21,"50111092610 ")

 ;;2180

 ;;21,"50111092658 ")

 ;;2181

 ;;21,"50111092701 ")

 ;;2413

 ;;21,"50111092703 ")

 ;;2414

 ;;21,"50111092710 ")

 ;;2415

 ;;21,"50111092758 ")

 ;;2416

 ;;21,"50111092801 ")

 ;;2468

 ;;21,"50111092803 ")

 ;;2469

 ;;21,"50111092810 ")

 ;;2470

 ;;21,"50111092858 ")

 ;;2471

 ;;21,"50111092901 ")

 ;;1545

 ;;21,"50111092903 ")

 ;;1546

 ;;21,"50111092910 ")

 ;;1547

 ;;21,"50111092958 ")

 ;;1548

 ;;21,"50428126148 ")

 ;;755

 ;;21,"50428140897 ")

 ;;109

 ;;21,"50428152314 ")

 ;;329

 ;;21,"50428218859 ")

 ;;110

 ;;21,"50428230268 ")

 ;;829

 ;;21,"50428271255 ")

 ;;830

 ;;21,"50428458871 ")

 ;;831

BGPM3AAV  ;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,"11722092999 ")

 +2       ;;1543

 +3       ;;21,"11743021002 ")

 +4       ;;1029

 +5       ;;21,"11819000990 ")

 +6       ;;810

 +7       ;;21,"11822316901 ")

 +8       ;;811

 +9       ;;21,"11845084701 ")

 +10      ;;236

 +11      ;;21,"11845089004 ")

 +12      ;;237

 +13      ;;21,"11845093001 ")

 +14      ;;238

 +15      ;;21,"11845094236 ")

 +16      ;;738

 +17      ;;21,"11845097502 ")

 +18      ;;239

 +19      ;;21,"11917004160 ")

 +20      ;;240

 +21      ;;21,"11917004161 ")

 +22      ;;241

 +23      ;;21,"12333902801 ")

 +24      ;;74

 +25      ;;21,"12333902802 ")

 +26      ;;75

 +27      ;;21,"12333902803 ")

 +28      ;;76

 +29      ;;21,"12333902804 ")

 +30      ;;77

 +31      ;;21,"12333904804 ")

 +32      ;;242

 +33      ;;21,"12333904901 ")

 +34      ;;243

 +35      ;;21,"12333904902 ")

 +36      ;;244

 +37      ;;21,"12333904903 ")

 +38      ;;245

 +39      ;;21,"12333904904 ")

 +40      ;;246

 +41      ;;21,"12333905001 ")

 +42      ;;247

 +43      ;;21,"12333905002 ")

 +44      ;;248

 +45      ;;21,"12333944601 ")

 +46      ;;739

 +47      ;;21,"12333950001 ")

 +48      ;;740

 +49      ;;21,"12634010401 ")

 +50      ;;78

 +51      ;;21,"12634010410 ")

 +52      ;;79

 +53      ;;21,"12634010510 ")

 +54      ;;693

 +55      ;;21,"12634012001 ")

 +56      ;;249

 +57      ;;21,"12671002403 ")

 +58      ;;1030

 +59      ;;21,"12671002407 ")

 +60      ;;1031

 +61      ;;21,"12671002503 ")

 +62      ;;1278

 +63      ;;21,"12671002601 ")

 +64      ;;1126

 +65      ;;21,"12671002603 ")

 +66      ;;1127

 +67      ;;21,"12671006303 ")

 +68      ;;1032

 +69      ;;21,"12671006307 ")

 +70      ;;1033

 +71      ;;21,"12671006403 ")

 +72      ;;1279

 +73      ;;21,"12671006501 ")

 +74      ;;1128

 +75      ;;21,"12671006515 ")

 +76      ;;1129

 +77      ;;21,"12843010514 ")

 +78      ;;639

 +79      ;;21,"12843016158 ")

 +80      ;;640

 +81      ;;21,"12843019176 ")

 +82      ;;702

 +83      ;;21,"12843020256 ")

 +84      ;;641

 +85      ;;21,"13411033903 ")

 +86      ;;2159

 +87      ;;21,"15330010001 ")

 +88      ;;1398

 +89      ;;21,"15330010010 ")

 +90      ;;1399

 +91      ;;21,"15330010101 ")

 +92      ;;1616

 +93      ;;21,"15330010110 ")

 +94      ;;1617

 +95      ;;21,"15330010201 ")

 +96      ;;1801

 +97      ;;21,"15330010210 ")

 +98      ;;1802

 +99      ;;21,"15330010601 ")

 +100     ;;2412

 +101     ;;21,"15330010701 ")

 +102     ;;2463

 +103     ;;21,"15330010801 ")

 +104     ;;1544

 +105     ;;21,"15330026601 ")

 +106     ;;1938

 +107     ;;21,"15330026701 ")

 +108     ;;2016

 +109     ;;21,"15330026801 ")

 +110     ;;2160

 +111     ;;21,"15330026810 ")

 +112     ;;2161

 +113     ;;21,"17236001436 ")

 +114     ;;741

 +115     ;;21,"17236037801 ")

 +116     ;;250

 +117     ;;21,"17236037810 ")

 +118     ;;251

 +119     ;;21,"17236037825 ")

 +120     ;;252

 +121     ;;21,"17236038001 ")

 +122     ;;253

 +123     ;;21,"17236038010 ")

 +124     ;;254

 +125     ;;21,"17236038025 ")

 +126     ;;255

 +127     ;;21,"17236070510 ")

 +128     ;;812

 +129     ;;21,"17236070566 ")

 +130     ;;813

 +131     ;;21,"17714000936 ")

 +132     ;;742

 +133     ;;21,"17714001001 ")

 +134     ;;256

 +135     ;;21,"17714001010 ")

 +136     ;;257

 +137     ;;21,"17714001101 ")

 +138     ;;80

 +139     ;;21,"17714001110 ")

 +140     ;;81

 +141     ;;21,"17856402902 ")

 +142     ;;1803

 +143     ;;21,"19458044301 ")

 +144     ;;1804

 +145     ;;21,"19458047101 ")

 +146     ;;2162

 +147     ;;21,"19458059801 ")

 +148     ;;1618

 +149     ;;21,"19458500101 ")

 +150     ;;258

 +151     ;;21,"19458500102 ")

 +152     ;;259

 +153     ;;21,"19458500201 ")

 +154     ;;642

 +155     ;;21,"19458500301 ")

 +156     ;;260

 +157     ;;21,"19458500801 ")

 +158     ;;261

 +159     ;;21,"19810000743 ")

 +160     ;;643

 +161     ;;21,"19810005101 ")

 +162     ;;644

 +163     ;;21,"19810005102 ")

 +164     ;;645

 +165     ;;21,"19810005250 ")

 +166     ;;262

 +167     ;;21,"19810007401 ")

 +168     ;;646

 +169     ;;21,"19810007403 ")

 +170     ;;647

 +171     ;;21,"19810007404 ")

 +172     ;;648

 +173     ;;21,"21695067330 ")

 +174     ;;1619

 +175     ;;21,"21695067730 ")

 +176     ;;2163

 +177     ;;21,"23490083305 ")

 +178     ;;2164

 +179     ;;21,"23490141903 ")

 +180     ;;1620

 +181     ;;21,"23490141909 ")

 +182     ;;1621

 +183     ;;21,"23490142003 ")

 +184     ;;1805

 +185     ;;21,"23490142009 ")

 +186     ;;1806

 +187     ;;21,"23490142203 ")

 +188     ;;2165

 +189     ;;21,"23490142206 ")

 +190     ;;2166

 +191     ;;21,"23490142209 ")

 +192     ;;2167

 +193     ;;21,"23490647801 ")

 +194     ;;1400

 +195     ;;21,"23490647802 ")

 +196     ;;1401

 +197     ;;21,"23490647803 ")

 +198     ;;1402

 +199     ;;21,"23490648001 ")

 +200     ;;1622

 +201     ;;21,"23490648002 ")

 +202     ;;1623

 +203     ;;21,"23490648003 ")

 +204     ;;1624

 +205     ;;21,"23490648101 ")

 +206     ;;1807

 +207     ;;21,"23490648102 ")

 +208     ;;1808

 +209     ;;21,"23490648103 ")

 +210     ;;1809

 +211     ;;21,"23490648201 ")

 +212     ;;2017

 +213     ;;21,"23490648202 ")

 +214     ;;2018

 +215     ;;21,"23490648203 ")

 +216     ;;2019

 +217     ;;21,"23490648301 ")

 +218     ;;2168

 +219     ;;21,"23490648302 ")

 +220     ;;2169

 +221     ;;21,"23490648303 ")

 +222     ;;2170

 +223     ;;21,"23490648401 ")

 +224     ;;2464

 +225     ;;21,"23490648402 ")

 +226     ;;2465

 +227     ;;21,"23490648403 ")

 +228     ;;2466

 +229     ;;21,"23490660701 ")

 +230     ;;82

 +231     ;;21,"23490660702 ")

 +232     ;;83

 +233     ;;21,"23490661201 ")

 +234     ;;814

 +235     ;;21,"23490661202 ")

 +236     ;;815

 +237     ;;21,"24236022802 ")

 +238     ;;2171

 +239     ;;21,"24236026002 ")

 +240     ;;1403

 +241     ;;21,"24236032102 ")

 +242     ;;1625

 +243     ;;21,"24236034802 ")

 +244     ;;2172

 +245     ;;21,"24236035302 ")

 +246     ;;1626

 +247     ;;21,"24236056402 ")

 +248     ;;1404

 +249     ;;21,"24236069302 ")

 +250     ;;1810

 +251     ;;21,"24236084702 ")

 +252     ;;1939

 +253     ;;21,"24236087202 ")

 +254     ;;2020

 +255     ;;21,"24385002868 ")

 +256     ;;743

 +257     ;;21,"24385027868 ")

 +258     ;;744

 +259     ;;21,"24385041178 ")

 +260     ;;263

 +261     ;;21,"24385041185 ")

 +262     ;;264

 +263     ;;21,"24385041190 ")

 +264     ;;265

 +265     ;;21,"24385041678 ")

 +266     ;;266

 +267     ;;21,"24385041685 ")

 +268     ;;267

 +269     ;;21,"24385041687 ")

 +270     ;;268

 +271     ;;21,"24385041690 ")

 +272     ;;269

 +273     ;;21,"24385042990 ")

 +274     ;;84

 +275     ;;21,"24385053548 ")

 +276     ;;816

 +277     ;;21,"24385053587 ")

 +278     ;;817

 +279     ;;21,"24385053590 ")

 +280     ;;818

 +281     ;;21,"24385054572 ")

 +282     ;;649

 +283     ;;21,"24385064278 ")

 +284     ;;270

 +285     ;;21,"25021040001 ")

 +286     ;;1034

 +287     ;;21,"25021040010 ")

 +288     ;;1035

 +289     ;;21,"25021040030 ")

 +290     ;;1036

 +291     ;;21,"25021040102 ")

 +292     ;;1037

 +293     ;;21,"25021040201 ")

 +294     ;;1280

 +295     ;;21,"25021040210 ")

 +296     ;;1281

 +297     ;;21,"25021040301 ")

 +298     ;;1130

 +299     ;;21,"25021040304 ")

 +300     ;;1131

 +301     ;;21,"25021040401 ")

 +302     ;;1204

 +303     ;;21,"26053000701 ")

 +304     ;;887

 +305     ;;21,"26053032301 ")

 +306     ;;1341

 +307     ;;21,"33261001501 ")

 +308     ;;85

 +309     ;;21,"33261001505 ")

 +310     ;;86

 +311     ;;21,"33261001525 ")

 +312     ;;87

 +313     ;;21,"33261002401 ")

 +314     ;;271

 +315     ;;21,"33261004063 ")

 +316     ;;745

 +317     ;;21,"33261029601 ")

 +318     ;;272

 +319     ;;21,"35470053501 ")

 +320     ;;2173

 +321     ;;21,"37205010378 ")

 +322     ;;273

 +323     ;;21,"37205014519 ")

 +324     ;;274

 +325     ;;21,"37205014578 ")

 +326     ;;275

 +327     ;;21,"37205014587 ")

 +328     ;;276

 +329     ;;21,"37205014590 ")

 +330     ;;277

 +331     ;;21,"37205015078 ")

 +332     ;;278

 +333     ;;21,"37205041187 ")

 +334     ;;279

 +335     ;;21,"37205041190 ")

 +336     ;;280

 +337     ;;21,"37205041678 ")

 +338     ;;281

 +339     ;;21,"37205042978 ")

 +340     ;;88

 +341     ;;21,"37205042990 ")

 +342     ;;89

 +343     ;;21,"37205042999 ")

 +344     ;;90

 +345     ;;21,"37205046768 ")

 +346     ;;746

 +347     ;;21,"37205051076 ")

 +348     ;;819

 +349     ;;21,"37205051087 ")

 +350     ;;820

 +351     ;;21,"37205051090 ")

 +352     ;;821

 +353     ;;21,"37205058278 ")

 +354     ;;282

 +355     ;;21,"37205058287 ")

 +356     ;;283

 +357     ;;21,"37205064278 ")

 +358     ;;284

 +359     ;;21,"37205070868 ")

 +360     ;;747

 +361     ;;21,"37937004110 ")

 +362     ;;285

 +363     ;;21,"37937004119 ")

 +364     ;;286

 +365     ;;21,"37937004123 ")

 +366     ;;287

 +367     ;;21,"37937004310 ")

 +368     ;;288

 +369     ;;21,"37937004510 ")

 +370     ;;289

 +371     ;;21,"37937004553 ")

 +372     ;;290

 +373     ;;21,"37937009710 ")

 +374     ;;291

 +375     ;;21,"37937028910 ")

 +376     ;;292

 +377     ;;21,"39769001101 ")

 +378     ;;937

 +379     ;;21,"39769001102 ")

 +380     ;;938

 +381     ;;21,"39769001105 ")

 +382     ;;939

 +383     ;;21,"39769001171 ")

 +384     ;;940

 +385     ;;21,"39769001173 ")

 +386     ;;941

 +387     ;;21,"39769001175 ")

 +388     ;;942

 +389     ;;21,"39769001910 ")

 +390     ;;1038

 +391     ;;21,"39769001930 ")

 +392     ;;1039

 +393     ;;21,"39769002601 ")

 +394     ;;1040

 +395     ;;21,"39769002701 ")

 +396     ;;1282

 +397     ;;21,"39769002801 ")

 +398     ;;1132

 +399     ;;21,"39769002905 ")

 +400     ;;1133

 +401     ;;21,"39769003005 ")

 +402     ;;1205

 +403     ;;21,"39769003610 ")

 +404     ;;943

 +405     ;;21,"39769003630 ")

 +406     ;;944

 +407     ;;21,"39769003671 ")

 +408     ;;945

 +409     ;;21,"39769010771 ")

 +410     ;;946

 +411     ;;21,"39769010773 ")

 +412     ;;947

 +413     ;;21,"39769010775 ")

 +414     ;;948

 +415     ;;21,"39769011871 ")

 +416     ;;949

 +417     ;;21,"39769011873 ")

 +418     ;;950

 +419     ;;21,"39769011875 ")

 +420     ;;951

 +421     ;;21,"41100000208 ")

 +422     ;;293

 +423     ;;21,"41100000232 ")

 +424     ;;294

 +425     ;;21,"41100602400 ")

 +426     ;;748

 +427     ;;21,"41163027468 ")

 +428     ;;749

 +429     ;;21,"41163041678 ")

 +430     ;;295

 +431     ;;21,"41163041687 ")

 +432     ;;296

 +433     ;;21,"41163041693 ")

 +434     ;;297

 +435     ;;21,"41163042978 ")

 +436     ;;91

 +437     ;;21,"41163042990 ")

 +438     ;;92

 +439     ;;21,"41163046768 ")

 +440     ;;750

 +441     ;;21,"41163053576 ")

 +442     ;;822

 +443     ;;21,"41163053587 ")

 +444     ;;823

 +445     ;;21,"41163064281 ")

 +446     ;;298

 +447     ;;21,"41167093001 ")

 +448     ;;299

 +449     ;;21,"41167108105 ")

 +450     ;;650

 +451     ;;21,"43683011730 ")

 +452     ;;2174

 +453     ;;21,"43683011830 ")

 +454     ;;1940

 +455     ;;21,"43797015503 ")

 +456     ;;703

 +457     ;;21,"43797034406 ")

 +458     ;;300

 +459     ;;21,"45802070114 ")

 +460     ;;665

 +461     ;;21,"45802070130 ")

 +462     ;;666

 +463     ;;21,"45802070133 ")

 +464     ;;667

 +465     ;;21,"45802070230 ")

 +466     ;;4

 +467     ;;21,"45802070233 ")

 +468     ;;5

 +469     ;;21,"45802070314 ")

 +470     ;;31

 +471     ;;21,"45802070330 ")

 +472     ;;35

 +473     ;;21,"45802070333 ")

 +474     ;;36

 +475     ;;21,"45802070414 ")

 +476     ;;40

 +477     ;;21,"45802070430 ")

 +478     ;;41

 +479     ;;21,"45802070433 ")

 +480     ;;42

 +481     ;;21,"45802070514 ")

 +482     ;;671

 +483     ;;21,"45802070530 ")

 +484     ;;672

 +485     ;;21,"45802070533 ")

 +486     ;;673

 +487     ;;21,"45802070814 ")

 +488     ;;24

 +489     ;;21,"47682001133 ")

 +490     ;;301

 +491     ;;21,"47682001148 ")

 +492     ;;302

 +493     ;;21,"47682001199 ")

 +494     ;;303

 +495     ;;21,"47682008513 ")

 +496     ;;304

 +497     ;;21,"47682008533 ")

 +498     ;;305

 +499     ;;21,"47682011664 ")

 +500     ;;306

 +501     ;;21,"47682011913 ")

 +502     ;;307

 +503     ;;21,"47682011936 ")

 +504     ;;308

 +505     ;;21,"47682011948 ")

 +506     ;;309

 +507     ;;21,"47682011999 ")

 +508     ;;310

 +509     ;;21,"47682080533 ")

 +510     ;;311

 +511     ;;21,"47682080548 ")

 +512     ;;312

 +513     ;;21,"47682080613 ")

 +514     ;;313

 +515     ;;21,"47682080633 ")

 +516     ;;314

 +517     ;;21,"47682080648 ")

 +518     ;;315

 +519     ;;21,"47682080699 ")

 +520     ;;316

 +521     ;;21,"47682090633 ")

 +522     ;;317

 +523     ;;21,"47682090648 ")

 +524     ;;318

 +525     ;;21,"49035053587 ")

 +526     ;;824

 +527     ;;21,"49072029130 ")

 +528     ;;1041

 +529     ;;21,"49072029710 ")

 +530     ;;1283

 +531     ;;21,"49348000110 ")

 +532     ;;319

 +533     ;;21,"49348000114 ")

 +534     ;;320

 +535     ;;21,"49348000119 ")

 +536     ;;321

 +537     ;;21,"49348000123 ")

 +538     ;;322

 +539     ;;21,"49348000610 ")

 +540     ;;323

 +541     ;;21,"49348000622 ")

 +542     ;;324

 +543     ;;21,"49348000645 ")

 +544     ;;325

 +545     ;;21,"49348003414 ")

 +546     ;;93

 +547     ;;21,"49348003423 ")

 +548     ;;94

 +549     ;;21,"49348003482 ")

 +550     ;;95

 +551     ;;21,"49348019107 ")

 +552     ;;751

 +553     ;;21,"49348028314 ")

 +554     ;;96

 +555     ;;21,"49348028423 ")

 +556     ;;825

 +557     ;;21,"49348049807 ")

 +558     ;;752

 +559     ;;21,"49348075615 ")

 +560     ;;826

 +561     ;;21,"49348075707 ")

 +562     ;;753

 +563     ;;21,"49348093714 ")

 +564     ;;97

 +565     ;;21,"49348093782 ")

 +566     ;;98

 +567     ;;21,"49483000101 ")

 +568     ;;99

 +569     ;;21,"49483000110 ")

 +570     ;;100

 +571     ;;21,"49483000201 ")

 +572     ;;694

 +573     ;;21,"49483000210 ")

 +574     ;;695

 +575     ;;21,"49483000501 ")

 +576     ;;651

 +577     ;;21,"49483000510 ")

 +578     ;;652

 +579     ;;21,"49483001101 ")

 +580     ;;326

 +581     ;;21,"49483001110 ")

 +582     ;;327

 +583     ;;21,"49483002510 ")

 +584     ;;827

 +585     ;;21,"49483002512 ")

 +586     ;;828

 +587     ;;21,"49483003201 ")

 +588     ;;101

 +589     ;;21,"49483003210 ")

 +590     ;;102

 +591     ;;21,"49483005201 ")

 +592     ;;103

 +593     ;;21,"49483005210 ")

 +594     ;;104

 +595     ;;21,"49483022405 ")

 +596     ;;873

 +597     ;;21,"49483022410 ")

 +598     ;;874

 +599     ;;21,"49614011378 ")

 +600     ;;105

 +601     ;;21,"49614011385 ")

 +602     ;;106

 +603     ;;21,"49614046768 ")

 +604     ;;754

 +605     ;;21,"49692090130 ")

 +606     ;;107

 +607     ;;21,"49692090875 ")

 +608     ;;108

 +609     ;;21,"49856002702 ")

 +610     ;;1342

 +611     ;;21,"49856002704 ")

 +612     ;;1343

 +613     ;;21,"49856002707 ")

 +614     ;;1344

 +615     ;;21,"49856002709 ")

 +616     ;;1345

 +617     ;;21,"49856025301 ")

 +618     ;;890

 +619     ;;21,"49856025302 ")

 +620     ;;891

 +621     ;;21,"49856025303 ")

 +622     ;;892

 +623     ;;21,"49856025304 ")

 +624     ;;893

 +625     ;;21,"49884059901 ")

 +626     ;;1346

 +627     ;;21,"49884059902 ")

 +628     ;;1347

 +629     ;;21,"49884059905 ")

 +630     ;;1348

 +631     ;;21,"49884059911 ")

 +632     ;;1349

 +633     ;;21,"49910000606 ")

 +634     ;;1284

 +635     ;;21,"49999057600 ")

 +636     ;;2175

 +637     ;;21,"49999057610 ")

 +638     ;;2176

 +639     ;;21,"49999057620 ")

 +640     ;;2177

 +641     ;;21,"49999081300 ")

 +642     ;;328

 +643     ;;21,"49999082900 ")

 +644     ;;2467

 +645     ;;21,"49999086230 ")

 +646     ;;894

 +647     ;;21,"49999092310 ")

 +648     ;;2021

 +649     ;;21,"50111092201 ")

 +650     ;;1627

 +651     ;;21,"50111092203 ")

 +652     ;;1628

 +653     ;;21,"50111092210 ")

 +654     ;;1629

 +655     ;;21,"50111092258 ")

 +656     ;;1630

 +657     ;;21,"50111092401 ")

 +658     ;;1941

 +659     ;;21,"50111092403 ")

 +660     ;;1942

 +661     ;;21,"50111092410 ")

 +662     ;;1943

 +663     ;;21,"50111092458 ")

 +664     ;;1944

 +665     ;;21,"50111092501 ")

 +666     ;;2022

 +667     ;;21,"50111092503 ")

 +668     ;;2023

 +669     ;;21,"50111092510 ")

 +670     ;;2024

 +671     ;;21,"50111092558 ")

 +672     ;;2025

 +673     ;;21,"50111092601 ")

 +674     ;;2178

 +675     ;;21,"50111092603 ")

 +676     ;;2179

 +677     ;;21,"50111092610 ")

 +678     ;;2180

 +679     ;;21,"50111092658 ")

 +680     ;;2181

 +681     ;;21,"50111092701 ")

 +682     ;;2413

 +683     ;;21,"50111092703 ")

 +684     ;;2414

 +685     ;;21,"50111092710 ")

 +686     ;;2415

 +687     ;;21,"50111092758 ")

 +688     ;;2416

 +689     ;;21,"50111092801 ")

 +690     ;;2468

 +691     ;;21,"50111092803 ")

 +692     ;;2469

 +693     ;;21,"50111092810 ")

 +694     ;;2470

 +695     ;;21,"50111092858 ")

 +696     ;;2471

 +697     ;;21,"50111092901 ")

 +698     ;;1545

 +699     ;;21,"50111092903 ")

 +700     ;;1546

 +701     ;;21,"50111092910 ")

 +702     ;;1547

 +703     ;;21,"50111092958 ")

 +704     ;;1548

 +705     ;;21,"50428126148 ")

 +706     ;;755

 +707     ;;21,"50428140897 ")

 +708     ;;109

 +709     ;;21,"50428152314 ")

 +710     ;;329

 +711     ;;21,"50428218859 ")

 +712     ;;110

 +713     ;;21,"50428230268 ")

 +714     ;;829

 +715     ;;21,"50428271255 ")

 +716     ;;830

 +717     ;;21,"50428458871 ")

 +718     ;;831