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

BGPM5BBC.m

Go to the documentation of this file.
BGPM5BBC ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON SEP 12, 2011;
 ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
 ;
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,"61392014045 ")
 ;;4763
 ;;21,"61392014056 ")
 ;;4764
 ;;21,"61392014060 ")
 ;;4765
 ;;21,"61392014065 ")
 ;;4766
 ;;21,"61392014090 ")
 ;;4767
 ;;21,"61392014091 ")
 ;;4768
 ;;21,"61392014095 ")
 ;;4769
 ;;21,"61392014125 ")
 ;;4770
 ;;21,"61392014130 ")
 ;;4771
 ;;21,"61392014131 ")
 ;;4772
 ;;21,"61392014139 ")
 ;;4773
 ;;21,"61392014145 ")
 ;;4774
 ;;21,"61392014156 ")
 ;;4775
 ;;21,"61392014160 ")
 ;;4776
 ;;21,"61392014165 ")
 ;;4777
 ;;21,"61392014190 ")
 ;;4778
 ;;21,"61392014191 ")
 ;;4779
 ;;21,"61392014195 ")
 ;;4780
 ;;21,"61392014334 ")
 ;;4781
 ;;21,"61392014345 ")
 ;;4782
 ;;21,"61392014356 ")
 ;;4783
 ;;21,"61392014391 ")
 ;;4784
 ;;21,"61392015325 ")
 ;;4785
 ;;21,"61392015330 ")
 ;;4786
 ;;21,"61392015331 ")
 ;;4787
 ;;21,"61392015332 ")
 ;;4788
 ;;21,"61392015339 ")
 ;;4789
 ;;21,"61392015345 ")
 ;;4790
 ;;21,"61392015351 ")
 ;;4791
 ;;21,"61392015354 ")
 ;;4792
 ;;21,"61392015356 ")
 ;;4793
 ;;21,"61392015360 ")
 ;;4794
 ;;21,"61392015390 ")
 ;;4795
 ;;21,"61392015391 ")
 ;;4796
 ;;21,"61392017925 ")
 ;;4797
 ;;21,"61392017930 ")
 ;;4798
 ;;21,"61392017931 ")
 ;;4799
 ;;21,"61392017939 ")
 ;;4800
 ;;21,"61392017965 ")
 ;;4801
 ;;21,"61392036125 ")
 ;;4802
 ;;21,"61392036130 ")
 ;;4803
 ;;21,"61392036131 ")
 ;;4804
 ;;21,"61392036139 ")
 ;;4805
 ;;21,"61392036145 ")
 ;;4806
 ;;21,"61392036156 ")
 ;;4807
 ;;21,"61392036160 ")
 ;;4808
 ;;21,"61392036165 ")
 ;;4809
 ;;21,"61392036190 ")
 ;;4810
 ;;21,"61392036191 ")
 ;;4811
 ;;21,"61392036425 ")
 ;;4812
 ;;21,"61392036430 ")
 ;;4813
 ;;21,"61392036431 ")
 ;;4814
 ;;21,"61392036439 ")
 ;;4815
 ;;21,"61392036445 ")
 ;;4816
 ;;21,"61392036456 ")
 ;;4817
 ;;21,"61392036460 ")
 ;;4818
 ;;21,"61392036490 ")
 ;;4819
 ;;21,"61392036491 ")
 ;;4820
 ;;21,"61392036725 ")
 ;;4821
 ;;21,"61392036730 ")
 ;;4822
 ;;21,"61392036731 ")
 ;;4823
 ;;21,"61392036739 ")
 ;;4824
 ;;21,"61392036745 ")
 ;;4825
 ;;21,"61392036756 ")
 ;;4826
 ;;21,"61392036760 ")
 ;;4827
 ;;21,"61392036790 ")
 ;;4828
 ;;21,"61392036791 ")
 ;;4829
 ;;21,"61392037025 ")
 ;;4830
 ;;21,"61392037030 ")
 ;;4831
 ;;21,"61392037031 ")
 ;;4832
 ;;21,"61392037039 ")
 ;;4833
 ;;21,"61392037045 ")
 ;;4834
 ;;21,"61392037054 ")
 ;;4835
 ;;21,"61392037056 ")
 ;;4836
 ;;21,"61392037060 ")
 ;;4837
 ;;21,"61392037090 ")
 ;;4838
 ;;21,"61392037091 ")
 ;;4839
 ;;21,"61392040425 ")
 ;;4840
 ;;21,"61392040430 ")
 ;;4841
 ;;21,"61392040431 ")
 ;;4842
 ;;21,"61392040439 ")
 ;;4843
 ;;21,"61392040460 ")
 ;;4844
 ;;21,"61392040490 ")
 ;;4845
 ;;21,"61392040525 ")
 ;;4846
 ;;21,"61392040530 ")
 ;;4847
 ;;21,"61392040531 ")
 ;;4848
 ;;21,"61392040539 ")
 ;;4849
 ;;21,"61392040560 ")
 ;;4850
 ;;21,"61392040625 ")
 ;;4851
 ;;21,"61392040630 ")
 ;;4852
 ;;21,"61392040660 ")
 ;;4853
 ;;21,"61392040725 ")
 ;;4854
 ;;21,"61392040730 ")
 ;;4855
 ;;21,"61392040760 ")
 ;;4856
 ;;21,"61392045625 ")
 ;;4857
 ;;21,"61392045630 ")
 ;;4858
 ;;21,"61392045725 ")
 ;;4859
 ;;21,"61392045730 ")
 ;;4860
 ;;21,"61392046925 ")
 ;;4861
 ;;21,"61392046930 ")
 ;;4862
 ;;21,"61392046931 ")
 ;;4863
 ;;21,"61392046939 ")
 ;;4864
 ;;21,"61392046960 ")
 ;;4865
 ;;21,"61392046965 ")
 ;;4866
 ;;21,"61392048725 ")
 ;;4867
 ;;21,"61392048730 ")
 ;;4868
 ;;21,"61392048731 ")
 ;;4869
 ;;21,"61392048739 ")
 ;;4870
 ;;21,"61392048745 ")
 ;;4871
 ;;21,"61392048756 ")
 ;;4872
 ;;21,"61392048760 ")
 ;;4873
 ;;21,"61392048765 ")
 ;;4874
 ;;21,"61392048790 ")
 ;;4875
 ;;21,"61392048791 ")
 ;;4876
 ;;21,"61392048795 ")
 ;;4877
 ;;21,"61392049015 ")
 ;;4878
 ;;21,"61392049025 ")
 ;;4879
 ;;21,"61392049030 ")
 ;;4880
 ;;21,"61392049031 ")
 ;;4881
 ;;21,"61392049039 ")
 ;;4882
 ;;21,"61392049045 ")
 ;;4883
 ;;21,"61392049056 ")
 ;;4884
 ;;21,"61392049060 ")
 ;;4885
 ;;21,"61392049065 ")
 ;;4886
 ;;21,"61392049090 ")
 ;;4887
 ;;21,"61392049091 ")
 ;;4888
 ;;21,"61392049095 ")
 ;;4889
 ;;21,"61392049131 ")
 ;;4890
 ;;21,"61392049132 ")
 ;;4891
 ;;21,"61392049139 ")
 ;;4892
 ;;21,"61392049145 ")
 ;;4893
 ;;21,"61392049151 ")
 ;;4894
 ;;21,"61392049154 ")
 ;;4895
 ;;21,"61392049160 ")
 ;;4896
 ;;21,"61392049190 ")
 ;;4897
 ;;21,"61392049191 ")
 ;;4898
 ;;21,"61392056125 ")
 ;;4899
 ;;21,"61392056130 ")
 ;;4900
 ;;21,"61392056160 ")
 ;;4901
 ;;21,"61392056190 ")
 ;;4902
 ;;21,"61392066525 ")
 ;;4903
 ;;21,"61392066530 ")
 ;;4904
 ;;21,"61392066531 ")
 ;;4905
 ;;21,"61392066539 ")
 ;;4906
 ;;21,"61392066560 ")
 ;;4907
 ;;21,"61392066625 ")
 ;;4908
 ;;21,"61392066630 ")
 ;;4909
 ;;21,"61392066631 ")
 ;;4910
 ;;21,"61392066639 ")
 ;;4911
 ;;21,"61392066660 ")
 ;;4912
 ;;21,"61392066690 ")
 ;;4913
 ;;21,"61392066725 ")
 ;;4914
 ;;21,"61392066730 ")
 ;;4915
 ;;21,"61392066731 ")
 ;;4916
 ;;21,"61392066739 ")
 ;;4917
 ;;21,"61392066760 ")
 ;;4918
 ;;21,"61392066825 ")
 ;;4919
 ;;21,"61392066830 ")
 ;;4920
 ;;21,"61392066831 ")
 ;;4921
 ;;21,"61392066839 ")
 ;;4922
 ;;21,"61392066860 ")
 ;;4923
 ;;21,"61392067323 ")
 ;;4924
 ;;21,"61392067325 ")
 ;;4925
 ;;21,"61392067330 ")
 ;;4926
 ;;21,"61392067331 ")
 ;;4927
 ;;21,"61392067339 ")
 ;;4928
 ;;21,"61392067360 ")
 ;;4929
 ;;21,"61392067365 ")
 ;;4930
 ;;21,"61392074025 ")
 ;;4931
 ;;21,"61392075825 ")
 ;;4932
 ;;21,"61392075830 ")
 ;;4933
 ;;21,"61392075925 ")
 ;;4934
 ;;21,"61392075930 ")
 ;;4935
 ;;21,"61392088525 ")
 ;;4936
 ;;21,"61392088530 ")
 ;;4937
 ;;21,"61392088539 ")
 ;;4938
 ;;21,"61442015101 ")
 ;;4939
 ;;21,"61442015110 ")
 ;;4940
 ;;21,"61442015201 ")
 ;;4941
 ;;21,"61442015210 ")
 ;;4942
 ;;21,"61807012930 ")
 ;;4943
 ;;21,"61807014230 ")
 ;;4944
 ;;21,"61807014330 ")
 ;;4945
 ;;21,"62033010202 ")
 ;;4946
 ;;21,"62033010203 ")
 ;;4947
 ;;21,"62037053905 ")
 ;;4948
 ;;21,"62037053910 ")
 ;;4949
 ;;21,"62037075310 ")
 ;;4950
 ;;21,"62037075330 ")
 ;;4951
 ;;21,"62037075410 ")
 ;;4952
 ;;21,"62037075430 ")
 ;;4953
 ;;21,"62037075510 ")
 ;;4954
 ;;21,"62037075530 ")
 ;;4955
 ;;21,"62037084530 ")
 ;;4956
 ;;21,"62037084601 ")
 ;;4957
 ;;21,"62037084610 ")
 ;;4958
 ;;21,"62037084630 ")
 ;;4959
 ;;21,"62318005501 ")
 ;;4960
 ;;21,"62318005502 ")
 ;;4961
 ;;21,"62318008301 ")
 ;;4962
 ;;21,"62318008302 ")
 ;;4963
 ;;21,"62318008304 ")
 ;;4964
 ;;21,"62318009701 ")
 ;;4965
 ;;21,"62318009704 ")
 ;;4966
 ;;21,"62318010101 ")
 ;;4967
 ;;21,"62318010104 ")
 ;;4968
 ;;21,"62318016401 ")
 ;;4969
 ;;21,"62318016501 ")
 ;;4970
 ;;21,"62318016601 ")
 ;;4971
 ;;21,"62318343803 ")
 ;;4972
 ;;21,"62318343808 ")
 ;;4973
 ;;21,"62559015801 ")
 ;;4974
 ;;21,"62559015901 ")
 ;;4975
 ;;21,"62559016001 ")
 ;;4976
 ;;21,"62584019300 ")
 ;;4977
 ;;21,"62584019306 ")
 ;;4978
 ;;21,"62584019390 ")
 ;;4979
 ;;21,"62584030850 ")
 ;;4980
 ;;21,"62584055601 ")
 ;;4981
 ;;21,"62584055685 ")
 ;;4982
 ;;21,"62584055785 ")
 ;;4983
 ;;21,"62584061450 ")
 ;;4984
 ;;21,"62584074901 ")
 ;;4985
 ;;21,"62584075001 ")
 ;;4986
 ;;21,"62584075101 ")
 ;;4987
 ;;21,"62584088250 ")
 ;;4988
 ;;21,"62959001000 ")
 ;;4989
 ;;21,"63304016403 ")
 ;;4990
 ;;21,"63304016430 ")
 ;;4991
 ;;21,"63304016452 ")
 ;;4992
 ;;21,"63304016501 ")
 ;;4993
 ;;21,"63304016503 ")
 ;;4994
 ;;21,"63304016505 ")
 ;;4995
 ;;21,"63304016530 ")
 ;;4996
 ;;21,"63304016552 ")
 ;;4997
 ;;21,"63304016601 ")
 ;;4998
 ;;21,"63304016603 ")
 ;;4999
 ;;21,"63304016605 ")
 ;;5000
 ;;21,"63304016630 ")
 ;;5001
 ;;21,"63304016652 ")
 ;;5002
 ;;21,"63304016703 ")
 ;;5003
 ;;21,"63304016710 ")
 ;;5004
 ;;21,"63304016803 ")
 ;;5005
 ;;21,"63304016810 ")
 ;;5006
 ;;21,"63304020201 ")
 ;;5007
 ;;21,"63304063201 ")
 ;;5008
 ;;21,"63304063210 ")
 ;;5009
 ;;21,"63304063211 ")
 ;;5010
 ;;21,"63304063230 ")
 ;;5011
 ;;21,"63304063280 ")
 ;;5012
 ;;21,"63304063290 ")
 ;;5013
 ;;21,"63304068630 ")
 ;;5014
 ;;21,"63304068690 ")
 ;;5015
 ;;21,"63304068730 ")
 ;;5016
 ;;21,"63304068790 ")
 ;;5017
 ;;21,"63304084005 ")
 ;;5018
 ;;21,"63537251101 ")
 ;;5019
 ;;21,"63537251104 ")
 ;;5020
 ;;21,"63629131801 ")
 ;;5021
 ;;21,"63629131802 ")
 ;;5022
 ;;21,"63629131803 ")
 ;;5023
 ;;21,"63629131804 ")
 ;;5024
 ;;21,"63629131805 ")
 ;;5025
 ;;21,"63629136801 ")
 ;;5026
 ;;21,"63629136802 ")
 ;;5027
 ;;21,"63629136803 ")
 ;;5028
 ;;21,"63629136804 ")
 ;;5029
 ;;21,"63629136805 ")
 ;;5030
 ;;21,"63629136806 ")
 ;;5031
 ;;21,"63629136807 ")
 ;;5032
 ;;21,"63629136901 ")
 ;;5033
 ;;21,"63629136902 ")
 ;;5034
 ;;21,"63629136903 ")
 ;;5035
 ;;21,"63629136904 ")
 ;;5036
 ;;21,"63629136905 ")
 ;;5037
 ;;21,"63629136906 ")
 ;;5038
 ;;21,"63629136907 ")
 ;;5039
 ;;21,"63629136908 ")
 ;;5040
 ;;21,"63629136909 ")
 ;;5041
 ;;21,"63629137001 ")
 ;;5042
 ;;21,"63629137002 ")
 ;;5043
 ;;21,"63629137003 ")
 ;;5044
 ;;21,"63629137004 ")
 ;;5045
 ;;21,"63629151001 ")
 ;;5046
 ;;21,"63629151002 ")
 ;;5047
 ;;21,"63629151003 ")
 ;;5048
 ;;21,"63629151004 ")
 ;;5049
 ;;21,"63629151301 ")
 ;;5050
 ;;21,"63629151302 ")
 ;;5051
 ;;21,"63629151303 ")
 ;;5052
 ;;21,"63629151304 ")
 ;;5053
 ;;21,"63629151305 ")
 ;;5054
 ;;21,"63629151306 ")
 ;;5055
 ;;21,"63629151307 ")
 ;;5056
 ;;21,"63629160901 ")
 ;;5057
 ;;21,"63629160902 ")
 ;;5058
 ;;21,"63629160903 ")
 ;;5059
 ;;21,"63629160904 ")
 ;;5060
 ;;21,"63629161001 ")
 ;;5061
 ;;21,"63629161002 ")
 ;;5062
 ;;21,"63629161003 ")
 ;;5063
 ;;21,"63629161004 ")
 ;;5064
 ;;21,"63629161005 ")
 ;;5065
 ;;21,"63629161006 ")
 ;;5066
 ;;21,"63629161007 ")
 ;;5067
 ;;21,"63629184001 ")
 ;;5068
 ;;21,"63629184002 ")
 ;;5069
 ;;21,"63629184003 ")
 ;;5070
 ;;21,"63629184004 ")
 ;;5071
 ;;21,"63629275601 ")
 ;;5072
 ;;21,"63629283302 ")
 ;;5073
 ;;21,"63629283304 ")
 ;;5074
 ;;21,"63629283305 ")
 ;;5075
 ;;21,"63629283306 ")
 ;;5076
 ;;21,"63629283307 ")
 ;;5077
 ;;21,"63629286701 ")
 ;;5078
 ;;21,"63629286702 ")
 ;;5079
 ;;21,"63629286703 ")
 ;;5080
 ;;21,"63629320401 ")
 ;;5081
 ;;21,"63629320402 ")
 ;;5082
 ;;21,"63629320403 ")
 ;;5083
 ;;21,"63629320404 ")
 ;;5084
 ;;21,"63629320501 ")
 ;;5085
 ;;21,"63629320502 ")
 ;;5086
 ;;21,"63629320503 ")
 ;;5087
 ;;21,"63629321001 ")
 ;;5088
 ;;21,"63629321002 ")
 ;;5089
 ;;21,"63629321003 ")
 ;;5090
 ;;21,"63629321004 ")
 ;;5091
 ;;21,"63629321005 ")
 ;;5092
 ;;21,"63629328901 ")
 ;;5093
 ;;21,"63629328902 ")
 ;;5094
 ;;21,"63629328903 ")
 ;;5095
 ;;21,"63629328904 ")
 ;;5096
 ;;21,"63629328905 ")
 ;;5097
 ;;21,"63629330901 ")
 ;;5098
 ;;21,"63629330902 ")
 ;;5099
 ;;21,"63629330903 ")
 ;;5100
 ;;21,"63629330904 ")
 ;;5101
 ;;21,"63629330905 ")
 ;;5102
 ;;21,"63629330906 ")
 ;;5103
 ;;21,"63629330907 ")
 ;;5104
 ;;21,"63629331201 ")
 ;;5105
 ;;21,"63629331202 ")
 ;;5106
 ;;21,"63629331203 ")
 ;;5107
 ;;21,"63629331301 ")
 ;;5108
 ;;21,"63629331302 ")
 ;;5109
 ;;21,"63629331303 ")
 ;;5110
 ;;21,"63629331304 ")
 ;;5111
 ;;21,"63629331701 ")
 ;;5112
 ;;21,"63629331702 ")
 ;;5113
 ;;21,"63629331703 ")
 ;;5114