The following lines contain the word 'select', 'insert', 'update' or 'delete':
procedure INSERT_ROW (
p_proposal_id NUMBER
,p_version_id NUMBER
,p_person_id NUMBER
,p_party_id NUMBER
,p_appointment_type_code VARCHAR2
,p_effective_date DATE
,p_calculation_base NUMBER
,x_rowid OUT NOCOPY VARCHAR2
,x_return_status OUT NOCOPY VARCHAR2) IS
cursor c_budgets is
select rowid
from igw_budget_persons
where proposal_id = p_proposal_id
and version_id = p_version_id
and party_id = p_party_id;
l_last_updated_by NUMBER := FND_GLOBAL.USER_ID;
l_last_update_login NUMBER := FND_GLOBAL.LOGIN_ID;
l_last_update_date DATE := SYSDATE;
insert into igw_budget_persons(
proposal_id
,version_id
,person_id
,party_id
,appointment_type_code
,effective_date
,calculation_base
,last_update_date
,last_updated_by
,creation_date
,created_by
,last_update_login
,record_version_number)
values
( p_proposal_id
,p_version_id
,p_person_id
,p_party_id
,p_appointment_type_code
,p_effective_date
,p_calculation_base
,l_last_update_date
,l_last_updated_by
,l_last_update_date
,l_last_updated_by
,l_last_update_login
,1);
,p_procedure_name => 'INSERT_ROW' );
end insert_row;
procedure UPDATE_ROW (
p_proposal_id NUMBER
,p_version_id NUMBER
,p_person_id NUMBER
,p_party_id NUMBER
,p_appointment_type_code VARCHAR2
,p_effective_date DATE
,p_calculation_base NUMBER
,p_rowid VARCHAR2
,p_record_version_number NUMBER
,x_return_status OUT NOCOPY VARCHAR2) IS
l_last_updated_by NUMBER := FND_GLOBAL.USER_ID;
l_last_update_login NUMBER := FND_GLOBAL.LOGIN_ID;
l_last_update_date DATE := SYSDATE;
select rowid
from igw_budget_persons
where proposal_id = p_proposal_id
and version_id = p_version_id
and party_id = p_party_id;
update igw_budget_persons
set person_id = p_person_id
, party_id = p_party_id
, appointment_type_code = p_appointment_type_code
, effective_date = p_effective_date
, calculation_base = p_calculation_base
where rowid = l_row_id
and record_version_number = p_record_version_number;
,p_procedure_name => 'UPDATE_ROW' );
end update_row;
procedure DELETE_ROW (
p_rowid IN ROWID
,p_proposal_id IN NUMBER
,p_version_id IN NUMBER
,p_person_id IN NUMBER
,p_party_id NUMBER
,p_record_version_number IN NUMBER
,x_return_status OUT NOCOPY VARCHAR2) is
l_row_id ROWID := p_rowid;
select rowid
from igw_budget_persons
where proposal_id = p_proposal_id
and version_id = p_version_id
and party_id = p_party_id;
delete from igw_budget_persons
where rowid = l_row_id
and record_version_number = p_record_version_number;
,p_procedure_name => 'DELETE_ROW' );
end DELETE_ROW;