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