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