CREATE OR REPLACE PACKAGE protected_pkg  
AS  
  PROCEDURE public_proc;  
  PROCEDURE private_proc ACCESSIBLE BY (PROCEDURE top_trusted_proc);  
END; 

CREATE OR REPLACE PACKAGE BODY protected_pkg   
AS   
  PROCEDURE public_proc AS   
  BEGIN   
    DBMS_OUTPUT.PUT_LINE('Processed protected_pkg.public_proc');   
  END;   
  PROCEDURE private_proc ACCESSIBLE BY (PROCEDURE top_trusted_proc) AS   
  BEGIN   
    DBMS_OUTPUT.PUT_LINE('Processed protected_pkg.private_proc');   
  END;   
END; 

CREATE OR REPLACE PROCEDURE top_trusted_proc AS  
BEGIN   
  DBMS_OUTPUT.PUT_LINE('top_trusted_proc calls protected_pkg.private_proc ');  
  protected_pkg.private_proc;  
END; 

exec top_trusted_proc

exec protected_pkg.public_proc

exec protected_pkg.private_proc