The following lines contain the word 'select', 'insert', 'update' or 'delete':
procedure insert_row (x_rowid in out NOCOPY VARCHAR2,/*File.sql.39*/
x_purge_batch_id in out NOCOPY NUMBER,/*File.sql.39*/
x_project_id in NUMBER,
x_last_project_status_code in VARCHAR2,
x_purge_summary_flag in VARCHAR2,
x_archive_summary_flag in VARCHAR2,
x_purge_budgets_flag in VARCHAR2,
x_archive_budgets_flag in VARCHAR2,
x_purge_capital_flag in VARCHAR2,
x_archive_capital_flag in VARCHAR2,
x_purge_actuals_flag in VARCHAR2,
x_archive_actuals_flag in VARCHAR2,
x_txn_to_date in DATE,
x_purge_project_status_code in VARCHAR2,
x_next_pp_project_status_code in VARCHAR2,
x_next_p_project_status_code in VARCHAR2,
x_purged_date in DATE,
x_user_id in NUMBER ) is
cursor c is select rowid from pa_purge_projects
where purge_batch_id = x_purge_batch_id
and project_id = x_project_id;
insert into pa_purge_projects(purge_batch_id,
project_id,
last_project_status_code,
purge_summary_flag,
archive_summary_flag,
purge_budgets_flag,
archive_budgets_flag,
purge_capital_flag,
archive_capital_flag,
purge_actuals_flag,
archive_actuals_flag,
purge_project_status_code,
next_pp_project_status_code,
next_p_project_status_code,
txn_to_date ,
creation_date,
created_by,
last_update_date,
last_updated_by )
values (x_purge_batch_id,
x_project_id,
x_last_project_status_code,
x_purge_summary_flag,
x_archive_summary_flag,
x_purge_budgets_flag,
x_archive_budgets_flag,
x_purge_capital_flag,
x_archive_capital_flag,
x_purge_actuals_flag,
x_archive_actuals_flag,
x_purge_project_status_code,
x_next_pp_project_status_code,
x_next_p_project_status_code,
x_txn_to_date ,
sysdate,
x_user_id,
sysdate,
x_user_id) ;
END insert_row;
procedure update_row (x_rowid in VARCHAR2,
x_purge_batch_id in NUMBER,
x_project_id in NUMBER,
x_last_project_status_code in VARCHAR2,
x_purge_summary_flag in VARCHAR2,
x_archive_summary_flag in VARCHAR2,
x_purge_budgets_flag in VARCHAR2,
x_archive_budgets_flag in VARCHAR2,
x_purge_capital_flag in VARCHAR2,
x_archive_capital_flag in VARCHAR2,
x_purge_actuals_flag in VARCHAR2,
x_archive_actuals_flag in VARCHAR2,
x_txn_to_date in DATE,
x_purge_project_status_code in VARCHAR2,
x_next_pp_project_status_code in VARCHAR2,
x_next_p_project_status_code in VARCHAR2,
x_purged_date in DATE,
x_user_id in NUMBER ) is
BEGIN
update pa_purge_projects
set purge_batch_id = x_purge_batch_id,
project_id = x_project_id,
last_project_status_code = x_last_project_status_code,
purge_summary_flag = x_purge_summary_flag ,
archive_summary_flag = x_archive_summary_flag,
purge_budgets_flag = x_purge_budgets_flag ,
archive_budgets_flag = x_archive_budgets_flag,
purge_capital_flag = x_purge_capital_flag ,
archive_capital_flag = x_archive_capital_flag,
purge_actuals_flag = x_purge_actuals_flag ,
archive_actuals_flag = x_archive_actuals_flag,
purge_project_status_code = x_purge_project_status_code,
next_pp_project_status_code = x_next_pp_project_status_code,
next_p_project_status_code = x_next_p_project_status_code,
txn_to_date = x_txn_to_date ,
last_update_date = sysdate,
last_updated_by = x_user_id,
last_update_login = x_user_id
where rowid = x_rowid;
END update_row;
procedure delete_row (x_rowid in VARCHAR2) is
cursor purge_projects is
select purge_batch_id, project_id, last_project_status_code
from pa_purge_projects
where rowid = x_rowid
for update of project_id, purge_batch_id nowait;
select project_id
from pa_projects
where project_id = projects_rec.project_id
for update of project_status_code nowait ;
update pa_projects
set project_status_code = projects_rec.last_project_status_code
where project_id = projects_rec.project_id ;
delete from pa_purge_project_errors
where project_id = projects_rec.project_id
and purge_batch_id = projects_rec.purge_batch_id ;
delete from pa_purge_projects
where rowid = x_rowid;
END delete_row;
select * from pa_purge_projects
where rowid = x_rowid
for update of project_id ;
FND_MESSAGE.SET_NAME('FND','FORM_RECORD_DELETED');