[Home] [Help]
15: g_session_user_id number;
16: g_module varchar2(60);
17: g_output_dest varchar2(60);
18: g_debug_context varchar2(60);
19: g_pa_debug_mode varchar2(1);
20:
21: -- Global variables for dangling rates report ---------
22: g_space varchar2(30) := ' ';
23: g_line varchar2(30) := '-------------------------';
157: -- ------------------------------------------------------
158: procedure SET_CURR_FUNCTION( p_function varchar2 ) is
159: begin
160: g_module := p_function;
161: pa_debug.set_curr_function( p_function );
162: end;
163:
164:
165: -- ------------------------------------------------------
166: -- procedure RESET_CURR_FUNCTION
167: -- ------------------------------------------------------
168: procedure RESET_CURR_FUNCTION is
169: begin
170: pa_debug.reset_curr_function;
171: end;
172:
173:
174: -- ------------------------------------------------------
248: if (g_session_sid is null) then
249: init_session_cache;
250: end if;
251:
252: if (g_pa_debug_mode = 'Y' or
253: g_debug_level = 5) then
254:
255: l_output_dest := nvl(FND_PROFILE.VALUE('PJI_OUTPUT_DESTINATION'),
256: g_output_dest);
295: -- for GSCC standards
296: -- dbms_ output.put_ line(p_msg || l_timestamp);
297: else
298: -- in all other cases write the message into the log file
299: pa_debug.log_message(p_message => p_msg || l_timestamp);
300: end if;
301:
302: end if;
303:
403: if g_session_sid is null then
404: init_session_cache;
405: end if;
406:
407: if g_pa_debug_mode = 'Y' then
408:
409: insert into PJI_SYSTEM_DEBUG_MSG
410: (
411: MESSAGE_ID
2044: from v$session
2045: where audsid = userenv('SESSIONID');
2046:
2047: g_session_user_id := fnd_global.user_id;
2048: g_pa_debug_mode := fnd_profile.value('PA_DEBUG_MODE');
2049: g_debug_level := nvl(FND_PROFILE.VALUE('PJI_DEBUG_LEVEL'), 5);
2050:
2051: end;
2052: