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_batch_name in VARCHAR2,
x_description in VARCHAR2,
x_batch_status_code in VARCHAR2,
x_active_closed_flag 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_admin_proj_flag in VARCHAR2,
x_txn_to_date in DATE,
x_next_pp_project_status_code in VARCHAR2,
x_next_p_project_status_code in VARCHAR2,
x_purged_date in DATE,
x_purge_release in VARCHAR2,
x_user_id in NUMBER,
x_org_id in NUMBER) is
cursor c is select rowid from pa_purge_batches
where purge_batch_id = x_purge_batch_id;
cursor get_id is select pa_purge_batches_s.nextval from dual ;
insert into pa_purge_batches(purge_batch_id,
batch_name,
description,
batch_status_code,
active_closed_flag,
archive_summary_flag,
purge_summary_flag,
archive_budgets_flag,
purge_budgets_flag,
archive_capital_flag,
purge_capital_flag,
archive_actuals_flag,
purge_actuals_flag,
admin_proj_flag,
txn_to_date ,
next_pp_project_status_code,
next_p_project_status_code,
purged_date,
purge_release,
last_update_date,
last_updated_by ,
last_update_login,
creation_date,
created_by,
org_id)
values ( x_purge_batch_id,
x_batch_name,
x_description,
x_batch_status_code,
x_active_closed_flag,
x_archive_summary_flag,
x_purge_summary_flag,
x_archive_budgets_flag,
x_purge_budgets_flag,
x_archive_capital_flag,
x_purge_capital_flag,
x_archive_actuals_flag,
x_purge_actuals_flag,
x_admin_proj_flag,
x_txn_to_date ,
x_next_pp_project_status_code,
x_next_p_project_status_code,
x_purged_date,
x_purge_release,
sysdate,
x_user_id,
x_user_id,
sysdate,
x_user_id,
x_org_id);
END insert_row;
procedure update_row (x_rowid in VARCHAR2,
x_purge_batch_id in out NOCOPY NUMBER,/*File.sql.39*/
x_batch_name in VARCHAR2,
x_description in VARCHAR2,
x_batch_status_code in VARCHAR2,
x_active_closed_flag 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_admin_proj_flag in VARCHAR2,
x_txn_to_date in DATE,
x_next_pp_project_status_code in VARCHAR2,
x_next_p_project_status_code in VARCHAR2,
x_purged_date in DATE,
x_purge_release in VARCHAR2,
x_user_id in NUMBER) is
BEGIN
update pa_purge_batches
set purge_batch_id = x_purge_batch_id,
batch_name = x_batch_name,
description = x_description,
batch_status_code = x_batch_status_code,
active_closed_flag = x_active_closed_flag,
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,
admin_proj_flag = x_admin_proj_flag,
txn_to_date = x_txn_to_date ,
next_pp_project_status_code = x_next_pp_project_status_code,
next_p_project_status_code = x_next_p_project_status_code,
purged_date = x_purged_date,
purge_release = x_purge_release,
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 get_batch is select batch_status_code,
purge_batch_id
from pa_purge_batches
where rowid = x_rowid;
select rowid, project_id, last_project_status_code
from pa_purge_projects
where purge_batch_id = batches_rec.purge_batch_id
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 ;
pa_purge_projects_pkg.delete_row ( projects_rec.rowid);
delete from pa_purge_batches
where rowid = x_rowid;
END delete_row;
select * from pa_purge_batches
where rowid = x_rowid
for update of purge_batch_id ;
FND_MESSAGE.SET_NAME('FND','FORM_RECORD_DELETED');