FRM-40735 or error trigger raised unhandled exception ora-03114

PROCEDURE MSG_ERROR (msg varchar2 := null) IS
  al_id     Alert;
	al_button number;
	prm_msg varchar2(4000);
	mes_code number;
	mes_type varchar2(3);
	mes_text varchar2(80);
	dbms_err_text varchar2(200);
	
BEGIN


	mes_code := message_code;
	mes_text := rtrim(message_text);
	dbms_err_text := rtrim(dbms_error_text);
	
	-- Supress unwanted messages
	if mes_code = 40200 then -- Field is protected against update.
		prm_msg := get_item_property(name_in('system.trigger_item'),prompt_text);
		prm_msg := prm_msg || ' cannot be changed.';
		message (prm_msg);
		return;		
	elsif mes_code = 40202 then -- Field must be entered
		prm_msg := get_item_property(name_in('system.trigger_item'),prompt_text);
		prm_msg := prm_msg || ' must be entered.';
		message (prm_msg);
		return;
	elsif mes_code = 40405 then -- No changes to applly
		return;
	elsif mes_code = 41008 then -- Undefined function key
		return;
	elsif mes_code = 41051 then -- You cannot create records here
		message (message_text);
		return;
	elsif mes_code = 41830 then -- List of values contains no entries
		prm_msg := message_text;
		message (prm_msg);
		return;
	elsif mes_code = 50012 then -- Illegal date format
		prm_msg := message_text;
		message ('Illegal date. ' || prm_msg);
		return;
	elsif mes_code =	50016 then -- Legal characters are 0-9 
		prm_msg := message_text;
		message(prm_msg);
		return;
	elsif mes_code = 50026 then -- Date format must be entered in ....
		message (message_text);
		return;
	end if;
	
	declare
		f_severity form_errors.severity%type;
	begin
		select severity
		into f_severity
		from form_errors
		where error_code = mes_code;
		if f_severity = '0' then
			return;
		elsif f_severity = '1' then
			message (message_text);
			return;
		elsif f_severity = '2' then
			message (message_text);
			message (message_text);
			return;			
		end if;
	exception
		when no_data_found then
			null;
		when others then
			message ('Error. Please contact Data centre. Cannot select from form_errors @ msg_error');		
			message ('Error. Please contact Data centre. Cannot select from form_errors @ msg_error');					
	end;	
		
	log_msg_error (
	name_in ('global.login_id'),
	name_in ('system.current_form'),
	error_code , 
	msg ,
	dbms_err_text , 
	name_in ('system.trigger_block'),
	name_in ('system.trigger_item'),
	name_in ('system.trigger_record'));
		
	
	
	prm_msg := msg || chr(13)|| dbms_err_text || chr(13);		
	prm_msg := prm_msg || mes_type || ': ' ||mes_code || ' ' || message_text || chr(13) || chr(13);

	prm_msg := prm_msg || chr(13) || 'Block : ' || name_in('system.trigger_block');
	prm_msg := prm_msg || chr(13) || 'Item : ' || name_in('system.trigger_item');
	prm_msg := prm_msg || chr(13) || 'Record : ' || name_in('system.trigger_record');
	al_id := Find_Alert ('STD_ALERT_STOP');
	if Id_Null(al_id) then	
		message (prm_msg);
		message (prm_msg);
	else	
  	set_application_property (cursor_style,'default');
  	Set_Alert_Property(al_id,Alert_Message_Text,prm_msg);
  	Set_Alert_Property(al_id,Title,'Error.         Please contact Data Centre');
  	al_button := show_alert(al_id);
	end if;	
	
	
	raise form_trigger_failure;

END;