create or replace procedure show_caller 
as 
   l_owner  varchar2(200); 
   l_name   varchar2(200);  
   l_lineno number; 
   l_caller varchar2(200); 
begin  
   OWA_UTIL.WHO_CALLED_ME (l_owner, l_name,l_lineno,l_caller); 
   dbms_output.put_line('Inside '||l_name); 
 
end; 

CREATE OR replace PACKAGE test_pkg  
AS  
  PROCEDURE proc1;  
END test_pkg;  
 

CREATE OR replace PACKAGE BODY test_pkg  
AS  
  PROCEDURE Proc1  
  AS  
  BEGIN  
      show_caller;  -- proc1 calls show_caller  
  END proc1;  
END test_pkg;  
 

BEGIN 
   Test_pkg.Proc1; 
END;