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

BGP06L3.m

Go to the documentation of this file.
BGP06L3 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAY 23, 2010;
 ;;10.0;IHS CLINICAL REPORTING;;JUN 18, 2010
 ;
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,"63574-0228-30 ")
 ;;790
 ;;21,"63574-0228-40 ")
 ;;791
 ;;21,"63574-0228-60 ")
 ;;792
 ;;21,"63574-0228-72 ")
 ;;793
 ;;21,"63574-0228-74 ")
 ;;794
 ;;21,"63574-0228-77 ")
 ;;795
 ;;21,"63574-0228-90 ")
 ;;796
 ;;21,"63584-0228-09 ")
 ;;797
 ;;21,"63629-1523-01 ")
 ;;798
 ;;21,"63629-1523-02 ")
 ;;799
 ;;21,"63629-1523-03 ")
 ;;800
 ;;21,"63629-1523-04 ")
 ;;801
 ;;21,"63629-1523-05 ")
 ;;802
 ;;21,"63629-1523-06 ")
 ;;803
 ;;21,"63629-1524-01 ")
 ;;804
 ;;21,"63629-1524-02 ")
 ;;805
 ;;21,"63629-1524-03 ")
 ;;806
 ;;21,"63629-1524-04 ")
 ;;807
 ;;21,"63629-1524-05 ")
 ;;808
 ;;21,"63629-2948-01 ")
 ;;809
 ;;21,"63629-3034-01 ")
 ;;810
 ;;21,"63629-3034-02 ")
 ;;811
 ;;21,"63629-3200-01 ")
 ;;812
 ;;21,"63739-0073-10 ")
 ;;813
 ;;21,"63874-0213-01 ")
 ;;814
 ;;21,"63874-0213-05 ")
 ;;815
 ;;21,"63874-0213-12 ")
 ;;816
 ;;21,"63874-0213-15 ")
 ;;817
 ;;21,"63874-0213-20 ")
 ;;818
 ;;21,"63874-0213-30 ")
 ;;819
 ;;21,"63874-0213-40 ")
 ;;820
 ;;21,"63874-0213-60 ")
 ;;821
 ;;21,"63874-0214-01 ")
 ;;822
 ;;21,"63874-0214-06 ")
 ;;823
 ;;21,"63874-0214-09 ")
 ;;824
 ;;21,"63874-0214-10 ")
 ;;825
 ;;21,"63874-0214-12 ")
 ;;826
 ;;21,"63874-0214-14 ")
 ;;827
 ;;21,"63874-0214-15 ")
 ;;828
 ;;21,"63874-0214-20 ")
 ;;829
 ;;21,"63874-0214-21 ")
 ;;830
 ;;21,"63874-0214-24 ")
 ;;831
 ;;21,"63874-0214-30 ")
 ;;832
 ;;21,"63874-0214-60 ")
 ;;833
 ;;21,"63874-0226-01 ")
 ;;834
 ;;21,"63874-0226-02 ")
 ;;835
 ;;21,"63874-0226-04 ")
 ;;836
 ;;21,"63874-0226-10 ")
 ;;837
 ;;21,"63874-0226-12 ")
 ;;838
 ;;21,"63874-0226-15 ")
 ;;839
 ;;21,"63874-0226-20 ")
 ;;840
 ;;21,"63874-0226-28 ")
 ;;841
 ;;21,"63874-0226-30 ")
 ;;842
 ;;21,"63874-0226-60 ")
 ;;843
 ;;21,"63874-0226-90 ")
 ;;844
 ;;21,"63874-0227-01 ")
 ;;845
 ;;21,"63874-0227-02 ")
 ;;846
 ;;21,"63874-0227-04 ")
 ;;847
 ;;21,"63874-0227-05 ")
 ;;848
 ;;21,"63874-0227-06 ")
 ;;849
 ;;21,"63874-0227-08 ")
 ;;850
 ;;21,"63874-0227-09 ")
 ;;851
 ;;21,"63874-0227-10 ")
 ;;852
 ;;21,"63874-0227-12 ")
 ;;853
 ;;21,"63874-0227-14 ")
 ;;854
 ;;21,"63874-0227-15 ")
 ;;855
 ;;21,"63874-0227-16 ")
 ;;856
 ;;21,"63874-0227-18 ")
 ;;857
 ;;21,"63874-0227-20 ")
 ;;858
 ;;21,"63874-0227-21 ")
 ;;859
 ;;21,"63874-0227-24 ")
 ;;860
 ;;21,"63874-0227-28 ")
 ;;861
 ;;21,"63874-0227-30 ")
 ;;862
 ;;21,"63874-0227-36 ")
 ;;863
 ;;21,"63874-0227-40 ")
 ;;864
 ;;21,"63874-0227-50 ")
 ;;865
 ;;21,"63874-0227-60 ")
 ;;866
 ;;21,"63874-0227-72 ")
 ;;867
 ;;21,"63874-0227-74 ")
 ;;868
 ;;21,"63874-0227-77 ")
 ;;869
 ;;21,"63874-0227-87 ")
 ;;870
 ;;21,"63874-0227-90 ")
 ;;871
 ;;21,"63874-0228-01 ")
 ;;872
 ;;21,"63874-0228-02 ")
 ;;873
 ;;21,"63874-0228-04 ")
 ;;874
 ;;21,"63874-0228-06 ")
 ;;875
 ;;21,"63874-0228-09 ")
 ;;876
 ;;21,"63874-0228-10 ")
 ;;877
 ;;21,"63874-0228-12 ")
 ;;878
 ;;21,"63874-0228-15 ")
 ;;879
 ;;21,"63874-0228-20 ")
 ;;880
 ;;21,"63874-0228-28 ")
 ;;881
 ;;21,"63874-0228-30 ")
 ;;882
 ;;21,"63874-0228-40 ")
 ;;883
 ;;21,"63874-0228-60 ")
 ;;884
 ;;21,"63874-0228-72 ")
 ;;885
 ;;21,"63874-0228-74 ")
 ;;886
 ;;21,"63874-0228-77 ")
 ;;887
 ;;21,"63874-0228-90 ")
 ;;888
 ;;21,"63874-0256-01 ")
 ;;889
 ;;21,"63874-0256-08 ")
 ;;890
 ;;21,"63874-0256-10 ")
 ;;891
 ;;21,"63874-0256-12 ")
 ;;892
 ;;21,"63874-0256-14 ")
 ;;893
 ;;21,"63874-0256-15 ")
 ;;894
 ;;21,"63874-0256-20 ")
 ;;895
 ;;21,"63874-0256-21 ")
 ;;896
 ;;21,"63874-0256-24 ")
 ;;897
 ;;21,"63874-0256-25 ")
 ;;898
 ;;21,"63874-0256-28 ")
 ;;899
 ;;21,"63874-0256-30 ")
 ;;900
 ;;21,"63874-0256-40 ")
 ;;901
 ;;21,"63874-0256-60 ")
 ;;902
 ;;21,"63874-0274-10 ")
 ;;903
 ;;21,"63874-0274-12 ")
 ;;904
 ;;21,"63874-0274-30 ")
 ;;905
 ;;21,"63874-0356-01 ")
 ;;906
 ;;21,"63874-0356-15 ")
 ;;907
 ;;21,"63874-0356-20 ")
 ;;908
 ;;21,"63874-0356-30 ")
 ;;909
 ;;21,"64125-0132-01 ")
 ;;910
 ;;21,"64125-0132-10 ")
 ;;911
 ;;21,"66267-0068-02 ")
 ;;912
 ;;21,"66267-0068-30 ")
 ;;913
 ;;21,"66267-0069-60 ")
 ;;914
 ;;21,"66267-0331-30 ")
 ;;915
 ;;21,"66336-0033-10 ")
 ;;916
 ;;21,"66336-0033-30 ")
 ;;917
 ;;21,"66336-0033-44 ")
 ;;918
 ;;21,"66336-0033-60 ")
 ;;919
 ;;21,"66336-0478-02 ")
 ;;920
 ;;21,"66336-0478-06 ")
 ;;921
 ;;21,"66336-0478-10 ")
 ;;922
 ;;21,"66336-0478-15 ")
 ;;923
 ;;21,"66336-0478-30 ")
 ;;924
 ;;21,"66336-0742-30 ")
 ;;925
 ;;21,"66336-0780-28 ")
 ;;926
 ;;21,"66336-0780-56 ")
 ;;927
 ;;21,"68032-0369-10 ")
 ;;928
 ;;21,"68071-0220-20 ")
 ;;929
 ;;21,"68084-0359-01 ")
 ;;930
 ;;21,"68084-0359-11 ")
 ;;931
 ;;21,"68115-0074-30 ")
 ;;932
 ;;21,"68115-0098-00 ")
 ;;933
 ;;21,"68115-0098-01 ")
 ;;934
 ;;21,"68115-0098-02 ")
 ;;935
 ;;21,"68115-0098-10 ")
 ;;936
 ;;21,"68115-0098-15 ")
 ;;937
 ;;21,"68115-0098-30 ")
 ;;938
 ;;21,"68115-0098-60 ")
 ;;939
 ;;21,"68115-0098-90 ")
 ;;940
 ;;21,"68115-0098-96 ")
 ;;941
 ;;21,"68115-0098-99 ")
 ;;942
 ;;21,"68115-0099-15 ")
 ;;943
 ;;21,"68115-0099-30 ")
 ;;944
 ;;21,"68115-0100-01 ")
 ;;945
 ;;21,"68115-0100-02 ")
 ;;946
 ;;21,"68115-0100-06 ")
 ;;947
 ;;21,"68115-0100-10 ")
 ;;948
 ;;21,"68115-0100-15 ")
 ;;949
 ;;21,"68115-0100-20 ")
 ;;950
 ;;21,"68115-0100-30 ")
 ;;951
 ;;21,"68115-0100-60 ")
 ;;952
 ;;21,"68115-0100-90 ")
 ;;953
 ;;21,"68115-0146-00 ")
 ;;954
 ;;21,"68115-0146-14 ")
 ;;955
 ;;21,"68115-0146-30 ")
 ;;956
 ;;21,"68115-0146-48 ")
 ;;957
 ;;21,"68115-0146-60 ")
 ;;958
 ;;21,"68115-0401-00 ")
 ;;959
 ;;21,"68115-0401-20 ")
 ;;960
 ;;21,"68115-0401-30 ")
 ;;961
 ;;21,"68115-0401-60 ")
 ;;962
 ;;21,"68115-0744-00 ")
 ;;963
 ;;21,"68387-0475-30 ")
 ;;964
 ;;21,"68387-0475-90 ")
 ;;965
 ;;21,"68387-0610-15 ")
 ;;966
 ;;21,"68387-0610-30 ")
 ;;967
 ;;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-0014-01 ",.01)
 ;;00140-0014-01
 ;;9002226.02101,"692,00140-0014-01 ",.02)
 ;;00140-0014-01
 ;;9002226.02101,"692,00140-0070-01 ",.01)
 ;;00140-0070-01
 ;;9002226.02101,"692,00140-0070-01 ",.02)
 ;;00140-0070-01
 ;;9002226.02101,"692,00140-0070-49 ",.01)
 ;;00140-0070-49
 ;;9002226.02101,"692,00140-0070-49 ",.02)
 ;;00140-0070-49
 ;;9002226.02101,"692,00140-0071-01 ",.01)
 ;;00140-0071-01
 ;;9002226.02101,"692,00140-0071-01 ",.02)
 ;;00140-0071-01
 ;;9002226.02101,"692,00140-0071-49 ",.01)
 ;;00140-0071-49
 ;;9002226.02101,"692,00140-0071-49 ",.02)
 ;;00140-0071-49
 ;;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-0977-01 ",.01)
 ;;00182-0977-01
 ;;9002226.02101,"692,00182-0977-01 ",.02)
 ;;00182-0977-01
 ;;9002226.02101,"692,00182-0977-89 ",.01)
 ;;00182-0977-89
 ;;9002226.02101,"692,00182-0977-89 ",.02)
 ;;00182-0977-89
 ;;9002226.02101,"692,00182-0978-01 ",.01)
 ;;00182-0978-01
 ;;9002226.02101,"692,00182-0978-01 ",.02)
 ;;00182-0978-01
 ;;9002226.02101,"692,00182-0978-05 ",.01)
 ;;00182-0978-05
 ;;9002226.02101,"692,00182-0978-05 ",.02)
 ;;00182-0978-05
 ;;9002226.02101,"692,00182-0978-10 ",.01)
 ;;00182-0978-10
 ;;9002226.02101,"692,00182-0978-10 ",.02)
 ;;00182-0978-10
 ;;9002226.02101,"692,00182-0978-89 ",.01)
 ;;00182-0978-89
 ;;9002226.02101,"692,00182-0978-89 ",.02)
 ;;00182-0978-89
 ;;9002226.02101,"692,00182-0979-01 ",.01)
 ;;00182-0979-01
 ;;9002226.02101,"692,00182-0979-01 ",.02)
 ;;00182-0979-01
 ;;9002226.02101,"692,00182-0979-89 ",.01)
 ;;00182-0979-89
 ;;9002226.02101,"692,00182-0979-89 ",.02)
 ;;00182-0979-89
 ;;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
 ;;9002226.02101,"692,00187-3751-10 ",.02)
 ;;00187-3751-10
 ;;9002226.02101,"692,00187-3758-10 ",.01)
 ;;00187-3758-10
 ;;9002226.02101,"692,00187-3758-10 ",.02)
 ;;00187-3758-10
 ;;9002226.02101,"692,00187-3805-10 ",.01)
 ;;00187-3805-10
 ;;9002226.02101,"692,00187-3805-10 ",.02)
 ;;00187-3805-10
 ;;9002226.02101,"692,00187-3806-10 ",.01)
 ;;00187-3806-10
 ;;9002226.02101,"692,00187-3806-10 ",.02)
 ;;00187-3806-10
 ;;9002226.02101,"692,00187-4051-10 ",.01)
 ;;00187-4051-10
 ;;9002226.02101,"692,00187-4051-10 ",.02)
 ;;00187-4051-10
 ;;9002226.02101,"692,00187-4052-10 ",.01)
 ;;00187-4052-10
 ;;9002226.02101,"692,00187-4052-10 ",.02)
 ;;00187-4052-10
 ;;9002226.02101,"692,00187-4100-10 ",.01)
 ;;00187-4100-10
 ;;9002226.02101,"692,00187-4100-10 ",.02)
 ;;00187-4100-10
 ;;9002226.02101,"692,00228-2051-10 ",.01)
 ;;00228-2051-10
 ;;9002226.02101,"692,00228-2051-10 ",.02)
 ;;00228-2051-10
 ;;9002226.02101,"692,00228-2051-50 ",.01)
 ;;00228-2051-50
 ;;9002226.02101,"692,00228-2051-50 ",.02)
 ;;00228-2051-50
 ;;9002226.02101,"692,00228-2052-10 ",.01)
 ;;00228-2052-10
 ;;9002226.02101,"692,00228-2052-10 ",.02)
 ;;00228-2052-10
 ;;9002226.02101,"692,00228-2052-50 ",.01)
 ;;00228-2052-50
 ;;9002226.02101,"692,00228-2052-50 ",.02)
 ;;00228-2052-50