The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE do_update_rich_messages(
p_rich_messages_rec IN OUT NOCOPY RICH_MESSAGES_REC_TYPE,
p_message_text IN OUT NOCOPY CLOB,
p_object_version_number IN OUT NOCOPY NUMBER,
x_return_status IN OUT NOCOPY VARCHAR2
);
FUN_RICH_MESSAGES_PKG.Insert_Row (
X_ROWID =>l_rowid,
X_APPLICATION_ID =>p_rich_messages_rec.application_id,
X_MESSAGE_TEXT =>p_message_text,
X_MESSAGE_NAME =>p_rich_messages_rec.MESSAGE_NAME,
X_CREATED_BY_MODULE =>p_rich_messages_rec.created_by_module
);
| do_update_rich_messages
|
| DESCRIPTION
| Updates Rich Text Messages
|
| SCOPE - PRIVATE
|
| EXETERNAL PROCEDURES/FUNCTIONS ACCESSED
|
| ARGUMENTS : IN:
| OUT:
| IN/ OUT:
| p_rich_messages_rec
| p_object_version_number
| x_return_status
|
| RETURNS : NONE
|
| NOTES
|
| MODIFICATION HISTORY
|
+===========================================================================*/
PROCEDURE do_update_rich_messages(
p_rich_messages_rec IN OUT NOCOPY RICH_MESSAGES_REC_TYPE,
p_message_text IN OUT NOCOPY CLOB,
p_object_version_number IN OUT NOCOPY NUMBER,
x_return_status IN OUT NOCOPY VARCHAR2
) IS
l_object_version_number NUMBER;
SELECT OBJECT_VERSION_NUMBER,
ROWID
INTO l_object_version_number,
l_rowid
FROM FUN_RICH_MESSAGES_B
WHERE MESSAGE_NAME = p_rich_messages_rec.message_name
AND APPLICATION_ID = p_rich_messages_rec.application_id
FOR UPDATE OF MESSAGE_NAME NOWAIT;
FUN_RICH_MESSAGES_PKG.Update_Row (
X_APPLICATION_ID =>p_rich_messages_rec.application_id,
X_MESSAGE_TEXT =>p_message_text,
X_MESSAGE_NAME =>p_rich_messages_rec.message_name,
X_CREATED_BY_MODULE =>p_rich_messages_rec.created_by_module
);
* PROCEDURE update_rich_messages
*
* DESCRIPTION
* Updates Rich Text Messages
*
* EXTERNAL PROCEDURES/FUNCTIONS ACCESSED
*
* ARGUMENTS
* IN:
* p_init_msg_list Initialize message stack if it is set to
* FND_API.G_TRUE. Default is FND_API.G_FALSE.
* p_rich_messages_rec Rich Text Message record.
* IN/OUT:
* p_object_version_number Used for locking the being updated record.
* OUT:
* x_return_status Return status after the call. The status can
* be FND_API.G_RET_STS_SUCCESS (success),
* FND_API.G_RET_STS_ERROR (error),
* FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
* x_msg_count Number of messages in message stack.
* x_msg_data Message text if x_msg_count is 1.
*
* NOTES
*
* MODIFICATION HISTORY
*
* 10-Sep-2004 Amulya Mishra Created.
*
*/
PROCEDURE update_rich_messages (
p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
p_rich_messages_rec IN RICH_MESSAGES_REC_TYPE,
p_message_text IN CLOB,
p_object_version_number IN OUT NOCOPY NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
) IS
l_rich_messages_rec RICH_MESSAGES_REC_TYPE := p_rich_messages_rec;
SAVEPOINT update_rich_messages;
do_update_rich_messages(
l_rich_messages_rec,
l_message_text,
p_object_version_number,
x_return_status);
ROLLBACK TO update_rich_messages;
ROLLBACK TO update_rich_messages;
ROLLBACK TO update_rich_messages;
END update_rich_messages;
* FUN_RICH_MESSAGES_PKG.Select_Row
*
* ARGUMENTS
* IN:
* p_init_msg_list Initialize message stack if it is set to
* FND_API.G_TRUE. Default is FND_API.G_FALSE.
* p_message_name Rich Text Message name.
* p_application_id Application Id
* p_language_code Language code.
* IN/OUT:
* OUT:
* x_rich_messages_rec Returns Rich Text Message record.
* x_return_status Return status after the call. The status can
* be FND_API.G_RET_STS_SUCCESS (success),
* FND_API.G_RET_STS_ERROR (error),
* FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
* x_msg_count Number of messages in message stack.
* x_msg_data Message text if x_msg_count is 1.
*
* NOTES
*
* MODIFICATION HISTORY
*
* 10-Sep-2004 Amulya Mishra Created.
*
*/
PROCEDURE get_rich_messages_rec (
p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
p_message_name IN VARCHAR2,
p_application_id IN NUMBER,
x_message_text OUT NOCOPY CLOB,
x_rich_messages_rec OUT NOCOPY RICH_MESSAGES_REC_TYPE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
) IS
BEGIN
--Initialize message list if p_init_msg_list is set to TRUE.
IF FND_API.to_Boolean(p_init_msg_list) THEN
FND_MSG_PUB.initialize;
FUN_RICH_MESSAGES_PKG.Select_Row (
X_APPLICATION_ID =>x_rich_messages_rec.application_id,
X_MESSAGE_NAME =>x_rich_messages_rec.message_name,
X_MESSAGE_TEXT =>x_message_text,
X_CREATED_BY_MODULE =>x_rich_messages_rec.created_by_module
);
* PROCEDURE delete_RICH_MESSAGES
*
* DESCRIPTION
* Deletes Rich Text Message.
*
* EXTERNAL PROCEDURES/FUNCTIONS ACCESSED
*
*
* ARGUMENTS
* IN:
* p_init_msg_list Initialize message stack if it is set to
* FND_API.G_TRUE. Default is FND_API.G_FALSE.
* p_message_name Message Name.
* p_application_id Application Id
* IN/OUT:
* OUT:
* x_return_status Return status after the call. The status can
* be FND_API.G_RET_STS_SUCCESS (success),
* FND_API.G_RET_STS_ERROR (error),
* FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
* x_msg_count Number of messages in message stack.
* x_msg_data Message text if x_msg_count is 1.
*
* NOTES
*
* MODIFICATION HISTORY
*
* 10-Sep-2004 Amulya Mishra Created.
*
*/
PROCEDURE delete_RICH_MESSAGES(
p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
p_message_name IN VARCHAR2,
p_language_code IN VARCHAR2,
p_application_id IN NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
) IS
BEGIN
-- initialize message list if p_init_msg_list is set to TRUE.
IF FND_API.to_Boolean(p_init_msg_list) THEN
FND_MSG_PUB.initialize;
FUN_RICH_MESSAGES_PKG.Delete_Row (
X_MESSAGE_NAME =>p_message_name,
X_APPLICATION_ID =>p_application_id
);
ROLLBACK TO delete_rich_messages;
ROLLBACK TO delete_rich_messages;
ROLLBACK TO delete_rich_messages;
END delete_rich_messages;