create or replace procedure who_called_me 
  (owner      out varchar2,
   name       out varchar2,
   lineno     out number,
   caller_t   out varchar2,
   deep       in  number default 3)
as
   call_stack  varchar2(4096) := dbms_utility.format_call_stack;
   n           number;
   found_stack boolean        := FALSE;
   line        varchar2(255);
   cnt         number         := 0;
begin

   loop
      n := instr (call_stack, chr(10));
      exit when (cnt = deep or n is NULL or n = 0);

      line := substr (call_stack, 1, n-1);
      call_stack := substr (call_stack, n+1);

      if not found_stack then
         if line like '%handle%number%name%' then
            found_stack := TRUE;
         end if;
      else
         cnt := cnt + 1;
         -- cnt = 1 is ME
         -- cnt = 2 is MY Caller
         -- cnt = 3 is Their Caller
         if cnt = deep then
            lineno := to_number (substr (line, 13, 6));
            line   := substr (line, 21);
            if line like 'pr%' then
               n := length ('procedure ');
            elsif line like 'fun%' then
               n := length ('function ');
            elsif line like 'package body%' then
               n := length ('package body ');
            elsif line like 'pack%' then
               n := length ('package ');
            elsif line like 'anonymous%' then
               n := length ('anonymous block ');
            else
               n := null;
            end if;
            if n is not null then
               caller_t := ltrim(rtrim(upper(substr(line, 1, n-1))));
            else
               caller_t := 'TRIGGER';
            end if;
            line := substr (line, nvl(n,1));
            n := instr (line, '.');
            owner := ltrim(rtrim(substr(line, 1, n-1)));
            name  := ltrim(rtrim(substr(line, n+1)));
         end if;
      end if;
   end loop;

end;
/

SQL> create or replace procedure p1
  2  is
  3    owner    varchar2(10);
  4    name     varchar2(10);
  5    lineno   pls_integer;
  6    caller_t varchar2(20);
  7  begin 
  8    who_called_me (owner, name, lineno, caller_t);
  9    dbms_output.put_line(caller_t||' '||owner||'.'||name||' called me at line '||lineno);
 10  end;
 11  /

Procedure created.

SQL> create or replace procedure p2
  2  is
  3  begin
  4    p1;
  5  end;
  6  /

Procedure created.

SQL> exec p2;
PROCEDURE MICHEL.P2 called me at line 4

PL/SQL procedure successfully completed.

SCOTT@orcl_11gR2> desc owa_util
...
PROCEDURE WHO_CALLED_ME
 Argument Name                  Type                    In/Out Default?
 ------------------------------ ----------------------- ------ --------
 OWNER                          VARCHAR2                OUT
 NAME                           VARCHAR2                OUT
 LINENO                         NUMBER                  OUT
 CALLER_T                       VARCHAR2                OUT

SCOTT@orcl_11gR2>