USP_DATALIST_WEALTHINFORMATIONDASHBOARDEMAILADDRESSES

CREATE procedure dbo.USP_DATALIST_WEALTHINFORMATIONDASHBOARDEMAILADDRESSES
                (
                    @CONSTITUENTID uniqueidentifier,
                    @CURRENTAPPUSERID uniqueidentifier = null
                )
as
    set nocount on;
          declare @ISADMIN bit;
                    declare @APPUSER_IN_NONRACROLE bit;
                    declare @APPUSER_IN_NOSECGROUPROLE bit;

                    set @ISADMIN = dbo.UFN_APPUSER_ISSYSADMIN(@CURRENTAPPUSERID);
                    set @APPUSER_IN_NONRACROLE = dbo.UFN_SECURITY_APPUSER_IN_NONRACROLE(@CURRENTAPPUSERID);
                    set @APPUSER_IN_NOSECGROUPROLE = dbo.UFN_SECURITY_APPUSER_IN_NO_SECURITY_GROUP_ROLE(@CURRENTAPPUSERID);

          declare @CURRENTDATE datetime;
                    set @CURRENTDATE = getdate();
            select E.ID,
                   E.EMAILADDRESS,
               ISNULL(ETC.DESCRIPTION, '') AS DESCRIPTION,
                   E.ISPRIMARY,
                   E.DONOTEMAIL,
               E.STARTDATE,
               E.ENDDATE
            from dbo.EMAILADDRESS E
          left outer join EMAILADDRESSTYPECODE ETC on E.EMAILADDRESSTYPECODEID = ETC.ID
            where CONSTITUENTID = @CONSTITUENTID
         and (@ISADMIN = 1 or 
                                  @APPUSER_IN_NONRACROLE = 1 or
                                  dbo.UFN_SECURITY_APPUSER_GRANTED_CONSTITID_FORREPORT(@CURRENTAPPUSERID, CONSTITUENTID, @APPUSER_IN_NOSECGROUPROLE) = 1)