26:
27: END Log;
28:
29:
30: /* Reset record counts for subsets in IEC_G_REP_SUBSET_COUNTS and IEC_G_MKTG_ITEM_CC_TZS
31: Three entry points - Reset_AllRecordCounts
32: - Reset_CampaignRecordCounts
33: - Reset_ListRecordCounts
34: */
122: IS
123: BEGIN
124:
125: EXECUTE IMMEDIATE
126: 'DELETE FROM IEC_G_REP_SUBSET_COUNTS
127: WHERE LIST_HEADER_ID = :list_id'
128: USING p_list_id;
129:
130: IF p_subset_id_col IS NOT NULL AND p_subset_id_col.COUNT > 0 THEN
129:
130: IF p_subset_id_col IS NOT NULL AND p_subset_id_col.COUNT > 0 THEN
131:
132: FORALL i IN 1..p_subset_id_col.LAST
133: INSERT INTO IEC_G_REP_SUBSET_COUNTS
134: ( SUBSET_COUNT_ID
135: , SCHEDULE_ID
136: , LIST_HEADER_ID
137: , SUBSET_ID
147: , LAST_UPDATED_BY
148: , OBJECT_VERSION_NUMBER
149: )
150: VALUES
151: (IEC_G_REP_SUBSET_COUNTS_S.NEXTVAL
152: , p_schedule_id
153: , p_list_id
154: , p_subset_id_col(i)
155: , p_subset_record_loaded_col(i)
167: END IF;
168:
169: EXCEPTION
170: WHEN OTHERS THEN
171: Log( 'Reset of report counts in IEC_G_REP_SUBSET_COUNTS for subsets belonging to list ' || p_list_id
172: , 'Update_SubsetCounts'
173: , 'MAIN'
174: , SQLCODE
175: , SQLERRM