BUD0ZA10.m

BUD0ZA10 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON DEC 13, 2010 ;

 ;;10.0;IHS/RPMS UNIFORM DATA SYSTEM;;FEB 04, 2016;Build 50

 ;

START ;

 K:'$G(ATXPGMC) ^TMP("ATX",$J)

 S ATXPGMC=$G(ATXPGMC)+1

 F ATXI=1:1 S X=$P($T(TMP+ATXI),";;",2,99) Q:X=""  S X="^TMP(""ATX"",$J,"_X,ATXI=ATXI+1,Y=$P($T(TMP+ATXI),";;",2,99) S @X=Y

 Q

 ;

TMP ;;TAXONOMY (WITH BULLETIN)

 ;;21,"63874-0665-01 ")

 ;;1365

 ;;21,"63874-0665-04 ")

 ;;1366

 ;;21,"63874-0665-10 ")

 ;;1367

 ;;21,"63874-0665-14 ")

 ;;1368

 ;;21,"63874-0665-30 ")

 ;;1369

 ;;21,"63874-0665-60 ")

 ;;1370

 ;;21,"63874-0665-90 ")

 ;;1371

 ;;21,"63874-0939-01 ")

 ;;1372

 ;;21,"63874-0939-10 ")

 ;;1373

 ;;21,"63874-0939-30 ")

 ;;1374

 ;;21,"63874-0939-60 ")

 ;;1375

 ;;21,"64764-0151-04 ")

 ;;1376

 ;;21,"64764-0151-05 ")

 ;;1377

 ;;21,"64764-0151-06 ")

 ;;1378

 ;;21,"64764-0155-18 ")

 ;;1379

 ;;21,"64764-0155-60 ")

 ;;1380

 ;;21,"64764-0158-18 ")

 ;;1381

 ;;21,"64764-0158-60 ")

 ;;1382

 ;;21,"64764-0301-14 ")

 ;;1383

 ;;21,"64764-0301-15 ")

 ;;1384

 ;;21,"64764-0301-16 ")

 ;;1385

 ;;21,"64764-0302-30 ")

 ;;1386

 ;;21,"64764-0304-30 ")

 ;;1387

 ;;21,"64764-0451-24 ")

 ;;1388

 ;;21,"64764-0451-25 ")

 ;;1389

 ;;21,"64764-0451-26 ")

 ;;1390

 ;;21,"64909-0101-07 ")

 ;;1391

 ;;21,"64909-0102-07 ")

 ;;1392

 ;;21,"64909-0102-08 ")

 ;;1393

 ;;21,"64909-0104-07 ")

 ;;1394

 ;;21,"64909-0105-07 ")

 ;;1395

 ;;21,"64909-0105-08 ")

 ;;1396

 ;;21,"66105-0145-01 ")

 ;;1397

 ;;21,"66105-0145-03 ")

 ;;1398

 ;;21,"66105-0145-06 ")

 ;;1399

 ;;21,"66105-0145-09 ")

 ;;1400

 ;;21,"66105-0145-15 ")

 ;;1401

 ;;21,"66105-0146-03 ")

 ;;1402

 ;;21,"66105-0159-01 ")

 ;;1403

 ;;21,"66105-0159-03 ")

 ;;1404

 ;;21,"66105-0159-06 ")

 ;;1405

 ;;21,"66105-0159-09 ")

 ;;1406

 ;;21,"66105-0159-15 ")

 ;;1407

 ;;21,"66105-0984-03 ")

 ;;1408

 ;;21,"66105-0984-06 ")

 ;;1409

 ;;21,"66105-0984-10 ")

 ;;1410

 ;;21,"66105-0984-11 ")

 ;;1411

 ;;21,"66105-0984-50 ")

 ;;1412

 ;;21,"66105-0985-03 ")

 ;;1413

 ;;21,"66105-0985-06 ")

 ;;1414

 ;;21,"66105-0985-10 ")

 ;;1415

 ;;21,"66105-0985-11 ")

 ;;1416

 ;;21,"66105-0985-50 ")

 ;;1417

 ;;21,"66105-0986-03 ")

 ;;1418

 ;;21,"66105-0986-06 ")

 ;;1419

 ;;21,"66105-0986-10 ")

 ;;1420

 ;;21,"66105-0986-11 ")

 ;;1421

 ;;21,"66105-0986-50 ")

 ;;1422

 ;;21,"66143-7510-05 ")

 ;;1423

 ;;21,"66336-0028-30 ")

 ;;1424

 ;;21,"66336-0269-30 ")

 ;;1425

 ;;21,"66336-0319-30 ")

 ;;1426

 ;;21,"66336-0662-30 ")

 ;;1427

 ;;21,"66336-0662-60 ")

 ;;1428

 ;;21,"66336-0730-30 ")

 ;;1429

 ;;21,"66336-0730-60 ")

 ;;1430

 ;;21,"66336-0784-30 ")

 ;;1431

 ;;21,"66336-0938-30 ")

 ;;1432

 ;;21,"66336-0938-60 ")

 ;;1433

 ;;21,"66780-0110-01 ")

 ;;1434

 ;;21,"66780-0115-02 ")

 ;;1435

 ;;21,"66780-0121-02 ")

 ;;1436

 ;;21,"66780-0210-07 ")

 ;;1437

 ;;21,"66780-0210-08 ")

 ;;1438

 ;;21,"66993-0162-02 ")

 ;;1439

 ;;21,"66993-0163-02 ")

 ;;1440

 ;;21,"66993-0164-02 ")

 ;;1441

 ;;21,"67046-0235-30 ")

 ;;1442

 ;;21,"67251-0460-11 ")

 ;;1443

 ;;21,"67251-0460-50 ")

 ;;1444

 ;;21,"67253-0460-10 ")

 ;;1445

 ;;21,"67253-0460-11 ")

 ;;1446

 ;;21,"67253-0460-50 ")

 ;;1447

 ;;21,"67253-0461-10 ")

 ;;1448

 ;;21,"67253-0461-11 ")

 ;;1449

 ;;21,"67253-0461-50 ")

 ;;1450

 ;;21,"67253-0462-10 ")

 ;;1451

 ;;21,"67253-0462-11 ")

 ;;1452

 ;;21,"67253-0462-50 ")

 ;;1453

 ;;21,"68084-0111-01 ")

 ;;1454

 ;;21,"68084-0111-11 ")

 ;;1455

 ;;21,"68084-0112-01 ")

 ;;1456

 ;;21,"68084-0112-11 ")

 ;;1457

 ;;21,"68084-0136-01 ")

 ;;1458

 ;;21,"68084-0136-11 ")

 ;;1459

 ;;21,"68084-0137-01 ")

 ;;1460

 ;;21,"68084-0137-11 ")

 ;;1461

 ;;21,"68084-0138-01 ")

 ;;1462

 ;;21,"68084-0138-11 ")

 ;;1463

 ;;21,"68084-0295-11 ")

 ;;1464

 ;;21,"68084-0295-21 ")

 ;;1465

 ;;21,"68084-0326-01 ")

 ;;1466

 ;;21,"68084-0326-11 ")

 ;;1467

 ;;21,"68084-0327-01 ")

 ;;1468

 ;;21,"68084-0327-11 ")

 ;;1469

 ;;21,"68115-0154-30 ")

 ;;1470

 ;;21,"68115-0154-60 ")

 ;;1471

 ;;21,"68115-0154-90 ")

 ;;1472

 ;;21,"68115-0155-30 ")

 ;;1473

 ;;21,"68115-0155-60 ")

 ;;1474

 ;;21,"68115-0155-90 ")

 ;;1475

 ;;21,"68115-0156-30 ")

 ;;1476

 ;;21,"68115-0157-30 ")

 ;;1477

 ;;21,"68115-0158-30 ")

 ;;1478

 ;;21,"68115-0158-60 ")

 ;;1479

 ;;21,"68115-0159-30 ")

 ;;1480

 ;;21,"68115-0159-60 ")

 ;;1481

 ;;21,"68115-0160-30 ")

 ;;1482

 ;;21,"68115-0160-90 ")

 ;;1483

 ;;21,"68115-0161-30 ")

 ;;1484

 ;;21,"68115-0161-60 ")

 ;;1485

 ;;21,"68115-0161-90 ")

 ;;1486

 ;;21,"68115-0616-00 ")

 ;;1487

 ;;21,"68115-0622-00 ")

 ;;1488

 ;;21,"68115-0671-30 ")

 ;;1489

 ;;21,"68115-0684-30 ")

 ;;1490

 ;;21,"68115-0709-05 ")

 ;;1491

 ;;21,"68115-0712-60 ")

 ;;1492

 ;;21,"68115-0728-10 ")

 ;;1493

 ;;21,"68115-0729-05 ")

 ;;1494

 ;;21,"68115-0746-10 ")

 ;;1495

 ;;21,"68115-0839-10 ")

 ;;1496

 ;;21,"68115-0840-00 ")

 ;;1497

 ;;21,"68115-0841-30 ")

 ;;1498

 ;;21,"68115-0891-60 ")

 ;;1499

 ;;9002226,1062,.01)

 ;;BUD DIABETES MEDS NDC

 ;;9002226,1062,.02)

 ;;DM MEDS FOR UDS

 ;;9002226,1062,.04)

 ;;n

 ;;9002226,1062,.06)

 ;;@

 ;;9002226,1062,.08)

 ;;@

 ;;9002226,1062,.09)

 ;;@

 ;;9002226,1062,.11)

 ;;@

 ;;9002226,1062,.12)

 ;;@

 ;;9002226,1062,.13)

 ;;1

 ;;9002226,1062,.14)

 ;;@

 ;;9002226,1062,.15)

 ;;@

 ;;9002226,1062,.16)

 ;;@

 ;;9002226,1062,.17)

 ;;@

 ;;9002226,1062,3101)

 ;;@

 ;;9002226.02101,"1062,00002-7510-01 ",.01)

 ;;00002-7510-01

BUD0ZA10  ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON DEC 13, 2010 ;

 +1       ;;10.0;IHS/RPMS UNIFORM DATA SYSTEM;;FEB 04, 2016;Build 50

 +2       ;

START     ;

 +1        IF '$GET(ATXPGMC)

               KILL ^TMP("ATX",$JOB)

 +2        SET ATXPGMC=$GET(ATXPGMC)+1

 +3        FOR ATXI=1:1

               SET X=$PIECE($TEXT(TMP+ATXI),";;",2,99)

               IF X=""

                   QUIT 

               SET X="^TMP(""ATX"",$J,"_X

               SET ATXI=ATXI+1

               SET Y=$PIECE($TEXT(TMP+ATXI),";;",2,99)

               SET @X=Y

 +4        QUIT 

 +5       ;

TMP       ;;TAXONOMY (WITH BULLETIN)

 +1       ;;21,"63874-0665-01 ")

 +2       ;;1365

 +3       ;;21,"63874-0665-04 ")

 +4       ;;1366

 +5       ;;21,"63874-0665-10 ")

 +6       ;;1367

 +7       ;;21,"63874-0665-14 ")

 +8       ;;1368

 +9       ;;21,"63874-0665-30 ")

 +10      ;;1369

 +11      ;;21,"63874-0665-60 ")

 +12      ;;1370

 +13      ;;21,"63874-0665-90 ")

 +14      ;;1371

 +15      ;;21,"63874-0939-01 ")

 +16      ;;1372

 +17      ;;21,"63874-0939-10 ")

 +18      ;;1373

 +19      ;;21,"63874-0939-30 ")

 +20      ;;1374

 +21      ;;21,"63874-0939-60 ")

 +22      ;;1375

 +23      ;;21,"64764-0151-04 ")

 +24      ;;1376

 +25      ;;21,"64764-0151-05 ")

 +26      ;;1377

 +27      ;;21,"64764-0151-06 ")

 +28      ;;1378

 +29      ;;21,"64764-0155-18 ")

 +30      ;;1379

 +31      ;;21,"64764-0155-60 ")

 +32      ;;1380

 +33      ;;21,"64764-0158-18 ")

 +34      ;;1381

 +35      ;;21,"64764-0158-60 ")

 +36      ;;1382

 +37      ;;21,"64764-0301-14 ")

 +38      ;;1383

 +39      ;;21,"64764-0301-15 ")

 +40      ;;1384

 +41      ;;21,"64764-0301-16 ")

 +42      ;;1385

 +43      ;;21,"64764-0302-30 ")

 +44      ;;1386

 +45      ;;21,"64764-0304-30 ")

 +46      ;;1387

 +47      ;;21,"64764-0451-24 ")

 +48      ;;1388

 +49      ;;21,"64764-0451-25 ")

 +50      ;;1389

 +51      ;;21,"64764-0451-26 ")

 +52      ;;1390

 +53      ;;21,"64909-0101-07 ")

 +54      ;;1391

 +55      ;;21,"64909-0102-07 ")

 +56      ;;1392

 +57      ;;21,"64909-0102-08 ")

 +58      ;;1393

 +59      ;;21,"64909-0104-07 ")

 +60      ;;1394

 +61      ;;21,"64909-0105-07 ")

 +62      ;;1395

 +63      ;;21,"64909-0105-08 ")

 +64      ;;1396

 +65      ;;21,"66105-0145-01 ")

 +66      ;;1397

 +67      ;;21,"66105-0145-03 ")

 +68      ;;1398

 +69      ;;21,"66105-0145-06 ")

 +70      ;;1399

 +71      ;;21,"66105-0145-09 ")

 +72      ;;1400

 +73      ;;21,"66105-0145-15 ")

 +74      ;;1401

 +75      ;;21,"66105-0146-03 ")

 +76      ;;1402

 +77      ;;21,"66105-0159-01 ")

 +78      ;;1403

 +79      ;;21,"66105-0159-03 ")

 +80      ;;1404

 +81      ;;21,"66105-0159-06 ")

 +82      ;;1405

 +83      ;;21,"66105-0159-09 ")

 +84      ;;1406

 +85      ;;21,"66105-0159-15 ")

 +86      ;;1407

 +87      ;;21,"66105-0984-03 ")

 +88      ;;1408

 +89      ;;21,"66105-0984-06 ")

 +90      ;;1409

 +91      ;;21,"66105-0984-10 ")

 +92      ;;1410

 +93      ;;21,"66105-0984-11 ")

 +94      ;;1411

 +95      ;;21,"66105-0984-50 ")

 +96      ;;1412

 +97      ;;21,"66105-0985-03 ")

 +98      ;;1413

 +99      ;;21,"66105-0985-06 ")

 +100     ;;1414

 +101     ;;21,"66105-0985-10 ")

 +102     ;;1415

 +103     ;;21,"66105-0985-11 ")

 +104     ;;1416

 +105     ;;21,"66105-0985-50 ")

 +106     ;;1417

 +107     ;;21,"66105-0986-03 ")

 +108     ;;1418

 +109     ;;21,"66105-0986-06 ")

 +110     ;;1419

 +111     ;;21,"66105-0986-10 ")

 +112     ;;1420

 +113     ;;21,"66105-0986-11 ")

 +114     ;;1421

 +115     ;;21,"66105-0986-50 ")

 +116     ;;1422

 +117     ;;21,"66143-7510-05 ")

 +118     ;;1423

 +119     ;;21,"66336-0028-30 ")

 +120     ;;1424

 +121     ;;21,"66336-0269-30 ")

 +122     ;;1425

 +123     ;;21,"66336-0319-30 ")

 +124     ;;1426

 +125     ;;21,"66336-0662-30 ")

 +126     ;;1427

 +127     ;;21,"66336-0662-60 ")

 +128     ;;1428

 +129     ;;21,"66336-0730-30 ")

 +130     ;;1429

 +131     ;;21,"66336-0730-60 ")

 +132     ;;1430

 +133     ;;21,"66336-0784-30 ")

 +134     ;;1431

 +135     ;;21,"66336-0938-30 ")

 +136     ;;1432

 +137     ;;21,"66336-0938-60 ")

 +138     ;;1433

 +139     ;;21,"66780-0110-01 ")

 +140     ;;1434

 +141     ;;21,"66780-0115-02 ")

 +142     ;;1435

 +143     ;;21,"66780-0121-02 ")

 +144     ;;1436

 +145     ;;21,"66780-0210-07 ")

 +146     ;;1437

 +147     ;;21,"66780-0210-08 ")

 +148     ;;1438

 +149     ;;21,"66993-0162-02 ")

 +150     ;;1439

 +151     ;;21,"66993-0163-02 ")

 +152     ;;1440

 +153     ;;21,"66993-0164-02 ")

 +154     ;;1441

 +155     ;;21,"67046-0235-30 ")

 +156     ;;1442

 +157     ;;21,"67251-0460-11 ")

 +158     ;;1443

 +159     ;;21,"67251-0460-50 ")

 +160     ;;1444

 +161     ;;21,"67253-0460-10 ")

 +162     ;;1445

 +163     ;;21,"67253-0460-11 ")

 +164     ;;1446

 +165     ;;21,"67253-0460-50 ")

 +166     ;;1447

 +167     ;;21,"67253-0461-10 ")

 +168     ;;1448

 +169     ;;21,"67253-0461-11 ")

 +170     ;;1449

 +171     ;;21,"67253-0461-50 ")

 +172     ;;1450

 +173     ;;21,"67253-0462-10 ")

 +174     ;;1451

 +175     ;;21,"67253-0462-11 ")

 +176     ;;1452

 +177     ;;21,"67253-0462-50 ")

 +178     ;;1453

 +179     ;;21,"68084-0111-01 ")

 +180     ;;1454

 +181     ;;21,"68084-0111-11 ")

 +182     ;;1455

 +183     ;;21,"68084-0112-01 ")

 +184     ;;1456

 +185     ;;21,"68084-0112-11 ")

 +186     ;;1457

 +187     ;;21,"68084-0136-01 ")

 +188     ;;1458

 +189     ;;21,"68084-0136-11 ")

 +190     ;;1459

 +191     ;;21,"68084-0137-01 ")

 +192     ;;1460

 +193     ;;21,"68084-0137-11 ")

 +194     ;;1461

 +195     ;;21,"68084-0138-01 ")

 +196     ;;1462

 +197     ;;21,"68084-0138-11 ")

 +198     ;;1463

 +199     ;;21,"68084-0295-11 ")

 +200     ;;1464

 +201     ;;21,"68084-0295-21 ")

 +202     ;;1465

 +203     ;;21,"68084-0326-01 ")

 +204     ;;1466

 +205     ;;21,"68084-0326-11 ")

 +206     ;;1467

 +207     ;;21,"68084-0327-01 ")

 +208     ;;1468

 +209     ;;21,"68084-0327-11 ")

 +210     ;;1469

 +211     ;;21,"68115-0154-30 ")

 +212     ;;1470

 +213     ;;21,"68115-0154-60 ")

 +214     ;;1471

 +215     ;;21,"68115-0154-90 ")

 +216     ;;1472

 +217     ;;21,"68115-0155-30 ")

 +218     ;;1473

 +219     ;;21,"68115-0155-60 ")

 +220     ;;1474

 +221     ;;21,"68115-0155-90 ")

 +222     ;;1475

 +223     ;;21,"68115-0156-30 ")

 +224     ;;1476

 +225     ;;21,"68115-0157-30 ")

 +226     ;;1477

 +227     ;;21,"68115-0158-30 ")

 +228     ;;1478

 +229     ;;21,"68115-0158-60 ")

 +230     ;;1479

 +231     ;;21,"68115-0159-30 ")

 +232     ;;1480

 +233     ;;21,"68115-0159-60 ")

 +234     ;;1481

 +235     ;;21,"68115-0160-30 ")

 +236     ;;1482

 +237     ;;21,"68115-0160-90 ")

 +238     ;;1483

 +239     ;;21,"68115-0161-30 ")

 +240     ;;1484

 +241     ;;21,"68115-0161-60 ")

 +242     ;;1485

 +243     ;;21,"68115-0161-90 ")

 +244     ;;1486

 +245     ;;21,"68115-0616-00 ")

 +246     ;;1487

 +247     ;;21,"68115-0622-00 ")

 +248     ;;1488

 +249     ;;21,"68115-0671-30 ")

 +250     ;;1489

 +251     ;;21,"68115-0684-30 ")

 +252     ;;1490

 +253     ;;21,"68115-0709-05 ")

 +254     ;;1491

 +255     ;;21,"68115-0712-60 ")

 +256     ;;1492

 +257     ;;21,"68115-0728-10 ")

 +258     ;;1493

 +259     ;;21,"68115-0729-05 ")

 +260     ;;1494

 +261     ;;21,"68115-0746-10 ")

 +262     ;;1495

 +263     ;;21,"68115-0839-10 ")

 +264     ;;1496

 +265     ;;21,"68115-0840-00 ")

 +266     ;;1497

 +267     ;;21,"68115-0841-30 ")

 +268     ;;1498

 +269     ;;21,"68115-0891-60 ")

 +270     ;;1499

 +271     ;;9002226,1062,.01)

 +272     ;;BUD DIABETES MEDS NDC

 +273     ;;9002226,1062,.02)

 +274     ;;DM MEDS FOR UDS

 +275     ;;9002226,1062,.04)

 +276     ;;n

 +277     ;;9002226,1062,.06)

 +278     ;;@

 +279     ;;9002226,1062,.08)

 +280     ;;@

 +281     ;;9002226,1062,.09)

 +282     ;;@

 +283     ;;9002226,1062,.11)

 +284     ;;@

 +285     ;;9002226,1062,.12)

 +286     ;;@

 +287     ;;9002226,1062,.13)

 +288     ;;1

 +289     ;;9002226,1062,.14)

 +290     ;;@

 +291     ;;9002226,1062,.15)

 +292     ;;@

 +293     ;;9002226,1062,.16)

 +294     ;;@

 +295     ;;9002226,1062,.17)

 +296     ;;@

 +297     ;;9002226,1062,3101)

 +298     ;;@

 +299     ;;9002226.02101,"1062,00002-7510-01 ",.01)

 +300     ;;00002-7510-01