The following lines contain the word 'select', 'insert', 'update' or 'delete':
* Procedure : Translate_And_Insert_Messages
* Returns : None
* Parameters IN : Message Token Table
* Parameters OUT NOCOPY: None
* Purpose : This procedure will parse through the message token
* table and seperate tokens for a message, get the
* translated message, substitute the tokens and insert
* the message in the message table.
**********************************************************************/
PROCEDURE Translate_And_Insert_Messages
( p_mesg_token_tbl IN EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type
, p_error_level IN NUMBER
, p_entity_index IN NUMBER
, p_application_id IN VARCHAR2 := 'EAM'
)
IS
l_message_text VARCHAR2(2000);
-- insert a message when last message or message changes in p_mesg_token_tbl
IF l_loopIndex=p_mesg_token_tbl.COUNT OR (l_loopIndex<>p_mesg_token_tbl.COUNT AND l_message_name<>p_mesg_token_tbl(l_loopIndex+1).message_name)
THEN
fnd_msg_pub.add;
--insert a message when last message or message changes in p_mesg_token_tbl
IF l_loopIndex=p_mesg_token_tbl.COUNT OR (l_loopIndex<>p_mesg_token_tbl.COUNT AND l_message_name<>p_mesg_token_tbl(l_loopIndex+1).message_name)
THEN
fnd_msg_pub.add;
-- loop inserts message/messages with a single or multiple token for display on UI
l_message_name := NULL;
END Translate_And_Insert_Messages;
EAM_ERROR_MESSAGE_PVT.Translate_And_Insert_Messages
( p_mesg_token_Tbl => p_mesg_token_tbl
, p_error_level => p_error_level
, p_entity_index => p_entity_index
);
G_Error_Table.DELETE;
* Procedure : Delete_Message
* Parameters IN : Entity Id
* Entity Index
* Purpose : This procedure will delete a message for an entity
* record.
**********************************************************************/
PROCEDURE Delete_Message
( p_entity_id IN VARCHAR2
, p_entity_index IN NUMBER
)
IS
l_idx NUMBER;
G_Error_Table.Delete(l_idx);
END Delete_Message;
* Procedure : Delete_Message
* Parameters IN : Entity Id
* Purpose : This procedure will delete all messages for an entity
**********************************************************************/
PROCEDURE Delete_Message
( p_entity_id IN VARCHAR2 )
IS
l_idx NUMBER;
G_Error_Table.Delete(l_idx);
END Delete_Message;
/* This procedure deletes the last message in the message stack
*/
PROCEDURE Delete_Message
IS
l_count NUMBER;
G_Error_Table.delete(G_Msg_Count,G_Msg_Count);
END Delete_Message;
select value
INTO l_utl_file_dir
FROM v$parameter
WHERE name = 'utl_file_dir';
EAM_ERROR_MESSAGE_PVT.Translate_And_Insert_Messages
( p_mesg_token_Tbl => p_mesg_token_tbl
, p_error_level => p_error_level
, p_entity_index => p_entity_index
);