The following lines contain the word 'select', 'insert', 'update' or 'delete':
'SELECT COUNT(*)
FROM IEC_G_RETURN_ENTRIES
WHERE SUBSET_ID = :subset_id'
INTO x_subset_record_loaded_col(x_subset_record_loaded_col.LAST)
USING p_subset_id_col(i);
'SELECT NVL(SUM(DECODE(NVL(B.CALL_ATTEMPT, 0), 0, 0, 1)), 0)
FROM IEC_G_RETURN_ENTRIES A, IEC_O_RCY_CALL_HISTORIES B
WHERE A.RETURNS_ID = B.RETURNS_ID
AND A.SUBSET_ID = :subset_id'
INTO x_subset_record_called_col(x_subset_record_called_col.LAST)
USING p_subset_id_col(i);
PROCEDURE Update_SubsetCounts
( p_schedule_id IN NUMBER
, p_list_id IN NUMBER
, p_subset_id_col IN SYSTEM.number_tbl_type
, p_subset_record_loaded_col IN SYSTEM.number_tbl_type
, p_subset_record_called_col IN SYSTEM.number_tbl_type)
IS
BEGIN
EXECUTE IMMEDIATE
'DELETE FROM IEC_G_REP_SUBSET_COUNTS
WHERE LIST_HEADER_ID = :list_id'
USING p_list_id;
INSERT INTO IEC_G_REP_SUBSET_COUNTS
( SUBSET_COUNT_ID
, SCHEDULE_ID
, LIST_HEADER_ID
, SUBSET_ID
, RECORD_LOADED
, RECORD_CALLED_ONCE
, RECORD_CALLED_AND_REMOVED
, RECORD_CALLED_AND_REMOVED_COPY
, LAST_COPY_TIME
, CREATED_BY
, CREATION_DATE
, LAST_UPDATE_LOGIN
, LAST_UPDATE_DATE
, LAST_UPDATED_BY
, OBJECT_VERSION_NUMBER
)
VALUES
(IEC_G_REP_SUBSET_COUNTS_S.NEXTVAL
, p_schedule_id
, p_list_id
, p_subset_id_col(i)
, p_subset_record_loaded_col(i)
, p_subset_record_called_col(i)
, 0
, 0
, SYSDATE
, 1
, SYSDATE
, 1
, SYSDATE
, 0
, 0);
, 'Update_SubsetCounts'
, 'MAIN'
, SQLCODE
, SQLERRM
);
END Update_SubsetCounts;
SELECT LIST_SUBSET_ID
BULK COLLECT INTO :l_subset_id_col
FROM IEC_G_LIST_SUBSETS
WHERE LIST_HEADER_ID = :list_id
AND STATUS_CODE = ''ACTIVE'';
Update_SubsetCounts( p_schedule_id
, p_list_id
, l_subset_id_col
, l_subset_record_loaded_col
, l_subset_record_called_col);
SELECT ITM_CC_TZ_ID, COUNT(*)
BULK COLLECT INTO :cc_tz_id_col, :cc_tz_count_col
FROM IEC_G_RETURN_ENTRIES
WHERE LIST_HEADER_ID = :list_id
AND DO_NOT_USE_FLAG = ''N''
GROUP BY ITM_CC_TZ_ID;
'UPDATE IEC_G_MKTG_ITEM_CC_TZS
SET RECORD_COUNT = 0
, LAST_UPDATE_DATE = SYSDATE
WHERE LIST_HEADER_ID = :list_id'
USING p_list_id;
UPDATE IEC_G_MKTG_ITEM_CC_TZS
SET RECORD_COUNT = l_cc_tz_count_col(i)
, LAST_UPDATE_DATE = SYSDATE
WHERE ITM_CC_TZ_ID = l_cc_tz_id_col(i);
, 'UPDATE_CALLABLE_ZONE_COUNTS'
, SQLCODE
, SQLERRM
);
SELECT LIST_HEADER_ID
BULK COLLECT INTO :list_id_col
FROM AMS_ACT_LISTS
WHERE LIST_USED_BY_ID = :schedule_id
AND LIST_ACT_TYPE = ''TARGET''
AND LIST_USED_BY = ''CSCH'';
SELECT SCHEDULE_ID
BULK COLLECT INTO :schedule_id_col
FROM IEC_G_EXECUTING_SCHEDULES_V;