DBA Data[Home] [Help]

PACKAGE: APPS.ASN_DEBUG

Source


1 PACKAGE asn_debug AS
2 /* $Header: RCVDBUGS.pls 120.0.12010000.2 2008/10/14 19:05:06 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_debugging_enabled VARCHAR2(1)    := fnd_profile.VALUE('RCV_DEBUG_MODE');
45     g_current_module    VARCHAR2(255)  := 'po.plsql.ASN_DEBUG';
46     g_level             NUMBER         := 0;
47     g_procedure_stack   VARCHAR2(4000) := '?                   ';
48     g_current_procedure VARCHAR2(20)   := '?                   ';
49     g_inv_debug_enabled VARCHAR2(1)    := fnd_profile.VALUE('INV_DEBUG_TRACE'); -- lcm changes
50     FUNCTION get_debugging_enabled
51         RETURN BOOLEAN;
52 
53     PROCEDURE set_module_name(
54         module IN VARCHAR2
55     );
56 
57     PROCEDURE start_procedure(
58         procedure_name IN VARCHAR2
59     );
60 
61     PROCEDURE stop_procedure(
62         procedure_name     IN VARCHAR2,
63         pop_this_procedure IN BOOLEAN DEFAULT TRUE
64     );
65 
66     PROCEDURE print_stack;
67 
68     PROCEDURE debug_msg(
69         line  IN VARCHAR2,
70         LEVEL IN VARCHAR2 DEFAULT NULL,
71         label IN VARCHAR2 DEFAULT NULL
72     );
73 
74     PROCEDURE debug_msg_ex(
75         MESSAGE        IN VARCHAR2,
76         module         IN VARCHAR2 DEFAULT NULL,
77         procedure_name IN VARCHAR2 DEFAULT NULL,
78         line_num       IN NUMBER DEFAULT NULL,
79         LEVEL          IN VARCHAR2 DEFAULT NULL
80     );
81 
82 -- If you do not specify a level then it will use the last level specified
83 --   if there is no last level specified then it Will default to log level: Statement
84 -- If you do not specify a module then it will use the last module specified
85 --   if there is no last module specified then it Will default to module name: RCV
86     PROCEDURE get_calling_module(
87         p_module      OUT NOCOPY    VARCHAR2,
88         p_procedure   OUT NOCOPY    VARCHAR2,
89         p_label       OUT NOCOPY    VARCHAR2,
90         p_stack_depth IN            NUMBER DEFAULT 2
91     );
92 END asn_debug;