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

BGP73G15.m

Go to the documentation of this file.
  1. BGP73G15 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 05, 2017;
  1. ;;17.1;IHS CLINICAL REPORTING;;MAY 10, 2017;Build 29
  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,"68084-0119-01 ")
  1. ;;4687
  1. ;;21,"68084-0119-11 ")
  1. ;;4688
  1. ;;21,"68084-0120-01 ")
  1. ;;4689
  1. ;;21,"68084-0120-11 ")
  1. ;;4690
  1. ;;21,"68084-0121-01 ")
  1. ;;4691
  1. ;;21,"68084-0121-11 ")
  1. ;;4692
  1. ;;21,"68084-0124-01 ")
  1. ;;4693
  1. ;;21,"68084-0125-01 ")
  1. ;;4694
  1. ;;21,"68084-0180-01 ")
  1. ;;4695
  1. ;;21,"68084-0180-11 ")
  1. ;;4696
  1. ;;21,"68084-0181-01 ")
  1. ;;4697
  1. ;;21,"68084-0181-11 ")
  1. ;;4698
  1. ;;21,"68084-0182-01 ")
  1. ;;4699
  1. ;;21,"68084-0182-11 ")
  1. ;;4700
  1. ;;21,"68084-0251-01 ")
  1. ;;4701
  1. ;;21,"68084-0251-11 ")
  1. ;;4702
  1. ;;21,"68084-0252-11 ")
  1. ;;4703
  1. ;;21,"68084-0252-21 ")
  1. ;;4704
  1. ;;21,"68084-0330-01 ")
  1. ;;4705
  1. ;;21,"68084-0330-11 ")
  1. ;;4706
  1. ;;21,"68084-0331-01 ")
  1. ;;4707
  1. ;;21,"68084-0331-11 ")
  1. ;;4708
  1. ;;21,"68084-0470-01 ")
  1. ;;4709
  1. ;;21,"68084-0470-11 ")
  1. ;;4710
  1. ;;21,"68084-0471-01 ")
  1. ;;4711
  1. ;;21,"68084-0471-11 ")
  1. ;;4712
  1. ;;21,"68084-0484-01 ")
  1. ;;4713
  1. ;;21,"68084-0484-11 ")
  1. ;;4714
  1. ;;21,"68084-0485-01 ")
  1. ;;4715
  1. ;;21,"68084-0485-11 ")
  1. ;;4716
  1. ;;21,"68084-0486-01 ")
  1. ;;4717
  1. ;;21,"68084-0486-11 ")
  1. ;;4718
  1. ;;21,"68084-0580-01 ")
  1. ;;4719
  1. ;;21,"68084-0580-11 ")
  1. ;;4720
  1. ;;21,"68084-0605-01 ")
  1. ;;4721
  1. ;;21,"68084-0605-11 ")
  1. ;;4722
  1. ;;21,"68084-0608-01 ")
  1. ;;4723
  1. ;;21,"68084-0608-11 ")
  1. ;;4724
  1. ;;21,"68084-0617-01 ")
  1. ;;4725
  1. ;;21,"68084-0617-11 ")
  1. ;;4726
  1. ;;21,"68084-0618-01 ")
  1. ;;4727
  1. ;;21,"68084-0618-11 ")
  1. ;;4728
  1. ;;21,"68084-0675-21 ")
  1. ;;4729
  1. ;;21,"68084-0683-01 ")
  1. ;;4730
  1. ;;21,"68084-0692-01 ")
  1. ;;4731
  1. ;;21,"68084-0697-01 ")
  1. ;;4732
  1. ;;21,"68084-0697-11 ")
  1. ;;4733
  1. ;;21,"68084-0698-01 ")
  1. ;;4734
  1. ;;21,"68084-0708-25 ")
  1. ;;4735
  1. ;;21,"68084-0708-95 ")
  1. ;;4736
  1. ;;21,"68084-0709-01 ")
  1. ;;4737
  1. ;;21,"68084-0709-11 ")
  1. ;;4738
  1. ;;21,"68084-0713-01 ")
  1. ;;4739
  1. ;;21,"68084-0737-01 ")
  1. ;;4740
  1. ;;21,"68084-0744-01 ")
  1. ;;4741
  1. ;;21,"68084-0790-21 ")
  1. ;;4742
  1. ;;21,"68084-0790-25 ")
  1. ;;4743
  1. ;;21,"68084-0790-95 ")
  1. ;;4744
  1. ;;21,"68084-0818-25 ")
  1. ;;4745
  1. ;;21,"68084-0837-21 ")
  1. ;;4746
  1. ;;21,"68084-0837-25 ")
  1. ;;4747
  1. ;;21,"68084-0837-95 ")
  1. ;;4748
  1. ;;21,"68084-0844-01 ")
  1. ;;4749
  1. ;;21,"68084-0844-11 ")
  1. ;;4750
  1. ;;21,"68084-0856-01 ")
  1. ;;4751
  1. ;;21,"68084-0856-11 ")
  1. ;;4752
  1. ;;21,"68084-0896-25 ")
  1. ;;4753
  1. ;;21,"68084-0896-95 ")
  1. ;;4754
  1. ;;21,"68084-0900-25 ")
  1. ;;4755
  1. ;;21,"68084-0900-95 ")
  1. ;;4756
  1. ;;21,"68084-0905-25 ")
  1. ;;4757
  1. ;;21,"68084-0905-95 ")
  1. ;;4758
  1. ;;21,"68084-0958-32 ")
  1. ;;4759
  1. ;;21,"68084-0958-33 ")
  1. ;;4760
  1. ;;21,"68084-0972-25 ")
  1. ;;4761
  1. ;;21,"68084-0972-95 ")
  1. ;;4762
  1. ;;21,"68115-0021-60 ")
  1. ;;4763
  1. ;;21,"68115-0022-20 ")
  1. ;;4764
  1. ;;21,"68115-0023-14 ")
  1. ;;4765
  1. ;;21,"68115-0023-48 ")
  1. ;;4766
  1. ;;21,"68115-0024-90 ")
  1. ;;4767
  1. ;;21,"68115-0124-90 ")
  1. ;;4768
  1. ;;21,"68115-0143-90 ")
  1. ;;4769
  1. ;;21,"68115-0261-45 ")
  1. ;;4770
  1. ;;21,"68115-0365-45 ")
  1. ;;4771
  1. ;;21,"68115-0365-60 ")
  1. ;;4772
  1. ;;21,"68115-0366-60 ")
  1. ;;4773
  1. ;;21,"68115-0412-00 ")
  1. ;;4774
  1. ;;21,"68115-0439-30 ")
  1. ;;4775
  1. ;;21,"68115-0445-30 ")
  1. ;;4776
  1. ;;21,"68115-0509-30 ")
  1. ;;4777
  1. ;;21,"68115-0765-30 ")
  1. ;;4778
  1. ;;21,"68115-0916-30 ")
  1. ;;4779
  1. ;;21,"68115-0919-30 ")
  1. ;;4780
  1. ;;21,"68180-0135-01 ")
  1. ;;4781
  1. ;;21,"68180-0136-01 ")
  1. ;;4782
  1. ;;21,"68180-0137-01 ")
  1. ;;4783
  1. ;;21,"68180-0294-03 ")
  1. ;;4784
  1. ;;21,"68180-0294-06 ")
  1. ;;4785
  1. ;;21,"68180-0294-07 ")
  1. ;;4786
  1. ;;21,"68180-0295-03 ")
  1. ;;4787
  1. ;;21,"68180-0295-06 ")
  1. ;;4788
  1. ;;21,"68180-0295-09 ")
  1. ;;4789
  1. ;;21,"68180-0296-03 ")
  1. ;;4790
  1. ;;21,"68180-0296-06 ")
  1. ;;4791
  1. ;;21,"68180-0296-09 ")
  1. ;;4792
  1. ;;21,"68180-0297-06 ")
  1. ;;4793
  1. ;;21,"68180-0311-01 ")
  1. ;;4794
  1. ;;21,"68180-0312-01 ")
  1. ;;4795
  1. ;;21,"68180-0313-01 ")
  1. ;;4796
  1. ;;21,"68180-0314-06 ")
  1. ;;4797
  1. ;;21,"68180-0315-06 ")
  1. ;;4798
  1. ;;21,"68180-0316-06 ")
  1. ;;4799
  1. ;;21,"68180-0317-06 ")
  1. ;;4800
  1. ;;21,"68180-0351-06 ")
  1. ;;4801
  1. ;;21,"68180-0351-09 ")
  1. ;;4802
  1. ;;21,"68180-0352-01 ")
  1. ;;4803
  1. ;;21,"68180-0352-02 ")
  1. ;;4804
  1. ;;21,"68180-0352-05 ")
  1. ;;4805
  1. ;;21,"68180-0352-06 ")
  1. ;;4806
  1. ;;21,"68180-0352-09 ")
  1. ;;4807
  1. ;;21,"68180-0353-01 ")
  1. ;;4808
  1. ;;21,"68180-0353-02 ")
  1. ;;4809
  1. ;;21,"68180-0353-05 ")
  1. ;;4810
  1. ;;21,"68180-0353-06 ")
  1. ;;4811
  1. ;;21,"68180-0353-09 ")
  1. ;;4812
  1. ;;21,"68258-7003-03 ")
  1. ;;4813
  1. ;;21,"68258-7005-03 ")
  1. ;;4814
  1. ;;21,"68382-0001-01 ")
  1. ;;4815
  1. ;;21,"68382-0001-05 ")
  1. ;;4816
  1. ;;21,"68382-0001-06 ")
  1. ;;4817
  1. ;;21,"68382-0001-10 ")
  1. ;;4818
  1. ;;21,"68382-0001-16 ")
  1. ;;4819
  1. ;;21,"68382-0018-01 ")
  1. ;;4820
  1. ;;21,"68382-0018-10 ")
  1. ;;4821
  1. ;;21,"68382-0019-01 ")
  1. ;;4822
  1. ;;21,"68382-0019-10 ")
  1. ;;4823
  1. ;;21,"68382-0020-01 ")
  1. ;;4824
  1. ;;21,"68382-0020-10 ")
  1. ;;4825
  1. ;;21,"68382-0021-01 ")
  1. ;;4826
  1. ;;21,"68382-0021-10 ")
  1. ;;4827
  1. ;;21,"68382-0034-06 ")
  1. ;;4828
  1. ;;21,"68382-0034-10 ")
  1. ;;4829
  1. ;;21,"68382-0034-16 ")
  1. ;;4830
  1. ;;21,"68382-0035-06 ")
  1. ;;4831
  1. ;;21,"68382-0035-10 ")
  1. ;;4832
  1. ;;21,"68382-0035-16 ")
  1. ;;4833
  1. ;;21,"68382-0036-06 ")
  1. ;;4834
  1. ;;21,"68382-0036-10 ")
  1. ;;4835
  1. ;;21,"68382-0036-16 ")
  1. ;;4836
  1. ;;21,"68382-0097-01 ")
  1. ;;4837
  1. ;;21,"68382-0097-05 ")
  1. ;;4838
  1. ;;21,"68382-0097-06 ")
  1. ;;4839
  1. ;;21,"68382-0097-10 ")
  1. ;;4840
  1. ;;21,"68382-0097-16 ")
  1. ;;4841
  1. ;;21,"68382-0098-01 ")
  1. ;;4842
  1. ;;21,"68382-0098-05 ")
  1. ;;4843
  1. ;;21,"68382-0098-06 ")
  1. ;;4844
  1. ;;21,"68382-0098-10 ")
  1. ;;4845
  1. ;;21,"68382-0098-16 ")
  1. ;;4846
  1. ;;21,"68382-0099-01 ")
  1. ;;4847
  1. ;;21,"68382-0099-05 ")
  1. ;;4848
  1. ;;21,"68382-0099-06 ")
  1. ;;4849
  1. ;;21,"68382-0099-10 ")
  1. ;;4850
  1. ;;21,"68382-0099-16 ")
  1. ;;4851
  1. ;;21,"68382-0100-06 ")
  1. ;;4852
  1. ;;21,"68382-0101-01 ")
  1. ;;4853
  1. ;;21,"68382-0101-10 ")
  1. ;;4854
  1. ;;21,"68382-0354-05 ")
  1. ;;4855
  1. ;;21,"68382-0354-06 ")
  1. ;;4856
  1. ;;21,"68382-0385-14 ")
  1. ;;4857
  1. ;;21,"68382-0386-06 ")
  1. ;;4858
  1. ;;21,"68382-0386-16 ")
  1. ;;4859
  1. ;;21,"68382-0387-06 ")
  1. ;;4860
  1. ;;21,"68387-0120-30 ")
  1. ;;4861
  1. ;;21,"68387-0120-60 ")
  1. ;;4862
  1. ;;21,"68387-0120-90 ")
  1. ;;4863
  1. ;;21,"68387-0125-30 ")
  1. ;;4864
  1. ;;21,"68387-0127-30 ")
  1. ;;4865
  1. ;;21,"68387-0128-30 ")
  1. ;;4866
  1. ;;21,"68387-0160-30 ")
  1. ;;4867
  1. ;;21,"68387-0165-30 ")
  1. ;;4868
  1. ;;21,"68387-0165-90 ")
  1. ;;4869
  1. ;;21,"68387-0166-30 ")
  1. ;;4870
  1. ;;21,"68387-0166-60 ")
  1. ;;4871
  1. ;;21,"68387-0330-15 ")
  1. ;;4872
  1. ;;21,"68387-0330-30 ")
  1. ;;4873
  1. ;;21,"68387-0330-60 ")
  1. ;;4874
  1. ;;21,"68387-0335-15 ")
  1. ;;4875
  1. ;;21,"68387-0335-24 ")
  1. ;;4876
  1. ;;21,"68387-0335-30 ")
  1. ;;4877
  1. ;;21,"68387-0335-60 ")
  1. ;;4878
  1. ;;21,"68387-0335-90 ")
  1. ;;4879
  1. ;;21,"68387-0336-30 ")
  1. ;;4880
  1. ;;21,"68387-0336-90 ")
  1. ;;4881
  1. ;;21,"68387-0337-24 ")
  1. ;;4882
  1. ;;21,"68387-0337-30 ")
  1. ;;4883
  1. ;;21,"68387-0338-30 ")
  1. ;;4884
  1. ;;21,"68387-0339-30 ")
  1. ;;4885
  1. ;;21,"68387-0349-15 ")
  1. ;;4886
  1. ;;21,"68387-0349-30 ")
  1. ;;4887
  1. ;;21,"68387-0350-30 ")
  1. ;;4888
  1. ;;21,"68387-0350-60 ")
  1. ;;4889
  1. ;;21,"68387-0353-60 ")
  1. ;;4890
  1. ;;21,"68387-0360-60 ")
  1. ;;4891
  1. ;;21,"68387-0363-07 ")
  1. ;;4892
  1. ;;21,"68387-0363-15 ")
  1. ;;4893
  1. ;;21,"68387-0363-30 ")
  1. ;;4894
  1. ;;21,"68387-0553-30 ")
  1. ;;4895
  1. ;;21,"68387-0553-60 ")
  1. ;;4896
  1. ;;21,"68387-0554-30 ")
  1. ;;4897
  1. ;;21,"68387-0554-60 ")
  1. ;;4898
  1. ;;21,"68645-0130-54 ")
  1. ;;4899
  1. ;;21,"68645-0131-54 ")
  1. ;;4900
  1. ;;21,"68645-0252-54 ")
  1. ;;4901
  1. ;;21,"68645-0282-54 ")
  1. ;;4902
  1. ;;21,"68645-0424-54 ")
  1. ;;4903
  1. ;;21,"68645-0425-54 ")
  1. ;;4904
  1. ;;21,"68645-0426-54 ")
  1. ;;4905
  1. ;;21,"68645-0447-70 ")
  1. ;;4906
  1. ;;21,"68645-0448-70 ")
  1. ;;4907
  1. ;;21,"68645-0451-70 ")
  1. ;;4908
  1. ;;21,"68645-0452-70 ")
  1. ;;4909
  1. ;;21,"68645-0467-54 ")
  1. ;;4910
  1. ;;21,"68645-0487-70 ")
  1. ;;4911
  1. ;;21,"68645-0488-70 ")
  1. ;;4912
  1. ;;21,"68645-0489-70 ")
  1. ;;4913
  1. ;;21,"68645-0498-01 ")
  1. ;;4914
  1. ;;21,"68645-0499-01 ")
  1. ;;4915
  1. ;;21,"68645-0500-01 ")
  1. ;;4916
  1. ;;21,"68727-0600-01 ")
  1. ;;4917
  1. ;;21,"68727-0601-01 ")
  1. ;;4918
  1. ;;21,"68968-2010-01 ")
  1. ;;4919
  1. ;;21,"68968-2020-01 ")
  1. ;;4920
  1. ;;21,"68968-2030-01 ")
  1. ;;4921
  1. ;;21,"68968-2040-01 ")
  1. ;;4922
  1. ;;21,"68968-9075-03 ")
  1. ;;4923
  1. ;;21,"69097-0297-03 ")
  1. ;;4924
  1. ;;21,"69097-0298-02 ")
  1. ;;4925
  1. ;;21,"69097-0299-02 ")
  1. ;;4926
  1. ;;21,"69097-0822-07 ")
  1. ;;4927
  1. ;;21,"69097-0822-12 ")
  1. ;;4928
  1. ;;21,"69097-0823-07 ")
  1. ;;4929
  1. ;;21,"69097-0823-12 ")
  1. ;;4930
  1. ;;21,"69097-0824-07 ")
  1. ;;4931
  1. ;;21,"69097-0824-12 ")
  1. ;;4932
  1. ;;21,"69097-0833-02 ")
  1. ;;4933
  1. ;;21,"69097-0833-12 ")
  1. ;;4934
  1. ;;21,"69097-0834-02 ")
  1. ;;4935
  1. ;;21,"69097-0834-12 ")
  1. ;;4936
  1. ;;21,"69097-0835-02 ")
  1. ;;4937
  1. ;;21,"69097-0835-12 ")
  1. ;;4938
  1. ;;21,"69097-0847-05 ")
  1. ;;4939
  1. ;;21,"69097-0848-05 ")
  1. ;;4940
  1. ;;21,"69097-0849-05 ")
  1. ;;4941
  1. ;;21,"69238-1053-01 ")
  1. ;;4942
  1. ;;21,"69238-1053-03 ")
  1. ;;4943
  1. ;;21,"69238-1055-01 ")
  1. ;;4944
  1. ;;21,"69238-1057-01 ")
  1. ;;4945
  1. ;;21,"69238-1059-01 ")
  1. ;;4946
  1. ;;21,"69238-1061-01 ")
  1. ;;4947
  1. ;;21,"69238-1063-02 ")
  1. ;;4948
  1. ;;21,"69315-0133-01 ")
  1. ;;4949
  1. ;;21,"69315-0133-10 ")
  1. ;;4950
  1. ;;21,"69315-0134-01 ")
  1. ;;4951
  1. ;;21,"69315-0134-10 ")
  1. ;;4952
  1. ;;21,"69315-0135-01 ")
  1. ;;4953
  1. ;;21,"69315-0135-10 ")
  1. ;;4954
  1. ;;21,"69874-0422-10 ")
  1. ;;4955
  1. ;;21,"76282-0206-01 ")
  1. ;;4956
  1. ;;21,"76282-0206-05 ")
  1. ;;4957
  1. ;;21,"76282-0206-10 ")
  1. ;;4958
  1. ;;21,"76282-0207-01 ")
  1. ;;4959
  1. ;;21,"76282-0207-05 ")
  1. ;;4960
  1. ;;21,"76282-0207-10 ")
  1. ;;4961
  1. ;;21,"76282-0207-30 ")
  1. ;;4962
  1. ;;21,"76282-0208-01 ")
  1. ;;4963
  1. ;;21,"76282-0208-05 ")
  1. ;;4964
  1. ;;21,"76282-0208-10 ")
  1. ;;4965
  1. ;;21,"76282-0208-30 ")
  1. ;;4966
  1. ;;21,"76282-0212-01 ")
  1. ;;4967
  1. ;;21,"76282-0212-05 ")
  1. ;;4968
  1. ;;21,"76282-0212-90 ")
  1. ;;4969
  1. ;;21,"76282-0213-01 ")
  1. ;;4970
  1. ;;21,"76282-0213-05 ")
  1. ;;4971
  1. ;;21,"76282-0213-30 ")
  1. ;;4972
  1. ;;21,"76282-0213-90 ")
  1. ;;4973
  1. ;;21,"76282-0214-01 ")
  1. ;;4974
  1. ;;21,"76282-0214-05 ")
  1. ;;4975
  1. ;;21,"76282-0214-90 ")
  1. ;;4976
  1. ;;21,"76282-0249-90 ")
  1. ;;4977
  1. ;;21,"76282-0250-10 ")
  1. ;;4978
  1. ;;21,"76282-0250-90 ")
  1. ;;4979
  1. ;;21,"76282-0251-10 ")
  1. ;;4980
  1. ;;21,"76282-0251-90 ")
  1. ;;4981
  1. ;;9002226,869,.01)
  1. ;;BGP HEDIS ANTIDEPRESSANT NDC
  1. ;;9002226,869,.02)
  1. ;;@
  1. ;;9002226,869,.04)
  1. ;;n
  1. ;;9002226,869,.06)
  1. ;;@
  1. ;;9002226,869,.08)
  1. ;;@
  1. ;;9002226,869,.09)
  1. ;;3170105
  1. ;;9002226,869,.11)
  1. ;;@
  1. ;;9002226,869,.12)
  1. ;;@
  1. ;;9002226,869,.13)
  1. ;;1
  1. ;;9002226,869,.14)
  1. ;;@
  1. ;;9002226,869,.15)
  1. ;;50.67
  1. ;;9002226,869,.16)
  1. ;;@
  1. ;;9002226,869,.17)
  1. ;;@
  1. ;;9002226,869,.22)
  1. ;;1
  1. ;;9002226,869,3101)
  1. ;;@
  1. ;;9002226.02101,"869,00002-3004-75 ",.01)
  1. ;;00002-3004-75
  1. ;;9002226.02101,"869,00002-3004-75 ",.02)
  1. ;;00002-3004-75
  1. ;;9002226.02101,"869,00002-3230-30 ",.01)
  1. ;;00002-3230-30
  1. ;;9002226.02101,"869,00002-3230-30 ",.02)
  1. ;;00002-3230-30
  1. ;;9002226.02101,"869,00002-3231-01 ",.01)
  1. ;;00002-3231-01
  1. ;;9002226.02101,"869,00002-3231-01 ",.02)
  1. ;;00002-3231-01
  1. ;;9002226.02101,"869,00002-3231-30 ",.01)
  1. ;;00002-3231-30
  1. ;;9002226.02101,"869,00002-3231-30 ",.02)
  1. ;;00002-3231-30
  1. ;;9002226.02101,"869,00002-3231-33 ",.01)
  1. ;;00002-3231-33
  1. ;;9002226.02101,"869,00002-3231-33 ",.02)
  1. ;;00002-3231-33
  1. ;;9002226.02101,"869,00002-3232-30 ",.01)
  1. ;;00002-3232-30
  1. ;;9002226.02101,"869,00002-3232-30 ",.02)
  1. ;;00002-3232-30
  1. ;;9002226.02101,"869,00002-3233-01 ",.01)
  1. ;;00002-3233-01
  1. ;;9002226.02101,"869,00002-3233-01 ",.02)
  1. ;;00002-3233-01
  1. ;;9002226.02101,"869,00002-3233-30 ",.01)
  1. ;;00002-3233-30