The following lines contain the word 'select', 'insert', 'update' or 'delete':
select project_type_class_code
into l_project_type_class
from pa_project_types_all ppt
,pa_projects_all ppa
where ppt.project_type = ppa.project_type
and ppt.org_id = ppa.org_id /* added for Bug 5099516*/ -- Removed NVL for bug#5908179 by vvjoshi
and project_id = p_project_id;
pa_debug.debug('--Before update of pa_purge_projects batch id :
'|| p_batch_id || ' project id : '|| p_project_id);
update pa_purge_projects
set
purged_date=sysdate
,last_update_date=sysdate
,last_updated_by=fnd_global.user_id
,last_update_login=fnd_global.login_id
,program_id = fnd_global.conc_program_id
,program_application_id = fnd_global.prog_appl_id
,request_id = fnd_global.conc_request_id
,program_update_date = sysdate
where purge_batch_id = p_batch_id
and project_id = p_project_id;
pa_debug.debug('--After update of pa_purge_projects batch id :
'|| p_batch_id || ' project id : '|| p_project_id);
pa_debug.debug('--Before update of pa_projects_all batch id :
'|| p_batch_id || ' project id : '|| p_project_id);
update pa_projects_all
set project_status_code = l_project_status_code
where project_id = p_project_id;
pa_debug.debug('--After update of pa_projects_all batch id :
'|| p_batch_id || ' project id : '|| p_project_id);
SELECT count(*)
INTO COUNT_MRC_SET_OF_BOOKS
FROM pa_implementations pi, gl_alc_ledger_rships_v gal --gl_mc_reporting_options glm. Bug 4468366.
WHERE (gal.org_id = -99 OR pi.org_id = gal.org_id) --pi.org_id = glm.org_id. Bug 4468366.
AND gal.relationship_enabled_flag = 'Y' --glm.enabled_flag = 'Y'. Bug 4468366.
AND gal.application_id = 275; --glm.application_Id = 275; Bug 4468366.
pa_debug.debug('Before update of pa_purge_batches to pending');
Update pa_purge_batches
Set batch_status_code='P' ,
request_id = fnd_global.conc_request_id
Where purge_batch_id = p_batch_id;
pa_debug.debug('After update of pa_purge_batches to pending');
Select active_closed_flag , purge_release
Into l_active_closed_flag , l_purge_release
From pa_purge_batches
Where purge_batch_id = p_batch_id
and request_id = fnd_global.conc_request_id
For update;
Select
project_id,
purge_summary_flag,
purge_capital_flag,
purge_budgets_flag,
purge_actuals_flag,
archive_summary_flag,
archive_capital_flag,
archive_budgets_flag,
archive_actuals_flag,
txn_to_date,
last_project_status_code,
next_pp_project_status_code,
next_p_project_status_code
From pa_purge_projects
Where purge_batch_id = p_Batch_Id
And purged_date is NULL
Order By project_id
)
Loop
l_project_id := pp_rec.project_id ;
pa_debug.debug('Before update of pa_purge_batches to complete ');
Update pa_purge_batches
Set batch_status_code='C'
,purged_date=sysdate
,last_update_date=sysdate
,last_updated_by=fnd_global.user_id
,last_update_login=fnd_global.login_id
Where purge_batch_id = p_batch_id;
pa_debug.debug('After update of pa_purge_batches to complete');
pa_debug.debug('Before update of pa_project_details' );
Update PA_PURGE_PRJ_DETAILS
Set num_recs_purged = nvl(num_recs_purged,0) + nvl(p_NoOfRecordsDel,0)
,num_recs_archived = nvl(num_recs_archived,0) + nvl(p_NoOfRecordsIns,0)
,last_update_date=sysdate
,last_updated_by=fnd_global.user_id
,last_update_login=fnd_global.login_id
,program_id = fnd_global.conc_program_id
,program_application_id = fnd_global.prog_appl_id
,request_id = fnd_global.conc_request_id
,program_update_date = sysdate
Where purge_batch_id = p_purge_batch_id
And project_id = p_project_id
And Table_name = p_table_name;
pa_debug.debug('After update of pa_project_details' );
pa_debug.debug('Before insert into pa_project_details' );
Insert into PA_PURGE_PRJ_DETAILS
(
purge_batch_id,
project_id,
table_name,
num_recs_purged,
num_recs_archived,
created_by,
last_update_date,
last_updated_by,
last_update_login,
creation_date,
program_id,
program_application_id,
request_id,
program_update_date
)
values
(
p_purge_batch_id,
p_project_id,
p_table_name,
p_NoOfRecordsDel,
p_NoOfRecordsIns,
fnd_global.user_id,
sysdate,
fnd_global.user_id,
fnd_global.user_id,
sysdate,
fnd_global.conc_program_id,
fnd_global.prog_appl_id,
fnd_global.conc_request_id,
sysdate
);
pa_debug.debug('After insert into pa_project_details' );
pa_debug.debug('Before update of pa_project_details for MRC' );
Update PA_PURGE_PRJ_DETAILS
Set num_recs_purged = nvl(num_recs_purged,0) + nvl(p_MRC_NoOfRecordsDel,0)
,num_recs_archived = nvl(num_recs_archived,0) + nvl(p_MRC_NoOfRecordsIns,0)
,last_update_date=sysdate
,last_updated_by=fnd_global.user_id
,last_update_login=fnd_global.login_id
,program_id = fnd_global.conc_program_id
,program_application_id = fnd_global.prog_appl_id
,request_id = fnd_global.conc_request_id
,program_update_date = sysdate
Where purge_batch_id = p_purge_batch_id
And project_id = p_project_id
And Table_name = p_MRC_table_name;
pa_debug.debug('After MRC update of pa_project_details' );
pa_debug.debug('Before insert MRC into pa_project_details' );
Insert into PA_PURGE_PRJ_DETAILS
(
purge_batch_id,
project_id,
table_name,
num_recs_purged,
num_recs_archived,
created_by,
last_update_date,
last_updated_by,
last_update_login,
creation_date,
program_id,
program_application_id,
request_id,
program_update_date
)
values
(
p_purge_batch_id,
p_project_id,
p_MRC_table_name,
p_MRC_NoOfRecordsDel,
p_MRC_NoOfRecordsIns,
fnd_global.user_id,
sysdate,
fnd_global.user_id,
fnd_global.user_id,
sysdate,
fnd_global.conc_program_id,
fnd_global.prog_appl_id,
fnd_global.conc_request_id,
sysdate
);
pa_debug.debug('After insert MRC into pa_project_details' );
Select 'x'
Into l_dummy
From pa_purge_batches
Where purge_batch_id = p_purge_batch_id
and request_id = fnd_global.conc_request_id
For update;
SELECT next_p_project_status_code, next_pp_project_status_code
FROM pa_purge_projects
WHERE purge_batch_id = p_batch_id
AND project_id = p_project_id;
Select active_closed_flag
into l_active_closed_flag
from pa_purge_batches
where purge_batch_id = p_batch_id;
Select MAX(purge_actuals_flag),
MAX(purge_capital_flag),
MAX(purge_budgets_flag),
MAX(purge_summary_flag)
Into l_purge_actuals_flag,
l_purge_capital_flag,
l_purge_budgets_flag,
l_purge_summary_flag
From pa_purge_projects
Where project_id = p_project_id
And purged_date is not null;
Select pt.project_type_class_code
into l_project_type_class_code
From pa_projects_all p, pa_project_types_all pt
where p.project_type = pt.project_type
and p.org_id = pt.org_id -- Removed NVL for bug#5908179 by vvjoshi
and p.project_id = p_project_id;
Select LAST_PROJECT_STATUS_CODE
Into l_last_project_status_code
From pa_purge_projects
Where project_id = p_project_id
And purge_batch_id = p_batch_id;