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