You can use the following Built-in subprograms when working with timers:
Note: You cannot change a timer's name programmatically.
/*
** Builtin: FIND_TIMER
**
** Example: If the timer exists, reset it. Otherwise create
** it.
*/
PROCEDURE Reset_Timer_Interval( Timer_Name VARCHAR2,
Timer_Intv NUMBER ) IS
tm_id Timer;
tm_interval NUMBER;
BEGIN
/*
** User gives the interval in seconds, the timer routines
** expect milliseconds
*/
tm_interval := 1000 * Timer_Intv;
/* Lookup the timer by name */
tm_id := Find_Timer(Timer_Name);
/* If timer does not exist, create it */
IF Id_Null(tm_id) THEN
tm_id := Create_Timer(Timer_Name,tm_interval,NO_REPEAT);
/*
** Otherwise, just restart the timer with the new interval
*/
ELSE
Set_Timer(tm_id,tm_interval,NO_REPEAT);
END IF;
END;