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