my $import = $db->prepare_cached('EXEC dbo.ImportClient ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?');
	db_error("compiling ImportClient",$db) if !$import;
	my $WasNew = 0;
	$import->bind_param_inout( 15, \$WasNew, 1);
#...
		my $id = 0;
		$import->bind_param(++$id, $_) for @{$rec->{fields}}{@fields};
		if ($import->execute()) {
			if ($WasNew) {
				$new++;
			} else {
				$updated++;
			}
		} else {
			db_error("updating client '$rec->{fields}->{client_desc}'",$db,1);
			$import->finish();
			$incorrect++;
		}
#...