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

BGP73F15.m

Go to the documentation of this file.
  1. BGP73F15 ;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,"58016-0975-60 ")
  1. ;;4687
  1. ;;21,"58016-0975-90 ")
  1. ;;4688
  1. ;;21,"58016-1004-01 ")
  1. ;;4689
  1. ;;21,"58016-1005-01 ")
  1. ;;4690
  1. ;;21,"58016-1006-01 ")
  1. ;;4691
  1. ;;21,"58016-1007-01 ")
  1. ;;4692
  1. ;;21,"58016-1011-01 ")
  1. ;;4693
  1. ;;21,"58016-1019-01 ")
  1. ;;4694
  1. ;;21,"58016-1021-01 ")
  1. ;;4695
  1. ;;21,"58016-1023-01 ")
  1. ;;4696
  1. ;;21,"58016-1024-01 ")
  1. ;;4697
  1. ;;21,"58016-1025-01 ")
  1. ;;4698
  1. ;;21,"58016-1026-01 ")
  1. ;;4699
  1. ;;21,"58016-1027-01 ")
  1. ;;4700
  1. ;;21,"58016-1028-01 ")
  1. ;;4701
  1. ;;21,"58016-1029-01 ")
  1. ;;4702
  1. ;;21,"58016-1033-01 ")
  1. ;;4703
  1. ;;21,"58016-1034-01 ")
  1. ;;4704
  1. ;;21,"58016-1035-01 ")
  1. ;;4705
  1. ;;21,"58016-1036-01 ")
  1. ;;4706
  1. ;;21,"58016-1037-01 ")
  1. ;;4707
  1. ;;21,"58016-1038-01 ")
  1. ;;4708
  1. ;;21,"58016-1039-01 ")
  1. ;;4709
  1. ;;21,"58016-1045-01 ")
  1. ;;4710
  1. ;;21,"58016-1046-01 ")
  1. ;;4711
  1. ;;21,"58016-4786-01 ")
  1. ;;4712
  1. ;;21,"58016-4790-01 ")
  1. ;;4713
  1. ;;21,"58016-4804-01 ")
  1. ;;4714
  1. ;;21,"58016-4807-01 ")
  1. ;;4715
  1. ;;21,"58016-4814-01 ")
  1. ;;4716
  1. ;;21,"58016-4834-01 ")
  1. ;;4717
  1. ;;21,"58016-4842-01 ")
  1. ;;4718
  1. ;;21,"58016-4847-01 ")
  1. ;;4719
  1. ;;21,"58016-4869-01 ")
  1. ;;4720
  1. ;;21,"58016-4873-01 ")
  1. ;;4721
  1. ;;21,"58016-4990-01 ")
  1. ;;4722
  1. ;;21,"58016-9438-01 ")
  1. ;;4723
  1. ;;21,"58016-9551-01 ")
  1. ;;4724
  1. ;;21,"58463-0002-30 ")
  1. ;;4725
  1. ;;21,"58463-0012-01 ")
  1. ;;4726
  1. ;;21,"58864-0029-30 ")
  1. ;;4727
  1. ;;21,"58864-0029-40 ")
  1. ;;4728
  1. ;;21,"58864-0034-10 ")
  1. ;;4729
  1. ;;21,"58864-0034-14 ")
  1. ;;4730
  1. ;;21,"58864-0067-20 ")
  1. ;;4731
  1. ;;21,"58864-0072-30 ")
  1. ;;4732
  1. ;;21,"58864-0072-40 ")
  1. ;;4733
  1. ;;21,"58864-0073-20 ")
  1. ;;4734
  1. ;;21,"58864-0073-28 ")
  1. ;;4735
  1. ;;21,"58864-0073-30 ")
  1. ;;4736
  1. ;;21,"58864-0073-40 ")
  1. ;;4737
  1. ;;21,"58864-0073-56 ")
  1. ;;4738
  1. ;;21,"58864-0149-40 ")
  1. ;;4739
  1. ;;21,"58864-0150-30 ")
  1. ;;4740
  1. ;;21,"58864-0189-10 ")
  1. ;;4741
  1. ;;21,"58864-0189-20 ")
  1. ;;4742
  1. ;;21,"58864-0189-28 ")
  1. ;;4743
  1. ;;21,"58864-0190-12 ")
  1. ;;4744
  1. ;;21,"58864-0190-20 ")
  1. ;;4745
  1. ;;21,"58864-0190-28 ")
  1. ;;4746
  1. ;;21,"58864-0190-30 ")
  1. ;;4747
  1. ;;21,"58864-0195-40 ")
  1. ;;4748
  1. ;;21,"58864-0379-40 ")
  1. ;;4749
  1. ;;21,"58864-0478-06 ")
  1. ;;4750
  1. ;;21,"58864-0478-10 ")
  1. ;;4751
  1. ;;21,"58864-0478-14 ")
  1. ;;4752
  1. ;;21,"58864-0478-20 ")
  1. ;;4753
  1. ;;21,"58864-0478-30 ")
  1. ;;4754
  1. ;;21,"58864-0607-40 ")
  1. ;;4755
  1. ;;21,"58864-0607-60 ")
  1. ;;4756
  1. ;;21,"58864-0612-28 ")
  1. ;;4757
  1. ;;21,"58864-0615-30 ")
  1. ;;4758
  1. ;;21,"58864-0621-05 ")
  1. ;;4759
  1. ;;21,"58864-0621-10 ")
  1. ;;4760
  1. ;;21,"58864-0621-30 ")
  1. ;;4761
  1. ;;21,"58864-0632-40 ")
  1. ;;4762
  1. ;;21,"58864-0637-14 ")
  1. ;;4763
  1. ;;21,"58864-0637-20 ")
  1. ;;4764
  1. ;;21,"58864-0637-30 ")
  1. ;;4765
  1. ;;21,"58864-0655-04 ")
  1. ;;4766
  1. ;;21,"58864-0655-06 ")
  1. ;;4767
  1. ;;21,"58864-0655-14 ")
  1. ;;4768
  1. ;;21,"58864-0655-30 ")
  1. ;;4769
  1. ;;21,"58864-0675-30 ")
  1. ;;4770
  1. ;;21,"58864-0675-40 ")
  1. ;;4771
  1. ;;21,"58864-0690-20 ")
  1. ;;4772
  1. ;;21,"58864-0767-20 ")
  1. ;;4773
  1. ;;21,"58864-0767-21 ")
  1. ;;4774
  1. ;;21,"58864-0767-30 ")
  1. ;;4775
  1. ;;21,"58864-0775-20 ")
  1. ;;4776
  1. ;;21,"58864-0791-06 ")
  1. ;;4777
  1. ;;21,"58864-0806-06 ")
  1. ;;4778
  1. ;;21,"58864-0806-14 ")
  1. ;;4779
  1. ;;21,"58864-0806-20 ")
  1. ;;4780
  1. ;;21,"58864-0833-10 ")
  1. ;;4781
  1. ;;21,"58864-0833-20 ")
  1. ;;4782
  1. ;;21,"58864-0837-20 ")
  1. ;;4783
  1. ;;21,"58864-0845-30 ")
  1. ;;4784
  1. ;;21,"58864-0845-40 ")
  1. ;;4785
  1. ;;21,"58864-0848-30 ")
  1. ;;4786
  1. ;;21,"59366-7338-01 ")
  1. ;;4787
  1. ;;21,"59366-7339-01 ")
  1. ;;4788
  1. ;;21,"59366-7340-05 ")
  1. ;;4789
  1. ;;21,"59630-0112-10 ")
  1. ;;4790
  1. ;;21,"59630-0113-05 ")
  1. ;;4791
  1. ;;21,"59630-0113-10 ")
  1. ;;4792
  1. ;;21,"59630-0115-05 ")
  1. ;;4793
  1. ;;21,"59630-0142-03 ")
  1. ;;4794
  1. ;;21,"59630-0821-12 ")
  1. ;;4795
  1. ;;21,"59630-0821-60 ")
  1. ;;4796
  1. ;;21,"59630-0821-90 ")
  1. ;;4797
  1. ;;21,"59762-0016-01 ")
  1. ;;4798
  1. ;;21,"59762-0278-02 ")
  1. ;;4799
  1. ;;21,"59762-0279-02 ")
  1. ;;4800
  1. ;;21,"59762-0280-03 ")
  1. ;;4801
  1. ;;21,"59762-1020-01 ")
  1. ;;4802
  1. ;;21,"59762-1020-03 ")
  1. ;;4803
  1. ;;21,"59762-1021-01 ")
  1. ;;4804
  1. ;;21,"59762-1021-07 ")
  1. ;;4805
  1. ;;21,"59762-1022-02 ")
  1. ;;4806
  1. ;;21,"59762-1022-04 ")
  1. ;;4807
  1. ;;21,"59762-1022-07 ")
  1. ;;4808
  1. ;;21,"59762-1023-04 ")
  1. ;;4809
  1. ;;21,"59762-1023-05 ")
  1. ;;4810
  1. ;;21,"59762-1023-06 ")
  1. ;;4811
  1. ;;21,"59762-1050-02 ")
  1. ;;4812
  1. ;;21,"59762-1050-05 ")
  1. ;;4813
  1. ;;21,"59762-1534-01 ")
  1. ;;4814
  1. ;;21,"59762-1534-02 ")
  1. ;;4815
  1. ;;21,"59762-1537-01 ")
  1. ;;4816
  1. ;;21,"59762-1537-02 ")
  1. ;;4817
  1. ;;21,"59762-1537-03 ")
  1. ;;4818
  1. ;;21,"59762-2000-01 ")
  1. ;;4819
  1. ;;21,"59762-2000-04 ")
  1. ;;4820
  1. ;;21,"59762-2180-01 ")
  1. ;;4821
  1. ;;21,"59762-3051-01 ")
  1. ;;4822
  1. ;;21,"59762-3051-02 ")
  1. ;;4823
  1. ;;21,"59762-3060-01 ")
  1. ;;4824
  1. ;;21,"59762-3060-02 ")
  1. ;;4825
  1. ;;21,"59762-3060-03 ")
  1. ;;4826
  1. ;;21,"59762-3070-01 ")
  1. ;;4827
  1. ;;21,"59762-3070-02 ")
  1. ;;4828
  1. ;;21,"59762-3080-01 ")
  1. ;;4829
  1. ;;21,"59762-3110-01 ")
  1. ;;4830
  1. ;;21,"59762-3120-01 ")
  1. ;;4831
  1. ;;21,"59762-3130-01 ")
  1. ;;4832
  1. ;;21,"59762-3140-01 ")
  1. ;;4833
  1. ;;21,"59762-3328-01 ")
  1. ;;4834
  1. ;;21,"59762-3690-01 ")
  1. ;;4835
  1. ;;21,"59762-3690-02 ")
  1. ;;4836
  1. ;;21,"59762-4080-01 ")
  1. ;;4837
  1. ;;21,"59762-4080-02 ")
  1. ;;4838
  1. ;;21,"59762-4081-01 ")
  1. ;;4839
  1. ;;21,"59762-4081-02 ")
  1. ;;4840
  1. ;;21,"59762-5010-01 ")
  1. ;;4841
  1. ;;21,"59762-5010-02 ")
  1. ;;4842
  1. ;;21,"59772-0174-20 ")
  1. ;;4843
  1. ;;21,"59772-0802-02 ")
  1. ;;4844
  1. ;;21,"60346-0364-03 ")
  1. ;;4845
  1. ;;21,"60346-0364-09 ")
  1. ;;4846
  1. ;;21,"60346-0364-15 ")
  1. ;;4847
  1. ;;21,"60346-0364-21 ")
  1. ;;4848
  1. ;;21,"60346-0364-44 ")
  1. ;;4849
  1. ;;21,"60346-0433-06 ")
  1. ;;4850
  1. ;;21,"60346-0433-10 ")
  1. ;;4851
  1. ;;21,"60346-0433-14 ")
  1. ;;4852
  1. ;;21,"60346-0433-15 ")
  1. ;;4853
  1. ;;21,"60346-0433-20 ")
  1. ;;4854
  1. ;;21,"60346-0433-44 ")
  1. ;;4855
  1. ;;21,"60346-0433-99 ")
  1. ;;4856
  1. ;;21,"60346-0649-08 ")
  1. ;;4857
  1. ;;21,"60346-0655-06 ")
  1. ;;4858
  1. ;;21,"60346-0655-10 ")
  1. ;;4859
  1. ;;21,"60346-0655-15 ")
  1. ;;4860
  1. ;;21,"60429-0021-01 ")
  1. ;;4861
  1. ;;21,"60429-0021-05 ")
  1. ;;4862
  1. ;;21,"60429-0022-01 ")
  1. ;;4863
  1. ;;21,"60429-0022-05 ")
  1. ;;4864
  1. ;;21,"60429-0023-01 ")
  1. ;;4865
  1. ;;21,"60429-0023-05 ")
  1. ;;4866
  1. ;;21,"60429-0024-01 ")
  1. ;;4867
  1. ;;21,"60429-0024-05 ")
  1. ;;4868
  1. ;;21,"60429-0036-40 ")
  1. ;;4869
  1. ;;21,"60429-0037-40 ")
  1. ;;4870
  1. ;;21,"60429-0042-20 ")
  1. ;;4871
  1. ;;21,"60429-0069-92 ")
  1. ;;4872
  1. ;;21,"60429-0070-40 ")
  1. ;;4873
  1. ;;21,"60429-0147-01 ")
  1. ;;4874
  1. ;;21,"60429-0147-10 ")
  1. ;;4875
  1. ;;21,"60429-0148-01 ")
  1. ;;4876
  1. ;;21,"60429-0148-05 ")
  1. ;;4877
  1. ;;21,"60429-0742-01 ")
  1. ;;4878
  1. ;;21,"60429-0743-01 ")
  1. ;;4879
  1. ;;21,"60429-0743-05 ")
  1. ;;4880
  1. ;;21,"60429-0743-20 ")
  1. ;;4881
  1. ;;21,"60429-0744-01 ")
  1. ;;4882
  1. ;;21,"60432-0065-00 ")
  1. ;;4883
  1. ;;21,"60432-0065-47 ")
  1. ;;4884
  1. ;;21,"60432-0065-75 ")
  1. ;;4885
  1. ;;21,"60432-0070-46 ")
  1. ;;4886
  1. ;;21,"60432-0070-48 ")
  1. ;;4887
  1. ;;21,"60432-0070-75 ")
  1. ;;4888
  1. ;;21,"60505-0679-05 ")
  1. ;;4889
  1. ;;21,"60505-0680-02 ")
  1. ;;4890
  1. ;;21,"60505-0748-04 ")
  1. ;;4891
  1. ;;21,"60505-0748-05 ")
  1. ;;4892
  1. ;;21,"60505-0749-01 ")
  1. ;;4893
  1. ;;21,"60505-0749-04 ")
  1. ;;4894
  1. ;;21,"60505-0749-05 ")
  1. ;;4895
  1. ;;21,"60505-0750-00 ")
  1. ;;4896
  1. ;;21,"60505-0750-01 ")
  1. ;;4897
  1. ;;21,"60505-0750-04 ")
  1. ;;4898
  1. ;;21,"60505-0751-00 ")
  1. ;;4899
  1. ;;21,"60505-0751-01 ")
  1. ;;4900
  1. ;;21,"60505-0751-04 ")
  1. ;;4901
  1. ;;21,"60505-0752-00 ")
  1. ;;4902
  1. ;;21,"60505-0752-03 ")
  1. ;;4903
  1. ;;21,"60505-0752-04 ")
  1. ;;4904
  1. ;;21,"60505-0753-04 ")
  1. ;;4905
  1. ;;21,"60505-0769-00 ")
  1. ;;4906
  1. ;;21,"60505-0769-01 ")
  1. ;;4907
  1. ;;21,"60505-1308-01 ")
  1. ;;4908
  1. ;;21,"60505-1309-01 ")
  1. ;;4909
  1. ;;21,"60505-1310-01 ")
  1. ;;4910
  1. ;;21,"60505-1310-04 ")
  1. ;;4911
  1. ;;21,"60505-2539-03 ")
  1. ;;4912
  1. ;;21,"60505-2540-02 ")
  1. ;;4913
  1. ;;21,"60505-2541-02 ")
  1. ;;4914
  1. ;;21,"60505-2581-00 ")
  1. ;;4915
  1. ;;21,"60505-2581-02 ")
  1. ;;4916
  1. ;;21,"60505-2581-03 ")
  1. ;;4917
  1. ;;21,"60505-2581-05 ")
  1. ;;4918
  1. ;;21,"60505-2582-00 ")
  1. ;;4919
  1. ;;21,"60505-2582-03 ")
  1. ;;4920
  1. ;;21,"60505-2582-05 ")
  1. ;;4921
  1. ;;21,"60505-2583-03 ")
  1. ;;4922
  1. ;;21,"60505-2615-06 ")
  1. ;;4923
  1. ;;21,"60505-2616-06 ")
  1. ;;4924
  1. ;;21,"60505-6076-04 ")
  1. ;;4925
  1. ;;21,"60505-6093-01 ")
  1. ;;4926
  1. ;;21,"60505-6093-05 ")
  1. ;;4927
  1. ;;21,"60505-6094-00 ")
  1. ;;4928
  1. ;;21,"60505-6094-01 ")
  1. ;;4929
  1. ;;21,"60505-6102-01 ")
  1. ;;4930
  1. ;;21,"60505-6102-04 ")
  1. ;;4931
  1. ;;21,"60505-6103-06 ")
  1. ;;4932
  1. ;;21,"60505-6104-01 ")
  1. ;;4933
  1. ;;21,"60505-6104-04 ")
  1. ;;4934
  1. ;;21,"60605-0750-01 ")
  1. ;;4935
  1. ;;21,"60605-0751-01 ")
  1. ;;4936
  1. ;;21,"60605-0752-03 ")
  1. ;;4937
  1. ;;21,"60605-0753-03 ")
  1. ;;4938
  1. ;;21,"60605-0769-01 ")
  1. ;;4939
  1. ;;21,"60605-6094-01 ")
  1. ;;4940
  1. ;;21,"60687-0118-11 ")
  1. ;;4941
  1. ;;21,"60687-0118-21 ")
  1. ;;4942
  1. ;;21,"60687-0152-01 ")
  1. ;;4943
  1. ;;21,"60687-0152-11 ")
  1. ;;4944
  1. ;;21,"60687-0163-01 ")
  1. ;;4945
  1. ;;21,"60760-0069-20 ")
  1. ;;4946
  1. ;;21,"60760-0261-20 ")
  1. ;;4947
  1. ;;21,"60760-0337-08 ")
  1. ;;4948
  1. ;;21,"60760-0337-28 ")
  1. ;;4949
  1. ;;21,"60760-0337-60 ")
  1. ;;4950
  1. ;;21,"60760-0513-10 ")
  1. ;;4951
  1. ;;21,"60760-0562-20 ")
  1. ;;4952
  1. ;;21,"60760-0693-05 ")
  1. ;;4953
  1. ;;21,"60760-0815-10 ")
  1. ;;4954
  1. ;;21,"61392-0714-32 ")
  1. ;;4955
  1. ;;21,"61392-0714-45 ")
  1. ;;4956
  1. ;;21,"61392-0714-54 ")
  1. ;;4957
  1. ;;21,"61392-0714-91 ")
  1. ;;4958
  1. ;;21,"61392-0731-30 ")
  1. ;;4959
  1. ;;21,"61392-0731-31 ")
  1. ;;4960
  1. ;;21,"61392-0731-32 ")
  1. ;;4961
  1. ;;21,"61392-0731-39 ")
  1. ;;4962
  1. ;;21,"61392-0731-45 ")
  1. ;;4963
  1. ;;21,"61392-0731-51 ")
  1. ;;4964
  1. ;;21,"61392-0731-54 ")
  1. ;;4965
  1. ;;21,"61392-0731-60 ")
  1. ;;4966
  1. ;;21,"61392-0731-90 ")
  1. ;;4967
  1. ;;21,"61392-0731-91 ")
  1. ;;4968
  1. ;;21,"61392-0732-30 ")
  1. ;;4969
  1. ;;21,"61392-0732-31 ")
  1. ;;4970
  1. ;;21,"61392-0732-32 ")
  1. ;;4971
  1. ;;21,"61392-0732-39 ")
  1. ;;4972
  1. ;;21,"61392-0732-45 ")
  1. ;;4973
  1. ;;21,"61392-0732-51 ")
  1. ;;4974
  1. ;;21,"61392-0732-54 ")
  1. ;;4975
  1. ;;21,"61392-0732-60 ")
  1. ;;4976
  1. ;;21,"61392-0732-90 ")
  1. ;;4977
  1. ;;21,"61392-0732-91 ")
  1. ;;4978
  1. ;;21,"61392-0782-30 ")
  1. ;;4979
  1. ;;21,"61392-0782-31 ")
  1. ;;4980
  1. ;;21,"61392-0782-32 ")
  1. ;;4981
  1. ;;21,"61392-0782-39 ")
  1. ;;4982
  1. ;;21,"61392-0782-45 ")
  1. ;;4983
  1. ;;21,"61392-0782-51 ")
  1. ;;4984
  1. ;;21,"61392-0782-54 ")
  1. ;;4985
  1. ;;21,"61392-0782-60 ")
  1. ;;4986
  1. ;;21,"61392-0782-90 ")
  1. ;;4987
  1. ;;21,"61392-0782-91 ")
  1. ;;4988
  1. ;;21,"61392-0783-30 ")
  1. ;;4989
  1. ;;21,"61392-0783-31 ")
  1. ;;4990
  1. ;;21,"61392-0783-32 ")
  1. ;;4991
  1. ;;21,"61392-0783-39 ")
  1. ;;4992
  1. ;;21,"61392-0783-45 ")
  1. ;;4993
  1. ;;21,"61392-0783-51 ")
  1. ;;4994
  1. ;;21,"61392-0783-54 ")
  1. ;;4995
  1. ;;21,"61392-0783-60 ")
  1. ;;4996
  1. ;;21,"61392-0783-90 ")
  1. ;;4997
  1. ;;21,"61392-0783-91 ")
  1. ;;4998
  1. ;;21,"61442-0161-01 ")
  1. ;;4999
  1. ;;21,"61442-0161-05 ")
  1. ;;5000
  1. ;;21,"61442-0162-01 ")
  1. ;;5001
  1. ;;21,"61442-0162-05 ")
  1. ;;5002
  1. ;;21,"61442-0201-01 ")
  1. ;;5003
  1. ;;21,"61442-0201-02 ")
  1. ;;5004
  1. ;;21,"61442-0202-01 ")
  1. ;;5005
  1. ;;21,"61442-0202-02 ")
  1. ;;5006
  1. ;;21,"61442-0222-01 ")
  1. ;;5007
  1. ;;21,"61442-0222-10 ")
  1. ;;5008
  1. ;;21,"61442-0223-01 ")
  1. ;;5009
  1. ;;21,"61442-0223-05 ")
  1. ;;5010
  1. ;;21,"61553-0012-72 ")
  1. ;;5011
  1. ;;21,"61553-0014-73 ")
  1. ;;5012
  1. ;;21,"61553-0039-41 ")
  1. ;;5013
  1. ;;21,"61553-0045-41 ")
  1. ;;5014
  1. ;;21,"61553-0048-72 ")
  1. ;;5015
  1. ;;21,"61553-0049-72 ")
  1. ;;5016
  1. ;;21,"61553-0211-48 ")
  1. ;;5017
  1. ;;21,"61553-0216-48 ")
  1. ;;5018
  1. ;;21,"61570-0050-11 ")
  1. ;;5019