sub UpdateDBvariables
{ my ($dbrecno)=@_;
  my @col=();
  $LastUpdate=$timestamp;
  #print "$Bug LastUpdate $LastUpdate :$DBmasterColumnLabels[0]:${ $DBmasterColumnLabels[0] }";
  &var2DBarray;
  @DBmasterColumnLabels=split(/\t/,$DBmaster{0});

  for(my $i=0;$i<=$#DBmasterColumnLabels;$i++)
  { $col[ $i ]=${ $DBmasterColumnLabels[$i] };
  }
  my $dbrec=join("\t",@col);
  #print "$Bug UpdateDBvariables: $dbrecno: $dbrec";
  $DBmaster{$dbrecno}=$dbrec; # add complete record to masterDB

  my $vAddress=&vAddressFromParts; 
  my $vName=&vNameFromParts;
##############################	
  $DBrecName{$vName} = $dbrecno;
  $DBrec2vName{ $dbrecno } = $vName;
  ##############################
  # NEED to sync info
  ##############################
  &MergeKeyValueUnique("DBrecAddress","$vAddress",$dbrecno); 
  &MergeKeyValueUnique("DBrecSkills","$SkillsForEmergency",$dbrecno);
  &MergeKeyValueUnique("DBrecEmergencyEquipment","$EmergencyEquipment",$dbrecno); 
  &MergeKeyValueUnique("DBrecSpecialNeeds","$SpecialNeeds",$dbrecno); 
  &MergeKeyValueUnique("DBrecPets","$Pets",$dbrecno); 
  &MergeKeyValueUnique("DBrecVisitors","$Visitors",$dbrecno); 

  &MergeKeyValue("DBAddressOnStreet","$StreetName",$StreetAddress); 
  # Update contact info for StreetName=StreetAddress=subAddress
  my $str="";
  if($HomePhone) { $str.="HomePhone:$HomePhone\n"; }
  if($CellPhone) { $str.="CellPhone:$CellPhone\n"; }
  if($EmailAddress) { $str.="EmailAddress:$EmailAddress\n"; }
  if($str ne "")
  { $str="($vName)\n$str";
    &MergeKeyValue("DBcontactInfo","$StreetName=$StreetAddress=$subAddress",$str);
  }
# Update SpecialNeeds for StreetName=StreetAddress=subAddress
  my $name="FirstName=$FirstName\tLastName=$LastName";
  $str="";
  if($SpecialNeeds) { $str.="SpecialNeeds=$SpecialNeeds\t"; }
  if($Pets) { $str.="Pets=$Pets\t"; }
  if($Visitors) { $str.="Visitors=$Visitors\t"; }
  if($str ne ""
      and $InvolvementLevel =~ m/active/i )
  { &MergeKeyValueUnique("DBSpecialNeedsByAddress", "$vAddress", "$dbrecno");
  }
  else
  { &RemoveKeyValue("DBSpecialNeedsByAddress",$vAddress,$dbrecno);
  }
# Update DBrecByLonLat 20230501
  my $lonlat = $ParcelLonLatByAddress{$vAddress};
  #print "$Bug MergeKeyValue $vAddress:$lonlat";
  if( ! $lonlat )
  { my $parcelAddress=&ParcelvAddress($vAddress);
    $lonlat= $ParcelLonLatByAddress{$parcelAddress};
  }

  #print "$Bug MergeKeyValue $vAddress;$lonlat;$dbrecno ";
  if( $lonlat )
  { 
    &MergeKeyValueUnique("DBrecByLonLat",$lonlat,$dbrecno);
    #print "$Bug MergeKeyValue $vAddress;$lonlat;$dbrecno ";
  }
}