The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT DISTINCT EMAIL_STATUS INTO l_email_status FROM JTF_FM_PROCESSED WHERE
REQUEST_ID = p_request_history_id AND PARTY_ID = p_customer_id;
UPDATE JTF_FM_PROCESSED
SET EMAIL_STATUS = 'OPENED'
WHERE request_id =p_request_history_id AND
party_id = p_customer_id ;
UPDATE JTF_FM_EMAIL_STATS
SET OPENED = NVL(opened, 0) + 1
WHERE request_id = p_request_history_id;
SELECT DISTINCT EMAIL_STATUS INTO l_email_status FROM JTF_FM_PROCESSED WHERE
REQUEST_ID = p_request_history_id AND PARTY_ID = p_customer_id;
UPDATE JTF_FM_PROCESSED
SET EMAIL_STATUS = 'UNSUBSCRIBED'
WHERE request_id =p_request_history_id AND
party_id = p_customer_id ;
UPDATE JTF_FM_EMAIL_STATS
SET UNSUBSCRIBED = NVL(UNSUBSCRIBED,0) + 1
WHERE request_id = p_request_history_id;
UPDATE JTF_FM_PROCESSED
SET EMAIL_STATUS = 'BOUNCED'
WHERE request_id =p_request_history_id AND
party_id = p_customer_id ;
UPDATE JTF_FM_EMAIL_STATS
SET BOUNCED = NVL(BOUNCED,0) + 1
WHERE request_id = p_request_history_id;