The following lines contain the word 'select', 'insert', 'update' or 'delete':
cursor find_enrltype is select subscription_id from jtf_um_subscriptions_b
where subscription_key = L_ENRLTYPE_KEY
and (effective_end_date is null or effective_end_date > sysdate) ;
cursor primary_enroll_roles is select jusr.principal_name
from jtf_um_subscriptions_b jusb, jtf_um_subscription_role jusr
where subscription_key = L_ENRLTYPE_KEY
and jusb.subscription_id = jusr.subscription_id
and jusr.effective_start_date <= sysdate
and nvl(jusr.effective_end_date, sysdate) >= sysdate
and jusb.effective_start_date <= sysdate
and nvl(jusb.effective_end_date, sysdate) >= sysdate
and jusb.enabled_flag = 'Y';
cursor business_enroll_roles is select jusr.principal_name
from jtf_um_subscriptions_b jusb, jtf_um_subscription_role jusr
where subscription_key = L_ENRLTYPE_KEY
and jusb.subscription_id = jusr.subscription_id
and jusr.effective_start_date <= sysdate
and nvl(jusr.effective_end_date, sysdate) >= sysdate
and jusb.effective_start_date <= sysdate
and nvl(jusb.effective_end_date, sysdate) >= sysdate;