DECLARE
  button_yes 		PLS_INTEGER := ALERT_BUTTON1;
	button_cancel	PLS_INTEGER := ALERT_BUTTON3;
	response			PLS_INTEGER;
BEGIN
  
  IF :SYSTEM.FORM_STATUS = 'CHANGED' THEN
  	
  	response := SHOW_ALERT('save_changes_request');
  	
  	IF  response = button_cancel THEN
  		
  		RAISE FORM_TRIGGER_FAILURE;
  		
  	ELSIF response = button_yes THEN
      
       COMMIT_FORM;
      
       IF FORM_FAILURE THEN
         MESSAGE(ERROR_TEXT || 'Проверьте введенные данные!');
         RAISE FORM_TRIGGER_FAILURE;
       END IF;       
    ELSE
    	-- Do not save
    	NULL;   	
    END IF;
    
  END IF;
  
  EXIT_FORM(NO_VALIDATE);
END;