PROCEDURE CREATE_MY_TIMER IS
    timer_id Timer; 
BEGIN
	   timer_id := Find_timer('MY_TIMER');
	     IF NOT ID_NULL(timer_id) then
	     	  delete_timer(timer_id);
	     END IF;

     timer_id := CREATE_TIMER('MY_TIMER', 1, NO_REPEAT); 
END;

DECLARE
    v_CurTimer VARCHAR2(40) := Get_Application_Property(TIMER_NAME);
BEGIN
    IF v_CurTimer = 'MY_TIMER' THEN
       --execute your code here
    END IF;
END;