161: IF SQL%FOUND THEN
162: COMMIT;
163: END IF;
164:
165: --Delete from QP_ARCH_QUALIFIERS
166:
167: DELETE QP_ARCH_QUALIFIERS WHERE ARCH_PURG_REQUEST_ID = l_request_id;
168: IF SQL%FOUND THEN
169: COMMIT;
163: END IF;
164:
165: --Delete from QP_ARCH_QUALIFIERS
166:
167: DELETE QP_ARCH_QUALIFIERS WHERE ARCH_PURG_REQUEST_ID = l_request_id;
168: IF SQL%FOUND THEN
169: COMMIT;
170: END IF;
171:
292: END IF;
293: COMMIT;
294: END LOOP;
295:
296: --Delete from QP_ARCH_QUALIFIERS
297:
298: LOOP
299:
300: DELETE QP_ARCH_QUALIFIERS WHERE ARCH_PURG_REQUEST_ID in
296: --Delete from QP_ARCH_QUALIFIERS
297:
298: LOOP
299:
300: DELETE QP_ARCH_QUALIFIERS WHERE ARCH_PURG_REQUEST_ID in
301: (select c.request_id from
302: QP_ARCH_CRITERIA_LINES a ,
303: QP_ARCH_CRITERIA_LINES b ,
304: QP_ARCH_CRITERIA_HEADERS c
427: END IF;
428: COMMIT;
429: END LOOP;
430:
431: --Delete from QP_ARCH_QUALIFIERS
432:
433: LOOP
434: DELETE QP_ARCH_QUALIFIERS
435: WHERE ARCH_PURG_REQUEST_ID in (select request_id from QP_ARCH_CRITERIA_HEADERS
430:
431: --Delete from QP_ARCH_QUALIFIERS
432:
433: LOOP
434: DELETE QP_ARCH_QUALIFIERS
435: WHERE ARCH_PURG_REQUEST_ID in (select request_id from QP_ARCH_CRITERIA_HEADERS
436: where trunc(creation_date) between trunc(fnd_date.canonical_to_date(p_archive_start_date))
437: 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)
438: AND rownum <= 500;