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

BGP7GXMD.m

Go to the documentation of this file.
BGP7GXMD ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON SEP 25, 2006 ;
 ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007
 ;
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,"52493-0282-60 ")
 ;;5
 ;;21,"52493-0283-30 ")
 ;;619
 ;;21,"52493-0284-04 ")
 ;;165
 ;;21,"52493-0284-08 ")
 ;;166
 ;;21,"52493-0289-30 ")
 ;;597
 ;;21,"52544-0419-16 ")
 ;;1581
 ;;21,"52555-0081-01 ")
 ;;1582
 ;;21,"52555-0082-01 ")
 ;;1583
 ;;21,"52555-0491-01 ")
 ;;1584
 ;;21,"52555-0491-05 ")
 ;;1585
 ;;21,"52555-0492-01 ")
 ;;1586
 ;;21,"52555-0492-05 ")
 ;;1587
 ;;21,"52555-0581-01 ")
 ;;1588
 ;;21,"52555-0581-05 ")
 ;;1589
 ;;21,"52555-0582-01 ")
 ;;1590
 ;;21,"52555-0582-05 ")
 ;;1591
 ;;21,"52959-0153-03 ")
 ;;1592
 ;;21,"52959-0153-06 ")
 ;;1593
 ;;21,"52959-0153-09 ")
 ;;1594
 ;;21,"52959-0279-30 ")
 ;;1025
 ;;21,"52959-0386-03 ")
 ;;1595
 ;;21,"52959-0425-20 ")
 ;;1596
 ;;21,"52959-0425-30 ")
 ;;1597
 ;;21,"52959-1396-03 ")
 ;;1598
 ;;21,"52959-1411-03 ")
 ;;1599
 ;;21,"52959-1411-06 ")
 ;;1600
 ;;21,"52959-1411-09 ")
 ;;1601
 ;;21,"52959-1411-16 ")
 ;;1602
 ;;21,"52999-0358-01 ")
 ;;84
 ;;21,"53265-0379-10 ")
 ;;661
 ;;21,"53265-0379-50 ")
 ;;85
 ;;21,"53265-0380-10 ")
 ;;1035
 ;;21,"53265-0380-50 ")
 ;;1036
 ;;21,"53265-0381-10 ")
 ;;699
 ;;21,"53265-0382-10 ")
 ;;1029
 ;;21,"53489-0176-01 ")
 ;;1603
 ;;21,"53489-0176-05 ")
 ;;1604
 ;;21,"53489-0177-01 ")
 ;;1605
 ;;21,"53489-0177-05 ")
 ;;1606
 ;;21,"53506-0037-04 ")
 ;;1607
 ;;21,"53506-0905-30 ")
 ;;1608
 ;;21,"53506-0909-30 ")
 ;;1609
 ;;21,"53506-0967-04 ")
 ;;1610
 ;;21,"53506-0970-30 ")
 ;;662
 ;;21,"53506-0970-60 ")
 ;;86
 ;;21,"53506-0971-30 ")
 ;;6
 ;;21,"53506-0971-60 ")
 ;;7
 ;;21,"53506-0972-30 ")
 ;;1611
 ;;21,"53506-0973-30 ")
 ;;302
 ;;21,"53506-0974-30 ")
 ;;620
 ;;21,"53506-0975-24 ")
 ;;1612
 ;;21,"53506-0976-04 ")
 ;;1613
 ;;21,"53506-0976-08 ")
 ;;1614
 ;;21,"53506-0977-30 ")
 ;;1615
 ;;21,"53506-0978-30 ")
 ;;598
 ;;21,"53506-0981-04 ")
 ;;1616
 ;;21,"53506-0983-04 ")
 ;;1617
 ;;21,"53506-0983-06 ")
 ;;1618
 ;;21,"53506-0983-08 ")
 ;;1619
 ;;21,"53506-0984-20 ")
 ;;1620
 ;;21,"53506-0988-30 ")
 ;;461
 ;;21,"53506-0988-60 ")
 ;;50
 ;;21,"53506-0989-30 ")
 ;;1621
 ;;21,"53506-0990-04 ")
 ;;442
 ;;21,"53506-0991-04 ")
 ;;1622
 ;;21,"53506-0993-30 ")
 ;;398
 ;;21,"53633-0204-01 ")
 ;;193
 ;;21,"53633-0204-10 ")
 ;;416
 ;;21,"53633-0204-11 ")
 ;;194
 ;;21,"53633-0205-01 ")
 ;;489
 ;;21,"53633-0205-10 ")
 ;;367
 ;;21,"53633-0205-11 ")
 ;;368
 ;;21,"53978-5049-09 ")
 ;;8
 ;;21,"53978-5050-09 ")
 ;;87
 ;;21,"54092-0067-01 ")
 ;;1040
 ;;21,"54092-0067-10 ")
 ;;1041
 ;;21,"54092-0067-52 ")
 ;;1042
 ;;21,"54092-0068-01 ")
 ;;1623
 ;;21,"54092-0069-01 ")
 ;;1034
 ;;21,"54124-0004-40 ")
 ;;136
 ;;21,"54124-0004-60 ")
 ;;137
 ;;21,"54124-0057-50 ")
 ;;1624
 ;;21,"54124-0057-60 ")
 ;;1625
 ;;21,"54124-0073-01 ")
 ;;1626
 ;;21,"54124-0073-04 ")
 ;;1627
 ;;21,"54124-0073-06 ")
 ;;1628
 ;;21,"54124-0213-40 ")
 ;;1629
 ;;21,"54124-0300-60 ")
 ;;51
 ;;21,"54124-0315-04 ")
 ;;1630
 ;;21,"54124-0315-06 ")
 ;;1631
 ;;21,"54124-0341-20 ")
 ;;1632
 ;;21,"54124-0341-50 ")
 ;;1633
 ;;21,"54124-0354-50 ")
 ;;578
 ;;21,"54124-0374-30 ")
 ;;1634
 ;;21,"54124-0486-30 ")
 ;;9
 ;;21,"54124-0495-60 ")
 ;;1635
 ;;21,"54124-0519-30 ")
 ;;88
 ;;21,"54124-0519-60 ")
 ;;89
 ;;21,"54124-0582-02 ")
 ;;90
 ;;21,"54124-0582-30 ")
 ;;663
 ;;21,"54124-0582-60 ")
 ;;664
 ;;21,"54124-0583-20 ")
 ;;10
 ;;21,"54124-0583-50 ")
 ;;399
 ;;21,"54124-0583-60 ")
 ;;11
 ;;21,"54124-0676-28 ")
 ;;390
 ;;21,"54124-0706-60 ")
 ;;700
 ;;21,"54124-0820-60 ")
 ;;341
 ;;21,"54124-0915-60 ")
 ;;665
 ;;21,"54124-0923-12 ")
 ;;300
 ;;21,"54124-0949-60 ")
 ;;342
 ;;21,"54124-0977-30 ")
 ;;303
 ;;21,"54124-0977-60 ")
 ;;580
 ;;21,"54124-0978-04 ")
 ;;719
 ;;21,"54274-0076-10 ")
 ;;599
 ;;21,"54274-0123-10 ")
 ;;1636
 ;;21,"54274-0167-10 ")
 ;;400
 ;;21,"54274-0167-30 ")
 ;;12
 ;;21,"54274-0167-50 ")
 ;;13
 ;;21,"54274-0168-10 ")
 ;;91
 ;;21,"54274-0168-30 ")
 ;;666
 ;;21,"54274-0168-50 ")
 ;;92
 ;;21,"54274-0192-10 ")
 ;;600
 ;;21,"54274-0214-10 ")
 ;;1637
 ;;21,"54274-0214-30 ")
 ;;1638
 ;;21,"54274-0215-10 ")
 ;;1639
 ;;21,"54274-0215-30 ")
 ;;1640
 ;;21,"54274-0389-16 ")
 ;;1641
 ;;21,"54274-0592-16 ")
 ;;720
 ;;21,"54274-0592-38 ")
 ;;721
 ;;21,"54274-0623-16 ")
 ;;532
 ;;21,"54274-0649-10 ")
 ;;1642
 ;;21,"54274-0650-10 ")
 ;;1643
 ;;21,"54348-0008-04 ")
 ;;1644
 ;;21,"54348-0155-10 ")
 ;;621
 ;;21,"54348-0156-14 ")
 ;;52
 ;;21,"54348-0671-30 ")
 ;;1645
 ;;21,"54569-0044-00 ")
 ;;529
 ;;21,"54569-0046-00 ")
 ;;1646
 ;;21,"54569-0050-00 ")
 ;;1647
 ;;21,"54569-0050-01 ")
 ;;1648
 ;;21,"54569-0050-02 ")
 ;;1649
 ;;21,"54569-0051-00 ")
 ;;1650
 ;;21,"54569-0051-01 ")
 ;;1651
 ;;21,"54569-0051-02 ")
 ;;1652
 ;;21,"54569-0054-00 ")
 ;;667
 ;;21,"54569-0055-00 ")
 ;;93
 ;;21,"54569-0055-01 ")
 ;;94
 ;;21,"54569-0056-00 ")
 ;;581
 ;;21,"54569-0056-01 ")
 ;;582
 ;;21,"54569-0056-02 ")
 ;;304
 ;;21,"54569-0056-03 ")
 ;;583
 ;;21,"54569-0056-04 ")
 ;;305
 ;;21,"54569-0056-05 ")
 ;;306
 ;;21,"54569-0057-00 ")
 ;;622
 ;;21,"54569-0057-01 ")
 ;;343
 ;;21,"54569-0057-02 ")
 ;;623
 ;;21,"54569-0057-03 ")
 ;;624
 ;;21,"54569-0057-04 ")
 ;;625
 ;;21,"54569-0058-00 ")
 ;;1653
 ;;21,"54569-0058-01 ")
 ;;1654
 ;;21,"54569-0058-02 ")
 ;;1655
 ;;21,"54569-0058-03 ")
 ;;1656
 ;;21,"54569-0058-04 ")
 ;;1657
 ;;21,"54569-0059-00 ")
 ;;462
 ;;21,"54569-0059-01 ")
 ;;53
 ;;21,"54569-0059-02 ")
 ;;54
 ;;21,"54569-0059-03 ")
 ;;463
 ;;21,"54569-0061-00 ")
 ;;14
 ;;21,"54569-0061-01 ")
 ;;401
 ;;21,"54569-0061-02 ")
 ;;15
 ;;21,"54569-0061-03 ")
 ;;16
 ;;21,"54569-0061-04 ")
 ;;402
 ;;21,"54569-0061-05 ")
 ;;403
 ;;21,"54569-0062-00 ")
 ;;668
 ;;21,"54569-0062-01 ")
 ;;95
 ;;21,"54569-0062-02 ")
 ;;1050
 ;;21,"54569-0062-03 ")
 ;;96
 ;;21,"54569-0062-04 ")
 ;;669
 ;;21,"54569-0065-00 ")
 ;;97
 ;;21,"54569-0065-01 ")
 ;;1043
 ;;21,"54569-0065-02 ")
 ;;1044
 ;;21,"54569-0065-03 ")
 ;;98
 ;;21,"54569-0065-04 ")
 ;;670
 ;;21,"54569-0065-05 ")
 ;;1045
 ;;21,"54569-0068-00 ")
 ;;1658
 ;;21,"54569-0068-01 ")
 ;;1659
 ;;21,"54569-0068-02 ")
 ;;1660
 ;;21,"54569-0069-00 ")
 ;;1661
 ;;21,"54569-0069-01 ")
 ;;1662
 ;;21,"54569-0307-00 ")
 ;;138
 ;;21,"54569-0307-01 ")
 ;;697
 ;;21,"54569-0307-02 ")
 ;;698
 ;;21,"54569-0307-03 ")
 ;;139
 ;;21,"54569-0315-00 ")
 ;;460
 ;;21,"54569-0316-00 ")
 ;;99
 ;;21,"54569-0318-00 ")
 ;;325
 ;;21,"54569-0318-01 ")
 ;;1078
 ;;21,"54569-0318-02 ")
 ;;326
 ;;21,"54569-0345-00 ")
 ;;1663
 ;;21,"54569-0345-01 ")
 ;;1664
 ;;21,"54569-0345-02 ")
 ;;1665
 ;;21,"54569-0387-00 ")
 ;;1666
 ;;21,"54569-0387-01 ")
 ;;1667
 ;;21,"54569-0387-02 ")
 ;;1668
 ;;21,"54569-0387-03 ")
 ;;1669
 ;;21,"54569-0423-00 ")
 ;;1670
 ;;21,"54569-0423-01 ")
 ;;1671
 ;;21,"54569-0423-02 ")
 ;;1672
 ;;21,"54569-0423-03 ")
 ;;1673
 ;;21,"54569-1290-00 ")
 ;;299
 ;;21,"54569-1300-00 ")
 ;;1674
 ;;21,"54569-1307-00 ")
 ;;1675
 ;;21,"54569-1347-00 ")
 ;;1676
 ;;21,"54569-1608-00 ")
 ;;167
 ;;21,"54569-1612-00 ")
 ;;142
 ;;21,"54569-1612-01 ")
 ;;701
 ;;21,"54569-1612-02 ")
 ;;702
 ;;21,"54569-1664-00 ")
 ;;589
 ;;21,"54569-1664-01 ")
 ;;590
 ;;21,"54569-1665-00 ")
 ;;634
 ;;21,"54569-1665-01 ")
 ;;635
 ;;21,"54569-1666-00 ")
 ;;1061
 ;;21,"54569-1666-01 ")
 ;;1062
 ;;21,"54569-1667-00 ")
 ;;44
 ;;21,"54569-1667-01 ")
 ;;45
 ;;21,"54569-1667-02 ")
 ;;46
 ;;21,"54569-1745-01 ")
 ;;494
 ;;21,"54569-1804-00 ")
 ;;301
 ;;21,"54569-1888-00 ")
 ;;722
 ;;21,"54569-1965-01 ")
 ;;548
 ;;21,"54569-1967-00 ")
 ;;1677
 ;;21,"54569-1967-01 ")
 ;;1678
 ;;21,"54569-1967-02 ")
 ;;1679
 ;;21,"54569-1968-00 ")
 ;;1680
 ;;21,"54569-1968-01 ")
 ;;1681
 ;;21,"54569-2016-00 ")
 ;;100
 ;;21,"54569-2032-00 ")
 ;;1093
 ;;21,"54569-2032-01 ")
 ;;601
 ;;21,"54569-2032-02 ")
 ;;602
 ;;21,"54569-2032-03 ")
 ;;327
 ;;21,"54569-2308-00 ")
 ;;1682
 ;;21,"54569-2429-00 ")
 ;;1683
 ;;21,"54569-2453-00 ")
 ;;1684
 ;;21,"54569-2466-00 ")
 ;;490
 ;;21,"54569-2466-01 ")
 ;;491
 ;;21,"54569-2466-02 ")
 ;;369
 ;;21,"54569-2466-03 ")
 ;;492
 ;;21,"54569-2481-00 ")
 ;;328
 ;;21,"54569-2482-00 ")
 ;;1054
 ;;21,"54569-2482-01 ")
 ;;1055
 ;;21,"54569-2482-02 ")
 ;;404
 ;;21,"54569-2482-03 ")
 ;;405
 ;;21,"54569-2482-04 ")
 ;;17
 ;;21,"54569-2482-05 ")
 ;;1056
 ;;21,"54569-2482-06 ")
 ;;406
 ;;21,"54569-2482-07 ")
 ;;407
 ;;21,"54569-2482-08 ")
 ;;18
 ;;21,"54569-2483-00 ")
 ;;1057
 ;;21,"54569-2483-01 ")
 ;;1058
 ;;21,"54569-2483-02 ")
 ;;1059
 ;;21,"54569-2483-03 ")
 ;;1060
 ;;21,"54569-2483-04 ")
 ;;101
 ;;21,"54569-2555-00 ")
 ;;497
 ;;21,"54569-2672-00 ")
 ;;1685
 ;;21,"54569-2673-00 ")
 ;;626
 ;;21,"54569-2673-01 ")
 ;;344
 ;;21,"54569-2715-00 ")
 ;;195
 ;;21,"54569-2715-01 ")
 ;;196
 ;;21,"54569-2715-02 ")
 ;;197
 ;;21,"54569-2742-00 ")
 ;;1686
 ;;21,"54569-2742-01 ")
 ;;1687
 ;;21,"54569-2742-02 ")
 ;;1688
 ;;21,"54569-2743-00 ")
 ;;1689
 ;;21,"54569-2743-01 ")
 ;;1690
 ;;21,"54569-2743-02 ")
 ;;1691
 ;;21,"54569-2744-00 ")
 ;;1692
 ;;21,"54569-2745-00 ")
 ;;1693
 ;;21,"54569-2754-00 ")
 ;;1694
 ;;21,"54569-2754-01 ")
 ;;1695
 ;;21,"54569-2755-00 ")
 ;;1696
 ;;21,"54569-2860-00 ")
 ;;443
 ;;21,"54569-2874-00 ")
 ;;1697
 ;;21,"54569-2874-01 ")
 ;;1698
 ;;21,"54569-2874-02 ")
 ;;1699
 ;;21,"54569-2905-00 ")
 ;;671
 ;;21,"54569-2964-00 ")
 ;;39
 ;;21,"54569-3054-00 ")
 ;;357
 ;;21,"54569-3054-01 ")
 ;;1700
 ;;21,"54569-3113-00 ")
 ;;168
 ;;21,"54569-3113-01 ")
 ;;169
 ;;21,"54569-3113-02 ")
 ;;723
 ;;21,"54569-3409-00 ")
 ;;1701
 ;;21,"54569-3409-01 ")
 ;;1702
 ;;21,"54569-3409-02 ")
 ;;1703
 ;;21,"54569-3409-03 ")
 ;;1704
 ;;21,"54569-3700-00 ")
 ;;1705
 ;;21,"54569-3700-01 ")
 ;;1706
 ;;21,"54569-3700-02 ")
 ;;1707
 ;;21,"54569-4001-00 ")
 ;;1708
 ;;21,"54569-4001-01 ")
 ;;1709
 ;;21,"54569-4001-02 ")
 ;;1710
 ;;21,"54569-4001-03 ")
 ;;1711
 ;;21,"54569-4172-00 ")
 ;;1712
 ;;21,"54569-4172-01 ")
 ;;1713
 ;;21,"54569-4178-00 ")
 ;;1714
 ;;21,"54569-4178-01 ")
 ;;1715
 ;;21,"54569-4279-00 ")
 ;;1051
 ;;21,"54569-4899-00 ")
 ;;1716
 ;;21,"54569-7005-00 ")
 ;;1717
 ;;21,"54569-7126-00 ")
 ;;1718
 ;;21,"54569-7131-00 ")
 ;;1719
 ;;21,"54569-7133-00 ")
 ;;1720
 ;;21,"54569-7134-00 ")
 ;;1721
 ;;21,"54569-7153-00 ")
 ;;1722
 ;;21,"54569-8580-00 ")
 ;;1052
 ;;21,"54569-8586-00 ")
 ;;1053
 ;;21,"54569-8589-00 ")
 ;;1723
 ;;21,"54807-0230-16 ")
 ;;170
 ;;21,"54807-0811-01 ")
 ;;329
 ;;21,"54807-0812-01 ")
 ;;418
 ;;21,"54807-0813-01 ")
 ;;672
 ;;21,"54836-0507-80 ")
 ;;1724
 ;;21,"54838-0507-80 ")
 ;;1725
 ;;21,"54838-0513-80 ")
 ;;1092
 ;;21,"54839-0513-80 ")
 ;;533
 ;;21,"54868-0028-00 ")
 ;;1082
 ;;21,"54868-0028-01 ")
 ;;1083
 ;;21,"54868-0028-02 ")
 ;;1084
 ;;21,"54868-0028-03 ")
 ;;1085
 ;;21,"54868-0028-05 ")
 ;;1086
 ;;21,"54868-0029-00 ")
 ;;1087
 ;;21,"54868-0029-02 ")
 ;;1088
 ;;21,"54868-0029-03 ")
 ;;1089
 ;;21,"54868-0029-05 ")
 ;;1090
 ;;21,"54868-0029-06 ")
 ;;1091
 ;;21,"54868-0307-01 ")
 ;;1726
 ;;21,"54868-0308-01 ")
 ;;1727
 ;;21,"54868-1073-02 ")
 ;;1728
 ;;21,"54868-1073-03 ")
 ;;1729
 ;;21,"54868-1073-04 ")
 ;;1730
 ;;21,"54868-1073-05 ")
 ;;1731
 ;;21,"54868-1073-06 ")
 ;;1732
 ;;21,"54868-1074-03 ")
 ;;1733
 ;;21,"54868-1074-05 ")
 ;;1734
 ;;21,"54868-1074-06 ")
 ;;1735
 ;;21,"54868-1074-07 ")
 ;;1736
 ;;21,"54868-1438-00 ")
 ;;1048
 ;;21,"54868-1438-01 ")
 ;;1049
 ;;21,"54868-1438-02 ")
 ;;140
 ;;21,"54868-2887-00 ")
 ;;1737
 ;;21,"54977-0294-99 ")
 ;;1738
 ;;21,"54977-0295-99 ")
 ;;584
 ;;21,"54977-0319-60 ")
 ;;603
 ;;21,"54977-0319-99 ")
 ;;604
 ;;21,"54977-0320-60 ")
 ;;419
 ;;21,"54977-0320-99 ")
 ;;19
 ;;21,"54977-0321-60 ")
 ;;102
 ;;21,"54977-0321-99 ")
 ;;673
 ;;21,"54977-0353-99 ")
 ;;1739
 ;;21,"54977-0401-16 ")
 ;;1740
 ;;21,"54977-0458-16 ")
 ;;561
 ;;21,"54977-0465-08 ")
 ;;205
 ;;21,"55045-1312-03 ")
 ;;103
 ;;21,"55045-1312-07 ")
 ;;674
 ;;21,"55045-1343-02 ")
 ;;1741
 ;;21,"55045-1343-08 ")
 ;;1742
 ;;21,"55045-1452-02 ")
 ;;420
 ;;21,"55045-1452-03 ")
 ;;20
 ;;21,"55045-1452-08 ")
 ;;421
 ;;21,"55045-1452-09 ")
 ;;21
 ;;21,"55045-1638-01 ")
 ;;1743
 ;;21,"55045-1639-01 ")
 ;;307
 ;;21,"55045-1732-05 ")
 ;;1744
 ;;21,"55045-1748-02 ")
 ;;1745
 ;;21,"55045-1748-03 ")
 ;;1746
 ;;21,"55045-1878-09 ")
 ;;1747
 ;;21,"55053-0522-01 ")
 ;;1063
 ;;21,"55081-0029-00 ")
 ;;417
 ;;21,"55081-0530-00 ")
 ;;605
 ;;21,"55081-0530-01 ")
 ;;606
 ;;21,"55081-0531-00 ")
 ;;22
 ;;21,"55081-0531-01 ")
 ;;23
 ;;21,"55081-0531-02 ")
 ;;422
 ;;21,"55081-0531-03 ")
 ;;24
 ;;21,"55081-0531-04 ")
 ;;423
 ;;21,"55081-0532-00 ")
 ;;104
 ;;21,"55081-0532-01 ")
 ;;675
 ;;21,"55081-0532-02 ")
 ;;676
 ;;21,"55081-0532-03 ")
 ;;677
 ;;21,"55081-0955-00 ")
 ;;1748
 ;;21,"55081-0955-01 ")
 ;;1749
 ;;21,"55081-1176-00 ")
 ;;352