The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Update_CP_Term_Status
(
errbuf OUT VARCHAR2,
retcode OUT NUMBER
) IS
CURSOR cp_term_cur IS
SELECT customer_product_id
FROM cs_customer_products
WHERE trunc(sysdate) >= trunc(nvl(end_date_active, sysdate+1));
-- see if we call use the Update APis instead.
UPDATE cs_customer_products
SET CUSTOMER_PRODUCT_STATUS_ID = g_default_term_status_id,
object_version_number = object_version_number + 1
WHERE customer_product_id = cp_term_cur_rec.customer_product_id;
END Update_CP_Term_Status;
'CS_CP_Termination_PKG.Update_CP_Term_Status');