The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT distinct WBS_VERSION_ID
into l_wbs_version_id
FROM PJI_PJP_WBS_HEADER
WHERE PROJECT_ID = p_project_id
AND PLAN_VERSION_ID = p_plan_version_id_tbl(1);
PROCEDURE Delete_resource_rollup
( p_api_version_number IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
,p_commit IN VARCHAR2 := FND_API.G_FALSE
,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
,x_msg_count OUT NOCOPY NUMBER
,x_msg_data OUT NOCOPY VARCHAR2
,x_return_status OUT NOCOPY VARCHAR2
,p_project_id IN NUMBER
,p_plan_version_id_tbl IN SYSTEM.pa_num_tbl_type := SYSTEM.pa_num_tbl_type()
,p_rbs_version_id_tbl IN SYSTEM.pa_num_tbl_type := SYSTEM.pa_num_tbl_type()
) IS
l_api_name CONSTANT VARCHAR2(30) := 'Delete_resource_rollup';
SAVEPOINT Delete_resource_pub;
DELETE FROM pji_rollup_level_status
WHERE project_id=p_project_id;
DELETE FROM pji_fp_xbs_accum_f
WHERE project_id=p_project_id
AND (rbs_aggr_level = 'R'
OR (rbs_aggr_level = 'L'
AND wbs_rollup_flag = 'Y')) ;
DELETE FROM pji_rollup_level_status
WHERE project_id=p_project_id
and rbs_version_id=p_rbs_version_id_tbl(j);
DELETE FROM pji_fp_xbs_accum_f
WHERE project_id=p_project_id
and rbs_version_id=p_rbs_version_id_tbl(j)
AND (rbs_aggr_level = 'R'
OR (rbs_aggr_level = 'L'
AND wbs_rollup_flag = 'Y')) ;
DELETE FROM pji_rollup_level_status
WHERE project_id=p_project_id
and plan_version_id=p_plan_version_id_tbl(i);
DELETE FROM pji_fp_xbs_accum_f
WHERE project_id=p_project_id
and plan_version_id=p_plan_version_id_tbl(i)
AND (rbs_aggr_level = 'R'
OR (rbs_aggr_level = 'L'
AND wbs_rollup_flag = 'Y')) ;
DELETE FROM pji_rollup_level_status
WHERE project_id=p_project_id
and plan_version_id=p_plan_version_id_tbl(i)
and rbs_version_id=p_rbs_version_id_tbl(j);
DELETE FROM pji_fp_xbs_accum_f
WHERE project_id=p_project_id
and plan_version_id=p_plan_version_id_tbl(i)
and rbs_version_id=p_rbs_version_id_tbl(j)
AND (rbs_aggr_level = 'R'
OR (rbs_aggr_level = 'L'
AND wbs_rollup_flag = 'Y')) ;
ROLLBACK to Delete_resource_pub;
ROLLBACK TO delete_resource_pub;
ROLLBACK TO delete_resource_pub;
ROLLBACK TO delete_resource_pub;
END Delete_resource_rollup;