[Home] [Help]
PACKAGE: APPS.XTR_RISK_DEBUG_PKG
Source
1 PACKAGE XTR_RISK_DEBUG_PKG AUTHID CURRENT_USER as
2 /* $Header: xtrrmbgs.pls 115.8 2003/11/24 20:06:26 prafiuly ship $ */
3
4
5 TYPE DebugLevels_table_type IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;
6
7 TYPE TimeType_rec_type IS RECORD(Marker VARCHAR2(100),
8 Time NUMBER,
9 CallCount NUMBER,
10 TotalTime NUMBER);
11
12 TYPE TimeStack_table_type IS TABLE OF TimeType_rec_type
13 INDEX BY BINARY_INTEGER;
14
15 TYPE CallStack_table_type IS TABLE OF VARCHAR2(80) INDEX BY BINARY_INTEGER;
16
17 g_TimeStack TimeStack_table_type;
18 g_CallStack CallStack_table_type;
19 g_DebugLevels DebugLevels_table_type;
20 g_Debug BOOLEAN := TRUE; --bug 3236479 set the default to TRUE
21 g_sql_debug BOOLEAN := FALSE;
22 g_FileHandle utl_file.file_type := NULL;
23 G_DELIMITER VARCHAR2(5) := ' ==> ';
24 g_debug_conc BOOLEAN := FALSE;
25
26
27 --
28 -- PROCEDURE NAME: start_debug
29 --
30 -- DESCRIPTION: This procedure initializes the debug session.
31 --
32 -- PARAMETERS: p_file_name VARCHAR2 DEFAULT null
33 --
34 PROCEDURE start_debug(p_path_name VARCHAR2 DEFAULT NULL,
35 p_file_name VARCHAR2 DEFAULT NULL);
36
37
38 --
39 -- PROCEDURE NAME: stop_debug
40 --
41 -- DESCRIPTION: This procedure closes the debug session.
42 --
43 PROCEDURE stop_debug;
44
45
46 --
47 -- Bug 3236479
48 --
49 -- PROCEDURE NAME: dpush
50 --
51 -- DESCRIPTION: This procedure pushes a call onto the call stack
52 --
53 -- PARAMETERS: p_Name IN VARCHAR2
54 --
55 PROCEDURE dpush(p_Name IN VARCHAR2,
56 p_module IN VARCHAR2 := 'xtr',
57 p_log_level IN NUMBER := FND_LOG.LEVEL_PROCEDURE);
58
59
60 --
61 -- Bug 3236479
62 --
63 -- PROCEDURE NAME: dpop
64 --
65 -- DESCRIPTION: This procedure pops a call off the call stack
66 --
67 -- PARAMETERS: p_Context IN VARCHAR2
68 --
69 PROCEDURE dpop (p_Context IN VARCHAR2 := NULL,
70 p_module IN VARCHAR2 := 'xtr',
71 p_log_level IN NUMBER := FND_LOG.LEVEL_PROCEDURE);
72
73
74
75 --
76 -- PROCEDURE NAME: start_conc_prog
77 --
78 -- DESCRIPTION: This procedure informs debug package that the request is
79 -- from a concurrent program.
80 --
81 PROCEDURE start_conc_prog;
82
83
84 --
85 -- PROCEDURE NAME: stop_conc_debug
86 --
87 -- DESCRIPTION: This procedure turn off the concurrent program debuging.
88 --
89 PROCEDURE stop_conc_debug;
90
91 --
92 -- PROCEDURE NAME: set_filehandle
93 --
94 -- DESCRIPTION: This procedure turn off the concurrent program debuging.
95 --
96 PROCEDURE set_filehandle(p_FileHandle utl_file.file_type := NULL);
97
98
99 --
100 -- Bug 3236479
101 --
102 -- PROCEDURE NAME: dlog
103 --
104 -- DESCRIPTION: This procedure prints string followed by a number.
105 -- Does not require level and always prints.
106 --
107 -- PARAMETERS: p_Text IN VARCHAR2
108 -- p_Value IN NUMBER
109 --
110 PROCEDURE dlog (p_Text IN VARCHAR2,
111 p_Value IN NUMBER,
112 p_module IN VARCHAR2 := 'xtr',
113 p_log_level IN NUMBER := FND_LOG.LEVEL_PROCEDURE);
114
115
116 --
117 -- Bug 3236479
118 --
119 -- PROCEDURE NAME: dlog
120 --
121 -- DESCRIPTION: This procedure prints string followed by a string.
122 -- Does not require level and always prints.
123 --
124 -- PARAMETERS: p_Text IN VARCHAR2
125 -- p_Value IN VARCHAR2 := NULL
126 --
127 PROCEDURE dlog (p_Text IN VARCHAR2,
128 p_Value IN VARCHAR2 := NULL,
129 p_module IN VARCHAR2 := 'xtr',
130 p_log_level IN NUMBER := FND_LOG.LEVEL_PROCEDURE);
131
132
133 --
134 -- Bug 3236479
135 --
136 -- PROCEDURE NAME: dlog
137 --
138 -- DESCRIPTION: This procedure prints string followed by a date.
139 -- Does not require level and always prints.
140 --
141 -- PARAMETERS: p_Text IN VARCHAR2
142 -- p_Value IN DATE
143 -- p_Mask IN VARCHAR2 := 'DD-MON-YYYY HH24:MI:SS'
144 --
145 PROCEDURE dlog (p_Text IN VARCHAR2,
146 p_Value IN DATE,
147 p_Mask IN VARCHAR2 := 'DD-MON-YYYY HH24:MI:SS',
148 p_module IN VARCHAR2 := 'xtr',
149 p_log_level IN NUMBER := FND_LOG.LEVEL_PROCEDURE);
150
151
152 --
153 -- Bug 3236479
154 --
155 -- PROCEDURE NAME: dlog
156 --
157 -- DESCRIPTION: This procedure prints string followed by a boolean
158 -- Does not require level and always prints.
159 --
160 -- PARAMETERS: p_Text IN VARCHAR2
161 -- p_Value IN boolean
162 --
163 PROCEDURE dlog (p_Text IN VARCHAR2,
164 p_Value IN BOOLEAN,
165 p_module IN VARCHAR2 := 'xtr',
166 p_log_level IN NUMBER := FND_LOG.LEVEL_PROCEDURE);
167
168
169
170
171 END XTR_RISK_DEBUG_PKG;