sub setDTSDestination
#sets DTS destination values
#repeats for as many name, value pairs as it receives
{
	my %pairs = @_;
	for (keys %pairs) {
		$DTSDestination->Item($_)->{Value} = $pairs{$_};
	}
	return;
}