The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT mtl_consigned_diag_notif_s.NEXTVAL INTO l_item_key_s FROM DUAL;
SELECT full_name
INTO l_agent_name
FROM per_all_people_f
WHERE person_id = p_agent_id
AND TRUNC(SYSDATE) BETWEEN effective_start_date AND effective_end_date;
SELECT wfn.notification_id, wfn.begin_date
INTO x_notification_id, x_notification_date
FROM wf_item_activity_statuses_v was, wf_notifications wfn
WHERE was.item_type = l_item_type
AND was.activity_name = l_activity_name
AND was.item_key = l_item_key
AND wfn.notification_id = was.notification_id;
SELECT DISTINCT agent_id BULK COLLECT INTO agent_id_tbl
FROM mtl_consigned_diag_errors
WHERE agent_id IS NOT NULL
AND (notification_id IS NULL
OR last_notification_date + p_notification_resend_days <= SYSDATE);
FOR rec IN (SELECT user_name, user_id
FROM fnd_user
WHERE employee_id = l_agent_id)
LOOP
-- get user's preferred lanaguage
l_language := FND_PROFILE.Value_Specific('ICX_LANGUAGE', rec.user_id);
SELECT language_code
INTO l_lang_code
FROM FND_LANGUAGES
WHERE nls_language = l_language;
UPDATE mtl_consigned_diag_errors
SET notification_id = notif_id_tbl(j),
last_notification_date = notif_date_tbl(j),
last_update_date = SYSDATE,
last_updated_by = G_USER_ID,
last_update_login = G_LOGIN_ID
WHERE notif_status_tbl(j) = G_RET_STS_SUCCESS
AND agent_id = agent_id_tbl(j);