The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE UPDATE_LIST_STATUS
( P_LIST_HEADER_ID IN NUMBER
, P_SOURCE_ID IN NUMBER
, P_STATUS IN NUMBER
, X_RETURN_CODE OUT VARCHAR2
)
IS
PRAGMA AUTONOMOUS_TRANSACTION;
l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_LIST_STATUS';
AMS_LISTHEADER_PVT.Update_ListHeader
( p_api_version => l_api_version,
p_init_msg_list => FND_API.G_FALSE,
p_commit => FND_API.G_FALSE,
p_validation_level => FND_API.G_VALID_LEVEL_FULL,
x_return_status => X_RETURN_CODE,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data ,
p_listheader_rec => l_list_rec
);
END UPDATE_LIST_STATUS;
deleteList EntryList;
SELECT A.LIST_ENTRY_ID, A.CACHE_RECORD_ID
FROM IEC_G_CACHE_RECORDS A
WHERE A.LIST_HEADER_ID = listId
AND A.SUBSET_ID = subsetId
AND A.CALLBACK_FLAG = callbackFlag
AND A.CACHE_RECORD_ID < (SELECT B.RECORD_CACHE_SEQ
FROM IEC_G_CACHE_MKTG_ITEMS B
WHERE B.LIST_HEADER_ID = A.LIST_HEADER_ID
AND B.SUBSET_ID = A.SUBSET_ID
AND B.CALLBACK_FLAG = A.CALLBACK_FLAG);
SELECT TO_CHAR(SYSDATE, 'SSSSS') INTO startTime1 FROM DUAL;
SELECT /*+ INDEX (AMS_LIST_ENTRIES AMS_LIST_ENTRIES_U1) */ RECORD_OUT_FLAG
INTO recordOutFlag
FROM AMS_LIST_ENTRIES
WHERE LIST_ENTRY_ID = entry_rec.LIST_ENTRY_ID
AND LIST_HEADER_ID = LIST_ID;
deleteList(recordCount) := entry_rec.CACHE_RECORD_ID;
SELECT MAX(CACHE_RECORD_ID)
INTO maxRecordId
FROM IEC_G_CACHE_RECORDS
WHERE LIST_HEADER_ID = LIST_ID
AND LIST_ENTRY_ID = entry_rec.LIST_ENTRY_ID;
deleteList(recordCount) := entry_rec.CACHE_RECORD_ID;
SELECT TO_CHAR(SYSDATE, 'SSSSS') INTO endTime1 FROM DUAL;
SELECT /*+ INDEX (AMS_LIST_ENTRIES AMS_LIST_ENTRIES_U1) */ RECORD_OUT_FLAG
INTO recordOutFlag
FROM AMS_LIST_ENTRIES
WHERE LIST_ENTRY_ID = entry_rec.LIST_ENTRY_ID
AND LIST_HEADER_ID = LIST_ID;
deleteList(recordCount) := entry_rec.CACHE_RECORD_ID;
SELECT MAX(CACHE_RECORD_ID)
INTO maxRecordId
FROM IEC_G_CACHE_RECORDS
WHERE LIST_HEADER_ID = LIST_ID
AND LIST_ENTRY_ID = entry_rec.LIST_ENTRY_ID;
deleteList(recordCount) := entry_rec.CACHE_RECORD_ID;
SELECT TO_CHAR(SYSDATE, 'SSSSS') INTO endTime2 FROM DUAL;
DELETE FROM IEC_G_CACHE_RECORDS WHERE CACHE_RECORD_ID = deleteList(j);
SELECT TO_CHAR(SYSDATE, 'SSSSS') INTO endTime3 FROM DUAL;
SELECT TO_CHAR(SYSDATE, 'SSSSS') INTO endTime4 FROM DUAL;
PROCEDURE INSERT_LIST_RETURNS_RECORDS
( P_SCHED_ID IN NUMBER
, P_LIST_ID IN NUMBER
, P_VIEW_NAME IN VARCHAR2
, P_DIALING_METHOD IN VARCHAR2
, X_RETURN_STATUS OUT VARCHAR2
)
IS
L_RETURN_STATUS VARCHAR2(1) := 'S';
SELECT LIST_ENTRY_ID
FROM AMS_LIST_ENTRIES
WHERE LIST_HEADER_ID = listId
AND LIST_ENTRY_ID > lastEntrySeq
AND ROWNUM <= 1000
ORDER BY LIST_ENTRY_ID;
SELECT TO_CHAR(SYSDATE, 'SSSSS') INTO startTime1 FROM DUAL;
INSERT INTO IEC_G_RETURN_ENTRIES
( RETURNS_ID
, LIST_ENTRY_ID
, LIST_HEADER_ID
, SUBSET_ID
, OUTCOME_ID
, RESULT_ID
, REASON_ID
, CONTACT_POINT
, CONTACT_POINT_ID
, DELIVER_IH_FLAG
, CALL_TYPE
, CAMPAIGN_SCHEDULE_ID
, LIST_VIEW_NAME
, RECYCLE_FLAG
, CREATED_BY
, CREATION_DATE
, LAST_UPDATED_BY
, LAST_UPDATE_DATE
, LAST_UPDATE_LOGIN
)
VALUES
(
IEC_G_RETURN_ENTRIES_S.NEXTVAL
, L_LIST_ENTRIES_TAB(j)
, P_LIST_ID
, -1
, -1
, -1
, -1
, FND_API.G_MISS_CHAR
, 0
, 'N'
, P_DIALING_METHOD
, P_SCHED_ID
, P_VIEW_NAME
, 'N'
, nvl( FND_GLOBAL.user_id, -1 )
, SYSDATE
, nvl( FND_GLOBAL.conc_login_id, -1 )
, SYSDATE
, nvl( FND_GLOBAL.conc_login_id, -1 )
);
L_LIST_ENTRIES_TAB.DELETE;
DELETE FROM IEC_G_RETURN_ENTRIES
WHERE LIST_HEADER_ID = P_LIST_ID;
END INSERT_LIST_RETURNS_RECORDS;