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.';
eighteen_seconds NUMBER(6) := (18 * 1000);
nine_seconds NUMBER(5) := (9 * 1000);

BEGIN

:GLOBAL.timer_count := 1;

BEGIN
timer_id := FIND_TIMER('alarm');
alert_id := FIND_ALERT('alert_timeup');

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, eighteen_seconds, NO_CHANGE);
	END IF;
ELSIF :GLOBAL.timer_count = 2 THEN
	set_Alert_property(alert_id, ALERT_MESSAGE_TEXT, 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, nine_seconds, NO_CHANGE);
	END IF;
ELSE
	set_Alert_property(alert_id, ALERT_MESSAGE_TEXT,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;