BEGIN 
    Go_block('EMP'); 
    
    execute_query; 
    
    IF :system.form_status = 'changed' THEN 
      COMMIT; 
      al_button := Show_alert('SAVE'); 

      IF al_button = alert_button1 THEN 
        Message('Do you want to save changes you have made?'); 
      END IF; 
    END IF; 
END; 

KEY-COMMIT Trigger
------------------
Declare
	al_button number;
Begin
   IF :System.Form_Status = 'CHANGED' THEN 
      al_button := Show_alert('SAVE'); 

      IF al_button = alert_button1 THEN 
        Commit_Form;  
      END IF; 
   END IF; 
End;