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