TSQL: FindBlockingChain

FindBlockingChain.sql

select 
	SPID
    ,Status
    ,loginame
    ,HostName
    ,blocked
    ,open_tran
    ,waittype
    ,cmd
    ,Last_Batch
    ,text
    ,lastwaittype
    ,waitresource
    ,cpu
    ,physical_io
    ,t.dbid
    ,Program_Name
    ,hostprocess
    ,sql_handle
from sys.sysprocesses             
CROSS APPLY sys.dm_exec_sql_text(sql_handle) t 
WHERE SPID in (select Blocked from master..sysprocesses where cast(blocked as varchar(20)) <> '  .')
--and open_tran > 0
order by blocked