191: -- time values from gmt. default to GMT if server time zone is not set.
192: G_SERVER_TZ := FND_PROFILE.VALUE('SERVER_TIMEZONE_ID');
193: IF (G_SERVER_TZ IS NULL) THEN
194:
195: --FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_NO_TZ');
196: --FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
197:
198:
199: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
192: G_SERVER_TZ := FND_PROFILE.VALUE('SERVER_TIMEZONE_ID');
193: IF (G_SERVER_TZ IS NULL) THEN
194:
195: --FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_NO_TZ');
196: --FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
197:
198:
199: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
200: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_NO_TZ');
196: --FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
197:
198:
199: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
200: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_NO_TZ');
201: FND_LOG.MESSAGE(FND_LOG.LEVEL_STATEMENT,
202: 'jtf.plsql.JTF_IH_BULK.BULK_PROCESSOR_CONC', TRUE);
203: END IF;
204: G_SERVER_TZ := 0;
354:
355: g_hrt_beat := -53;
356:
357: -- logging High Level: Found a bulk request of zero length
358: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_ZERO_LEN_REQ');
359: FND_MESSAGE.SET_TOKEN('WRITER_CODE', bulk_obj.bulkWriterCode);
360: FND_MESSAGE.SET_TOKEN('BATCH_TYPE', bulk_obj.bulkBatchType);
361: FND_MESSAGE.SET_TOKEN('BATCH_ID', bulk_obj.bulkBatchId);
362: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
355: g_hrt_beat := -53;
356:
357: -- logging High Level: Found a bulk request of zero length
358: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_ZERO_LEN_REQ');
359: FND_MESSAGE.SET_TOKEN('WRITER_CODE', bulk_obj.bulkWriterCode);
360: FND_MESSAGE.SET_TOKEN('BATCH_TYPE', bulk_obj.bulkBatchType);
361: FND_MESSAGE.SET_TOKEN('BATCH_ID', bulk_obj.bulkBatchId);
362: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
363:
356:
357: -- logging High Level: Found a bulk request of zero length
358: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_ZERO_LEN_REQ');
359: FND_MESSAGE.SET_TOKEN('WRITER_CODE', bulk_obj.bulkWriterCode);
360: FND_MESSAGE.SET_TOKEN('BATCH_TYPE', bulk_obj.bulkBatchType);
361: FND_MESSAGE.SET_TOKEN('BATCH_ID', bulk_obj.bulkBatchId);
362: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
363:
364:
357: -- logging High Level: Found a bulk request of zero length
358: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_ZERO_LEN_REQ');
359: FND_MESSAGE.SET_TOKEN('WRITER_CODE', bulk_obj.bulkWriterCode);
360: FND_MESSAGE.SET_TOKEN('BATCH_TYPE', bulk_obj.bulkBatchType);
361: FND_MESSAGE.SET_TOKEN('BATCH_ID', bulk_obj.bulkBatchId);
362: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
363:
364:
365: -- logging Detail Level: Found a bulk request of zero length
358: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_ZERO_LEN_REQ');
359: FND_MESSAGE.SET_TOKEN('WRITER_CODE', bulk_obj.bulkWriterCode);
360: FND_MESSAGE.SET_TOKEN('BATCH_TYPE', bulk_obj.bulkBatchType);
361: FND_MESSAGE.SET_TOKEN('BATCH_ID', bulk_obj.bulkBatchId);
362: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
363:
364:
365: -- logging Detail Level: Found a bulk request of zero length
366: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
363:
364:
365: -- logging Detail Level: Found a bulk request of zero length
366: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
367: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_ZERO_LEN_REQ');
368: FND_MESSAGE.SET_TOKEN('WRITER_CODE', bulk_obj.bulkWriterCode);
369: FND_MESSAGE.SET_TOKEN('BATCH_TYPE', bulk_obj.bulkBatchType);
370: FND_MESSAGE.SET_TOKEN('BATCH_ID', bulk_obj.bulkBatchId);
371: FND_LOG.MESSAGE(FND_LOG.LEVEL_STATEMENT,
364:
365: -- logging Detail Level: Found a bulk request of zero length
366: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
367: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_ZERO_LEN_REQ');
368: FND_MESSAGE.SET_TOKEN('WRITER_CODE', bulk_obj.bulkWriterCode);
369: FND_MESSAGE.SET_TOKEN('BATCH_TYPE', bulk_obj.bulkBatchType);
370: FND_MESSAGE.SET_TOKEN('BATCH_ID', bulk_obj.bulkBatchId);
371: FND_LOG.MESSAGE(FND_LOG.LEVEL_STATEMENT,
372: 'jtf.plsql.JTF_IH_BULK.BULK_PROCESSOR_CONC', TRUE);
365: -- logging Detail Level: Found a bulk request of zero length
366: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
367: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_ZERO_LEN_REQ');
368: FND_MESSAGE.SET_TOKEN('WRITER_CODE', bulk_obj.bulkWriterCode);
369: FND_MESSAGE.SET_TOKEN('BATCH_TYPE', bulk_obj.bulkBatchType);
370: FND_MESSAGE.SET_TOKEN('BATCH_ID', bulk_obj.bulkBatchId);
371: FND_LOG.MESSAGE(FND_LOG.LEVEL_STATEMENT,
372: 'jtf.plsql.JTF_IH_BULK.BULK_PROCESSOR_CONC', TRUE);
373: END IF;
366: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
367: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_ZERO_LEN_REQ');
368: FND_MESSAGE.SET_TOKEN('WRITER_CODE', bulk_obj.bulkWriterCode);
369: FND_MESSAGE.SET_TOKEN('BATCH_TYPE', bulk_obj.bulkBatchType);
370: FND_MESSAGE.SET_TOKEN('BATCH_ID', bulk_obj.bulkBatchId);
371: FND_LOG.MESSAGE(FND_LOG.LEVEL_STATEMENT,
372: 'jtf.plsql.JTF_IH_BULK.BULK_PROCESSOR_CONC', TRUE);
373: END IF;
374:
409: l_not_eof := FALSE;
410:
411: -- logging Detail Level: End of records in Advanced Queue
412: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
413: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_AQ_EOF');
414: FND_MESSAGE.SET_TOKEN('NUM_REC', num_rec);
415: FND_LOG.MESSAGE(FND_LOG.LEVEL_STATEMENT,
416: 'jtf.plsql.JTF_IH_BULK.BULK_PROCESSOR_CONC', TRUE);
417: END IF;
410:
411: -- logging Detail Level: End of records in Advanced Queue
412: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
413: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_AQ_EOF');
414: FND_MESSAGE.SET_TOKEN('NUM_REC', num_rec);
415: FND_LOG.MESSAGE(FND_LOG.LEVEL_STATEMENT,
416: 'jtf.plsql.JTF_IH_BULK.BULK_PROCESSOR_CONC', TRUE);
417: END IF;
418:
416: 'jtf.plsql.JTF_IH_BULK.BULK_PROCESSOR_CONC', TRUE);
417: END IF;
418:
419: -- logging High Level: End of records in Advanced Queue
420: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_AQ_EOF');
421: FND_MESSAGE.SET_TOKEN('NUM_REC', num_rec);
422: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
423:
424: -- output this irrespective of stats flag so that there is some
417: END IF;
418:
419: -- logging High Level: End of records in Advanced Queue
420: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_AQ_EOF');
421: FND_MESSAGE.SET_TOKEN('NUM_REC', num_rec);
422: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
423:
424: -- output this irrespective of stats flag so that there is some
425: -- indication of work done.
418:
419: -- logging High Level: End of records in Advanced Queue
420: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_AQ_EOF');
421: FND_MESSAGE.SET_TOKEN('NUM_REC', num_rec);
422: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
423:
424: -- output this irrespective of stats flag so that there is some
425: -- indication of work done.
426:
423:
424: -- output this irrespective of stats flag so that there is some
425: -- indication of work done.
426:
427: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_AQ_EOF');
428: FND_MESSAGE.SET_TOKEN('NUM_REC', num_rec);
429: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
430:
431: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_NUM_REC_PROC');
424: -- output this irrespective of stats flag so that there is some
425: -- indication of work done.
426:
427: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_AQ_EOF');
428: FND_MESSAGE.SET_TOKEN('NUM_REC', num_rec);
429: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
430:
431: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_NUM_REC_PROC');
432: FND_MESSAGE.SET_TOKEN('NUM_REC', num_rec);
425: -- indication of work done.
426:
427: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_AQ_EOF');
428: FND_MESSAGE.SET_TOKEN('NUM_REC', num_rec);
429: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
430:
431: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_NUM_REC_PROC');
432: FND_MESSAGE.SET_TOKEN('NUM_REC', num_rec);
433: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
427: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_AQ_EOF');
428: FND_MESSAGE.SET_TOKEN('NUM_REC', num_rec);
429: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
430:
431: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_NUM_REC_PROC');
432: FND_MESSAGE.SET_TOKEN('NUM_REC', num_rec);
433: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
434:
435: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_NUM_TOTAL_INT');
428: FND_MESSAGE.SET_TOKEN('NUM_REC', num_rec);
429: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
430:
431: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_NUM_REC_PROC');
432: FND_MESSAGE.SET_TOKEN('NUM_REC', num_rec);
433: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
434:
435: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_NUM_TOTAL_INT');
436: FND_MESSAGE.SET_TOKEN('NUM_INT', G_NUM_INT_TOTAL);
429: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
430:
431: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_NUM_REC_PROC');
432: FND_MESSAGE.SET_TOKEN('NUM_REC', num_rec);
433: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
434:
435: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_NUM_TOTAL_INT');
436: FND_MESSAGE.SET_TOKEN('NUM_INT', G_NUM_INT_TOTAL);
437: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
431: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_NUM_REC_PROC');
432: FND_MESSAGE.SET_TOKEN('NUM_REC', num_rec);
433: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
434:
435: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_NUM_TOTAL_INT');
436: FND_MESSAGE.SET_TOKEN('NUM_INT', G_NUM_INT_TOTAL);
437: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
438:
439: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_NUM_OK_INT');
432: FND_MESSAGE.SET_TOKEN('NUM_REC', num_rec);
433: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
434:
435: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_NUM_TOTAL_INT');
436: FND_MESSAGE.SET_TOKEN('NUM_INT', G_NUM_INT_TOTAL);
437: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
438:
439: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_NUM_OK_INT');
440: FND_MESSAGE.SET_TOKEN('NUM_INT', G_NUM_INT_PROC_TOTAL);
433: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
434:
435: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_NUM_TOTAL_INT');
436: FND_MESSAGE.SET_TOKEN('NUM_INT', G_NUM_INT_TOTAL);
437: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
438:
439: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_NUM_OK_INT');
440: FND_MESSAGE.SET_TOKEN('NUM_INT', G_NUM_INT_PROC_TOTAL);
441: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
435: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_NUM_TOTAL_INT');
436: FND_MESSAGE.SET_TOKEN('NUM_INT', G_NUM_INT_TOTAL);
437: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
438:
439: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_NUM_OK_INT');
440: FND_MESSAGE.SET_TOKEN('NUM_INT', G_NUM_INT_PROC_TOTAL);
441: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
442:
443: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_NUM_ERR_INT');
436: FND_MESSAGE.SET_TOKEN('NUM_INT', G_NUM_INT_TOTAL);
437: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
438:
439: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_NUM_OK_INT');
440: FND_MESSAGE.SET_TOKEN('NUM_INT', G_NUM_INT_PROC_TOTAL);
441: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
442:
443: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_NUM_ERR_INT');
444: FND_MESSAGE.SET_TOKEN('NUM_INT', (G_NUM_INT_TOTAL-G_NUM_INT_PROC_TOTAL));
437: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
438:
439: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_NUM_OK_INT');
440: FND_MESSAGE.SET_TOKEN('NUM_INT', G_NUM_INT_PROC_TOTAL);
441: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
442:
443: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_NUM_ERR_INT');
444: FND_MESSAGE.SET_TOKEN('NUM_INT', (G_NUM_INT_TOTAL-G_NUM_INT_PROC_TOTAL));
445: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
439: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_NUM_OK_INT');
440: FND_MESSAGE.SET_TOKEN('NUM_INT', G_NUM_INT_PROC_TOTAL);
441: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
442:
443: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_NUM_ERR_INT');
444: FND_MESSAGE.SET_TOKEN('NUM_INT', (G_NUM_INT_TOTAL-G_NUM_INT_PROC_TOTAL));
445: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
446:
447: WHEN OTHERS THEN
440: FND_MESSAGE.SET_TOKEN('NUM_INT', G_NUM_INT_PROC_TOTAL);
441: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
442:
443: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_NUM_ERR_INT');
444: FND_MESSAGE.SET_TOKEN('NUM_INT', (G_NUM_INT_TOTAL-G_NUM_INT_PROC_TOTAL));
445: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
446:
447: WHEN OTHERS THEN
448: RAISE;
441: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
442:
443: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_NUM_ERR_INT');
444: FND_MESSAGE.SET_TOKEN('NUM_INT', (G_NUM_INT_TOTAL-G_NUM_INT_PROC_TOTAL));
445: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
446:
447: WHEN OTHERS THEN
448: RAISE;
449: END;
459: IF (SQL%ROWCOUNT > 1) THEN
460:
461: -- High level logging:The number of records deleted from
462: -- the recovery table during cleanup is not 1 as expected
463: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_RECOV_DEL_WARN');
464: FND_MESSAGE.SET_TOKEN('ROW_COUNT', SQL%ROWCOUNT);
465: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
466:
467: IF( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
460:
461: -- High level logging:The number of records deleted from
462: -- the recovery table during cleanup is not 1 as expected
463: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_RECOV_DEL_WARN');
464: FND_MESSAGE.SET_TOKEN('ROW_COUNT', SQL%ROWCOUNT);
465: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
466:
467: IF( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
468: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_RECOV_DEL_WARN');
461: -- High level logging:The number of records deleted from
462: -- the recovery table during cleanup is not 1 as expected
463: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_RECOV_DEL_WARN');
464: FND_MESSAGE.SET_TOKEN('ROW_COUNT', SQL%ROWCOUNT);
465: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
466:
467: IF( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
468: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_RECOV_DEL_WARN');
469: FND_MESSAGE.SET_TOKEN('ROW_COUNT', SQL%ROWCOUNT);
464: FND_MESSAGE.SET_TOKEN('ROW_COUNT', SQL%ROWCOUNT);
465: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
466:
467: IF( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
468: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_RECOV_DEL_WARN');
469: FND_MESSAGE.SET_TOKEN('ROW_COUNT', SQL%ROWCOUNT);
470: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,
471: 'jtf.plsql.JTF_IH_BULK.BULK_PROCESSOR_CONC', TRUE);
472: END IF;
465: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
466:
467: IF( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
468: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_RECOV_DEL_WARN');
469: FND_MESSAGE.SET_TOKEN('ROW_COUNT', SQL%ROWCOUNT);
470: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,
471: 'jtf.plsql.JTF_IH_BULK.BULK_PROCESSOR_CONC', TRUE);
472: END IF;
473:
542: -- set return values accordingly
543: -- per documentation - The parameter retcode returns 0 for success,
544: -- 1 for success with warnings, and 2 for error.
545: retcode := '0';
546: errbuf := FND_MESSAGE.GET_STRING('JTF', 'JTF_IH_BULK_OK');
547:
548: FND_FILE.PUT_LINE(FND_FILE.LOG, errbuf);
549:
550: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
564: BEGIN
565:
566: errm := SQLERRM;
567: IF (errm IS NULL) THEN
568: errm := FND_MESSAGE.GET_STRING('JTF', 'JTF_IH_BULK_NOERRM');
569: END IF;
570:
571: LOG_EXC_OTHERS('BULK_PROCESSOR_CONC');
572:
578: END IF;*/
579:
580: retcode := '2';
581:
582: FND_MESSAGE.set_name('JTF', 'JTF_IH_BULK_FAIL');
583:
584:
585: FND_MESSAGE.set_token('ERR_MSG', SQLERRM);
586: errbuf := FND_MSG_PUB.GET();
581:
582: FND_MESSAGE.set_name('JTF', 'JTF_IH_BULK_FAIL');
583:
584:
585: FND_MESSAGE.set_token('ERR_MSG', SQLERRM);
586: errbuf := FND_MSG_PUB.GET();
587: FND_FILE.PUT_LINE(FND_FILE.LOG, errbuf);
588:
589: IF( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
849:
850: -- if the resource_id is not valid, don't attempt logging this interaction
851: EXCEPTION
852: WHEN NO_DATA_FOUND THEN
853: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_INVALID_RESOURCE_ID');
854: FND_MESSAGE.SET_TOKEN('RESOURCE_ID', l_resource_id);
855: l_error_msgLOG := FND_MESSAGE.GET;
856:
857: --Logging Detail Level
850: -- if the resource_id is not valid, don't attempt logging this interaction
851: EXCEPTION
852: WHEN NO_DATA_FOUND THEN
853: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_INVALID_RESOURCE_ID');
854: FND_MESSAGE.SET_TOKEN('RESOURCE_ID', l_resource_id);
855: l_error_msgLOG := FND_MESSAGE.GET;
856:
857: --Logging Detail Level
858: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
851: EXCEPTION
852: WHEN NO_DATA_FOUND THEN
853: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_INVALID_RESOURCE_ID');
854: FND_MESSAGE.SET_TOKEN('RESOURCE_ID', l_resource_id);
855: l_error_msgLOG := FND_MESSAGE.GET;
856:
857: --Logging Detail Level
858: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
859: l_fnd_log_msg := l_error_msgLOG;
914: l_error := 'JTF_IH_BULK_ACT_FAIL';
915:
916: --Logging Detail Level
917: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
918: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_ACT_FAIL');
919: FND_LOG.MESSAGE(FND_LOG.LEVEL_STATEMENT,
920: 'jtf.plsql.JTF_IH_BULK.PROCESS_BULK_RECORD', TRUE);
921: END IF;
922:
936: l_ret_status, l_ret_msg);
937:
938: IF (l_ret_status <> FND_API.G_RET_STS_SUCCESS) THEN
939: l_error := 'JTF_IH_BULK_ACT_FAIL';
940: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_INT_FAIL');
941: l_ret_msg := FND_MESSAGE.GET ||' '|| l_ret_msg;
942: --FND_FILE.PUT_LINE(FND_FILE.LOG, l_ret_msg);
943: l_error_msgLOG := l_ret_msg;
944: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
937:
938: IF (l_ret_status <> FND_API.G_RET_STS_SUCCESS) THEN
939: l_error := 'JTF_IH_BULK_ACT_FAIL';
940: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_INT_FAIL');
941: l_ret_msg := FND_MESSAGE.GET ||' '|| l_ret_msg;
942: --FND_FILE.PUT_LINE(FND_FILE.LOG, l_ret_msg);
943: l_error_msgLOG := l_ret_msg;
944: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
945: l_fnd_log_msg := l_ret_msg;
975: --FND_FILE.PUT_LINE(FND_FILE.OUTPUT, l_error || ', msg_count = ' || l_msg_count);
976:
977: --Logging Detail Level
978: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
979: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_INT_FAIL2');
980: FND_MESSAGE.SET_TOKEN('RTN_NAME', 'Create_Interaction');
981: FND_MESSAGE.SET_TOKEN('MSG_COUNT', l_msg_count);
982: FND_LOG.MESSAGE(FND_LOG.LEVEL_STATEMENT,
983: 'jtf.plsql.JTF_IH_BULK.PROCESS_BULK_RECORD', TRUE);
976:
977: --Logging Detail Level
978: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
979: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_INT_FAIL2');
980: FND_MESSAGE.SET_TOKEN('RTN_NAME', 'Create_Interaction');
981: FND_MESSAGE.SET_TOKEN('MSG_COUNT', l_msg_count);
982: FND_LOG.MESSAGE(FND_LOG.LEVEL_STATEMENT,
983: 'jtf.plsql.JTF_IH_BULK.PROCESS_BULK_RECORD', TRUE);
984: END IF;
977: --Logging Detail Level
978: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
979: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_INT_FAIL2');
980: FND_MESSAGE.SET_TOKEN('RTN_NAME', 'Create_Interaction');
981: FND_MESSAGE.SET_TOKEN('MSG_COUNT', l_msg_count);
982: FND_LOG.MESSAGE(FND_LOG.LEVEL_STATEMENT,
983: 'jtf.plsql.JTF_IH_BULK.PROCESS_BULK_RECORD', TRUE);
984: END IF;
985:
984: END IF;
985:
986: FOR i in 1..l_msg_count LOOP
987: l_msg_data := FND_MSG_PUB.Get(i, 'F');
988: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_ERROR_MSG');
989: FND_MESSAGE.SET_TOKEN('MSG_NUM', i);
990: FND_MESSAGE.SET_TOKEN('MSG_TXT', l_msg_data);
991: l_error_msgLOG := l_error_msgLOG ||' '|| FND_MESSAGE.GET;
992: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
985:
986: FOR i in 1..l_msg_count LOOP
987: l_msg_data := FND_MSG_PUB.Get(i, 'F');
988: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_ERROR_MSG');
989: FND_MESSAGE.SET_TOKEN('MSG_NUM', i);
990: FND_MESSAGE.SET_TOKEN('MSG_TXT', l_msg_data);
991: l_error_msgLOG := l_error_msgLOG ||' '|| FND_MESSAGE.GET;
992: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
993: l_fnd_log_msg := l_error_msgLOG;
986: FOR i in 1..l_msg_count LOOP
987: l_msg_data := FND_MSG_PUB.Get(i, 'F');
988: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_ERROR_MSG');
989: FND_MESSAGE.SET_TOKEN('MSG_NUM', i);
990: FND_MESSAGE.SET_TOKEN('MSG_TXT', l_msg_data);
991: l_error_msgLOG := l_error_msgLOG ||' '|| FND_MESSAGE.GET;
992: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
993: l_fnd_log_msg := l_error_msgLOG;
994: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
987: l_msg_data := FND_MSG_PUB.Get(i, 'F');
988: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_ERROR_MSG');
989: FND_MESSAGE.SET_TOKEN('MSG_NUM', i);
990: FND_MESSAGE.SET_TOKEN('MSG_TXT', l_msg_data);
991: l_error_msgLOG := l_error_msgLOG ||' '|| FND_MESSAGE.GET;
992: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
993: l_fnd_log_msg := l_error_msgLOG;
994: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
995: 'jtf.plsql.JTF_IH_BULK.PROCESS_BULK_RECORD', l_error_msgLOG);
1071: -- bulk request.
1072: WHEN processing_error THEN
1073:
1074: IF( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1075: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_INT_NODE_ERR');
1076: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,
1077: 'jtf.plsql.JTF_IH_BULK.PROCESS_BULK_RECORD', TRUE);
1078: END IF;
1079:
1089: g_hrt_beat := 11.64;
1090: l_error_msgLOG := SQLERRM;
1091: ELSE
1092: g_hrt_beat := 11.61;
1093: l_err_msg := FND_MESSAGE.GET_STRING('JTF', l_error);
1094: END IF;
1095:
1096: g_hrt_beat := 11.65;
1097:
1182:
1183:
1184: FND_FILE.PUT_LINE(FND_FILE.LOG, errm);
1185:
1186: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_REQ_FAIL2');
1187: FND_MESSAGE.SET_TOKEN('NUM_INT_DONE', l_num_int_done);
1188: FND_MESSAGE.SET_TOKEN('NUM_INT_COMMIT', l_commit_int_num);
1189:
1190: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
1183:
1184: FND_FILE.PUT_LINE(FND_FILE.LOG, errm);
1185:
1186: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_REQ_FAIL2');
1187: FND_MESSAGE.SET_TOKEN('NUM_INT_DONE', l_num_int_done);
1188: FND_MESSAGE.SET_TOKEN('NUM_INT_COMMIT', l_commit_int_num);
1189:
1190: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
1191:
1184: FND_FILE.PUT_LINE(FND_FILE.LOG, errm);
1185:
1186: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_REQ_FAIL2');
1187: FND_MESSAGE.SET_TOKEN('NUM_INT_DONE', l_num_int_done);
1188: FND_MESSAGE.SET_TOKEN('NUM_INT_COMMIT', l_commit_int_num);
1189:
1190: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
1191:
1192: IF( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1186: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_REQ_FAIL2');
1187: FND_MESSAGE.SET_TOKEN('NUM_INT_DONE', l_num_int_done);
1188: FND_MESSAGE.SET_TOKEN('NUM_INT_COMMIT', l_commit_int_num);
1189:
1190: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
1191:
1192: IF( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1193: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_REQ_FAIL2');
1194: FND_MESSAGE.SET_TOKEN('NUM_INT_DONE', l_num_int_done);
1189:
1190: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
1191:
1192: IF( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1193: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_REQ_FAIL2');
1194: FND_MESSAGE.SET_TOKEN('NUM_INT_DONE', l_num_int_done);
1195: FND_MESSAGE.SET_TOKEN('NUM_INT_COMMIT', l_commit_int_num);
1196: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,
1197: 'jtf.plsql.JTF_IH_BULK.PROCESS_BULK_RECORD', TRUE);
1190: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
1191:
1192: IF( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1193: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_REQ_FAIL2');
1194: FND_MESSAGE.SET_TOKEN('NUM_INT_DONE', l_num_int_done);
1195: FND_MESSAGE.SET_TOKEN('NUM_INT_COMMIT', l_commit_int_num);
1196: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,
1197: 'jtf.plsql.JTF_IH_BULK.PROCESS_BULK_RECORD', TRUE);
1198: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
1191:
1192: IF( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1193: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_REQ_FAIL2');
1194: FND_MESSAGE.SET_TOKEN('NUM_INT_DONE', l_num_int_done);
1195: FND_MESSAGE.SET_TOKEN('NUM_INT_COMMIT', l_commit_int_num);
1196: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,
1197: 'jtf.plsql.JTF_IH_BULK.PROCESS_BULK_RECORD', TRUE);
1198: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
1199: 'jtf.plsql.JTF_IH_BULK.PROCESS_BULK_RECORD',errm);
1207: p_bulk_batch_type,
1208: p_bulk_batch_id,
1209: l_bulk_interaction_id,
1210: p_bulk_interaction_request,
1211: FND_MESSAGE.GET_STRING('JTF','JTF_IH_BULK_REQ_FAIL'),
1212: errm);
1213: l_ret_status := FND_API.G_RET_STS_ERROR;
1214: END;
1215:
1544: -- this exception is raised if any of the JTF_IH_PUB's media calls fail.
1545: WHEN media_exception THEN
1546:
1547: IF( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1548: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_MEDIA_FAIL2');
1549: FND_MESSAGE.SET_TOKEN('RTN_NAME', l_rtn_name);
1550: FND_MESSAGE.SET_TOKEN('MSG_COUNT', l_msg_count);
1551: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,
1552: 'jtf.plsql.JTF_IH_BULK.PROCESS_MEDIA_ITEMS.end', TRUE);
1545: WHEN media_exception THEN
1546:
1547: IF( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1548: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_MEDIA_FAIL2');
1549: FND_MESSAGE.SET_TOKEN('RTN_NAME', l_rtn_name);
1550: FND_MESSAGE.SET_TOKEN('MSG_COUNT', l_msg_count);
1551: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,
1552: 'jtf.plsql.JTF_IH_BULK.PROCESS_MEDIA_ITEMS.end', TRUE);
1553: END IF;
1546:
1547: IF( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1548: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_MEDIA_FAIL2');
1549: FND_MESSAGE.SET_TOKEN('RTN_NAME', l_rtn_name);
1550: FND_MESSAGE.SET_TOKEN('MSG_COUNT', l_msg_count);
1551: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,
1552: 'jtf.plsql.JTF_IH_BULK.PROCESS_MEDIA_ITEMS.end', TRUE);
1553: END IF;
1554:
1555: x_ret_msg := '';
1556: FOR i in 1..l_msg_count LOOP
1557: l_msg_data := FND_MSG_PUB.Get(i, 'F');
1558:
1559: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_ERROR_MSG');
1560: FND_MESSAGE.SET_TOKEN('MSG_NUM', i);
1561: FND_MESSAGE.SET_TOKEN('MSG_TXT', l_msg_data);
1562: l_err_media := FND_MESSAGE.GET;
1563: --FND_FILE.PUT_LINE(FND_FILE.LOG, l_err_media);
1556: FOR i in 1..l_msg_count LOOP
1557: l_msg_data := FND_MSG_PUB.Get(i, 'F');
1558:
1559: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_ERROR_MSG');
1560: FND_MESSAGE.SET_TOKEN('MSG_NUM', i);
1561: FND_MESSAGE.SET_TOKEN('MSG_TXT', l_msg_data);
1562: l_err_media := FND_MESSAGE.GET;
1563: --FND_FILE.PUT_LINE(FND_FILE.LOG, l_err_media);
1564:
1557: l_msg_data := FND_MSG_PUB.Get(i, 'F');
1558:
1559: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_ERROR_MSG');
1560: FND_MESSAGE.SET_TOKEN('MSG_NUM', i);
1561: FND_MESSAGE.SET_TOKEN('MSG_TXT', l_msg_data);
1562: l_err_media := FND_MESSAGE.GET;
1563: --FND_FILE.PUT_LINE(FND_FILE.LOG, l_err_media);
1564:
1565: x_ret_msg := x_ret_msg || l_err_media;
1558:
1559: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_ERROR_MSG');
1560: FND_MESSAGE.SET_TOKEN('MSG_NUM', i);
1561: FND_MESSAGE.SET_TOKEN('MSG_TXT', l_msg_data);
1562: l_err_media := FND_MESSAGE.GET;
1563: --FND_FILE.PUT_LINE(FND_FILE.LOG, l_err_media);
1564:
1565: x_ret_msg := x_ret_msg || l_err_media;
1566:
1581: error NUMBER := SQLCODE;
1582: errm varchar2(300) := SQLERRM;
1583: BEGIN
1584: IF( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1585: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_MEDIA_FAIL_UNEXP');
1586: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,
1587: 'jtf.plsql.JTF_IH_BULK.PROCESS_MEDIA_ITEMS', TRUE);
1588: END IF;
1589:
1586: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,
1587: 'jtf.plsql.JTF_IH_BULK.PROCESS_MEDIA_ITEMS', TRUE);
1588: END IF;
1589:
1590: --FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
1591: IF( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1592: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_ERR_CODE_MSG');
1593: FND_MESSAGE.SET_TOKEN('ERR_CODE', error);
1594: FND_MESSAGE.SET_TOKEN('ERR_MSG', errm);
1588: END IF;
1589:
1590: --FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
1591: IF( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1592: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_ERR_CODE_MSG');
1593: FND_MESSAGE.SET_TOKEN('ERR_CODE', error);
1594: FND_MESSAGE.SET_TOKEN('ERR_MSG', errm);
1595: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,
1596: 'jtf.plsql.JTF_IH_BULK.PROCESS_MEDIA_ITEMS', TRUE);
1589:
1590: --FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
1591: IF( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1592: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_ERR_CODE_MSG');
1593: FND_MESSAGE.SET_TOKEN('ERR_CODE', error);
1594: FND_MESSAGE.SET_TOKEN('ERR_MSG', errm);
1595: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,
1596: 'jtf.plsql.JTF_IH_BULK.PROCESS_MEDIA_ITEMS', TRUE);
1597: END IF;
1590: --FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
1591: IF( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1592: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_ERR_CODE_MSG');
1593: FND_MESSAGE.SET_TOKEN('ERR_CODE', error);
1594: FND_MESSAGE.SET_TOKEN('ERR_MSG', errm);
1595: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,
1596: 'jtf.plsql.JTF_IH_BULK.PROCESS_MEDIA_ITEMS', TRUE);
1597: END IF;
1598:
1595: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,
1596: 'jtf.plsql.JTF_IH_BULK.PROCESS_MEDIA_ITEMS', TRUE);
1597: END IF;
1598:
1599: --FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
1600:
1601: x_ret_msg := errm;
1602:
1603: -- an unknown exception is always unexpected
1762: errm varchar2(300) := SQLERRM;
1763: BEGIN
1764:
1765: IF( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1766: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_ACT_FAIL_UNEXP');
1767: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,
1768: 'jtf.plsql.JTF_IH_BULK.GATHER_ACT_TBL', TRUE);
1769: END IF;
1770:
1767: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,
1768: 'jtf.plsql.JTF_IH_BULK.GATHER_ACT_TBL', TRUE);
1769: END IF;
1770:
1771: --FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
1772:
1773: IF( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1774: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_ERR_CODE_MSG');
1775: FND_MESSAGE.SET_TOKEN('ERR_CODE', error);
1770:
1771: --FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
1772:
1773: IF( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1774: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_ERR_CODE_MSG');
1775: FND_MESSAGE.SET_TOKEN('ERR_CODE', error);
1776: FND_MESSAGE.SET_TOKEN('ERR_MSG', errm);
1777: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,
1778: 'jtf.plsql.JTF_IH_BULK.GATHER_ACT_TBL', TRUE);
1771: --FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
1772:
1773: IF( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1774: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_ERR_CODE_MSG');
1775: FND_MESSAGE.SET_TOKEN('ERR_CODE', error);
1776: FND_MESSAGE.SET_TOKEN('ERR_MSG', errm);
1777: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,
1778: 'jtf.plsql.JTF_IH_BULK.GATHER_ACT_TBL', TRUE);
1779: END IF;
1772:
1773: IF( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1774: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_ERR_CODE_MSG');
1775: FND_MESSAGE.SET_TOKEN('ERR_CODE', error);
1776: FND_MESSAGE.SET_TOKEN('ERR_MSG', errm);
1777: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,
1778: 'jtf.plsql.JTF_IH_BULK.GATHER_ACT_TBL', TRUE);
1779: END IF;
1780:
1777: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,
1778: 'jtf.plsql.JTF_IH_BULK.GATHER_ACT_TBL', TRUE);
1779: END IF;
1780:
1781: --FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
1782:
1783: x_ret_msg := errm;
1784: END;
1785:
2015: EXCEPTION
2016: WHEN OTHERS THEN
2017:
2018: IF( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2019: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_LOG1_FAIL');
2020: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,
2021: 'jtf.plsql.JTF_IH_BULK.LOG_BULK_ERROR', TRUE);
2022: END IF;
2023:
2020: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,
2021: 'jtf.plsql.JTF_IH_BULK.LOG_BULK_ERROR', TRUE);
2022: END IF;
2023:
2024: --FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
2025:
2026: IF( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2027: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_ERR_CODE_MSG');
2028: FND_MESSAGE.SET_TOKEN('ERR_CODE', SQLCODE);
2023:
2024: --FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
2025:
2026: IF( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2027: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_ERR_CODE_MSG');
2028: FND_MESSAGE.SET_TOKEN('ERR_CODE', SQLCODE);
2029: FND_MESSAGE.SET_TOKEN('ERR_MSG', SQLERRM);
2030: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,
2031: 'jtf.plsql.JTF_IH_BULK.LOG_BULK_ERROR', TRUE);
2024: --FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
2025:
2026: IF( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2027: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_ERR_CODE_MSG');
2028: FND_MESSAGE.SET_TOKEN('ERR_CODE', SQLCODE);
2029: FND_MESSAGE.SET_TOKEN('ERR_MSG', SQLERRM);
2030: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,
2031: 'jtf.plsql.JTF_IH_BULK.LOG_BULK_ERROR', TRUE);
2032: END IF;
2025:
2026: IF( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2027: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_ERR_CODE_MSG');
2028: FND_MESSAGE.SET_TOKEN('ERR_CODE', SQLCODE);
2029: FND_MESSAGE.SET_TOKEN('ERR_MSG', SQLERRM);
2030: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,
2031: 'jtf.plsql.JTF_IH_BULK.LOG_BULK_ERROR', TRUE);
2032: END IF;
2033:
2030: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,
2031: 'jtf.plsql.JTF_IH_BULK.LOG_BULK_ERROR', TRUE);
2032: END IF;
2033:
2034: --FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
2035: -- because we got an error saving in the bulk errors, save the xml piece in
2036: -- the concurrent log file
2037:
2038: -- tbd.
2130: EXCEPTION
2131: WHEN OTHERS THEN
2132:
2133: IF( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2134: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_LOG2_FAIL');
2135: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,
2136: 'jtf.plsql.JTF_IH_BULK.LOG_BULK_ERROR', TRUE);
2137: END IF;
2138:
2135: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,
2136: 'jtf.plsql.JTF_IH_BULK.LOG_BULK_ERROR', TRUE);
2137: END IF;
2138:
2139: --FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
2140:
2141: IF( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2142: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_ERR_CODE_MSG');
2143: FND_MESSAGE.SET_TOKEN('ERR_CODE', SQLCODE);
2138:
2139: --FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
2140:
2141: IF( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2142: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_ERR_CODE_MSG');
2143: FND_MESSAGE.SET_TOKEN('ERR_CODE', SQLCODE);
2144: FND_MESSAGE.SET_TOKEN('ERR_MSG', SQLERRM);
2145: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,
2146: 'jtf.plsql.JTF_IH_BULK.LOG_BULK_ERROR', TRUE);
2139: --FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
2140:
2141: IF( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2142: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_ERR_CODE_MSG');
2143: FND_MESSAGE.SET_TOKEN('ERR_CODE', SQLCODE);
2144: FND_MESSAGE.SET_TOKEN('ERR_MSG', SQLERRM);
2145: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,
2146: 'jtf.plsql.JTF_IH_BULK.LOG_BULK_ERROR', TRUE);
2147: END IF;
2140:
2141: IF( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2142: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_ERR_CODE_MSG');
2143: FND_MESSAGE.SET_TOKEN('ERR_CODE', SQLCODE);
2144: FND_MESSAGE.SET_TOKEN('ERR_MSG', SQLERRM);
2145: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,
2146: 'jtf.plsql.JTF_IH_BULK.LOG_BULK_ERROR', TRUE);
2147: END IF;
2148:
2145: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,
2146: 'jtf.plsql.JTF_IH_BULK.LOG_BULK_ERROR', TRUE);
2147: END IF;
2148:
2149: --FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
2150:
2151: -- because we got an error saving in the bulk errors, save the xml piece in
2152: -- the concurrent log file
2153:
2229: IF (l_dev_phase = 'COMPLETE') THEN
2230: g_hrt_beat := -71;
2231:
2232: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2233: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_CRASH_FND');
2234: FND_MESSAGE.SET_TOKEN('REQ_ID', l_rec_recd.request_id);
2235: FND_MESSAGE.SET_TOKEN('WRITER_CODE', l_rec_recd.bulk_writer_code);
2236: FND_MESSAGE.SET_TOKEN('BATCH_TYPE', l_rec_recd.bulk_batch_type);
2237: FND_MESSAGE.SET_TOKEN('BATCH_ID', l_rec_recd.bulk_batch_id);
2230: g_hrt_beat := -71;
2231:
2232: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2233: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_CRASH_FND');
2234: FND_MESSAGE.SET_TOKEN('REQ_ID', l_rec_recd.request_id);
2235: FND_MESSAGE.SET_TOKEN('WRITER_CODE', l_rec_recd.bulk_writer_code);
2236: FND_MESSAGE.SET_TOKEN('BATCH_TYPE', l_rec_recd.bulk_batch_type);
2237: FND_MESSAGE.SET_TOKEN('BATCH_ID', l_rec_recd.bulk_batch_id);
2238: FND_LOG.MESSAGE(FND_LOG.LEVEL_STATEMENT,
2231:
2232: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2233: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_CRASH_FND');
2234: FND_MESSAGE.SET_TOKEN('REQ_ID', l_rec_recd.request_id);
2235: FND_MESSAGE.SET_TOKEN('WRITER_CODE', l_rec_recd.bulk_writer_code);
2236: FND_MESSAGE.SET_TOKEN('BATCH_TYPE', l_rec_recd.bulk_batch_type);
2237: FND_MESSAGE.SET_TOKEN('BATCH_ID', l_rec_recd.bulk_batch_id);
2238: FND_LOG.MESSAGE(FND_LOG.LEVEL_STATEMENT,
2239: 'jtf.plsql.JTF_IH_BULK.FIND_ONE_CRASH_RECD', TRUE);
2232: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2233: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_CRASH_FND');
2234: FND_MESSAGE.SET_TOKEN('REQ_ID', l_rec_recd.request_id);
2235: FND_MESSAGE.SET_TOKEN('WRITER_CODE', l_rec_recd.bulk_writer_code);
2236: FND_MESSAGE.SET_TOKEN('BATCH_TYPE', l_rec_recd.bulk_batch_type);
2237: FND_MESSAGE.SET_TOKEN('BATCH_ID', l_rec_recd.bulk_batch_id);
2238: FND_LOG.MESSAGE(FND_LOG.LEVEL_STATEMENT,
2239: 'jtf.plsql.JTF_IH_BULK.FIND_ONE_CRASH_RECD', TRUE);
2240: END IF;
2233: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_CRASH_FND');
2234: FND_MESSAGE.SET_TOKEN('REQ_ID', l_rec_recd.request_id);
2235: FND_MESSAGE.SET_TOKEN('WRITER_CODE', l_rec_recd.bulk_writer_code);
2236: FND_MESSAGE.SET_TOKEN('BATCH_TYPE', l_rec_recd.bulk_batch_type);
2237: FND_MESSAGE.SET_TOKEN('BATCH_ID', l_rec_recd.bulk_batch_id);
2238: FND_LOG.MESSAGE(FND_LOG.LEVEL_STATEMENT,
2239: 'jtf.plsql.JTF_IH_BULK.FIND_ONE_CRASH_RECD', TRUE);
2240: END IF;
2241: --FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
2237: FND_MESSAGE.SET_TOKEN('BATCH_ID', l_rec_recd.bulk_batch_id);
2238: FND_LOG.MESSAGE(FND_LOG.LEVEL_STATEMENT,
2239: 'jtf.plsql.JTF_IH_BULK.FIND_ONE_CRASH_RECD', TRUE);
2240: END IF;
2241: --FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
2242:
2243: l_found_recd := TRUE;
2244: END IF;
2245:
2329:
2330: IF (l_ret_status <> FND_API.G_RET_STS_SUCCESS) THEN
2331: g_hrt_beat := -61;
2332: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2333: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_RECOV_FAIL');
2334: FND_MESSAGE.SET_TOKEN('MSG_ID', l_rec_recd.msg_id);
2335: FND_LOG.MESSAGE(FND_LOG.LEVEL_STATEMENT,
2336: 'jtf.plsql.JTF_IH_BULK.CLEAR_ONE_CRASH_RECD', TRUE);
2337: END IF;
2330: IF (l_ret_status <> FND_API.G_RET_STS_SUCCESS) THEN
2331: g_hrt_beat := -61;
2332: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2333: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_RECOV_FAIL');
2334: FND_MESSAGE.SET_TOKEN('MSG_ID', l_rec_recd.msg_id);
2335: FND_LOG.MESSAGE(FND_LOG.LEVEL_STATEMENT,
2336: 'jtf.plsql.JTF_IH_BULK.CLEAR_ONE_CRASH_RECD', TRUE);
2337: END IF;
2338: --FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
2334: FND_MESSAGE.SET_TOKEN('MSG_ID', l_rec_recd.msg_id);
2335: FND_LOG.MESSAGE(FND_LOG.LEVEL_STATEMENT,
2336: 'jtf.plsql.JTF_IH_BULK.CLEAR_ONE_CRASH_RECD', TRUE);
2337: END IF;
2338: --FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
2339: END IF;
2340:
2341: -- now that the crash victim has been taken care of, get rid of it
2342: DELETE FROM jtf_ih_bulk_recovery
2413: END IF;
2414: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error Message: ' || errm );
2415: g_hrt_beat := -98;
2416: IF( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2417: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_RECOV_UNEXP');
2418: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,
2419: 'jtf.plsql.JTF_IH_BULK.PERFORM_CRASH_RECOVERY', TRUE);
2420: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
2421: 'jtf.plsql.JTF_IH_BULK.PERFORM_CRASH_RECOVERY',errm);
2421: 'jtf.plsql.JTF_IH_BULK.PERFORM_CRASH_RECOVERY',errm);
2422: END IF;
2423: END;
2424:
2425: --FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
2426:
2427: LOG_EXC_OTHERS('PERFORM_CRASH_RECOVERY');
2428:
2429: END PERFORM_CRASH_RECOVERY;
2455: END IF;
2456:
2457: errm := SQLERRM;
2458: IF (errm IS NULL) THEN
2459: errm := FND_MESSAGE.GET_STRING('JTF', 'JTF_IH_BULK_NOERRM');
2460: END IF;
2461:
2462: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2463: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_PROC_EXCP');
2459: errm := FND_MESSAGE.GET_STRING('JTF', 'JTF_IH_BULK_NOERRM');
2460: END IF;
2461:
2462: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2463: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_PROC_EXCP');
2464: FND_MESSAGE.SET_TOKEN('PROC_NAME', p_proc_name);
2465: FND_LOG.MESSAGE(FND_LOG.LEVEL_STATEMENT,
2466: 'jtf.plsql.JTF_IH_BULK.LOG_EXC_OTHERS', TRUE);
2467: END IF;
2460: END IF;
2461:
2462: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2463: FND_MESSAGE.SET_NAME('JTF', 'JTF_IH_BULK_PROC_EXCP');
2464: FND_MESSAGE.SET_TOKEN('PROC_NAME', p_proc_name);
2465: FND_LOG.MESSAGE(FND_LOG.LEVEL_STATEMENT,
2466: 'jtf.plsql.JTF_IH_BULK.LOG_EXC_OTHERS', TRUE);
2467: END IF;
2468:
2465: FND_LOG.MESSAGE(FND_LOG.LEVEL_STATEMENT,
2466: 'jtf.plsql.JTF_IH_BULK.LOG_EXC_OTHERS', TRUE);
2467: END IF;
2468:
2469: --FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
2470:
2471: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2472: l_fnd_log_msg := 'LOG_EXC_OTHERS No Out parameters';
2473: --dbms_output.put_line(l_fnd_log_msg);