178: p_file_name VARCHAR2 := NULL
179: ) IS
180: l_dir_name VARCHAR2(500);
181: l_file_name VARCHAR2(200);
182: l_fh UTL_FILE.file_type;
183: l_text VARCHAR2(2000);
184: l_inxout NUMBER;
185: i NUMBER;
186: BEGIN
205: p_msg_index_out => l_inxout);
206: IF l_text IS NULL THEN
207: RETURN;
208: END IF;
209: l_fh := UTL_FILE.fopen(l_dir_name, l_file_name, 'w');
210: WHILE l_text IS NOT NULL LOOP
211: i := instr(l_text, ITG_Debug.G_ERROR_PREFIX);
212: IF i > 0 THEN
213: l_text := substr(l_text, length(ITG_Debug.G_ERROR_PREFIX) + i);
211: i := instr(l_text, ITG_Debug.G_ERROR_PREFIX);
212: IF i > 0 THEN
213: l_text := substr(l_text, length(ITG_Debug.G_ERROR_PREFIX) + i);
214: END IF;
215: UTL_FILE.put_line(l_fh, l_text);
216: FND_MSG_PUB.get(
217: p_msg_index => FND_MSG_PUB.G_NEXT,
218: p_encoded => FND_API.G_FALSE,
219: p_data => l_text,
218: p_encoded => FND_API.G_FALSE,
219: p_data => l_text,
220: p_msg_index_out => l_inxout);
221: END LOOP;
222: UTL_FILE.fclose(l_fh);
223: END IF;
224: FND_MSG_PUB.Delete_Msg;
225: EXCEPTION WHEN OTHERS THEN
226: NULL; -- added this section to capture lower level exceptions if any. 3554249