http://www.csdn.net/expert/topicview1.asp

DECLARE
 Time_ID  TIMER;
BEGIN;
  Time_Id := CREATE_TIMER(‘ABCD’,400,NO_REPEAT); 
  //
  DELETE_TIMER('ABCD');
END;

DECLARE 
  timer_id  TIMER; 
  alert_id  ALERT; 
  call_status NUMBER; 
  msg_1       VARCHAR2(80) := 'Wrap up the first phase of your 
                               presentation'; 
  msg_2       VARCHAR2(80) := 'Move into your close.'; 
  msg_3       VARCHAR2(80) := 'Ask for the order or 
                               repeat the close.' 
  two_minutes NUMBER(6) := (120 * 1000); 
  one_and_half NUMBER(5) := (90 * 1000); 
BEGIN 
  :GLOBAL.timer_count := 1 
  BEGIN 
    timer_id := FIND_TIMER('tele_timer'); 
    alert_id := FIND_ALERT('tele_alert');  
  IF :GLOBAL.timer_count = 1 THEN 
    Set_Alert_Property(alert_id, ALERT_MESSAGE_TEXT, msg_1); 
  call_status := Show_Alert(alert_id); 
  IF call_status = ALERT_BUTTON1 THEN 
    Delete_Timer(timer_id); 
    Next_Record; 
  ELSIF 
    call_status = ALERT_BUTTON2 THEN 
    :GLOBAL.timer_count := 0; 
  ELSE 
    Set_Timer(timer_id, two_minutes, NO_CHANGE); 
  END IF; 
ELSIF :GLOBAL.timer_count = 2 THEN 
    Change_Alert_Message(alert_id, msg_2); 
    call_status := Show_Alert(alert_id); 
    IF call_status = ALERT_BUTTON1 THEN 
      Delete_Timer(timer_id); 
      Next_Record; 
    ELSIF 
      call_status = ALERT_BUTTON2 THEN 
      :GLOBAL.timer_count := 0; 
    ELSE 
      Set_Timer(timer_id, one_and_half, NO_CHANGE); 
    END IF; 
  ELSE 
    Change_Alert_Message(alert_id, msg_3); 
    call_status := Show_Alert(alert_id); 
    IF call_status = ALERT_BUTTON1 THEN 
      Delete_Timer(timer_id); 
      Next_Record; 
    ELSIF 
     call_status = ALERT_BUTTON2 THEN 
     :GLOBAL.timer_count := 0; 
    ELSE 
      Set_Timer(timer_id, NO_CHANGE, NO_REPEAT); 
    END IF; 
  END IF; 
  :GLOBAL.timer_count = 2; 
  END; 
END;