The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE do_update_style(
p_style_rec IN OUT NOCOPY style_rec_type,
p_object_version_number IN OUT NOCOPY NUMBER,
x_return_status IN OUT NOCOPY VARCHAR2
);
hz_utility_v2pub.debug(p_message=>'hz_styles_pkg.insert_row (+)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
hz_styles_pkg.insert_row (
X_ROWID => l_rowid,
X_STYLE_CODE => p_style_rec.style_code,
X_DATABASE_OBJECT_NAME => p_style_rec.database_object_name,
X_STYLE_NAME => p_style_rec.style_name,
X_DESCRIPTION => p_style_rec.description,
x_object_version_number => 1
);
hz_utility_v2pub.debug(p_message=>'hz_styles_pkg.insert_row (-) ' ||
'p_style_rec.style_code = ' || p_style_rec.style_code,
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
* PRIVATE PROCEDURE do_update_style
*
* DESCRIPTION
* update style
* 07-23-2001 Kate Shan o Created.
*
*/
PROCEDURE do_update_style(
p_style_rec IN OUT NOCOPY style_rec_type,
p_object_version_number IN OUT NOCOPY NUMBER,
x_return_status IN OUT NOCOPY VARCHAR2
) IS
l_object_version_number NUMBER;
hz_utility_v2pub.debug(p_message=>'do_update_style (+)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
SELECT object_version_number, rowid
INTO l_object_version_number, l_rowid
FROM HZ_STYLES_B
WHERE style_code = p_style_rec.style_code
FOR UPDATE of style_code NOWAIT;
hz_utility_v2pub.debug(p_message=>'HZ_STYLES_PKG.Update_Row (+)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
HZ_STYLES_PKG.Update_Row (
x_style_code => p_style_rec.style_code,
x_database_object_name => p_style_rec.database_object_name,
x_style_name => p_style_rec.style_name,
x_description => p_style_rec.description,
x_object_version_number => p_object_version_number
);
hz_utility_v2pub.debug(p_message=>'HZ_STYLES_PKG.Update_Row (-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
hz_utility_v2pub.debug(p_message=>'do_update_style (-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
END do_update_style;
* PROCEDURE update_style
*
* DESCRIPTION
* Updates style.
*
* 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_style_rec Style 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
*
* 17-Jul-2002 Kate Shan o Created.
*
*/
PROCEDURE update_style (
p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
p_style_rec IN STYLE_REC_TYPE,
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_style_rec STYLE_REC_TYPE := p_style_rec;
SAVEPOINT update_style;
hz_utility_v2pub.debug(p_message=>'update_style (+)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
do_update_style(
l_style_rec,
p_object_version_number,
x_return_status);
hz_utility_v2pub.debug(p_message=>'update_style (-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
ROLLBACK TO update_style;
hz_utility_v2pub.debug(p_message=>'update_style (-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
ROLLBACK TO update_style;
hz_utility_v2pub.debug(p_message=>'update_style (-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
ROLLBACK TO update_style;
hz_utility_v2pub.debug(p_message=>'update_style (-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
END update_style;
hz_utility_v2pub.debug(p_message=>'hz_styles_pkg.Select_Row (+)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
hz_styles_pkg.select_row (
x_style_code => x_style_rec.style_code,
x_database_object_name => x_style_rec.database_object_name,
x_style_name => x_style_rec.style_name,
x_description => x_style_rec.description
);
hz_utility_v2pub.debug(p_message=>'hz_styles_pkg.select_row (-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);