sub DataClass::doit {
    my ($self, $set, $hash) = @_;
    $self->Sql ("SELECT * FROM $set");
    while ($self->FetchRow ()) {
        my %x = $self->DataHash();
        $hash->{$x{ID}}{$x{DataName}}= $x{DataValue};
    }
    1;
}

$Data->doit('ConfigData',\%ConfigData);
$Data->doit('DicomDestinations', \%DestinationData);