The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT relationship_id,
object_version_number
INTO l_relationship_id,
l_object_version_number
FROM csi_ii_relationships
where relationship_id = (select max(relationship_id)
from CSI_II_RELATIONSHIPS
WHERE object_id=p_relationship_tbl(l_count).object_id
AND subject_id=p_relationship_tbl(l_count).subject_id -- sguthiva added for bug 2370120
AND nvl(position_reference,fnd_api.g_miss_char) =
nvl(p_relationship_tbl(l_count).position_reference,fnd_api.g_miss_char)
AND relationship_type_code=p_relationship_tbl(l_count).relationship_type_code
AND active_end_date IS NOT NULL);
csi_ii_relationships_pvt.update_relationship(
p_api_version => p_api_version,
p_commit => fnd_api.g_false,
p_init_msg_list => p_init_msg_list,
p_validation_level => p_validation_level,
p_relationship_tbl => l_relationship_tbl,
p_txn_rec => p_txn_rec,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
csi_gen_utility_pvt.put_line( ' Error from Update_relationship PVT..');
SELECT owner_party_id
INTO l_owner_party_id
FROM csi_item_instances
WHERE instance_id = p_relationship_tbl(l_count).object_id;
SELECT internal_party_id
INTO l_internal_party_id
FROM csi_install_parameters;
-- Check if relationships is already been built then allow update
BEGIN
SELECT 'Y'
INTO l_relationship_exists
FROM csi_ii_relationships
WHERE relationship_type_code = 'COMPONENT-OF'
AND nvl(active_end_date, sysdate + 1) >= sysdate
AND (object_id = p_relationship_tbl(l_count).object_id OR
subject_id = p_relationship_tbl(l_count).object_id);
csi_item_instance_pvt.update_version_time
( p_api_version => p_api_version
,p_commit => fnd_api.g_false
,p_init_msg_list => p_init_msg_list
,p_validation_level => p_validation_level
,p_txn_rec => p_txn_rec
,x_return_status => x_return_status
,x_msg_count => x_msg_count
,x_msg_data => x_msg_data);
csi_gen_utility_pvt.put_line( ' Error from UPDATE_VERSION_TIME..');
PROCEDURE update_relationship
(
p_api_version IN NUMBER,
p_commit IN VARCHAR2,
p_init_msg_list IN VARCHAR2,
p_validation_level IN NUMBER,
p_relationship_tbl IN csi_datastructures_pub.ii_relationship_tbl,
p_txn_rec IN OUT NOCOPY csi_datastructures_pub.transaction_rec,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
)
is
l_api_name CONSTANT VARCHAR2(30) := 'update_ii_relationships';
SAVEPOINT update_relationship_pub;
CSI_gen_utility_pvt.put_line( 'update_relationship');
l_rel_tbl.delete;
csi_ii_relationships_pvt.update_relationship(
p_api_version => p_api_version,
p_commit => fnd_api.g_false,
p_init_msg_list => p_init_msg_list,
p_validation_level => p_validation_level,
p_relationship_tbl => l_rel_tbl,
p_replace_flag => l_replace_flag,
p_txn_rec => p_txn_rec,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
csi_gen_utility_pvt.put_line( ' Error from csi_ii_relationships_pvt.update_relationship..');
l_rel_tbl.delete;
csi_item_instance_pvt.update_version_time
( p_api_version => p_api_version
,p_commit => fnd_api.g_false
,p_init_msg_list => p_init_msg_list
,p_validation_level => p_validation_level
,p_txn_rec => p_txn_rec
,x_return_status => x_return_status
,x_msg_count => x_msg_count
,x_msg_data => x_msg_data);
csi_gen_utility_pvt.put_line( ' Error from UPDATE_VERSION_TIME..');
ROLLBACK TO update_relationship_pub;
ROLLBACK TO update_relationship_pub;
ROLLBACK TO update_relationship_pub;
END update_relationship;
l_api_name CONSTANT VARCHAR2(30) := 'delete_ii_relationships';