308: END IF;
309: G_msg_count := G_msg_count + 1;
310: Extend;
311:
312: G_msg_tbl.Message(G_msg_count) := FND_MESSAGE.GET_ENCODED;
313:
314: IF p_context_flag = 'Y' THEN
315:
316: BEGIN
314: IF p_context_flag = 'Y' THEN
315:
316: BEGIN
317:
318: fnd_message.parse_encoded(G_msg_tbl.Message(G_msg_count),
319: l_app_id,
320: l_message_name);
321:
322: IF l_type IS NULL THEN
532:
533: IF l_debug_level > 0 THEN
534: oe_debug_pub.add( 'ENTERING P_ENCODED AS FALSE ' ) ;
535: END IF;
536: FND_MESSAGE.SET_ENCODED ( G_msg_tbl.Message( G_msg_index ));
537:
538: p_data := FND_MESSAGE.GET;
539: IF l_debug_level > 0 THEN
540: oe_debug_pub.add( 'THE MESSAGE IS '||P_DATA ) ;
534: oe_debug_pub.add( 'ENTERING P_ENCODED AS FALSE ' ) ;
535: END IF;
536: FND_MESSAGE.SET_ENCODED ( G_msg_tbl.Message( G_msg_index ));
537:
538: p_data := FND_MESSAGE.GET;
539: IF l_debug_level > 0 THEN
540: oe_debug_pub.add( 'THE MESSAGE IS '||P_DATA ) ;
541: END IF;
542:
689: l_error_text := SUBSTR (SQLERRM , 1 , 2000);
690:
691: END IF;
692:
693: FND_MESSAGE.SET_NAME('FND','FND_AS_UNEXPECTED_ERROR');
694:
695: IF p_pkg_name <> FND_API.G_MISS_CHAR THEN
696: FND_MESSAGE.SET_TOKEN('PKG_NAME',p_pkg_name);
697: END IF;
692:
693: FND_MESSAGE.SET_NAME('FND','FND_AS_UNEXPECTED_ERROR');
694:
695: IF p_pkg_name <> FND_API.G_MISS_CHAR THEN
696: FND_MESSAGE.SET_TOKEN('PKG_NAME',p_pkg_name);
697: END IF;
698:
699: IF p_PROCEDURE_name <> FND_API.G_MISS_CHAR THEN
700: FND_MESSAGE.SET_TOKEN('PROCEDURE_NAME',p_procedure_name);
696: FND_MESSAGE.SET_TOKEN('PKG_NAME',p_pkg_name);
697: END IF;
698:
699: IF p_PROCEDURE_name <> FND_API.G_MISS_CHAR THEN
700: FND_MESSAGE.SET_TOKEN('PROCEDURE_NAME',p_procedure_name);
701: END IF;
702:
703: IF l_error_text <> FND_API.G_MISS_CHAR THEN
704: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',l_error_text);
700: FND_MESSAGE.SET_TOKEN('PROCEDURE_NAME',p_procedure_name);
701: END IF;
702:
703: IF l_error_text <> FND_API.G_MISS_CHAR THEN
704: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',l_error_text);
705: END IF;
706:
707: END; -- Build_Exc_Msg
708: