17:
18: PROCEDURE set_debug_on IS
19: l_audsid number;
20: BEGIN
21: IF csi_t_gen_utility_pvt.g_debug = fnd_api.g_false THEN
22: IF csi_t_gen_utility_pvt.g_file is null then
23: select userenv('SESSIONID') into l_audsid from sys.dual;
24: build_file_name(
25: p_file_segment1 => 'csi',
27: csi_t_gen_utility_pvt.g_file_ptr := utl_file.fopen(G_DIR, G_FILE, 'a');
28: ELSE
29: csi_t_gen_utility_pvt.g_file_ptr := utl_file.fopen(G_DIR, G_FILE, 'a');
30: END IF;
31: csi_t_gen_utility_pvt.g_debug := fnd_api.g_true;
32: END IF;
33: EXCEPTION
34: WHEN others then
35: null;
39: BEGIN
40:
41: IF csi_t_gen_utility_pvt.is_debug_on THEN
42: utl_file.fclose(csi_t_gen_utility_pvt.g_file_ptr);
43: csi_t_gen_utility_pvt.g_debug := fnd_api.g_false;
44: END IF;
45:
46: END set_debug_off;
47:
47:
48: FUNCTION is_debug_on RETURN boolean
49: IS
50: BEGIN
51: IF csi_t_gen_utility_pvt.g_debug = fnd_api.g_true THEN
52: return TRUE;
53: ELSE
54: return FALSE;
55: END IF;
105: LOOP
106:
107: fnd_msg_pub.get(
108: p_msg_index => l_ind,
109: p_encoded => fnd_api.g_false,
110: p_data => l_msg_data,
111: p_msg_index_out => l_msg_index_out);
112:
113: add('Error: '||l_msg_data);
135: LOOP
136:
137: fnd_msg_pub.get(
138: p_msg_index => l_ind,
139: p_encoded => fnd_api.g_false,
140: p_data => l_msg_data,
141: p_msg_index_out => l_msg_index_out);
142:
143: x_msg_data := ltrim(x_msg_data||' '||l_msg_data);