The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Update_Ib_Repository(
P_Proj_Item_Inst_Attr_Rec IN Proj_Item_Inst_Attr_Rec_Type,
X_Return_Status OUT NOCOPY VARCHAR2,
X_Error_Message OUT NOCOPY VARCHAR2) IS
l_Api_Name CONSTANT VARCHAR2(30) := 'CSE_PROJ_ITEM_INST_PKG';
SELECT instance_status_id
FROM csi_instance_statuses
WHERE upper(name) ='EXPIRED';
Update_Ib_Exp EXCEPTION;
RAISE Update_Ib_Exp;
RAISE Update_Ib_Exp;
RAISE Update_Ib_Exp;
RAISE Update_Ib_Exp;
CSE_DEBUG_PUB.ADD('Initailizing instance Record for update of serialized item inst- step4');
l_Instance_Rec := CSE_UTIL_PKG.Init_Instance_Update_Rec;
CSE_DEBUG_PUB.ADD('Before update of serialized item instanace');
CSI_Item_Instance_Pub.Update_Item_Instance(
p_api_version=> l_api_version,
p_commit => l_Commit,
p_validation_level=> l_Validation_Level,
p_init_msg_list =>l_Init_Msg_List,
p_instance_rec => l_Instance_Rec,
p_ext_attrib_values_tbl => l_ext_attrib_values_tbl,
p_party_tbl => l_party_tbl,
p_account_tbl=> l_account_tbl,
p_pricing_attrib_tbl => l_pricing_attrib_tbl,
p_org_assignments_tbl=> l_org_assignments_tbl,
p_txn_rec => l_Txn_Rec,
p_asset_assignment_tbl => l_asset_assignment_tbl,
x_instance_id_lst =>l_instance_id_lst,
x_return_status =>l_Return_Status,
x_msg_count =>l_Msg_Count,
x_msg_data =>l_Msg_Data );
RAISE Update_Ib_Exp;
RAISE Update_Ib_Exp;
CSE_DEBUG_PUB.ADD('Initailizing instance Record for update of source qty - step5.3');
l_Instance_Rec := CSE_UTIL_PKG.Init_Instance_Update_Rec;
l_Party_tbl.delete;
CSE_DEBUG_PUB.ADD('Before update of source instanace qty - step 5.3');
CSI_Item_Instance_Pub.Update_Item_Instance(
p_api_version => l_api_version,
p_commit => l_Commit,
p_validation_level => l_Validation_Level,
p_init_msg_list => l_Init_Msg_List,
p_instance_rec => l_Instance_Rec,
p_ext_attrib_values_tbl => l_ext_attrib_values_tbl,
p_party_tbl => l_party_tbl,
p_account_tbl => l_account_tbl,
p_pricing_attrib_tbl => l_pricing_attrib_tbl,
p_org_assignments_tbl => l_org_assignments_tbl,
p_txn_rec => l_Txn_Rec,
p_asset_assignment_tbl => l_asset_assignment_tbl,
x_instance_id_lst => l_instance_id_lst,
x_return_status => l_Return_Status,
x_msg_count => l_Msg_Count,
x_Msg_data => l_Msg_Data);
RAISE Update_Ib_Exp;
RAISE Update_Ib_Exp;
CSE_DEBUG_PUB.ADD('Initailizing instance Record for update Of dest inst - step5.1');
l_Instance_Rec := CSE_UTIL_PKG.Init_Instance_Update_Rec;
CSE_DEBUG_PUB.ADD('Before update of destination instanace');
CSI_Item_Instance_Pub.Update_Item_Instance(
p_api_version =>l_api_version,
p_commit =>l_Commit,
p_validation_level =>l_Validation_Level,
p_init_msg_list =>l_Init_Msg_List,
p_instance_rec =>l_Instance_Rec,
p_ext_attrib_values_tbl =>l_ext_attrib_values_tbl,
p_party_tbl =>l_party_tbl,
p_account_tbl =>l_account_tbl,
p_pricing_attrib_tbl =>l_pricing_attrib_tbl,
p_org_assignments_tbl =>l_org_assignments_tbl,
p_txn_rec =>l_Txn_Rec,
p_asset_assignment_tbl =>l_asset_assignment_tbl,
x_instance_id_lst =>l_instance_id_lst,
x_return_status =>l_Return_Status,
x_msg_count =>l_Msg_Count,
x_msg_data =>l_Msg_Data );
RAISE Update_Ib_Exp;
RAISE Update_Ib_Exp;
CSE_DEBUG_PUB.ADD('Before calling csi_transactions_pvt.update_transactions');
csi_transactions_pvt.update_transactions(
P_api_version => l_api_version,
P_Init_Msg_List => l_Init_Msg_List,
P_Commit => l_Commit,
p_validation_level => l_validation_level,
P_transaction_rec => l_upd_txn_rec,
X_Return_Status => l_Return_Status,
X_Msg_Count => l_Msg_Count,
X_Msg_Data => l_Msg_Data);
CSE_DEBUG_PUB.ADD('after calling csi_transactions_pvt.update_transactions');
RAISE Update_Ib_Exp;
WHEN Update_Ib_Exp THEN
X_Return_Status := l_Return_Status;
END Update_Ib_Repository;
PROCEDURE Update_eib_instances(
P_proj_item_inst_Attr_tbl IN proj_item_inst_Attr_tbl_Type,
X_Return_Status OUT NOCOPY VARCHAR2,
X_Error_Message OUT NOCOPY VARCHAR2) IS
BEGIN
IF NOT p_proj_item_inst_attr_tbl.COUNT = 0 THEN
FOR i IN p_proj_item_inst_attr_tbl.FIRST .. p_proj_item_inst_attr_tbl.LAST
LOOP
IF p_proj_item_inst_attr_tbl.EXISTS(i) THEN
update_ib_repository( p_proj_item_inst_attr_tbl(i),
x_return_status,
x_error_message);
fnd_message.set_token('ERR_MSG','CSE_PROJ_ITEM_INST_PKG.UPDATE_EIB_INSTANCES'||'='|| SQLERRM);
END update_eib_instances;