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

BGP53I18.m

Go to the documentation of this file.
BGP53I18 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON FEB 23, 2015;
 ;;15.1;IHS CLINICAL REPORTING;;MAY 06, 2015;Build 143
 ;
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,"68180-0121-02 ")
 ;;6585
 ;;21,"68180-0122-01 ")
 ;;6586
 ;;21,"68180-0122-02 ")
 ;;6587
 ;;21,"68180-0123-01 ")
 ;;6588
 ;;21,"68180-0123-02 ")
 ;;6589
 ;;21,"68180-0124-01 ")
 ;;6590
 ;;21,"68180-0124-02 ")
 ;;6591
 ;;21,"68180-0180-01 ")
 ;;6592
 ;;21,"68180-0180-08 ")
 ;;6593
 ;;21,"68180-0181-01 ")
 ;;6594
 ;;21,"68180-0181-02 ")
 ;;6595
 ;;21,"68180-0182-02 ")
 ;;6596
 ;;21,"68180-0182-03 ")
 ;;6597
 ;;21,"68180-0202-01 ")
 ;;6598
 ;;21,"68180-0202-02 ")
 ;;6599
 ;;21,"68180-0202-03 ")
 ;;6600
 ;;21,"68180-0240-01 ")
 ;;6601
 ;;21,"68180-0240-08 ")
 ;;6602
 ;;21,"68180-0241-01 ")
 ;;6603
 ;;21,"68180-0241-02 ")
 ;;6604
 ;;21,"68180-0241-08 ")
 ;;6605
 ;;21,"68180-0242-01 ")
 ;;6606
 ;;21,"68180-0242-20 ")
 ;;6607
 ;;21,"68180-0302-20 ")
 ;;6608
 ;;21,"68180-0302-60 ")
 ;;6609
 ;;21,"68180-0303-20 ")
 ;;6610
 ;;21,"68180-0303-60 ")
 ;;6611
 ;;21,"68180-0379-06 ")
 ;;6612
 ;;21,"68180-0380-06 ")
 ;;6613
 ;;21,"68180-0381-06 ")
 ;;6614
 ;;21,"68180-0392-01 ")
 ;;6615
 ;;21,"68180-0393-01 ")
 ;;6616
 ;;21,"68180-0401-01 ")
 ;;6617
 ;;21,"68180-0401-02 ")
 ;;6618
 ;;21,"68180-0401-03 ")
 ;;6619
 ;;21,"68180-0402-01 ")
 ;;6620
 ;;21,"68180-0402-02 ")
 ;;6621
 ;;21,"68180-0402-03 ")
 ;;6622
 ;;21,"68180-0403-01 ")
 ;;6623
 ;;21,"68180-0404-01 ")
 ;;6624
 ;;21,"68180-0404-02 ")
 ;;6625
 ;;21,"68180-0611-01 ")
 ;;6626
 ;;21,"68180-0611-10 ")
 ;;6627
 ;;21,"68180-0622-01 ")
 ;;6628
 ;;21,"68180-0622-10 ")
 ;;6629
 ;;21,"68180-0633-01 ")
 ;;6630
 ;;21,"68180-0633-10 ")
 ;;6631
 ;;21,"68180-0644-01 ")
 ;;6632
 ;;21,"68180-0644-10 ")
 ;;6633
 ;;21,"68180-0651-01 ")
 ;;6634
 ;;21,"68180-0657-01 ")
 ;;6635
 ;;21,"68180-0711-60 ")
 ;;6636
 ;;21,"68180-0722-10 ")
 ;;6637
 ;;21,"68180-0722-20 ")
 ;;6638
 ;;21,"68180-0723-10 ")
 ;;6639
 ;;21,"68180-0723-20 ")
 ;;6640
 ;;21,"68258-3012-01 ")
 ;;6641
 ;;21,"68258-9300-02 ")
 ;;6642
 ;;21,"68308-0250-10 ")
 ;;6643
 ;;21,"68308-0710-10 ")
 ;;6644
 ;;21,"68308-0715-10 ")
 ;;6645
 ;;21,"68308-0775-60 ")
 ;;6646
 ;;21,"68330-0001-01 ")
 ;;6647
 ;;21,"68330-0001-10 ")
 ;;6648
 ;;21,"68330-0002-01 ")
 ;;6649
 ;;21,"68330-0002-10 ")
 ;;6650
 ;;21,"68330-0003-01 ")
 ;;6651
 ;;21,"68330-0003-10 ")
 ;;6652
 ;;21,"68330-0004-01 ")
 ;;6653
 ;;21,"68330-0004-10 ")
 ;;6654
 ;;21,"68330-0005-01 ")
 ;;6655
 ;;21,"68330-0006-01 ")
 ;;6656
 ;;21,"68330-0015-25 ")
 ;;6657
 ;;21,"68382-0015-01 ")
 ;;6658
 ;;21,"68382-0015-18 ")
 ;;6659
 ;;21,"68382-0016-01 ")
 ;;6660
 ;;21,"68382-0016-18 ")
 ;;6661
 ;;21,"68382-0017-01 ")
 ;;6662
 ;;21,"68382-0017-18 ")
 ;;6663
 ;;21,"68382-0761-14 ")
 ;;6664
 ;;21,"68382-0762-14 ")
 ;;6665
 ;;21,"68382-0763-14 ")
 ;;6666
 ;;21,"68382-0764-05 ")
 ;;6667
 ;;21,"68382-0764-06 ")
 ;;6668
 ;;21,"68382-0765-05 ")
 ;;6669
 ;;21,"68382-0765-06 ")
 ;;6670
 ;;21,"68387-0117-30 ")
 ;;6671
 ;;21,"68387-0190-20 ")
 ;;6672
 ;;21,"68387-0190-21 ")
 ;;6673
 ;;21,"68387-0190-30 ")
 ;;6674
 ;;21,"68387-0190-40 ")
 ;;6675
 ;;21,"68387-0380-20 ")
 ;;6676
 ;;21,"68387-0385-20 ")
 ;;6677
 ;;21,"68387-0385-30 ")
 ;;6678
 ;;21,"68387-0385-60 ")
 ;;6679
 ;;21,"68387-0390-20 ")
 ;;6680
 ;;21,"68387-0390-28 ")
 ;;6681
 ;;21,"68387-0430-30 ")
 ;;6682
 ;;21,"68387-0430-40 ")
 ;;6683
 ;;21,"68387-0470-14 ")
 ;;6684
 ;;21,"68387-0470-20 ")
 ;;6685
 ;;21,"68387-0534-01 ")
 ;;6686
 ;;21,"68387-0535-15 ")
 ;;6687
 ;;21,"68387-0535-20 ")
 ;;6688
 ;;21,"68387-0565-06 ")
 ;;6689
 ;;21,"68387-0580-15 ")
 ;;6690
 ;;21,"68453-0112-10 ")
 ;;6691
 ;;21,"68453-0113-10 ")
 ;;6692
 ;;21,"68453-0115-05 ")
 ;;6693
 ;;21,"68453-0142-03 ")
 ;;6694
 ;;21,"68462-0339-01 ")
 ;;6695
 ;;21,"68462-0339-05 ")
 ;;6696
 ;;21,"68462-0340-01 ")
 ;;6697
 ;;21,"68462-0340-05 ")
 ;;6698
 ;;21,"68645-0030-20 ")
 ;;6699
 ;;21,"68774-0120-60 ")
 ;;6700
 ;;21,"68774-0122-60 ")
 ;;6701
 ;;21,"68774-0302-29 ")
 ;;6702
 ;;21,"68774-0302-35 ")
 ;;6703
 ;;21,"68774-0303-29 ")
 ;;6704
 ;;21,"68774-0303-35 ")
 ;;6705
 ;;21,"68820-0016-10 ")
 ;;6706
 ;;21,"68820-0017-08 ")
 ;;6707
 ;;21,"68820-0018-15 ")
 ;;6708
 ;;21,"68820-0018-16 ")
 ;;6709
 ;;21,"68820-0018-17 ")
 ;;6710
 ;;21,"68820-0019-15 ")
 ;;6711
 ;;21,"68820-0019-16 ")
 ;;6712
 ;;21,"68820-0019-17 ")
 ;;6713
 ;;21,"68820-0043-08 ")
 ;;6714
 ;;21,"68820-0043-10 ")
 ;;6715
 ;;21,"68820-0063-06 ")
 ;;6716
 ;;21,"68820-0063-09 ")
 ;;6717
 ;;21,"68820-0063-19 ")
 ;;6718
 ;;21,"68820-0064-17 ")
 ;;6719
 ;;21,"68820-0064-37 ")
 ;;6720
 ;;21,"68820-0065-17 ")
 ;;6721
 ;;21,"68820-0065-37 ")
 ;;6722
 ;;21,"76439-0101-10 ")
 ;;6723
 ;;21,"76439-0101-50 ")
 ;;6724
 ;;21,"76439-0102-10 ")
 ;;6725
 ;;21,"76439-0102-50 ")
 ;;6726
 ;;21,"76439-0103-10 ")
 ;;6727
 ;;21,"76439-0103-50 ")
 ;;6728
 ;;21,"76439-0104-10 ")
 ;;6729
 ;;21,"76439-0104-50 ")
 ;;6730
 ;;21,"99207-0460-10 ")
 ;;6731
 ;;21,"99207-0460-30 ")
 ;;6732
 ;;21,"99207-0461-10 ")
 ;;6733
 ;;21,"99207-0461-30 ")
 ;;6734
 ;;21,"99207-0462-10 ")
 ;;6735
 ;;21,"99207-0462-30 ")
 ;;6736
 ;;21,"99207-0463-30 ")
 ;;6737
 ;;21,"99207-0464-30 ")
 ;;6738
 ;;21,"99207-0465-30 ")
 ;;6739
 ;;21,"99207-0466-30 ")
 ;;6740
 ;;21,"99207-0467-30 ")
 ;;6741
 ;;21,"99207-0490-10 ")
 ;;6742
 ;;21,"99207-0491-10 ")
 ;;6743
 ;;21,"99207-0491-11 ")
 ;;6744
 ;;21,"99207-0492-11 ")
 ;;6745
 ;;21,"99207-0492-50 ")
 ;;6746
 ;;21,"99207-0497-05 ")
 ;;6747
 ;;21,"99207-0498-05 ")
 ;;6748
 ;;21,"99207-0499-05 ")
 ;;6749
 ;;21,"99207-0499-10 ")
 ;;6750
 ;;21,"99207-0499-11 ")
 ;;6751
 ;;9002226,734,.01)
 ;;BGP HEDIS ANTIBIOTICS NDC
 ;;9002226,734,.02)
 ;;@
 ;;9002226,734,.04)
 ;;n
 ;;9002226,734,.06)
 ;;@
 ;;9002226,734,.08)
 ;;@
 ;;9002226,734,.09)
 ;;3150223
 ;;9002226,734,.11)
 ;;@
 ;;9002226,734,.12)
 ;;@
 ;;9002226,734,.13)
 ;;1
 ;;9002226,734,.14)
 ;;@
 ;;9002226,734,.15)
 ;;50.67
 ;;9002226,734,.16)
 ;;@
 ;;9002226,734,.17)
 ;;@
 ;;9002226,734,3101)
 ;;@
 ;;9002226.02101,"734,00002-8995-19 ",.01)
 ;;00002-8995-19
 ;;9002226.02101,"734,00002-8995-19 ",.02)
 ;;00002-8995-19
 ;;9002226.02101,"734,00002-9500-01 ",.01)
 ;;00002-9500-01
 ;;9002226.02101,"734,00002-9500-01 ",.02)
 ;;00002-9500-01
 ;;9002226.02101,"734,00004-1962-01 ",.01)
 ;;00004-1962-01
 ;;9002226.02101,"734,00004-1962-01 ",.02)
 ;;00004-1962-01
 ;;9002226.02101,"734,00004-1963-01 ",.01)
 ;;00004-1963-01
 ;;9002226.02101,"734,00004-1963-01 ",.02)
 ;;00004-1963-01
 ;;9002226.02101,"734,00004-1963-02 ",.01)
 ;;00004-1963-02
 ;;9002226.02101,"734,00004-1963-02 ",.02)
 ;;00004-1963-02
 ;;9002226.02101,"734,00004-1964-01 ",.01)
 ;;00004-1964-01
 ;;9002226.02101,"734,00004-1964-01 ",.02)
 ;;00004-1964-01
 ;;9002226.02101,"734,00004-1964-04 ",.01)
 ;;00004-1964-04
 ;;9002226.02101,"734,00004-1964-04 ",.02)
 ;;00004-1964-04
 ;;9002226.02101,"734,00004-1965-01 ",.01)
 ;;00004-1965-01
 ;;9002226.02101,"734,00004-1965-01 ",.02)
 ;;00004-1965-01
 ;;9002226.02101,"734,00004-1971-01 ",.01)
 ;;00004-1971-01
 ;;9002226.02101,"734,00004-1971-01 ",.02)
 ;;00004-1971-01
 ;;9002226.02101,"734,00004-2002-78 ",.01)
 ;;00004-2002-78
 ;;9002226.02101,"734,00004-2002-78 ",.02)
 ;;00004-2002-78
 ;;9002226.02101,"734,00009-0225-02 ",.01)
 ;;00009-0225-02
 ;;9002226.02101,"734,00009-0225-02 ",.02)
 ;;00009-0225-02
 ;;9002226.02101,"734,00009-0225-03 ",.01)
 ;;00009-0225-03
 ;;9002226.02101,"734,00009-0225-03 ",.02)
 ;;00009-0225-03
 ;;9002226.02101,"734,00009-0302-25 ",.01)
 ;;00009-0302-25
 ;;9002226.02101,"734,00009-0302-25 ",.02)
 ;;00009-0302-25
 ;;9002226.02101,"734,00009-0331-02 ",.01)
 ;;00009-0331-02
 ;;9002226.02101,"734,00009-0331-02 ",.02)
 ;;00009-0331-02
 ;;9002226.02101,"734,00009-0395-02 ",.01)
 ;;00009-0395-02
 ;;9002226.02101,"734,00009-0395-02 ",.02)
 ;;00009-0395-02
 ;;9002226.02101,"734,00009-0395-14 ",.01)
 ;;00009-0395-14
 ;;9002226.02101,"734,00009-0395-14 ",.02)
 ;;00009-0395-14
 ;;9002226.02101,"734,00009-0602-25 ",.01)
 ;;00009-0602-25
 ;;9002226.02101,"734,00009-0602-25 ",.02)
 ;;00009-0602-25
 ;;9002226.02101,"734,00009-0728-09 ",.01)
 ;;00009-0728-09
 ;;9002226.02101,"734,00009-0728-09 ",.02)
 ;;00009-0728-09
 ;;9002226.02101,"734,00009-0760-04 ",.01)
 ;;00009-0760-04
 ;;9002226.02101,"734,00009-0760-04 ",.02)
 ;;00009-0760-04
 ;;9002226.02101,"734,00009-0775-26 ",.01)
 ;;00009-0775-26
 ;;9002226.02101,"734,00009-0775-26 ",.02)
 ;;00009-0775-26
 ;;9002226.02101,"734,00009-0870-21 ",.01)
 ;;00009-0870-21
 ;;9002226.02101,"734,00009-0870-21 ",.02)
 ;;00009-0870-21
 ;;9002226.02101,"734,00009-0870-26 ",.01)
 ;;00009-0870-26
 ;;9002226.02101,"734,00009-0870-26 ",.02)
 ;;00009-0870-26
 ;;9002226.02101,"734,00009-0901-25 ",.01)
 ;;00009-0901-25
 ;;9002226.02101,"734,00009-0901-25 ",.02)
 ;;00009-0901-25
 ;;9002226.02101,"734,00009-0902-11 ",.01)
 ;;00009-0902-11
 ;;9002226.02101,"734,00009-0902-11 ",.02)
 ;;00009-0902-11
 ;;9002226.02101,"734,00009-0902-18 ",.01)
 ;;00009-0902-18
 ;;9002226.02101,"734,00009-0902-18 ",.02)
 ;;00009-0902-18
 ;;9002226.02101,"734,00009-3124-03 ",.01)
 ;;00009-3124-03
 ;;9002226.02101,"734,00009-3124-03 ",.02)
 ;;00009-3124-03
 ;;9002226.02101,"734,00009-3375-02 ",.01)
 ;;00009-3375-02
 ;;9002226.02101,"734,00009-3375-02 ",.02)
 ;;00009-3375-02
 ;;9002226.02101,"734,00009-3381-02 ",.01)
 ;;00009-3381-02
 ;;9002226.02101,"734,00009-3381-02 ",.02)
 ;;00009-3381-02
 ;;9002226.02101,"734,00009-3382-02 ",.01)
 ;;00009-3382-02
 ;;9002226.02101,"734,00009-3382-02 ",.02)
 ;;00009-3382-02
 ;;9002226.02101,"734,00009-3447-03 ",.01)
 ;;00009-3447-03
 ;;9002226.02101,"734,00009-3447-03 ",.02)
 ;;00009-3447-03
 ;;9002226.02101,"734,00009-3618-01 ",.01)
 ;;00009-3618-01
 ;;9002226.02101,"734,00009-3618-01 ",.02)
 ;;00009-3618-01
 ;;9002226.02101,"734,00015-3400-95 ",.01)
 ;;00015-3400-95
 ;;9002226.02101,"734,00015-3400-95 ",.02)
 ;;00015-3400-95
 ;;9002226.02101,"734,00015-3709-95 ",.01)
 ;;00015-3709-95
 ;;9002226.02101,"734,00015-3709-95 ",.02)
 ;;00015-3709-95
 ;;9002226.02101,"734,00015-7100-28 ",.01)
 ;;00015-7100-28
 ;;9002226.02101,"734,00015-7100-28 ",.02)
 ;;00015-7100-28
 ;;9002226.02101,"734,00015-7276-75 ",.01)
 ;;00015-7276-75
 ;;9002226.02101,"734,00015-7276-75 ",.02)
 ;;00015-7276-75
 ;;9002226.02101,"734,00015-7277-60 ",.01)
 ;;00015-7277-60
 ;;9002226.02101,"734,00015-7277-60 ",.02)
 ;;00015-7277-60
 ;;9002226.02101,"734,00015-7277-75 ",.01)
 ;;00015-7277-75
 ;;9002226.02101,"734,00015-7277-75 ",.02)
 ;;00015-7277-75
 ;;9002226.02101,"734,00015-7278-62 ",.01)
 ;;00015-7278-62
 ;;9002226.02101,"734,00015-7278-62 ",.02)
 ;;00015-7278-62
 ;;9002226.02101,"734,00015-7278-73 ",.01)
 ;;00015-7278-73
 ;;9002226.02101,"734,00015-7278-73 ",.02)
 ;;00015-7278-73
 ;;9002226.02101,"734,00015-7338-12 ",.01)
 ;;00015-7338-12
 ;;9002226.02101,"734,00015-7338-12 ",.02)
 ;;00015-7338-12
 ;;9002226.02101,"734,00015-7401-20 ",.01)
 ;;00015-7401-20
 ;;9002226.02101,"734,00015-7401-20 ",.02)
 ;;00015-7401-20
 ;;9002226.02101,"734,00015-7402-20 ",.01)
 ;;00015-7402-20
 ;;9002226.02101,"734,00015-7402-20 ",.02)
 ;;00015-7402-20
 ;;9002226.02101,"734,00015-7402-99 ",.01)
 ;;00015-7402-99
 ;;9002226.02101,"734,00015-7402-99 ",.02)
 ;;00015-7402-99
 ;;9002226.02101,"734,00015-7403-20 ",.01)
 ;;00015-7403-20
 ;;9002226.02101,"734,00015-7403-20 ",.02)
 ;;00015-7403-20
 ;;9002226.02101,"734,00015-7403-99 ",.01)
 ;;00015-7403-99
 ;;9002226.02101,"734,00015-7403-99 ",.02)
 ;;00015-7403-99
 ;;9002226.02101,"734,00015-7404-18 ",.01)
 ;;00015-7404-18
 ;;9002226.02101,"734,00015-7404-18 ",.02)
 ;;00015-7404-18
 ;;9002226.02101,"734,00015-7404-20 ",.01)
 ;;00015-7404-20
 ;;9002226.02101,"734,00015-7404-20 ",.02)
 ;;00015-7404-20
 ;;9002226.02101,"734,00015-7404-89 ",.01)
 ;;00015-7404-89
 ;;9002226.02101,"734,00015-7404-89 ",.02)
 ;;00015-7404-89
 ;;9002226.02101,"734,00015-7404-99 ",.01)
 ;;00015-7404-99
 ;;9002226.02101,"734,00015-7404-99 ",.02)
 ;;00015-7404-99
 ;;9002226.02101,"734,00015-7405-18 ",.01)
 ;;00015-7405-18
 ;;9002226.02101,"734,00015-7405-18 ",.02)
 ;;00015-7405-18
 ;;9002226.02101,"734,00015-7405-20 ",.01)
 ;;00015-7405-20
 ;;9002226.02101,"734,00015-7405-20 ",.02)
 ;;00015-7405-20
 ;;9002226.02101,"734,00015-7405-89 ",.01)
 ;;00015-7405-89
 ;;9002226.02101,"734,00015-7405-89 ",.02)
 ;;00015-7405-89
 ;;9002226.02101,"734,00015-7405-99 ",.01)
 ;;00015-7405-99
 ;;9002226.02101,"734,00015-7405-99 ",.02)
 ;;00015-7405-99
 ;;9002226.02101,"734,00015-7993-68 ",.01)
 ;;00015-7993-68
 ;;9002226.02101,"734,00015-7993-68 ",.02)
 ;;00015-7993-68
 ;;9002226.02101,"734,00029-6075-27 ",.01)
 ;;00029-6075-27
 ;;9002226.02101,"734,00029-6075-27 ",.02)
 ;;00029-6075-27
 ;;9002226.02101,"734,00029-6075-31 ",.01)
 ;;00029-6075-31
 ;;9002226.02101,"734,00029-6075-31 ",.02)
 ;;00029-6075-31
 ;;9002226.02101,"734,00029-6080-12 ",.01)
 ;;00029-6080-12
 ;;9002226.02101,"734,00029-6080-12 ",.02)
 ;;00029-6080-12
 ;;9002226.02101,"734,00029-6080-27 ",.01)
 ;;00029-6080-27
 ;;9002226.02101,"734,00029-6080-27 ",.02)
 ;;00029-6080-27
 ;;9002226.02101,"734,00029-6080-31 ",.01)
 ;;00029-6080-31
 ;;9002226.02101,"734,00029-6080-31 ",.02)
 ;;00029-6080-31
 ;;9002226.02101,"734,00029-6085-22 ",.01)
 ;;00029-6085-22