133: IF SQL%FOUND THEN
134: COMMIT;
135: END IF;
136:
137: --Delete from QP_ARCH_LIST_HEADERS_B
138:
139: DELETE QP_ARCH_LIST_HEADERS_B WHERE ARCH_PURG_REQUEST_ID = l_request_id;
140: IF SQL%FOUND THEN
141: COMMIT;
135: END IF;
136:
137: --Delete from QP_ARCH_LIST_HEADERS_B
138:
139: DELETE QP_ARCH_LIST_HEADERS_B WHERE ARCH_PURG_REQUEST_ID = l_request_id;
140: IF SQL%FOUND THEN
141: COMMIT;
142: END IF;
143:
215: END IF;
216: COMMIT;
217: END LOOP;
218:
219: --Delete from QP_ARCH_LIST_HEADERS_B
220:
221: LOOP
222: DELETE QP_ARCH_LIST_HEADERS_B WHERE ARCH_PURG_REQUEST_ID in (select c.request_id from
223: QP_ARCH_CRITERIA_LINES a , QP_ARCH_CRITERIA_LINES b ,QP_ARCH_CRITERIA_HEADERS c
218:
219: --Delete from QP_ARCH_LIST_HEADERS_B
220:
221: LOOP
222: DELETE QP_ARCH_LIST_HEADERS_B WHERE ARCH_PURG_REQUEST_ID in (select c.request_id from
223: QP_ARCH_CRITERIA_LINES a , QP_ARCH_CRITERIA_LINES b ,QP_ARCH_CRITERIA_HEADERS c
224: where c.request_id = a.request_id and
225: a.REQUEST_ID = b.REQUEST_ID
226: and c.purge_flag = 'N'
367: END IF;
368: COMMIT;
369: END LOOP;
370:
371: --Delete from QP_ARCH_LIST_HEADERS_B
372:
373: LOOP
374: DELETE QP_ARCH_LIST_HEADERS_B
375: WHERE ARCH_PURG_REQUEST_ID in (select request_id from QP_ARCH_CRITERIA_HEADERS
370:
371: --Delete from QP_ARCH_LIST_HEADERS_B
372:
373: LOOP
374: DELETE QP_ARCH_LIST_HEADERS_B
375: WHERE ARCH_PURG_REQUEST_ID in (select request_id from QP_ARCH_CRITERIA_HEADERS
376: where trunc(creation_date) between trunc(fnd_date.canonical_to_date(p_archive_start_date))
377: and trunc(fnd_date.canonical_to_date(p_archive_end_date)) and purge_flag = 'N' and REQUEST_TYPE = 'ARCHIVE' and source_system= p_source_system_code)
378: AND rownum <= 500;