The following lines contain the word 'select', 'insert', 'update' or 'delete':
procedure update_budget_personnel_oh
(p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
,p_commit IN VARCHAR2 := FND_API.G_FALSE
,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
,p_budget_personnel_detail_id NUMBER
,p_rate_class_id NUMBER
,p_rate_type_id NUMBER
,p_apply_rate_flag_oh VARCHAR2
,p_apply_rate_flag_eb VARCHAR2
,p_calculated_cost NUMBER
,p_calculated_cost_sharing NUMBER
,p_record_version_number IN NUMBER
,p_rowid IN ROWID
,x_return_status OUT NOCOPY VARCHAR2
,x_msg_count OUT NOCOPY NUMBER
,x_msg_data OUT NOCOPY VARCHAR2) IS
l_api_name VARCHAR2(30) :='UPDATE_BUDGET_PERSONNEL_OH';
SAVEPOINT update_budget_personnel_oh;
SELECT 'x' INTO l_dummy
FROM igw_budget_personnel_cal_amts
WHERE ((budget_personnel_detail_id = p_budget_personnel_detail_id
and rate_class_id = p_rate_class_id --bug 2515925
and rate_type_id = p_rate_type_id) --bug 2515925
OR rowid = p_rowid)
AND record_version_number = p_record_version_number;
select proposal_id, version_id, budget_period_id, line_item_id
into l_proposal_id, l_version_id, l_budget_period_id, l_line_item_id
from igw_budget_personnel_details
where budget_personnel_detail_id = p_budget_personnel_detail_id;
update igw_budget_personnel_cal_amts
set apply_rate_flag = nvl(p_apply_rate_flag_oh, apply_rate_flag)
, calculated_cost = l_calculated_cost
, calculated_cost_sharing = l_calculated_cost_sharing
, record_version_number = record_version_number + 1
where budget_personnel_detail_id = p_budget_personnel_detail_id
and rate_class_id IN (select rate_class_id from igw_rate_classes where rate_class_type = 'O');
update igw_budget_personnel_cal_amts
set apply_rate_flag = nvl(p_apply_rate_flag_eb, apply_rate_flag)
, calculated_cost = l_calculated_cost
, calculated_cost_sharing = l_calculated_cost_sharing
, record_version_number = record_version_number + 1
where budget_personnel_detail_id = p_budget_personnel_detail_id
and rate_class_id IN (select rate_class_id from igw_rate_classes where rate_class_type = 'E');
ROLLBACK TO update_budget_personnel_oh;
ROLLBACK TO update_budget_personnel_oh;
ROLLBACK TO update_budget_line_oh;
END; --UPDATE BUDGET PERSONNEL OH
procedure delete_budget_line_oh
(p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
,p_commit IN VARCHAR2 := FND_API.G_FALSE
,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
,p_proposal_id IN NUMBER := NULL
,p_version_id IN NUMBER := NULL
,p_budget_period_id NUMBER := NULL
,p_line_item_id NUMBER
,p_rate_class_id NUMBER
,p_rate_type_id NUMBER
,p_record_version_number IN NUMBER
,p_rowid IN ROWID
,x_return_status OUT NOCOPY VARCHAR2
,x_msg_count OUT NOCOPY NUMBER
,x_msg_data OUT NOCOPY VARCHAR2) is
l_api_name VARCHAR2(30) :='DELETE_BUDGET_LINE_OH';
SAVEPOINT delete_budget_line_oh;
SELECT 'x' INTO l_dummy
FROM igw_budget_details_cal_amts
WHERE ((line_item_id = p_line_item_id and rate_class_id = p_rate_class_id and rate_type_id = p_rate_type_id)
OR rowid = p_rowid)
AND record_version_number = p_record_version_number;
delete from igw_budget_details_cal_amts
where line_item_id = p_line_item_id
and rate_class_id = p_rate_class_id
and rate_type_id = p_rate_type_id;
ROLLBACK TO delete_budget_line_oh;
ROLLBACK TO delete_budget_line_oh;
ROLLBACK TO delete_budget_line_oh;
END; --DELETE BUDGET LINE OH