Return full name of procedure (3 part naming convention)

CREATE PROC dbo.TestProc

AS

/*    DATE        AUTHOR            REMARKS

      1/2/14            PPaiva            Initial creation.

      USAGE

            TestProc

*/

DECLARE @ProcName sysname

SET @ProcName =   db_name() + '.' +

                              user_name(objectproperty(@@procid,'OwnerId')) +

                              '.' + object_name(@@procid)

SELECT @ProcName