select 
  user, 
  sys_context('userenv', 'ip_address') ip_address
from dual

  v_report audit_modules.module_id%TYPE;
begin
  SRW.GET_REPORT_NAME(v_report);

  Insert into AUDIT_MODULES
   (TIME_STAMP,
    MODULE_ID,
    MODULE_TYPE,
    NETWORK_PC,
    NETWORK_USER
   )
   (select 
      sysdate,
      v_report,
      'Report',
      terminal,
      Nvl(Translate(osuser, '?', ' '), User)
    from v$session
    where audsid = Userenv('sessionid')
   );

  return (TRUE);
end;

SQL> create table test (rep_name varchar2(30), run_time date);

Table created.

SQL> create or replace procedure prc_rep_insert (par_rep_name in char) is
  2  begin
  3    insert into test (rep_name, run_time)
  4      values (par_rep_name, sysdate);
  5    commit;
  6  end;
  7  /

Procedure created.

function AfterPForm return boolean is
  l_rep_name varchar2(30);
begin
  srw.get_report_name(l_rep_name);
  prc_rep_insert (l_rep_name);
  return (TRUE);
end;

SQL> select rep_name, to_char(run_time, 'dd.mm.yyyy hh24:mi:ss') run_time from test;

REP_NAME                       RUN_TIME
------------------------------ -------------------
MODULE1                        18.06.2009 22:23:58

SQL>