The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Update_mtl_resv_dates
(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2,
p_commit IN VARCHAR2,
p_validation_level IN NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_wip_entity_id IN NUMBER
)
IS
-- Declare local variables
l_api_name CONSTANT VARCHAR2(30) := 'Update_mtl_resv_dates';
SELECT asmt.scheduled_material_id
FROM ahl_workorders awo, ahl_schedule_materials asmt
WHERE awo.visit_task_id = asmt.visit_task_id
AND awo.wip_entity_id= c_wip_entity_id
AND asmt.requested_date <> trunc(c_requested_date)
AND asmt.status <> 'DELETED';
SELECT scheduled_start_date
FROM wip_discrete_jobs
WHERE wip_entity_id= c_wip_entity_id;
SAVEPOINT Update_mtl_resv_dates_grp;
AHL_RSV_RESERVATIONS_PVT.Update_Reservation(
p_api_version => 1.0,
p_init_msg_list => FND_API.G_FALSE,
p_commit => FND_API.G_FALSE,
p_module_type => NULL,
x_return_status => l_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_scheduled_material_id => l_scheduled_material_id,
p_requested_date => l_requested_date);
'Returned success from AHL_RSV_RESERVATIONS_PVT.Update_Reservation'
);
UPDATE AHL_SCHEDULE_MATERIALS
SET requested_date = trunc(l_requested_date),
last_update_date = sysdate,
last_updated_by = fnd_global.user_id,
last_update_login = fnd_global.login_id
WHERE scheduled_material_id = l_scheduled_material_id;
ROLLBACK TO Update_mtl_resv_dates_grp;
ROLLBACK TO Update_mtl_resv_dates_grp;
ROLLBACK TO Update_mtl_resv_dates_grp;
p_procedure_name => 'Update_mtl_resv_dates',
p_error_text => SUBSTR(SQLERRM,1,240)
);
END Update_mtl_resv_dates;