How to reduce execution time in strode procedures

SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER procedure [mk].[ListView](@from int,@to int,@userId bigint,@status varchar(max),@dateCount  int,@authorityList varchar(max),@stratDate date,@endDate date)

as
begin

declare @geofence varchar(max);
declare @exclusionFence varchar(max);
declare @dataTable1 table(ID bigint,UserId varchar(max),EventTypeID int,Description varchar(max),Latitude float,Longitude float,PicturePath varchar(max),DateTime datetime,Location varchar(max),Status int,MediaType int,AssignTo varchar(max),Department int,Comment varchar(max),AssignedEmployeeID int,Type varchar(max),IconPath varchar(max),RW int);
declare cursor1 CURSOR FOR select geofence from dbo.Area where AuthorityId in (SELECT value FROM STRING_SPLIT(@authorityList, ','));
declare cursor2 CURSOR FOR select ExclusionFence from dbo.Area where AuthorityId in (SELECT value FROM STRING_SPLIT(@authorityList, ','));

open cursor1
open cursor2



FETCH NEXT FROM  cursor1
INTO @geofence
FETCH NEXT FROM cursor2
INTO @exclusionFence


WHILE @@FETCH_STATUS =0
BEGIN




DECLARE @g geometry;  
DECLARE @ex geometry;  

SET @g = geometry::STGeomFromText('POLYGON(('+ @geofence +'))',4036);  
SET @ex = geometry::STGeomFromText('POLYGON(('+ @exclusionFence +'))',4036);  

SET NOCOUNT ON;


 if (@exclusionFence !=NULL)
 begin

	          if(@status!=-1)
              begin

        WITH Events_CTE (ID,USERID,[EventTypeID],[Description],[Latitude],[Longitude] 

             ,[PicturePath],[DateTime],[Location],[Status],[MediaType],[AssignTo],[Department],[Comment],AssignedEmployeeID,[Type],IconPath,RW)

             AS(
	            SELECT * FROM( select e.*,et.Type,et.IconPath , ROW_NUMBER() over(order by e.DateTime desc)rw

		       from Event e join EventType et on e.EventTypeID=et.ID  

		       where @g.STContains(geometry::STGeomFromText('POINT('+CAST(Latitude AS nvarchar(max))  +' '+CAST(Longitude AS nvarchar(max)) +')', 4036)) =1

			   and

			  (e.DateTime >= DATEADD(day,@dateCount, GETDATE() ) or e.DateTime  BETWEEN @stratDate and @endDate)

		       and  e.Status=@status)x    WHERE x.rw BETWEEN @from AND @to )

			   --

          insert into    @dataTable1  SELECT * FROM Events_CTE O

               where 

	         @ex.STContains(geometry::STGeomFromText('POINT('+CAST(O.Latitude AS nvarchar(max))  +' ' +CAST(O.Longitude AS nvarchar(max)) +')', 4036)) <>1


             FETCH NEXT FROM cursor1 INTO @geofence
             FETCH NEXT FROM cursor2 INTO  @exclusionFence
 end
 

 else
 begin
        WITH Events_CTE (ID,USERID,[EventTypeID],[Description],[Latitude],[Longitude] ,

       [PicturePath],[DateTime],[Location],[Status],[MediaType],[AssignTo],[Department],[Comment],AssignedEmployeeID,[TYPE],ICONPATH,RW)

       AS(
             SELECT * FROM( select e.*,et.Type,et.IconPath , ROW_NUMBER() over(order by e.DateTime desc)rw from Event e 

             join EventType et on e.EventTypeID=et.ID

             where 

			  (e.DateTime >= DATEADD(day,@dateCount, GETDATE() ) or e.DateTime  BETWEEN @stratDate and @endDate)

			  and 
			 
			 @g.STContains(geometry::STGeomFromText('POINT('+CAST(Latitude AS nvarchar(max))  +' ' +CAST(Longitude AS nvarchar(max)) +')', 4036)) =1

             )x WHERE x.rw BETWEEN @from AND @to)

     insert into    @dataTable1   SELECT * FROM Events_CTE O

      where 

	  @ex.STContains(geometry::STGeomFromText('POINT('+CAST(O.Latitude AS nvarchar(max))  +' ' +CAST(O.Longitude AS nvarchar(max)) +')', 4036)) <>1


      FETCH NEXT FROM cursor1 INTO @geofence
      FETCH NEXT FROM cursor2 INTO  @exclusionFence
 end

 END
 ELSE
  begin

 if(@status!=-1)
 begin

             WITH Events_CTE (ID,USERID,[EventTypeID],[Description],[Latitude],[Longitude] ,[PicturePath],[DateTime],[Location],

             [Status],[MediaType],[AssignTo],[Department],[Comment],AssignedEmployeeID,[TYPE],ICONPATH,RW)

             AS(

		      SELECT * FROM( select e.*,et.Type,et.IconPath , ROW_NUMBER() over(order by e.DateTime desc)rw

		     from Event e join EventType et on e.EventTypeID=et.ID 
			 
			 where @g.STContains(geometry::STGeomFromText('POINT('+CAST(Latitude AS nvarchar(max))  +' ' +CAST(Longitude AS nvarchar(max)) +')', 4036)) =1

			and

			 (e.DateTime >= DATEADD(day,@dateCount, GETDATE() ) or e.DateTime  BETWEEN @stratDate and @endDate)

			  and

		    e.Status=@status)x WHERE x.rw BETWEEN @from AND @to )


          insert into    @dataTable1     SELECT * FROM Events_CTE 

             FETCH NEXT FROM cursor1 INTO @geofence
             FETCH NEXT FROM cursor2 INTO  @exclusionFence
 end 

 else

 begin

              WITH Events_CTE (ID,USERID,[EventTypeID],[Description],[Latitude],[Longitude] ,[PicturePath],[DateTime],

              [Location],[Status],[MediaType],[AssignTo],[Department],[Comment],AssignedEmployeeID,[TYPE],ICONPATH,RW)
           AS(
              SELECT * 
                     FROM( 
                          select e.*,et.Type,et.IconPath , ROW_NUMBER() over(order by e.DateTime desc)rw

                             from Event e 

                        join EventType et on e.EventTypeID=et.ID  
						
						where 

					    (e.DateTime >= DATEADD(day,@dateCount, GETDATE() ) or e.DateTime  BETWEEN @stratDate and @endDate)

						 and
	@g.STContains(geometry::STGeomFromText('POINT('+CAST(Latitude AS nvarchar(max))  +' ' +CAST(Longitude AS nvarchar(max)) +')', 4036)) =1
 
 
            )x
                          WHERE x.rw BETWEEN @from AND @to)

                    insert into    @dataTable1   SELECT * FROM Events_CTE

 FETCH NEXT FROM cursor1 INTO @geofence
 FETCH NEXT FROM cursor2 INTO  @exclusionFence
 end

 END
 
end
CLOSE cursor1;
CLOSE cursor2;
DEALLOCATE cursor1;
DEALLOCATE cursor2;

select DISTINCT * from @dataTable1

end