while (my $ref = $sth->fetchrow_hashref ()){
#        #warn("generateResponseHash line 587 ref: '$ref'");
       hash_display_listing ($ref);
   	   ++$count;
      }
     $sth->finish ();
     completeResultHash(%hash_record);