30: g_stack_processes.delete;
31: FND_PROFILE.get('IBC_DEBUG_TYPE',g_debug_type);
32: FND_PROFILE.get('IBC_DEBUG_OUTPUT_DIR',g_debug_output_dir);
33: IF g_debug_type = 'FILE' THEN
34: g_output_file_ptr := utl_file.fopen(g_debug_output_dir, 'IBC_' || FND_GLOBAL.USER_NAME || '.log', 'a');
35: put_message('');
36: put_message('
37: END IF;
38: END Init_Debug;
54: PROCEDURE debug_flush IS
55: l_pipe_result NUMBER;
56: BEGIN
57: IF g_debug_type = 'PIPE' THEN
58: l_pipe_result := DBMS_PIPE.send_message(pipename => 'IBC_DEBUG:' || FND_GLOBAL.user_name,
59: maxpipesize => 8192);
60: ELSIF g_debug_type = 'FILE' THEN
61: utl_file.fflush(g_output_file_ptr);
62: END IF;
103: IF p_parms IS NOT NULL THEN
104: l_parms := p_parms;
105: l_count := 0;
106: LOOP
107: l_pos_lf := INSTR(l_parms, FND_GLOBAL.local_chr(13));
108: IF l_pos_lf > 0 THEN
109: IF l_count = 0 THEN
110: put_message(LPAD(' ', (g_stack_level + 1) * 3, ' ') ||
111: SUBSTR(l_parms, 1, l_pos_lf - 1));
266: IF p_parms IS NOT NULL THEN
267: l_result := '<' || p_tag || '>';
268: FOR I IN 1..p_parms.COUNT LOOP
269: IF I MOD 2 <> 0 THEN
270: l_result := l_result || FND_GLOBAL.local_chr(13) ||
271: '<' || p_parms(I) || '>';
272: ELSE
273: l_result := l_result || p_parms(I) ||
274: '' || p_parms(I-1) || '>';
273: l_result := l_result || p_parms(I) ||
274: '' || p_parms(I-1) || '>';
275: END IF;
276: END LOOP;
277: l_result := l_result || FND_GLOBAL.local_chr(13) || '' || p_tag || '>';
278: END IF;
279: END IF;
280: RETURN l_result;
281: END;
290: IF p_parms IS NOT NULL THEN
291: l_result := '<' || p_tag || '>';
292: FOR I IN 1..p_parms.COUNT LOOP
293: IF I MOD 2 <> 0 THEN
294: l_result := l_result || FND_GLOBAL.local_chr(13) ||
295: '<' || p_parms(I) || '>';
296: ELSE
297: l_result := l_result || p_parms(I) ||
298: '' || p_parms(I-1) || '>';
297: l_result := l_result || p_parms(I) ||
298: '' || p_parms(I-1) || '>';
299: END IF;
300: END LOOP;
301: l_result := l_result || FND_GLOBAL.local_chr(13) || '' || p_tag || '>';
302: END IF;
303: END IF;
304: RETURN l_result;
305: END;
323: IF p_output_list IS NOT NULL THEN
324: l_output_list := p_output_list;
325: l_count := 0;
326: LOOP
327: l_pos_lf := INSTR(l_output_list, FND_GLOBAL.local_chr(13));
328: IF l_pos_lf > 0 THEN
329: IF l_count = 0 THEN
330: put_message(LPAD(' ', (g_stack_level + 1) * 3, ' ') ||
331: SUBSTR(l_output_list, 1, l_pos_lf - 1));