406: BEGIN
407:
408: IF (l_add_to_msg_list IS NULL) THEN
409: l_add_to_msg_list :=
410: FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR);
411: END IF;
412:
413: -- Add the unexpected error to the standard API message list.
414: IF l_add_to_msg_list THEN
411: END IF;
412:
413: -- Add the unexpected error to the standard API message list.
414: IF l_add_to_msg_list THEN
415: FND_MSG_PUB.add_exc_msg(
416: p_pkg_name => p_pkg_name
417: , p_procedure_name => p_proc_name
418: );
419: END IF;
442: -- FND_LOG_MESSAGES
443: --Locks:
444: -- None.
445: --Function:
446: -- Writes the messages on the API message list (FND_MSG_PUB) to the concurrent
447: -- program log file output, and to the FND log, if enabled.
448: --Parameters:
449: --IN:
450: --p_log_head
461: l_module VARCHAR2(200);
462: BEGIN
463: l_module := p_log_head || '.' || p_progress;
464:
465: FOR i IN 1..FND_MSG_PUB.count_msg LOOP
466: l_msg := substrb ( FND_MSG_PUB.get(p_msg_index => i,
467: p_encoded => FND_API.G_FALSE),
468: 1, 2000 );
469:
462: BEGIN
463: l_module := p_log_head || '.' || p_progress;
464:
465: FOR i IN 1..FND_MSG_PUB.count_msg LOOP
466: l_msg := substrb ( FND_MSG_PUB.get(p_msg_index => i,
467: p_encoded => FND_API.G_FALSE),
468: 1, 2000 );
469:
470: -- Write the message to the concurrent program log file.