FUNCTION n_Alert(v_Name    IN VARCHAR2
                ,v_Title   IN VARCHAR2
                ,v_Message IN VARCHAR2
                ,v_Button1 IN VARCHAR2 DEFAULT 'Ок'
                ,v_Button2 IN VARCHAR2 DEFAULT ''
                ,v_Button3 IN VARCHAR2 DEFAULT '')
RETURN NUMBER IS
  alert_id     ALERT;
  alert_btn    NUMBER;
BEGIN
	alert_id := FIND_ALERT(v_Name);
	IF ID_NULL(alert_id) THEN
		RETURN  0 ;
	END IF;
	SET_ALERT_PROPERTY(alert_id, ALERT_MESSAGE_TEXT, v_Message);
	SET_ALERT_PROPERTY(alert_id, TITLE, v_Title);
	SET_ALERT_BUTTON_PROPERTY(alert_id, ALERT_BUTTON1, LABEL, v_Button1);
	SET_ALERT_BUTTON_PROPERTY(alert_id, ALERT_BUTTON2, LABEL, v_Button2);
	SET_ALERT_BUTTON_PROPERTY(alert_id, ALERT_BUTTON3, LABEL, v_Button3);
	alert_btn := SHOW_ALERT(alert_id);
	IF alert_btn = ALERT_BUTTON1 THEN
		RETURN  1 ;
	ELSIF alert_btn = ALERT_BUTTON2 THEN
		RETURN  2 ;
	ELSIF alert_btn = ALERT_BUTTON3 THEN
		RETURN  3 ;
	END IF;		
END n_Alert;

DECLARE
  alert NUMBER;
BEGIN
	    alert := n_Alert('CAUTION', 'Предупреждение', 'Удаление невозможно, т.к. существуют связные записи!');
END;