82: | .../... |
83: | END; |
84: | |
85: | DEPENDENCIES |
86: | dbms_pipe |
87: | dbms_utility |
88: | dbms_output |
89: | dbms_session |
90: | fnd_file |
928: IS
929:
930: l_cr NUMBER;
931: BEGIN
932: dbms_pipe.pack_message(NVL(p_msg,' ') );
933: l_cr := dbms_pipe.send_message(g_pipe_name,g_timeout,c_pipe_buffer_size);
934: IF l_cr <> 0 THEN
935: IF l_cr = 1 THEN
936: --
929:
930: l_cr NUMBER;
931: BEGIN
932: dbms_pipe.pack_message(NVL(p_msg,' ') );
933: l_cr := dbms_pipe.send_message(g_pipe_name,g_timeout,c_pipe_buffer_size);
934: IF l_cr <> 0 THEN
935: IF l_cr = 1 THEN
936: --
937: -- Switch the trace to OFF to avoid indefinite recursive loop
1048: IS
1049:
1050: l_cr NUMBER;
1051: BEGIN
1052: dbms_pipe.pack_message('STOP');
1053: l_cr := dbms_pipe.send_message(g_pipe_name,g_timeout,c_pipe_buffer_size);
1054:
1055: EXCEPTION
1056: WHEN xla_exceptions_pkg.application_exception THEN
1049:
1050: l_cr NUMBER;
1051: BEGIN
1052: dbms_pipe.pack_message('STOP');
1053: l_cr := dbms_pipe.send_message(g_pipe_name,g_timeout,c_pipe_buffer_size);
1054:
1055: EXCEPTION
1056: WHEN xla_exceptions_pkg.application_exception THEN
1057: g_trace := 'N';
1132: g_trace_reqid := l_reqid;
1133: COMMIT;
1134:
1135: IF g_trace = 'Y' THEN
1136: dbms_pipe.purge(g_pipe_name);
1137: dbms_pipe.reset_buffer;
1138: END IF;
1139: END SubmitTracer;
1140:
1133: COMMIT;
1134:
1135: IF g_trace = 'Y' THEN
1136: dbms_pipe.purge(g_pipe_name);
1137: dbms_pipe.reset_buffer;
1138: END IF;
1139: END SubmitTracer;
1140:
1141: