1 PACKAGE cse_debug_pub AUTHID CURRENT_USER AS
2 /* $Header: CSEPDBGS.pls 120.1 2006/08/16 06:39:38 brmanesh noship $ */
3
4 G_PKG_NAME CONSTANT VARCHAR2(15):= 'CSE_DEBUG_PUB';
5 G_BASIC CONSTANT Number := 0;
6 G_Detailed CONSTANT Number := 1;
7 G_DIR Varchar2(80) := nvl(fnd_profile.value ('CSE_DEBUG_LOG_DIRECTORY'), '/tmp');
8 G_FILE Varchar2(255) := null;
9 G_FILE_PTR utl_file.file_type;
10 G_DEBUG_LEVEL number := G_Detailed;
11 G_DEBUG Boolean := FALSE;
12
13
14 -- Set Debug File, Use this function to set the debug file name,
15 -- CSE will generate a random file name if you call this procedure without
16 -- a user specified file name.
17 -- The function returns the debug file name including the directory name
18 FUNCTION set_debug_file(P_FILE in Varchar2 default null) Return Varchar2;
19
20 -- Set Debug Level use this function to set the debug level.
21 -- The default level is Detailed ie 1. You can use this function to set the
22 -- debug level to 0 ie Basic.
23 PROCEDURE set_debug_level(p_debug_level in Number );
24
25 -- Name Debug_On
26 -- Purpose To Turn the debugging on. Use this proceudre to enable debuging
27 -- for the current sesssion. Any subsquent call to the statment add will result
28 -- in the debug statments cached to the debug table
29 PROCEDURE Debug_ON;
30
31
32 -- Name Debug_Off
33 -- Purpose To Turn off the debugging. Use this proceudre to disable debugging
34 -- for the current sesssion. Call to ADD will be ignored. Please note that
35 -- Function dCSEs not clear the cache and any debuging information is retained
36 PROCEDURE Debug_OFF;
37
38 -- Name IsDebugOn
39 -- Purpose To test if the debugging is enabled.
40 FUNCTION ISDebugOn Return Boolean;
41
42
43 -- Name Add
44 -- Purpose To add a debugging message. This message will be placed in
45 -- the table only if the debugging is turned on.
46 PROCEDURE Add(debug_msg in Varchar2, debug_level in Number default G_DETAILED);
47
48 END cse_debug_pub;