BGPM5AUA.m

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

 Q

 ;

TMP ;;TAXONOMY (WITH BULLETIN)

 ;;21,"63874012421 ")

 ;;4677

 ;;21,"63874012424 ")

 ;;4678

 ;;21,"63874012428 ")

 ;;4679

 ;;21,"63874012430 ")

 ;;4680

 ;;21,"63874012440 ")

 ;;4681

 ;;21,"63874012450 ")

 ;;4682

 ;;21,"63874012460 ")

 ;;4683

 ;;21,"63874012501 ")

 ;;4684

 ;;21,"63874012502 ")

 ;;4685

 ;;21,"63874012510 ")

 ;;4686

 ;;21,"63874012514 ")

 ;;4687

 ;;21,"63874012515 ")

 ;;4688

 ;;21,"63874012520 ")

 ;;4689

 ;;21,"63874012521 ")

 ;;4690

 ;;21,"63874012524 ")

 ;;4691

 ;;21,"63874012528 ")

 ;;4692

 ;;21,"63874012530 ")

 ;;4693

 ;;21,"63874012540 ")

 ;;4694

 ;;21,"63874012560 ")

 ;;4695

 ;;21,"63874012580 ")

 ;;4696

 ;;21,"63874014310 ")

 ;;4697

 ;;21,"63874014315 ")

 ;;4698

 ;;21,"63874014380 ")

 ;;4699

 ;;21,"63874014410 ")

 ;;4700

 ;;21,"63874014415 ")

 ;;4701

 ;;21,"63874014610 ")

 ;;4702

 ;;21,"63874014615 ")

 ;;4703

 ;;21,"63874014620 ")

 ;;4704

 ;;21,"63874015115 ")

 ;;4705

 ;;21,"63874015175 ")

 ;;4706

 ;;21,"63874015315 ")

 ;;4707

 ;;21,"63874015375 ")

 ;;4708

 ;;21,"63874015510 ")

 ;;4709

 ;;21,"63874015520 ")

 ;;4710

 ;;21,"63874015610 ")

 ;;4711

 ;;21,"63874015615 ")

 ;;4712

 ;;21,"63874015620 ")

 ;;4713

 ;;21,"63874015910 ")

 ;;4714

 ;;21,"63874015920 ")

 ;;4715

 ;;21,"63874016010 ")

 ;;4716

 ;;21,"63874016020 ")

 ;;4717

 ;;21,"63874016048 ")

 ;;4718

 ;;21,"63874016610 ")

 ;;4719

 ;;21,"63874016620 ")

 ;;4720

 ;;21,"63874017010 ")

 ;;4721

 ;;21,"63874017020 ")

 ;;4722

 ;;21,"63874023101 ")

 ;;4723

 ;;21,"63874023110 ")

 ;;4724

 ;;21,"63874023112 ")

 ;;4725

 ;;21,"63874023114 ")

 ;;4726

 ;;21,"63874023115 ")

 ;;4727

 ;;21,"63874023120 ")

 ;;4728

 ;;21,"63874023121 ")

 ;;4729

 ;;21,"63874023128 ")

 ;;4730

 ;;21,"63874023130 ")

 ;;4731

 ;;21,"63874023140 ")

 ;;4732

 ;;21,"63874023201 ")

 ;;4733

 ;;21,"63874023202 ")

 ;;4734

 ;;21,"63874023203 ")

 ;;4735

 ;;21,"63874023210 ")

 ;;4736

 ;;21,"63874023212 ")

 ;;4737

 ;;21,"63874023216 ")

 ;;4738

 ;;21,"63874023220 ")

 ;;4739

 ;;21,"63874023221 ")

 ;;4740

 ;;21,"63874023224 ")

 ;;4741

 ;;21,"63874023228 ")

 ;;4742

 ;;21,"63874023230 ")

 ;;4743

 ;;21,"63874023240 ")

 ;;4744

 ;;21,"63874023250 ")

 ;;4745

 ;;21,"63874023301 ")

 ;;4746

 ;;21,"63874023302 ")

 ;;4747

 ;;21,"63874023306 ")

 ;;4748

 ;;21,"63874023310 ")

 ;;4749

 ;;21,"63874023312 ")

 ;;4750

 ;;21,"63874023315 ")

 ;;4751

 ;;21,"63874023316 ")

 ;;4752

 ;;21,"63874023320 ")

 ;;4753

 ;;21,"63874023324 ")

 ;;4754

 ;;21,"63874023328 ")

 ;;4755

 ;;21,"63874023330 ")

 ;;4756

 ;;21,"63874023336 ")

 ;;4757

 ;;21,"63874023340 ")

 ;;4758

 ;;21,"63874023350 ")

 ;;4759

 ;;21,"63874023360 ")

 ;;4760

 ;;21,"63874023501 ")

 ;;4761

 ;;21,"63874023504 ")

 ;;4762

 ;;21,"63874023510 ")

 ;;4763

 ;;21,"63874023512 ")

 ;;4764

 ;;21,"63874023515 ")

 ;;4765

 ;;21,"63874023516 ")

 ;;4766

 ;;21,"63874023520 ")

 ;;4767

 ;;21,"63874023521 ")

 ;;4768

 ;;21,"63874023528 ")

 ;;4769

 ;;21,"63874023530 ")

 ;;4770

 ;;21,"63874023540 ")

 ;;4771

 ;;21,"63874023556 ")

 ;;4772

 ;;21,"63874023580 ")

 ;;4773

 ;;21,"63874023701 ")

 ;;4774

 ;;21,"63874023704 ")

 ;;4775

 ;;21,"63874023705 ")

 ;;4776

 ;;21,"63874023706 ")

 ;;4777

 ;;21,"63874023707 ")

 ;;4778

 ;;21,"63874023710 ")

 ;;4779

 ;;21,"63874023712 ")

 ;;4780

 ;;21,"63874023714 ")

 ;;4781

 ;;21,"63874023715 ")

 ;;4782

 ;;21,"63874023716 ")

 ;;4783

 ;;21,"63874023720 ")

 ;;4784

 ;;21,"63874023721 ")

 ;;4785

 ;;21,"63874023724 ")

 ;;4786

 ;;21,"63874023728 ")

 ;;4787

 ;;21,"63874023730 ")

 ;;4788

 ;;21,"63874023740 ")

 ;;4789

 ;;21,"63874023750 ")

 ;;4790

 ;;21,"63874023760 ")

 ;;4791

 ;;21,"63874023772 ")

 ;;4792

 ;;21,"63874023774 ")

 ;;4793

 ;;21,"63874023777 ")

 ;;4794

 ;;21,"63874023901 ")

 ;;4795

 ;;21,"63874023920 ")

 ;;4796

 ;;21,"63874023930 ")

 ;;4797

 ;;21,"63874024001 ")

 ;;4798

 ;;21,"63874024020 ")

 ;;4799

 ;;21,"63874024030 ")

 ;;4800

 ;;21,"63874024050 ")

 ;;4801

 ;;21,"63874024115 ")

 ;;4802

 ;;21,"63874024120 ")

 ;;4803

 ;;21,"63874024130 ")

 ;;4804

 ;;21,"63874024150 ")

 ;;4805

 ;;21,"63874024160 ")

 ;;4806

 ;;21,"63874053301 ")

 ;;4807

 ;;21,"63874053304 ")

 ;;4808

 ;;21,"63874053310 ")

 ;;4809

 ;;21,"63874053312 ")

 ;;4810

 ;;21,"63874053314 ")

 ;;4811

 ;;21,"63874053315 ")

 ;;4812

 ;;21,"63874053320 ")

 ;;4813

 ;;21,"63874053325 ")

 ;;4814

 ;;21,"63874053328 ")

 ;;4815

 ;;21,"63874053330 ")

 ;;4816

 ;;21,"63874053340 ")

 ;;4817

 ;;21,"63874053344 ")

 ;;4818

 ;;21,"63874053360 ")

 ;;4819

 ;;21,"63874053372 ")

 ;;4820

 ;;21,"63874053374 ")

 ;;4821

 ;;21,"63874053377 ")

 ;;4822

 ;;21,"63874053390 ")

 ;;4823

 ;;21,"63874108601 ")

 ;;4824

 ;;21,"63874108602 ")

 ;;4825

 ;;21,"63874108603 ")

 ;;4826

 ;;21,"63874108604 ")

 ;;4827

 ;;21,"63874108605 ")

 ;;4828

 ;;21,"63874108606 ")

 ;;4829

 ;;21,"63874111202 ")

 ;;4830

 ;;21,"63874122602 ")

 ;;4831

 ;;21,"64038003301 ")

 ;;4832

 ;;21,"64038003340 ")

 ;;4833

 ;;21,"64380000510 ")

 ;;4834

 ;;21,"64579001600 ")

 ;;4835

 ;;21,"64579001601 ")

 ;;4836

 ;;21,"64679054701 ")

 ;;4837

 ;;21,"64679054702 ")

 ;;4838

 ;;21,"64679054703 ")

 ;;4839

 ;;21,"64679054704 ")

 ;;4840

 ;;21,"64679054705 ")

 ;;4841

 ;;21,"64679070101 ")

 ;;4842

 ;;21,"64679070102 ")

 ;;4843

 ;;21,"64679070103 ")

 ;;4844

 ;;21,"64679070201 ")

 ;;4845

 ;;21,"64679070202 ")

 ;;4846

 ;;21,"64679070301 ")

 ;;4847

 ;;21,"64679070302 ")

 ;;4848

 ;;21,"64679071201 ")

 ;;4849

 ;;21,"64679071202 ")

 ;;4850

 ;;21,"64679071203 ")

 ;;4851

 ;;21,"64679071204 ")

 ;;4852

 ;;21,"64679071301 ")

 ;;4853

 ;;21,"64679071302 ")

 ;;4854

 ;;21,"64679071303 ")

 ;;4855

 ;;21,"64679092001 ")

 ;;4856

 ;;21,"64679092002 ")

 ;;4857

 ;;21,"64679092101 ")

 ;;4858

 ;;21,"64679092102 ")

 ;;4859

 ;;21,"64679092201 ")

 ;;4860

 ;;21,"64679092202 ")

 ;;4861

 ;;21,"64679094901 ")

 ;;4862

 ;;21,"64679095401 ")

 ;;4863

 ;;21,"64679096101 ")

 ;;4864

 ;;21,"64679096102 ")

 ;;4865

 ;;21,"64679096104 ")

 ;;4866

 ;;21,"64679096105 ")

 ;;4867

 ;;21,"64679096106 ")

 ;;4868

 ;;21,"64679096107 ")

 ;;4869

 ;;21,"64679096108 ")

 ;;4870

 ;;21,"64679098301 ")

 ;;4871

 ;;21,"64679098302 ")

 ;;4872

 ;;21,"64720015201 ")

 ;;4873

 ;;21,"64720015210 ")

 ;;4874

 ;;21,"64720015310 ")

 ;;4875

 ;;21,"64720015316 ")

 ;;4876

 ;;21,"64720015410 ")

 ;;4877

 ;;21,"64720015416 ")

 ;;4878

 ;;21,"64725002402 ")

 ;;4879

 ;;21,"64725002403 ")

 ;;4880

 ;;21,"64725002404 ")

 ;;4881

 ;;21,"64725007202 ")

 ;;4882

 ;;21,"64725007203 ")

 ;;4883

 ;;21,"64725007204 ")

 ;;4884

 ;;21,"64725011302 ")

 ;;4885

 ;;21,"64725011303 ")

 ;;4886

 ;;21,"64725030402 ")

 ;;4887

 ;;21,"64725030403 ")

 ;;4888

 ;;21,"64725032503 ")

 ;;4889

 ;;21,"64725038702 ")

 ;;4890

 ;;21,"64725038802 ")

 ;;4891

 ;;21,"64860010407 ")

 ;;4892

 ;;21,"64860010408 ")

 ;;4893

 ;;21,"64860010500 ")

 ;;4894

 ;;21,"64860010501 ")

 ;;4895

 ;;21,"64860010504 ")

 ;;4896

 ;;21,"64860010506 ")

 ;;4897

 ;;21,"64860010507 ")

 ;;4898

 ;;21,"64860010509 ")

 ;;4899

 ;;21,"64860011107 ")

 ;;4900

 ;;21,"64860011207 ")

 ;;4901

 ;;21,"64860011208 ")

 ;;4902

 ;;21,"64860011808 ")

 ;;4903

 ;;21,"64860011908 ")

 ;;4904

 ;;21,"64860030613 ")

 ;;4905

 ;;21,"64860030640 ")

 ;;4906

 ;;21,"64860030713 ")

 ;;4907

 ;;21,"64860030740 ")

 ;;4908

 ;;21,"64860031113 ")

 ;;4909

 ;;21,"64860031140 ")

 ;;4910

 ;;21,"64860031213 ")

 ;;4911

 ;;21,"64860031240 ")

 ;;4912

 ;;21,"64896124500 ")

 ;;4913

 ;;21,"64896124501 ")

 ;;4914

 ;;21,"64896124502 ")

 ;;4915

 ;;21,"64896124503 ")

 ;;4916

 ;;21,"64896124508 ")

 ;;4917

 ;;21,"64896124600 ")

 ;;4918

 ;;21,"64896124601 ")

 ;;4919

 ;;21,"64896124602 ")

 ;;4920

 ;;21,"64896124603 ")

 ;;4921

 ;;21,"64896124608 ")

 ;;4922

 ;;21,"64896124700 ")

 ;;4923

 ;;21,"64896124701 ")

 ;;4924

 ;;21,"64896124702 ")

 ;;4925

 ;;21,"64896124703 ")

 ;;4926

 ;;21,"64896124708 ")

 ;;4927

 ;;21,"65015010811 ")

 ;;4928

 ;;21,"65015010911 ")

 ;;4929

 ;;21,"65015011011 ")

 ;;4930

 ;;21,"65162020201 ")

 ;;4931

 ;;21,"65162020202 ")

 ;;4932

 ;;21,"65162020208 ")

 ;;4933

 ;;21,"65162020214 ")

 ;;4934

 ;;21,"65162031301 ")

 ;;4935

 ;;21,"65162031302 ")

 ;;4936

 ;;21,"65162031308 ")

 ;;4937

 ;;21,"65162031314 ")

 ;;4938

 ;;21,"65162052705 ")

 ;;4939

 ;;21,"65243006702 ")

 ;;4940

 ;;21,"65415101101 ")

 ;;4941

 ;;21,"65415101201 ")

 ;;4942

 ;;21,"65415101301 ")

 ;;4943

 ;;21,"65415101401 ")

 ;;4944

 ;;21,"65427030901 ")

 ;;4945

 ;;21,"65427030902 ")

 ;;4946

 ;;21,"65427030903 ")

 ;;4947

 ;;21,"65427030930 ")

 ;;4948

 ;;21,"65862001401 ")

 ;;4949

 ;;21,"65862001405 ")

 ;;4950

 ;;21,"65862001420 ")

 ;;4951

 ;;21,"65862001422 ")

 ;;4952

 ;;21,"65862001431 ")

 ;;4953

 ;;21,"65862001501 ")

 ;;4954

 ;;21,"65862001505 ")

 ;;4955

 ;;21,"65862001520 ")

 ;;4956

 ;;21,"65862001589 ")

 ;;4957

 ;;21,"65862001599 ")

 ;;4958

 ;;21,"65862001601 ")

 ;;4959

 ;;21,"65862001605 ")

 ;;4960

 ;;21,"65862001618 ")

 ;;4961

 ;;21,"65862001620 ")

 ;;4962

 ;;21,"65862001622 ")

 ;;4963

 ;;21,"65862001701 ")

 ;;4964

 ;;21,"65862001705 ")

 ;;4965

 ;;21,"65862001715 ")

 ;;4966

 ;;21,"65862001720 ")

 ;;4967

 ;;21,"65862001799 ")

 ;;4968

 ;;21,"65862001801 ")

 ;;4969

 ;;21,"65862001805 ")

 ;;4970

 ;;21,"65862001820 ")

 ;;4971

 ;;21,"65862001822 ")

 ;;4972

 ;;21,"65862001840 ")

 ;;4973

 ;;21,"65862001901 ")

 ;;4974

 ;;21,"65862001905 ")

 ;;4975

 ;;21,"65862001920 ")

 ;;4976

 ;;21,"65862001940 ")

 ;;4977

 ;;21,"65862001952 ")

 ;;4978

 ;;21,"65862003320 ")

 ;;4979

 ;;21,"65862003360 ")

 ;;4980

 ;;21,"65862003375 ")

 ;;4981

 ;;21,"65862003420 ")

 ;;4982

 ;;21,"65862003436 ")

 ;;4983

 ;;21,"65862003460 ")

 ;;4984

 ;;21,"65862003515 ")

 ;;4985

 ;;21,"65862003520 ")

 ;;4986

 ;;21,"65862003560 ")

 ;;4987

 ;;21,"65862006501 ")

 ;;4988

 ;;21,"65862006505 ")

 ;;4989

 ;;21,"65862006520 ")

 ;;4990

 ;;21,"65862006522 ")

 ;;4991

 ;;21,"65862006601 ")

 ;;4992

 ;;21,"65862006605 ")

 ;;4993

 ;;21,"65862006612 ")

 ;;4994

 ;;21,"65862006620 ")

 ;;4995

 ;;21,"65862006801 ")

 ;;4996

 ;;21,"65862006805 ")

 ;;4997

 ;;21,"65862006830 ")

 ;;4998

 ;;21,"65862006839 ")

 ;;4999

 ;;21,"65862006850 ")

 ;;5000

 ;;21,"65862006901 ")

 ;;5001

 ;;21,"65862006905 ")

 ;;5002

 ;;21,"65862006915 ")

 ;;5003

 ;;21,"65862006930 ")

 ;;5004

 ;;21,"65862006950 ")

 ;;5005

 ;;21,"65862007001 ")

 ;;5006

 ;;21,"65862007050 ")

 ;;5007

 ;;21,"65862007075 ")

 ;;5008

 ;;21,"65862007101 ")

 ;;5009

 ;;21,"65862007150 ")

 ;;5010

 ;;21,"65862007175 ")

 ;;5011

 ;;21,"65862007601 ")

 ;;5012

 ;;21,"65862007630 ")

 ;;5013

 ;;21,"65862007639 ")

 ;;5014

 ;;21,"65862007699 ")

 ;;5015

 ;;21,"65862007701 ")

 ;;5016

 ;;21,"65862007705 ")

 ;;5017

 ;;21,"65862007715 ")

 ;;5018

 ;;21,"65862007730 ")

 ;;5019

 ;;21,"65862007799 ")

 ;;5020

 ;;21,"65862007850 ")

 ;;5021

 ;;21,"65862007899 ")

 ;;5022

 ;;21,"65862008501 ")

 ;;5023

 ;;21,"65862008512 ")

 ;;5024

 ;;21,"65862008550 ")

 ;;5025

 ;;21,"65862009501 ")

 ;;5026

 ;;21,"65862009520 ")

 ;;5027

 ;;21,"65862009545 ")

 ;;5028

BGPM5AUA  ;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       ;;21,"63874012421 ")

 +2       ;;4677

 +3       ;;21,"63874012424 ")

 +4       ;;4678

 +5       ;;21,"63874012428 ")

 +6       ;;4679

 +7       ;;21,"63874012430 ")

 +8       ;;4680

 +9       ;;21,"63874012440 ")

 +10      ;;4681

 +11      ;;21,"63874012450 ")

 +12      ;;4682

 +13      ;;21,"63874012460 ")

 +14      ;;4683

 +15      ;;21,"63874012501 ")

 +16      ;;4684

 +17      ;;21,"63874012502 ")

 +18      ;;4685

 +19      ;;21,"63874012510 ")

 +20      ;;4686

 +21      ;;21,"63874012514 ")

 +22      ;;4687

 +23      ;;21,"63874012515 ")

 +24      ;;4688

 +25      ;;21,"63874012520 ")

 +26      ;;4689

 +27      ;;21,"63874012521 ")

 +28      ;;4690

 +29      ;;21,"63874012524 ")

 +30      ;;4691

 +31      ;;21,"63874012528 ")

 +32      ;;4692

 +33      ;;21,"63874012530 ")

 +34      ;;4693

 +35      ;;21,"63874012540 ")

 +36      ;;4694

 +37      ;;21,"63874012560 ")

 +38      ;;4695

 +39      ;;21,"63874012580 ")

 +40      ;;4696

 +41      ;;21,"63874014310 ")

 +42      ;;4697

 +43      ;;21,"63874014315 ")

 +44      ;;4698

 +45      ;;21,"63874014380 ")

 +46      ;;4699

 +47      ;;21,"63874014410 ")

 +48      ;;4700

 +49      ;;21,"63874014415 ")

 +50      ;;4701

 +51      ;;21,"63874014610 ")

 +52      ;;4702

 +53      ;;21,"63874014615 ")

 +54      ;;4703

 +55      ;;21,"63874014620 ")

 +56      ;;4704

 +57      ;;21,"63874015115 ")

 +58      ;;4705

 +59      ;;21,"63874015175 ")

 +60      ;;4706

 +61      ;;21,"63874015315 ")

 +62      ;;4707

 +63      ;;21,"63874015375 ")

 +64      ;;4708

 +65      ;;21,"63874015510 ")

 +66      ;;4709

 +67      ;;21,"63874015520 ")

 +68      ;;4710

 +69      ;;21,"63874015610 ")

 +70      ;;4711

 +71      ;;21,"63874015615 ")

 +72      ;;4712

 +73      ;;21,"63874015620 ")

 +74      ;;4713

 +75      ;;21,"63874015910 ")

 +76      ;;4714

 +77      ;;21,"63874015920 ")

 +78      ;;4715

 +79      ;;21,"63874016010 ")

 +80      ;;4716

 +81      ;;21,"63874016020 ")

 +82      ;;4717

 +83      ;;21,"63874016048 ")

 +84      ;;4718

 +85      ;;21,"63874016610 ")

 +86      ;;4719

 +87      ;;21,"63874016620 ")

 +88      ;;4720

 +89      ;;21,"63874017010 ")

 +90      ;;4721

 +91      ;;21,"63874017020 ")

 +92      ;;4722

 +93      ;;21,"63874023101 ")

 +94      ;;4723

 +95      ;;21,"63874023110 ")

 +96      ;;4724

 +97      ;;21,"63874023112 ")

 +98      ;;4725

 +99      ;;21,"63874023114 ")

 +100     ;;4726

 +101     ;;21,"63874023115 ")

 +102     ;;4727

 +103     ;;21,"63874023120 ")

 +104     ;;4728

 +105     ;;21,"63874023121 ")

 +106     ;;4729

 +107     ;;21,"63874023128 ")

 +108     ;;4730

 +109     ;;21,"63874023130 ")

 +110     ;;4731

 +111     ;;21,"63874023140 ")

 +112     ;;4732

 +113     ;;21,"63874023201 ")

 +114     ;;4733

 +115     ;;21,"63874023202 ")

 +116     ;;4734

 +117     ;;21,"63874023203 ")

 +118     ;;4735

 +119     ;;21,"63874023210 ")

 +120     ;;4736

 +121     ;;21,"63874023212 ")

 +122     ;;4737

 +123     ;;21,"63874023216 ")

 +124     ;;4738

 +125     ;;21,"63874023220 ")

 +126     ;;4739

 +127     ;;21,"63874023221 ")

 +128     ;;4740

 +129     ;;21,"63874023224 ")

 +130     ;;4741

 +131     ;;21,"63874023228 ")

 +132     ;;4742

 +133     ;;21,"63874023230 ")

 +134     ;;4743

 +135     ;;21,"63874023240 ")

 +136     ;;4744

 +137     ;;21,"63874023250 ")

 +138     ;;4745

 +139     ;;21,"63874023301 ")

 +140     ;;4746

 +141     ;;21,"63874023302 ")

 +142     ;;4747

 +143     ;;21,"63874023306 ")

 +144     ;;4748

 +145     ;;21,"63874023310 ")

 +146     ;;4749

 +147     ;;21,"63874023312 ")

 +148     ;;4750

 +149     ;;21,"63874023315 ")

 +150     ;;4751

 +151     ;;21,"63874023316 ")

 +152     ;;4752

 +153     ;;21,"63874023320 ")

 +154     ;;4753

 +155     ;;21,"63874023324 ")

 +156     ;;4754

 +157     ;;21,"63874023328 ")

 +158     ;;4755

 +159     ;;21,"63874023330 ")

 +160     ;;4756

 +161     ;;21,"63874023336 ")

 +162     ;;4757

 +163     ;;21,"63874023340 ")

 +164     ;;4758

 +165     ;;21,"63874023350 ")

 +166     ;;4759

 +167     ;;21,"63874023360 ")

 +168     ;;4760

 +169     ;;21,"63874023501 ")

 +170     ;;4761

 +171     ;;21,"63874023504 ")

 +172     ;;4762

 +173     ;;21,"63874023510 ")

 +174     ;;4763

 +175     ;;21,"63874023512 ")

 +176     ;;4764

 +177     ;;21,"63874023515 ")

 +178     ;;4765

 +179     ;;21,"63874023516 ")

 +180     ;;4766

 +181     ;;21,"63874023520 ")

 +182     ;;4767

 +183     ;;21,"63874023521 ")

 +184     ;;4768

 +185     ;;21,"63874023528 ")

 +186     ;;4769

 +187     ;;21,"63874023530 ")

 +188     ;;4770

 +189     ;;21,"63874023540 ")

 +190     ;;4771

 +191     ;;21,"63874023556 ")

 +192     ;;4772

 +193     ;;21,"63874023580 ")

 +194     ;;4773

 +195     ;;21,"63874023701 ")

 +196     ;;4774

 +197     ;;21,"63874023704 ")

 +198     ;;4775

 +199     ;;21,"63874023705 ")

 +200     ;;4776

 +201     ;;21,"63874023706 ")

 +202     ;;4777

 +203     ;;21,"63874023707 ")

 +204     ;;4778

 +205     ;;21,"63874023710 ")

 +206     ;;4779

 +207     ;;21,"63874023712 ")

 +208     ;;4780

 +209     ;;21,"63874023714 ")

 +210     ;;4781

 +211     ;;21,"63874023715 ")

 +212     ;;4782

 +213     ;;21,"63874023716 ")

 +214     ;;4783

 +215     ;;21,"63874023720 ")

 +216     ;;4784

 +217     ;;21,"63874023721 ")

 +218     ;;4785

 +219     ;;21,"63874023724 ")

 +220     ;;4786

 +221     ;;21,"63874023728 ")

 +222     ;;4787

 +223     ;;21,"63874023730 ")

 +224     ;;4788

 +225     ;;21,"63874023740 ")

 +226     ;;4789

 +227     ;;21,"63874023750 ")

 +228     ;;4790

 +229     ;;21,"63874023760 ")

 +230     ;;4791

 +231     ;;21,"63874023772 ")

 +232     ;;4792

 +233     ;;21,"63874023774 ")

 +234     ;;4793

 +235     ;;21,"63874023777 ")

 +236     ;;4794

 +237     ;;21,"63874023901 ")

 +238     ;;4795

 +239     ;;21,"63874023920 ")

 +240     ;;4796

 +241     ;;21,"63874023930 ")

 +242     ;;4797

 +243     ;;21,"63874024001 ")

 +244     ;;4798

 +245     ;;21,"63874024020 ")

 +246     ;;4799

 +247     ;;21,"63874024030 ")

 +248     ;;4800

 +249     ;;21,"63874024050 ")

 +250     ;;4801

 +251     ;;21,"63874024115 ")

 +252     ;;4802

 +253     ;;21,"63874024120 ")

 +254     ;;4803

 +255     ;;21,"63874024130 ")

 +256     ;;4804

 +257     ;;21,"63874024150 ")

 +258     ;;4805

 +259     ;;21,"63874024160 ")

 +260     ;;4806

 +261     ;;21,"63874053301 ")

 +262     ;;4807

 +263     ;;21,"63874053304 ")

 +264     ;;4808

 +265     ;;21,"63874053310 ")

 +266     ;;4809

 +267     ;;21,"63874053312 ")

 +268     ;;4810

 +269     ;;21,"63874053314 ")

 +270     ;;4811

 +271     ;;21,"63874053315 ")

 +272     ;;4812

 +273     ;;21,"63874053320 ")

 +274     ;;4813

 +275     ;;21,"63874053325 ")

 +276     ;;4814

 +277     ;;21,"63874053328 ")

 +278     ;;4815

 +279     ;;21,"63874053330 ")

 +280     ;;4816

 +281     ;;21,"63874053340 ")

 +282     ;;4817

 +283     ;;21,"63874053344 ")

 +284     ;;4818

 +285     ;;21,"63874053360 ")

 +286     ;;4819

 +287     ;;21,"63874053372 ")

 +288     ;;4820

 +289     ;;21,"63874053374 ")

 +290     ;;4821

 +291     ;;21,"63874053377 ")

 +292     ;;4822

 +293     ;;21,"63874053390 ")

 +294     ;;4823

 +295     ;;21,"63874108601 ")

 +296     ;;4824

 +297     ;;21,"63874108602 ")

 +298     ;;4825

 +299     ;;21,"63874108603 ")

 +300     ;;4826

 +301     ;;21,"63874108604 ")

 +302     ;;4827

 +303     ;;21,"63874108605 ")

 +304     ;;4828

 +305     ;;21,"63874108606 ")

 +306     ;;4829

 +307     ;;21,"63874111202 ")

 +308     ;;4830

 +309     ;;21,"63874122602 ")

 +310     ;;4831

 +311     ;;21,"64038003301 ")

 +312     ;;4832

 +313     ;;21,"64038003340 ")

 +314     ;;4833

 +315     ;;21,"64380000510 ")

 +316     ;;4834

 +317     ;;21,"64579001600 ")

 +318     ;;4835

 +319     ;;21,"64579001601 ")

 +320     ;;4836

 +321     ;;21,"64679054701 ")

 +322     ;;4837

 +323     ;;21,"64679054702 ")

 +324     ;;4838

 +325     ;;21,"64679054703 ")

 +326     ;;4839

 +327     ;;21,"64679054704 ")

 +328     ;;4840

 +329     ;;21,"64679054705 ")

 +330     ;;4841

 +331     ;;21,"64679070101 ")

 +332     ;;4842

 +333     ;;21,"64679070102 ")

 +334     ;;4843

 +335     ;;21,"64679070103 ")

 +336     ;;4844

 +337     ;;21,"64679070201 ")

 +338     ;;4845

 +339     ;;21,"64679070202 ")

 +340     ;;4846

 +341     ;;21,"64679070301 ")

 +342     ;;4847

 +343     ;;21,"64679070302 ")

 +344     ;;4848

 +345     ;;21,"64679071201 ")

 +346     ;;4849

 +347     ;;21,"64679071202 ")

 +348     ;;4850

 +349     ;;21,"64679071203 ")

 +350     ;;4851

 +351     ;;21,"64679071204 ")

 +352     ;;4852

 +353     ;;21,"64679071301 ")

 +354     ;;4853

 +355     ;;21,"64679071302 ")

 +356     ;;4854

 +357     ;;21,"64679071303 ")

 +358     ;;4855

 +359     ;;21,"64679092001 ")

 +360     ;;4856

 +361     ;;21,"64679092002 ")

 +362     ;;4857

 +363     ;;21,"64679092101 ")

 +364     ;;4858

 +365     ;;21,"64679092102 ")

 +366     ;;4859

 +367     ;;21,"64679092201 ")

 +368     ;;4860

 +369     ;;21,"64679092202 ")

 +370     ;;4861

 +371     ;;21,"64679094901 ")

 +372     ;;4862

 +373     ;;21,"64679095401 ")

 +374     ;;4863

 +375     ;;21,"64679096101 ")

 +376     ;;4864

 +377     ;;21,"64679096102 ")

 +378     ;;4865

 +379     ;;21,"64679096104 ")

 +380     ;;4866

 +381     ;;21,"64679096105 ")

 +382     ;;4867

 +383     ;;21,"64679096106 ")

 +384     ;;4868

 +385     ;;21,"64679096107 ")

 +386     ;;4869

 +387     ;;21,"64679096108 ")

 +388     ;;4870

 +389     ;;21,"64679098301 ")

 +390     ;;4871

 +391     ;;21,"64679098302 ")

 +392     ;;4872

 +393     ;;21,"64720015201 ")

 +394     ;;4873

 +395     ;;21,"64720015210 ")

 +396     ;;4874

 +397     ;;21,"64720015310 ")

 +398     ;;4875

 +399     ;;21,"64720015316 ")

 +400     ;;4876

 +401     ;;21,"64720015410 ")

 +402     ;;4877

 +403     ;;21,"64720015416 ")

 +404     ;;4878

 +405     ;;21,"64725002402 ")

 +406     ;;4879

 +407     ;;21,"64725002403 ")

 +408     ;;4880

 +409     ;;21,"64725002404 ")

 +410     ;;4881

 +411     ;;21,"64725007202 ")

 +412     ;;4882

 +413     ;;21,"64725007203 ")

 +414     ;;4883

 +415     ;;21,"64725007204 ")

 +416     ;;4884

 +417     ;;21,"64725011302 ")

 +418     ;;4885

 +419     ;;21,"64725011303 ")

 +420     ;;4886

 +421     ;;21,"64725030402 ")

 +422     ;;4887

 +423     ;;21,"64725030403 ")

 +424     ;;4888

 +425     ;;21,"64725032503 ")

 +426     ;;4889

 +427     ;;21,"64725038702 ")

 +428     ;;4890

 +429     ;;21,"64725038802 ")

 +430     ;;4891

 +431     ;;21,"64860010407 ")

 +432     ;;4892

 +433     ;;21,"64860010408 ")

 +434     ;;4893

 +435     ;;21,"64860010500 ")

 +436     ;;4894

 +437     ;;21,"64860010501 ")

 +438     ;;4895

 +439     ;;21,"64860010504 ")

 +440     ;;4896

 +441     ;;21,"64860010506 ")

 +442     ;;4897

 +443     ;;21,"64860010507 ")

 +444     ;;4898

 +445     ;;21,"64860010509 ")

 +446     ;;4899

 +447     ;;21,"64860011107 ")

 +448     ;;4900

 +449     ;;21,"64860011207 ")

 +450     ;;4901

 +451     ;;21,"64860011208 ")

 +452     ;;4902

 +453     ;;21,"64860011808 ")

 +454     ;;4903

 +455     ;;21,"64860011908 ")

 +456     ;;4904

 +457     ;;21,"64860030613 ")

 +458     ;;4905

 +459     ;;21,"64860030640 ")

 +460     ;;4906

 +461     ;;21,"64860030713 ")

 +462     ;;4907

 +463     ;;21,"64860030740 ")

 +464     ;;4908

 +465     ;;21,"64860031113 ")

 +466     ;;4909

 +467     ;;21,"64860031140 ")

 +468     ;;4910

 +469     ;;21,"64860031213 ")

 +470     ;;4911

 +471     ;;21,"64860031240 ")

 +472     ;;4912

 +473     ;;21,"64896124500 ")

 +474     ;;4913

 +475     ;;21,"64896124501 ")

 +476     ;;4914

 +477     ;;21,"64896124502 ")

 +478     ;;4915

 +479     ;;21,"64896124503 ")

 +480     ;;4916

 +481     ;;21,"64896124508 ")

 +482     ;;4917

 +483     ;;21,"64896124600 ")

 +484     ;;4918

 +485     ;;21,"64896124601 ")

 +486     ;;4919

 +487     ;;21,"64896124602 ")

 +488     ;;4920

 +489     ;;21,"64896124603 ")

 +490     ;;4921

 +491     ;;21,"64896124608 ")

 +492     ;;4922

 +493     ;;21,"64896124700 ")

 +494     ;;4923

 +495     ;;21,"64896124701 ")

 +496     ;;4924

 +497     ;;21,"64896124702 ")

 +498     ;;4925

 +499     ;;21,"64896124703 ")

 +500     ;;4926

 +501     ;;21,"64896124708 ")

 +502     ;;4927

 +503     ;;21,"65015010811 ")

 +504     ;;4928

 +505     ;;21,"65015010911 ")

 +506     ;;4929

 +507     ;;21,"65015011011 ")

 +508     ;;4930

 +509     ;;21,"65162020201 ")

 +510     ;;4931

 +511     ;;21,"65162020202 ")

 +512     ;;4932

 +513     ;;21,"65162020208 ")

 +514     ;;4933

 +515     ;;21,"65162020214 ")

 +516     ;;4934

 +517     ;;21,"65162031301 ")

 +518     ;;4935

 +519     ;;21,"65162031302 ")

 +520     ;;4936

 +521     ;;21,"65162031308 ")

 +522     ;;4937

 +523     ;;21,"65162031314 ")

 +524     ;;4938

 +525     ;;21,"65162052705 ")

 +526     ;;4939

 +527     ;;21,"65243006702 ")

 +528     ;;4940

 +529     ;;21,"65415101101 ")

 +530     ;;4941

 +531     ;;21,"65415101201 ")

 +532     ;;4942

 +533     ;;21,"65415101301 ")

 +534     ;;4943

 +535     ;;21,"65415101401 ")

 +536     ;;4944

 +537     ;;21,"65427030901 ")

 +538     ;;4945

 +539     ;;21,"65427030902 ")

 +540     ;;4946

 +541     ;;21,"65427030903 ")

 +542     ;;4947

 +543     ;;21,"65427030930 ")

 +544     ;;4948

 +545     ;;21,"65862001401 ")

 +546     ;;4949

 +547     ;;21,"65862001405 ")

 +548     ;;4950

 +549     ;;21,"65862001420 ")

 +550     ;;4951

 +551     ;;21,"65862001422 ")

 +552     ;;4952

 +553     ;;21,"65862001431 ")

 +554     ;;4953

 +555     ;;21,"65862001501 ")

 +556     ;;4954

 +557     ;;21,"65862001505 ")

 +558     ;;4955

 +559     ;;21,"65862001520 ")

 +560     ;;4956

 +561     ;;21,"65862001589 ")

 +562     ;;4957

 +563     ;;21,"65862001599 ")

 +564     ;;4958

 +565     ;;21,"65862001601 ")

 +566     ;;4959

 +567     ;;21,"65862001605 ")

 +568     ;;4960

 +569     ;;21,"65862001618 ")

 +570     ;;4961

 +571     ;;21,"65862001620 ")

 +572     ;;4962

 +573     ;;21,"65862001622 ")

 +574     ;;4963

 +575     ;;21,"65862001701 ")

 +576     ;;4964

 +577     ;;21,"65862001705 ")

 +578     ;;4965

 +579     ;;21,"65862001715 ")

 +580     ;;4966

 +581     ;;21,"65862001720 ")

 +582     ;;4967

 +583     ;;21,"65862001799 ")

 +584     ;;4968

 +585     ;;21,"65862001801 ")

 +586     ;;4969

 +587     ;;21,"65862001805 ")

 +588     ;;4970

 +589     ;;21,"65862001820 ")

 +590     ;;4971

 +591     ;;21,"65862001822 ")

 +592     ;;4972

 +593     ;;21,"65862001840 ")

 +594     ;;4973

 +595     ;;21,"65862001901 ")

 +596     ;;4974

 +597     ;;21,"65862001905 ")

 +598     ;;4975

 +599     ;;21,"65862001920 ")

 +600     ;;4976

 +601     ;;21,"65862001940 ")

 +602     ;;4977

 +603     ;;21,"65862001952 ")

 +604     ;;4978

 +605     ;;21,"65862003320 ")

 +606     ;;4979

 +607     ;;21,"65862003360 ")

 +608     ;;4980

 +609     ;;21,"65862003375 ")

 +610     ;;4981

 +611     ;;21,"65862003420 ")

 +612     ;;4982

 +613     ;;21,"65862003436 ")

 +614     ;;4983

 +615     ;;21,"65862003460 ")

 +616     ;;4984

 +617     ;;21,"65862003515 ")

 +618     ;;4985

 +619     ;;21,"65862003520 ")

 +620     ;;4986

 +621     ;;21,"65862003560 ")

 +622     ;;4987

 +623     ;;21,"65862006501 ")

 +624     ;;4988

 +625     ;;21,"65862006505 ")

 +626     ;;4989

 +627     ;;21,"65862006520 ")

 +628     ;;4990

 +629     ;;21,"65862006522 ")

 +630     ;;4991

 +631     ;;21,"65862006601 ")

 +632     ;;4992

 +633     ;;21,"65862006605 ")

 +634     ;;4993

 +635     ;;21,"65862006612 ")

 +636     ;;4994

 +637     ;;21,"65862006620 ")

 +638     ;;4995

 +639     ;;21,"65862006801 ")

 +640     ;;4996

 +641     ;;21,"65862006805 ")

 +642     ;;4997

 +643     ;;21,"65862006830 ")

 +644     ;;4998

 +645     ;;21,"65862006839 ")

 +646     ;;4999

 +647     ;;21,"65862006850 ")

 +648     ;;5000

 +649     ;;21,"65862006901 ")

 +650     ;;5001

 +651     ;;21,"65862006905 ")

 +652     ;;5002

 +653     ;;21,"65862006915 ")

 +654     ;;5003

 +655     ;;21,"65862006930 ")

 +656     ;;5004

 +657     ;;21,"65862006950 ")

 +658     ;;5005

 +659     ;;21,"65862007001 ")

 +660     ;;5006

 +661     ;;21,"65862007050 ")

 +662     ;;5007

 +663     ;;21,"65862007075 ")

 +664     ;;5008

 +665     ;;21,"65862007101 ")

 +666     ;;5009

 +667     ;;21,"65862007150 ")

 +668     ;;5010

 +669     ;;21,"65862007175 ")

 +670     ;;5011

 +671     ;;21,"65862007601 ")

 +672     ;;5012

 +673     ;;21,"65862007630 ")

 +674     ;;5013

 +675     ;;21,"65862007639 ")

 +676     ;;5014

 +677     ;;21,"65862007699 ")

 +678     ;;5015

 +679     ;;21,"65862007701 ")

 +680     ;;5016

 +681     ;;21,"65862007705 ")

 +682     ;;5017

 +683     ;;21,"65862007715 ")

 +684     ;;5018

 +685     ;;21,"65862007730 ")

 +686     ;;5019

 +687     ;;21,"65862007799 ")

 +688     ;;5020

 +689     ;;21,"65862007850 ")

 +690     ;;5021

 +691     ;;21,"65862007899 ")

 +692     ;;5022

 +693     ;;21,"65862008501 ")

 +694     ;;5023

 +695     ;;21,"65862008512 ")

 +696     ;;5024

 +697     ;;21,"65862008550 ")

 +698     ;;5025

 +699     ;;21,"65862009501 ")

 +700     ;;5026

 +701     ;;21,"65862009520 ")

 +702     ;;5027

 +703     ;;21,"65862009545 ")

 +704     ;;5028