git-svn-id: http://locode01.ad.dom/svn/WEBMIP/trunk@50874 248e525c-4dfb-0310-94bc-949c084e9493

This commit is contained in:
andrew.gilmore
2012-03-19 11:57:19 +00:00
parent 2a0f4900c3
commit 0e9ca75d77
1587 changed files with 500863 additions and 0 deletions

View File

@@ -0,0 +1,58 @@
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;
/