sub SearchPubMed {
	my $InputRow = shift; # temporary! InputRow = SearchTermID
  my $QueryID = shift;
  my $CannedQueriesPurpose = shift;
  my $CannedQueriesQuery = shift;
  my $query;