The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE do_update_cust_account_role (
p_cust_account_role_rec IN OUT NOCOPY CUST_ACCOUNT_ROLE_REC_TYPE,
p_object_version_number IN OUT NOCOPY NUMBER,
x_return_status IN OUT NOCOPY VARCHAR2
);
PROCEDURE do_update_role_responsibility (
p_role_responsibility_rec IN OUT NOCOPY ROLE_RESPONSIBILITY_REC_TYPE,
p_object_version_number IN OUT NOCOPY NUMBER,
x_return_status IN OUT NOCOPY VARCHAR2
);
* HZ_CUST_ACCOUNT_ROLES_PKG.Insert_Row
* HZ_PARTY_SITE_V2PUB.create_party_site
*
* ARGUMENTS
* IN/OUT:
* p_cust_account_role_rec Customer account role 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).
* OUT:
* x_cust_account_role_id Customer account role ID.
*
* NOTES
*
* MODIFICATION HISTORY
*
* 07-23-2001 Jianying Huang o Created.
* 06-28-2002 P.Suresh o Bug No : 2263151. Commented the logic of
* creating a party site while creating an account
* role .
*
*/
PROCEDURE do_create_cust_account_role (
p_cust_account_role_rec IN OUT NOCOPY CUST_ACCOUNT_ROLE_REC_TYPE,
x_cust_account_role_id OUT NOCOPY NUMBER,
x_return_status IN OUT NOCOPY VARCHAR2
) IS
l_debug_prefix VARCHAR2(30) := ''; --'do_create_cust_account_role'
p_create_update_flag => 'C',
p_cust_account_role_rec => p_cust_account_role_rec,
p_rowid => NULL,
x_return_status => x_return_status );
SELECT LOCATION_ID INTO l_location_id
FROM HZ_PARTY_SITES
WHERE PARTY_SITE_ID = (
SELECT PARTY_SITE_ID
FROM HZ_CUST_ACCT_SITES
WHERE CUST_ACCT_SITE_ID = p_cust_account_role_rec.cust_acct_site_id );
SELECT 'Y' INTO l_dummy
FROM HZ_PARTY_SITES
WHERE PARTY_ID = p_cust_account_role_rec.party_id
AND LOCATION_ID = l_location_id;
hz_utility_v2pub.debug(p_message=>'HZ_CUST_ACCOUNT_ROLES_PKG.Insert_Row (+)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
HZ_CUST_ACCOUNT_ROLES_PKG.Insert_Row (
X_CUST_ACCOUNT_ROLE_ID => p_cust_account_role_rec.cust_account_role_id,
X_PARTY_ID => p_cust_account_role_rec.party_id,
X_CUST_ACCOUNT_ID => p_cust_account_role_rec.cust_account_id,
X_CUST_ACCT_SITE_ID => p_cust_account_role_rec.cust_acct_site_id,
X_PRIMARY_FLAG => p_cust_account_role_rec.primary_flag,
X_ROLE_TYPE => p_cust_account_role_rec.role_type,
X_SOURCE_CODE => p_cust_account_role_rec.source_code,
X_ATTRIBUTE_CATEGORY => p_cust_account_role_rec.attribute_category,
X_ATTRIBUTE1 => p_cust_account_role_rec.attribute1,
X_ATTRIBUTE2 => p_cust_account_role_rec.attribute2,
X_ATTRIBUTE3 => p_cust_account_role_rec.attribute3,
X_ATTRIBUTE4 => p_cust_account_role_rec.attribute4,
X_ATTRIBUTE5 => p_cust_account_role_rec.attribute5,
X_ATTRIBUTE6 => p_cust_account_role_rec.attribute6,
X_ATTRIBUTE7 => p_cust_account_role_rec.attribute7,
X_ATTRIBUTE8 => p_cust_account_role_rec.attribute8,
X_ATTRIBUTE9 => p_cust_account_role_rec.attribute9,
X_ATTRIBUTE10 => p_cust_account_role_rec.attribute10,
X_ATTRIBUTE11 => p_cust_account_role_rec.attribute11,
X_ATTRIBUTE12 => p_cust_account_role_rec.attribute12,
X_ATTRIBUTE13 => p_cust_account_role_rec.attribute13,
X_ATTRIBUTE14 => p_cust_account_role_rec.attribute14,
X_ATTRIBUTE15 => p_cust_account_role_rec.attribute15,
X_ATTRIBUTE16 => p_cust_account_role_rec.attribute16,
X_ATTRIBUTE17 => p_cust_account_role_rec.attribute17,
X_ATTRIBUTE18 => p_cust_account_role_rec.attribute18,
X_ATTRIBUTE19 => p_cust_account_role_rec.attribute19,
X_ATTRIBUTE20 => p_cust_account_role_rec.attribute20,
X_ATTRIBUTE21 => p_cust_account_role_rec.attribute21,
X_ATTRIBUTE22 => p_cust_account_role_rec.attribute22,
X_ATTRIBUTE23 => p_cust_account_role_rec.attribute23,
X_ATTRIBUTE24 => p_cust_account_role_rec.attribute24,
X_ORIG_SYSTEM_REFERENCE => p_cust_account_role_rec.orig_system_reference,
X_ATTRIBUTE25 => p_cust_account_role_rec.attribute25,
X_STATUS => p_cust_account_role_rec.status,
X_OBJECT_VERSION_NUMBER => 1,
X_CREATED_BY_MODULE => p_cust_account_role_rec.created_by_module,
X_APPLICATION_ID => p_cust_account_role_rec.application_id
);
hz_utility_v2pub.debug(p_message=>'HZ_CUST_ACCOUNT_ROLES_PKG.Insert_Row (-) ' ||
'x_cust_account_role_id = ' || p_cust_account_role_rec.cust_account_role_id,
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
* PRIVATE PROCEDURE do_update_cust_account_role
*
* DESCRIPTION
* Private procedure to update customer account role.
*
* EXTERNAL PROCEDURES/FUNCTIONS ACCESSED
* HZ_ACCOUNT_VALIDATE_V2PUB.validate_cust_account_role
* HZ_CUST_ACCOUNT_ROLES_PKG.Update_Row
*
* ARGUMENTS
* IN/OUT:
* p_cust_account_role_rec Customer account role record.
* p_object_version_number Used for locking the being updated 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).
*
* NOTES
*
* MODIFICATION HISTORY
*
* 07-23-2001 Jianying Huang o Created.
*
*/
PROCEDURE do_update_cust_account_role (
p_cust_account_role_rec IN OUT NOCOPY CUST_ACCOUNT_ROLE_REC_TYPE,
p_object_version_number IN OUT NOCOPY NUMBER,
x_return_status IN OUT NOCOPY VARCHAR2
) IS
l_debug_prefix VARCHAR2(30) := ''; --'do_update_cust_account_role'
hz_utility_v2pub.debug(p_message=>'do_update_cust_account_role (+)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
SELECT ROWID, OBJECT_VERSION_NUMBER
INTO l_rowid, l_object_version_number
FROM HZ_CUST_ACCOUNT_ROLES
WHERE CUST_ACCOUNT_ROLE_ID = p_cust_account_role_rec.cust_account_role_id
FOR UPDATE NOWAIT;
p_create_update_flag => 'U',
p_cust_account_role_rec => p_cust_account_role_rec,
p_rowid => l_rowid,
x_return_status => x_return_status );
-- In mosr, we have bypassed osr nonupdateable validation
-- but we should not update existing osr, set it to null
end if;
hz_utility_v2pub.debug(p_message=>'HZ_CUST_ACCOUNT_ROLES_PKG.Update_Row (+)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
HZ_CUST_ACCOUNT_ROLES_PKG.Update_Row (
X_Rowid => l_rowid,
X_CUST_ACCOUNT_ROLE_ID => p_cust_account_role_rec.cust_account_role_id,
X_PARTY_ID => p_cust_account_role_rec.party_id,
X_CUST_ACCOUNT_ID => p_cust_account_role_rec.cust_account_id,
X_CUST_ACCT_SITE_ID => p_cust_account_role_rec.cust_acct_site_id,
X_PRIMARY_FLAG => p_cust_account_role_rec.primary_flag,
X_ROLE_TYPE => p_cust_account_role_rec.role_type,
X_SOURCE_CODE => p_cust_account_role_rec.source_code,
X_ATTRIBUTE_CATEGORY => p_cust_account_role_rec.attribute_category,
X_ATTRIBUTE1 => p_cust_account_role_rec.attribute1,
X_ATTRIBUTE2 => p_cust_account_role_rec.attribute2,
X_ATTRIBUTE3 => p_cust_account_role_rec.attribute3,
X_ATTRIBUTE4 => p_cust_account_role_rec.attribute4,
X_ATTRIBUTE5 => p_cust_account_role_rec.attribute5,
X_ATTRIBUTE6 => p_cust_account_role_rec.attribute6,
X_ATTRIBUTE7 => p_cust_account_role_rec.attribute7,
X_ATTRIBUTE8 => p_cust_account_role_rec.attribute8,
X_ATTRIBUTE9 => p_cust_account_role_rec.attribute9,
X_ATTRIBUTE10 => p_cust_account_role_rec.attribute10,
X_ATTRIBUTE11 => p_cust_account_role_rec.attribute11,
X_ATTRIBUTE12 => p_cust_account_role_rec.attribute12,
X_ATTRIBUTE13 => p_cust_account_role_rec.attribute13,
X_ATTRIBUTE14 => p_cust_account_role_rec.attribute14,
X_ATTRIBUTE15 => p_cust_account_role_rec.attribute15,
X_ATTRIBUTE16 => p_cust_account_role_rec.attribute16,
X_ATTRIBUTE17 => p_cust_account_role_rec.attribute17,
X_ATTRIBUTE18 => p_cust_account_role_rec.attribute18,
X_ATTRIBUTE19 => p_cust_account_role_rec.attribute19,
X_ATTRIBUTE20 => p_cust_account_role_rec.attribute20,
X_ATTRIBUTE21 => p_cust_account_role_rec.attribute21,
X_ATTRIBUTE22 => p_cust_account_role_rec.attribute22,
X_ATTRIBUTE23 => p_cust_account_role_rec.attribute23,
X_ATTRIBUTE24 => p_cust_account_role_rec.attribute24,
X_ORIG_SYSTEM_REFERENCE => p_cust_account_role_rec.orig_system_reference,
X_ATTRIBUTE25 => p_cust_account_role_rec.attribute25,
X_STATUS => p_cust_account_role_rec.status,
X_OBJECT_VERSION_NUMBER => p_object_version_number,
X_CREATED_BY_MODULE => p_cust_account_role_rec.created_by_module,
X_APPLICATION_ID => p_cust_account_role_rec.application_id
);
hz_utility_v2pub.debug(p_message=>'HZ_CUST_ACCOUNT_ROLES_PKG.Update_Row (-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
END do_update_cust_account_role;
* HZ_ROLE_RESPONSIBILITY_PKG.Insert_Row
*
* ARGUMENTS
* IN/OUT:
* p_role_responsibility_rec Customer account role responsibility 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).
* OUT:
* x_responsibility_id Role responsibility ID.
*
* NOTES
*
* MODIFICATION HISTORY
*
* 07-23-2001 Jianying Huang o Created.
*
*/
PROCEDURE do_create_role_responsibility (
p_role_responsibility_rec IN OUT NOCOPY ROLE_RESPONSIBILITY_REC_TYPE,
x_responsibility_id OUT NOCOPY NUMBER,
x_return_status IN OUT NOCOPY VARCHAR2
) IS
l_debug_prefix VARCHAR2(30) := ''; --'do_create_role_responsibility'
p_create_update_flag => 'C',
p_role_responsibility_rec => p_role_responsibility_rec,
p_rowid => NULL,
x_return_status => x_return_status );
hz_utility_v2pub.debug(p_message=>'HZ_ROLE_RESPONSIBILITY_PKG.Insert_Row (+)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
HZ_ROLE_RESPONSIBILITY_PKG.Insert_Row (
X_RESPONSIBILITY_ID => p_role_responsibility_rec.responsibility_id,
X_CUST_ACCOUNT_ROLE_ID => p_role_responsibility_rec.cust_account_role_id,
X_RESPONSIBILITY_TYPE => p_role_responsibility_rec.responsibility_type,
X_PRIMARY_FLAG => p_role_responsibility_rec.primary_flag,
X_ATTRIBUTE_CATEGORY => p_role_responsibility_rec.attribute_category,
X_ATTRIBUTE1 => p_role_responsibility_rec.attribute1,
X_ATTRIBUTE2 => p_role_responsibility_rec.attribute2,
X_ATTRIBUTE3 => p_role_responsibility_rec.attribute3,
X_ATTRIBUTE4 => p_role_responsibility_rec.attribute4,
X_ATTRIBUTE5 => p_role_responsibility_rec.attribute5,
X_ATTRIBUTE6 => p_role_responsibility_rec.attribute6,
X_ATTRIBUTE7 => p_role_responsibility_rec.attribute7,
X_ATTRIBUTE8 => p_role_responsibility_rec.attribute8,
X_ATTRIBUTE9 => p_role_responsibility_rec.attribute9,
X_ATTRIBUTE10 => p_role_responsibility_rec.attribute10,
X_ATTRIBUTE11 => p_role_responsibility_rec.attribute11,
X_ATTRIBUTE12 => p_role_responsibility_rec.attribute12,
X_ATTRIBUTE13 => p_role_responsibility_rec.attribute13,
X_ATTRIBUTE14 => p_role_responsibility_rec.attribute14,
X_ATTRIBUTE15 => p_role_responsibility_rec.attribute15,
X_ORIG_SYSTEM_REFERENCE => p_role_responsibility_rec.orig_system_reference,
X_OBJECT_VERSION_NUMBER => 1,
X_CREATED_BY_MODULE => p_role_responsibility_rec.created_by_module,
X_APPLICATION_ID => p_role_responsibility_rec.application_id
);
hz_utility_v2pub.debug(p_message=>'HZ_ROLE_RESPONSIBILITY_PKG.Insert_Row (-) ' ||
'x_responsibility_id = ' || x_responsibility_id,
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
* PRIVATE PROCEDURE do_update_role_responsibility
*
* DESCRIPTION
* Private procedure to update customer account role responsibility.
*
* EXTERNAL PROCEDURES/FUNCTIONS ACCESSED
* HZ_ACCOUNT_VALIDATE_V2PUB.validate_role_responsibility
* HZ_ROLE_RESPONSIBILITY_PKG.Update_Row
*
* ARGUMENTS
* IN/OUT:
* p_role_responsibility_rec Customer account role responsibility record.
* p_object_version_number Used for locking the being updated 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).
*
* NOTES
*
* MODIFICATION HISTORY
*
* 07-23-2001 Jianying Huang o Created.
*
*/
PROCEDURE do_update_role_responsibility (
p_role_responsibility_rec IN OUT NOCOPY ROLE_RESPONSIBILITY_REC_TYPE,
p_object_version_number IN OUT NOCOPY NUMBER,
x_return_status IN OUT NOCOPY VARCHAR2
) IS
l_debug_prefix VARCHAR2(30) := ''; --'do_update_role_responsibility'
hz_utility_v2pub.debug(p_message=>'do_update_role_responsibility (+)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
SELECT ROWID, OBJECT_VERSION_NUMBER
INTO l_rowid, l_object_version_number
FROM HZ_ROLE_RESPONSIBILITY
WHERE RESPONSIBILITY_ID = p_role_responsibility_rec.responsibility_id
FOR UPDATE NOWAIT;
p_create_update_flag => 'U',
p_role_responsibility_rec => p_role_responsibility_rec,
p_rowid => l_rowid,
x_return_status => x_return_status );
hz_utility_v2pub.debug(p_message=>'HZ_ROLE_RESPONSIBILITY_PKG.Update_Row (+)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
HZ_ROLE_RESPONSIBILITY_PKG.Update_Row (
X_Rowid => l_rowid,
X_RESPONSIBILITY_ID => p_role_responsibility_rec.responsibility_id,
X_CUST_ACCOUNT_ROLE_ID => p_role_responsibility_rec.cust_account_role_id,
X_RESPONSIBILITY_TYPE => p_role_responsibility_rec.responsibility_type,
X_PRIMARY_FLAG => p_role_responsibility_rec.primary_flag,
X_ATTRIBUTE_CATEGORY => p_role_responsibility_rec.attribute_category,
X_ATTRIBUTE1 => p_role_responsibility_rec.attribute1,
X_ATTRIBUTE2 => p_role_responsibility_rec.attribute2,
X_ATTRIBUTE3 => p_role_responsibility_rec.attribute3,
X_ATTRIBUTE4 => p_role_responsibility_rec.attribute4,
X_ATTRIBUTE5 => p_role_responsibility_rec.attribute5,
X_ATTRIBUTE6 => p_role_responsibility_rec.attribute6,
X_ATTRIBUTE7 => p_role_responsibility_rec.attribute7,
X_ATTRIBUTE8 => p_role_responsibility_rec.attribute8,
X_ATTRIBUTE9 => p_role_responsibility_rec.attribute9,
X_ATTRIBUTE10 => p_role_responsibility_rec.attribute10,
X_ATTRIBUTE11 => p_role_responsibility_rec.attribute11,
X_ATTRIBUTE12 => p_role_responsibility_rec.attribute12,
X_ATTRIBUTE13 => p_role_responsibility_rec.attribute13,
X_ATTRIBUTE14 => p_role_responsibility_rec.attribute14,
X_ATTRIBUTE15 => p_role_responsibility_rec.attribute15,
X_ORIG_SYSTEM_REFERENCE => p_role_responsibility_rec.orig_system_reference,
X_OBJECT_VERSION_NUMBER => p_object_version_number,
X_CREATED_BY_MODULE => p_role_responsibility_rec.created_by_module,
X_APPLICATION_ID => p_role_responsibility_rec.application_id
);
hz_utility_v2pub.debug(p_message=>'HZ_ROLE_RESPONSIBILITY_PKG.Update_Row (-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
hz_utility_v2pub.debug(p_message=>'do_update_role_responsibility (-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
END do_update_role_responsibility;
* PROCEDURE update_cust_account_role
*
* DESCRIPTION
* Updates customer account role.
*
* EXTERNAL PROCEDURES/FUNCTIONS ACCESSED
* HZ_BUSINESS_EVENT_V2PVT.update_cust_account_role_event
*
* 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_cust_account_role_rec Customer account role 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
*
* 07-23-2001 Jianying Huang o Created.
*
*/
PROCEDURE update_cust_account_role (
p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
p_cust_account_role_rec IN CUST_ACCOUNT_ROLE_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_cust_account_role_rec CUST_ACCOUNT_ROLE_REC_TYPE := p_cust_account_role_rec;
SAVEPOINT update_cust_account_role;
hz_utility_v2pub.debug(p_message=>'update_cust_account_role (+)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
do_update_cust_account_role (
l_cust_account_role_rec,
p_object_version_number,
x_return_status );
HZ_BUSINESS_EVENT_V2PVT.update_cust_account_role_event (
l_cust_account_role_rec , l_old_cust_account_role_rec );
hz_utility_v2pub.debug(p_message=>'update_cust_account_role (-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
ROLLBACK TO update_cust_account_role;
hz_utility_v2pub.debug(p_message=>'update_cust_account_role (-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
ROLLBACK TO update_cust_account_role;
hz_utility_v2pub.debug(p_message=>'update_cust_account_role (-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
ROLLBACK TO update_cust_account_role;
hz_utility_v2pub.debug(p_message=>'update_cust_account_role (-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
END update_cust_account_role;
* HZ_CUST_ACCOUNT_ROLES_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_cust_account_role_id Customer account role id.
* IN/OUT:
* OUT:
* x_cust_account_role_rec Returned customer account role 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
*
* 07-23-2001 Jianying Huang o Created.
*
*/
PROCEDURE get_cust_account_role_rec (
p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
p_cust_account_role_id IN NUMBER,
x_cust_account_role_rec OUT NOCOPY CUST_ACCOUNT_ROLE_REC_TYPE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
) IS
l_debug_prefix VARCHAR2(30) := '';
hz_utility_v2pub.debug(p_message=>'HZ_CUST_ACCOUNT_ROLES_PKG.Select_Row (+)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
HZ_CUST_ACCOUNT_ROLES_PKG.Select_Row (
X_CUST_ACCOUNT_ROLE_ID => x_cust_account_role_rec.cust_account_role_id,
X_PARTY_ID => x_cust_account_role_rec.party_id,
X_CUST_ACCOUNT_ID => x_cust_account_role_rec.cust_account_id,
X_CUST_ACCT_SITE_ID => x_cust_account_role_rec.cust_acct_site_id,
X_PRIMARY_FLAG => x_cust_account_role_rec.primary_flag,
X_ROLE_TYPE => x_cust_account_role_rec.role_type,
X_SOURCE_CODE => x_cust_account_role_rec.source_code,
X_ATTRIBUTE_CATEGORY => x_cust_account_role_rec.attribute_category,
X_ATTRIBUTE1 => x_cust_account_role_rec.attribute1,
X_ATTRIBUTE2 => x_cust_account_role_rec.attribute2,
X_ATTRIBUTE3 => x_cust_account_role_rec.attribute3,
X_ATTRIBUTE4 => x_cust_account_role_rec.attribute4,
X_ATTRIBUTE5 => x_cust_account_role_rec.attribute5,
X_ATTRIBUTE6 => x_cust_account_role_rec.attribute6,
X_ATTRIBUTE7 => x_cust_account_role_rec.attribute7,
X_ATTRIBUTE8 => x_cust_account_role_rec.attribute8,
X_ATTRIBUTE9 => x_cust_account_role_rec.attribute9,
X_ATTRIBUTE10 => x_cust_account_role_rec.attribute10,
X_ATTRIBUTE11 => x_cust_account_role_rec.attribute11,
X_ATTRIBUTE12 => x_cust_account_role_rec.attribute12,
X_ATTRIBUTE13 => x_cust_account_role_rec.attribute13,
X_ATTRIBUTE14 => x_cust_account_role_rec.attribute14,
X_ATTRIBUTE15 => x_cust_account_role_rec.attribute15,
X_ATTRIBUTE16 => x_cust_account_role_rec.attribute16,
X_ATTRIBUTE17 => x_cust_account_role_rec.attribute17,
X_ATTRIBUTE18 => x_cust_account_role_rec.attribute18,
X_ATTRIBUTE19 => x_cust_account_role_rec.attribute19,
X_ATTRIBUTE20 => x_cust_account_role_rec.attribute20,
X_ATTRIBUTE21 => x_cust_account_role_rec.attribute21,
X_ATTRIBUTE22 => x_cust_account_role_rec.attribute22,
X_ATTRIBUTE23 => x_cust_account_role_rec.attribute23,
X_ATTRIBUTE24 => x_cust_account_role_rec.attribute24,
X_ORIG_SYSTEM_REFERENCE => x_cust_account_role_rec.orig_system_reference,
X_ATTRIBUTE25 => x_cust_account_role_rec.attribute25,
X_STATUS => x_cust_account_role_rec.status,
X_CREATED_BY_MODULE => x_cust_account_role_rec.created_by_module,
X_APPLICATION_ID => x_cust_account_role_rec.application_id
);
hz_utility_v2pub.debug(p_message=>'HZ_CUST_ACCOUNT_ROLES_PKG.Select_Row (-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
* PROCEDURE update_role_responsibility
*
* DESCRIPTION
* Updates customer account role responsibility.
*
* EXTERNAL PROCEDURES/FUNCTIONS ACCESSED
* HZ_BUSINESS_EVENT_V2PVT.update_role_resp_event
*
* 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_role_responsibility_rec Customer account role responsibility 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
*
* 07-23-2001 Jianying Huang o Created.
*
*/
PROCEDURE update_role_responsibility (
p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
p_role_responsibility_rec IN ROLE_RESPONSIBILITY_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_role_responsibility_rec ROLE_RESPONSIBILITY_REC_TYPE := p_role_responsibility_rec;
SAVEPOINT update_role_responsibility;
hz_utility_v2pub.debug(p_message=>'update_role_responsibility (+)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
do_update_role_responsibility (
l_role_responsibility_rec,
p_object_version_number,
x_return_status );
HZ_BUSINESS_EVENT_V2PVT.update_role_resp_event (
l_role_responsibility_rec , l_old_role_responsibility_rec);
hz_utility_v2pub.debug(p_message=>'update_role_responsibility (-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
ROLLBACK TO update_role_responsibility;
hz_utility_v2pub.debug(p_message=>'update_role_responsibility (-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
ROLLBACK TO update_role_responsibility;
hz_utility_v2pub.debug(p_message=>'update_role_responsibility (-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
ROLLBACK TO update_role_responsibility;
hz_utility_v2pub.debug(p_message=>'update_role_responsibility (-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
END update_role_responsibility;
* HZ_ROLE_RESPONSIBILITY_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_responsibility_id Role responsibility ID.
* IN/OUT:
* OUT:
* x_role_responsibility_rec Returned customer account role responsibility 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
*
* 07-23-2001 Jianying Huang o Created.
*
*/
PROCEDURE get_role_responsibility_rec (
p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
p_responsibility_id IN NUMBER,
x_role_responsibility_rec OUT NOCOPY ROLE_RESPONSIBILITY_REC_TYPE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
) IS
l_debug_prefix VARCHAR2(30) := '';
hz_utility_v2pub.debug(p_message=>'HZ_ROLE_RESPONSIBILITY_PKG.Select_Row (+)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
HZ_ROLE_RESPONSIBILITY_PKG.Select_Row (
X_RESPONSIBILITY_ID => x_role_responsibility_rec.responsibility_id,
X_CUST_ACCOUNT_ROLE_ID => x_role_responsibility_rec.cust_account_role_id,
X_RESPONSIBILITY_TYPE => x_role_responsibility_rec.responsibility_type,
X_PRIMARY_FLAG => x_role_responsibility_rec.primary_flag,
X_ATTRIBUTE_CATEGORY => x_role_responsibility_rec.attribute_category,
X_ATTRIBUTE1 => x_role_responsibility_rec.attribute1,
X_ATTRIBUTE2 => x_role_responsibility_rec.attribute2,
X_ATTRIBUTE3 => x_role_responsibility_rec.attribute3,
X_ATTRIBUTE4 => x_role_responsibility_rec.attribute4,
X_ATTRIBUTE5 => x_role_responsibility_rec.attribute5,
X_ATTRIBUTE6 => x_role_responsibility_rec.attribute6,
X_ATTRIBUTE7 => x_role_responsibility_rec.attribute7,
X_ATTRIBUTE8 => x_role_responsibility_rec.attribute8,
X_ATTRIBUTE9 => x_role_responsibility_rec.attribute9,
X_ATTRIBUTE10 => x_role_responsibility_rec.attribute10,
X_ATTRIBUTE11 => x_role_responsibility_rec.attribute11,
X_ATTRIBUTE12 => x_role_responsibility_rec.attribute12,
X_ATTRIBUTE13 => x_role_responsibility_rec.attribute13,
X_ATTRIBUTE14 => x_role_responsibility_rec.attribute14,
X_ATTRIBUTE15 => x_role_responsibility_rec.attribute15,
X_ORIG_SYSTEM_REFERENCE => x_role_responsibility_rec.orig_system_reference,
X_CREATED_BY_MODULE => x_role_responsibility_rec.created_by_module,
X_APPLICATION_ID => x_role_responsibility_rec.application_id
);
hz_utility_v2pub.debug(p_message=>'HZ_ROLE_RESPONSIBILITY_PKG.Select_Row (-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);