Finding other database objects referenced in an SP

DECLARE @RCount INT
DECLARE @i INT
DECLARE @idx INT
DECLARE @spstrNVARCHAR(4000)
DECLARE @splen  INT

CREATE TABLE #tmp_sp (rowid INT IDENTITY(1,1), sp_txt NVARCHAR(4000))
CREATE TABLE #prod(tbname VARCHAR(100))

INSERT INTO #tmp_sp
(sp_txt)
SELECT text 
FROM SYSCOMMENTS
WHERE id IN
(
SELECT id 
FROM sysobjects 
WHERE name IN
(
--Please Replace the stored procedure names here..
'stp_sample1' ,
'stp_sample2' 
)
)

SET @RCount = @@ROWCOUNT
SET @i = 1

WHILE @i <= @RCount
BEGIN

SELECT @spstr = sp_txt 
FROM #tmp_sp
WHERE rowid = @i

SET @splen = LEN(@spstr)
SET @idx = 1

WHILE @idx < @splen AND @idx <> -1
BEGIN
--Please replace 'dbname.user' with required dbname and user eg 'master.dbo.'
SET @idx = CHARINDEX('dbname.user.', @spstr, @idx)
IF @idx = 0 
BEGIN
SET @idx = -1
END
ELSE
BEGIN
INSERT INTO #prod
SELECT SUBSTRING(@spstr, @idx, 60)
SET @idx = @idx + 1
END
END
SET @i = @i + 1
END

UPDATE #prod
SET tbname = REPLACE(tbname, CHAR(13), '|')

UPDATE #prod
SET tbname = REPLACE(tbname, CHAR(9), '|')

UPDATE #prod
SET tbname = REPLACE(tbname, CHAR(10), '|')

UPDATE #prod
SET tbname = REPLACE(tbname, ' ', '|')

UPDATE #prod
SET tbname = REPLACE(tbname, ',', '|')

UPDATE #prod
SET tbname = REPLACE(tbname, '(', '|')

SELECT DISTINCT LOWER(LEFT(LTRIM(tbname),PATINDEX('%|%',LTRIM(tbname))-1)) tbname FROM #prod
DROP TABLE #tmp_sp
DROP TABLE #prod