59 lines
2.5 KiB
Plaintext
59 lines
2.5 KiB
Plaintext
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;
|
|
/
|