sub gettags {
	my $filename=shift;
	return unless (-e $filename);

	my $objlinenumber;
	
	my $obj='(alter|create)\s+(procedure|proc|function|view)\s+([\.\_\w]+)';

        ## Not doing variables, useless across multiple files
	#my $var='^(declare|[\s\,])*\@(\w+)\s+[\(\)\w\d\_]+';  
	my (%obj,@ret);
	
	my $line=0;
	
	open O, "<$filename" or die $!;
	while (<O>) {
		$line++;
		chomp;
		if (/$obj/i) { 
            $obj{$3}=$line; 
        }	# proc | func | view
		if (/create\s+rule\s+([\.\_\w]+)/i) {$obj{$1}=$line;} # rule
		if (/sp_addtype\s+([\.\_\w]+)/i) {$obj{$1}=$line;} # UDT
		if (/create\s+default\s+([\.\_\w]+)/i) {$obj{$1}=$line;} # default
		if (/create\s+table\s+([\.\_\w]+)/i) {$obj{$1}=$line;} # table
	}
	close O;
	
	foreach $obj (keys %obj) {
		$objlinenumber=$obj{$obj};
		push @ret,"$obj\t$filename\t$objlinenumber\n";	
	}
	
    @ret;    
}