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