-- ON-ERROR уровень формы 
declare
  lv_errcod   number        := error_code;
  lv_errtyp   varchar2 ( 3 )  := ERROR_TYPE;
  lv_errtxt   varchar2 ( 200 ) := ERROR_TEXT;
  dbmserrcode varchar2 ( 80 ):= DBMS_ERROR_code; 
  dbmserrtext VARCHAR2( 200 ):= DBMS_ERROR_TEXT;
begin
	if lv_errcod not in ( 41377 ,  41042 ,  41017 ,  41316 ,  41014 ) then
		DISPLAY_ERROR;
	end if;
end;

 -- ON-ERROR уровень формы 
declare
  lv_errcod   number        := error_code;
  lv_errtyp   varchar2 ( 3 )  := ERROR_TYPE;
  lv_errtxt   varchar2 ( 200 ) := ERROR_TEXT;
  dbmserrcode varchar2 ( 80 ):= DBMS_ERROR_code; 
  dbmserrtext VARCHAR2( 200 ):= DBMS_ERROR_TEXT;
begin
	if lv_errcod not in ( 41377 ,  41042 ,  41017 ,  41316 ,  41014 ) then
		DISPLAY_ERROR;
	end if;
end;

 -- ON-ERROR уровень формы 
DISPLAY_ERROR;

 -- ON-ERROR уровень формы 
declare 
	vN number;
begin
	vN:=n_alert('CAUTION', 'Ошибочная ситация', DBMS_ERROR_TEXT);
end;

PROCEDURE Test
IS
BEGIN
    RAISE_APPLICATION_ERROR(- 20000 ,'Сгенирированая Ошибка');
END;

raise_application_error (- 20002 ,
                                'Операция не поддерживается.');

declare 
  lv_errcod   number        := error_code;
  lv_errtyp   varchar2 ( 3 )  := ERROR_TYPE;
  lv_errtxt   varchar2 ( 200 ) := ERROR_TEXT;
  dbmserrcode varchar2 ( 80 ):= DBMS_ERROR_code; 
  dbmserrtext VARCHAR2( 240 ):= substr(DBMS_ERROR_TEXT, 1 , 240 );
  lv_sqlerrm VARCHAR2( 240 ):=substr( SQLERRM, 1 , 240 );
  lv_sqlcode NUMBER:=SQLCODE;
	vN number;
begin
	if lv_errcod not in ( 41377 ,  41042 ,  41017 ,  41316 ,  41014 ) then
		vN:=n_alert('CAUTION', 'Ошибочная сетуация', dbmserrtext);
	end if;
end;

lv_errcod            40735 
  lv_errtyp   FRM
  lv_errtxt    Popup Menu триггер вызвал необработанное исключение ORA- 20002 .
  dbmserrcode  - 1403 
  dbmserrtext  ORA- 01403 : данных не найдено
  lv_sqlerrm  ORA- 0000 : normal, successful completion
  lv_sqlcode    0 

begin
test;
end;

PROCEDURE Test
IS
BEGIN
    RAISE_APPLICATION_ERROR(- 20000 ,'Сгенирированая Ошибка');
END;

lv_errcod            40735 
  lv_errtyp   FRM
  lv_errtxt    WHEN-BUTTON-PRESSED триггер вызвал необработанное исключение ORA- 20000 .
  dbmserrcode  - 1403 
  dbmserrtext  ORA- 01403 : данных не найдено
  lv_sqlerrm  ORA- 0000 : normal, successful completion
  lv_sqlcode    0 

 -- ON-ERROR уровень формы 
declare 
  lv_errcod   number        := error_code;
  lv_errtyp   varchar2 ( 3 )  := ERROR_TYPE;
  lv_errtxt   varchar2 ( 200 ) := ERROR_TEXT;
  dbmserrcode varchar2 ( 80 ):= DBMS_ERROR_code; 
  dbmserrtext VARCHAR2( 240 ):= substr(DBMS_ERROR_TEXT, 1 , 240 );
  lv_sqlerrm VARCHAR2( 240 ):=substr( SQLERRM, 1 , 240 );
  lv_sqlcode NUMBER:=SQLCODE;
	vN number;
begin
	if lv_errcod not in ( 41377 ,  41042 ,  41017 ,  41316 ,  41014 ) then
		vN:=n_alert('CAUTION', 'Ошибочная сетуация', substr(dbmserrtext, 1 ,instr(dbmserrtext,chr( 10 ))));
               -- параметризированный alert. Взято здесь. Классная вещь. 
	end if;
end;

PROCEDURE Test
IS
BEGIN
    RAISE_APPLICATION_ERROR(- 20000 ,'Сгенирированая Ошибка');
END;

	  Ftree.Populate_Tree('CLN_TREE');
	  POPULATE_CLIENT_TREE( 0 );
 -- test; -- здесь еще отрабатывает корректно 
 -- получаем сообщение ORA-20000: Сгенирированая Ошибка 
		rg_id:=Create_Group_From_Query( 'TREE_QUERY',
		'select node_open, level, node_name, icon_file, node_value 
			from tst_tree
			where tree_id=0
			start with node_parent is null
  		connect by prior node_value=node_parent 
  	');
 -- test; здесь уже  
 --  DBMS_ERROR_TEXT = 'ORA-24334: для этой позиции дескриптор не существует' 
 -- ERROR_TEXT = 'WHEN-NEW-FORM-INSTANCE триггер вызвал необработанное исключение ORA-20000.' 
 -- без вызова процедуры test ошибки не возникает 


	  errcode := Populate_Group( rg_id );       
 --	test; -- здесь уже не корректно 
 --  DBMS_ERROR_TEXT = 'ORA-01403: данных не найдено
-- ERROR_TEXT = 'WHEN-NEW-FORM-INSTANCE триггер вызвал необработанное исключение ORA-20000.'