create or replace function public.rserr(
	p_user_id varchar
	,p_msg_code varchar
	,p_function_name varchar = null
	,p_param00 text = null
	,p_param01 text = null
	,p_param02 text = null
	,p_param03 text = null
	,p_param04 text = null )
returns void as
$$
declare
	v_msg varchar;
	v_qnt_filled_params int;
begin
	-- Получение сообщения из БД
	select get_msg_text(p_msg_code)
	into v_msg;

	-- Дефолтовое сообщение из БД
	if v_msg is null then
		v_msg := 'There is no message in sys_msg table with code = ' || coalesce(p_msg_code);
	end if;

	-- Подсчет параметров
	if (p_param04 is not null)
		and (p_param03 is not null)
		and (p_param02 is not null)
		and (p_param01 is not null)
		and (p_param00 is not null) then
		v_qnt_filled_params := 5;
	elsif (p_param03 is not null)
		and (p_param02 is not null)
		and (p_param01 is not null)
		and (p_param00 is not null) then
		v_qnt_filled_params := 4;
	elsif 	(p_param02 is not null)
		and (p_param01 is not null)
		and (p_param00 is not null) then
		v_qnt_filled_params := 3;
	elsif 	(p_param01 is not null)
		and (p_param00 is not null) then
		v_qnt_filled_params := 2;
	elsif 	(p_param00 is not null) then
		v_qnt_filled_params := 1;
	else
		v_qnt_filled_params := 0;
	end if;
	
	-- Генерация исключения
	if v_qnt_filled_params = 0 then
		raise exception '~~~%~~!', v_msg;
	elsif v_qnt_filled_params = 1 then
		raise exception '~~~% %~~!', v_msg, p_param00;
	elsif v_qnt_filled_params = 2 then
		raise exception '~~~% % %~~!', v_msg, p_param00, p_param01;
	elsif v_qnt_filled_params = 3 then
		raise exception '~~~% % % %~~!', v_msg, p_param00, p_param01, p_param02;
	elsif v_qnt_filled_params = 4 then
		raise exception '~~~% % % % %~~!', v_msg, p_param00, p_param01, p_param02, p_param03;
	elsif v_qnt_filled_params = 5 then
		raise exception '~~~% % % % % %~~!', v_msg, p_param00, p_param01, p_param02, p_param03, p_param04;
	end if;
end
$$
language plpgsql;