1 PACKAGE IEX_DEBUG_PUB AUTHID CURRENT_USER as
2 /* $Header: iexidbgs.pls 120.1 2004/09/08 18:51:54 jsanju ship $ */
3 -- Start of Comments
4 -- Package name : IEX_DEBUG_PUB
5 -- Purpose :
6 -- History :
7 -- NOTE :
8 -- End of Comments
9
10
11 G_PKG_NAME CONSTANT VARCHAR2(15):= 'IEX_DEBUG_PUB';
12 G_Debug_Level NUMBER := to_number(nvl(fnd_profile.value('IEX_DEBUG_LEVEL'),'0'));
13 G_DIR v$parameter.value%TYPE :=
14 fnd_profile.value('UTL_FILE_DIR');
15 G_FILE Varchar2(2000) := null;
16 G_FILE_PTR utl_file.file_type;
17
18 /* Name OpenFile
19 ** It Opens the file if given , else creates a new file
20 */
21 Function OpenFile(P_file in varchar2 default null) return varchar2;
22
23
24 /* Name LogMessage
25 ** Purpose To add a debugging message. This message will be placed in
26 ** the file only if the debug level is greater than the g_debug_level
27 ** which is based on a profile
28 */
29 PROCEDURE LogMessage(debug_msg in Varchar2,
30 debug_level in Number default 10,
31 print_date in varchar2 default 'N');
32
33
34 /* Name SetDebugLevel (p_debug_level in number);
35 ** Set g_debug_level to the desired one if running outside of application
36 ** since the debug_level is set through a profile
37 */
38 Procedure SetDebugLevel(p_debug_level in number);
39
40 Procedure SetDebugFileDir(P_FILEDIR IN VARCHAR2);
41
42 END IEX_DEBUG_PUB;