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;    
}

##</code><code>##

-- 
--- What tables does the given procedure(s) update?
-- 
declare @Procs table ( id int , depid int )


insert into @Procs (id) values (object_id('my_table'))

-- add rows here
-- add rows here

-- de-nest these procs
while 1 = 1 begin
   insert into @Procs (id,depid)   
      select distinct
            sd.depid,
            sd.id
      from sysdepends sd
         inner join sysobjects so on sd.depid = so.id
         inner join @procs procs on procs.id = sd.id
       where sd.depid not in (Select id from @Procs)
       and (so.xtype <> 'u')


    if @@rowcount > 0
       break
end


-- get a list of updated tables
select distinct
    object_name(sd.id)      as [ProcName],
    object_name(sd.depid)   as [TableName]
from sysdepends sd
   inner join @procs procs on procs.id = sd.id
where resultObj = 1