-- /www/doc/sql/useful_dependency_tree_ph.sql
-- $Id: dependency-tree-ph.sql,v 1.1.3.1 2001/08/29 05:31:19 andy Exp $
--
-- compiled by atp@arsdigita.com, 2000-07-17


-- ***************************************************************************
-- File: 9_2.sql
--
-- Developed By TUSC
--
-- Disclaimer: Neither Osborne/McGraw-Hill, TUSC, nor the author warrant
--             that this source code is error-free. If any errors are
--             found in this source code, please report them to TUSC at
--             (630)960-2909 ext 1011 or trezzoj@tusc.com.
-- ***************************************************************************

-- E.g., for the object dlfi_conversion, do:
--   execute dependency_tree.find_dep('B','dlfi_conversion','muniversaldev');
-- to find objects that depend on it, or do:
--   execute dependency_tree.find_dep('T','dlfi_conversion','muniversaldev');
-- to find objects which it depends on.


CREATE OR REPLACE PACKAGE dependency_tree AS
   -- This package will traverse top-down (p_direction_txt = T) or 
   -- bottom-up (p_direction_txt = B)
   PROCEDURE find_dep
      (p_direction_txt  IN VARCHAR2,
      p_object_name_txt IN VARCHAR2,
      p_owner_txt       IN VARCHAR2 :=USER);
   PROCEDURE get_dep
      (p_direction_txt   IN VARCHAR2,
      p_direction_msg2   IN VARCHAR2,
      p_object_owner_txt IN VARCHAR2,
      p_object_name_txt  IN VARCHAR2,
      p_object_type_txt  IN VARCHAR2,
      p_index_num        IN PLS_INTEGER);
   FUNCTION repeat_char
      (p_repeat_num IN PLS_INTEGER,
      p_repeat_txt  IN VARCHAR2 := '-') RETURN VARCHAR2;
END dependency_tree;
/
show errors