CREATE OR REPLACE PACKAGE caco_debug IS
  g_header   CONSTANT VARCHAR2(160) := '$Header: /Isle Of Grain/Database/PLSQL/caco_debug.pck 3     8/04/05 11:06 Hardya $';
  g_revision CONSTANT VARCHAR2(160) := '$Revision: 3 $';

  /*
       * $History: caco_debug.pck $
  *
  * *****************  Version 3  *****************
  * User: Hardya       Date: 8/04/05    Time: 11:06
  * Updated in $/Isle Of Grain/Database/PLSQL
  * Add function about to package specification.
   *
   * *****************  Version 2  *****************
   * User: Hardya       Date: 18/03/05   Time: 11:24
   * Updated in $/Isle Of Grain/Database/PLSQL
   * Added use of debug_options table. Added procedures to allow invocation
   * from web.
    *
    * *****************  Version 1  *****************
    * User: Gilberta     Date: 7/01/05    Time: 12:54
    * Created in $/Isle Of Grain/database/PLSQL
    * Initial Version
       *
       * *****************  Version 1  *****************
       * User: Hardya       Date: 18/09/01   Time: 15:32
       * Created in $/Database/Packages/Debug
       * Routine to write debugging messages to the DEBUG table.
      */
  PROCEDURE debug_on(p_package_name IN VARCHAR2 DEFAULT NULL);
  PROCEDURE debug_off;
  FUNCTION debugging RETURN BOOLEAN;

  PROCEDURE putline(p_line IN VARCHAR2);
  PROCEDURE who_called_me(p_owner       OUT VARCHAR2
                         ,p_name        OUT VARCHAR2
                         ,p_lineno      OUT NUMBER
                         ,p_caller_type OUT VARCHAR2);

  PROCEDURE clear_debug_table(p_name        IN debug.NAME%TYPE DEFAULT NULL
                             ,p_before_date IN DATE DEFAULT SYSDATE
                             ,p_owner       IN debug.owner%TYPE DEFAULT USER
                             ,p_password    IN VARCHAR2);

  PROCEDURE add_debug_option(p_name     IN debug_options.NAME%TYPE
                            ,p_owner    IN debug_options.owner%TYPE DEFAULT USER
                            ,p_password IN VARCHAR2);

  PROCEDURE remove_debug_option(p_name     IN debug_options.NAME%TYPE
                               ,p_owner    IN debug_options.owner%TYPE DEFAULT USER
                               ,p_password IN VARCHAR2);

  PROCEDURE show_debug_table(p_name     IN debug_options.NAME%TYPE DEFAULT NULL
                            ,p_owner    IN debug_options.owner%TYPE DEFAULT USER
                            ,p_password IN VARCHAR2);

  FUNCTION about RETURN VARCHAR2;
END caco_debug;
/