sub ticket_max_seq ($$;$$) { # flags&1: intern
	my($tid,$seq,$flags,$typ) = @_;
	my $mseq = DoFn("select max(seq) from ticketid where ticket = $tid".(($flags&2)?"":" and extern != 'n'")) || 0;
	return 0 if $mseq < $seq;
	$mseq;
}
1;
