$Data->Sql ("SELECT * FROM ConfigData");
 while ($Data->FetchRow ()) {
    my %x= $Data->DataHash();
    $ConfigData{$x{ID}}{$x{DataName}}= $x{DataValue};
    }
 $Data->Sql ("SELECT * FROM DicomDestinations");
 while ($Data->FetchRow ()) {
    my %x= $Data->DataHash();
    $DestinationData{$x{ID}}{$x{DataName}}= $x{DataValue};
    }