The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE do_update_style_format(
p_style_format_rec IN OUT NOCOPY style_format_rec_type,
p_object_version_number IN OUT NOCOPY NUMBER,
x_return_status IN OUT NOCOPY VARCHAR2
);
select rowid into l_default_rowid
from HZ_STYLE_FORMATS_B
where style_code = p_style_format_rec.style_code AND
default_flag = 'Y';
update HZ_STYLE_FORMATS_B
set default_flag = 'N'
where rowid = l_default_rowid;
hz_utility_v2pub.debug(p_message=>'hz_style_formats_pkg.insert_row (+)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
HZ_STYLE_FORMATS_PKG.insert_row (
X_ROWID => l_rowid,
X_STYLE_FORMAT_CODE => p_style_format_rec.style_format_code,
X_STYLE_CODE => p_style_format_rec.style_code,
X_DEFAULT_FLAG => p_style_format_rec.default_flag,
X_STYLE_FORMAT_NAME => p_style_format_rec.style_format_name,
X_DESCRIPTION => p_style_format_rec.description,
x_object_version_number => 1
);
hz_utility_v2pub.debug(p_message=>'hz_style_formats_pkg.insert_row (-) ' ||
'p_style_format_rec.style_format_code = ' || p_style_format_rec.style_format_code,
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
* PRIVATE PROCEDURE do_update_style_format
*
* DESCRIPTION
* update style format
* 07-23-2001 Kate Shan o Created.
*
*/
PROCEDURE do_update_style_format(
p_style_format_rec IN OUT NOCOPY style_format_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_format (+)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
SELECT object_version_number, default_flag, style_code, rowid
INTO l_object_version_number, l_default_flag, l_style_code, l_rowid
FROM HZ_STYLE_FORMATS_B
WHERE style_format_code = p_style_format_rec.style_format_code
FOR UPDATE of style_format_code NOWAIT;
select rowid into l_default_rowid
from HZ_STYLE_FORMATS_B
where style_code = l_style_code AND
default_flag = 'Y';
update HZ_STYLE_FORMATS_B
set default_flag = 'N'
where rowid = l_default_rowid;
hz_utility_v2pub.debug(p_message=>'HZ_STYLE_FORMATS_PKG.Update_Row (+)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
HZ_STYLE_FORMATS_PKG.Update_Row (
X_STYLE_FORMAT_CODE => p_style_format_rec.style_format_code,
X_STYLE_CODE => p_style_format_rec.style_code,
X_DEFAULT_FLAG => p_style_format_rec.default_flag,
X_STYLE_FORMAT_NAME => p_style_format_rec.style_format_name,
X_DESCRIPTION => p_style_format_rec.description,
X_OBJECT_VERSION_NUMBER => p_object_version_number
);
hz_utility_v2pub.debug(p_message=>'HZ_STYLE_FORMATS_PKG.Update_Row (-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
hz_utility_v2pub.debug(p_message=>'do_update_style_format (-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
END do_update_style_format;
* PROCEDURE update_style_format
*
* DESCRIPTION
* Updates style_format.
*
* 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_format_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_format (
p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
p_style_format_rec IN STYLE_FORMAT_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_format_rec STYLE_FORMAT_REC_TYPE := p_style_format_rec;
SAVEPOINT update_style_format;
hz_utility_v2pub.debug(p_message=>'update_style_format (+)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
do_update_style_format(
l_style_format_rec,
p_object_version_number,
x_return_status);
hz_utility_v2pub.debug(p_message=>'update_style_format (-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
ROLLBACK TO update_style_format;
hz_utility_v2pub.debug(p_message=>'update_style_format (-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
ROLLBACK TO update_style_format;
hz_utility_v2pub.debug(p_message=>'update_style_format (-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
ROLLBACK TO update_style_format;
hz_utility_v2pub.debug(p_message=>'update_style_format (-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
END update_style_format;
hz_utility_v2pub.debug(p_message=>'hz_style_formats_pkg.Select_Row (+)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
hz_style_formats_pkg.select_row (
X_STYLE_FORMAT_CODE => x_style_format_rec.style_format_code,
X_STYLE_CODE => x_style_format_rec.style_code,
X_DEFAULT_FLAG => x_style_format_rec.default_flag,
X_STYLE_FORMAT_NAME => x_style_format_rec.style_format_name,
X_DESCRIPTION => x_style_format_rec.description
);
hz_utility_v2pub.debug(p_message=>'hz_style_formats_pkg.select_row (-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);