USP_DATALIST_EVENTSWITHAPROGRAM

create procedure dbo.USP_DATALIST_EVENTSWITHAPROGRAM
(
  @FAFPROGRAMID uniqueidentifier,
  @CURRENTAPPUSERID uniqueidentifier = null,
  @SECURITYFEATUREID uniqueidentifier = null,
  @SECURITYFEATURETYPE tinyint = null
)
as
set nocount on;

select top 500 EVENT.ID, EVENT.NAME,
(case 
    when exists
      (
        select 1 from dbo.UFN_SITEID_MAPFROM_EVENTID(EVENT.ID) EVENTSITE
        where
          (dbo.UFN_APPUSER_ISSYSADMIN(@CURRENTAPPUSERID) = 1 or exists (select 1 from dbo.UFN_SITESFORUSERONFEATURE(@CURRENTAPPUSERID,@SECURITYFEATUREID,@SECURITYFEATURETYPE) where SITEID=[EVENTSITE].[SITEID] or (SITEID is null and [EVENTSITE].[SITEID] is null)))
      )
    then
        1
    else
        0
end) as HASPERMISSION
from dbo.EVENT (nolock)
inner join dbo.EVENTEXTENSION (nolock) on EVENT.ID = EVENTEXTENSION.EVENTID
where EVENTEXTENSION.FAFPROGRAMID = @FAFPROGRAMID

order by EVENT.NAME