DECLARE
    V_DAT_N VARCHAR2( 100 );
    V_DAT_K VARCHAR2( 100 );
BEGIN
    
    go_block('PPRVP'); execute_query;

    if :PPRVP.NOMER_PPR is not null then

        MESSAGE('Надо отменить  планы!');
        raise form_trigger_failure;   -- !!!вызывает ошибку, после чего идет в раздел exception 

    end if;

V_DAT_N:=TO_CHAR(SYSDATE,'DD.MM.YYYY HH:MI:SS');

urpk601;

V_DAT_K:=TO_CHAR(SYSDATE,'DD.MM.YYYY HH:MI:SS');

message('Расчет окончен'|| V_DAT_N||' - '||V_DAt_K);

exception when others then
    message(dbms_error_code||' '||dbms_error_text); --возвращает ORA-01403 Данные не найдены  
    raise form_trigger_failure;
END;
--*************************************************************************
create op replace PROCEDURE urpk601 IS
begin
 raise_application_error (- 20801 , 'Ошибка');
end;
--*************************************************************************