The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Update_Ib_Repository(
P_Out_Of_Service_Attr_Rec IN Out_Of_Service_Attr_Rec_Type,
X_Return_Status OUT NOCOPY VARCHAR2,
X_Error_Message OUT NOCOPY VARCHAR2) IS
l_Api_Name CONSTANT VARCHAR2(30) :='CSE_OUT_OF_SERVICE_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;
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;
WHEN Update_Ib_Exp THEN
X_Return_Status := l_Return_Status;
END Update_Ib_Repository;
PROCEDURE Update_eib_instances(
P_Out_Of_Service_Attr_tbl IN Out_Of_Service_Attr_tbl_Type,
X_Return_Status OUT NOCOPY VARCHAR2,
X_Error_Message OUT NOCOPY VARCHAR2) IS
BEGIN
IF NOT P_Out_Of_Service_Attr_tbl.COUNT = 0 THEN
FOR i IN P_Out_Of_Service_Attr_tbl.FIRST .. P_Out_Of_Service_Attr_tbl.LAST LOOP
IF p_out_of_service_attr_tbl.EXISTS(i) THEN
update_ib_repository(p_out_of_service_attr_tbl(i),
x_return_status,
x_error_message);
END update_eib_instances;