126: WHEN NO_DATA_FOUND THEN
127: RAISE NO_DATA_FOUND;
128: END;
129:
130: --Delete from QP_ARCH_LIST_HEADERS_TL
131:
132: DELETE QP_ARCH_LIST_HEADERS_TL WHERE ARCH_PURG_REQUEST_ID = l_request_id;
133: IF SQL%FOUND THEN
134: COMMIT;
128: END;
129:
130: --Delete from QP_ARCH_LIST_HEADERS_TL
131:
132: DELETE QP_ARCH_LIST_HEADERS_TL WHERE ARCH_PURG_REQUEST_ID = l_request_id;
133: IF SQL%FOUND THEN
134: COMMIT;
135: END IF;
136:
196: RAISE NO_DATA_FOUND;
197: END IF;
198:
199:
200: --Delete from QP_ARCH_LIST_HEADERS_TL
201:
202: LOOP
203: DELETE QP_ARCH_LIST_HEADERS_TL WHERE ARCH_PURG_REQUEST_ID in (select c.request_id from
204: QP_ARCH_CRITERIA_LINES a , QP_ARCH_CRITERIA_LINES b ,QP_ARCH_CRITERIA_HEADERS c
199:
200: --Delete from QP_ARCH_LIST_HEADERS_TL
201:
202: LOOP
203: DELETE QP_ARCH_LIST_HEADERS_TL WHERE ARCH_PURG_REQUEST_ID in (select c.request_id from
204: QP_ARCH_CRITERIA_LINES a , QP_ARCH_CRITERIA_LINES b ,QP_ARCH_CRITERIA_HEADERS c
205: where c.request_id = a.request_id and
206: a.REQUEST_ID = b.REQUEST_ID
207: and c.purge_flag = 'N'
352: IF l_count = 0 THEN
353: RAISE NO_DATA_FOUND;
354: END IF;
355:
356: --Delete from QP_ARCH_LIST_HEADERS_TL
357:
358: LOOP
359: DELETE QP_ARCH_LIST_HEADERS_TL
360: WHERE ARCH_PURG_REQUEST_ID in (select request_id from QP_ARCH_CRITERIA_HEADERS
355:
356: --Delete from QP_ARCH_LIST_HEADERS_TL
357:
358: LOOP
359: DELETE QP_ARCH_LIST_HEADERS_TL
360: WHERE ARCH_PURG_REQUEST_ID in (select request_id from QP_ARCH_CRITERIA_HEADERS
361: where trunc(creation_date) between trunc(fnd_date.canonical_to_date(p_archive_start_date))
362: 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)
363: AND rownum <= 500;