The following lines contain the word 'select', 'insert', 'update' or 'delete':
CURSOR FIND_RESP_INFO IS SELECT FR.RESPONSIBILITY_ID RESP_ID, FR.APPLICATION_ID APP_ID, FR.RESPONSIBILITY_NAME RESP_NAME, FR.RESPONSIBILITY_KEY RESP_KEY
FROM FND_RESPONSIBILITY_VL FR, FND_USER_RESP_GROUPS FG
WHERE FR.RESPONSIBILITY_ID = FG.RESPONSIBILITY_ID
AND FR.APPLICATION_ID = FG.RESPONSIBILITY_APPLICATION_ID
AND FG.USER_ID = p_user_id
AND NVL(FG.END_DATE, SYSDATE +1) > SYSDATE
AND FG.START_DATE < SYSDATE
AND FR.VERSION = 'W'
ORDER BY FR.RESPONSIBILITY_NAME;
SELECT SOURCE_TYPE, SOURCE_NAME FROM
(
SELECT 'USERTYPE' SOURCE_TYPE, UT.USERTYPE_SHORTNAME SOURCE_NAME
FROM JTF_UM_USERTYPES_VL UT, JTF_UM_USERTYPE_RESP UTRESP, JTF_UM_USERTYPE_REG UTREG
WHERE UT.USERTYPE_ID = UTRESP.USERTYPE_ID
AND UT.USERTYPE_ID = UTREG.USERTYPE_ID
AND UTREG.USER_ID = p_user_id
AND UTRESP.RESPONSIBILITY_KEY = l_resp_key
AND NVL(UTRESP.EFFECTIVE_END_DATE, SYSDATE +1) > SYSDATE
AND NVL(UTREG.EFFECTIVE_END_DATE, SYSDATE +1) > SYSDATE
AND UTRESP.EFFECTIVE_START_DATE < SYSDATE
AND UTREG.EFFECTIVE_START_DATE < SYSDATE
AND UTREG.STATUS_CODE = 'APPROVED'
UNION ALL
SELECT 'ENROLLMENT' SOURCE_TYPE, SUB.SUBSCRIPTION_NAME SOURCE_NAME
FROM JTF_UM_SUBSCRIPTIONS_VL SUB, JTF_UM_SUBSCRIPTION_RESP SUBRESP, JTF_UM_SUBSCRIPTION_REG SUBREG
WHERE SUB.SUBSCRIPTION_ID = SUBRESP.SUBSCRIPTION_ID
AND SUB.SUBSCRIPTION_ID = SUBREG.SUBSCRIPTION_ID
AND SUBREG.USER_ID = p_user_id
AND SUBRESP.RESPONSIBILITY_KEY = l_resp_key
AND NVL(SUBRESP.EFFECTIVE_END_DATE, SYSDATE +1) > SYSDATE
AND NVL(SUBREG.EFFECTIVE_END_DATE, SYSDATE +1) > SYSDATE
AND SUBRESP.EFFECTIVE_START_DATE < SYSDATE
AND SUBREG.EFFECTIVE_START_DATE < SYSDATE
AND SUBREG.STATUS_CODE = 'APPROVED'
) respSources order by SOURCE_TYPE,SOURCE_NAME;