sub generateResponseHash{
   my $sth = shift;
   my ($user_id, $username, $password, $pin, $position, $forename, $lastname, $business, $address1, $address2, $city, $state, $zip, $phone_home, $phone_cell, $email, $comments, $MJ, $MD, $DD, $DP) = @_;
   my $count = $sth->rows;
   $count = 0;
   
   $sth->execute () or die "Unable to execute query: " . $sth->errstr;
   
   while (my $ref = $sth->fetchrow_hashref ()){
#        #warn("generateResponseHash line 587 ref: '$ref'");
       hash_display_listing ($ref);
   	   ++$count;
      }
     $sth->finish ();
     completeResultHash(%hash_record);
  

}