sub get_rows_from {
  my $dbh   = shift;
  my $table = shift;

  $dbh->Sql ("SELECT * FROM " . $table);

  my %result;
  while ($dbh->FetchRow() ) {
    my %x= $dbh->DataHash();
    $result{ $x{ID} } = \%x;
  }
  return \%result;
}

my $config_data_ref = $dbh->get_rows_from( 'ConfigData' );
my $dicom_data_ref  = $dbh->get_rows_from( 'DicomDestinations' );