BGP13T.m

BGP13T ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON APR 14, 2011 ;

 ;;11.1;IHS CLINICAL REPORTING SYSTEM;;JUN 27, 2011;Build 33

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

 ;;4248

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

 ;;4595

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

 ;;4596

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

 ;;4597

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

 ;;4598

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

 ;;4599

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

 ;;4600

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

 ;;4601

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

 ;;4602

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

 ;;4603

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

 ;;4604

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

 ;;4605

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

 ;;4606

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

 ;;4607

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

 ;;1323

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

 ;;1324

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

 ;;1325

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

 ;;1326

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

 ;;1327

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

 ;;1328

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

 ;;1329

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

 ;;1330

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

 ;;1331

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

 ;;1332

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

 ;;1333

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

 ;;1334

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

 ;;1335

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

 ;;1336

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

 ;;1337

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

 ;;1338

 ;;21,"00002-4006-02 ")

 ;;4162

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

 ;;4163

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

 ;;3626

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

 ;;1887

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

 ;;1888

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

 ;;1889

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

 ;;1890

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

 ;;1891

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

 ;;1892

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

 ;;1893

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

 ;;1894

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

 ;;1895

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

 ;;1896

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

 ;;1897

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

 ;;1898

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

 ;;1899

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

 ;;1900

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

 ;;1901

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

 ;;1902

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

 ;;1903

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

 ;;2028

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

 ;;2029

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

 ;;2030

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

 ;;2031

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

 ;;2032

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

 ;;2033

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

 ;;2034

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

 ;;2035

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

 ;;2036

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

 ;;2037

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

 ;;2038

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

 ;;2039

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

 ;;2040

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

 ;;2041

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

 ;;2042

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

 ;;2043

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

 ;;2044

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

 ;;2045

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

 ;;4143

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

 ;;4144

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

 ;;4145

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

 ;;4146

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

 ;;4147

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

 ;;4148

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

 ;;4149

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

 ;;4150

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

 ;;596

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

 ;;597

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

 ;;598

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

 ;;4055

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

 ;;4056

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

 ;;4057

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

 ;;3968

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

 ;;3969

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

 ;;3970

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

 ;;3971

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

 ;;3972

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

 ;;3973

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

 ;;3974

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

 ;;4058

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

 ;;5228

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

 ;;5229

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

 ;;5230

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

 ;;5231

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

 ;;5232

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

 ;;5233

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

 ;;5234

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

 ;;5235

 ;;21,"00049-5370-50 ")

 ;;4588

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

 ;;4253

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

 ;;4254

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

 ;;4282

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

 ;;4283

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

 ;;4284

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

 ;;4285

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

 ;;4255

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

 ;;4256

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

 ;;4286

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

 ;;4287

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

 ;;4288

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

 ;;4289

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

 ;;4257

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

 ;;4290

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

 ;;4291

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

 ;;4292

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

 ;;4309

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

 ;;4310

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

 ;;4311

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

 ;;4312

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

 ;;4313

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

 ;;962

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

 ;;4314

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

 ;;4152

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

 ;;4153

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

 ;;2813

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

 ;;2814

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

 ;;2815

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

 ;;2816

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

 ;;2935

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

 ;;2936

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

 ;;2937

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

 ;;2938

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

 ;;2939

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

 ;;3275

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

 ;;3276

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

 ;;3277

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

 ;;3278

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

 ;;3279

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

 ;;3280

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

 ;;3182

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

 ;;3183

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

 ;;3184

 ;;21,"00078-0016-33 ")

 ;;3605

 ;;21,"00078-0078-05 ")

 ;;3606

 ;;21,"00078-0079-05 ")

 ;;3607

 ;;21,"00078-0086-05 ")

 ;;3608

 ;;21,"00078-0087-05 ")

 ;;3609

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

 ;;1575

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

 ;;1576

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

 ;;1577

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

 ;;1578

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

 ;;1583

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

 ;;1584

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

 ;;1585

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

 ;;2621

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

 ;;2622

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

 ;;2623

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

 ;;5051

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

 ;;612

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

 ;;613

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

 ;;614

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

 ;;615

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

 ;;616

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

 ;;617

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

 ;;618

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

 ;;619

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

 ;;4624

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

 ;;4625

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

 ;;4626

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

 ;;4627

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

 ;;3282

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

 ;;3283

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

 ;;3284

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

 ;;3285

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

 ;;3286

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

 ;;3287

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

 ;;3288

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

 ;;3289

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

 ;;1300

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

 ;;1301

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

 ;;1302

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

 ;;3185

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

 ;;3186

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

 ;;3187

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

 ;;2185

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

 ;;2186

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

 ;;2187

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

 ;;2188

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

 ;;2189

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

 ;;2190

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

 ;;2191

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

 ;;2192

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

 ;;2193

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

 ;;2194

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

 ;;963

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

 ;;964

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

 ;;965

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

 ;;966

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

 ;;967

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

 ;;968

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

 ;;969

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

 ;;970

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

 ;;971

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

 ;;972

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

 ;;973

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

 ;;974

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

 ;;975

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

 ;;976

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

 ;;602

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

 ;;603

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

 ;;604

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

 ;;605

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

 ;;599

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

 ;;600

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

 ;;760

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

 ;;2195

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

 ;;3188

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

 ;;3627

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

 ;;3628

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

 ;;3629

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

 ;;3630

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

 ;;3631

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

 ;;3632

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

 ;;3633

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

 ;;3634

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

 ;;4315

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

 ;;4316

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

 ;;4317

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

 ;;4318

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

 ;;4319

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

 ;;4320

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

 ;;3189

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

 ;;2196

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

 ;;2197

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

 ;;2198

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

 ;;2199

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

 ;;2200

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

 ;;2201

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

 ;;2202

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

 ;;2940

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

 ;;2941

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

 ;;2942

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

 ;;2943

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

 ;;2944

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

 ;;2945

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

 ;;2946

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

 ;;2947

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

 ;;2948

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

 ;;4305

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

 ;;4306

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

 ;;4307

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

 ;;4308

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

 ;;2949

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

 ;;2950

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

 ;;2951

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

 ;;2952

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

 ;;2953

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

 ;;2954

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

 ;;5052

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

 ;;5053

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

 ;;5054

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

 ;;5055

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

 ;;5023

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

 ;;5024

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

 ;;5025

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

 ;;5026

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

 ;;5027

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

 ;;5028

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

 ;;1590

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

 ;;761

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

 ;;867

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

 ;;868

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

 ;;869

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

 ;;3290

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

 ;;3291

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

 ;;2203

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

 ;;2204

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

 ;;2205

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

 ;;5029

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

 ;;5030

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

 ;;5031

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

 ;;5032

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

 ;;5033

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

 ;;5034

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

 ;;5035

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

 ;;5036

 ;;21,"00140-0070-01 ")

 ;;2913

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

 ;;4321

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

 ;;4322

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

 ;;4323

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

 ;;4324

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

 ;;4325

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

 ;;4326

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

 ;;4327

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

 ;;4328

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

 ;;3190

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

 ;;3191

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

 ;;3192

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

 ;;3193

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

 ;;3194

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

 ;;3195

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

 ;;3196

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

 ;;3197

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

 ;;3198

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

 ;;3199

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

 ;;3200

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

 ;;3201

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

 ;;3202

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

 ;;3203

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

 ;;3204

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

 ;;3205

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

 ;;3206

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

 ;;3207

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

 ;;3208

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

 ;;2206

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

 ;;2207

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

 ;;2208

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

 ;;2209

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

 ;;2210

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

 ;;2211

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

 ;;2212

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

 ;;2213

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

 ;;2214

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

 ;;2215

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

 ;;2216

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

 ;;2217

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

 ;;2218

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

 ;;2219

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

 ;;2220

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

 ;;2624

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

 ;;2625

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

 ;;2626

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

 ;;2221

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

 ;;2222

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

 ;;2223

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

 ;;977

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

 ;;978

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

 ;;979

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

 ;;980

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

 ;;981

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

 ;;982

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

 ;;983

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

 ;;984

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

 ;;985

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

 ;;986

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

 ;;987

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

 ;;988

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

 ;;989

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

 ;;990

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

 ;;4329

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

 ;;4330

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

 ;;4331

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

 ;;4332

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

 ;;4333

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

 ;;4334

 ;

OTHER ; OTHER ROUTINES

 D ^BGP13T10

 D ^BGP13T11

 D ^BGP13T12

 D ^BGP13T13

 D ^BGP13T14

 D ^BGP13T15

 D ^BGP13T16

 D ^BGP13T17

 D ^BGP13T18

 D ^BGP13T19

 D ^BGP13T2

 D ^BGP13T20

 D ^BGP13T21

 D ^BGP13T22

 D ^BGP13T23

 D ^BGP13T24

 D ^BGP13T25

 D ^BGP13T26

 D ^BGP13T27

 D ^BGP13T28

 D ^BGP13T29

 D ^BGP13T3

 D ^BGP13T30

 D ^BGP13T31

 D ^BGP13T32

 D ^BGP13T33

 D ^BGP13T34

 D ^BGP13T35

 D ^BGP13T36

 D ^BGP13T37

 D ^BGP13T38

 D ^BGP13T39

 D ^BGP13T4

 D ^BGP13T40

 D ^BGP13T41

 D ^BGP13T42

 D ^BGP13T43

 D ^BGP13T44

 D ^BGP13T45

 D ^BGP13T46

 D ^BGP13T47

 D ^BGP13T48

 D ^BGP13T49

 D ^BGP13T5

 D ^BGP13T50

 D ^BGP13T51

 D ^BGP13T52

 D ^BGP13T53

 D ^BGP13T54

 D ^BGP13T55

 D ^BGP13T56

 D ^BGP13T57

 D ^BGP13T58

 D ^BGP13T59

 D ^BGP13T6

 D ^BGP13T60

 D ^BGP13T61

 D ^BGP13T62

 D ^BGP13T63

 D ^BGP13T64

 D ^BGP13T65

 D ^BGP13T66

 D ^BGP13T67

 D ^BGP13T7

 D ^BGP13T8

 D ^BGP13T9

 Q

BGP13T    ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON APR 14, 2011 ;

 +1       ;;11.1;IHS CLINICAL REPORTING SYSTEM;;JUN 27, 2011;Build 33

 +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       ;;4248

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

 +4       ;;4595

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

 +6       ;;4596

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

 +8       ;;4597

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

 +10      ;;4598

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

 +12      ;;4599

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

 +14      ;;4600

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

 +16      ;;4601

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

 +18      ;;4602

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

 +20      ;;4603

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

 +22      ;;4604

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

 +24      ;;4605

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

 +26      ;;4606

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

 +28      ;;4607

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

 +30      ;;1323

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

 +32      ;;1324

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

 +34      ;;1325

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

 +36      ;;1326

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

 +38      ;;1327

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

 +40      ;;1328

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

 +42      ;;1329

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

 +44      ;;1330

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

 +46      ;;1331

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

 +48      ;;1332

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

 +50      ;;1333

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

 +52      ;;1334

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

 +54      ;;1335

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

 +56      ;;1336

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

 +58      ;;1337

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

 +60      ;;1338

 +61      ;;21,"00002-4006-02 ")

 +62      ;;4162

 +63      ;;21,"00002-4006-30 ")

 +64      ;;4163

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

 +66      ;;3626

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

 +68      ;;1887

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

 +70      ;;1888

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

 +72      ;;1889

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

 +74      ;;1890

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

 +76      ;;1891

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

 +78      ;;1892

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

 +80      ;;1893

 +81      ;;21,"00008-0704-02 ")

 +82      ;;1894

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

 +84      ;;1895

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

 +86      ;;1896

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

 +88      ;;1897

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

 +90      ;;1898

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

 +92      ;;1899

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

 +94      ;;1900

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

 +96      ;;1901

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

 +98      ;;1902

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

 +100     ;;1903

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

 +102     ;;2028

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

 +104     ;;2029

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

 +106     ;;2030

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

 +108     ;;2031

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

 +110     ;;2032

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

 +112     ;;2033

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

 +114     ;;2034

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

 +116     ;;2035

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

 +118     ;;2036

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

 +120     ;;2037

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

 +122     ;;2038

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

 +124     ;;2039

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

 +126     ;;2040

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

 +128     ;;2041

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

 +130     ;;2042

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

 +132     ;;2043

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

 +134     ;;2044

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

 +136     ;;2045

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

 +138     ;;4143

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

 +140     ;;4144

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

 +142     ;;4145

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

 +144     ;;4146

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

 +146     ;;4147

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

 +148     ;;4148

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

 +150     ;;4149

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

 +152     ;;4150

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

 +154     ;;596

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

 +156     ;;597

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

 +158     ;;598

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

 +160     ;;4055

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

 +162     ;;4056

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

 +164     ;;4057

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

 +166     ;;3968

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

 +168     ;;3969

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

 +170     ;;3970

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

 +172     ;;3971

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

 +174     ;;3972

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

 +176     ;;3973

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

 +178     ;;3974

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

 +180     ;;4058

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

 +182     ;;5228

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

 +184     ;;5229

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

 +186     ;;5230

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

 +188     ;;5231

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

 +190     ;;5232

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

 +192     ;;5233

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

 +194     ;;5234

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

 +196     ;;5235

 +197     ;;21,"00049-5370-50 ")

 +198     ;;4588

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

 +200     ;;4253

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

 +202     ;;4254

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

 +204     ;;4282

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

 +206     ;;4283

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

 +208     ;;4284

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

 +210     ;;4285

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

 +212     ;;4255

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

 +214     ;;4256

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

 +216     ;;4286

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

 +218     ;;4287

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

 +220     ;;4288

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

 +222     ;;4289

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

 +224     ;;4257

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

 +226     ;;4290

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

 +228     ;;4291

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

 +230     ;;4292

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

 +232     ;;4309

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

 +234     ;;4310

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

 +236     ;;4311

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

 +238     ;;4312

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

 +240     ;;4313

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

 +242     ;;962

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

 +244     ;;4314

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

 +246     ;;4152

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

 +248     ;;4153

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

 +250     ;;2813

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

 +252     ;;2814

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

 +254     ;;2815

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

 +256     ;;2816

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

 +258     ;;2935

 +259     ;;21,"00054-4677-13 ")

 +260     ;;2936

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

 +262     ;;2937

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

 +264     ;;2938

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

 +266     ;;2939

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

 +268     ;;3275

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

 +270     ;;3276

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

 +272     ;;3277

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

 +274     ;;3278

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

 +276     ;;3279

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

 +278     ;;3280

 +279     ;;21,"00071-0270-24 ")

 +280     ;;3182

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

 +282     ;;3183

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

 +284     ;;3184

 +285     ;;21,"00078-0016-33 ")

 +286     ;;3605

 +287     ;;21,"00078-0078-05 ")

 +288     ;;3606

 +289     ;;21,"00078-0079-05 ")

 +290     ;;3607

 +291     ;;21,"00078-0086-05 ")

 +292     ;;3608

 +293     ;;21,"00078-0087-05 ")

 +294     ;;3609

 +295     ;;21,"00087-0775-41 ")

 +296     ;;1575

 +297     ;;21,"00087-0775-43 ")

 +298     ;;1576

 +299     ;;21,"00087-0776-41 ")

 +300     ;;1577

 +301     ;;21,"00087-0776-43 ")

 +302     ;;1578

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

 +304     ;;1583

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

 +306     ;;1584

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

 +308     ;;1585

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

 +310     ;;2621

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

 +312     ;;2622

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

 +314     ;;2623

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

 +316     ;;5051

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

 +318     ;;612

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

 +320     ;;613

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

 +322     ;;614

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

 +324     ;;615

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

 +326     ;;616

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

 +328     ;;617

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

 +330     ;;618

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

 +332     ;;619

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

 +334     ;;4624

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

 +336     ;;4625

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

 +338     ;;4626

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

 +340     ;;4627

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

 +342     ;;3282

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

 +344     ;;3283

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

 +346     ;;3284

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

 +348     ;;3285

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

 +350     ;;3286

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

 +352     ;;3287

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

 +354     ;;3288

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

 +356     ;;3289

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

 +358     ;;1300

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

 +360     ;;1301

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

 +362     ;;1302

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

 +364     ;;3185

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

 +366     ;;3186

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

 +368     ;;3187

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

 +370     ;;2185

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

 +372     ;;2186

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

 +374     ;;2187

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

 +376     ;;2188

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

 +378     ;;2189

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

 +380     ;;2190

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

 +382     ;;2191

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

 +384     ;;2192

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

 +386     ;;2193

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

 +388     ;;2194

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

 +390     ;;963

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

 +392     ;;964

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

 +394     ;;965

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

 +396     ;;966

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

 +398     ;;967

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

 +400     ;;968

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

 +402     ;;969

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

 +404     ;;970

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

 +406     ;;971

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

 +408     ;;972

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

 +410     ;;973

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

 +412     ;;974

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

 +414     ;;975

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

 +416     ;;976

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

 +418     ;;602

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

 +420     ;;603

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

 +422     ;;604

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

 +424     ;;605

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

 +426     ;;599

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

 +428     ;;600

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

 +430     ;;760

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

 +432     ;;2195

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

 +434     ;;3188

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

 +436     ;;3627

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

 +438     ;;3628

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

 +440     ;;3629

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

 +442     ;;3630

 +443     ;;21,"00093-7116-56 ")

 +444     ;;3631

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

 +446     ;;3632

 +447     ;;21,"00093-7121-56 ")

 +448     ;;3633

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

 +450     ;;3634

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

 +452     ;;4315

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

 +454     ;;4316

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

 +456     ;;4317

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

 +458     ;;4318

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

 +460     ;;4319

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

 +462     ;;4320

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

 +464     ;;3189

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

 +466     ;;2196

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

 +468     ;;2197

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

 +470     ;;2198

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

 +472     ;;2199

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

 +474     ;;2200

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

 +476     ;;2201

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

 +478     ;;2202

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

 +480     ;;2940

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

 +482     ;;2941

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

 +484     ;;2942

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

 +486     ;;2943

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

 +488     ;;2944

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

 +490     ;;2945

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

 +492     ;;2946

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

 +494     ;;2947

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

 +496     ;;2948

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

 +498     ;;4305

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

 +500     ;;4306

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

 +502     ;;4307

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

 +504     ;;4308

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

 +506     ;;2949

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

 +508     ;;2950

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

 +510     ;;2951

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

 +512     ;;2952

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

 +514     ;;2953

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

 +516     ;;2954

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

 +518     ;;5052

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

 +520     ;;5053

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

 +522     ;;5054

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

 +524     ;;5055

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

 +526     ;;5023

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

 +528     ;;5024

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

 +530     ;;5025

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

 +532     ;;5026

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

 +534     ;;5027

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

 +536     ;;5028

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

 +538     ;;1590

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

 +540     ;;761

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

 +542     ;;867

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

 +544     ;;868

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

 +546     ;;869

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

 +548     ;;3290

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

 +550     ;;3291

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

 +552     ;;2203

 +553     ;;21,"00121-0721-05 ")

 +554     ;;2204

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

 +556     ;;2205

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

 +558     ;;5029

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

 +560     ;;5030

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

 +562     ;;5031

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

 +564     ;;5032

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

 +566     ;;5033

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

 +568     ;;5034

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

 +570     ;;5035

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

 +572     ;;5036

 +573     ;;21,"00140-0070-01 ")

 +574     ;;2913

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

 +576     ;;4321

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

 +578     ;;4322

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

 +580     ;;4323

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

 +582     ;;4324

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

 +584     ;;4325

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

 +586     ;;4326

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

 +588     ;;4327

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

 +590     ;;4328

 +591     ;;21,"00172-4332-00 ")

 +592     ;;3190

 +593     ;;21,"00172-4332-10 ")

 +594     ;;3191

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

 +596     ;;3192

 +597     ;;21,"00172-4332-60 ")

 +598     ;;3193

 +599     ;;21,"00172-4332-70 ")

 +600     ;;3194

 +601     ;;21,"00172-4333-10 ")

 +602     ;;3195

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

 +604     ;;3196

 +605     ;;21,"00172-4333-60 ")

 +606     ;;3197

 +607     ;;21,"00172-4333-70 ")

 +608     ;;3198

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

 +610     ;;3199

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

 +612     ;;3200

 +613     ;;21,"00172-4334-60 ")

 +614     ;;3201

 +615     ;;21,"00172-4334-70 ")

 +616     ;;3202

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

 +618     ;;3203

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

 +620     ;;3204

 +621     ;;21,"00172-4335-60 ")

 +622     ;;3205

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

 +624     ;;3206

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

 +626     ;;3207

 +627     ;;21,"00172-4343-60 ")

 +628     ;;3208

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

 +630     ;;2206

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

 +632     ;;2207

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

 +634     ;;2208

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

 +636     ;;2209

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

 +638     ;;2210

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

 +640     ;;2211

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

 +642     ;;2212

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

 +644     ;;2213

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

 +646     ;;2214

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

 +648     ;;2215

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

 +650     ;;2216

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

 +652     ;;2217

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

 +654     ;;2218

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

 +656     ;;2219

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

 +658     ;;2220

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

 +660     ;;2624

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

 +662     ;;2625

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

 +664     ;;2626

 +665     ;;21,"00172-4510-60 ")

 +666     ;;2221

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

 +668     ;;2222

 +669     ;;21,"00172-4510-80 ")

 +670     ;;2223

 +671     ;;21,"00172-4740-00 ")

 +672     ;;977

 +673     ;;21,"00172-4740-10 ")

 +674     ;;978

 +675     ;;21,"00172-4740-60 ")

 +676     ;;979

 +677     ;;21,"00172-4740-80 ")

 +678     ;;980

 +679     ;;21,"00172-4741-00 ")

 +680     ;;981

 +681     ;;21,"00172-4741-10 ")

 +682     ;;982

 +683     ;;21,"00172-4741-60 ")

 +684     ;;983

 +685     ;;21,"00172-4741-70 ")

 +686     ;;984

 +687     ;;21,"00172-4741-85 ")

 +688     ;;985

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

 +690     ;;986

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

 +692     ;;987

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

 +694     ;;988

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

 +696     ;;989

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

 +698     ;;990

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

 +700     ;;4329

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

 +702     ;;4330

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

 +704     ;;4331

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

 +706     ;;4332

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

 +708     ;;4333

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

 +710     ;;4334

 +711     ;

OTHER     ; OTHER ROUTINES

 +1        DO ^BGP13T10

 +2        DO ^BGP13T11

 +3        DO ^BGP13T12

 +4        DO ^BGP13T13

 +5        DO ^BGP13T14

 +6        DO ^BGP13T15

 +7        DO ^BGP13T16

 +8        DO ^BGP13T17

 +9        DO ^BGP13T18

 +10       DO ^BGP13T19

 +11       DO ^BGP13T2

 +12       DO ^BGP13T20

 +13       DO ^BGP13T21

 +14       DO ^BGP13T22

 +15       DO ^BGP13T23

 +16       DO ^BGP13T24

 +17       DO ^BGP13T25

 +18       DO ^BGP13T26

 +19       DO ^BGP13T27

 +20       DO ^BGP13T28

 +21       DO ^BGP13T29

 +22       DO ^BGP13T3

 +23       DO ^BGP13T30

 +24       DO ^BGP13T31

 +25       DO ^BGP13T32

 +26       DO ^BGP13T33

 +27       DO ^BGP13T34

 +28       DO ^BGP13T35

 +29       DO ^BGP13T36

 +30       DO ^BGP13T37

 +31       DO ^BGP13T38

 +32       DO ^BGP13T39

 +33       DO ^BGP13T4

 +34       DO ^BGP13T40

 +35       DO ^BGP13T41

 +36       DO ^BGP13T42

 +37       DO ^BGP13T43

 +38       DO ^BGP13T44

 +39       DO ^BGP13T45

 +40       DO ^BGP13T46

 +41       DO ^BGP13T47

 +42       DO ^BGP13T48

 +43       DO ^BGP13T49

 +44       DO ^BGP13T5

 +45       DO ^BGP13T50

 +46       DO ^BGP13T51

 +47       DO ^BGP13T52

 +48       DO ^BGP13T53

 +49       DO ^BGP13T54

 +50       DO ^BGP13T55

 +51       DO ^BGP13T56

 +52       DO ^BGP13T57

 +53       DO ^BGP13T58

 +54       DO ^BGP13T59

 +55       DO ^BGP13T6

 +56       DO ^BGP13T60

 +57       DO ^BGP13T61

 +58       DO ^BGP13T62

 +59       DO ^BGP13T63

 +60       DO ^BGP13T64

 +61       DO ^BGP13T65

 +62       DO ^BGP13T66

 +63       DO ^BGP13T67

 +64       DO ^BGP13T7

 +65       DO ^BGP13T8

 +66       DO ^BGP13T9

 +67       QUIT