229: p_msg_text OUT NOCOPY VARCHAR2)
230: IS
231: l_msg_text VARCHAR2(1000);
232: BEGIN
233: p_msg_count := fnd_msg_pub.count_msg;
234: FOR i IN 1..p_msg_count
235: LOOP
236: fnd_msg_pub.get
237: (p_data => l_msg_text,
232: BEGIN
233: p_msg_count := fnd_msg_pub.count_msg;
234: FOR i IN 1..p_msg_count
235: LOOP
236: fnd_msg_pub.get
237: (p_data => l_msg_text,
238: p_msg_index_out => p_msg_count,
239: p_encoded => fnd_api.g_false,
240: p_msg_index => fnd_msg_pub.g_next
236: fnd_msg_pub.get
237: (p_data => l_msg_text,
238: p_msg_index_out => p_msg_count,
239: p_encoded => fnd_api.g_false,
240: p_msg_index => fnd_msg_pub.g_next
241: );
242: IF i = 1 THEN
243: p_msg_text := l_msg_text;
244: ELSE
256: IS
257: l_msg_text VARCHAR2(2000);
258: l_msg_count NUMBER ;
259: BEGIN
260: l_msg_count := fnd_msg_pub.count_msg;
261: FOR i IN 1..l_msg_count
262: LOOP
263: fnd_msg_pub.get
264: (p_data => p_all_message(i),
259: BEGIN
260: l_msg_count := fnd_msg_pub.count_msg;
261: FOR i IN 1..l_msg_count
262: LOOP
263: fnd_msg_pub.get
264: (p_data => p_all_message(i),
265: p_msg_index_out => l_msg_count,
266: p_encoded => fnd_api.g_false,
267: p_msg_index => fnd_msg_pub.g_next
263: fnd_msg_pub.get
264: (p_data => p_all_message(i),
265: p_msg_index_out => l_msg_count,
266: p_encoded => fnd_api.g_false,
267: p_msg_index => fnd_msg_pub.g_next
268: );
269: END LOOP;
270: EXCEPTION
271: WHEN OTHERS THEN
273: END get_error_message;
274:
275: /**************************************************************************/
276: --Bug 4700150. SGIYER. Wrote new procedure as first msg is not printing using std
277: -- fnd procedure above. fnd_msg_pub.g_next does not return first msg in stack.
278: -- For below procedure, stack must be cleared if processing within a loop.
279: PROCEDURE get_error_msg(p_all_message OUT NOCOPY error_message_type)
280: IS
281: l_msg_text VARCHAR2(2000);
282: l_msg_count NUMBER ;
283: l_msg_index_out NUMBER;
284: l_counter NUMBER := 1;
285: BEGIN
286: l_msg_count := fnd_msg_pub.count_msg;
287:
288: FOR i IN 1..l_msg_count
289: LOOP
290: l_msg_text := NULL;
288: FOR i IN 1..l_msg_count
289: LOOP
290: l_msg_text := NULL;
291: IF i = 1 THEN
292: fnd_msg_pub.get
293: (p_data => l_msg_text,
294: p_msg_index_out => l_msg_index_out,
295: p_encoded => fnd_api.g_false,
296: p_msg_index => fnd_msg_pub.g_first
292: fnd_msg_pub.get
293: (p_data => l_msg_text,
294: p_msg_index_out => l_msg_index_out,
295: p_encoded => fnd_api.g_false,
296: p_msg_index => fnd_msg_pub.g_first
297: );
298: ELSE
299: fnd_msg_pub.get
300: (p_data => l_msg_text,
295: p_encoded => fnd_api.g_false,
296: p_msg_index => fnd_msg_pub.g_first
297: );
298: ELSE
299: fnd_msg_pub.get
300: (p_data => l_msg_text,
301: p_msg_index_out => l_msg_index_out,
302: p_encoded => fnd_api.g_false,
303: p_msg_index => fnd_msg_pub.g_next
299: fnd_msg_pub.get
300: (p_data => l_msg_text,
301: p_msg_index_out => l_msg_index_out,
302: p_encoded => fnd_api.g_false,
303: p_msg_index => fnd_msg_pub.g_next
304: );
305: END IF;
306: IF l_msg_text IS NOT NULL THEN
307: p_all_message(l_counter) := l_msg_text;