Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BGP8ZY5

BGP8ZY5.m

Go to the documentation of this file.
BGP8ZY5 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 22, 2018;
 ;;18.0;IHS CLINICAL REPORTING;**1**;NOV 21, 2017;Build 62
 ;
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,"65597-0114-30 ")
 ;;1357
 ;;21,"65597-0114-90 ")
 ;;1358
 ;;21,"65597-0115-30 ")
 ;;1359
 ;;21,"65597-0115-90 ")
 ;;1360
 ;;21,"65597-0116-30 ")
 ;;1361
 ;;21,"65597-0116-90 ")
 ;;1362
 ;;21,"65597-0117-30 ")
 ;;1363
 ;;21,"65597-0117-90 ")
 ;;1364
 ;;21,"65597-0118-30 ")
 ;;1365
 ;;21,"65597-0118-90 ")
 ;;1366
 ;;21,"65862-0201-90 ")
 ;;1367
 ;;21,"65862-0201-99 ")
 ;;1368
 ;;21,"65862-0202-30 ")
 ;;1369
 ;;21,"65862-0202-90 ")
 ;;1370
 ;;21,"65862-0202-99 ")
 ;;1371
 ;;21,"65862-0203-30 ")
 ;;1372
 ;;21,"65862-0203-90 ")
 ;;1373
 ;;21,"65862-0203-99 ")
 ;;1374
 ;;21,"65862-0468-30 ")
 ;;1375
 ;;21,"65862-0468-90 ")
 ;;1376
 ;;21,"65862-0468-99 ")
 ;;1377
 ;;21,"65862-0469-30 ")
 ;;1378
 ;;21,"65862-0469-90 ")
 ;;1379
 ;;21,"65862-0469-99 ")
 ;;1380
 ;;21,"65862-0470-30 ")
 ;;1381
 ;;21,"65862-0470-90 ")
 ;;1382
 ;;21,"65862-0470-99 ")
 ;;1383
 ;;21,"65862-0547-90 ")
 ;;1384
 ;;21,"65862-0547-99 ")
 ;;1385
 ;;21,"65862-0548-90 ")
 ;;1386
 ;;21,"65862-0548-99 ")
 ;;1387
 ;;21,"65862-0549-90 ")
 ;;1388
 ;;21,"65862-0549-99 ")
 ;;1389
 ;;21,"65862-0550-05 ")
 ;;1390
 ;;21,"65862-0550-90 ")
 ;;1391
 ;;21,"65862-0551-05 ")
 ;;1392
 ;;21,"65862-0551-90 ")
 ;;1393
 ;;21,"65862-0570-30 ")
 ;;1394
 ;;21,"65862-0571-90 ")
 ;;1395
 ;;21,"65862-0572-90 ")
 ;;1396
 ;;21,"65862-0573-90 ")
 ;;1397
 ;;21,"65862-0637-30 ")
 ;;1398
 ;;21,"65862-0637-90 ")
 ;;1399
 ;;21,"65862-0638-05 ")
 ;;1400
 ;;21,"65862-0638-30 ")
 ;;1401
 ;;21,"65862-0638-90 ")
 ;;1402
 ;;21,"65862-0639-05 ")
 ;;1403
 ;;21,"65862-0639-30 ")
 ;;1404
 ;;21,"65862-0639-90 ")
 ;;1405
 ;;21,"65862-0737-30 ")
 ;;1406
 ;;21,"65862-0738-30 ")
 ;;1407
 ;;21,"65862-0739-30 ")
 ;;1408
 ;;21,"65862-0740-30 ")
 ;;1409
 ;;21,"65862-0741-30 ")
 ;;1410
 ;;21,"65862-0742-30 ")
 ;;1411
 ;;21,"65862-0742-90 ")
 ;;1412
 ;;21,"65862-0743-30 ")
 ;;1413
 ;;21,"65862-0743-90 ")
 ;;1414
 ;;21,"65862-0779-30 ")
 ;;1415
 ;;21,"65862-0779-90 ")
 ;;1416
 ;;21,"65862-0780-30 ")
 ;;1417
 ;;21,"65862-0780-90 ")
 ;;1418
 ;;21,"65862-0781-30 ")
 ;;1419
 ;;21,"65862-0781-90 ")
 ;;1420
 ;;21,"65862-0854-30 ")
 ;;1421
 ;;21,"65862-0855-30 ")
 ;;1422
 ;;21,"65862-0856-30 ")
 ;;1423
 ;;21,"65862-0857-30 ")
 ;;1424
 ;;21,"65862-0867-03 ")
 ;;1425
 ;;21,"65862-0868-03 ")
 ;;1426
 ;;21,"65862-0869-03 ")
 ;;1427
 ;;21,"66105-0503-01 ")
 ;;1428
 ;;21,"66105-0503-03 ")
 ;;1429
 ;;21,"66105-0503-06 ")
 ;;1430
 ;;21,"66105-0503-09 ")
 ;;1431
 ;;21,"66105-0503-15 ")
 ;;1432
 ;;21,"66105-0504-01 ")
 ;;1433
 ;;21,"66105-0504-03 ")
 ;;1434
 ;;21,"66105-0504-06 ")
 ;;1435
 ;;21,"66105-0504-09 ")
 ;;1436
 ;;21,"66105-0504-15 ")
 ;;1437
 ;;21,"66105-0544-09 ")
 ;;1438
 ;;21,"66105-0545-01 ")
 ;;1439
 ;;21,"66105-0545-03 ")
 ;;1440
 ;;21,"66105-0545-06 ")
 ;;1441
 ;;21,"66105-0545-09 ")
 ;;1442
 ;;21,"66105-0545-10 ")
 ;;1443
 ;;21,"66105-0552-10 ")
 ;;1444
 ;;21,"66105-0553-03 ")
 ;;1445
 ;;21,"66105-0553-10 ")
 ;;1446
 ;;21,"66105-0663-03 ")
 ;;1447
 ;;21,"66105-0669-03 ")
 ;;1448
 ;;21,"66105-0842-03 ")
 ;;1449
 ;;21,"66105-0842-06 ")
 ;;1450
 ;;21,"66105-0842-09 ")
 ;;1451
 ;;21,"66105-0842-10 ")
 ;;1452
 ;;21,"66105-0842-28 ")
 ;;1453
 ;;21,"66336-0169-30 ")
 ;;1454
 ;;21,"67544-0382-30 ")
 ;;1455
 ;;21,"67544-0400-45 ")
 ;;1456
 ;;21,"67877-0445-30 ")
 ;;1457
 ;;21,"67877-0447-30 ")
 ;;1458
 ;;21,"67877-0447-90 ")
 ;;1459
 ;;21,"67877-0482-84 ")
 ;;1460
 ;;21,"67877-0483-84 ")
 ;;1461
 ;;21,"67877-0484-84 ")
 ;;1462
 ;;21,"68071-0785-30 ")
 ;;1463
 ;;21,"68071-0785-60 ")
 ;;1464
 ;;21,"68071-0786-30 ")
 ;;1465
 ;;21,"68071-0786-60 ")
 ;;1466
 ;;21,"68084-0007-11 ")
 ;;1467
 ;;21,"68084-0007-21 ")
 ;;1468
 ;;21,"68084-0217-21 ")
 ;;1469
 ;;21,"68084-0346-01 ")
 ;;1470
 ;;21,"68084-0346-11 ")
 ;;1471
 ;;21,"68084-0347-01 ")
 ;;1472
 ;;21,"68084-0347-11 ")
 ;;1473
 ;;21,"68084-0348-01 ")
 ;;1474
 ;;21,"68084-0348-11 ")
 ;;1475
 ;;21,"68084-0644-21 ")
 ;;1476
 ;;21,"68084-0749-21 ")
 ;;1477
 ;;21,"68084-0804-01 ")
 ;;1478
 ;;21,"68084-0817-25 ")
 ;;1479
 ;;21,"68084-0822-01 ")
 ;;1480
 ;;21,"68084-0834-25 ")
 ;;1481
 ;;21,"68084-0877-25 ")
 ;;1482
 ;;21,"68084-0877-95 ")
 ;;1483
 ;;21,"68084-0926-11 ")
 ;;1484
 ;;21,"68084-0926-21 ")
 ;;1485
 ;;21,"68084-0959-21 ")
 ;;1486
 ;;21,"68115-0669-00 ")
 ;;1487
 ;;21,"68115-0703-30 ")
 ;;1488
 ;;21,"68115-0854-00 ")
 ;;1489
 ;;21,"68180-0101-02 ")
 ;;1490
 ;;21,"68180-0101-09 ")
 ;;1491
 ;;21,"68180-0102-02 ")
 ;;1492
 ;;21,"68180-0102-09 ")
 ;;1493
 ;;21,"68180-0103-02 ")
 ;;1494
 ;;21,"68180-0103-09 ")
 ;;1495
 ;;21,"68180-0104-02 ")
 ;;1496
 ;;21,"68180-0104-09 ")
 ;;1497
 ;;21,"68180-0105-02 ")
 ;;1498
 ;;21,"68180-0105-09 ")
 ;;1499
 ;;21,"68180-0193-06 ")
 ;;1500
 ;;21,"68180-0194-06 ")
 ;;1501
 ;;21,"68180-0195-06 ")
 ;;1502
 ;;21,"68180-0196-06 ")
 ;;1503
 ;;21,"68180-0197-06 ")
 ;;1504
 ;;21,"68180-0198-06 ")
 ;;1505
 ;;21,"68180-0199-06 ")
 ;;1506
 ;;21,"68180-0210-03 ")
 ;;1507
 ;;21,"68180-0210-09 ")
 ;;1508
 ;;21,"68180-0211-03 ")
 ;;1509
 ;;21,"68180-0211-06 ")
 ;;1510
 ;;21,"68180-0211-09 ")
 ;;1511
 ;;21,"68180-0212-03 ")
 ;;1512
 ;;21,"68180-0212-06 ")
 ;;1513
 ;;21,"68180-0212-09 ")
 ;;1514
 ;;21,"68180-0215-03 ")
 ;;1515
 ;;21,"68180-0215-06 ")
 ;;1516
 ;;21,"68180-0215-09 ")
 ;;1517
 ;;21,"68180-0216-03 ")
 ;;1518
 ;;21,"68180-0216-06 ")
 ;;1519
 ;;21,"68180-0216-09 ")
 ;;1520
 ;;21,"68180-0217-03 ")
 ;;1521
 ;;21,"68180-0217-06 ")
 ;;1522
 ;;21,"68180-0217-09 ")
 ;;1523
 ;;21,"68180-0276-01 ")
 ;;1524
 ;;21,"68180-0276-06 ")
 ;;1525
 ;;21,"68180-0277-03 ")
 ;;1526
 ;;21,"68180-0277-09 ")
 ;;1527
 ;;21,"68180-0278-03 ")
 ;;1528
 ;;21,"68180-0278-09 ")
 ;;1529
 ;;21,"68180-0279-02 ")
 ;;1530
 ;;21,"68180-0279-09 ")
 ;;1531
 ;;21,"68180-0307-02 ")
 ;;1532
 ;;21,"68180-0307-09 ")
 ;;1533
 ;;21,"68180-0308-02 ")
 ;;1534
 ;;21,"68180-0308-09 ")
 ;;1535
 ;;21,"68180-0309-02 ")
 ;;1536
 ;;21,"68180-0309-06 ")
 ;;1537
 ;;21,"68180-0309-09 ")
 ;;1538
 ;;21,"68180-0410-06 ")
 ;;1539
 ;;21,"68180-0410-09 ")
 ;;1540
 ;;21,"68180-0411-06 ")
 ;;1541
 ;;21,"68180-0411-09 ")
 ;;1542
 ;;21,"68180-0412-06 ")
 ;;1543
 ;;21,"68180-0412-09 ")
 ;;1544
 ;;21,"68180-0413-06 ")
 ;;1545
 ;;21,"68180-0413-09 ")
 ;;1546
 ;;21,"68180-0414-06 ")
 ;;1547
 ;;21,"68180-0414-09 ")
 ;;1548
 ;;21,"68180-0764-06 ")
 ;;1549
 ;;21,"68180-0765-06 ")
 ;;1550
 ;;21,"68180-0766-06 ")
 ;;1551
 ;;21,"68180-0767-06 ")
 ;;1552
 ;;21,"68180-0771-06 ")
 ;;1553
 ;;21,"68180-0771-09 ")
 ;;1554
 ;;21,"68180-0772-06 ")
 ;;1555
 ;;21,"68180-0772-09 ")
 ;;1556
 ;;21,"68180-0773-06 ")
 ;;1557
 ;;21,"68180-0773-09 ")
 ;;1558
 ;;21,"68180-0774-06 ")
 ;;1559
 ;;21,"68180-0774-09 ")
 ;;1560
 ;;21,"68180-0775-06 ")
 ;;1561
 ;;21,"68180-0775-09 ")
 ;;1562
 ;;21,"68382-0135-01 ")
 ;;1563
 ;;21,"68382-0135-06 ")
 ;;1564
 ;;21,"68382-0135-10 ")
 ;;1565
 ;;21,"68382-0135-16 ")
 ;;1566
 ;;21,"68382-0136-01 ")
 ;;1567
 ;;21,"68382-0136-06 ")
 ;;1568
 ;;21,"68382-0136-10 ")
 ;;1569
 ;;21,"68382-0136-16 ")
 ;;1570
 ;;21,"68382-0137-01 ")
 ;;1571
 ;;21,"68382-0137-06 ")
 ;;1572
 ;;21,"68382-0137-10 ")
 ;;1573
 ;;21,"68382-0137-16 ")
 ;;1574
 ;;21,"68382-0142-06 ")
 ;;1575
 ;;21,"68382-0142-10 ")
 ;;1576
 ;;21,"68382-0142-16 ")
 ;;1577
 ;;21,"68382-0143-06 ")
 ;;1578
 ;;21,"68382-0143-10 ")
 ;;1579
 ;;21,"68382-0143-16 ")
 ;;1580
 ;;21,"68382-0471-78 ")
 ;;1581
 ;;21,"68382-0472-78 ")
 ;;1582
 ;;21,"68382-0473-78 ")
 ;;1583
 ;;21,"68382-0643-06 ")
 ;;1584
 ;;21,"68382-0644-06 ")
 ;;1585
 ;;21,"68382-0644-16 ")
 ;;1586
 ;;21,"68382-0645-06 ")
 ;;1587
 ;;21,"68382-0645-16 ")
 ;;1588
 ;;21,"68462-0199-11 ")
 ;;1589
 ;;21,"68462-0199-13 ")
 ;;1590
 ;;21,"68462-0200-11 ")
 ;;1591
 ;;21,"68462-0200-13 ")
 ;;1592
 ;;21,"68462-0201-11 ")
 ;;1593
 ;;21,"68462-0201-13 ")
 ;;1594
 ;;21,"68462-0436-30 ")
 ;;1595
 ;;21,"68462-0437-30 ")
 ;;1596
 ;;21,"68462-0437-90 ")
 ;;1597
 ;;21,"68462-0438-30 ")
 ;;1598
 ;;21,"68462-0438-90 ")
 ;;1599
 ;;21,"68645-0404-70 ")
 ;;1600
 ;;21,"68645-0405-70 ")
 ;;1601
 ;;21,"68645-0406-70 ")
 ;;1602
 ;;21,"68645-0407-54 ")
 ;;1603
 ;;21,"68645-0407-70 ")
 ;;1604
 ;;21,"68645-0408-70 ")
 ;;1605
 ;;21,"68645-0409-54 ")
 ;;1606
 ;;21,"68645-0409-70 ")
 ;;1607
 ;;21,"68645-0410-70 ")
 ;;1608
 ;;21,"68645-0411-54 ")
 ;;1609
 ;;21,"68645-0411-70 ")
 ;;1610
 ;;21,"68645-0486-54 ")
 ;;1611
 ;;21,"68645-0494-54 ")
 ;;1612
 ;;21,"68645-0524-70 ")
 ;;1613
 ;;21,"68645-0525-70 ")
 ;;1614
 ;;21,"68645-0526-70 ")
 ;;1615
 ;;21,"69543-0140-11 ")
 ;;1616
 ;;21,"69543-0140-90 ")
 ;;1617
 ;;21,"69543-0141-11 ")
 ;;1618
 ;;21,"69543-0141-30 ")
 ;;1619
 ;;21,"69543-0141-90 ")
 ;;1620
 ;;21,"69543-0142-11 ")
 ;;1621
 ;;21,"69543-0142-30 ")
 ;;1622
 ;;21,"69543-0142-90 ")
 ;;1623
 ;;21,"76439-0140-11 ")
 ;;1624
 ;;21,"76439-0140-90 ")
 ;;1625
 ;;21,"76439-0141-11 ")
 ;;1626
 ;;21,"76439-0141-30 ")
 ;;1627
 ;;21,"76439-0141-90 ")
 ;;1628
 ;;21,"76439-0142-11 ")
 ;;1629
 ;;21,"76439-0142-30 ")
 ;;1630
 ;;21,"76439-0142-90 ")
 ;;1631
 ;;9002226,873,.01)
 ;;BGP HEDIS ARB NDC
 ;;9002226,873,.02)
 ;;@
 ;;9002226,873,.04)
 ;;n
 ;;9002226,873,.06)
 ;;@
 ;;9002226,873,.08)
 ;;@
 ;;9002226,873,.09)
 ;;3180122
 ;;9002226,873,.11)
 ;;@
 ;;9002226,873,.12)
 ;;@
 ;;9002226,873,.13)
 ;;1
 ;;9002226,873,.14)
 ;;@
 ;;9002226,873,.15)
 ;;50.67
 ;;9002226,873,.16)
 ;;@
 ;;9002226,873,.17)
 ;;@
 ;;9002226,873,.22)
 ;;1
 ;;9002226,873,3101)
 ;;@
 ;;9002226.02101,"873,00006-0717-31 ",.01)
 ;;00006-0717-31
 ;;9002226.02101,"873,00006-0717-31 ",.02)
 ;;00006-0717-31
 ;;9002226.02101,"873,00006-0717-54 ",.01)
 ;;00006-0717-54
 ;;9002226.02101,"873,00006-0717-54 ",.02)
 ;;00006-0717-54
 ;;9002226.02101,"873,00006-0717-82 ",.01)
 ;;00006-0717-82
 ;;9002226.02101,"873,00006-0717-82 ",.02)
 ;;00006-0717-82
 ;;9002226.02101,"873,00006-0745-31 ",.01)
 ;;00006-0745-31
 ;;9002226.02101,"873,00006-0745-31 ",.02)
 ;;00006-0745-31
 ;;9002226.02101,"873,00006-0745-54 ",.01)
 ;;00006-0745-54
 ;;9002226.02101,"873,00006-0745-54 ",.02)
 ;;00006-0745-54
 ;;9002226.02101,"873,00006-0745-82 ",.01)
 ;;00006-0745-82
 ;;9002226.02101,"873,00006-0745-82 ",.02)
 ;;00006-0745-82
 ;;9002226.02101,"873,00006-0747-31 ",.01)
 ;;00006-0747-31
 ;;9002226.02101,"873,00006-0747-31 ",.02)
 ;;00006-0747-31
 ;;9002226.02101,"873,00006-0747-54 ",.01)
 ;;00006-0747-54
 ;;9002226.02101,"873,00006-0747-54 ",.02)
 ;;00006-0747-54
 ;;9002226.02101,"873,00006-0747-82 ",.01)
 ;;00006-0747-82
 ;;9002226.02101,"873,00006-0747-82 ",.02)
 ;;00006-0747-82
 ;;9002226.02101,"873,00006-0951-54 ",.01)
 ;;00006-0951-54
 ;;9002226.02101,"873,00006-0951-54 ",.02)
 ;;00006-0951-54
 ;;9002226.02101,"873,00006-0951-82 ",.01)
 ;;00006-0951-82
 ;;9002226.02101,"873,00006-0951-82 ",.02)
 ;;00006-0951-82
 ;;9002226.02101,"873,00006-0952-31 ",.01)
 ;;00006-0952-31
 ;;9002226.02101,"873,00006-0952-31 ",.02)
 ;;00006-0952-31
 ;;9002226.02101,"873,00006-0952-54 ",.01)
 ;;00006-0952-54
 ;;9002226.02101,"873,00006-0952-54 ",.02)
 ;;00006-0952-54