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

BGP47D13.m

Go to the documentation of this file.
BGP47D13 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 16, 2014;
 ;;14.1;IHS CLINICAL REPORTING;;MAY 29, 2014;Build 114
 ;
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,"55289-0727-20 ")
 ;;4655
 ;;21,"55289-0727-30 ")
 ;;4656
 ;;21,"55289-0746-06 ")
 ;;4657
 ;;21,"55289-0746-10 ")
 ;;4658
 ;;21,"55289-0749-30 ")
 ;;4659
 ;;21,"55289-0767-14 ")
 ;;4660
 ;;21,"55289-0767-20 ")
 ;;4661
 ;;21,"55289-0767-21 ")
 ;;4662
 ;;21,"55289-0767-28 ")
 ;;4663
 ;;21,"55289-0767-30 ")
 ;;4664
 ;;21,"55289-0821-03 ")
 ;;4665
 ;;21,"55289-0821-06 ")
 ;;4666
 ;;21,"55289-0821-10 ")
 ;;4667
 ;;21,"55289-0821-14 ")
 ;;4668
 ;;21,"55289-0821-20 ")
 ;;4669
 ;;21,"55289-0821-30 ")
 ;;4670
 ;;21,"55289-0821-40 ")
 ;;4671
 ;;21,"55289-0821-50 ")
 ;;4672
 ;;21,"55289-0821-79 ")
 ;;4673
 ;;21,"55289-0823-06 ")
 ;;4674
 ;;21,"55289-0823-12 ")
 ;;4675
 ;;21,"55289-0823-14 ")
 ;;4676
 ;;21,"55289-0823-20 ")
 ;;4677
 ;;21,"55289-0826-10 ")
 ;;4678
 ;;21,"55289-0826-20 ")
 ;;4679
 ;;21,"55289-0831-20 ")
 ;;4680
 ;;21,"55289-0841-03 ")
 ;;4681
 ;;21,"55289-0841-10 ")
 ;;4682
 ;;21,"55289-0845-06 ")
 ;;4683
 ;;21,"55289-0845-20 ")
 ;;4684
 ;;21,"55289-0845-21 ")
 ;;4685
 ;;21,"55289-0845-30 ")
 ;;4686
 ;;21,"55289-0866-01 ")
 ;;4687
 ;;21,"55289-0866-02 ")
 ;;4688
 ;;21,"55289-0866-04 ")
 ;;4689
 ;;21,"55289-0866-06 ")
 ;;4690
 ;;21,"55289-0866-08 ")
 ;;4691
 ;;21,"55289-0866-10 ")
 ;;4692
 ;;21,"55289-0866-14 ")
 ;;4693
 ;;21,"55289-0866-20 ")
 ;;4694
 ;;21,"55289-0866-28 ")
 ;;4695
 ;;21,"55289-0866-30 ")
 ;;4696
 ;;21,"55289-0866-60 ")
 ;;4697
 ;;21,"55289-0866-74 ")
 ;;4698
 ;;21,"55289-0866-85 ")
 ;;4699
 ;;21,"55289-0866-86 ")
 ;;4700
 ;;21,"55289-0866-87 ")
 ;;4701
 ;;21,"55289-0866-90 ")
 ;;4702
 ;;21,"55289-0866-93 ")
 ;;4703
 ;;21,"55289-0885-08 ")
 ;;4704
 ;;21,"55289-0890-20 ")
 ;;4705
 ;;21,"55289-0890-30 ")
 ;;4706
 ;;21,"55289-0890-40 ")
 ;;4707
 ;;21,"55289-0890-56 ")
 ;;4708
 ;;21,"55289-0904-14 ")
 ;;4709
 ;;21,"55289-0904-79 ")
 ;;4710
 ;;21,"55289-0909-10 ")
 ;;4711
 ;;21,"55289-0909-14 ")
 ;;4712
 ;;21,"55289-0909-20 ")
 ;;4713
 ;;21,"55289-0909-28 ")
 ;;4714
 ;;21,"55289-0915-06 ")
 ;;4715
 ;;21,"55289-0915-15 ")
 ;;4716
 ;;21,"55289-0915-24 ")
 ;;4717
 ;;21,"55289-0915-30 ")
 ;;4718
 ;;21,"55289-0954-79 ")
 ;;4719
 ;;21,"55289-0964-04 ")
 ;;4720
 ;;21,"55289-0964-14 ")
 ;;4721
 ;;21,"55390-0109-01 ")
 ;;4722
 ;;21,"55390-0110-10 ")
 ;;4723
 ;;21,"55390-0197-01 ")
 ;;4724
 ;;21,"55390-0198-01 ")
 ;;4725
 ;;21,"55390-0199-01 ")
 ;;4726
 ;;21,"55390-0309-10 ")
 ;;4727
 ;;21,"55390-0310-10 ")
 ;;4728
 ;;21,"55390-0311-10 ")
 ;;4729
 ;;21,"55390-0312-10 ")
 ;;4730
 ;;21,"55390-0316-01 ")
 ;;4731
 ;;21,"55868-5487-01 ")
 ;;4732
 ;;21,"55887-0060-20 ")
 ;;4733
 ;;21,"55887-0071-60 ")
 ;;4734
 ;;21,"55887-0181-15 ")
 ;;4735
 ;;21,"55887-0215-01 ")
 ;;4736
 ;;21,"55887-0216-20 ")
 ;;4737
 ;;21,"55887-0218-01 ")
 ;;4738
 ;;21,"55887-0292-10 ")
 ;;4739
 ;;21,"55887-0292-20 ")
 ;;4740
 ;;21,"55887-0292-28 ")
 ;;4741
 ;;21,"55887-0292-30 ")
 ;;4742
 ;;21,"55887-0306-01 ")
 ;;4743
 ;;21,"55887-0311-15 ")
 ;;4744
 ;;21,"55887-0311-30 ")
 ;;4745
 ;;21,"55887-0320-30 ")
 ;;4746
 ;;21,"55887-0320-60 ")
 ;;4747
 ;;21,"55887-0332-30 ")
 ;;4748
 ;;21,"55887-0378-06 ")
 ;;4749
 ;;21,"55887-0378-15 ")
 ;;4750
 ;;21,"55887-0378-21 ")
 ;;4751
 ;;21,"55887-0378-28 ")
 ;;4752
 ;;21,"55887-0378-30 ")
 ;;4753
 ;;21,"55887-0378-40 ")
 ;;4754
 ;;21,"55887-0378-42 ")
 ;;4755
 ;;21,"55887-0388-03 ")
 ;;4756
 ;;21,"55887-0419-20 ")
 ;;4757
 ;;21,"55887-0419-30 ")
 ;;4758
 ;;21,"55887-0463-21 ")
 ;;4759
 ;;21,"55887-0463-28 ")
 ;;4760
 ;;21,"55887-0492-07 ")
 ;;4761
 ;;21,"55887-0534-40 ")
 ;;4762
 ;;21,"55887-0584-01 ")
 ;;4763
 ;;21,"55887-0584-08 ")
 ;;4764
 ;;21,"55887-0584-15 ")
 ;;4765
 ;;21,"55887-0584-21 ")
 ;;4766
 ;;21,"55887-0584-25 ")
 ;;4767
 ;;21,"55887-0584-28 ")
 ;;4768
 ;;21,"55887-0584-42 ")
 ;;4769
 ;;21,"55887-0584-60 ")
 ;;4770
 ;;21,"55887-0584-71 ")
 ;;4771
 ;;21,"55887-0586-20 ")
 ;;4772
 ;;21,"55887-0586-28 ")
 ;;4773
 ;;21,"55887-0586-30 ")
 ;;4774
 ;;21,"55887-0586-60 ")
 ;;4775
 ;;21,"55887-0586-90 ")
 ;;4776
 ;;21,"55887-0611-01 ")
 ;;4777
 ;;21,"55887-0611-15 ")
 ;;4778
 ;;21,"55887-0611-16 ")
 ;;4779
 ;;21,"55887-0611-40 ")
 ;;4780
 ;;21,"55887-0611-60 ")
 ;;4781
 ;;21,"55887-0622-09 ")
 ;;4782
 ;;21,"55887-0622-20 ")
 ;;4783
 ;;21,"55887-0622-21 ")
 ;;4784
 ;;21,"55887-0622-30 ")
 ;;4785
 ;;21,"55887-0622-40 ")
 ;;4786
 ;;21,"55887-0629-14 ")
 ;;4787
 ;;21,"55887-0642-05 ")
 ;;4788
 ;;21,"55887-0652-14 ")
 ;;4789
 ;;21,"55887-0659-14 ")
 ;;4790
 ;;21,"55887-0659-30 ")
 ;;4791
 ;;21,"55887-0704-14 ")
 ;;4792
 ;;21,"55887-0704-20 ")
 ;;4793
 ;;21,"55887-0704-28 ")
 ;;4794
 ;;21,"55887-0746-20 ")
 ;;4795
 ;;21,"55887-0746-56 ")
 ;;4796
 ;;21,"55887-0761-02 ")
 ;;4797
 ;;21,"55887-0764-75 ")
 ;;4798
 ;;21,"55887-0768-14 ")
 ;;4799
 ;;21,"55887-0768-20 ")
 ;;4800
 ;;21,"55887-0768-28 ")
 ;;4801
 ;;21,"55887-0768-30 ")
 ;;4802
 ;;21,"55887-0768-32 ")
 ;;4803
 ;;21,"55887-0785-04 ")
 ;;4804
 ;;21,"55887-0785-30 ")
 ;;4805
 ;;21,"55887-0786-30 ")
 ;;4806
 ;;21,"55887-0787-20 ")
 ;;4807
 ;;21,"55887-0787-40 ")
 ;;4808
 ;;21,"55887-0790-15 ")
 ;;4809
 ;;21,"55887-0790-20 ")
 ;;4810
 ;;21,"55887-0790-30 ")
 ;;4811
 ;;21,"55887-0794-75 ")
 ;;4812
 ;;21,"55887-0810-07 ")
 ;;4813
 ;;21,"55887-0810-10 ")
 ;;4814
 ;;21,"55887-0813-30 ")
 ;;4815
 ;;21,"55887-0814-01 ")
 ;;4816
 ;;21,"55887-0814-14 ")
 ;;4817
 ;;21,"55887-0817-22 ")
 ;;4818
 ;;21,"55887-0823-14 ")
 ;;4819
 ;;21,"55887-0830-20 ")
 ;;4820
 ;;21,"55887-0830-28 ")
 ;;4821
 ;;21,"55887-0830-30 ")
 ;;4822
 ;;21,"55887-0830-40 ")
 ;;4823
 ;;21,"55887-0837-30 ")
 ;;4824
 ;;21,"55887-0849-20 ")
 ;;4825
 ;;21,"55887-0849-21 ")
 ;;4826
 ;;21,"55887-0849-28 ")
 ;;4827
 ;;21,"55887-0849-30 ")
 ;;4828
 ;;21,"55887-0849-40 ")
 ;;4829
 ;;21,"55887-0858-14 ")
 ;;4830
 ;;21,"55887-0858-20 ")
 ;;4831
 ;;21,"55887-0889-21 ")
 ;;4832
 ;;21,"55887-0893-24 ")
 ;;4833
 ;;21,"55887-0904-06 ")
 ;;4834
 ;;21,"55887-0904-10 ")
 ;;4835
 ;;21,"55887-0904-14 ")
 ;;4836
 ;;21,"55887-0904-20 ")
 ;;4837
 ;;21,"55887-0904-30 ")
 ;;4838
 ;;21,"55887-0904-60 ")
 ;;4839
 ;;21,"55887-0924-20 ")
 ;;4840
 ;;21,"55887-0924-28 ")
 ;;4841
 ;;21,"55887-0924-60 ")
 ;;4842
 ;;21,"55887-0930-28 ")
 ;;4843
 ;;21,"55887-0958-01 ")
 ;;4844
 ;;21,"55887-0958-05 ")
 ;;4845
 ;;21,"55887-0958-08 ")
 ;;4846
 ;;21,"55887-0958-09 ")
 ;;4847
 ;;21,"55887-0958-60 ")
 ;;4848
 ;;21,"55887-0958-90 ")
 ;;4849
 ;;21,"55887-0980-21 ")
 ;;4850
 ;;21,"55887-0980-28 ")
 ;;4851
 ;;21,"55887-0980-40 ")
 ;;4852
 ;;21,"55887-0982-01 ")
 ;;4853
 ;;21,"55887-0982-04 ")
 ;;4854
 ;;21,"55887-0982-09 ")
 ;;4855
 ;;21,"55887-0982-82 ")
 ;;4856
 ;;21,"55887-0983-01 ")
 ;;4857
 ;;21,"55887-0983-15 ")
 ;;4858
 ;;21,"55887-0983-40 ")
 ;;4859
 ;;21,"55887-0983-42 ")
 ;;4860
 ;;21,"55887-0983-60 ")
 ;;4861
 ;;21,"55887-0991-28 ")
 ;;4862
 ;;21,"55887-0993-09 ")
 ;;4863
 ;;21,"55887-0993-14 ")
 ;;4864
 ;;21,"55887-0993-15 ")
 ;;4865
 ;;21,"55887-0993-20 ")
 ;;4866
 ;;21,"55887-0993-42 ")
 ;;4867
 ;;21,"55953-0251-80 ")
 ;;4868
 ;;21,"55953-0253-80 ")
 ;;4869
 ;;21,"57664-0851-88 ")
 ;;4870
 ;;21,"57664-0852-88 ")
 ;;4871
 ;;21,"57664-0853-85 ")
 ;;4872
 ;;21,"57866-0106-01 ")
 ;;4873
 ;;21,"57866-0106-02 ")
 ;;4874
 ;;21,"57866-0117-01 ")
 ;;4875
 ;;21,"57866-0117-03 ")
 ;;4876
 ;;21,"57866-0117-04 ")
 ;;4877
 ;;21,"57866-0117-05 ")
 ;;4878
 ;;21,"57866-0117-06 ")
 ;;4879
 ;;21,"57866-0155-00 ")
 ;;4880
 ;;21,"57866-0155-05 ")
 ;;4881
 ;;21,"57866-0340-01 ")
 ;;4882
 ;;21,"57866-0340-02 ")
 ;;4883
 ;;21,"57866-0340-05 ")
 ;;4884
 ;;21,"57866-0341-02 ")
 ;;4885
 ;;21,"57866-0341-04 ")
 ;;4886
 ;;21,"57866-0343-01 ")
 ;;4887
 ;;21,"57866-1094-02 ")
 ;;4888
 ;;21,"57866-3129-01 ")
 ;;4889
 ;;21,"57866-3135-01 ")
 ;;4890
 ;;21,"57866-3136-01 ")
 ;;4891
 ;;21,"57866-3148-02 ")
 ;;4892
 ;;21,"57866-3613-02 ")
 ;;4893
 ;;21,"57866-3614-01 ")
 ;;4894
 ;;21,"57866-4356-01 ")
 ;;4895
 ;;21,"57866-4693-01 ")
 ;;4896
 ;;21,"57866-4693-02 ")
 ;;4897
 ;;21,"57866-4693-04 ")
 ;;4898
 ;;21,"57866-4693-06 ")
 ;;4899
 ;;21,"57866-6041-01 ")
 ;;4900
 ;;21,"57866-6041-02 ")
 ;;4901
 ;;21,"57866-6041-03 ")
 ;;4902
 ;;21,"57866-6041-04 ")
 ;;4903
 ;;21,"57866-6041-05 ")
 ;;4904
 ;;21,"57866-6041-08 ")
 ;;4905
 ;;21,"57866-7216-01 ")
 ;;4906
 ;;21,"57866-7216-02 ")
 ;;4907
 ;;21,"57866-7216-03 ")
 ;;4908
 ;;21,"57866-7216-04 ")
 ;;4909
 ;;21,"57866-7216-07 ")
 ;;4910
 ;;21,"57866-7216-08 ")
 ;;4911
 ;;21,"57866-7218-01 ")
 ;;4912
 ;;21,"57866-7218-02 ")
 ;;4913
 ;;21,"57866-8205-01 ")
 ;;4914
 ;;21,"57866-8205-02 ")
 ;;4915
 ;;21,"58016-0075-30 ")
 ;;4916
 ;;21,"58016-0086-30 ")
 ;;4917
 ;;21,"58016-0101-00 ")
 ;;4918
 ;;21,"58016-0101-08 ")
 ;;4919
 ;;21,"58016-0101-10 ")
 ;;4920
 ;;21,"58016-0101-12 ")
 ;;4921
 ;;21,"58016-0101-14 ")
 ;;4922
 ;;21,"58016-0101-20 ")
 ;;4923
 ;;21,"58016-0101-24 ")
 ;;4924
 ;;21,"58016-0101-28 ")
 ;;4925
 ;;21,"58016-0101-30 ")
 ;;4926
 ;;21,"58016-0101-40 ")
 ;;4927
 ;;21,"58016-0101-60 ")
 ;;4928
 ;;21,"58016-0101-90 ")
 ;;4929
 ;;21,"58016-0102-00 ")
 ;;4930
 ;;21,"58016-0102-20 ")
 ;;4931
 ;;21,"58016-0102-30 ")
 ;;4932
 ;;21,"58016-0102-60 ")
 ;;4933
 ;;21,"58016-0102-90 ")
 ;;4934
 ;;21,"58016-0103-00 ")
 ;;4935
 ;;21,"58016-0103-09 ")
 ;;4936
 ;;21,"58016-0103-12 ")
 ;;4937
 ;;21,"58016-0103-15 ")
 ;;4938
 ;;21,"58016-0103-18 ")
 ;;4939
 ;;21,"58016-0103-20 ")
 ;;4940
 ;;21,"58016-0103-21 ")
 ;;4941
 ;;21,"58016-0103-24 ")
 ;;4942
 ;;21,"58016-0103-30 ")
 ;;4943
 ;;21,"58016-0103-40 ")
 ;;4944
 ;;21,"58016-0105-00 ")
 ;;4945
 ;;21,"58016-0105-60 ")
 ;;4946
 ;;21,"58016-0105-90 ")
 ;;4947
 ;;21,"58016-0109-00 ")
 ;;4948
 ;;21,"58016-0109-02 ")
 ;;4949
 ;;21,"58016-0109-06 ")
 ;;4950
 ;;21,"58016-0109-07 ")
 ;;4951
 ;;21,"58016-0109-10 ")
 ;;4952
 ;;21,"58016-0109-14 ")
 ;;4953
 ;;21,"58016-0109-18 ")
 ;;4954
 ;;21,"58016-0109-20 ")
 ;;4955
 ;;21,"58016-0109-21 ")
 ;;4956
 ;;21,"58016-0109-24 ")
 ;;4957
 ;;21,"58016-0109-28 ")
 ;;4958
 ;;21,"58016-0109-30 ")
 ;;4959
 ;;21,"58016-0109-40 ")
 ;;4960
 ;;21,"58016-0109-50 ")
 ;;4961
 ;;21,"58016-0109-60 ")
 ;;4962
 ;;21,"58016-0109-73 ")
 ;;4963
 ;;21,"58016-0109-80 ")
 ;;4964
 ;;21,"58016-0109-89 ")
 ;;4965
 ;;21,"58016-0109-90 ")
 ;;4966
 ;;21,"58016-0114-10 ")
 ;;4967
 ;;21,"58016-0114-14 ")
 ;;4968
 ;;21,"58016-0114-20 ")
 ;;4969
 ;;21,"58016-0114-30 ")
 ;;4970
 ;;21,"58016-0114-60 ")
 ;;4971
 ;;21,"58016-0115-10 ")
 ;;4972
 ;;21,"58016-0115-14 ")
 ;;4973
 ;;21,"58016-0115-20 ")
 ;;4974
 ;;21,"58016-0115-30 ")
 ;;4975
 ;;21,"58016-0115-60 ")
 ;;4976
 ;;21,"58016-0116-00 ")
 ;;4977
 ;;21,"58016-0116-10 ")
 ;;4978
 ;;21,"58016-0116-12 ")
 ;;4979
 ;;21,"58016-0116-15 ")
 ;;4980
 ;;21,"58016-0116-20 ")
 ;;4981
 ;;21,"58016-0116-30 ")
 ;;4982
 ;;21,"58016-0117-00 ")
 ;;4983
 ;;21,"58016-0117-10 ")
 ;;4984
 ;;21,"58016-0117-12 ")
 ;;4985
 ;;21,"58016-0117-14 ")
 ;;4986
 ;;21,"58016-0117-15 ")
 ;;4987
 ;;21,"58016-0117-20 ")
 ;;4988
 ;;21,"58016-0117-30 ")
 ;;4989
 ;;21,"58016-0118-10 ")
 ;;4990
 ;;21,"58016-0118-12 ")
 ;;4991
 ;;21,"58016-0118-14 ")
 ;;4992
 ;;21,"58016-0118-15 ")
 ;;4993
 ;;21,"58016-0118-20 ")
 ;;4994
 ;;21,"58016-0118-30 ")
 ;;4995
 ;;21,"58016-0118-50 ")
 ;;4996
 ;;21,"58016-0119-00 ")
 ;;4997
 ;;21,"58016-0119-02 ")
 ;;4998
 ;;21,"58016-0119-03 ")
 ;;4999
 ;;21,"58016-0119-10 ")
 ;;5000
 ;;21,"58016-0119-12 ")
 ;;5001
 ;;21,"58016-0119-14 ")
 ;;5002
 ;;21,"58016-0119-15 ")
 ;;5003
 ;;21,"58016-0119-20 ")
 ;;5004
 ;;21,"58016-0119-25 ")
 ;;5005
 ;;21,"58016-0119-30 ")
 ;;5006
 ;;21,"58016-0119-40 ")
 ;;5007
 ;;21,"58016-0119-60 ")
 ;;5008
 ;;21,"58016-0119-73 ")
 ;;5009
 ;;21,"58016-0119-89 ")
 ;;5010
 ;;21,"58016-0119-90 ")
 ;;5011
 ;;21,"58016-0121-00 ")
 ;;5012
 ;;21,"58016-0121-10 ")
 ;;5013
 ;;21,"58016-0121-12 ")
 ;;5014
 ;;21,"58016-0121-14 ")
 ;;5015
 ;;21,"58016-0121-15 ")
 ;;5016
 ;;21,"58016-0121-18 ")
 ;;5017
 ;;21,"58016-0121-20 ")
 ;;5018
 ;;21,"58016-0121-24 ")
 ;;5019
 ;;21,"58016-0121-28 ")
 ;;5020
 ;;21,"58016-0121-30 ")
 ;;5021
 ;;21,"58016-0121-40 ")
 ;;5022
 ;;21,"58016-0122-00 ")
 ;;5023
 ;;21,"58016-0122-12 ")
 ;;5024
 ;;21,"58016-0122-14 ")
 ;;5025
 ;;21,"58016-0122-15 ")
 ;;5026
 ;;21,"58016-0122-20 ")
 ;;5027
 ;;21,"58016-0122-28 ")
 ;;5028
 ;;21,"58016-0122-30 ")
 ;;5029
 ;;21,"58016-0122-40 ")
 ;;5030
 ;;21,"58016-0122-50 ")
 ;;5031
 ;;21,"58016-0123-00 ")
 ;;5032
 ;;21,"58016-0123-12 ")
 ;;5033
 ;;21,"58016-0123-15 ")
 ;;5034
 ;;21,"58016-0123-20 ")
 ;;5035
 ;;21,"58016-0123-24 ")
 ;;5036
 ;;21,"58016-0123-28 ")
 ;;5037
 ;;21,"58016-0123-30 ")
 ;;5038
 ;;21,"58016-0123-40 ")
 ;;5039
 ;;21,"58016-0126-00 ")
 ;;5040