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

BGPM5ACN.m

Go to the documentation of this file.
BGPM5ACN ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 2011;
 ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
 ;
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,"67544056680 ")
 ;;1740
 ;;21,"67544056690 ")
 ;;1741
 ;;21,"67544056692 ")
 ;;1742
 ;;21,"67544056694 ")
 ;;1743
 ;;21,"67544061353 ")
 ;;1744
 ;;21,"67544061360 ")
 ;;1745
 ;;21,"67544061370 ")
 ;;1746
 ;;21,"67544061380 ")
 ;;1747
 ;;21,"67544061390 ")
 ;;1748
 ;;21,"67544061392 ")
 ;;1749
 ;;21,"67544061394 ")
 ;;1750
 ;;21,"67544064332 ")
 ;;1751
 ;;21,"67544064360 ")
 ;;1752
 ;;21,"67544064380 ")
 ;;1753
 ;;21,"67544064392 ")
 ;;1754
 ;;21,"67544064394 ")
 ;;1755
 ;;21,"67544065353 ")
 ;;1756
 ;;21,"67544065360 ")
 ;;1757
 ;;21,"67544065370 ")
 ;;1758
 ;;21,"67544065380 ")
 ;;1759
 ;;21,"67544065390 ")
 ;;1760
 ;;21,"67544065392 ")
 ;;1761
 ;;21,"67544065394 ")
 ;;1762
 ;;21,"67544065398 ")
 ;;1763
 ;;21,"67544066141 ")
 ;;1764
 ;;21,"67544066181 ")
 ;;1765
 ;;21,"67544069031 ")
 ;;1766
 ;;21,"67544075153 ")
 ;;1767
 ;;21,"67544075160 ")
 ;;1768
 ;;21,"67544075180 ")
 ;;1769
 ;;21,"67544075645 ")
 ;;1770
 ;;21,"67544075660 ")
 ;;1771
 ;;21,"67544075680 ")
 ;;1772
 ;;21,"67544076432 ")
 ;;1773
 ;;21,"67544076460 ")
 ;;1774
 ;;21,"67544080860 ")
 ;;1775
 ;;21,"67544087532 ")
 ;;1776
 ;;21,"67544087560 ")
 ;;1777
 ;;21,"67544087580 ")
 ;;1778
 ;;21,"67544092732 ")
 ;;1779
 ;;21,"67544092760 ")
 ;;1780
 ;;21,"67544092780 ")
 ;;1781
 ;;21,"67651002300 ")
 ;;1782
 ;;21,"67651002301 ")
 ;;1783
 ;;21,"67651002400 ")
 ;;1784
 ;;21,"67651002401 ")
 ;;1785
 ;;21,"67651004803 ")
 ;;1786
 ;;21,"67651032005 ")
 ;;1787
 ;;21,"67651032100 ")
 ;;1788
 ;;21,"67651032200 ")
 ;;1789
 ;;21,"67651032207 ")
 ;;1790
 ;;21,"67787020301 ")
 ;;1791
 ;;21,"67787020401 ")
 ;;1792
 ;;21,"67787020501 ")
 ;;1793
 ;;21,"68071000830 ")
 ;;1794
 ;;21,"68071000860 ")
 ;;1795
 ;;21,"68071001730 ")
 ;;1796
 ;;21,"68071002805 ")
 ;;1797
 ;;21,"68071002830 ")
 ;;1798
 ;;21,"68071002860 ")
 ;;1799
 ;;21,"68071009430 ")
 ;;1800
 ;;21,"68071016530 ")
 ;;1801
 ;;21,"68071038830 ")
 ;;1802
 ;;21,"68071038860 ")
 ;;1803
 ;;21,"68071043506 ")
 ;;1804
 ;;21,"68071074190 ")
 ;;1805
 ;;21,"68084011101 ")
 ;;1806
 ;;21,"68084011111 ")
 ;;1807
 ;;21,"68084011201 ")
 ;;1808
 ;;21,"68084011211 ")
 ;;1809
 ;;21,"68084013601 ")
 ;;1810
 ;;21,"68084013701 ")
 ;;1811
 ;;21,"68084013801 ")
 ;;1812
 ;;21,"68084029511 ")
 ;;1813
 ;;21,"68084029521 ")
 ;;1814
 ;;21,"68084032601 ")
 ;;1815
 ;;21,"68084032611 ")
 ;;1816
 ;;21,"68084032701 ")
 ;;1817
 ;;21,"68084032711 ")
 ;;1818
 ;;21,"68115015490 ")
 ;;1819
 ;;21,"68115016090 ")
 ;;1820
 ;;21,"68115016190 ")
 ;;1821
 ;;21,"68533003400 ")
 ;;1822
 ;;21,"68533003412 ")
 ;;1823
 ;;21,"68533003440 ")
 ;;1824
 ;;21,"68533003445 ")
 ;;1825
 ;;21,"68533003500 ")
 ;;1826
 ;;21,"68533003512 ")
 ;;1827
 ;;21,"68533003540 ")
 ;;1828
 ;;21,"68533003548 ")
 ;;1829
 ;;21,"68533003600 ")
 ;;1830
 ;;21,"68533003612 ")
 ;;1831
 ;;21,"68533003640 ")
 ;;1832
 ;;21,"68533003645 ")
 ;;1833
 ;;21,"68645015054 ")
 ;;1834
 ;;21,"68645015159 ")
 ;;1835
 ;;21,"68645021054 ")
 ;;1836
 ;;21,"68645021154 ")
 ;;1837
 ;;21,"68788014103 ")
 ;;1838
 ;;21,"68788014106 ")
 ;;1839
 ;;21,"68788014203 ")
 ;;1840
 ;;21,"68788014206 ")
 ;;1841
 ;;21,"68788046003 ")
 ;;1842
 ;;21,"68788046006 ")
 ;;1843
 ;;21,"68788046009 ")
 ;;1844
 ;;21,"68788046103 ")
 ;;1845
 ;;21,"68788046106 ")
 ;;1846
 ;;21,"68788096903 ")
 ;;1847
 ;;21,"68788096906 ")
 ;;1848
 ;;21,"68788119100 ")
 ;;1849
 ;;21,"68788119103 ")
 ;;1850
 ;;21,"68788119106 ")
 ;;1851
 ;;21,"68788834403 ")
 ;;1852
 ;;21,"68788834406 ")
 ;;1853
 ;;21,"71114022100 ")
 ;;1854
 ;;21,"71114022101 ")
 ;;1855
 ;;21,"71114022105 ")
 ;;1856
 ;;21,"71114022200 ")
 ;;1857
 ;;21,"71114022201 ")
 ;;1858
 ;;21,"71114022205 ")
 ;;1859
 ;;9002226,846,.01)
 ;;BGPMU DIAB SULFONYLUREA MEDS
 ;;9002226,846,.02)
 ;;Sulfonylurea NDC codes
 ;;9002226,846,.04)
 ;;n
 ;;9002226,846,.06)
 ;;@
 ;;9002226,846,.08)
 ;;@
 ;;9002226,846,.09)
 ;;3110310
 ;;9002226,846,.11)
 ;;@
 ;;9002226,846,.12)
 ;;@
 ;;9002226,846,.13)
 ;;1
 ;;9002226,846,.14)
 ;;@
 ;;9002226,846,.15)
 ;;50.67
 ;;9002226,846,.16)
 ;;@
 ;;9002226,846,.17)
 ;;@
 ;;9002226,846,3101)
 ;;@
 ;;9002226.02101,"846,00009372501 ",.01)
 ;;00009372501
 ;;9002226.02101,"846,00009372501 ",.02)
 ;;00009372501
 ;;9002226.02101,"846,00009372603 ",.01)
 ;;00009372603
 ;;9002226.02101,"846,00009372603 ",.02)
 ;;00009372603
 ;;9002226.02101,"846,00009372704 ",.01)
 ;;00009372704
 ;;9002226.02101,"846,00009372704 ",.02)
 ;;00009372704
 ;;9002226.02101,"846,00009372706 ",.01)
 ;;00009372706
 ;;9002226.02101,"846,00009372706 ",.02)
 ;;00009372706
 ;;9002226.02101,"846,00009372707 ",.01)
 ;;00009372707
 ;;9002226.02101,"846,00009372707 ",.02)
 ;;00009372707
 ;;9002226.02101,"846,00014997501 ",.01)
 ;;00014997501
 ;;9002226.02101,"846,00014997501 ",.02)
 ;;00014997501
 ;;9002226.02101,"846,00014997505 ",.01)
 ;;00014997505
 ;;9002226.02101,"846,00014997505 ",.02)
 ;;00014997505
 ;;9002226.02101,"846,00014997530 ",.01)
 ;;00014997530
 ;;9002226.02101,"846,00014997530 ",.02)
 ;;00014997530
 ;;9002226.02101,"846,00056071170 ",.01)
 ;;00056071170
 ;;9002226.02101,"846,00056071170 ",.02)
 ;;00056071170
 ;;9002226.02101,"846,00056071185 ",.01)
 ;;00056071185
 ;;9002226.02101,"846,00056071185 ",.02)
 ;;00056071185
 ;;9002226.02101,"846,00056071470 ",.01)
 ;;00056071470
 ;;9002226.02101,"846,00056071470 ",.02)
 ;;00056071470
 ;;9002226.02101,"846,00056071485 ",.01)
 ;;00056071485
 ;;9002226.02101,"846,00056071485 ",.02)
 ;;00056071485
 ;;9002226.02101,"846,00068320050 ",.01)
 ;;00068320050
 ;;9002226.02101,"846,00068320050 ",.02)
 ;;00068320050
 ;;9002226.02101,"846,00068320161 ",.01)
 ;;00068320161
 ;;9002226.02101,"846,00068320161 ",.02)
 ;;00068320161
 ;;9002226.02101,"846,00068320165 ",.01)
 ;;00068320165
 ;;9002226.02101,"846,00068320165 ",.02)
 ;;00068320165
 ;;9002226.02101,"846,00069087130 ",.01)
 ;;00069087130
 ;;9002226.02101,"846,00069087130 ",.02)
 ;;00069087130
 ;;9002226.02101,"846,00069503101 ",.01)
 ;;00069503101
 ;;9002226.02101,"846,00069503101 ",.02)
 ;;00069503101
 ;;9002226.02101,"846,00069503201 ",.01)
 ;;00069503201
 ;;9002226.02101,"846,00069503201 ",.02)
 ;;00069503201
 ;;9002226.02101,"846,00069503202 ",.01)
 ;;00069503202
 ;;9002226.02101,"846,00069503202 ",.02)
 ;;00069503202
 ;;9002226.02101,"846,00069503301 ",.01)
 ;;00069503301
 ;;9002226.02101,"846,00069503301 ",.02)
 ;;00069503301
 ;;9002226.02101,"846,00069503302 ",.01)
 ;;00069503302
 ;;9002226.02101,"846,00069503302 ",.02)
 ;;00069503302
 ;;9002226.02101,"846,00088016247 ",.01)
 ;;00088016247
 ;;9002226.02101,"846,00088016247 ",.02)
 ;;00088016247
 ;;9002226.02101,"846,00088016347 ",.01)
 ;;00088016347
 ;;9002226.02101,"846,00088016347 ",.02)
 ;;00088016347
 ;;9002226.02101,"846,00088016447 ",.01)
 ;;00088016447
 ;;9002226.02101,"846,00088016447 ",.02)
 ;;00088016447
 ;;9002226.02101,"846,00093571001 ",.01)
 ;;00093571001
 ;;9002226.02101,"846,00093571001 ",.02)
 ;;00093571001
 ;;9002226.02101,"846,00093571005 ",.01)
 ;;00093571005
 ;;9002226.02101,"846,00093571005 ",.02)
 ;;00093571005
 ;;9002226.02101,"846,00093571019 ",.01)
 ;;00093571019
 ;;9002226.02101,"846,00093571019 ",.02)
 ;;00093571019
 ;;9002226.02101,"846,00093571093 ",.01)
 ;;00093571093
 ;;9002226.02101,"846,00093571093 ",.02)
 ;;00093571093
 ;;9002226.02101,"846,00093571101 ",.01)
 ;;00093571101
 ;;9002226.02101,"846,00093571101 ",.02)
 ;;00093571101
 ;;9002226.02101,"846,00093571105 ",.01)
 ;;00093571105
 ;;9002226.02101,"846,00093571105 ",.02)
 ;;00093571105
 ;;9002226.02101,"846,00093571119 ",.01)
 ;;00093571119
 ;;9002226.02101,"846,00093571119 ",.02)
 ;;00093571119
 ;;9002226.02101,"846,00093571193 ",.01)
 ;;00093571193
 ;;9002226.02101,"846,00093571193 ",.02)
 ;;00093571193
 ;;9002226.02101,"846,00093571201 ",.01)
 ;;00093571201
 ;;9002226.02101,"846,00093571201 ",.02)
 ;;00093571201
 ;;9002226.02101,"846,00093571205 ",.01)
 ;;00093571205
 ;;9002226.02101,"846,00093571205 ",.02)
 ;;00093571205
 ;;9002226.02101,"846,00093571219 ",.01)
 ;;00093571219
 ;;9002226.02101,"846,00093571219 ",.02)
 ;;00093571219
 ;;9002226.02101,"846,00093571293 ",.01)
 ;;00093571293
 ;;9002226.02101,"846,00093571293 ",.02)
 ;;00093571293
 ;;9002226.02101,"846,00093725401 ",.01)
 ;;00093725401
 ;;9002226.02101,"846,00093725401 ",.02)
 ;;00093725401
 ;;9002226.02101,"846,00093725501 ",.01)
 ;;00093725501
 ;;9002226.02101,"846,00093725501 ",.02)
 ;;00093725501
 ;;9002226.02101,"846,00093725601 ",.01)
 ;;00093725601
 ;;9002226.02101,"846,00093725601 ",.02)
 ;;00093725601
 ;;9002226.02101,"846,00093725652 ",.01)
 ;;00093725652
 ;;9002226.02101,"846,00093725652 ",.02)
 ;;00093725652
 ;;9002226.02101,"846,00093726001 ",.01)
 ;;00093726001
 ;;9002226.02101,"846,00093726001 ",.02)
 ;;00093726001
 ;;9002226.02101,"846,00093726101 ",.01)
 ;;00093726101
 ;;9002226.02101,"846,00093726101 ",.02)
 ;;00093726101
 ;;9002226.02101,"846,00093726105 ",.01)
 ;;00093726105
 ;;9002226.02101,"846,00093726105 ",.02)
 ;;00093726105
 ;;9002226.02101,"846,00093726205 ",.01)
 ;;00093726205
 ;;9002226.02101,"846,00093726205 ",.02)
 ;;00093726205
 ;;9002226.02101,"846,00093745501 ",.01)
 ;;00093745501
 ;;9002226.02101,"846,00093745501 ",.02)
 ;;00093745501
 ;;9002226.02101,"846,00093745601 ",.01)
 ;;00093745601
 ;;9002226.02101,"846,00093745601 ",.02)
 ;;00093745601
 ;;9002226.02101,"846,00093745701 ",.01)
 ;;00093745701
 ;;9002226.02101,"846,00093745701 ",.02)
 ;;00093745701
 ;;9002226.02101,"846,00093803401 ",.01)
 ;;00093803401
 ;;9002226.02101,"846,00093803401 ",.02)
 ;;00093803401
 ;;9002226.02101,"846,00093803501 ",.01)
 ;;00093803501
 ;;9002226.02101,"846,00093803501 ",.02)
 ;;00093803501
 ;;9002226.02101,"846,00093803505 ",.01)
 ;;00093803505
 ;;9002226.02101,"846,00093803505 ",.02)
 ;;00093803505
 ;;9002226.02101,"846,00093803601 ",.01)
 ;;00093803601
 ;;9002226.02101,"846,00093803601 ",.02)
 ;;00093803601
 ;;9002226.02101,"846,00093834201 ",.01)
 ;;00093834201
 ;;9002226.02101,"846,00093834201 ",.02)
 ;;00093834201
 ;;9002226.02101,"846,00093834301 ",.01)
 ;;00093834301
 ;;9002226.02101,"846,00093834301 ",.02)
 ;;00093834301
 ;;9002226.02101,"846,00093834305 ",.01)
 ;;00093834305
 ;;9002226.02101,"846,00093834305 ",.02)
 ;;00093834305
 ;;9002226.02101,"846,00093834310 ",.01)
 ;;00093834310
 ;;9002226.02101,"846,00093834310 ",.02)
 ;;00093834310
 ;;9002226.02101,"846,00093834350 ",.01)
 ;;00093834350
 ;;9002226.02101,"846,00093834350 ",.02)
 ;;00093834350
 ;;9002226.02101,"846,00093834398 ",.01)
 ;;00093834398
 ;;9002226.02101,"846,00093834398 ",.02)
 ;;00093834398
 ;;9002226.02101,"846,00093834401 ",.01)
 ;;00093834401
 ;;9002226.02101,"846,00093834401 ",.02)
 ;;00093834401
 ;;9002226.02101,"846,00093834405 ",.01)
 ;;00093834405
 ;;9002226.02101,"846,00093834405 ",.02)
 ;;00093834405
 ;;9002226.02101,"846,00093834410 ",.01)
 ;;00093834410
 ;;9002226.02101,"846,00093834410 ",.02)
 ;;00093834410
 ;;9002226.02101,"846,00093834419 ",.01)
 ;;00093834419
 ;;9002226.02101,"846,00093834419 ",.02)
 ;;00093834419
 ;;9002226.02101,"846,00093834450 ",.01)
 ;;00093834450
 ;;9002226.02101,"846,00093834450 ",.02)
 ;;00093834450
 ;;9002226.02101,"846,00093834493 ",.01)
 ;;00093834493
 ;;9002226.02101,"846,00093834493 ",.02)
 ;;00093834493
 ;;9002226.02101,"846,00093834498 ",.01)
 ;;00093834498