[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) := '-------------------------';
177: -- ------------------------------------------------------
178: procedure SET_CURR_FUNCTION( p_function varchar2 ) is
179: begin
180: g_module := p_function;
181: pa_debug.set_curr_function( p_function );
182: end;
183:
184:
185: -- ------------------------------------------------------
186: -- procedure RESET_CURR_FUNCTION
187: -- ------------------------------------------------------
188: procedure RESET_CURR_FUNCTION is
189: begin
190: pa_debug.reset_curr_function;
191: end;
192:
193:
194: -- ------------------------------------------------------
268: if (g_session_sid is null) then
269: init_session_cache;
270: end if;
271:
272: if (g_pa_debug_mode = 'Y' or
273: g_debug_level = 5) then
274:
275: l_output_dest := nvl(FND_PROFILE.VALUE('PJI_OUTPUT_DESTINATION'),
276: g_output_dest);
315: -- for GSCC standards
316: -- dbms_ output.put_ line(p_msg || l_timestamp);
317: else
318: -- in all other cases write the message into the log file
319: pa_debug.log_message(p_message => p_msg || l_timestamp);
320: end if;
321:
322: end if;
323:
423: if g_session_sid is null then
424: init_session_cache;
425: end if;
426:
427: if g_pa_debug_mode = 'Y' then
428:
429: insert into PJI_SYSTEM_DEBUG_MSG
430: (
431: MESSAGE_ID
2213: from v$session
2214: where audsid = userenv('SESSIONID');
2215:
2216: g_session_user_id := fnd_global.user_id;
2217: g_pa_debug_mode := fnd_profile.value('PA_DEBUG_MODE');
2218: g_debug_level := nvl(FND_PROFILE.VALUE('PJI_DEBUG_LEVEL'), 5);
2219:
2220: end;
2221: