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

BGP13K3.m

Go to the documentation of this file.
BGP13K3 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON APR 14, 2011 ;
 ;;11.1;IHS CLINICAL REPORTING SYSTEM;;JUN 27, 2011;Build 33
 ;
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,"61392-0238-31 ")
 ;;863
 ;;21,"61392-0238-32 ")
 ;;864
 ;;21,"61392-0238-39 ")
 ;;865
 ;;21,"61392-0238-45 ")
 ;;866
 ;;21,"61392-0238-51 ")
 ;;867
 ;;21,"61392-0238-54 ")
 ;;868
 ;;21,"61392-0238-56 ")
 ;;869
 ;;21,"61392-0238-60 ")
 ;;870
 ;;21,"61392-0238-90 ")
 ;;871
 ;;21,"61392-0238-91 ")
 ;;872
 ;;21,"61392-0241-30 ")
 ;;873
 ;;21,"61392-0241-31 ")
 ;;874
 ;;21,"61392-0241-32 ")
 ;;875
 ;;21,"61392-0241-39 ")
 ;;876
 ;;21,"61392-0241-45 ")
 ;;877
 ;;21,"61392-0241-51 ")
 ;;878
 ;;21,"61392-0241-54 ")
 ;;879
 ;;21,"61392-0241-56 ")
 ;;880
 ;;21,"61392-0241-60 ")
 ;;881
 ;;21,"61392-0241-90 ")
 ;;882
 ;;21,"61392-0241-91 ")
 ;;883
 ;;21,"61392-0721-30 ")
 ;;614
 ;;21,"61392-0721-31 ")
 ;;615
 ;;21,"61392-0721-32 ")
 ;;616
 ;;21,"61392-0721-39 ")
 ;;617
 ;;21,"61392-0721-45 ")
 ;;618
 ;;21,"61392-0721-51 ")
 ;;619
 ;;21,"61392-0721-54 ")
 ;;620
 ;;21,"61392-0721-60 ")
 ;;621
 ;;21,"61392-0721-90 ")
 ;;622
 ;;21,"61392-0721-91 ")
 ;;623
 ;;21,"63629-1523-01 ")
 ;;624
 ;;21,"63629-1523-02 ")
 ;;625
 ;;21,"63629-1523-03 ")
 ;;626
 ;;21,"63629-1523-04 ")
 ;;627
 ;;21,"63629-1523-05 ")
 ;;628
 ;;21,"63629-1523-06 ")
 ;;629
 ;;21,"63629-1524-01 ")
 ;;630
 ;;21,"63629-1524-02 ")
 ;;631
 ;;21,"63629-1524-03 ")
 ;;632
 ;;21,"63629-1524-04 ")
 ;;633
 ;;21,"63629-1524-05 ")
 ;;634
 ;;21,"63629-2948-01 ")
 ;;635
 ;;21,"63629-3034-01 ")
 ;;884
 ;;21,"63629-3034-02 ")
 ;;885
 ;;21,"63629-3200-01 ")
 ;;886
 ;;21,"63739-0073-10 ")
 ;;636
 ;;21,"63874-0213-01 ")
 ;;887
 ;;21,"63874-0213-05 ")
 ;;888
 ;;21,"63874-0213-12 ")
 ;;889
 ;;21,"63874-0213-15 ")
 ;;890
 ;;21,"63874-0213-20 ")
 ;;891
 ;;21,"63874-0213-30 ")
 ;;892
 ;;21,"63874-0213-40 ")
 ;;893
 ;;21,"63874-0213-60 ")
 ;;894
 ;;21,"63874-0214-01 ")
 ;;895
 ;;21,"63874-0214-06 ")
 ;;896
 ;;21,"63874-0214-09 ")
 ;;897
 ;;21,"63874-0214-10 ")
 ;;898
 ;;21,"63874-0214-12 ")
 ;;899
 ;;21,"63874-0214-14 ")
 ;;900
 ;;21,"63874-0214-15 ")
 ;;901
 ;;21,"63874-0214-20 ")
 ;;902
 ;;21,"63874-0214-21 ")
 ;;903
 ;;21,"63874-0214-24 ")
 ;;904
 ;;21,"63874-0214-30 ")
 ;;905
 ;;21,"63874-0214-60 ")
 ;;906
 ;;21,"63874-0226-01 ")
 ;;637
 ;;21,"63874-0226-02 ")
 ;;638
 ;;21,"63874-0226-04 ")
 ;;639
 ;;21,"63874-0226-10 ")
 ;;640
 ;;21,"63874-0226-12 ")
 ;;641
 ;;21,"63874-0226-15 ")
 ;;642
 ;;21,"63874-0226-20 ")
 ;;643
 ;;21,"63874-0226-28 ")
 ;;644
 ;;21,"63874-0226-30 ")
 ;;645
 ;;21,"63874-0226-60 ")
 ;;646
 ;;21,"63874-0226-90 ")
 ;;647
 ;;21,"63874-0227-01 ")
 ;;648
 ;;21,"63874-0227-02 ")
 ;;649
 ;;21,"63874-0227-04 ")
 ;;650
 ;;21,"63874-0227-05 ")
 ;;651
 ;;21,"63874-0227-06 ")
 ;;652
 ;;21,"63874-0227-08 ")
 ;;653
 ;;21,"63874-0227-09 ")
 ;;654
 ;;21,"63874-0227-10 ")
 ;;655
 ;;21,"63874-0227-12 ")
 ;;656
 ;;21,"63874-0227-14 ")
 ;;657
 ;;21,"63874-0227-15 ")
 ;;658
 ;;21,"63874-0227-16 ")
 ;;659
 ;;21,"63874-0227-18 ")
 ;;660
 ;;21,"63874-0227-20 ")
 ;;661
 ;;21,"63874-0227-21 ")
 ;;662
 ;;21,"63874-0227-24 ")
 ;;663
 ;;21,"63874-0227-28 ")
 ;;664
 ;;21,"63874-0227-30 ")
 ;;665
 ;;21,"63874-0227-36 ")
 ;;666
 ;;21,"63874-0227-40 ")
 ;;667
 ;;21,"63874-0227-50 ")
 ;;668
 ;;21,"63874-0227-60 ")
 ;;669
 ;;21,"63874-0227-72 ")
 ;;670
 ;;21,"63874-0227-74 ")
 ;;671
 ;;21,"63874-0227-77 ")
 ;;672
 ;;21,"63874-0227-87 ")
 ;;673
 ;;21,"63874-0227-90 ")
 ;;674
 ;;21,"63874-0228-01 ")
 ;;675
 ;;21,"63874-0228-02 ")
 ;;676
 ;;21,"63874-0228-04 ")
 ;;677
 ;;21,"63874-0228-06 ")
 ;;678
 ;;21,"63874-0228-09 ")
 ;;679
 ;;21,"63874-0228-10 ")
 ;;680
 ;;21,"63874-0228-12 ")
 ;;681
 ;;21,"63874-0228-15 ")
 ;;682
 ;;21,"63874-0228-20 ")
 ;;683
 ;;21,"63874-0228-28 ")
 ;;684
 ;;21,"63874-0228-30 ")
 ;;685
 ;;21,"63874-0228-40 ")
 ;;686
 ;;21,"63874-0228-60 ")
 ;;687
 ;;21,"63874-0228-72 ")
 ;;688
 ;;21,"63874-0228-74 ")
 ;;689
 ;;21,"63874-0228-77 ")
 ;;690
 ;;21,"63874-0228-90 ")
 ;;691
 ;;21,"63874-0256-01 ")
 ;;120
 ;;21,"63874-0256-08 ")
 ;;121
 ;;21,"63874-0256-10 ")
 ;;122
 ;;21,"63874-0256-12 ")
 ;;123
 ;;21,"63874-0256-14 ")
 ;;124
 ;;21,"63874-0256-15 ")
 ;;125
 ;;21,"63874-0256-20 ")
 ;;126
 ;;21,"63874-0256-21 ")
 ;;127
 ;;21,"63874-0256-24 ")
 ;;128
 ;;21,"63874-0256-25 ")
 ;;129
 ;;21,"63874-0256-28 ")
 ;;130
 ;;21,"63874-0256-30 ")
 ;;131
 ;;21,"63874-0256-40 ")
 ;;132
 ;;21,"63874-0256-60 ")
 ;;133
 ;;21,"63874-0274-10 ")
 ;;134
 ;;21,"63874-0274-12 ")
 ;;135
 ;;21,"63874-0274-30 ")
 ;;136
 ;;21,"63874-0356-01 ")
 ;;178
 ;;21,"63874-0356-15 ")
 ;;179
 ;;21,"63874-0356-20 ")
 ;;180
 ;;21,"63874-0356-30 ")
 ;;181
 ;;21,"64125-0132-01 ")
 ;;182
 ;;21,"64125-0132-10 ")
 ;;183
 ;;21,"64376-0808-01 ")
 ;;184
 ;;21,"66267-0068-02 ")
 ;;692
 ;;21,"66267-0068-15 ")
 ;;693
 ;;21,"66267-0068-30 ")
 ;;694
 ;;21,"66267-0068-45 ")
 ;;695
 ;;21,"66267-0068-90 ")
 ;;696
 ;;21,"66267-0068-91 ")
 ;;697
 ;;21,"66267-0069-03 ")
 ;;698
 ;;21,"66267-0069-60 ")
 ;;699
 ;;21,"66267-0069-90 ")
 ;;700
 ;;21,"66267-0069-91 ")
 ;;701
 ;;21,"66267-0331-15 ")
 ;;907
 ;;21,"66267-0331-30 ")
 ;;908
 ;;21,"66267-0331-45 ")
 ;;909
 ;;21,"66267-0550-30 ")
 ;;702
 ;;21,"66336-0033-10 ")
 ;;703
 ;;21,"66336-0033-30 ")
 ;;704
 ;;21,"66336-0033-44 ")
 ;;705
 ;;21,"66336-0033-60 ")
 ;;706
 ;;21,"66336-0478-02 ")
 ;;707
 ;;21,"66336-0478-06 ")
 ;;708
 ;;21,"66336-0478-10 ")
 ;;709
 ;;21,"66336-0478-15 ")
 ;;710
 ;;21,"66336-0478-30 ")
 ;;711
 ;;21,"66336-0742-30 ")
 ;;137
 ;;21,"66336-0780-28 ")
 ;;185
 ;;21,"66336-0780-56 ")
 ;;186
 ;;21,"67544-0013-30 ")
 ;;138
 ;;21,"67544-0019-15 ")
 ;;712
 ;;21,"67544-0020-15 ")
 ;;713
 ;;21,"67544-0020-30 ")
 ;;714
 ;;21,"67544-0115-30 ")
 ;;139
 ;;21,"67544-0274-30 ")
 ;;140
 ;;21,"67544-0340-15 ")
 ;;715
 ;;21,"67544-0368-15 ")
 ;;716
 ;;21,"67544-0395-30 ")
 ;;717
 ;;21,"67544-0433-15 ")
 ;;718
 ;;21,"67544-0580-30 ")
 ;;141
 ;;21,"67544-0720-60 ")
 ;;719
 ;;21,"67544-0752-30 ")
 ;;910
 ;;21,"67544-0785-30 ")
 ;;911
 ;;21,"67877-0186-01 ")
 ;;187
 ;;21,"68032-0369-10 ")
 ;;188
 ;;21,"68071-0220-20 ")
 ;;912
 ;;21,"68071-0220-30 ")
 ;;913
 ;;21,"68071-0734-60 ")
 ;;142
 ;;21,"68084-0359-01 ")
 ;;720
 ;;21,"68084-0359-11 ")
 ;;721
 ;;21,"68115-0074-30 ")
 ;;143
 ;;21,"68115-0098-00 ")
 ;;722
 ;;21,"68115-0098-01 ")
 ;;723
 ;;21,"68115-0098-02 ")
 ;;724
 ;;21,"68115-0098-10 ")
 ;;725
 ;;21,"68115-0098-15 ")
 ;;726
 ;;21,"68115-0098-30 ")
 ;;727
 ;;21,"68115-0098-60 ")
 ;;728
 ;;21,"68115-0098-90 ")
 ;;729
 ;;21,"68115-0098-96 ")
 ;;730
 ;;21,"68115-0098-99 ")
 ;;731
 ;;21,"68115-0099-15 ")
 ;;732
 ;;21,"68115-0099-30 ")
 ;;733
 ;;21,"68115-0100-01 ")
 ;;734
 ;;21,"68115-0100-02 ")
 ;;735
 ;;21,"68115-0100-06 ")
 ;;736
 ;;21,"68115-0100-10 ")
 ;;737
 ;;21,"68115-0100-15 ")
 ;;738
 ;;21,"68115-0100-20 ")
 ;;739
 ;;21,"68115-0100-30 ")
 ;;740
 ;;21,"68115-0100-60 ")
 ;;741
 ;;21,"68115-0100-90 ")
 ;;742
 ;;21,"68115-0146-00 ")
 ;;914
 ;;21,"68115-0146-14 ")
 ;;915
 ;;21,"68115-0146-30 ")
 ;;916
 ;;21,"68115-0146-48 ")
 ;;917
 ;;21,"68115-0146-60 ")
 ;;918
 ;;21,"68115-0401-00 ")
 ;;919
 ;;21,"68115-0401-20 ")
 ;;920
 ;;21,"68115-0401-30 ")
 ;;921
 ;;21,"68115-0401-60 ")
 ;;922
 ;;21,"68115-0744-00 ")
 ;;189
 ;;21,"68387-0474-30 ")
 ;;743
 ;;21,"68387-0475-30 ")
 ;;744
 ;;21,"68387-0475-90 ")
 ;;745
 ;;21,"68387-0610-15 ")
 ;;923
 ;;21,"68387-0610-30 ")
 ;;924
 ;;21,"68682-0409-10 ")
 ;;190
 ;;9002226,692,.01)
 ;;BGP HEDIS BENZODIAZEPINE NDC
 ;;9002226,692,.02)
 ;;@
 ;;9002226,692,.04)
 ;;n
 ;;9002226,692,.06)
 ;;@
 ;;9002226,692,.08)
 ;;@
 ;;9002226,692,.09)
 ;;@
 ;;9002226,692,.11)
 ;;@
 ;;9002226,692,.12)
 ;;@
 ;;9002226,692,.13)
 ;;1
 ;;9002226,692,.14)
 ;;@
 ;;9002226,692,.15)
 ;;@
 ;;9002226,692,.16)
 ;;@
 ;;9002226,692,.17)
 ;;@
 ;;9002226,692,3101)
 ;;@
 ;;9002226.02101,"692,00054-3185-44 ",.01)
 ;;00054-3185-44
 ;;9002226.02101,"692,00054-3185-44 ",.02)
 ;;00054-3185-44
 ;;9002226.02101,"692,00054-3188-63 ",.01)
 ;;00054-3188-63
 ;;9002226.02101,"692,00054-3188-63 ",.02)
 ;;00054-3188-63
 ;;9002226.02101,"692,00054-8207-16 ",.01)
 ;;00054-8207-16
 ;;9002226.02101,"692,00054-8207-16 ",.02)
 ;;00054-8207-16
 ;;9002226.02101,"692,00115-2758-01 ",.01)
 ;;00115-2758-01
 ;;9002226.02101,"692,00115-2758-01 ",.02)
 ;;00115-2758-01
 ;;9002226.02101,"692,00115-2758-03 ",.01)
 ;;00115-2758-03
 ;;9002226.02101,"692,00115-2758-03 ",.02)
 ;;00115-2758-03
 ;;9002226.02101,"692,00115-2760-01 ",.01)
 ;;00115-2760-01
 ;;9002226.02101,"692,00115-2760-01 ",.02)
 ;;00115-2760-01
 ;;9002226.02101,"692,00115-2760-03 ",.01)
 ;;00115-2760-03
 ;;9002226.02101,"692,00115-2760-03 ",.02)
 ;;00115-2760-03
 ;;9002226.02101,"692,00115-2762-01 ",.01)
 ;;00115-2762-01
 ;;9002226.02101,"692,00115-2762-01 ",.02)
 ;;00115-2762-01
 ;;9002226.02101,"692,00115-2762-03 ",.01)
 ;;00115-2762-03
 ;;9002226.02101,"692,00115-2762-03 ",.02)
 ;;00115-2762-03
 ;;9002226.02101,"692,00140-0004-01 ",.01)
 ;;00140-0004-01
 ;;9002226.02101,"692,00140-0004-01 ",.02)
 ;;00140-0004-01
 ;;9002226.02101,"692,00140-0004-32 ",.01)
 ;;00140-0004-32
 ;;9002226.02101,"692,00140-0004-32 ",.02)
 ;;00140-0004-32
 ;;9002226.02101,"692,00140-0005-01 ",.01)
 ;;00140-0005-01
 ;;9002226.02101,"692,00140-0005-01 ",.02)
 ;;00140-0005-01
 ;;9002226.02101,"692,00140-0005-14 ",.01)
 ;;00140-0005-14
 ;;9002226.02101,"692,00140-0005-14 ",.02)
 ;;00140-0005-14
 ;;9002226.02101,"692,00140-0005-35 ",.01)
 ;;00140-0005-35
 ;;9002226.02101,"692,00140-0005-35 ",.02)
 ;;00140-0005-35
 ;;9002226.02101,"692,00140-0006-01 ",.01)
 ;;00140-0006-01
 ;;9002226.02101,"692,00140-0006-01 ",.02)
 ;;00140-0006-01
 ;;9002226.02101,"692,00140-0006-14 ",.01)
 ;;00140-0006-14
 ;;9002226.02101,"692,00140-0006-14 ",.02)
 ;;00140-0006-14
 ;;9002226.02101,"692,00140-0006-35 ",.01)
 ;;00140-0006-35
 ;;9002226.02101,"692,00140-0006-35 ",.02)
 ;;00140-0006-35
 ;;9002226.02101,"692,00140-0070-01 ",.01)
 ;;00140-0070-01
 ;;9002226.02101,"692,00140-0070-01 ",.02)
 ;;00140-0070-01
 ;;9002226.02101,"692,00143-3367-01 ",.01)
 ;;00143-3367-01
 ;;9002226.02101,"692,00143-3367-01 ",.02)
 ;;00143-3367-01
 ;;9002226.02101,"692,00143-3367-05 ",.01)
 ;;00143-3367-05
 ;;9002226.02101,"692,00143-3367-05 ",.02)
 ;;00143-3367-05
 ;;9002226.02101,"692,00143-3370-01 ",.01)
 ;;00143-3370-01
 ;;9002226.02101,"692,00143-3370-01 ",.02)
 ;;00143-3370-01
 ;;9002226.02101,"692,00143-3370-05 ",.01)
 ;;00143-3370-05
 ;;9002226.02101,"692,00143-3370-05 ",.02)
 ;;00143-3370-05
 ;;9002226.02101,"692,00172-3925-60 ",.01)
 ;;00172-3925-60
 ;;9002226.02101,"692,00172-3925-60 ",.02)
 ;;00172-3925-60
 ;;9002226.02101,"692,00172-3925-70 ",.01)
 ;;00172-3925-70
 ;;9002226.02101,"692,00172-3925-70 ",.02)
 ;;00172-3925-70
 ;;9002226.02101,"692,00172-3926-60 ",.01)
 ;;00172-3926-60
 ;;9002226.02101,"692,00172-3926-60 ",.02)
 ;;00172-3926-60
 ;;9002226.02101,"692,00172-3926-70 ",.01)
 ;;00172-3926-70
 ;;9002226.02101,"692,00172-3926-70 ",.02)
 ;;00172-3926-70
 ;;9002226.02101,"692,00172-3927-60 ",.01)
 ;;00172-3927-60
 ;;9002226.02101,"692,00172-3927-60 ",.02)
 ;;00172-3927-60
 ;;9002226.02101,"692,00172-3927-70 ",.01)
 ;;00172-3927-70
 ;;9002226.02101,"692,00172-3927-70 ",.02)
 ;;00172-3927-70
 ;;9002226.02101,"692,00182-1757-01 ",.01)
 ;;00182-1757-01
 ;;9002226.02101,"692,00182-1757-01 ",.02)
 ;;00182-1757-01
 ;;9002226.02101,"692,00182-1757-05 ",.01)
 ;;00182-1757-05
 ;;9002226.02101,"692,00182-1757-05 ",.02)
 ;;00182-1757-05
 ;;9002226.02101,"692,00182-1757-10 ",.01)
 ;;00182-1757-10
 ;;9002226.02101,"692,00182-1757-10 ",.02)
 ;;00182-1757-10
 ;;9002226.02101,"692,00182-1757-89 ",.01)
 ;;00182-1757-89
 ;;9002226.02101,"692,00182-1757-89 ",.02)
 ;;00182-1757-89
 ;;9002226.02101,"692,00182-1818-01 ",.01)
 ;;00182-1818-01
 ;;9002226.02101,"692,00182-1818-01 ",.02)
 ;;00182-1818-01
 ;;9002226.02101,"692,00182-1818-05 ",.01)
 ;;00182-1818-05
 ;;9002226.02101,"692,00182-1818-05 ",.02)
 ;;00182-1818-05
 ;;9002226.02101,"692,00187-3750-10 ",.01)
 ;;00187-3750-10
 ;;9002226.02101,"692,00187-3750-10 ",.02)
 ;;00187-3750-10
 ;;9002226.02101,"692,00187-3751-10 ",.01)
 ;;00187-3751-10