The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT NVL(LAST_RUN_DATE, to_date('1','J')) LAST_RUN_DATE
FROM JTM_CON_REQUEST_DATA
WHERE package_name = g_notes_type_map_pkg_name
AND procedure_name = g_notes_type_map_api_name;
CURSOR c_delete IS
SELECT ACC.ACCESS_ID
FROM CSM_NOTES_TYPE_MAPPING_ACC ACC
WHERE NOT EXISTS (SELECT 1
FROM JTF_OBJECT_MAPPINGS B
WHERE B.MAPPING_ID = ACC.MAPPING_ID);
CURSOR c_update(b_lastrundate DATE) IS
SELECT ACC.ACCESS_ID
FROM CSM_NOTES_TYPE_MAPPING_ACC ACC
WHERE EXISTS (SELECT 1
FROM JTF_OBJECT_MAPPINGS B
WHERE B.MAPPING_ID = ACC.MAPPING_ID
AND B.LAST_UPDATE_DATE > b_lastrundate );
CURSOR c_insert IS
SELECT MAPPING_ID
FROM JTF_OBJECT_MAPPINGS B
WHERE B.OBJECT_CODE = 'JTF_NOTE_TYPE'
AND NOT EXISTS (SELECT 1
FROM CSM_NOTES_TYPE_MAPPING_ACC ACC
WHERE ACC.MAPPING_ID = B.MAPPING_ID);
SELECT USER_ID
FROM ASG_USER AU ,
ASG_USER_PUB_RESPS AUPR
WHERE AU.USER_NAME = AUPR.USER_NAME
AND AU.USER_ID = AU.OWNER_ID
AND AUPR.PUB_NAME ='SERVICEP';
OPEN c_delete;
FETCH c_delete BULK COLLECT INTO l_access_list;
CLOSE c_delete;
CSM_UTIL_PKG.LOG('Entering DELETE to remove ' || l_access_list.count||' records',
'CSM_NOTES_TYPE_MAP_EVENT_PKG.REFRESH_ACC',FND_LOG.LEVEL_PROCEDURE);
DELETE FROM CSM_NOTES_TYPE_MAPPING_ACC WHERE ACCESS_ID=l_access_list(I);
l_access_list.DELETE;
OPEN c_update(l_lastrundate.LAST_RUN_DATE);
FETCH c_update BULK COLLECT INTO l_access_list;
CLOSE c_update;
CSM_UTIL_PKG.LOG('Entering UPDATE to update ' || l_access_list.count||' records',
'CSM_NOTES_TYPE_MAP_EVENT_PKG.REFRESH_ACC',FND_LOG.LEVEL_PROCEDURE);
CSM_UTIL_PKG.LOG('UPDATE Successful ',
'CSM_NOTES_TYPE_MAP_EVENT_PKG.REFRESH_ACC',FND_LOG.LEVEL_PROCEDURE);
l_access_list.DELETE;
OPEN c_insert;
FETCH c_insert BULK COLLECT INTO l_id_tab;
CLOSE c_insert;
CSM_UTIL_PKG.LOG('Entering INSERT to add ' || l_id_tab.count||' records',
'CSM_NOTES_TYPE_MAP_EVENT_PKG.REFRESH_ACC',FND_LOG.LEVEL_PROCEDURE);
INSERT INTO CSM_NOTES_TYPE_MAPPING_ACC
( ACCESS_ID,
MAPPING_ID,
COUNTER,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN
)
VALUES
( CSM_NOTES_TYPE_MAPPING_ACC_S.NEXTVAL,
l_id_tab(I),
1,
1,
SYSDATE,
1,
SYSDATE,
1
) RETURNING ACCESS_ID BULK COLLECT INTO l_access_list;
CSM_UTIL_PKG.LOG('INSERTION Successful ',
'CSM_NOTES_TYPE_MAP_EVENT_PKG.REFRESH_ACC',FND_LOG.LEVEL_PROCEDURE);
UPDATE JTM_CON_REQUEST_DATA
SET LAST_RUN_DATE = SYSDATE
WHERE package_name = g_notes_type_map_pkg_name
AND procedure_name = g_notes_type_map_api_name;