BGP2VF.m

BGP2VF ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 08, 2012;

 ;;12.1;IHS CLINICAL REPORTING;;MAY 17, 2012;Build 66

 ;;BGP HEDIS ANTIDEPRESSANT NDC

 ;

 ; This routine loads Taxonomy BGP HEDIS ANTIDEPRESSANT NDC

 ;

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

 D OTHER

 I $O(^TMP("ATX",$J,3.6,0)) D BULL^ATXSTX2

 I $O(^TMP("ATX",$J,9002226,0)) D TAX^ATXSTX2

 D KILL^ATXSTX2

 Q

 ;

TMP ;;TAXONOMY (WITH BULLETIN)

 ;;21,"00002-3004-75 ")

 ;;2514

 ;;21,"00002-3230-30 ")

 ;;2524

 ;;21,"00002-3231-01 ")

 ;;2526

 ;;21,"00002-3231-30 ")

 ;;2527

 ;;21,"00002-3231-33 ")

 ;;2528

 ;;21,"00002-3232-01 ")

 ;;2520

 ;;21,"00002-3232-30 ")

 ;;2521

 ;;21,"00002-3232-33 ")

 ;;2522

 ;;21,"00002-3233-01 ")

 ;;2534

 ;;21,"00002-3233-30 ")

 ;;2535

 ;;21,"00002-3233-33 ")

 ;;2536

 ;;21,"00002-3234-01 ")

 ;;2530

 ;;21,"00002-3234-30 ")

 ;;2531

 ;;21,"00002-3234-33 ")

 ;;2532

 ;;21,"00002-3235-01 ")

 ;;1829

 ;;21,"00002-3235-33 ")

 ;;1830

 ;;21,"00002-3235-60 ")

 ;;1831

 ;;21,"00002-3237-01 ")

 ;;1878

 ;;21,"00002-3237-04 ")

 ;;1879

 ;;21,"00002-3237-30 ")

 ;;1880

 ;;21,"00002-3237-33 ")

 ;;1881

 ;;21,"00002-3237-34 ")

 ;;1882

 ;;21,"00002-3240-01 ")

 ;;1842

 ;;21,"00002-3240-30 ")

 ;;1843

 ;;21,"00002-3240-33 ")

 ;;1844

 ;;21,"00002-3240-90 ")

 ;;1845

 ;;21,"00002-3270-01 ")

 ;;1883

 ;;21,"00002-3270-04 ")

 ;;1884

 ;;21,"00002-3270-30 ")

 ;;1885

 ;;21,"00002-3270-33 ")

 ;;1886

 ;;21,"00007-4471-20 ")

 ;;4329

 ;;21,"00008-0701-01 ")

 ;;4820

 ;;21,"00008-0701-07 ")

 ;;4821

 ;;21,"00008-0701-08 ")

 ;;4822

 ;;21,"00008-0703-01 ")

 ;;4976

 ;;21,"00008-0703-07 ")

 ;;4977

 ;;21,"00008-0703-08 ")

 ;;4978

 ;;21,"00008-0704-01 ")

 ;;5089

 ;;21,"00008-0704-07 ")

 ;;5090

 ;;21,"00008-0704-08 ")

 ;;5091

 ;;21,"00008-0705-01 ")

 ;;4722

 ;;21,"00008-0705-07 ")

 ;;4723

 ;;21,"00008-0705-08 ")

 ;;4724

 ;;21,"00008-0781-01 ")

 ;;4907

 ;;21,"00008-0781-07 ")

 ;;4908

 ;;21,"00008-0781-08 ")

 ;;4909

 ;;21,"00008-0833-01 ")

 ;;5007

 ;;21,"00008-0833-02 ")

 ;;5008

 ;;21,"00008-0833-03 ")

 ;;5009

 ;;21,"00008-0833-20 ")

 ;;5010

 ;;21,"00008-0833-21 ")

 ;;5011

 ;;21,"00008-0833-22 ")

 ;;5012

 ;;21,"00008-0836-01 ")

 ;;4741

 ;;21,"00008-0836-02 ")

 ;;4742

 ;;21,"00008-0836-03 ")

 ;;4743

 ;;21,"00008-0836-20 ")

 ;;4744

 ;;21,"00008-0836-21 ")

 ;;4745

 ;;21,"00008-0836-22 ")

 ;;4746

 ;;21,"00008-0837-01 ")

 ;;4848

 ;;21,"00008-0837-02 ")

 ;;4849

 ;;21,"00008-0837-03 ")

 ;;4850

 ;;21,"00008-0837-20 ")

 ;;4851

 ;;21,"00008-0837-21 ")

 ;;4852

 ;;21,"00008-0837-22 ")

 ;;4853

 ;;21,"00008-1211-01 ")

 ;;1555

 ;;21,"00008-1211-14 ")

 ;;1556

 ;;21,"00008-1211-30 ")

 ;;1557

 ;;21,"00008-1211-50 ")

 ;;1558

 ;;21,"00008-1222-01 ")

 ;;1551

 ;;21,"00008-1222-14 ")

 ;;1552

 ;;21,"00008-1222-30 ")

 ;;1553

 ;;21,"00008-1222-50 ")

 ;;1554

 ;;21,"00024-5810-30 ")

 ;;979

 ;;21,"00024-5811-30 ")

 ;;980

 ;;21,"00024-5812-30 ")

 ;;981

 ;;21,"00029-3206-13 ")

 ;;3463

 ;;21,"00029-3207-13 ")

 ;;3663

 ;;21,"00029-3208-13 ")

 ;;3759

 ;;21,"00029-3210-13 ")

 ;;3373

 ;;21,"00029-3211-13 ")

 ;;3489

 ;;21,"00029-3211-21 ")

 ;;3490

 ;;21,"00029-3211-59 ")

 ;;3491

 ;;21,"00029-3212-13 ")

 ;;3687

 ;;21,"00029-3213-13 ")

 ;;3771

 ;;21,"00029-3215-48 ")

 ;;3460

 ;;21,"00029-4606-13 ")

 ;;3464

 ;;21,"00029-4607-13 ")

 ;;3664

 ;;21,"00049-4900-30 ")

 ;;4165

 ;;21,"00049-4900-41 ")

 ;;4166

 ;;21,"00049-4900-94 ")

 ;;4167

 ;;21,"00049-4910-30 ")

 ;;3892

 ;;21,"00049-4910-41 ")

 ;;3893

 ;;21,"00049-4910-94 ")

 ;;3894

 ;;21,"00049-4940-23 ")

 ;;4070

 ;;21,"00049-4960-30 ")

 ;;4075

 ;;21,"00052-0105-30 ")

 ;;2741

 ;;21,"00052-0105-90 ")

 ;;2742

 ;;21,"00052-0106-06 ")

 ;;2833

 ;;21,"00052-0106-30 ")

 ;;2834

 ;;21,"00052-0106-90 ")

 ;;2835

 ;;21,"00052-0106-93 ")

 ;;2836

 ;;21,"00052-0107-30 ")

 ;;2849

 ;;21,"00052-0107-90 ")

 ;;2850

 ;;21,"00052-0108-06 ")

 ;;2941

 ;;21,"00052-0108-30 ")

 ;;2942

 ;;21,"00052-0108-90 ")

 ;;2943

 ;;21,"00052-0108-93 ")

 ;;2944

 ;;21,"00052-0109-30 ")

 ;;2956

 ;;21,"00052-0110-06 ")

 ;;3012

 ;;21,"00052-0110-30 ")

 ;;3013

 ;;21,"00052-0110-90 ")

 ;;3014

 ;;21,"00054-0022-13 ")

 ;;4076

 ;;21,"00054-0023-13 ")

 ;;4168

 ;;21,"00054-0023-28 ")

 ;;4169

 ;;21,"00054-0024-13 ")

 ;;3895

 ;;21,"00054-0024-28 ")

 ;;3896

 ;;21,"00054-0062-58 ")

 ;;1078

 ;;21,"00054-0082-46 ")

 ;;4071

 ;;21,"00054-0210-25 ")

 ;;3879

 ;;21,"00054-0211-25 ")

 ;;3872

 ;;21,"00054-0273-13 ")

 ;;2720

 ;;21,"00054-0274-13 ")

 ;;2705

 ;;21,"00054-0275-13 ")

 ;;2710

 ;;21,"00054-0276-13 ")

 ;;2715

 ;;21,"00054-4676-13 ")

 ;;2743

 ;;21,"00054-4678-13 ")

 ;;2957

 ;;21,"00054-8676-25 ")

 ;;2744

 ;;21,"00054-8677-25 ")

 ;;2851

 ;;21,"00068-0007-01 ")

 ;;1409

 ;;21,"00068-0011-01 ")

 ;;1445

 ;;21,"00068-0015-01 ")

 ;;1510

 ;;21,"00068-0019-01 ")

 ;;1543

 ;;21,"00068-0020-01 ")

 ;;1434

 ;;21,"00068-0021-50 ")

 ;;1442

 ;;21,"00071-0350-24 ")

 ;;3868

 ;;21,"00071-0350-60 ")

 ;;3869

 ;;21,"00087-0778-43 ")

 ;;4464

 ;;21,"00087-0778-44 ")

 ;;4465

 ;;21,"00087-0796-41 ")

 ;;4547

 ;;21,"00093-0056-01 ")

 ;;2569

 ;;21,"00093-0057-01 ")

 ;;2539

 ;;21,"00093-0072-01 ")

 ;;2558

 ;;21,"00093-0199-01 ")

 ;;4823

 ;;21,"00093-0280-01 ")

 ;;921

 ;;21,"00093-0280-05 ")

 ;;922

 ;;21,"00093-0280-19 ")

 ;;923

 ;;21,"00093-0280-93 ")

 ;;924

 ;;21,"00093-0290-01 ")

 ;;558

 ;;21,"00093-0290-05 ")

 ;;559

 ;;21,"00093-0290-19 ")

 ;;560

 ;;21,"00093-0290-93 ")

 ;;561

 ;;21,"00093-0637-01 ")

 ;;4560

 ;;21,"00093-0637-10 ")

 ;;4561

 ;;21,"00093-0638-01 ")

 ;;4331

 ;;21,"00093-0638-10 ")

 ;;4332

 ;;21,"00093-0810-01 ")

 ;;3096

 ;;21,"00093-0810-05 ")

 ;;3097

 ;;21,"00093-0811-01 ")

 ;;3188

 ;;21,"00093-0811-05 ")

 ;;3189

 ;;21,"00093-0812-01 ")

 ;;3298

 ;;21,"00093-0812-05 ")

 ;;3299

 ;;21,"00093-0813-01 ")

 ;;3341

 ;;21,"00093-0813-05 ")

 ;;3342

 ;;21,"00093-0956-01 ")

 ;;1378

 ;;21,"00093-0958-01 ")

 ;;1389

 ;;21,"00093-0960-01 ")

 ;;1400

 ;;21,"00093-1024-06 ")

 ;;3031

 ;;21,"00093-1025-06 ")

 ;;3064

 ;;21,"00093-1026-06 ")

 ;;3081

 ;;21,"00093-1042-01 ")

 ;;2009

 ;;21,"00093-1042-10 ")

 ;;2010

 ;;21,"00093-1042-19 ")

 ;;2011

 ;;21,"00093-1042-93 ")

 ;;2012

 ;;21,"00093-1043-01 ")

 ;;2179

 ;;21,"00093-4356-01 ")

 ;;2180

 ;;21,"00093-4356-05 ")

 ;;2181

 ;;21,"00093-4356-10 ")

 ;;2182

 ;;21,"00093-4356-19 ")

 ;;2183

 ;;21,"00093-4356-93 ")

 ;;2184

 ;;21,"00093-4740-01 ")

 ;;982

 ;;21,"00093-4740-10 ")

 ;;983

 ;;21,"00093-4740-19 ")

 ;;984

 ;;21,"00093-4740-93 ")

 ;;985

 ;;21,"00093-4741-01 ")

 ;;1084

 ;;21,"00093-4741-05 ")

 ;;1085

 ;;21,"00093-4741-19 ")

 ;;1086

 ;;21,"00093-4741-50 ")

 ;;1087

 ;;21,"00093-4741-93 ")

 ;;1088

 ;;21,"00093-4742-01 ")

 ;;1239

 ;;21,"00093-4742-05 ")

 ;;1240

 ;;21,"00093-4742-19 ")

 ;;1241

 ;;21,"00093-4742-50 ")

 ;;1242

 ;;21,"00093-4742-93 ")

 ;;1243

 ;;21,"00093-5350-05 ")

 ;;802

 ;;21,"00093-5350-56 ")

 ;;803

 ;;21,"00093-5351-05 ")

 ;;863

 ;;21,"00093-5351-56 ")

 ;;864

 ;;21,"00093-5501-01 ")

 ;;657

 ;;21,"00093-5502-01 ")

 ;;708

 ;;21,"00093-5503-56 ")

 ;;2525

 ;;21,"00093-5504-56 ")

 ;;2529

 ;;21,"00093-5505-56 ")

 ;;2537

 ;;21,"00093-5506-56 ")

 ;;2523

 ;;21,"00093-5507-56 ")

 ;;2533

 ;;21,"00093-5703-01 ")

 ;;709

 ;;21,"00093-6108-12 ")

 ;;2439

 ;;21,"00093-7113-06 ")

 ;;3050

 ;;21,"00093-7114-98 ")

 ;;3374

 ;;21,"00093-7115-56 ")

 ;;3492

 ;;21,"00093-7115-98 ")

 ;;3493

 ;;21,"00093-7116-98 ")

 ;;3688

 ;;21,"00093-7121-98 ")

 ;;3772

 ;;21,"00093-7175-10 ")

 ;;4077

 ;;21,"00093-7175-56 ")

 ;;4078

 ;;21,"00093-7176-10 ")

 ;;4170

 ;;21,"00093-7176-56 ")

 ;;4171

 ;;21,"00093-7177-10 ")

 ;;3897

 ;;21,"00093-7177-56 ")

 ;;3898

 ;;21,"00093-7178-01 ")

 ;;3090

 ;;21,"00093-7188-10 ")

 ;;2154

 ;;21,"00093-7188-56 ")

 ;;2155

 ;;21,"00093-7198-01 ")

 ;;2448

 ;;21,"00093-7198-05 ")

 ;;2449

 ;;21,"00093-7198-19 ")

 ;;2450

 ;;21,"00093-7198-56 ")

 ;;2451

 ;;21,"00093-7198-93 ")

 ;;2452

 ;;21,"00093-7206-19 ")

 ;;2745

 ;;21,"00093-7206-56 ")

 ;;2746

 ;;21,"00093-7206-93 ")

 ;;2747

 ;;21,"00093-7207-19 ")

 ;;2852

 ;;21,"00093-7207-56 ")

 ;;2853

 ;;21,"00093-7207-93 ")

 ;;2854

 ;;21,"00093-7208-19 ")

 ;;2958

 ;;21,"00093-7208-56 ")

 ;;2959

 ;;21,"00093-7208-93 ")

 ;;2960

 ;;21,"00093-7225-19 ")

 ;;2013

 ;;21,"00093-7225-28 ")

 ;;2014

 ;;21,"00093-7226-19 ")

 ;;2185

 ;;21,"00093-7226-28 ")

 ;;2186

 ;;21,"00093-7303-18 ")

 ;;2837

 ;;21,"00093-7303-65 ")

 ;;2838

 ;;21,"00093-7304-18 ")

 ;;2945

 ;;21,"00093-7304-65 ")

 ;;2946

 ;;21,"00093-7305-02 ")

 ;;3015

 ;;21,"00093-7305-65 ")

 ;;3016

 ;;21,"00093-7380-01 ")

 ;;4910

 ;;21,"00093-7381-01 ")

 ;;4979

 ;;21,"00093-7382-01 ")

 ;;5092

 ;;21,"00093-7383-01 ")

 ;;4725

 ;;21,"00093-7384-56 ")

 ;;4854

 ;;21,"00093-7384-98 ")

 ;;4855

 ;;21,"00093-7385-56 ")

 ;;5013

 ;;21,"00093-7385-98 ")

 ;;5014

 ;;21,"00093-7386-56 ")

 ;;4747

 ;;21,"00093-7386-98 ")

 ;;4748

 ;;21,"00093-9612-12 ")

 ;;1608

 ;;21,"00115-5445-13 ")

 ;;853

 ;;21,"00115-6811-02 ")

 ;;804

 ;;21,"00115-6811-08 ")

 ;;805

 ;;21,"00115-6811-10 ")

 ;;806

 ;;21,"00121-0678-12 ")

 ;;3184

 ;;21,"00121-0678-16 ")

 ;;3185

 ;;21,"00121-0721-04 ")

 ;;2440

 ;;21,"00121-4721-05 ")

 ;;2441

 ;;21,"00131-3265-32 ")

 ;;4970

 ;;21,"00131-3265-46 ")

 ;;4971

 ;;21,"00131-3266-32 ")

 ;;5175

 ;;21,"00131-3266-46 ")

 ;;5176

 ;;21,"00131-3267-32 ")

 ;;4810

 ;;21,"00131-3267-46 ")

 ;;4811

 ;;21,"00131-3268-32 ")

 ;;4816

 ;;21,"00131-3268-46 ")

 ;;4817

 ;;21,"00143-9580-05 ")

 ;;3899

 ;;21,"00143-9580-09 ")

 ;;3900

 ;;21,"00143-9580-30 ")

 ;;3901

 ;;21,"00143-9581-05 ")

 ;;4172

 ;;21,"00143-9581-09 ")

 ;;4173

 ;;21,"00143-9581-30 ")

 ;;4174

 ;;21,"00143-9582-09 ")

 ;;4079

 ;;21,"00143-9582-30 ")

 ;;4080

 ;;21,"00172-4332-49 ")

 ;;3032

 ;;21,"00172-4333-49 ")

 ;;3051

 ;;21,"00172-4334-10 ")

 ;;3065

 ;;21,"00172-4334-49 ")

 ;;3066

 ;;21,"00172-4335-10 ")

 ;;3082

 ;;21,"00172-4335-49 ")

 ;;3083

 ;;21,"00172-4343-10 ")

 ;;3091

 ;;21,"00172-4343-49 ")

 ;;3092

 ;;21,"00172-4346-00 ")

 ;;2453

 ;;21,"00172-4346-10 ")

 ;;2454

 ;;21,"00172-4346-46 ")

 ;;2455

 ;;21,"00172-4346-60 ")

 ;;2456

 ;;21,"00172-4346-70 ")

 ;;2457

 ;;21,"00172-4356-00 ")

 ;;2187

 ;;21,"00172-4356-10 ")

 ;;2188

 ;;21,"00172-4356-60 ")

 ;;2189

 ;;21,"00172-4356-70 ")

 ;;2190

 ;;21,"00172-4356-80 ")

 ;;2191

 ;;21,"00172-4363-00 ")

 ;;2015

 ;;21,"00172-4363-10 ")

 ;;2016

 ;;21,"00172-4363-60 ")

 ;;2017

 ;;21,"00172-4363-70 ")

 ;;2018

 ;;21,"00172-4363-80 ")

 ;;2019

 ;;21,"00172-4389-60 ")

 ;;2559

 ;;21,"00172-4391-60 ")

 ;;2570

 ;;21,"00172-4392-60 ")

 ;;2540

 ;;21,"00172-4510-70 ")

 ;;2156

 ;;21,"00172-4742-00 ")

 ;;1244

 ;;21,"00172-4742-10 ")

 ;;1245

 ;;21,"00172-4742-60 ")

 ;;1246

 ;;21,"00172-4742-70 ")

 ;;1247

 ;;21,"00172-4742-85 ")

 ;;1248

 ;;21,"00172-5672-00 ")

 ;;4081

 ;;21,"00172-5672-10 ")

 ;;4082

 ;;21,"00172-5672-80 ")

 ;;4083

 ;;21,"00172-5673-00 ")

 ;;4175

 ;;21,"00172-5673-10 ")

 ;;4176

 ;;21,"00172-5674-00 ")

 ;;3902

 ;;21,"00172-5674-10 ")

 ;;3903

 ;;21,"00172-5675-10 ")

 ;;2748

 ;;21,"00172-5675-46 ")

 ;;2749

 ;;21,"00172-5675-70 ")

 ;;2750

 ;;21,"00172-5676-10 ")

 ;;2855

 ;;21,"00172-5676-46 ")

 ;;2856

 ;;21,"00172-5676-70 ")

 ;;2857

 ;;21,"00172-5695-10 ")

 ;;2961

 ;;21,"00172-5695-46 ")

 ;;2962

 ;;21,"00172-5695-70 ")

 ;;2963

 ;;21,"00173-0135-55 ")

 ;;710

 ;;21,"00173-0177-55 ")

 ;;925

 ;;21,"00173-0178-55 ")

 ;;562

 ;;21,"00173-0722-00 ")

 ;;854

 ;;21,"00173-0730-01 ")

 ;;807

 ;;21,"00173-0730-02 ")

 ;;808

 ;;21,"00173-0731-01 ")

 ;;865

 ;;21,"00173-0947-55 ")

 ;;658

 ;;21,"00182-1259-00 ")

 ;;4562

 ;;21,"00182-1259-89 ")

 ;;4563

 ;;21,"00182-1260-00 ")

 ;;4333

 ;;21,"00182-1260-89 ")

 ;;4334

 ;;21,"00182-1325-01 ")

 ;;1560

 ;;21,"00182-1326-01 ")

 ;;1650

 ;;21,"00182-1327-01 ")

 ;;1729

 ;;21,"00182-1328-01 ")

 ;;1801

 ;;21,"00182-1329-01 ")

 ;;1612

 ;;21,"00182-1329-89 ")

 ;;1613

 ;;21,"00182-1332-89 ")

 ;;1446

 ;;21,"00182-1333-10 ")

 ;;1511

 ;;21,"00182-1333-89 ")

 ;;1512

 ;;21,"00182-1878-01 ")

 ;;1642

 ;;21,"00182-2643-01 ")

 ;;3880

 ;;21,"00182-2644-01 ")

 ;;3873

 ;;21,"00182-2652-01 ")

 ;;1410

 ;;21,"00182-6043-71 ")

 ;;1609

 ;;21,"00185-0017-01 ")

 ;;2560

 ;;21,"00185-0020-10 ")

 ;;2751

 ;;21,"00185-0020-30 ")

 ;;2752

 ;;21,"00185-0027-01 ")

 ;;2571

 ;;21,"00185-0027-05 ")

 ;;2572

 ;;21,"00185-0057-30 ")

 ;;4084

 ;;21,"00185-0080-01 ")

 ;;2020

 ;;21,"00185-0080-10 ")

 ;;2021

 ;;21,"00185-0085-01 ")

 ;;2192

 ;;21,"00185-0085-10 ")

 ;;2193

 ;;21,"00185-0153-01 ")

 ;;4177

 ;;21,"00185-0153-30 ")

 ;;4178

 ;;21,"00185-0157-01 ")

 ;;2541

 ;;21,"00185-0157-05 ")

 ;;2542

 ;;21,"00185-0212-10 ")

 ;;2858

 ;;21,"00185-0212-30 ")

 ;;2859

 ;;21,"00185-0222-10 ")

 ;;2964

 ;;21,"00185-0222-30 ")

 ;;2965

 ;;21,"00185-0265-30 ")

 ;;3904

 ;;21,"00185-0371-01 ")

 ;;986

 ;;21,"00185-0371-10 ")

 ;;987

 ;;21,"00185-0372-01 ")

 ;;1089

 ;;21,"00185-0372-10 ")

 ;;1090

 ;;21,"00185-0373-01 ")

 ;;1249

 ;;21,"00185-0373-05 ")

 ;;1250

 ;;21,"00185-0373-10 ")

 ;;1251

 ;;21,"00185-0410-01 ")

 ;;659

 ;

OTHER ; OTHER ROUTINES

 D ^BGP2VF10

 D ^BGP2VF11

 D ^BGP2VF12

 D ^BGP2VF13

 D ^BGP2VF14

 D ^BGP2VF15

 D ^BGP2VF16

 D ^BGP2VF17

 D ^BGP2VF18

 D ^BGP2VF19

 D ^BGP2VF2

 D ^BGP2VF20

 D ^BGP2VF21

 D ^BGP2VF22

 D ^BGP2VF23

 D ^BGP2VF24

 D ^BGP2VF25

 D ^BGP2VF26

 D ^BGP2VF27

 D ^BGP2VF28

 D ^BGP2VF29

 D ^BGP2VF3

 D ^BGP2VF30

 D ^BGP2VF31

 D ^BGP2VF32

 D ^BGP2VF33

 D ^BGP2VF34

 D ^BGP2VF35

 D ^BGP2VF36

 D ^BGP2VF37

 D ^BGP2VF38

 D ^BGP2VF39

 D ^BGP2VF4

 D ^BGP2VF40

 D ^BGP2VF41

 D ^BGP2VF42

 D ^BGP2VF43

 D ^BGP2VF44

 D ^BGP2VF45

 D ^BGP2VF46

 D ^BGP2VF47

 D ^BGP2VF48

 D ^BGP2VF49

 D ^BGP2VF5

 D ^BGP2VF50

 D ^BGP2VF51

 D ^BGP2VF52

 D ^BGP2VF53

 D ^BGP2VF54

 D ^BGP2VF55

 D ^BGP2VF56

 D ^BGP2VF57

 D ^BGP2VF58

 D ^BGP2VF59

 D ^BGP2VF6

 D ^BGP2VF60

 D ^BGP2VF61

 D ^BGP2VF7

 D ^BGP2VF8

 D ^BGP2VF9

 Q

BGP2VF    ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 08, 2012;

 +1       ;;12.1;IHS CLINICAL REPORTING;;MAY 17, 2012;Build 66

 +2       ;;BGP HEDIS ANTIDEPRESSANT NDC

 +3       ;

 +4       ; This routine loads Taxonomy BGP HEDIS ANTIDEPRESSANT NDC

 +5       ;

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        DO OTHER

 +5        IF $ORDER(^TMP("ATX",$JOB,3.6,0))

               DO BULL^ATXSTX2

 +6        IF $ORDER(^TMP("ATX",$JOB,9002226,0))

               DO TAX^ATXSTX2

 +7        DO KILL^ATXSTX2

 +8        QUIT 

 +9       ;

TMP       ;;TAXONOMY (WITH BULLETIN)

 +1       ;;21,"00002-3004-75 ")

 +2       ;;2514

 +3       ;;21,"00002-3230-30 ")

 +4       ;;2524

 +5       ;;21,"00002-3231-01 ")

 +6       ;;2526

 +7       ;;21,"00002-3231-30 ")

 +8       ;;2527

 +9       ;;21,"00002-3231-33 ")

 +10      ;;2528

 +11      ;;21,"00002-3232-01 ")

 +12      ;;2520

 +13      ;;21,"00002-3232-30 ")

 +14      ;;2521

 +15      ;;21,"00002-3232-33 ")

 +16      ;;2522

 +17      ;;21,"00002-3233-01 ")

 +18      ;;2534

 +19      ;;21,"00002-3233-30 ")

 +20      ;;2535

 +21      ;;21,"00002-3233-33 ")

 +22      ;;2536

 +23      ;;21,"00002-3234-01 ")

 +24      ;;2530

 +25      ;;21,"00002-3234-30 ")

 +26      ;;2531

 +27      ;;21,"00002-3234-33 ")

 +28      ;;2532

 +29      ;;21,"00002-3235-01 ")

 +30      ;;1829

 +31      ;;21,"00002-3235-33 ")

 +32      ;;1830

 +33      ;;21,"00002-3235-60 ")

 +34      ;;1831

 +35      ;;21,"00002-3237-01 ")

 +36      ;;1878

 +37      ;;21,"00002-3237-04 ")

 +38      ;;1879

 +39      ;;21,"00002-3237-30 ")

 +40      ;;1880

 +41      ;;21,"00002-3237-33 ")

 +42      ;;1881

 +43      ;;21,"00002-3237-34 ")

 +44      ;;1882

 +45      ;;21,"00002-3240-01 ")

 +46      ;;1842

 +47      ;;21,"00002-3240-30 ")

 +48      ;;1843

 +49      ;;21,"00002-3240-33 ")

 +50      ;;1844

 +51      ;;21,"00002-3240-90 ")

 +52      ;;1845

 +53      ;;21,"00002-3270-01 ")

 +54      ;;1883

 +55      ;;21,"00002-3270-04 ")

 +56      ;;1884

 +57      ;;21,"00002-3270-30 ")

 +58      ;;1885

 +59      ;;21,"00002-3270-33 ")

 +60      ;;1886

 +61      ;;21,"00007-4471-20 ")

 +62      ;;4329

 +63      ;;21,"00008-0701-01 ")

 +64      ;;4820

 +65      ;;21,"00008-0701-07 ")

 +66      ;;4821

 +67      ;;21,"00008-0701-08 ")

 +68      ;;4822

 +69      ;;21,"00008-0703-01 ")

 +70      ;;4976

 +71      ;;21,"00008-0703-07 ")

 +72      ;;4977

 +73      ;;21,"00008-0703-08 ")

 +74      ;;4978

 +75      ;;21,"00008-0704-01 ")

 +76      ;;5089

 +77      ;;21,"00008-0704-07 ")

 +78      ;;5090

 +79      ;;21,"00008-0704-08 ")

 +80      ;;5091

 +81      ;;21,"00008-0705-01 ")

 +82      ;;4722

 +83      ;;21,"00008-0705-07 ")

 +84      ;;4723

 +85      ;;21,"00008-0705-08 ")

 +86      ;;4724

 +87      ;;21,"00008-0781-01 ")

 +88      ;;4907

 +89      ;;21,"00008-0781-07 ")

 +90      ;;4908

 +91      ;;21,"00008-0781-08 ")

 +92      ;;4909

 +93      ;;21,"00008-0833-01 ")

 +94      ;;5007

 +95      ;;21,"00008-0833-02 ")

 +96      ;;5008

 +97      ;;21,"00008-0833-03 ")

 +98      ;;5009

 +99      ;;21,"00008-0833-20 ")

 +100     ;;5010

 +101     ;;21,"00008-0833-21 ")

 +102     ;;5011

 +103     ;;21,"00008-0833-22 ")

 +104     ;;5012

 +105     ;;21,"00008-0836-01 ")

 +106     ;;4741

 +107     ;;21,"00008-0836-02 ")

 +108     ;;4742

 +109     ;;21,"00008-0836-03 ")

 +110     ;;4743

 +111     ;;21,"00008-0836-20 ")

 +112     ;;4744

 +113     ;;21,"00008-0836-21 ")

 +114     ;;4745

 +115     ;;21,"00008-0836-22 ")

 +116     ;;4746

 +117     ;;21,"00008-0837-01 ")

 +118     ;;4848

 +119     ;;21,"00008-0837-02 ")

 +120     ;;4849

 +121     ;;21,"00008-0837-03 ")

 +122     ;;4850

 +123     ;;21,"00008-0837-20 ")

 +124     ;;4851

 +125     ;;21,"00008-0837-21 ")

 +126     ;;4852

 +127     ;;21,"00008-0837-22 ")

 +128     ;;4853

 +129     ;;21,"00008-1211-01 ")

 +130     ;;1555

 +131     ;;21,"00008-1211-14 ")

 +132     ;;1556

 +133     ;;21,"00008-1211-30 ")

 +134     ;;1557

 +135     ;;21,"00008-1211-50 ")

 +136     ;;1558

 +137     ;;21,"00008-1222-01 ")

 +138     ;;1551

 +139     ;;21,"00008-1222-14 ")

 +140     ;;1552

 +141     ;;21,"00008-1222-30 ")

 +142     ;;1553

 +143     ;;21,"00008-1222-50 ")

 +144     ;;1554

 +145     ;;21,"00024-5810-30 ")

 +146     ;;979

 +147     ;;21,"00024-5811-30 ")

 +148     ;;980

 +149     ;;21,"00024-5812-30 ")

 +150     ;;981

 +151     ;;21,"00029-3206-13 ")

 +152     ;;3463

 +153     ;;21,"00029-3207-13 ")

 +154     ;;3663

 +155     ;;21,"00029-3208-13 ")

 +156     ;;3759

 +157     ;;21,"00029-3210-13 ")

 +158     ;;3373

 +159     ;;21,"00029-3211-13 ")

 +160     ;;3489

 +161     ;;21,"00029-3211-21 ")

 +162     ;;3490

 +163     ;;21,"00029-3211-59 ")

 +164     ;;3491

 +165     ;;21,"00029-3212-13 ")

 +166     ;;3687

 +167     ;;21,"00029-3213-13 ")

 +168     ;;3771

 +169     ;;21,"00029-3215-48 ")

 +170     ;;3460

 +171     ;;21,"00029-4606-13 ")

 +172     ;;3464

 +173     ;;21,"00029-4607-13 ")

 +174     ;;3664

 +175     ;;21,"00049-4900-30 ")

 +176     ;;4165

 +177     ;;21,"00049-4900-41 ")

 +178     ;;4166

 +179     ;;21,"00049-4900-94 ")

 +180     ;;4167

 +181     ;;21,"00049-4910-30 ")

 +182     ;;3892

 +183     ;;21,"00049-4910-41 ")

 +184     ;;3893

 +185     ;;21,"00049-4910-94 ")

 +186     ;;3894

 +187     ;;21,"00049-4940-23 ")

 +188     ;;4070

 +189     ;;21,"00049-4960-30 ")

 +190     ;;4075

 +191     ;;21,"00052-0105-30 ")

 +192     ;;2741

 +193     ;;21,"00052-0105-90 ")

 +194     ;;2742

 +195     ;;21,"00052-0106-06 ")

 +196     ;;2833

 +197     ;;21,"00052-0106-30 ")

 +198     ;;2834

 +199     ;;21,"00052-0106-90 ")

 +200     ;;2835

 +201     ;;21,"00052-0106-93 ")

 +202     ;;2836

 +203     ;;21,"00052-0107-30 ")

 +204     ;;2849

 +205     ;;21,"00052-0107-90 ")

 +206     ;;2850

 +207     ;;21,"00052-0108-06 ")

 +208     ;;2941

 +209     ;;21,"00052-0108-30 ")

 +210     ;;2942

 +211     ;;21,"00052-0108-90 ")

 +212     ;;2943

 +213     ;;21,"00052-0108-93 ")

 +214     ;;2944

 +215     ;;21,"00052-0109-30 ")

 +216     ;;2956

 +217     ;;21,"00052-0110-06 ")

 +218     ;;3012

 +219     ;;21,"00052-0110-30 ")

 +220     ;;3013

 +221     ;;21,"00052-0110-90 ")

 +222     ;;3014

 +223     ;;21,"00054-0022-13 ")

 +224     ;;4076

 +225     ;;21,"00054-0023-13 ")

 +226     ;;4168

 +227     ;;21,"00054-0023-28 ")

 +228     ;;4169

 +229     ;;21,"00054-0024-13 ")

 +230     ;;3895

 +231     ;;21,"00054-0024-28 ")

 +232     ;;3896

 +233     ;;21,"00054-0062-58 ")

 +234     ;;1078

 +235     ;;21,"00054-0082-46 ")

 +236     ;;4071

 +237     ;;21,"00054-0210-25 ")

 +238     ;;3879

 +239     ;;21,"00054-0211-25 ")

 +240     ;;3872

 +241     ;;21,"00054-0273-13 ")

 +242     ;;2720

 +243     ;;21,"00054-0274-13 ")

 +244     ;;2705

 +245     ;;21,"00054-0275-13 ")

 +246     ;;2710

 +247     ;;21,"00054-0276-13 ")

 +248     ;;2715

 +249     ;;21,"00054-4676-13 ")

 +250     ;;2743

 +251     ;;21,"00054-4678-13 ")

 +252     ;;2957

 +253     ;;21,"00054-8676-25 ")

 +254     ;;2744

 +255     ;;21,"00054-8677-25 ")

 +256     ;;2851

 +257     ;;21,"00068-0007-01 ")

 +258     ;;1409

 +259     ;;21,"00068-0011-01 ")

 +260     ;;1445

 +261     ;;21,"00068-0015-01 ")

 +262     ;;1510

 +263     ;;21,"00068-0019-01 ")

 +264     ;;1543

 +265     ;;21,"00068-0020-01 ")

 +266     ;;1434

 +267     ;;21,"00068-0021-50 ")

 +268     ;;1442

 +269     ;;21,"00071-0350-24 ")

 +270     ;;3868

 +271     ;;21,"00071-0350-60 ")

 +272     ;;3869

 +273     ;;21,"00087-0778-43 ")

 +274     ;;4464

 +275     ;;21,"00087-0778-44 ")

 +276     ;;4465

 +277     ;;21,"00087-0796-41 ")

 +278     ;;4547

 +279     ;;21,"00093-0056-01 ")

 +280     ;;2569

 +281     ;;21,"00093-0057-01 ")

 +282     ;;2539

 +283     ;;21,"00093-0072-01 ")

 +284     ;;2558

 +285     ;;21,"00093-0199-01 ")

 +286     ;;4823

 +287     ;;21,"00093-0280-01 ")

 +288     ;;921

 +289     ;;21,"00093-0280-05 ")

 +290     ;;922

 +291     ;;21,"00093-0280-19 ")

 +292     ;;923

 +293     ;;21,"00093-0280-93 ")

 +294     ;;924

 +295     ;;21,"00093-0290-01 ")

 +296     ;;558

 +297     ;;21,"00093-0290-05 ")

 +298     ;;559

 +299     ;;21,"00093-0290-19 ")

 +300     ;;560

 +301     ;;21,"00093-0290-93 ")

 +302     ;;561

 +303     ;;21,"00093-0637-01 ")

 +304     ;;4560

 +305     ;;21,"00093-0637-10 ")

 +306     ;;4561

 +307     ;;21,"00093-0638-01 ")

 +308     ;;4331

 +309     ;;21,"00093-0638-10 ")

 +310     ;;4332

 +311     ;;21,"00093-0810-01 ")

 +312     ;;3096

 +313     ;;21,"00093-0810-05 ")

 +314     ;;3097

 +315     ;;21,"00093-0811-01 ")

 +316     ;;3188

 +317     ;;21,"00093-0811-05 ")

 +318     ;;3189

 +319     ;;21,"00093-0812-01 ")

 +320     ;;3298

 +321     ;;21,"00093-0812-05 ")

 +322     ;;3299

 +323     ;;21,"00093-0813-01 ")

 +324     ;;3341

 +325     ;;21,"00093-0813-05 ")

 +326     ;;3342

 +327     ;;21,"00093-0956-01 ")

 +328     ;;1378

 +329     ;;21,"00093-0958-01 ")

 +330     ;;1389

 +331     ;;21,"00093-0960-01 ")

 +332     ;;1400

 +333     ;;21,"00093-1024-06 ")

 +334     ;;3031

 +335     ;;21,"00093-1025-06 ")

 +336     ;;3064

 +337     ;;21,"00093-1026-06 ")

 +338     ;;3081

 +339     ;;21,"00093-1042-01 ")

 +340     ;;2009

 +341     ;;21,"00093-1042-10 ")

 +342     ;;2010

 +343     ;;21,"00093-1042-19 ")

 +344     ;;2011

 +345     ;;21,"00093-1042-93 ")

 +346     ;;2012

 +347     ;;21,"00093-1043-01 ")

 +348     ;;2179

 +349     ;;21,"00093-4356-01 ")

 +350     ;;2180

 +351     ;;21,"00093-4356-05 ")

 +352     ;;2181

 +353     ;;21,"00093-4356-10 ")

 +354     ;;2182

 +355     ;;21,"00093-4356-19 ")

 +356     ;;2183

 +357     ;;21,"00093-4356-93 ")

 +358     ;;2184

 +359     ;;21,"00093-4740-01 ")

 +360     ;;982

 +361     ;;21,"00093-4740-10 ")

 +362     ;;983

 +363     ;;21,"00093-4740-19 ")

 +364     ;;984

 +365     ;;21,"00093-4740-93 ")

 +366     ;;985

 +367     ;;21,"00093-4741-01 ")

 +368     ;;1084

 +369     ;;21,"00093-4741-05 ")

 +370     ;;1085

 +371     ;;21,"00093-4741-19 ")

 +372     ;;1086

 +373     ;;21,"00093-4741-50 ")

 +374     ;;1087

 +375     ;;21,"00093-4741-93 ")

 +376     ;;1088

 +377     ;;21,"00093-4742-01 ")

 +378     ;;1239

 +379     ;;21,"00093-4742-05 ")

 +380     ;;1240

 +381     ;;21,"00093-4742-19 ")

 +382     ;;1241

 +383     ;;21,"00093-4742-50 ")

 +384     ;;1242

 +385     ;;21,"00093-4742-93 ")

 +386     ;;1243

 +387     ;;21,"00093-5350-05 ")

 +388     ;;802

 +389     ;;21,"00093-5350-56 ")

 +390     ;;803

 +391     ;;21,"00093-5351-05 ")

 +392     ;;863

 +393     ;;21,"00093-5351-56 ")

 +394     ;;864

 +395     ;;21,"00093-5501-01 ")

 +396     ;;657

 +397     ;;21,"00093-5502-01 ")

 +398     ;;708

 +399     ;;21,"00093-5503-56 ")

 +400     ;;2525

 +401     ;;21,"00093-5504-56 ")

 +402     ;;2529

 +403     ;;21,"00093-5505-56 ")

 +404     ;;2537

 +405     ;;21,"00093-5506-56 ")

 +406     ;;2523

 +407     ;;21,"00093-5507-56 ")

 +408     ;;2533

 +409     ;;21,"00093-5703-01 ")

 +410     ;;709

 +411     ;;21,"00093-6108-12 ")

 +412     ;;2439

 +413     ;;21,"00093-7113-06 ")

 +414     ;;3050

 +415     ;;21,"00093-7114-98 ")

 +416     ;;3374

 +417     ;;21,"00093-7115-56 ")

 +418     ;;3492

 +419     ;;21,"00093-7115-98 ")

 +420     ;;3493

 +421     ;;21,"00093-7116-98 ")

 +422     ;;3688

 +423     ;;21,"00093-7121-98 ")

 +424     ;;3772

 +425     ;;21,"00093-7175-10 ")

 +426     ;;4077

 +427     ;;21,"00093-7175-56 ")

 +428     ;;4078

 +429     ;;21,"00093-7176-10 ")

 +430     ;;4170

 +431     ;;21,"00093-7176-56 ")

 +432     ;;4171

 +433     ;;21,"00093-7177-10 ")

 +434     ;;3897

 +435     ;;21,"00093-7177-56 ")

 +436     ;;3898

 +437     ;;21,"00093-7178-01 ")

 +438     ;;3090

 +439     ;;21,"00093-7188-10 ")

 +440     ;;2154

 +441     ;;21,"00093-7188-56 ")

 +442     ;;2155

 +443     ;;21,"00093-7198-01 ")

 +444     ;;2448

 +445     ;;21,"00093-7198-05 ")

 +446     ;;2449

 +447     ;;21,"00093-7198-19 ")

 +448     ;;2450

 +449     ;;21,"00093-7198-56 ")

 +450     ;;2451

 +451     ;;21,"00093-7198-93 ")

 +452     ;;2452

 +453     ;;21,"00093-7206-19 ")

 +454     ;;2745

 +455     ;;21,"00093-7206-56 ")

 +456     ;;2746

 +457     ;;21,"00093-7206-93 ")

 +458     ;;2747

 +459     ;;21,"00093-7207-19 ")

 +460     ;;2852

 +461     ;;21,"00093-7207-56 ")

 +462     ;;2853

 +463     ;;21,"00093-7207-93 ")

 +464     ;;2854

 +465     ;;21,"00093-7208-19 ")

 +466     ;;2958

 +467     ;;21,"00093-7208-56 ")

 +468     ;;2959

 +469     ;;21,"00093-7208-93 ")

 +470     ;;2960

 +471     ;;21,"00093-7225-19 ")

 +472     ;;2013

 +473     ;;21,"00093-7225-28 ")

 +474     ;;2014

 +475     ;;21,"00093-7226-19 ")

 +476     ;;2185

 +477     ;;21,"00093-7226-28 ")

 +478     ;;2186

 +479     ;;21,"00093-7303-18 ")

 +480     ;;2837

 +481     ;;21,"00093-7303-65 ")

 +482     ;;2838

 +483     ;;21,"00093-7304-18 ")

 +484     ;;2945

 +485     ;;21,"00093-7304-65 ")

 +486     ;;2946

 +487     ;;21,"00093-7305-02 ")

 +488     ;;3015

 +489     ;;21,"00093-7305-65 ")

 +490     ;;3016

 +491     ;;21,"00093-7380-01 ")

 +492     ;;4910

 +493     ;;21,"00093-7381-01 ")

 +494     ;;4979

 +495     ;;21,"00093-7382-01 ")

 +496     ;;5092

 +497     ;;21,"00093-7383-01 ")

 +498     ;;4725

 +499     ;;21,"00093-7384-56 ")

 +500     ;;4854

 +501     ;;21,"00093-7384-98 ")

 +502     ;;4855

 +503     ;;21,"00093-7385-56 ")

 +504     ;;5013

 +505     ;;21,"00093-7385-98 ")

 +506     ;;5014

 +507     ;;21,"00093-7386-56 ")

 +508     ;;4747

 +509     ;;21,"00093-7386-98 ")

 +510     ;;4748

 +511     ;;21,"00093-9612-12 ")

 +512     ;;1608

 +513     ;;21,"00115-5445-13 ")

 +514     ;;853

 +515     ;;21,"00115-6811-02 ")

 +516     ;;804

 +517     ;;21,"00115-6811-08 ")

 +518     ;;805

 +519     ;;21,"00115-6811-10 ")

 +520     ;;806

 +521     ;;21,"00121-0678-12 ")

 +522     ;;3184

 +523     ;;21,"00121-0678-16 ")

 +524     ;;3185

 +525     ;;21,"00121-0721-04 ")

 +526     ;;2440

 +527     ;;21,"00121-4721-05 ")

 +528     ;;2441

 +529     ;;21,"00131-3265-32 ")

 +530     ;;4970

 +531     ;;21,"00131-3265-46 ")

 +532     ;;4971

 +533     ;;21,"00131-3266-32 ")

 +534     ;;5175

 +535     ;;21,"00131-3266-46 ")

 +536     ;;5176

 +537     ;;21,"00131-3267-32 ")

 +538     ;;4810

 +539     ;;21,"00131-3267-46 ")

 +540     ;;4811

 +541     ;;21,"00131-3268-32 ")

 +542     ;;4816

 +543     ;;21,"00131-3268-46 ")

 +544     ;;4817

 +545     ;;21,"00143-9580-05 ")

 +546     ;;3899

 +547     ;;21,"00143-9580-09 ")

 +548     ;;3900

 +549     ;;21,"00143-9580-30 ")

 +550     ;;3901

 +551     ;;21,"00143-9581-05 ")

 +552     ;;4172

 +553     ;;21,"00143-9581-09 ")

 +554     ;;4173

 +555     ;;21,"00143-9581-30 ")

 +556     ;;4174

 +557     ;;21,"00143-9582-09 ")

 +558     ;;4079

 +559     ;;21,"00143-9582-30 ")

 +560     ;;4080

 +561     ;;21,"00172-4332-49 ")

 +562     ;;3032

 +563     ;;21,"00172-4333-49 ")

 +564     ;;3051

 +565     ;;21,"00172-4334-10 ")

 +566     ;;3065

 +567     ;;21,"00172-4334-49 ")

 +568     ;;3066

 +569     ;;21,"00172-4335-10 ")

 +570     ;;3082

 +571     ;;21,"00172-4335-49 ")

 +572     ;;3083

 +573     ;;21,"00172-4343-10 ")

 +574     ;;3091

 +575     ;;21,"00172-4343-49 ")

 +576     ;;3092

 +577     ;;21,"00172-4346-00 ")

 +578     ;;2453

 +579     ;;21,"00172-4346-10 ")

 +580     ;;2454

 +581     ;;21,"00172-4346-46 ")

 +582     ;;2455

 +583     ;;21,"00172-4346-60 ")

 +584     ;;2456

 +585     ;;21,"00172-4346-70 ")

 +586     ;;2457

 +587     ;;21,"00172-4356-00 ")

 +588     ;;2187

 +589     ;;21,"00172-4356-10 ")

 +590     ;;2188

 +591     ;;21,"00172-4356-60 ")

 +592     ;;2189

 +593     ;;21,"00172-4356-70 ")

 +594     ;;2190

 +595     ;;21,"00172-4356-80 ")

 +596     ;;2191

 +597     ;;21,"00172-4363-00 ")

 +598     ;;2015

 +599     ;;21,"00172-4363-10 ")

 +600     ;;2016

 +601     ;;21,"00172-4363-60 ")

 +602     ;;2017

 +603     ;;21,"00172-4363-70 ")

 +604     ;;2018

 +605     ;;21,"00172-4363-80 ")

 +606     ;;2019

 +607     ;;21,"00172-4389-60 ")

 +608     ;;2559

 +609     ;;21,"00172-4391-60 ")

 +610     ;;2570

 +611     ;;21,"00172-4392-60 ")

 +612     ;;2540

 +613     ;;21,"00172-4510-70 ")

 +614     ;;2156

 +615     ;;21,"00172-4742-00 ")

 +616     ;;1244

 +617     ;;21,"00172-4742-10 ")

 +618     ;;1245

 +619     ;;21,"00172-4742-60 ")

 +620     ;;1246

 +621     ;;21,"00172-4742-70 ")

 +622     ;;1247

 +623     ;;21,"00172-4742-85 ")

 +624     ;;1248

 +625     ;;21,"00172-5672-00 ")

 +626     ;;4081

 +627     ;;21,"00172-5672-10 ")

 +628     ;;4082

 +629     ;;21,"00172-5672-80 ")

 +630     ;;4083

 +631     ;;21,"00172-5673-00 ")

 +632     ;;4175

 +633     ;;21,"00172-5673-10 ")

 +634     ;;4176

 +635     ;;21,"00172-5674-00 ")

 +636     ;;3902

 +637     ;;21,"00172-5674-10 ")

 +638     ;;3903

 +639     ;;21,"00172-5675-10 ")

 +640     ;;2748

 +641     ;;21,"00172-5675-46 ")

 +642     ;;2749

 +643     ;;21,"00172-5675-70 ")

 +644     ;;2750

 +645     ;;21,"00172-5676-10 ")

 +646     ;;2855

 +647     ;;21,"00172-5676-46 ")

 +648     ;;2856

 +649     ;;21,"00172-5676-70 ")

 +650     ;;2857

 +651     ;;21,"00172-5695-10 ")

 +652     ;;2961

 +653     ;;21,"00172-5695-46 ")

 +654     ;;2962

 +655     ;;21,"00172-5695-70 ")

 +656     ;;2963

 +657     ;;21,"00173-0135-55 ")

 +658     ;;710

 +659     ;;21,"00173-0177-55 ")

 +660     ;;925

 +661     ;;21,"00173-0178-55 ")

 +662     ;;562

 +663     ;;21,"00173-0722-00 ")

 +664     ;;854

 +665     ;;21,"00173-0730-01 ")

 +666     ;;807

 +667     ;;21,"00173-0730-02 ")

 +668     ;;808

 +669     ;;21,"00173-0731-01 ")

 +670     ;;865

 +671     ;;21,"00173-0947-55 ")

 +672     ;;658

 +673     ;;21,"00182-1259-00 ")

 +674     ;;4562

 +675     ;;21,"00182-1259-89 ")

 +676     ;;4563

 +677     ;;21,"00182-1260-00 ")

 +678     ;;4333

 +679     ;;21,"00182-1260-89 ")

 +680     ;;4334

 +681     ;;21,"00182-1325-01 ")

 +682     ;;1560

 +683     ;;21,"00182-1326-01 ")

 +684     ;;1650

 +685     ;;21,"00182-1327-01 ")

 +686     ;;1729

 +687     ;;21,"00182-1328-01 ")

 +688     ;;1801

 +689     ;;21,"00182-1329-01 ")

 +690     ;;1612

 +691     ;;21,"00182-1329-89 ")

 +692     ;;1613

 +693     ;;21,"00182-1332-89 ")

 +694     ;;1446

 +695     ;;21,"00182-1333-10 ")

 +696     ;;1511

 +697     ;;21,"00182-1333-89 ")

 +698     ;;1512

 +699     ;;21,"00182-1878-01 ")

 +700     ;;1642

 +701     ;;21,"00182-2643-01 ")

 +702     ;;3880

 +703     ;;21,"00182-2644-01 ")

 +704     ;;3873

 +705     ;;21,"00182-2652-01 ")

 +706     ;;1410

 +707     ;;21,"00182-6043-71 ")

 +708     ;;1609

 +709     ;;21,"00185-0017-01 ")

 +710     ;;2560

 +711     ;;21,"00185-0020-10 ")

 +712     ;;2751

 +713     ;;21,"00185-0020-30 ")

 +714     ;;2752

 +715     ;;21,"00185-0027-01 ")

 +716     ;;2571

 +717     ;;21,"00185-0027-05 ")

 +718     ;;2572

 +719     ;;21,"00185-0057-30 ")

 +720     ;;4084

 +721     ;;21,"00185-0080-01 ")

 +722     ;;2020

 +723     ;;21,"00185-0080-10 ")

 +724     ;;2021

 +725     ;;21,"00185-0085-01 ")

 +726     ;;2192

 +727     ;;21,"00185-0085-10 ")

 +728     ;;2193

 +729     ;;21,"00185-0153-01 ")

 +730     ;;4177

 +731     ;;21,"00185-0153-30 ")

 +732     ;;4178

 +733     ;;21,"00185-0157-01 ")

 +734     ;;2541

 +735     ;;21,"00185-0157-05 ")

 +736     ;;2542

 +737     ;;21,"00185-0212-10 ")

 +738     ;;2858

 +739     ;;21,"00185-0212-30 ")

 +740     ;;2859

 +741     ;;21,"00185-0222-10 ")

 +742     ;;2964

 +743     ;;21,"00185-0222-30 ")

 +744     ;;2965

 +745     ;;21,"00185-0265-30 ")

 +746     ;;3904

 +747     ;;21,"00185-0371-01 ")

 +748     ;;986

 +749     ;;21,"00185-0371-10 ")

 +750     ;;987

 +751     ;;21,"00185-0372-01 ")

 +752     ;;1089

 +753     ;;21,"00185-0372-10 ")

 +754     ;;1090

 +755     ;;21,"00185-0373-01 ")

 +756     ;;1249

 +757     ;;21,"00185-0373-05 ")

 +758     ;;1250

 +759     ;;21,"00185-0373-10 ")

 +760     ;;1251

 +761     ;;21,"00185-0410-01 ")

 +762     ;;659

 +763     ;

OTHER     ; OTHER ROUTINES

 +1        DO ^BGP2VF10

 +2        DO ^BGP2VF11

 +3        DO ^BGP2VF12

 +4        DO ^BGP2VF13

 +5        DO ^BGP2VF14

 +6        DO ^BGP2VF15

 +7        DO ^BGP2VF16

 +8        DO ^BGP2VF17

 +9        DO ^BGP2VF18

 +10       DO ^BGP2VF19

 +11       DO ^BGP2VF2

 +12       DO ^BGP2VF20

 +13       DO ^BGP2VF21

 +14       DO ^BGP2VF22

 +15       DO ^BGP2VF23

 +16       DO ^BGP2VF24

 +17       DO ^BGP2VF25

 +18       DO ^BGP2VF26

 +19       DO ^BGP2VF27

 +20       DO ^BGP2VF28

 +21       DO ^BGP2VF29

 +22       DO ^BGP2VF3

 +23       DO ^BGP2VF30

 +24       DO ^BGP2VF31

 +25       DO ^BGP2VF32

 +26       DO ^BGP2VF33

 +27       DO ^BGP2VF34

 +28       DO ^BGP2VF35

 +29       DO ^BGP2VF36

 +30       DO ^BGP2VF37

 +31       DO ^BGP2VF38

 +32       DO ^BGP2VF39

 +33       DO ^BGP2VF4

 +34       DO ^BGP2VF40

 +35       DO ^BGP2VF41

 +36       DO ^BGP2VF42

 +37       DO ^BGP2VF43

 +38       DO ^BGP2VF44

 +39       DO ^BGP2VF45

 +40       DO ^BGP2VF46

 +41       DO ^BGP2VF47

 +42       DO ^BGP2VF48

 +43       DO ^BGP2VF49

 +44       DO ^BGP2VF5

 +45       DO ^BGP2VF50

 +46       DO ^BGP2VF51

 +47       DO ^BGP2VF52

 +48       DO ^BGP2VF53

 +49       DO ^BGP2VF54

 +50       DO ^BGP2VF55

 +51       DO ^BGP2VF56

 +52       DO ^BGP2VF57

 +53       DO ^BGP2VF58

 +54       DO ^BGP2VF59

 +55       DO ^BGP2VF6

 +56       DO ^BGP2VF60

 +57       DO ^BGP2VF61

 +58       DO ^BGP2VF7

 +59       DO ^BGP2VF8

 +60       DO ^BGP2VF9

 +61       QUIT