sub getDTSSource
#gets DTS source values
#returns scalar or list depending on calling context
{
	my @vals;
	for (@_) {
		push @vals, $DTSSource->Item($_)->{Value};
	}
	return wantarray ? @vals : $vals[0];
}