sub generateResponseHash{
   my $sth = shift;   
 
   $sth->execute () or die "Unable to execute query: " . $sth->errstr;

   my $count = $sth->rows;

   warn("count = '$count'");
   if ($count == 0) {
     return 1;
     }
   
   my $ref = $sth->fetchrow_hashref ();
   
#   print "Hello Output File\n"; #test stdout redirect to dumper.log works.

   warn("generateResponseHash ref: '$ref'");
   my $hash = hash_display_listing ($ref);
   $sth->finish ();
   completeResultHash( $hash ); 

}