Delete cascade, Sql Server

Language: Layout:

--http://stackoverflow.com/questions/116968/in-sql-server-2005-can-i-do-a-cascade-delete-without-setting-the-property-on-my

SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
-- =============================================
-- Author:		<>
-- Create date: <>
-- Description:	<>
-- =============================================
CREATE procedure [dbo].[Delete_cascade] (
	@base_table_name varchar(200),
	@base_criteria nvarchar(1000),
	@debug bit = 0
)
as begin
		
		
        -- Adapted from http://www.sqlteam.com/article/performing-a-cascade-delete-in-sql-server-7
        -- Expects the name of a table, and a conditional for selecting rows
        -- within that table that you want deleted.
        -- Produces SQL that, when run, deletes all table rows referencing the ones
        -- you initially selected, cascading into any number of tables,
        -- without the need for "ON DELETE CASCADE".
        -- Does not appear to work with self-referencing tables, but it will
        -- delete everything beneath them.
        -- To make it easy on the server, put a "GO" statement between each line.

BEGIN TRAN
	BEGIN TRY
	
        declare @to_delete table 
        (
			id int identity(1, 1) primary key not null,
            criteria nvarchar(1000) not null,
            table_name varchar(200) not null,
            processed bit not null,
            delete_sql varchar(1000)
        )

insert into @to_delete (criteria, table_name, processed) 
        values (@base_criteria, @base_table_name, 0)

declare @id int, 
				@criteria nvarchar(1000),
				@table_name varchar(200)
				
        while exists(select 1 from @to_delete where processed = 0) 
        begin
            select top 1 @id = id, @criteria = criteria, @table_name = table_name 
            from @to_delete 
            where processed = 0 
            order by id desc

insert into @to_delete (criteria, table_name, processed)
				select referencing_column.name + ' in (select [' + referenced_column.name + '] from [' + @table_name +'] where ' + @criteria + ')',
					   referencing_table.name,
					   0
				from  sys.foreign_key_columns fk
						inner join sys.columns referencing_column on fk.parent_object_id = referencing_column.object_id 
																	 and fk.parent_column_id = referencing_column.column_id 
						inner join  sys.columns referenced_column on fk.referenced_object_id = referenced_column.object_id 
																	 and fk.referenced_column_id = referenced_column.column_id 
						inner join  sys.objects referencing_table on fk.parent_object_id = referencing_table.object_id 
						inner join  sys.objects referenced_table on fk.referenced_object_id = referenced_table.object_id 
						inner join  sys.objects constraint_object on fk.constraint_object_id = constraint_object.object_id
				where referenced_table.name = @table_name
					  and referencing_table.name != referenced_table.name

update @to_delete set
                    processed = 1
            where id = @id
        end
		
		declare @info nvarchar(250)
		declare @statement nvarchar(max)
		DECLARE i CURSOR FAST_FORWARD LOCAL 
		FOR 
			select 'deleting from ' + table_name + '...' as 'Info', 
				   'delete from [' + table_name + '] where ' + criteria as 'Statement'
			from @to_delete
			order by id desc
		OPEN i
		FETCH NEXT FROM i INTO 
			@info,
			@statement
		WHILE (@@fetch_status = 0)
		BEGIN
			if @debug = 1
				print @statement
			EXEC sp_executesql @statement
			
			FETCH NEXT FROM i INTO 
			@info,
			@statement
		END
		
		CLOSE i
		DEALLOCATE i
	COMMIT
	END TRY
	BEGIN CATCH
		IF @@TRANCOUNT >0
			ROLLBACK
		--RAISERROR
	END CATCH
end

--TESTING

select * from Flights
select * from Pilots_on_flights

declare @p nvarchar(max)
set @p = 'id in (1,3)' 
exec Delete_cascade 'Flights', @p

select * from Flights
select * from Pilots_on_flights

View schema
Execution time: 0.08 sec, rows selected: 13, rows affected: 8, absolute service time: 1.2 sec