sub SearchResultUpdateExpertiseDB { # update SearchResult with info retrieved from PubMed search
  my (%InsertComponent) = %{$_[0]}; # dereference the reference to the %InsertComponent hash
  my $FinalInsertSQL = '';
  my $StartInsertSQL = 'insert into SearchResult(';
  my $InsertColumnSQL = '';
  my $InsertValuesSQL = ' values(';
  my $counter=0;
  my $flag=0;
  my $AtLeastOneValueToInsert=0;
  my $sth;

  foreach my $key (keys (%InsertComponent)) {
    if ($SearchResultsColumnType{$key} eq 'N') {  # this is a number --> no need for quotes
      $InsertColumnSQL = "$InsertColumnSQL" . "$key";
      $InsertValuesSQL = "$InsertValuesSQL" .  "$InsertComponent{$key}";
      $flag = 1;
      $AtLeastOneValueToInsert=1;
      if ($debug) {print "SearchResultUpdate LOOP1: Column = $key ColumnType = $SearchResultsColumnType{$key} InsertComponent{$key} = $InsertComponent{$key}\n"}; # debug
    };

    if ($SearchResultsColumnType{$key} eq 'T') { # this is text --> need quotes
      $InsertColumnSQL = "$InsertColumnSQL" . "$key";
      $InsertComponent{$key} =~ s|\'|\'\'|g; # check for single quote in the string so that it can be escaped for inserting into DB
      $InsertValuesSQL = "$InsertValuesSQL" . '\'' .  "$InsertComponent{$key}" . '\'';
      $flag = 1;
      $AtLeastOneValueToInsert=1;
      if ($debug) {print "SearchResultUpdate LOOP2: Column = $key ColumnType = $SearchResultsColumnType{$key} InsertComponent{$key} = $InsertComponent{$key}\n"};   # debug
    };

    if (($counter < ((keys (%InsertComponent)))-1) && ($flag == 1))  {
      $InsertColumnSQL = "$InsertColumnSQL" . ',';
      $InsertValuesSQL = "$InsertValuesSQL" . ',';
      $flag = 0;
    }
    $counter++;
  } # close the foreach

  $InsertColumnSQL = "$InsertColumnSQL" . ')'; # close this part of the insert statement
  $InsertValuesSQL = "$InsertValuesSQL" . ')'; # close this part of the insert statement

  if ($AtLeastOneValueToInsert == 1) {
    $FinalInsertSQL = $StartInsertSQL . $InsertColumnSQL . $InsertValuesSQL;
	  if ($debug1 == 1) {print "now updating SearchResults table\n"};
    if ($debug == 1) {
      print "Updating SearchResult: FinalSQL = $FinalInsertSQL \n\n"; # debug
    }
    $sth = $dbh->prepare($FinalInsertSQL);
    $sth->execute()           # Execute the insert
     or die "Couldn't execute statement: " . $sth->errstr;
    $sth->finish;