1 PACKAGE asn_debug AUTHID CURRENT_USER AS
2 /* $Header: RCVDBUGS.pls 120.0.12010000.3 2010/01/25 19:41:47 vthevark ship $ */
3 /*===========================================================================
4 PACKAGE NAME: ASN_DEBUG
5
6 DESCRIPTION: Contains the routines needed to write debug messages
7 to a file
8
9 CLIENT/SERVER: Server
10
11 LIBRARY NAME NONE
12
13 OWNER: Raj Bhakta
14
15 PROCEDURES/FUNCTIONS: PUT_LINE(v_line in varchar2))
16
17 ===========================================================================*/
18
19 /*===========================================================================
20 PROCEDURE NAME: PUT_LINE()
21
22 DESCRIPTION: Writes messages to a file
23
24 PARAMETERS: v_line in varchar2
25
26 DESIGN REFERENCES:
27
28 ALGORITHM:
29
30 NOTES:
31
32 OPEN ISSUES:
33
34 CLOSED ISSUES:
35
36 CHANGE HISTORY: Raj Bhakta 03/26/97 Created
37 ===========================================================================*/
38 PROCEDURE put_line(
39 v_line IN VARCHAR2,
40 v_level IN VARCHAR2 DEFAULT fnd_log.level_error,
41 v_inv_debug_level IN NUMBER DEFAULT 9 -- lcm changes
42 );
43
44 g_current_module VARCHAR2(255) := 'po.plsql.ASN_DEBUG';
45 g_level NUMBER := 0;
46 g_procedure_stack VARCHAR2(4000) := '? ';
47 g_current_procedure VARCHAR2(20) := '? ';
48 g_inv_debug_enabled VARCHAR2(1) := fnd_profile.VALUE('INV_DEBUG_TRACE'); -- lcm changes
49 FUNCTION get_debugging_enabled
50 RETURN BOOLEAN;
51
52 PROCEDURE set_module_name(
53 module IN VARCHAR2
54 );
55
56 PROCEDURE start_procedure(
57 procedure_name IN VARCHAR2
58 );
59
60 PROCEDURE stop_procedure(
61 procedure_name IN VARCHAR2,
62 pop_this_procedure IN BOOLEAN DEFAULT TRUE
63 );
64
65 PROCEDURE print_stack;
66
67 PROCEDURE debug_msg(
68 line IN VARCHAR2,
69 LEVEL IN VARCHAR2 DEFAULT NULL,
70 label IN VARCHAR2 DEFAULT NULL,
71 inv_debug_level IN NUMBER DEFAULT 9 -- Bug 9152790: rcv debug enhancement
72
73 );
74
75 PROCEDURE debug_msg_ex(
76 MESSAGE IN VARCHAR2,
77 module IN VARCHAR2 DEFAULT NULL,
78 procedure_name IN VARCHAR2 DEFAULT NULL,
79 line_num IN NUMBER DEFAULT NULL,
80 LEVEL IN VARCHAR2 DEFAULT NULL,
81 INV_DEBUG_LEVEL IN NUMBER DEFAULT 9 -- Bug 9152790: rcv debug enhancement
82
83 );
84
85 -- If you do not specify a level then it will use the last level specified
86 -- if there is no last level specified then it Will default to log level: Statement
87 -- If you do not specify a module then it will use the last module specified
88 -- if there is no last module specified then it Will default to module name: RCV
89 PROCEDURE get_calling_module(
90 p_module OUT NOCOPY VARCHAR2,
91 p_procedure OUT NOCOPY VARCHAR2,
92 p_label OUT NOCOPY VARCHAR2,
93 p_stack_depth IN NUMBER DEFAULT 2
94 );
95
96 FUNCTION is_debug_on RETURN VARCHAR2; -- Bug 9152790: rcv debug enhancement
97
98 END asn_debug;