create or replace procedure sp_test
  is
    vs_proc_name varchar2(40);
  begin
    --get the name of current procedure ,here is "sp_test"
    --[color=red]but ,i do not want the hard code here[/color]
    insert into test_Page(proc) values(vs_proc_name);
    ---
    --
    commit;
  end;
  

     vs_proc_name:='sp_test';
  

create or replace procedure called
as
   l_owner  varchar2(20);
   l_name  varchar2(20); 
   l_lineno number;
   l_caller varchar2(20);
begin 
   OWA_UTIL.WHO_CALLED_ME (l_owner, l_name,l_lineno,l_caller);
   dbms_output.put_line('You are called by '||'owner   '||l_owner||
' Calling Object '||l_name||' Line no '||l_lineno||' Caller Type '||l_caller);

end;
/

SQL> create or replace
  2    procedure p1
  3      is
  4      begin
  5          dbms_output.put_line('Stored procedure name is "' || $$PLSQL_UNIT || '"');
  6  end;
  7  /

Procedure created.

SQL> set serveroutput on
SQL> exec p1;
Stored procedure name is "P1"

PL/SQL procedure successfully completed.

SQL>