7: IS
8: xErrLoc PLS_INTEGER := 100;
9: BEGIN
10:
11: ICX_POR_EXT_UTL.debug(ICX_POR_EXT_UTL.MUST_LEVEL,
12: 'Update last run dates');
13:
14: IF pType = 'VENDOR_NAME' then
15: xErrLoc := 120;
62: gLoaderValue.internal_item_last_run_date;
63: END IF;
64:
65: xErrLoc := 200;
66: ICX_POR_EXT_UTL.extAFCommit;
67:
68: EXCEPTION
69: when others then
70: ICX_POR_EXT_UTL.extRollback;
66: ICX_POR_EXT_UTL.extAFCommit;
67:
68: EXCEPTION
69: when others then
70: ICX_POR_EXT_UTL.extRollback;
71: ICX_POR_EXT_UTL.pushError('ICX_POR_EXTRACTOR.setLastRunDates-'||
72: xErrLoc||' '||SQLERRM);
73: raise ICX_POR_EXT_UTL.gException;
74: END setLastRunDates;
67:
68: EXCEPTION
69: when others then
70: ICX_POR_EXT_UTL.extRollback;
71: ICX_POR_EXT_UTL.pushError('ICX_POR_EXTRACTOR.setLastRunDates-'||
72: xErrLoc||' '||SQLERRM);
73: raise ICX_POR_EXT_UTL.gException;
74: END setLastRunDates;
75:
69: when others then
70: ICX_POR_EXT_UTL.extRollback;
71: ICX_POR_EXT_UTL.pushError('ICX_POR_EXTRACTOR.setLastRunDates-'||
72: xErrLoc||' '||SQLERRM);
73: raise ICX_POR_EXT_UTL.gException;
74: END setLastRunDates;
75:
76:
77: --------------------------------------------------------------
108: from dual;
109: END IF;
110: gJobNum := gRequestId;
111:
112: ICX_POR_EXT_UTL.gDebugLevel := pDebugLevel;
113:
114: xErrLoc := 110;
115: -- Bug#4364929 : For extractor concurrent program no need to
116: -- open log explicitly.
113:
114: xErrLoc := 110;
115: -- Bug#4364929 : For extractor concurrent program no need to
116: -- open log explicitly.
117: --ICX_POR_EXT_UTL.openLog(pFileName);
118: fnd_file.put_line(fnd_file.log, 'Commented out openLog');
119:
120: xErrLoc := 120;
121:
120: xErrLoc := 120;
121:
122: -- set commit size > 2500 for better performance
123: if (pCommitSize > 0) then
124: ICX_POR_EXT_UTL.gCommitSize := pCommitSize;
125: else
126: -- get defaul commit size from profile option
127: fnd_profile.get('POR_LOAD_PURGE_COMMIT_SIZE', xCommitSize);
128: ICX_POR_EXT_UTL.gCommitSize := xCommitSize;
124: ICX_POR_EXT_UTL.gCommitSize := pCommitSize;
125: else
126: -- get defaul commit size from profile option
127: fnd_profile.get('POR_LOAD_PURGE_COMMIT_SIZE', xCommitSize);
128: ICX_POR_EXT_UTL.gCommitSize := xCommitSize;
129: end if;
130:
131: xErrLoc := 200;
132:
194: from v$session
195: where audsid = userenv('sessionid'));
196:
197: xErrLoc := 340;
198: ICX_POR_EXT_UTL.debug(ICX_POR_EXT_UTL.MUST_LEVEL, 'BEGIN Extractor');
199: ICX_POR_EXT_UTL.debug(ICX_POR_EXT_UTL.MUST_LEVEL, 'Start to extract ' ||
200: pType || ': job number ' || gJobNum || ', system process id ' || gSpid);
201:
202: ICX_POR_EXT_UTL.debug(ICX_POR_EXT_UTL.MUST_LEVEL,
195: where audsid = userenv('sessionid'));
196:
197: xErrLoc := 340;
198: ICX_POR_EXT_UTL.debug(ICX_POR_EXT_UTL.MUST_LEVEL, 'BEGIN Extractor');
199: ICX_POR_EXT_UTL.debug(ICX_POR_EXT_UTL.MUST_LEVEL, 'Start to extract ' ||
200: pType || ': job number ' || gJobNum || ', system process id ' || gSpid);
201:
202: ICX_POR_EXT_UTL.debug(ICX_POR_EXT_UTL.MUST_LEVEL,
203: 'Commit size: ' || ICX_POR_EXT_UTL.gCommitSize ||
198: ICX_POR_EXT_UTL.debug(ICX_POR_EXT_UTL.MUST_LEVEL, 'BEGIN Extractor');
199: ICX_POR_EXT_UTL.debug(ICX_POR_EXT_UTL.MUST_LEVEL, 'Start to extract ' ||
200: pType || ': job number ' || gJobNum || ', system process id ' || gSpid);
201:
202: ICX_POR_EXT_UTL.debug(ICX_POR_EXT_UTL.MUST_LEVEL,
203: 'Commit size: ' || ICX_POR_EXT_UTL.gCommitSize ||
204: ', Debug level: ' || ICX_POR_EXT_UTL.gDebugLevel);
205:
206: -- FPI feature, Print Extractor Parameters
199: ICX_POR_EXT_UTL.debug(ICX_POR_EXT_UTL.MUST_LEVEL, 'Start to extract ' ||
200: pType || ': job number ' || gJobNum || ', system process id ' || gSpid);
201:
202: ICX_POR_EXT_UTL.debug(ICX_POR_EXT_UTL.MUST_LEVEL,
203: 'Commit size: ' || ICX_POR_EXT_UTL.gCommitSize ||
204: ', Debug level: ' || ICX_POR_EXT_UTL.gDebugLevel);
205:
206: -- FPI feature, Print Extractor Parameters
207: ICX_POR_EXT_UTL.debug(ICX_POR_EXT_UTL.MUST_LEVEL, 'Loader Values[' ||
200: pType || ': job number ' || gJobNum || ', system process id ' || gSpid);
201:
202: ICX_POR_EXT_UTL.debug(ICX_POR_EXT_UTL.MUST_LEVEL,
203: 'Commit size: ' || ICX_POR_EXT_UTL.gCommitSize ||
204: ', Debug level: ' || ICX_POR_EXT_UTL.gDebugLevel);
205:
206: -- FPI feature, Print Extractor Parameters
207: ICX_POR_EXT_UTL.debug(ICX_POR_EXT_UTL.MUST_LEVEL, 'Loader Values[' ||
208: 'Load Catalog Groups: ' || gLoaderValue.load_catalog_groups || ', ' ||
203: 'Commit size: ' || ICX_POR_EXT_UTL.gCommitSize ||
204: ', Debug level: ' || ICX_POR_EXT_UTL.gDebugLevel);
205:
206: -- FPI feature, Print Extractor Parameters
207: ICX_POR_EXT_UTL.debug(ICX_POR_EXT_UTL.MUST_LEVEL, 'Loader Values[' ||
208: 'Load Catalog Groups: ' || gLoaderValue.load_catalog_groups || ', ' ||
209: 'Load Categories: ' || gLoaderValue.load_categories || ', ' ||
210: 'Load Template Headers: ' || gLoaderValue.load_template_headers ||', ' ||
211: 'Load Contracts: ' || gLoaderValue.load_contracts || ', ' ||
262: from fnd_new_messages
263: where message_name = 'ICX_POR_RECOMPILE_CAT_FLEXFLDS'
264: and language_code = USERENV('LANG');
265:
266: ICX_POR_EXT_UTL.debug(ICX_POR_EXT_UTL.ERROR_LEVEL, xErrMsg);
267: RAISE ICX_POR_EXT_UTL.gFatalException;
268: return;
269: end if;
270:
263: where message_name = 'ICX_POR_RECOMPILE_CAT_FLEXFLDS'
264: and language_code = USERENV('LANG');
265:
266: ICX_POR_EXT_UTL.debug(ICX_POR_EXT_UTL.ERROR_LEVEL, xErrMsg);
267: RAISE ICX_POR_EXT_UTL.gFatalException;
268: return;
269: end if;
270:
271: -- purge classification data
293: from fnd_new_messages
294: where message_name = 'ICX_POR_RECOMPILE_ITM_FLEXFLDS'
295: and language_code = USERENV('LANG');
296:
297: ICX_POR_EXT_UTL.debug(ICX_POR_EXT_UTL.ERROR_LEVEL, xErrMsg);
298: RAISE ICX_POR_EXT_UTL.gFatalException;
299: return;
300: end if;
301:
294: where message_name = 'ICX_POR_RECOMPILE_ITM_FLEXFLDS'
295: and language_code = USERENV('LANG');
296:
297: ICX_POR_EXT_UTL.debug(ICX_POR_EXT_UTL.ERROR_LEVEL, xErrMsg);
298: RAISE ICX_POR_EXT_UTL.gFatalException;
299: return;
300: end if;
301:
302: -- Bug#6374614. Set the extractor_updated_flag to N if only BULKLOAD item
315:
316: end if;
317:
318: xErrLoc := 500;
319: ICX_POR_EXT_UTL.debug(ICX_POR_EXT_UTL.MUST_LEVEL, 'END Extractor');
320:
321: xErrLoc := 600;
322: -- popolates interMedia index
323: ICX_POR_EXT_UTL.debug(ICX_POR_EXT_UTL.MUST_LEVEL,
319: ICX_POR_EXT_UTL.debug(ICX_POR_EXT_UTL.MUST_LEVEL, 'END Extractor');
320:
321: xErrLoc := 600;
322: -- popolates interMedia index
323: ICX_POR_EXT_UTL.debug(ICX_POR_EXT_UTL.MUST_LEVEL,
324: 'Populate interMedia index BEGIN');
325: ICX_POR_CTX_DESC.populateCtxDescAll(gJobNum, 'N');
326: ICX_POR_EXT_UTL.debug(ICX_POR_EXT_UTL.MUST_LEVEL,
327: 'Populate interMedia index END');
322: -- popolates interMedia index
323: ICX_POR_EXT_UTL.debug(ICX_POR_EXT_UTL.MUST_LEVEL,
324: 'Populate interMedia index BEGIN');
325: ICX_POR_CTX_DESC.populateCtxDescAll(gJobNum, 'N');
326: ICX_POR_EXT_UTL.debug(ICX_POR_EXT_UTL.MUST_LEVEL,
327: 'Populate interMedia index END');
328:
329: ICX_POR_EXT_UTL.closeLog;
330: xErrLoc := 700;
325: ICX_POR_CTX_DESC.populateCtxDescAll(gJobNum, 'N');
326: ICX_POR_EXT_UTL.debug(ICX_POR_EXT_UTL.MUST_LEVEL,
327: 'Populate interMedia index END');
328:
329: ICX_POR_EXT_UTL.closeLog;
330: xErrLoc := 700;
331:
332: EXCEPTION
333: WHEN OTHERS THEN
330: xErrLoc := 700;
331:
332: EXCEPTION
333: WHEN OTHERS THEN
334: ICX_POR_EXT_UTL.extRollback;
335: ICX_POR_EXT_UTL.pushError('ICX_POR_EXTRACTOR.extract-'||
336: xErrLoc||' '||SQLERRM);
337: ICX_POR_EXT_UTL.printStackTrace;
338: ICX_POR_EXT_UTL.debug(ICX_POR_EXT_UTL.MUST_LEVEL, 'Extractor Stopped');
331:
332: EXCEPTION
333: WHEN OTHERS THEN
334: ICX_POR_EXT_UTL.extRollback;
335: ICX_POR_EXT_UTL.pushError('ICX_POR_EXTRACTOR.extract-'||
336: xErrLoc||' '||SQLERRM);
337: ICX_POR_EXT_UTL.printStackTrace;
338: ICX_POR_EXT_UTL.debug(ICX_POR_EXT_UTL.MUST_LEVEL, 'Extractor Stopped');
339: -- popolates interMedia index
333: WHEN OTHERS THEN
334: ICX_POR_EXT_UTL.extRollback;
335: ICX_POR_EXT_UTL.pushError('ICX_POR_EXTRACTOR.extract-'||
336: xErrLoc||' '||SQLERRM);
337: ICX_POR_EXT_UTL.printStackTrace;
338: ICX_POR_EXT_UTL.debug(ICX_POR_EXT_UTL.MUST_LEVEL, 'Extractor Stopped');
339: -- popolates interMedia index
340: ICX_POR_EXT_UTL.debug(ICX_POR_EXT_UTL.MUST_LEVEL,
341: 'Populate interMedia index BEGIN');
334: ICX_POR_EXT_UTL.extRollback;
335: ICX_POR_EXT_UTL.pushError('ICX_POR_EXTRACTOR.extract-'||
336: xErrLoc||' '||SQLERRM);
337: ICX_POR_EXT_UTL.printStackTrace;
338: ICX_POR_EXT_UTL.debug(ICX_POR_EXT_UTL.MUST_LEVEL, 'Extractor Stopped');
339: -- popolates interMedia index
340: ICX_POR_EXT_UTL.debug(ICX_POR_EXT_UTL.MUST_LEVEL,
341: 'Populate interMedia index BEGIN');
342: ICX_POR_CTX_DESC.populateCtxDescAll(gJobNum, 'N');
336: xErrLoc||' '||SQLERRM);
337: ICX_POR_EXT_UTL.printStackTrace;
338: ICX_POR_EXT_UTL.debug(ICX_POR_EXT_UTL.MUST_LEVEL, 'Extractor Stopped');
339: -- popolates interMedia index
340: ICX_POR_EXT_UTL.debug(ICX_POR_EXT_UTL.MUST_LEVEL,
341: 'Populate interMedia index BEGIN');
342: ICX_POR_CTX_DESC.populateCtxDescAll(gJobNum, 'N');
343: ICX_POR_EXT_UTL.debug(ICX_POR_EXT_UTL.MUST_LEVEL,
344: 'Populate interMedia index END');
339: -- popolates interMedia index
340: ICX_POR_EXT_UTL.debug(ICX_POR_EXT_UTL.MUST_LEVEL,
341: 'Populate interMedia index BEGIN');
342: ICX_POR_CTX_DESC.populateCtxDescAll(gJobNum, 'N');
343: ICX_POR_EXT_UTL.debug(ICX_POR_EXT_UTL.MUST_LEVEL,
344: 'Populate interMedia index END');
345:
346: ICX_POR_EXT_UTL.closeLog;
347: RAISE;
342: ICX_POR_CTX_DESC.populateCtxDescAll(gJobNum, 'N');
343: ICX_POR_EXT_UTL.debug(ICX_POR_EXT_UTL.MUST_LEVEL,
344: 'Populate interMedia index END');
345:
346: ICX_POR_EXT_UTL.closeLog;
347: RAISE;
348: END extract;
349:
350:
359: xErrLoc PLS_INTEGER := 100;
360: xCommitSize PLS_INTEGER := 2000;
361: BEGIN
362:
363: ICX_POR_EXT_UTL.gDebugLevel := pDebugLevel;
364:
365: xErrLoc := 110;
366: -- Bug#4364929: For extractor concurrent program no need to
367: -- open log explicitly.
364:
365: xErrLoc := 110;
366: -- Bug#4364929: For extractor concurrent program no need to
367: -- open log explicitly.
368: --ICX_POR_EXT_UTL.openLog(pFileName);
369: fnd_file.put_line(fnd_file.log, 'Commented out openLog');
370:
371: xErrLoc := 120;
372:
372:
373: -- set the commitsize equal to the one user entered
374: -- set commit size > 2500 for better performance
375: if (pCommitSize > 0) then
376: ICX_POR_EXT_UTL.gCommitSize := pCommitSize;
377: else
378: -- get defaul commit size from profile option
379: fnd_profile.get('POR_LOAD_PURGE_COMMIT_SIZE', xCommitSize);
380: ICX_POR_EXT_UTL.gCommitSize := xCommitSize;
376: ICX_POR_EXT_UTL.gCommitSize := pCommitSize;
377: else
378: -- get defaul commit size from profile option
379: fnd_profile.get('POR_LOAD_PURGE_COMMIT_SIZE', xCommitSize);
380: ICX_POR_EXT_UTL.gCommitSize := xCommitSize;
381: end if;
382:
383: xErrLoc := 180;
384: -- get base and nls languages
399: where audsid = userenv('sessionid'));
400:
401: xErrLoc := 200;
402:
403: ICX_POR_EXT_UTL.debug(ICX_POR_EXT_UTL.MUST_LEVEL,
404: 'BEGIN Purge: system process id ' || gSpid);
405:
406: -- purge classification data
407: xErrLoc := 300;
410: -- purge item data
411: xErrLoc := 300;
412: ICX_POR_EXT_PURGE.purgeItemData;
413:
414: ICX_POR_EXT_UTL.debug(ICX_POR_EXT_UTL.MUST_LEVEL, 'END Purge');
415: ICX_POR_EXT_UTL.closeLog;
416:
417: EXCEPTION
418: when ICX_POR_EXT_UTL.gFatalException then
411: xErrLoc := 300;
412: ICX_POR_EXT_PURGE.purgeItemData;
413:
414: ICX_POR_EXT_UTL.debug(ICX_POR_EXT_UTL.MUST_LEVEL, 'END Purge');
415: ICX_POR_EXT_UTL.closeLog;
416:
417: EXCEPTION
418: when ICX_POR_EXT_UTL.gFatalException then
419: ICX_POR_EXT_UTL.extRollback;
414: ICX_POR_EXT_UTL.debug(ICX_POR_EXT_UTL.MUST_LEVEL, 'END Purge');
415: ICX_POR_EXT_UTL.closeLog;
416:
417: EXCEPTION
418: when ICX_POR_EXT_UTL.gFatalException then
419: ICX_POR_EXT_UTL.extRollback;
420: ICX_POR_EXT_UTL.pushError('ICX_POR_EXTRACTOR.purge-'||xErrLoc);
421: ICX_POR_EXT_UTL.printStackTrace;
422: ICX_POR_EXT_UTL.debug(ICX_POR_EXT_UTL.MUST_LEVEL, 'Purge Stopped');
415: ICX_POR_EXT_UTL.closeLog;
416:
417: EXCEPTION
418: when ICX_POR_EXT_UTL.gFatalException then
419: ICX_POR_EXT_UTL.extRollback;
420: ICX_POR_EXT_UTL.pushError('ICX_POR_EXTRACTOR.purge-'||xErrLoc);
421: ICX_POR_EXT_UTL.printStackTrace;
422: ICX_POR_EXT_UTL.debug(ICX_POR_EXT_UTL.MUST_LEVEL, 'Purge Stopped');
423: ICX_POR_EXT_UTL.closeLog;
416:
417: EXCEPTION
418: when ICX_POR_EXT_UTL.gFatalException then
419: ICX_POR_EXT_UTL.extRollback;
420: ICX_POR_EXT_UTL.pushError('ICX_POR_EXTRACTOR.purge-'||xErrLoc);
421: ICX_POR_EXT_UTL.printStackTrace;
422: ICX_POR_EXT_UTL.debug(ICX_POR_EXT_UTL.MUST_LEVEL, 'Purge Stopped');
423: ICX_POR_EXT_UTL.closeLog;
424: raise;
417: EXCEPTION
418: when ICX_POR_EXT_UTL.gFatalException then
419: ICX_POR_EXT_UTL.extRollback;
420: ICX_POR_EXT_UTL.pushError('ICX_POR_EXTRACTOR.purge-'||xErrLoc);
421: ICX_POR_EXT_UTL.printStackTrace;
422: ICX_POR_EXT_UTL.debug(ICX_POR_EXT_UTL.MUST_LEVEL, 'Purge Stopped');
423: ICX_POR_EXT_UTL.closeLog;
424: raise;
425: when ICX_POR_EXT_UTL.gException then
418: when ICX_POR_EXT_UTL.gFatalException then
419: ICX_POR_EXT_UTL.extRollback;
420: ICX_POR_EXT_UTL.pushError('ICX_POR_EXTRACTOR.purge-'||xErrLoc);
421: ICX_POR_EXT_UTL.printStackTrace;
422: ICX_POR_EXT_UTL.debug(ICX_POR_EXT_UTL.MUST_LEVEL, 'Purge Stopped');
423: ICX_POR_EXT_UTL.closeLog;
424: raise;
425: when ICX_POR_EXT_UTL.gException then
426: ICX_POR_EXT_UTL.extRollback;
419: ICX_POR_EXT_UTL.extRollback;
420: ICX_POR_EXT_UTL.pushError('ICX_POR_EXTRACTOR.purge-'||xErrLoc);
421: ICX_POR_EXT_UTL.printStackTrace;
422: ICX_POR_EXT_UTL.debug(ICX_POR_EXT_UTL.MUST_LEVEL, 'Purge Stopped');
423: ICX_POR_EXT_UTL.closeLog;
424: raise;
425: when ICX_POR_EXT_UTL.gException then
426: ICX_POR_EXT_UTL.extRollback;
427: ICX_POR_EXT_UTL.pushError('ICX_POR_EXTRACTOR.purge-'||xErrLoc);
421: ICX_POR_EXT_UTL.printStackTrace;
422: ICX_POR_EXT_UTL.debug(ICX_POR_EXT_UTL.MUST_LEVEL, 'Purge Stopped');
423: ICX_POR_EXT_UTL.closeLog;
424: raise;
425: when ICX_POR_EXT_UTL.gException then
426: ICX_POR_EXT_UTL.extRollback;
427: ICX_POR_EXT_UTL.pushError('ICX_POR_EXTRACTOR.purge-'||xErrLoc);
428: ICX_POR_EXT_UTL.printStackTrace;
429: ICX_POR_EXT_UTL.debug(ICX_POR_EXT_UTL.MUST_LEVEL, 'Purge Stopped');
422: ICX_POR_EXT_UTL.debug(ICX_POR_EXT_UTL.MUST_LEVEL, 'Purge Stopped');
423: ICX_POR_EXT_UTL.closeLog;
424: raise;
425: when ICX_POR_EXT_UTL.gException then
426: ICX_POR_EXT_UTL.extRollback;
427: ICX_POR_EXT_UTL.pushError('ICX_POR_EXTRACTOR.purge-'||xErrLoc);
428: ICX_POR_EXT_UTL.printStackTrace;
429: ICX_POR_EXT_UTL.debug(ICX_POR_EXT_UTL.MUST_LEVEL, 'Purge Stopped');
430: ICX_POR_EXT_UTL.closeLog;
423: ICX_POR_EXT_UTL.closeLog;
424: raise;
425: when ICX_POR_EXT_UTL.gException then
426: ICX_POR_EXT_UTL.extRollback;
427: ICX_POR_EXT_UTL.pushError('ICX_POR_EXTRACTOR.purge-'||xErrLoc);
428: ICX_POR_EXT_UTL.printStackTrace;
429: ICX_POR_EXT_UTL.debug(ICX_POR_EXT_UTL.MUST_LEVEL, 'Purge Stopped');
430: ICX_POR_EXT_UTL.closeLog;
431: raise;
424: raise;
425: when ICX_POR_EXT_UTL.gException then
426: ICX_POR_EXT_UTL.extRollback;
427: ICX_POR_EXT_UTL.pushError('ICX_POR_EXTRACTOR.purge-'||xErrLoc);
428: ICX_POR_EXT_UTL.printStackTrace;
429: ICX_POR_EXT_UTL.debug(ICX_POR_EXT_UTL.MUST_LEVEL, 'Purge Stopped');
430: ICX_POR_EXT_UTL.closeLog;
431: raise;
432: when others then
425: when ICX_POR_EXT_UTL.gException then
426: ICX_POR_EXT_UTL.extRollback;
427: ICX_POR_EXT_UTL.pushError('ICX_POR_EXTRACTOR.purge-'||xErrLoc);
428: ICX_POR_EXT_UTL.printStackTrace;
429: ICX_POR_EXT_UTL.debug(ICX_POR_EXT_UTL.MUST_LEVEL, 'Purge Stopped');
430: ICX_POR_EXT_UTL.closeLog;
431: raise;
432: when others then
433: ICX_POR_EXT_UTL.extRollback;
426: ICX_POR_EXT_UTL.extRollback;
427: ICX_POR_EXT_UTL.pushError('ICX_POR_EXTRACTOR.purge-'||xErrLoc);
428: ICX_POR_EXT_UTL.printStackTrace;
429: ICX_POR_EXT_UTL.debug(ICX_POR_EXT_UTL.MUST_LEVEL, 'Purge Stopped');
430: ICX_POR_EXT_UTL.closeLog;
431: raise;
432: when others then
433: ICX_POR_EXT_UTL.extRollback;
434: ICX_POR_EXT_UTL.pushError('ICX_POR_EXTRACTOR.purge-'||
429: ICX_POR_EXT_UTL.debug(ICX_POR_EXT_UTL.MUST_LEVEL, 'Purge Stopped');
430: ICX_POR_EXT_UTL.closeLog;
431: raise;
432: when others then
433: ICX_POR_EXT_UTL.extRollback;
434: ICX_POR_EXT_UTL.pushError('ICX_POR_EXTRACTOR.purge-'||
435: xErrLoc||' '||SQLERRM);
436: ICX_POR_EXT_UTL.printStackTrace;
437: ICX_POR_EXT_UTL.debug(ICX_POR_EXT_UTL.MUST_LEVEL, 'Purge Stopped');
430: ICX_POR_EXT_UTL.closeLog;
431: raise;
432: when others then
433: ICX_POR_EXT_UTL.extRollback;
434: ICX_POR_EXT_UTL.pushError('ICX_POR_EXTRACTOR.purge-'||
435: xErrLoc||' '||SQLERRM);
436: ICX_POR_EXT_UTL.printStackTrace;
437: ICX_POR_EXT_UTL.debug(ICX_POR_EXT_UTL.MUST_LEVEL, 'Purge Stopped');
438: ICX_POR_EXT_UTL.closeLog;
432: when others then
433: ICX_POR_EXT_UTL.extRollback;
434: ICX_POR_EXT_UTL.pushError('ICX_POR_EXTRACTOR.purge-'||
435: xErrLoc||' '||SQLERRM);
436: ICX_POR_EXT_UTL.printStackTrace;
437: ICX_POR_EXT_UTL.debug(ICX_POR_EXT_UTL.MUST_LEVEL, 'Purge Stopped');
438: ICX_POR_EXT_UTL.closeLog;
439: raise;
440: END purge;
433: ICX_POR_EXT_UTL.extRollback;
434: ICX_POR_EXT_UTL.pushError('ICX_POR_EXTRACTOR.purge-'||
435: xErrLoc||' '||SQLERRM);
436: ICX_POR_EXT_UTL.printStackTrace;
437: ICX_POR_EXT_UTL.debug(ICX_POR_EXT_UTL.MUST_LEVEL, 'Purge Stopped');
438: ICX_POR_EXT_UTL.closeLog;
439: raise;
440: END purge;
441:
434: ICX_POR_EXT_UTL.pushError('ICX_POR_EXTRACTOR.purge-'||
435: xErrLoc||' '||SQLERRM);
436: ICX_POR_EXT_UTL.printStackTrace;
437: ICX_POR_EXT_UTL.debug(ICX_POR_EXT_UTL.MUST_LEVEL, 'Purge Stopped');
438: ICX_POR_EXT_UTL.closeLog;
439: raise;
440: END purge;
441:
442: