declare

    dateOfCreation all_objects.created%type;
begin
    select created into dateOfCreation from all_objects where object_type='PROCEDURE' AND ROWNUM=1 order by created desc;
  
end;

create or replace trigger TriggerOnCreationProcedure
    after create on DATABASE
begin
    NOWNER all_objects.owner%TYPE;
    NDATE all_objects.created%TYPE;
    NOBJNAME all_objects.object_name%TYPE;

    select created into NOWNER from all_objects where object_type='PROCEDURE'  order by created desc fetch first 1 row only;
    select created into NDATE from all_objects where object_type='PROCEDURE'  order by created desc fetch first 1 row only;
    select created into NOBJNAME from all_objects where object_type='PROCEDURE'  order by created desc fetch first 1 row only;
    INSERT INTO tbForProcInfo VALUES(NOWNER,NDATE,NOBJNAME);
end;

2/12      PLS-00103: Encountered the symbol "ALL_OBJECTS" when expecting one of the following:     := . ( @ % ; The symbol ":=" was substituted for "ALL_OBJECTS" to continue. 
3/11      PLS-00103: Encountered the symbol "ALL_OBJECTS" when expecting one of the following:     := . ( @ % ; The symbol ":=" was substituted for "ALL_OBJECTS" to continue. 
4/14      PLS-00103: Encountered the symbol "ALL_OBJECTS" when expecting one of the following:     := . ( @ % ; The symbol ":=" was substituted for "ALL_OBJECTS" to continue. 
6/102     PLS-00103: Encountered the symbol "FETCH" when expecting one of the following:     , ; for 

create or replace trigger TriggerOnCreationProcedure
    after create on DATABASE
declare
    NOWNER all_objects.owner%TYPE;
    NDATE all_objects.created%TYPE;
    NOBJNAME all_objects.object_name%TYPE;

begin
   
    select owner into NOWNER from all_objects where object_type='PROCEDURE'  order by created desc fetch first 1 row only;
    select created into NDATE from all_objects where object_type='PROCEDURE'  order by created desc fetch first 1 row only;
    select object_name into NOBJNAME from all_objects where object_type='PROCEDURE'  order by created desc fetch first 1 row only;
    
    INSERT INTO tbForProcInfo VALUES(NOWNER,NDATE,NOBJNAME);
end;

create or replace trigger TriggerOnCreationProcedure
    after create  on DATABASE
begin
    IF  ora_dict_obj_type='PROCEDURE'
            THEN 
               INSERT INTO tbForProcInfo VALUES(ora_dict_obj_owner,SYSDATE,ora_dict_obj_name);
            END IF;
end;