-- показана только "голова" триггера
CREATE OR REPLACE TRIGGER SMZ_TRIGGER_ON_LOGON after logon on database
declare
  l_conn_info   smz_log_connection%rowtype;
  registered    number(1);
  fio_osuser    w_user_info.fio%type;
  fio_orauser   w_user_info.fio%type;
  l_db_name     varchar2(50);
  procedure SaveToForbiddenLog (p_note_info in smz_log_forbidden.note%type)
  is
    pragma autonomous_transaction;
  begin
    insert into SMZ_Log_Forbidden
      (USERNAME, TIME_LOGIN, TERMINAL, OSUSER, PROG_SHORT, AUDSID, NOTE)
      values (l_conn_info.USERNAME, l_conn_info.TIME_LOGIN, l_conn_info.TERMINAL,
              l_conn_info.OSUSER, l_conn_info.PROG_SHORT, l_conn_info.AUDSID, p_note_info);
    commit;
  end;
  procedure ForbidConnection (p_note_info in smz_log_forbidden.note%type)
  is
    l_rus varchar2(500);
    l_eng varchar2(500);
  begin
    SaveToForbiddenLog(p_note_info);
    case p_note_info
      when 'not developer login' then
        l_rus := 'Соединение запрещено, так как вы не являетесь разработчиком программ для этой базы данных.';
        l_eng := 'Connection is forbidden because you are not a software developer of this database.';
      when 'connect from test env' then
        l_rus := 'Работа в промышленной базе данных из тестовой среды запрещена.';
        l_eng := 'Connection from test environment to production database is forbidden.';
      when 'forbidden application' then
        l_rus := 'Работа в данной программе запрещена для пользователей приложений.';
        l_eng := 'Work of given program is forbidden for application users.';
      when 'OS-ORA non-compliance login' then
        l_rus := chr(13) || chr(10) ||
                 fio_osuser || '.' || chr(13) || chr(10) ||
                 'Вами совершена попытка доступа в приложение под именем пользователя ' ||
                 fio_orauser || '.' || chr(13) || chr(10) ||
                 'Данное действие является нарушением политики использования учетных записей.' ||
                 chr(13) || chr(10) ||
                 'Пожалуйста, используйте свою учётную запись для входа в приложение.' ||
                 chr(13) || chr(10) ||
                 'Если у вас возникли какие-либо вопросы, обращайтесь в службу поддержки пользователей.';
    end case;
    raise_application_error(-20101, 'Database ' || upper(sys_context('userenv', 'db_name')) ||
                                    chr(13) || chr(10) || l_rus ||
                                    case when l_eng is not null then
                                      chr(13) || chr(10) || chr(13) || chr(10) || l_eng
                                    end);
  end;
--........ и дальше ещё 100 с небольшим строк кода ...