The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE UPDATE_PROJECT_DATES
( p_commit IN VARCHAR2 := FND_API.G_FALSE
,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
,p_debug_mode IN VARCHAR2 := 'N'
,p_max_msg_count IN NUMBER := FND_API.G_MISS_NUM
,p_project_id IN NUMBER
,p_date_type IN VARCHAR2
,p_start_date IN DATE := FND_API.G_MISS_DATE
,p_finish_date IN DATE := FND_API.G_MISS_DATE
,p_record_version_number IN NUMBER := FND_API.G_MISS_NUM
,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
,x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
)
IS
l_return_status VARCHAR2(1);
select calendar_id
from pa_projects_all
where project_id = p_project_id;
pa_debug.debug('PA_PROJECT_DATES_PVT.Update_Project_Dates BEGIN');
savepoint update_project_dates_pvt;
SELECT 'x' INTO l_dummy
FROM pa_projects_all
WHERE project_id = p_project_id
AND record_version_number = p_record_version_number
FOR UPDATE OF record_version_number NOWAIT;
SELECT 'x' INTO l_dummy
FROM pa_projects_all
WHERE project_id = p_project_id
AND record_version_number = p_record_version_number;
select Upper(PA_PROJ_TASK_STRUC_PUB.IS_WP_VERSIONING_ENABLED(p_project_id))
into l_version_enabled
from dual;
UPDATE PA_PROJECTS_ALL
SET start_date = l_start_date,
completion_date = l_finish_date,
last_update_date = sysdate,
record_version_number = p_record_version_number + 1,
last_updated_by = fnd_global.user_id,
last_update_login = fnd_global.login_id
WHERE project_id = p_project_id;
UPDATE PA_PROJECTS_ALL
SET target_start_date = l_start_date,
target_finish_date = l_finish_date,
last_update_date = sysdate,
record_version_number = p_record_version_number + 1,
last_updated_by = fnd_global.user_id,
last_update_login = fnd_global.login_id
WHERE project_id = p_project_id;
UPDATE PA_PROJECTS_ALL
SET actual_start_date = l_start_date,
actual_finish_date = l_finish_date,
actual_duration = l_duration,
last_update_date = sysdate,
record_version_number = p_record_version_number + 1,
last_updated_by = fnd_global.user_id,
last_update_login = fnd_global.login_id
WHERE project_id = p_project_id;
UPDATE PA_PROJECTS_ALL
SET baseline_start_date = l_start_date,
baseline_finish_date = l_finish_date,
baseline_duration = l_duration,
baseline_as_of_date = sysdate,
last_update_date = sysdate,
record_version_number = p_record_version_number + 1,
last_updated_by = fnd_global.user_id,
last_update_login = fnd_global.login_id
WHERE project_id = p_project_id;
UPDATE PA_PROJECTS_ALL
SET scheduled_start_date = l_start_date,
scheduled_finish_date = l_finish_date,
scheduled_duration = l_duration,
scheduled_as_of_date = sysdate,
last_update_date = sysdate,
record_version_number = p_record_version_number + 1,
last_updated_by = fnd_global.user_id,
last_update_login = fnd_global.login_id
WHERE project_id = p_project_id;
pa_debug.debug('PA_PROJECT_DATES_PVT.Update_Project_Dates END');
rollback to update_project_dates_pvt;
rollback to update_project_dates_pvt;
p_procedure_name => 'Update_Project_Dates',
p_error_text => SUBSTRB(SQLERRM,1,240));
rollback to update_project_dates_pvt;
p_procedure_name => 'Update_Project_Dates',
p_error_text => SUBSTRB(SQLERRM,1,240));
END UPDATE_PROJECT_DATES;