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

BGP8ZH15.m

Go to the documentation of this file.
  1. BGP8ZH15 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 22, 2018;
  1. ;;18.0;IHS CLINICAL REPORTING;**1**;NOV 21, 2017;Build 62
  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,"63874-0233-12 ")
  1. ;;4687
  1. ;;21,"63874-0233-15 ")
  1. ;;4688
  1. ;;21,"63874-0233-16 ")
  1. ;;4689
  1. ;;21,"63874-0233-20 ")
  1. ;;4690
  1. ;;21,"63874-0233-24 ")
  1. ;;4691
  1. ;;21,"63874-0233-28 ")
  1. ;;4692
  1. ;;21,"63874-0233-30 ")
  1. ;;4693
  1. ;;21,"63874-0233-36 ")
  1. ;;4694
  1. ;;21,"63874-0233-40 ")
  1. ;;4695
  1. ;;21,"63874-0233-50 ")
  1. ;;4696
  1. ;;21,"63874-0233-60 ")
  1. ;;4697
  1. ;;21,"63874-0235-01 ")
  1. ;;4698
  1. ;;21,"63874-0235-04 ")
  1. ;;4699
  1. ;;21,"63874-0235-10 ")
  1. ;;4700
  1. ;;21,"63874-0235-12 ")
  1. ;;4701
  1. ;;21,"63874-0235-15 ")
  1. ;;4702
  1. ;;21,"63874-0235-16 ")
  1. ;;4703
  1. ;;21,"63874-0235-20 ")
  1. ;;4704
  1. ;;21,"63874-0235-21 ")
  1. ;;4705
  1. ;;21,"63874-0235-28 ")
  1. ;;4706
  1. ;;21,"63874-0235-30 ")
  1. ;;4707
  1. ;;21,"63874-0235-40 ")
  1. ;;4708
  1. ;;21,"63874-0235-56 ")
  1. ;;4709
  1. ;;21,"63874-0235-80 ")
  1. ;;4710
  1. ;;21,"63874-0237-05 ")
  1. ;;4711
  1. ;;21,"63874-0237-50 ")
  1. ;;4712
  1. ;;21,"63874-0239-20 ")
  1. ;;4713
  1. ;;21,"63874-0239-30 ")
  1. ;;4714
  1. ;;21,"63874-0241-15 ")
  1. ;;4715
  1. ;;21,"63874-0241-20 ")
  1. ;;4716
  1. ;;21,"63874-0241-30 ")
  1. ;;4717
  1. ;;21,"63874-0241-50 ")
  1. ;;4718
  1. ;;21,"63874-0241-60 ")
  1. ;;4719
  1. ;;21,"63874-0246-00 ")
  1. ;;4720
  1. ;;21,"63874-0246-04 ")
  1. ;;4721
  1. ;;21,"63874-0246-06 ")
  1. ;;4722
  1. ;;21,"63874-0246-10 ")
  1. ;;4723
  1. ;;21,"63874-0246-15 ")
  1. ;;4724
  1. ;;21,"63874-0523-01 ")
  1. ;;4725
  1. ;;21,"63874-0523-03 ")
  1. ;;4726
  1. ;;21,"63874-0523-05 ")
  1. ;;4727
  1. ;;21,"63874-0523-06 ")
  1. ;;4728
  1. ;;21,"63874-0523-07 ")
  1. ;;4729
  1. ;;21,"63874-0523-10 ")
  1. ;;4730
  1. ;;21,"63874-0523-14 ")
  1. ;;4731
  1. ;;21,"63874-0523-20 ")
  1. ;;4732
  1. ;;21,"63874-0523-30 ")
  1. ;;4733
  1. ;;21,"63874-0533-01 ")
  1. ;;4734
  1. ;;21,"63874-0533-04 ")
  1. ;;4735
  1. ;;21,"63874-0533-10 ")
  1. ;;4736
  1. ;;21,"63874-0533-12 ")
  1. ;;4737
  1. ;;21,"63874-0533-14 ")
  1. ;;4738
  1. ;;21,"63874-0533-15 ")
  1. ;;4739
  1. ;;21,"63874-0533-20 ")
  1. ;;4740
  1. ;;21,"63874-0533-25 ")
  1. ;;4741
  1. ;;21,"63874-0533-28 ")
  1. ;;4742
  1. ;;21,"63874-0533-30 ")
  1. ;;4743
  1. ;;21,"63874-0533-40 ")
  1. ;;4744
  1. ;;21,"63874-0533-60 ")
  1. ;;4745
  1. ;;21,"63874-0533-72 ")
  1. ;;4746
  1. ;;21,"63874-0533-74 ")
  1. ;;4747
  1. ;;21,"63874-0533-77 ")
  1. ;;4748
  1. ;;21,"63874-0533-90 ")
  1. ;;4749
  1. ;;21,"63874-1086-06 ")
  1. ;;4750
  1. ;;21,"63874-1112-02 ")
  1. ;;4751
  1. ;;21,"64038-0033-01 ")
  1. ;;4752
  1. ;;21,"64038-0033-40 ")
  1. ;;4753
  1. ;;21,"64376-0130-01 ")
  1. ;;4754
  1. ;;21,"64376-0130-55 ")
  1. ;;4755
  1. ;;21,"64376-0131-01 ")
  1. ;;4756
  1. ;;21,"64376-0131-51 ")
  1. ;;4757
  1. ;;21,"64376-0131-55 ")
  1. ;;4758
  1. ;;21,"64376-0132-01 ")
  1. ;;4759
  1. ;;21,"64376-0132-22 ")
  1. ;;4760
  1. ;;21,"64376-0132-55 ")
  1. ;;4761
  1. ;;21,"64679-0544-02 ")
  1. ;;4762
  1. ;;21,"64679-0544-03 ")
  1. ;;4763
  1. ;;21,"64679-0545-02 ")
  1. ;;4764
  1. ;;21,"64679-0545-03 ")
  1. ;;4765
  1. ;;21,"64679-0547-01 ")
  1. ;;4766
  1. ;;21,"64679-0547-02 ")
  1. ;;4767
  1. ;;21,"64679-0547-03 ")
  1. ;;4768
  1. ;;21,"64679-0701-01 ")
  1. ;;4769
  1. ;;21,"64679-0701-02 ")
  1. ;;4770
  1. ;;21,"64679-0701-03 ")
  1. ;;4771
  1. ;;21,"64679-0702-01 ")
  1. ;;4772
  1. ;;21,"64679-0702-02 ")
  1. ;;4773
  1. ;;21,"64679-0703-01 ")
  1. ;;4774
  1. ;;21,"64679-0703-02 ")
  1. ;;4775
  1. ;;21,"64679-0712-03 ")
  1. ;;4776
  1. ;;21,"64679-0713-01 ")
  1. ;;4777
  1. ;;21,"64679-0713-03 ")
  1. ;;4778
  1. ;;21,"64679-0921-01 ")
  1. ;;4779
  1. ;;21,"64679-0921-02 ")
  1. ;;4780
  1. ;;21,"64679-0922-01 ")
  1. ;;4781
  1. ;;21,"64679-0922-02 ")
  1. ;;4782
  1. ;;21,"64679-0949-01 ")
  1. ;;4783
  1. ;;21,"64679-0954-01 ")
  1. ;;4784
  1. ;;21,"64679-0961-01 ")
  1. ;;4785
  1. ;;21,"64679-0961-04 ")
  1. ;;4786
  1. ;;21,"64679-0961-05 ")
  1. ;;4787
  1. ;;21,"64679-0962-01 ")
  1. ;;4788
  1. ;;21,"64679-0964-01 ")
  1. ;;4789
  1. ;;21,"64679-0964-03 ")
  1. ;;4790
  1. ;;21,"64679-0964-04 ")
  1. ;;4791
  1. ;;21,"64679-0964-05 ")
  1. ;;4792
  1. ;;21,"64679-0983-01 ")
  1. ;;4793
  1. ;;21,"64679-0983-02 ")
  1. ;;4794
  1. ;;21,"64720-0152-10 ")
  1. ;;4795
  1. ;;21,"64860-0306-13 ")
  1. ;;4796
  1. ;;21,"64860-0306-40 ")
  1. ;;4797
  1. ;;21,"64860-0307-13 ")
  1. ;;4798
  1. ;;21,"64860-0307-40 ")
  1. ;;4799
  1. ;;21,"64980-0511-10 ")
  1. ;;4800
  1. ;;21,"65162-0202-01 ")
  1. ;;4801
  1. ;;21,"65162-0202-02 ")
  1. ;;4802
  1. ;;21,"65162-0202-08 ")
  1. ;;4803
  1. ;;21,"65162-0202-14 ")
  1. ;;4804
  1. ;;21,"65162-0313-01 ")
  1. ;;4805
  1. ;;21,"65162-0313-02 ")
  1. ;;4806
  1. ;;21,"65162-0313-08 ")
  1. ;;4807
  1. ;;21,"65162-0313-14 ")
  1. ;;4808
  1. ;;21,"65162-0468-19 ")
  1. ;;4809
  1. ;;21,"65224-0800-22 ")
  1. ;;4810
  1. ;;21,"65224-0804-02 ")
  1. ;;4811
  1. ;;21,"65293-0014-01 ")
  1. ;;4812
  1. ;;21,"65293-0014-10 ")
  1. ;;4813
  1. ;;21,"65862-0014-01 ")
  1. ;;4814
  1. ;;21,"65862-0014-05 ")
  1. ;;4815
  1. ;;21,"65862-0015-01 ")
  1. ;;4816
  1. ;;21,"65862-0015-05 ")
  1. ;;4817
  1. ;;21,"65862-0016-01 ")
  1. ;;4818
  1. ;;21,"65862-0016-05 ")
  1. ;;4819
  1. ;;21,"65862-0017-01 ")
  1. ;;4820
  1. ;;21,"65862-0017-05 ")
  1. ;;4821
  1. ;;21,"65862-0018-01 ")
  1. ;;4822
  1. ;;21,"65862-0018-05 ")
  1. ;;4823
  1. ;;21,"65862-0018-40 ")
  1. ;;4824
  1. ;;21,"65862-0019-01 ")
  1. ;;4825
  1. ;;21,"65862-0019-05 ")
  1. ;;4826
  1. ;;21,"65862-0019-40 ")
  1. ;;4827
  1. ;;21,"65862-0034-20 ")
  1. ;;4828
  1. ;;21,"65862-0034-60 ")
  1. ;;4829
  1. ;;21,"65862-0035-20 ")
  1. ;;4830
  1. ;;21,"65862-0035-60 ")
  1. ;;4831
  1. ;;21,"65862-0068-01 ")
  1. ;;4832
  1. ;;21,"65862-0068-50 ")
  1. ;;4833
  1. ;;21,"65862-0069-01 ")
  1. ;;4834
  1. ;;21,"65862-0069-50 ")
  1. ;;4835
  1. ;;21,"65862-0070-01 ")
  1. ;;4836
  1. ;;21,"65862-0070-50 ")
  1. ;;4837
  1. ;;21,"65862-0070-75 ")
  1. ;;4838
  1. ;;21,"65862-0071-01 ")
  1. ;;4839
  1. ;;21,"65862-0071-50 ")
  1. ;;4840
  1. ;;21,"65862-0071-75 ")
  1. ;;4841
  1. ;;21,"65862-0076-01 ")
  1. ;;4842
  1. ;;21,"65862-0077-01 ")
  1. ;;4843
  1. ;;21,"65862-0078-50 ")
  1. ;;4844
  1. ;;21,"65862-0083-01 ")
  1. ;;4845
  1. ;;21,"65862-0084-01 ")
  1. ;;4846
  1. ;;21,"65862-0084-75 ")
  1. ;;4847
  1. ;;21,"65862-0085-01 ")
  1. ;;4848
  1. ;;21,"65862-0085-50 ")
  1. ;;4849
  1. ;;21,"65862-0095-01 ")
  1. ;;4850
  1. ;;21,"65862-0095-20 ")
  1. ;;4851
  1. ;;21,"65862-0096-01 ")
  1. ;;4852
  1. ;;21,"65862-0096-20 ")
  1. ;;4853
  1. ;;21,"65862-0099-01 ")
  1. ;;4854
  1. ;;21,"65862-0099-75 ")
  1. ;;4855
  1. ;;21,"65862-0100-01 ")
  1. ;;4856
  1. ;;21,"65862-0100-75 ")
  1. ;;4857
  1. ;;21,"65862-0140-01 ")
  1. ;;4858
  1. ;;21,"65862-0140-50 ")
  1. ;;4859
  1. ;;21,"65862-0141-01 ")
  1. ;;4860
  1. ;;21,"65862-0141-50 ")
  1. ;;4861
  1. ;;21,"65862-0175-01 ")
  1. ;;4862
  1. ;;21,"65862-0175-99 ")
  1. ;;4863
  1. ;;21,"65862-0176-01 ")
  1. ;;4864
  1. ;;21,"65862-0176-05 ")
  1. ;;4865
  1. ;;21,"65862-0176-99 ")
  1. ;;4866
  1. ;;21,"65862-0177-60 ")
  1. ;;4867
  1. ;;21,"65862-0185-01 ")
  1. ;;4868
  1. ;;21,"65862-0185-05 ")
  1. ;;4869
  1. ;;21,"65862-0186-01 ")
  1. ;;4870
  1. ;;21,"65862-0209-01 ")
  1. ;;4871
  1. ;;21,"65862-0210-01 ")
  1. ;;4872
  1. ;;21,"65862-0211-05 ")
  1. ;;4873
  1. ;;21,"65862-0211-50 ")
  1. ;;4874
  1. ;;21,"65862-0218-01 ")
  1. ;;4875
  1. ;;21,"65862-0218-60 ")
  1. ;;4876
  1. ;;21,"65862-0219-01 ")
  1. ;;4877
  1. ;;21,"65862-0219-60 ")
  1. ;;4878
  1. ;;21,"65862-0225-60 ")
  1. ;;4879
  1. ;;21,"65862-0226-60 ")
  1. ;;4880
  1. ;;21,"65862-0419-01 ")
  1. ;;4881
  1. ;;21,"65862-0419-05 ")
  1. ;;4882
  1. ;;21,"65862-0420-01 ")
  1. ;;4883
  1. ;;21,"65862-0420-05 ")
  1. ;;4884
  1. ;;21,"65862-0496-47 ")
  1. ;;4885
  1. ;;21,"65862-0501-30 ")
  1. ;;4886
  1. ;;21,"65862-0502-20 ")
  1. ;;4887
  1. ;;21,"65862-0503-01 ")
  1. ;;4888
  1. ;;21,"65862-0503-20 ")
  1. ;;4889
  1. ;;21,"65862-0533-01 ")
  1. ;;4890
  1. ;;21,"65862-0533-50 ")
  1. ;;4891
  1. ;;21,"65862-0533-75 ")
  1. ;;4892
  1. ;;21,"65862-0534-01 ")
  1. ;;4893
  1. ;;21,"65862-0534-50 ")
  1. ;;4894
  1. ;;21,"65862-0534-75 ")
  1. ;;4895
  1. ;;21,"65862-0535-02 ")
  1. ;;4896
  1. ;;21,"65862-0535-13 ")
  1. ;;4897
  1. ;;21,"65862-0535-75 ")
  1. ;;4898
  1. ;;21,"65862-0536-50 ")
  1. ;;4899
  1. ;;21,"65862-0537-50 ")
  1. ;;4900
  1. ;;21,"65862-0538-20 ")
  1. ;;4901
  1. ;;21,"65862-0596-01 ")
  1. ;;4902
  1. ;;21,"65862-0603-30 ")
  1. ;;4903
  1. ;;21,"65862-0699-20 ")
  1. ;;4904
  1. ;;21,"65862-0699-60 ")
  1. ;;4905
  1. ;;21,"65862-0700-20 ")
  1. ;;4906
  1. ;;21,"65862-0700-60 ")
  1. ;;4907
  1. ;;21,"65862-0706-01 ")
  1. ;;4908
  1. ;;21,"65862-0706-55 ")
  1. ;;4909
  1. ;;21,"65862-0706-80 ")
  1. ;;4910
  1. ;;21,"65862-0707-01 ")
  1. ;;4911
  1. ;;21,"65862-0707-55 ")
  1. ;;4912
  1. ;;21,"65862-0707-80 ")
  1. ;;4913
  1. ;;21,"65862-0751-50 ")
  1. ;;4914
  1. ;;21,"65862-0752-50 ")
  1. ;;4915
  1. ;;21,"65862-0752-75 ")
  1. ;;4916
  1. ;;21,"66105-0108-10 ")
  1. ;;4917
  1. ;;21,"66105-0109-01 ")
  1. ;;4918
  1. ;;21,"66105-0109-02 ")
  1. ;;4919
  1. ;;21,"66105-0109-03 ")
  1. ;;4920
  1. ;;21,"66105-0109-06 ")
  1. ;;4921
  1. ;;21,"66105-0109-10 ")
  1. ;;4922
  1. ;;21,"66105-0477-05 ")
  1. ;;4923
  1. ;;21,"66105-0478-05 ")
  1. ;;4924
  1. ;;21,"66105-0507-01 ")
  1. ;;4925
  1. ;;21,"66105-0507-03 ")
  1. ;;4926
  1. ;;21,"66105-0507-06 ")
  1. ;;4927
  1. ;;21,"66105-0507-09 ")
  1. ;;4928
  1. ;;21,"66105-0507-10 ")
  1. ;;4929
  1. ;;21,"66105-0537-01 ")
  1. ;;4930
  1. ;;21,"66105-0537-03 ")
  1. ;;4931
  1. ;;21,"66105-0537-06 ")
  1. ;;4932
  1. ;;21,"66105-0537-09 ")
  1. ;;4933
  1. ;;21,"66105-0537-15 ")
  1. ;;4934
  1. ;;21,"66105-0670-01 ")
  1. ;;4935
  1. ;;21,"66105-0670-03 ")
  1. ;;4936
  1. ;;21,"66105-0670-05 ")
  1. ;;4937
  1. ;;21,"66105-0670-06 ")
  1. ;;4938
  1. ;;21,"66105-0670-18 ")
  1. ;;4939
  1. ;;21,"66105-0743-01 ")
  1. ;;4940
  1. ;;21,"66105-0743-03 ")
  1. ;;4941
  1. ;;21,"66105-0743-06 ")
  1. ;;4942
  1. ;;21,"66105-0743-09 ")
  1. ;;4943
  1. ;;21,"66105-0743-15 ")
  1. ;;4944
  1. ;;21,"66105-0744-01 ")
  1. ;;4945
  1. ;;21,"66105-0744-03 ")
  1. ;;4946
  1. ;;21,"66105-0744-06 ")
  1. ;;4947
  1. ;;21,"66105-0744-09 ")
  1. ;;4948
  1. ;;21,"66105-0744-15 ")
  1. ;;4949
  1. ;;21,"66105-0745-01 ")
  1. ;;4950
  1. ;;21,"66105-0745-03 ")
  1. ;;4951
  1. ;;21,"66105-0745-06 ")
  1. ;;4952
  1. ;;21,"66105-0745-09 ")
  1. ;;4953
  1. ;;21,"66105-0745-15 ")
  1. ;;4954
  1. ;;21,"66267-0021-15 ")
  1. ;;4955
  1. ;;21,"66267-0023-08 ")
  1. ;;4956
  1. ;;21,"66267-0023-09 ")
  1. ;;4957
  1. ;;21,"66267-0023-15 ")
  1. ;;4958
  1. ;;21,"66267-0023-20 ")
  1. ;;4959
  1. ;;21,"66267-0023-60 ")
  1. ;;4960
  1. ;;21,"66267-0024-30 ")
  1. ;;4961
  1. ;;21,"66267-0025-30 ")
  1. ;;4962
  1. ;;21,"66267-0034-14 ")
  1. ;;4963
  1. ;;21,"66267-0034-20 ")
  1. ;;4964
  1. ;;21,"66267-0045-30 ")
  1. ;;4965
  1. ;;21,"66267-0050-05 ")
  1. ;;4966
  1. ;;21,"66267-0050-06 ")
  1. ;;4967
  1. ;;21,"66267-0050-10 ")
  1. ;;4968
  1. ;;21,"66267-0060-04 ")
  1. ;;4969
  1. ;;21,"66267-0060-06 ")
  1. ;;4970
  1. ;;21,"66267-0060-08 ")
  1. ;;4971
  1. ;;21,"66267-0060-10 ")
  1. ;;4972
  1. ;;21,"66267-0060-14 ")
  1. ;;4973
  1. ;;21,"66267-0060-21 ")
  1. ;;4974
  1. ;;21,"66267-0060-30 ")
  1. ;;4975
  1. ;;21,"66267-0060-40 ")
  1. ;;4976
  1. ;;21,"66267-0060-60 ")
  1. ;;4977
  1. ;;21,"66267-0196-30 ")
  1. ;;4978
  1. ;;21,"66267-0919-06 ")
  1. ;;4979
  1. ;;21,"66267-0919-10 ")
  1. ;;4980
  1. ;;21,"66267-0919-15 ")
  1. ;;4981
  1. ;;21,"66267-0919-28 ")
  1. ;;4982
  1. ;;21,"66267-0919-30 ")
  1. ;;4983
  1. ;;21,"66267-0919-60 ")
  1. ;;4984
  1. ;;21,"66336-0018-20 ")
  1. ;;4985
  1. ;;21,"66336-0018-28 ")
  1. ;;4986
  1. ;;21,"66336-0018-42 ")
  1. ;;4987
  1. ;;21,"66336-0055-30 ")
  1. ;;4988
  1. ;;21,"66336-0074-20 ")
  1. ;;4989
  1. ;;21,"66336-0087-06 ")
  1. ;;4990
  1. ;;21,"66336-0087-10 ")
  1. ;;4991
  1. ;;21,"66336-0087-14 ")
  1. ;;4992
  1. ;;21,"66336-0087-20 ")
  1. ;;4993
  1. ;;21,"66336-0095-20 ")
  1. ;;4994
  1. ;;21,"66336-0095-28 ")
  1. ;;4995
  1. ;;21,"66336-0095-30 ")
  1. ;;4996
  1. ;;21,"66336-0095-40 ")
  1. ;;4997
  1. ;;21,"66336-0098-21 ")
  1. ;;4998
  1. ;;21,"66336-0098-30 ")
  1. ;;4999
  1. ;;21,"66336-0109-14 ")
  1. ;;5000
  1. ;;21,"66336-0109-28 ")
  1. ;;5001
  1. ;;21,"66336-0109-30 ")
  1. ;;5002
  1. ;;21,"66336-0293-30 ")
  1. ;;5003
  1. ;;21,"66336-0433-14 ")
  1. ;;5004
  1. ;;21,"66336-0441-06 ")
  1. ;;5005
  1. ;;21,"66336-0580-28 ")
  1. ;;5006
  1. ;;21,"66336-0580-30 ")
  1. ;;5007
  1. ;;21,"66336-0609-06 ")
  1. ;;5008
  1. ;;21,"66336-0609-12 ")
  1. ;;5009
  1. ;;21,"66336-0609-20 ")
  1. ;;5010
  1. ;;21,"66336-0609-28 ")
  1. ;;5011
  1. ;;21,"66336-0609-40 ")
  1. ;;5012
  1. ;;21,"66336-0617-30 ")
  1. ;;5013
  1. ;;21,"66336-0617-40 ")
  1. ;;5014
  1. ;;21,"66336-0634-21 ")
  1. ;;5015
  1. ;;21,"66336-0634-30 ")
  1. ;;5016
  1. ;;21,"66336-0634-40 ")
  1. ;;5017
  1. ;;21,"66336-0634-42 ")
  1. ;;5018
  1. ;;21,"66336-0644-40 ")
  1. ;;5019