The following lines contain the word 'select', 'insert', 'update' or 'delete':
Procedure Update_Deployment_Status
(
ERRBUF OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
RETCODE OUT NOCOPY /* file.sql.39 change */ BINARY_INTEGER
) IS
l_error_msg VARCHAR2(2000);
SELECT survey_deployment_id, isdv.survey_cycle_id , survey_id
FROM ies_svy_deplyments_v isdv, ies_svy_cycles_v iscv
WHERE response_end_date < sysdate
and deployment_status_code = 'ACTIVE'
and isdv.survey_cycle_id = iscv.survey_cycle_id
FOR UPDATE of deployment_status_code;
SAVEPOINT update_deployment_status;
update ies_svy_deplyments_v
set deployment_status_code = 'CLOSED'
where survey_deployment_id = c1_rec.survey_deployment_id;
SELECT count(*)
INTO l_dep_count
FROM ies_svy_deplyments_v
WHERE survey_cycle_id = c1_rec.survey_cycle_id
AND deployment_status_code = 'ACTIVE';
UPDATE ies_svy_cycles_v
SET cycle_status_code = 'OPEN'
WHERE survey_cycle_id = c1_rec.survey_cycle_id;
select count(*)
INTO l_cycle_count
FROM ies_svy_cycles_v
WHERE survey_id = c1_rec.survey_id
AND cycle_status_code = 'ACTIVE';
UPDATE ies_svy_surveys_v
SET survey_status_code = 'OPEN'
WHERE survey_id = c1_rec.survey_id;
FND_MESSAGE.SET_NAME('IES', 'IES_SVY_UPDATE_DEPLOY_STATUS');
rollback to update_deployment_status;
end Update_Deployment_Status;