PROCEDURE exit_code IS
BEGIN
  declare
	form_name varchar2(60);
	answer number;
	answer1 number;
	exit_function exception;
begin
	if :system.form_status='CHANGED' then
		set_alert_property('confirm_alert',title,'Save Changes');
		set_alert_property('confirm_alert',alert_message_text,'Would you like to make Changes Permanent ?');
		answer := show_alert('confirm_alert');
		if answer=ALERT_BUTTON1 then			
			do_key('commit_form');	
			IF NOT Form_Success THEN 
				    RAISE Form_Trigger_Failure; 
		  END IF; 		
			 if :system.form_status <> 'QUERY' then
				set_alert_property('confirm_alert',title,'Quit Without Saving');
				set_alert_property('confirm_alert',alert_message_text,'Errors Encountered while saving. Quit Without Saving ?');	
				answer1 := show_alert('confirm_alert');
			 	if answer1=ALERT_BUTTON1 then
				form_name:=get_application_property(current_form_name);			
				set_form_property(form_name,validation,property_false);			
				exit_form(No_Validate);
				set_form_property(form_name,validation,property_true);			
				elsif answer1=ALERT_BUTTON2 or answer1=ALERT_BUTTON3 then
					raise form_trigger_failure;							
				end if;			
			else
				form_name:=get_application_property(current_form_name);			
				set_form_property(form_name,validation,property_false);			
				exit_form;			
				set_form_property(form_name,validation,property_true);			
			end if;	
			elsif answer=ALERT_BUTTON3 then 
				raise form_trigger_failure;						
		elsif answer=ALERT_BUTTON2 then 	
			form_name:=get_application_property(current_form_name);			
			set_form_property(form_name,validation,property_false);					
			exit_form(No_Commit);
			set_form_property(form_name,validation,property_true);			
		end if;			
	else
		form_name:=get_application_property(current_form_name);			
		set_form_property(form_name,validation,property_false);		
		exit_form;	
		set_form_property(form_name,validation,property_true);			
	end if;	
	
	
end;
END;

DECLARE
	form_name varchar2(20);
	st number;
  answer1 varchar2(5);

begin
	  :global.regno:=:evtn_ltn.regno;
    :global.hid:=:evtn_ltn.hid;
    
    :global.section:=:evtn_ltn.section;         	
    :global.douo:=:evtn_ltn.douo;
   --------if exists--------
  if :evtn_ltn.file_no is not null then 
  	
				answer1 := show_alert('reconsider');
			if 	answer1=ALERT_BUTTON1 then
			   	call_form('lit_ackn_details.fmx');
			   --	:global.file_no:=:evtn_ltn.file_no;
			   	if :evtn_ltn.reason_return is not null and :evtn_ltn.file_no is null then
		 	       delete_record;
			       last_record;
             next_record;	
           end if;
	     
	     else
					raise form_trigger_failure;							
			end if;			
  end if; 
   
   	
   ---------------------------- 
  	  form_name:=get_application_property(current_form_name);			
			set_form_property(form_name,validation,property_false); 
			
			 
        
        call_form('lit_ackn_details.fmx');
    
    	set_form_property(form_name,validation,property_true);
	
---------when return from details form then-------------------------------------------------
      :evtn_ltn.file_no:=to_char(:global.file_no);
:evtn_ltn.reason_return:=to_char(:global.reason_return);
	 
		if :evtn_ltn.reason_return is not null and :evtn_ltn.file_no is null then
		 	 delete_record;
			 last_record;
       next_record;	
    end if;
		     
		
		end;