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

BGPM5BBF.m

Go to the documentation of this file.
  1. BGPM5BBF ;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,"66267048420 ")
  1. ;;5819
  1. ;;21,"66267048430 ")
  1. ;;5820
  1. ;;21,"66267048440 ")
  1. ;;5821
  1. ;;21,"66267048445 ")
  1. ;;5822
  1. ;;21,"66267048450 ")
  1. ;;5823
  1. ;;21,"66267048460 ")
  1. ;;5824
  1. ;;21,"66267048810 ")
  1. ;;5825
  1. ;;21,"66267048815 ")
  1. ;;5826
  1. ;;21,"66267048820 ")
  1. ;;5827
  1. ;;21,"66267048830 ")
  1. ;;5828
  1. ;;21,"66267048840 ")
  1. ;;5829
  1. ;;21,"66267048860 ")
  1. ;;5830
  1. ;;21,"66267048890 ")
  1. ;;5831
  1. ;;21,"66267052210 ")
  1. ;;5832
  1. ;;21,"66267052215 ")
  1. ;;5833
  1. ;;21,"66267052220 ")
  1. ;;5834
  1. ;;21,"66267052230 ")
  1. ;;5835
  1. ;;21,"66267052240 ")
  1. ;;5836
  1. ;;21,"66267056010 ")
  1. ;;5837
  1. ;;21,"66267056020 ")
  1. ;;5838
  1. ;;21,"66267056030 ")
  1. ;;5839
  1. ;;21,"66267056040 ")
  1. ;;5840
  1. ;;21,"66267056060 ")
  1. ;;5841
  1. ;;21,"66267056090 ")
  1. ;;5842
  1. ;;21,"66267057620 ")
  1. ;;5843
  1. ;;21,"66267057630 ")
  1. ;;5844
  1. ;;21,"66267057640 ")
  1. ;;5845
  1. ;;21,"66267057660 ")
  1. ;;5846
  1. ;;21,"66267057690 ")
  1. ;;5847
  1. ;;21,"66267058710 ")
  1. ;;5848
  1. ;;21,"66267058720 ")
  1. ;;5849
  1. ;;21,"66267058730 ")
  1. ;;5850
  1. ;;21,"66267058740 ")
  1. ;;5851
  1. ;;21,"66267058760 ")
  1. ;;5852
  1. ;;21,"66267067430 ")
  1. ;;5853
  1. ;;21,"66267072130 ")
  1. ;;5854
  1. ;;21,"66267072160 ")
  1. ;;5855
  1. ;;21,"66267072430 ")
  1. ;;5856
  1. ;;21,"66267100600 ")
  1. ;;5857
  1. ;;21,"66336000430 ")
  1. ;;5858
  1. ;;21,"66336000460 ")
  1. ;;5859
  1. ;;21,"66336000490 ")
  1. ;;5860
  1. ;;21,"66336001428 ")
  1. ;;5861
  1. ;;21,"66336001430 ")
  1. ;;5862
  1. ;;21,"66336001460 ")
  1. ;;5863
  1. ;;21,"66336002730 ")
  1. ;;5864
  1. ;;21,"66336002760 ")
  1. ;;5865
  1. ;;21,"66336002790 ")
  1. ;;5866
  1. ;;21,"66336022430 ")
  1. ;;5867
  1. ;;21,"66336027130 ")
  1. ;;5868
  1. ;;21,"66336035430 ")
  1. ;;5869
  1. ;;21,"66336035460 ")
  1. ;;5870
  1. ;;21,"66336035490 ")
  1. ;;5871
  1. ;;21,"66336041830 ")
  1. ;;5872
  1. ;;21,"66336062028 ")
  1. ;;5873
  1. ;;21,"66336062030 ")
  1. ;;5874
  1. ;;21,"66336062060 ")
  1. ;;5875
  1. ;;21,"66336062090 ")
  1. ;;5876
  1. ;;21,"66336062130 ")
  1. ;;5877
  1. ;;21,"66336062160 ")
  1. ;;5878
  1. ;;21,"66336067330 ")
  1. ;;5879
  1. ;;21,"66336067350 ")
  1. ;;5880
  1. ;;21,"66336067360 ")
  1. ;;5881
  1. ;;21,"66336075730 ")
  1. ;;5882
  1. ;;21,"66336075760 ")
  1. ;;5883
  1. ;;21,"66336075790 ")
  1. ;;5884
  1. ;;21,"66336079930 ")
  1. ;;5885
  1. ;;21,"66336079960 ")
  1. ;;5886
  1. ;;21,"66336083814 ")
  1. ;;5887
  1. ;;21,"66336083830 ")
  1. ;;5888
  1. ;;21,"66336084430 ")
  1. ;;5889
  1. ;;21,"66336084490 ")
  1. ;;5890
  1. ;;21,"66336097360 ")
  1. ;;5891
  1. ;;21,"66336099330 ")
  1. ;;5892
  1. ;;21,"66336099390 ")
  1. ;;5893
  1. ;;21,"66406003202 ")
  1. ;;5894
  1. ;;21,"66406003303 ")
  1. ;;5895
  1. ;;21,"66406003404 ")
  1. ;;5896
  1. ;;21,"66406003505 ")
  1. ;;5897
  1. ;;21,"66893003201 ")
  1. ;;5898
  1. ;;21,"66893028008 ")
  1. ;;5899
  1. ;;21,"66893028108 ")
  1. ;;5900
  1. ;;21,"66893028202 ")
  1. ;;5901
  1. ;;21,"66993070930 ")
  1. ;;5902
  1. ;;21,"66993071130 ")
  1. ;;5903
  1. ;;21,"66993071230 ")
  1. ;;5904
  1. ;;21,"67046001030 ")
  1. ;;5905
  1. ;;21,"67046001130 ")
  1. ;;5906
  1. ;;21,"67046001230 ")
  1. ;;5907
  1. ;;21,"67046001330 ")
  1. ;;5908
  1. ;;21,"67046001430 ")
  1. ;;5909
  1. ;;21,"67046001530 ")
  1. ;;5910
  1. ;;21,"67046001630 ")
  1. ;;5911
  1. ;;21,"67046001730 ")
  1. ;;5912
  1. ;;21,"67046010730 ")
  1. ;;5913
  1. ;;21,"67046010830 ")
  1. ;;5914
  1. ;;21,"67046010930 ")
  1. ;;5915
  1. ;;21,"67046011030 ")
  1. ;;5916
  1. ;;21,"67046011130 ")
  1. ;;5917
  1. ;;21,"67046011230 ")
  1. ;;5918
  1. ;;21,"67046011330 ")
  1. ;;5919
  1. ;;21,"67046011430 ")
  1. ;;5920
  1. ;;21,"67046011530 ")
  1. ;;5921
  1. ;;21,"67046011630 ")
  1. ;;5922
  1. ;;21,"67046021030 ")
  1. ;;5923
  1. ;;21,"67046021060 ")
  1. ;;5924
  1. ;;21,"67046021130 ")
  1. ;;5925
  1. ;;21,"67046021160 ")
  1. ;;5926
  1. ;;21,"67046021230 ")
  1. ;;5927
  1. ;;21,"67046021260 ")
  1. ;;5928
  1. ;;21,"67046048130 ")
  1. ;;5929
  1. ;;21,"67046048230 ")
  1. ;;5930
  1. ;;21,"67046048330 ")
  1. ;;5931
  1. ;;21,"67046053030 ")
  1. ;;5932
  1. ;;21,"67046053130 ")
  1. ;;5933
  1. ;;21,"67046053230 ")
  1. ;;5934
  1. ;;21,"67046053330 ")
  1. ;;5935
  1. ;;21,"67046066530 ")
  1. ;;5936
  1. ;;21,"67046073930 ")
  1. ;;5937
  1. ;;21,"67046074030 ")
  1. ;;5938
  1. ;;21,"67046074130 ")
  1. ;;5939
  1. ;;21,"67046074230 ")
  1. ;;5940
  1. ;;21,"67228000703 ")
  1. ;;5941
  1. ;;21,"67228000706 ")
  1. ;;5942
  1. ;;21,"67228006803 ")
  1. ;;5943
  1. ;;21,"67228006806 ")
  1. ;;5944
  1. ;;21,"67228006903 ")
  1. ;;5945
  1. ;;21,"67228006906 ")
  1. ;;5946
  1. ;;21,"67228014003 ")
  1. ;;5947
  1. ;;21,"67228014006 ")
  1. ;;5948
  1. ;;21,"67228021703 ")
  1. ;;5949
  1. ;;21,"67228021706 ")
  1. ;;5950
  1. ;;21,"67228021803 ")
  1. ;;5951
  1. ;;21,"67228021806 ")
  1. ;;5952
  1. ;;21,"67228021903 ")
  1. ;;5953
  1. ;;21,"67228021906 ")
  1. ;;5954
  1. ;;21,"67228023203 ")
  1. ;;5955
  1. ;;21,"67228023206 ")
  1. ;;5956
  1. ;;21,"67228023403 ")
  1. ;;5957
  1. ;;21,"67228023406 ")
  1. ;;5958
  1. ;;21,"67228025103 ")
  1. ;;5959
  1. ;;21,"67228025106 ")
  1. ;;5960
  1. ;;21,"67228025203 ")
  1. ;;5961
  1. ;;21,"67228025206 ")
  1. ;;5962
  1. ;;21,"67228025303 ")
  1. ;;5963
  1. ;;21,"67228025306 ")
  1. ;;5964
  1. ;;21,"67228025403 ")
  1. ;;5965
  1. ;;21,"67228025406 ")
  1. ;;5966
  1. ;;21,"67228026003 ")
  1. ;;5967
  1. ;;21,"67228026006 ")
  1. ;;5968
  1. ;;21,"67228026203 ")
  1. ;;5969
  1. ;;21,"67228026206 ")
  1. ;;5970
  1. ;;21,"67228026303 ")
  1. ;;5971
  1. ;;21,"67228026306 ")
  1. ;;5972
  1. ;;21,"67228026603 ")
  1. ;;5973
  1. ;;21,"67228026606 ")
  1. ;;5974
  1. ;;21,"67228027403 ")
  1. ;;5975
  1. ;;21,"67228027406 ")
  1. ;;5976
  1. ;;21,"67228030803 ")
  1. ;;5977
  1. ;;21,"67228030806 ")
  1. ;;5978
  1. ;;21,"67228031003 ")
  1. ;;5979
  1. ;;21,"67228031006 ")
  1. ;;5980
  1. ;;21,"67228032403 ")
  1. ;;5981
  1. ;;21,"67228032406 ")
  1. ;;5982
  1. ;;21,"67228032503 ")
  1. ;;5983
  1. ;;21,"67228032506 ")
  1. ;;5984
  1. ;;21,"67228033003 ")
  1. ;;5985
  1. ;;21,"67228033006 ")
  1. ;;5986
  1. ;;21,"67228033403 ")
  1. ;;5987
  1. ;;21,"67228033406 ")
  1. ;;5988
  1. ;;21,"67228034603 ")
  1. ;;5989
  1. ;;21,"67228034606 ")
  1. ;;5990
  1. ;;21,"67228035103 ")
  1. ;;5991
  1. ;;21,"67228035106 ")
  1. ;;5992
  1. ;;21,"67228035503 ")
  1. ;;5993
  1. ;;21,"67228035506 ")
  1. ;;5994
  1. ;;21,"67228041903 ")
  1. ;;5995
  1. ;;21,"67228041906 ")
  1. ;;5996
  1. ;;21,"67228043203 ")
  1. ;;5997
  1. ;;21,"67228043206 ")
  1. ;;5998
  1. ;;21,"67228043303 ")
  1. ;;5999
  1. ;;21,"67228043306 ")
  1. ;;6000
  1. ;;21,"67228045503 ")
  1. ;;6001
  1. ;;21,"67228045506 ")
  1. ;;6002
  1. ;;21,"67228046103 ")
  1. ;;6003
  1. ;;21,"67228046106 ")
  1. ;;6004
  1. ;;21,"67228047603 ")
  1. ;;6005
  1. ;;21,"67228047606 ")
  1. ;;6006
  1. ;;21,"67228047703 ")
  1. ;;6007
  1. ;;21,"67228047706 ")
  1. ;;6008
  1. ;;21,"67253070006 ")
  1. ;;6009
  1. ;;21,"67253070106 ")
  1. ;;6010
  1. ;;21,"67263010901 ")
  1. ;;6011
  1. ;;21,"67263027901 ")
  1. ;;6012
  1. ;;21,"67263049801 ")
  1. ;;6013
  1. ;;21,"67263060090 ")
  1. ;;6014
  1. ;;21,"67296029501 ")
  1. ;;6015
  1. ;;21,"67296038201 ")
  1. ;;6016
  1. ;;21,"67296038801 ")
  1. ;;6017
  1. ;;21,"67296038802 ")
  1. ;;6018
  1. ;;21,"67296068301 ")
  1. ;;6019
  1. ;;21,"67544007830 ")
  1. ;;6020
  1. ;;21,"67544007853 ")
  1. ;;6021
  1. ;;21,"67544007860 ")
  1. ;;6022
  1. ;;21,"67544007870 ")
  1. ;;6023
  1. ;;21,"67544007880 ")
  1. ;;6024
  1. ;;21,"67544007892 ")
  1. ;;6025
  1. ;;21,"67544008530 ")
  1. ;;6026
  1. ;;21,"67544008532 ")
  1. ;;6027
  1. ;;21,"67544008553 ")
  1. ;;6028
  1. ;;21,"67544008560 ")
  1. ;;6029
  1. ;;21,"67544008570 ")
  1. ;;6030
  1. ;;21,"67544008575 ")
  1. ;;6031
  1. ;;21,"67544008580 ")
  1. ;;6032
  1. ;;21,"67544013520 ")
  1. ;;6033
  1. ;;21,"67544013530 ")
  1. ;;6034
  1. ;;21,"67544013553 ")
  1. ;;6035
  1. ;;21,"67544013560 ")
  1. ;;6036
  1. ;;21,"67544013570 ")
  1. ;;6037
  1. ;;21,"67544015815 ")
  1. ;;6038
  1. ;;21,"67544015830 ")
  1. ;;6039
  1. ;;21,"67544015860 ")
  1. ;;6040
  1. ;;21,"67544016230 ")
  1. ;;6041
  1. ;;21,"67544016232 ")
  1. ;;6042
  1. ;;21,"67544016253 ")
  1. ;;6043
  1. ;;21,"67544016260 ")
  1. ;;6044
  1. ;;21,"67544016915 ")
  1. ;;6045
  1. ;;21,"67544016930 ")
  1. ;;6046
  1. ;;21,"67544016931 ")
  1. ;;6047
  1. ;;21,"67544016932 ")
  1. ;;6048
  1. ;;21,"67544016933 ")
  1. ;;6049
  1. ;;21,"67544016945 ")
  1. ;;6050
  1. ;;21,"67544016953 ")
  1. ;;6051
  1. ;;21,"67544020630 ")
  1. ;;6052
  1. ;;21,"67544020660 ")
  1. ;;6053
  1. ;;21,"67544023515 ")
  1. ;;6054
  1. ;;21,"67544023530 ")
  1. ;;6055
  1. ;;21,"67544023545 ")
  1. ;;6056
  1. ;;21,"67544025330 ")
  1. ;;6057
  1. ;;21,"67544025332 ")
  1. ;;6058
  1. ;;21,"67544025360 ")
  1. ;;6059
  1. ;;21,"67544025370 ")
  1. ;;6060
  1. ;;21,"67544029530 ")
  1. ;;6061
  1. ;;21,"67544029531 ")
  1. ;;6062
  1. ;;21,"67544029532 ")
  1. ;;6063
  1. ;;21,"67544029553 ")
  1. ;;6064
  1. ;;21,"67544029560 ")
  1. ;;6065
  1. ;;21,"67544029570 ")
  1. ;;6066
  1. ;;21,"67544029580 ")
  1. ;;6067
  1. ;;21,"67544031615 ")
  1. ;;6068
  1. ;;21,"67544031630 ")
  1. ;;6069
  1. ;;21,"67544031631 ")
  1. ;;6070
  1. ;;21,"67544031632 ")
  1. ;;6071
  1. ;;21,"67544031645 ")
  1. ;;6072
  1. ;;21,"67544031653 ")
  1. ;;6073
  1. ;;21,"67544031660 ")
  1. ;;6074
  1. ;;21,"67544031670 ")
  1. ;;6075
  1. ;;21,"67544031715 ")
  1. ;;6076
  1. ;;21,"67544031730 ")
  1. ;;6077
  1. ;;21,"67544031732 ")
  1. ;;6078
  1. ;;21,"67544031753 ")
  1. ;;6079
  1. ;;21,"67544031760 ")
  1. ;;6080
  1. ;;21,"67544033130 ")
  1. ;;6081
  1. ;;21,"67544033153 ")
  1. ;;6082
  1. ;;21,"67544033160 ")
  1. ;;6083
  1. ;;21,"67544035715 ")
  1. ;;6084
  1. ;;21,"67544035730 ")
  1. ;;6085
  1. ;;21,"67544035745 ")
  1. ;;6086
  1. ;;21,"67544035753 ")
  1. ;;6087
  1. ;;21,"67544035815 ")
  1. ;;6088
  1. ;;21,"67544035830 ")
  1. ;;6089
  1. ;;21,"67544035860 ")
  1. ;;6090
  1. ;;21,"67544036015 ")
  1. ;;6091
  1. ;;21,"67544036030 ")
  1. ;;6092
  1. ;;21,"67544036045 ")
  1. ;;6093
  1. ;;21,"67544036053 ")
  1. ;;6094
  1. ;;21,"67544036060 ")
  1. ;;6095
  1. ;;21,"67544036073 ")
  1. ;;6096
  1. ;;21,"67544036515 ")
  1. ;;6097
  1. ;;21,"67544036530 ")
  1. ;;6098
  1. ;;21,"67544036553 ")
  1. ;;6099
  1. ;;21,"67544036560 ")
  1. ;;6100
  1. ;;21,"67544036615 ")
  1. ;;6101
  1. ;;21,"67544036630 ")
  1. ;;6102
  1. ;;21,"67544036645 ")
  1. ;;6103
  1. ;;21,"67544036653 ")
  1. ;;6104
  1. ;;21,"67544036660 ")
  1. ;;6105
  1. ;;21,"67544036673 ")
  1. ;;6106
  1. ;;21,"67544040915 ")
  1. ;;6107
  1. ;;21,"67544040930 ")
  1. ;;6108
  1. ;;21,"67544040932 ")
  1. ;;6109
  1. ;;21,"67544040945 ")
  1. ;;6110
  1. ;;21,"67544040953 ")
  1. ;;6111
  1. ;;21,"67544040960 ")
  1. ;;6112
  1. ;;21,"67544040973 ")
  1. ;;6113
  1. ;;21,"67544042915 ")
  1. ;;6114
  1. ;;21,"67544042930 ")
  1. ;;6115
  1. ;;21,"67544042931 ")
  1. ;;6116
  1. ;;21,"67544042932 ")
  1. ;;6117
  1. ;;21,"67544042960 ")
  1. ;;6118
  1. ;;21,"67544043015 ")
  1. ;;6119
  1. ;;21,"67544043030 ")
  1. ;;6120
  1. ;;21,"67544043031 ")
  1. ;;6121
  1. ;;21,"67544043045 ")
  1. ;;6122
  1. ;;21,"67544043053 ")
  1. ;;6123
  1. ;;21,"67544043415 ")
  1. ;;6124
  1. ;;21,"67544043430 ")
  1. ;;6125
  1. ;;21,"67544043445 ")
  1. ;;6126
  1. ;;21,"67544045515 ")
  1. ;;6127
  1. ;;21,"67544045530 ")
  1. ;;6128
  1. ;;21,"67544045553 ")
  1. ;;6129
  1. ;;21,"67544045560 ")
  1. ;;6130
  1. ;;21,"67544050015 ")
  1. ;;6131
  1. ;;21,"67544050030 ")
  1. ;;6132
  1. ;;21,"67544050053 ")
  1. ;;6133
  1. ;;21,"67544050060 ")
  1. ;;6134
  1. ;;21,"67544051631 ")
  1. ;;6135
  1. ;;21,"67544052830 ")
  1. ;;6136
  1. ;;21,"67544052832 ")
  1. ;;6137
  1. ;;21,"67544052853 ")
  1. ;;6138
  1. ;;21,"67544052860 ")
  1. ;;6139
  1. ;;21,"67544052870 ")
  1. ;;6140
  1. ;;21,"67544052880 ")
  1. ;;6141
  1. ;;21,"67544052892 ")
  1. ;;6142
  1. ;;21,"67544053731 ")
  1. ;;6143
  1. ;;21,"67544057215 ")
  1. ;;6144
  1. ;;21,"67544057230 ")
  1. ;;6145
  1. ;;21,"67544057231 ")
  1. ;;6146
  1. ;;21,"67544057232 ")
  1. ;;6147
  1. ;;21,"67544057245 ")
  1. ;;6148
  1. ;;21,"67544057253 ")
  1. ;;6149
  1. ;;21,"67544057260 ")
  1. ;;6150
  1. ;;21,"67544057270 ")
  1. ;;6151
  1. ;;21,"67544057280 ")
  1. ;;6152
  1. ;;21,"67544057292 ")
  1. ;;6153
  1. ;;21,"67544058815 ")
  1. ;;6154
  1. ;;21,"67544058830 ")
  1. ;;6155
  1. ;;21,"67544058845 ")
  1. ;;6156
  1. ;;21,"67544058853 ")
  1. ;;6157
  1. ;;21,"67544058860 ")
  1. ;;6158
  1. ;;21,"67544061730 ")
  1. ;;6159
  1. ;;21,"67544061732 ")
  1. ;;6160
  1. ;;21,"67544064815 ")
  1. ;;6161
  1. ;;21,"67544064831 ")
  1. ;;6162
  1. ;;21,"67544064832 ")
  1. ;;6163
  1. ;;21,"67544064845 ")
  1. ;;6164
  1. ;;21,"67544065231 ")
  1. ;;6165
  1. ;;21,"67544066431 ")
  1. ;;6166
  1. ;;21,"67544066432 ")
  1. ;;6167
  1. ;;21,"67544071831 ")
  1. ;;6168
  1. ;;21,"67544072831 ")
  1. ;;6169
  1. ;;21,"67544072832 ")
  1. ;;6170