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