set nocount on
go
use sobaka_pavlova
go

declare @mama_proc sysname, -- имя процедуры из которой идет вызов (мама)
        @daughter_proc sysname, -- имя вызываемой процедуры (дочка)
        @nested_level int, -- уровень вложенности, до которого будем раскручивать дерево
        @level int, -- счетчик вложенности
        @pid int -- id процедуры-мамы

select @mama_przoc = 'DocCasGen',
	 @nested_level =  4 


drop table #tree_table
create table #tree_table -- таблица, содержащая дерево процедур
   (
    nested_level int, -- уровень вложенности процедуры
    id int identity not null,            -- идентификатор поцедуры
    pid int,          -- идентификатор родительской процедуры
    proc_name sysname        -- имя самой процедуры
   )

-- вставим в таблицу первую строку с исходной процедурой
insert into #tree_table (nested_level, pid, proc_name)
 select  0 ,  0 , @mama_proc
 
-- установим счетчик вложенности в 0
select @level =  0 
while @level <= @nested_level
 begin
   --Начитаем список мам 
   -- курсор для начитки имен процедур из #tree_table с текущим уровнем
     declare mama_proc_name_cur cursor for 
       select id, proc_name from #tree_table
         where nested_level = @level

     open mama_proc_name_cur
       fetch next from mama_proc_name_cur into @pid, @mama_proc
        while @@fetch_status= 0 
          begin
              -- начитаем список дочек и вставим их в #tree_table
			-- курсор для начитки имен процедур (дочек), которые вызываются из процедуры (мамы), обозначенной в @mama_proc
			  declare daughter_proc_name_cur cursor for 
			       select distinct object_name(d.depid) 
			         from sysdepends d, sysobjects o
			         where d.depid = o.id
			          and o.xtype in ('P')
			            and d.id  = object_id(@mama_proc)

                open daughter_proc_name_cur
                    fetch next from daughter_proc_name_cur into @daughter_proc
                      while @@fetch_status= 0 
                        begin
                          insert into #tree_table (nested_level, pid, proc_name)
                            select @level +  1 , @pid, @daughter_proc

                          fetch next from daughter_proc_name_cur into @daughter_proc
                        end
                close daughter_proc_name_cur
                deallocate daughter_proc_name_cur
         fetch next from mama_proc_name_cur into @pid, @mama_proc
       end
     close mama_proc_name_cur
     deallocate mama_proc_name_cur

     select @level = @level +  1 
 end

select * from #tree_table