41: G_PROG_APPL_ID NUMBER;
42: G_USER_ID NUMBER;
43: G_LOGIN_ID NUMBER;
44: G_USE_STDOUT BOOLEAN := FALSE;
45: l_fnd_log_msg VARCHAR2(2000);
46:
47: -- moved here to track heart-beat across package
48: g_hrt_beat NUMBER;
49:
63: l_msg_data VARCHAR2(2000);
64:
65: BEGIN
66:
67: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
68: l_fnd_log_msg := 'FUNCTION SERVER_DATE_FROM_GMT_STR In Parameters'||
69: 'p_gmt_date_str = '|| p_gmt_date_str;
70: --dbms_output.put_line(l_fnd_log_msg);
71: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
64:
65: BEGIN
66:
67: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
68: l_fnd_log_msg := 'FUNCTION SERVER_DATE_FROM_GMT_STR In Parameters'||
69: 'p_gmt_date_str = '|| p_gmt_date_str;
70: --dbms_output.put_line(l_fnd_log_msg);
71: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
72: 'jtf.plsql.JTF_IH_BULK.SERVER_DATE_FROM_GMT_STR.begin', l_fnd_log_msg);
66:
67: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
68: l_fnd_log_msg := 'FUNCTION SERVER_DATE_FROM_GMT_STR In Parameters'||
69: 'p_gmt_date_str = '|| p_gmt_date_str;
70: --dbms_output.put_line(l_fnd_log_msg);
71: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
72: 'jtf.plsql.JTF_IH_BULK.SERVER_DATE_FROM_GMT_STR.begin', l_fnd_log_msg);
73: END IF;
74:
67: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
68: l_fnd_log_msg := 'FUNCTION SERVER_DATE_FROM_GMT_STR In Parameters'||
69: 'p_gmt_date_str = '|| p_gmt_date_str;
70: --dbms_output.put_line(l_fnd_log_msg);
71: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
72: 'jtf.plsql.JTF_IH_BULK.SERVER_DATE_FROM_GMT_STR.begin', l_fnd_log_msg);
73: END IF;
74:
75: IF (p_gmt_date_str IS NULL) THEN
68: l_fnd_log_msg := 'FUNCTION SERVER_DATE_FROM_GMT_STR In Parameters'||
69: 'p_gmt_date_str = '|| p_gmt_date_str;
70: --dbms_output.put_line(l_fnd_log_msg);
71: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
72: 'jtf.plsql.JTF_IH_BULK.SERVER_DATE_FROM_GMT_STR.begin', l_fnd_log_msg);
73: END IF;
74:
75: IF (p_gmt_date_str IS NULL) THEN
76: RETURN NULL;
94: NULL;
95: l_server_date := l_gmt_date;
96: END IF;
97:
98: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
99: l_fnd_log_msg := 'FUNCTION SERVER_DATE_FROM_GMT_STR Return Parameter'||
100: 'l_server_date = '|| l_server_date;
101: --dbms_output.put_line(l_fnd_log_msg);
102: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
95: l_server_date := l_gmt_date;
96: END IF;
97:
98: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
99: l_fnd_log_msg := 'FUNCTION SERVER_DATE_FROM_GMT_STR Return Parameter'||
100: 'l_server_date = '|| l_server_date;
101: --dbms_output.put_line(l_fnd_log_msg);
102: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
103: 'jtf.plsql.JTF_IH_BULK.SERVER_DATE_FROM_GMT_STR.end', l_fnd_log_msg);
97:
98: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
99: l_fnd_log_msg := 'FUNCTION SERVER_DATE_FROM_GMT_STR Return Parameter'||
100: 'l_server_date = '|| l_server_date;
101: --dbms_output.put_line(l_fnd_log_msg);
102: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
103: 'jtf.plsql.JTF_IH_BULK.SERVER_DATE_FROM_GMT_STR.end', l_fnd_log_msg);
104: END IF;
105:
98: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
99: l_fnd_log_msg := 'FUNCTION SERVER_DATE_FROM_GMT_STR Return Parameter'||
100: 'l_server_date = '|| l_server_date;
101: --dbms_output.put_line(l_fnd_log_msg);
102: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
103: 'jtf.plsql.JTF_IH_BULK.SERVER_DATE_FROM_GMT_STR.end', l_fnd_log_msg);
104: END IF;
105:
106: RETURN l_server_date;
99: l_fnd_log_msg := 'FUNCTION SERVER_DATE_FROM_GMT_STR Return Parameter'||
100: 'l_server_date = '|| l_server_date;
101: --dbms_output.put_line(l_fnd_log_msg);
102: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
103: 'jtf.plsql.JTF_IH_BULK.SERVER_DATE_FROM_GMT_STR.end', l_fnd_log_msg);
104: END IF;
105:
106: RETURN l_server_date;
107:
149: -- Bug3781768- Perf fix for literal usuage
150: l_msg_id_perf RAW (16);
151:
152: BEGIN
153: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
154: l_fnd_log_msg := 'BULK_PROCESSOR_CONC Begin:';
155: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
156: 'jtf.plsql.JTF_IH_BULK.BULK_PROCESSOR_CONC.begin', l_fnd_log_msg);
157: END IF;
150: l_msg_id_perf RAW (16);
151:
152: BEGIN
153: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
154: l_fnd_log_msg := 'BULK_PROCESSOR_CONC Begin:';
155: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
156: 'jtf.plsql.JTF_IH_BULK.BULK_PROCESSOR_CONC.begin', l_fnd_log_msg);
157: END IF;
158:
151:
152: BEGIN
153: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
154: l_fnd_log_msg := 'BULK_PROCESSOR_CONC Begin:';
155: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
156: 'jtf.plsql.JTF_IH_BULK.BULK_PROCESSOR_CONC.begin', l_fnd_log_msg);
157: END IF;
158:
159: -- global variables initialization to remove GSCC warnings
152: BEGIN
153: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
154: l_fnd_log_msg := 'BULK_PROCESSOR_CONC Begin:';
155: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
156: 'jtf.plsql.JTF_IH_BULK.BULK_PROCESSOR_CONC.begin', l_fnd_log_msg);
157: END IF;
158:
159: -- global variables initialization to remove GSCC warnings
160: -- G_STATS_PROFILE_OPTION := 'JTF_IH_BULK_STATS_ENABLED';
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');
201: FND_LOG.MESSAGE(FND_LOG.LEVEL_STATEMENT,
202: 'jtf.plsql.JTF_IH_BULK.BULK_PROCESSOR_CONC', TRUE);
203: END IF;
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;
205:
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
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);
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:
375: END IF;
390: l_time_cum := l_time_cum + l_time_onerec;
391: g_hrt_beat := -55;
392:
393: --Logging Detail Level
394: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
395: l_fnd_log_msg := 'Time taken to process one record = '|| l_time_onerec ||
396: ', writer code = ' || bulk_obj.bulkWriterCode ||
397: ', batch type = ' || bulk_obj.bulkBatchType ||
398: ', batch id = ' || bulk_obj.bulkBatchId;
391: g_hrt_beat := -55;
392:
393: --Logging Detail Level
394: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
395: l_fnd_log_msg := 'Time taken to process one record = '|| l_time_onerec ||
396: ', writer code = ' || bulk_obj.bulkWriterCode ||
397: ', batch type = ' || bulk_obj.bulkBatchType ||
398: ', batch id = ' || bulk_obj.bulkBatchId;
399: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
395: l_fnd_log_msg := 'Time taken to process one record = '|| l_time_onerec ||
396: ', writer code = ' || bulk_obj.bulkWriterCode ||
397: ', batch type = ' || bulk_obj.bulkBatchType ||
398: ', batch id = ' || bulk_obj.bulkBatchId;
399: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
400: 'jtf.plsql.JTF_IH_BULK.BULK_PROCESSOR_CONC', l_fnd_log_msg);
401: END IF;
402:
403: num_rec := num_rec + 1;
396: ', writer code = ' || bulk_obj.bulkWriterCode ||
397: ', batch type = ' || bulk_obj.bulkBatchType ||
398: ', batch id = ' || bulk_obj.bulkBatchId;
399: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
400: 'jtf.plsql.JTF_IH_BULK.BULK_PROCESSOR_CONC', l_fnd_log_msg);
401: END IF;
402:
403: num_rec := num_rec + 1;
404:
408: -- this error is ok, we just ran out of records in the aq
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);
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:
419: -- logging High Level: End of records in Advanced Queue
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);
470: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,
471: 'jtf.plsql.JTF_IH_BULK.BULK_PROCESSOR_CONC', TRUE);
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:
474: ELSE
479:
480: t2_end := DBMS_UTILITY.GET_TIME;
481:
482: --Logging Detail Level
483: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
484: l_fnd_log_msg := 'Cumulative counts - ' ||
485: 'Total time taken for this run - ' || (t2_end-t2_beg)*10 ||
486: ', Total number of records processed - ' || num_rec ||
487: ', Total processing time - ' || l_time_cum ||
480: t2_end := DBMS_UTILITY.GET_TIME;
481:
482: --Logging Detail Level
483: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
484: l_fnd_log_msg := 'Cumulative counts - ' ||
485: 'Total time taken for this run - ' || (t2_end-t2_beg)*10 ||
486: ', Total number of records processed - ' || num_rec ||
487: ', Total processing time - ' || l_time_cum ||
488: ', Total xml parse time - ' || G_XML_PARSE_TIME_TOTAL ||
490: ', Total number of interactions - ' || G_NUM_INT_TOTAL ||
491: ', Total successfull interactions - ' || G_NUM_INT_PROC_TOTAL ||
492: ', Total number of activities - ' || G_NUM_ACT_TOTAL ||
493: ', Total number of media items - ' || G_NUM_MED_TOTAL;
494: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
495: 'jtf.plsql.JTF_IH_BULK.BULK_PROCESSOR_CONC', l_fnd_log_msg);
496: END IF;
497:
498: --Logging Detail Level
491: ', Total successfull interactions - ' || G_NUM_INT_PROC_TOTAL ||
492: ', Total number of activities - ' || G_NUM_ACT_TOTAL ||
493: ', Total number of media items - ' || G_NUM_MED_TOTAL;
494: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
495: 'jtf.plsql.JTF_IH_BULK.BULK_PROCESSOR_CONC', l_fnd_log_msg);
496: END IF;
497:
498: --Logging Detail Level
499: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
495: 'jtf.plsql.JTF_IH_BULK.BULK_PROCESSOR_CONC', l_fnd_log_msg);
496: END IF;
497:
498: --Logging Detail Level
499: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
500: l_fnd_log_msg := 'Maximums and minimums - ' ||
501: 'Maximum record processing time - ' || l_time_max ||
502: ', Minimum record processing time - ' || l_time_min ||
503: ', Maximum xml parse time - ' || G_XML_PARSE_TIME_MAX ||
496: END IF;
497:
498: --Logging Detail Level
499: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
500: l_fnd_log_msg := 'Maximums and minimums - ' ||
501: 'Maximum record processing time - ' || l_time_max ||
502: ', Minimum record processing time - ' || l_time_min ||
503: ', Maximum xml parse time - ' || G_XML_PARSE_TIME_MAX ||
504: ', Minimum xml parse time - ' || G_XML_PARSE_TIME_MIN ||
509: ', Maximum number of activities per interactions - ' || G_NUM_ACT_MAX ||
510: ', Minimum number of activities per interactions - ' || G_NUM_ACT_MIN ||
511: ', Maximum number of media items per interactions - ' || G_NUM_MED_MAX ||
512: ', Minimum number of media items per interactions - ' || G_NUM_MED_MIN;
513: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
514: 'jtf.plsql.JTF_IH_BULK.BULK_PROCESSOR_CONC', l_fnd_log_msg);
515: END IF;
516:
517: IF (num_rec > 0) THEN
510: ', Minimum number of activities per interactions - ' || G_NUM_ACT_MIN ||
511: ', Maximum number of media items per interactions - ' || G_NUM_MED_MAX ||
512: ', Minimum number of media items per interactions - ' || G_NUM_MED_MIN;
513: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
514: 'jtf.plsql.JTF_IH_BULK.BULK_PROCESSOR_CONC', l_fnd_log_msg);
515: END IF;
516:
517: IF (num_rec > 0) THEN
518: average := l_time_cum/num_rec;
517: IF (num_rec > 0) THEN
518: average := l_time_cum/num_rec;
519:
520: --Logging Detail Level
521: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
522: l_fnd_log_msg := 'Averages - ' ||
523: 'Average record processing time - ' || average;
524: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
525: 'jtf.plsql.JTF_IH_BULK.BULK_PROCESSOR_CONC', l_fnd_log_msg);
518: average := l_time_cum/num_rec;
519:
520: --Logging Detail Level
521: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
522: l_fnd_log_msg := 'Averages - ' ||
523: 'Average record processing time - ' || average;
524: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
525: 'jtf.plsql.JTF_IH_BULK.BULK_PROCESSOR_CONC', l_fnd_log_msg);
526: END IF;
520: --Logging Detail Level
521: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
522: l_fnd_log_msg := 'Averages - ' ||
523: 'Average record processing time - ' || average;
524: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
525: 'jtf.plsql.JTF_IH_BULK.BULK_PROCESSOR_CONC', l_fnd_log_msg);
526: END IF;
527: END IF;
528:
521: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
522: l_fnd_log_msg := 'Averages - ' ||
523: 'Average record processing time - ' || average;
524: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
525: 'jtf.plsql.JTF_IH_BULK.BULK_PROCESSOR_CONC', l_fnd_log_msg);
526: END IF;
527: END IF;
528:
529:
528:
529:
530: IF (G_NUM_INT_PROC_TOTAL > 0) THEN
531: --Logging Detail Level
532: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
533: l_fnd_log_msg := 'Average interaction processing time - ' ||
534: G_INT_PROC_TIME_CUM/G_NUM_INT_PROC_TOTAL;
535: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
536: 'jtf.plsql.JTF_IH_BULK.BULK_PROCESSOR_CONC', l_fnd_log_msg);
529:
530: IF (G_NUM_INT_PROC_TOTAL > 0) THEN
531: --Logging Detail Level
532: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
533: l_fnd_log_msg := 'Average interaction processing time - ' ||
534: G_INT_PROC_TIME_CUM/G_NUM_INT_PROC_TOTAL;
535: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
536: 'jtf.plsql.JTF_IH_BULK.BULK_PROCESSOR_CONC', l_fnd_log_msg);
537: END IF;
531: --Logging Detail Level
532: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
533: l_fnd_log_msg := 'Average interaction processing time - ' ||
534: G_INT_PROC_TIME_CUM/G_NUM_INT_PROC_TOTAL;
535: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
536: 'jtf.plsql.JTF_IH_BULK.BULK_PROCESSOR_CONC', l_fnd_log_msg);
537: END IF;
538: END IF;
539:
532: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
533: l_fnd_log_msg := 'Average interaction processing time - ' ||
534: G_INT_PROC_TIME_CUM/G_NUM_INT_PROC_TOTAL;
535: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
536: 'jtf.plsql.JTF_IH_BULK.BULK_PROCESSOR_CONC', l_fnd_log_msg);
537: END IF;
538: END IF;
539:
540:
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
551: l_fnd_log_msg := 'PROCESS_BULK_RECORD Out parameters :'||
552: ', errbuf = '|| errbuf ||
553: ', retcode = '|| retcode;
554: --dbms_output.put_line(l_fnd_log_msg);
547:
548: FND_FILE.PUT_LINE(FND_FILE.LOG, errbuf);
549:
550: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
551: l_fnd_log_msg := 'PROCESS_BULK_RECORD Out parameters :'||
552: ', errbuf = '|| errbuf ||
553: ', retcode = '|| retcode;
554: --dbms_output.put_line(l_fnd_log_msg);
555: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
550: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
551: l_fnd_log_msg := 'PROCESS_BULK_RECORD Out parameters :'||
552: ', errbuf = '|| errbuf ||
553: ', retcode = '|| retcode;
554: --dbms_output.put_line(l_fnd_log_msg);
555: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
556: 'jtf.plsql.JTF_IH_BULK.BULK_PROCESSOR_CONC.end', l_fnd_log_msg);
557: END IF;
558:
551: l_fnd_log_msg := 'PROCESS_BULK_RECORD Out parameters :'||
552: ', errbuf = '|| errbuf ||
553: ', retcode = '|| retcode;
554: --dbms_output.put_line(l_fnd_log_msg);
555: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
556: 'jtf.plsql.JTF_IH_BULK.BULK_PROCESSOR_CONC.end', l_fnd_log_msg);
557: END IF;
558:
559: EXCEPTION
552: ', errbuf = '|| errbuf ||
553: ', retcode = '|| retcode;
554: --dbms_output.put_line(l_fnd_log_msg);
555: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
556: 'jtf.plsql.JTF_IH_BULK.BULK_PROCESSOR_CONC.end', l_fnd_log_msg);
557: END IF;
558:
559: EXCEPTION
560: WHEN OTHERS THEN
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
590: l_fnd_log_msg := errbuf;
591: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
592: 'jtf.plsql.JTF_IH_BULK.BULK_PROCESSOR_CONC', l_fnd_log_msg);
593: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
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
590: l_fnd_log_msg := errbuf;
591: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
592: 'jtf.plsql.JTF_IH_BULK.BULK_PROCESSOR_CONC', l_fnd_log_msg);
593: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
594: 'jtf.plsql.JTF_IH_BULK.BULK_PROCESSOR_CONC',errbuf);
587: FND_FILE.PUT_LINE(FND_FILE.LOG, errbuf);
588:
589: IF( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
590: l_fnd_log_msg := errbuf;
591: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
592: 'jtf.plsql.JTF_IH_BULK.BULK_PROCESSOR_CONC', l_fnd_log_msg);
593: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
594: 'jtf.plsql.JTF_IH_BULK.BULK_PROCESSOR_CONC',errbuf);
595: END IF;
588:
589: IF( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
590: l_fnd_log_msg := errbuf;
591: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
592: 'jtf.plsql.JTF_IH_BULK.BULK_PROCESSOR_CONC', l_fnd_log_msg);
593: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
594: 'jtf.plsql.JTF_IH_BULK.BULK_PROCESSOR_CONC',errbuf);
595: END IF;
596:
589: IF( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
590: l_fnd_log_msg := errbuf;
591: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
592: 'jtf.plsql.JTF_IH_BULK.BULK_PROCESSOR_CONC', l_fnd_log_msg);
593: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
594: 'jtf.plsql.JTF_IH_BULK.BULK_PROCESSOR_CONC',errbuf);
595: END IF;
596:
597: END;
659:
660: processing_error EXCEPTION;
661: BEGIN
662:
663: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
664: l_fnd_log_msg := 'FUNCTION PROCESS_BULK_RECORD In parameters :'||
665: 'p_bulk_writer_code = '|| p_bulk_writer_code ||
666: ', p_bulk_batch_type = '|| p_bulk_batch_type ||
667: ', p_bulk_batch_id = '|| p_bulk_batch_id||
660: processing_error EXCEPTION;
661: BEGIN
662:
663: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
664: l_fnd_log_msg := 'FUNCTION PROCESS_BULK_RECORD In parameters :'||
665: 'p_bulk_writer_code = '|| p_bulk_writer_code ||
666: ', p_bulk_batch_type = '|| p_bulk_batch_type ||
667: ', p_bulk_batch_id = '|| p_bulk_batch_id||
668: ', p_bulk_interaction_request = '|| p_bulk_interaction_request ||
666: ', p_bulk_batch_type = '|| p_bulk_batch_type ||
667: ', p_bulk_batch_id = '|| p_bulk_batch_id||
668: ', p_bulk_interaction_request = '|| p_bulk_interaction_request ||
669: ', p_int_offset = '|| p_int_offset;
670: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
671: 'jtf.plsql.JTF_IH_BULK.PROCESS_BULK_RECORD.begin', l_fnd_log_msg);
672: END IF;
673:
674: -- local variables initialization to remove GSCC warnings
667: ', p_bulk_batch_id = '|| p_bulk_batch_id||
668: ', p_bulk_interaction_request = '|| p_bulk_interaction_request ||
669: ', p_int_offset = '|| p_int_offset;
670: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
671: 'jtf.plsql.JTF_IH_BULK.PROCESS_BULK_RECORD.begin', l_fnd_log_msg);
672: END IF;
673:
674: -- local variables initialization to remove GSCC warnings
675: l_num_int_done := -1;
700: g_hrt_beat := 1.5;
701: -- Start debug code for bad XML
702: BEGIN
703:
704: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
705: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
706: 'jtf.plsql.JTF_IH_BULK.PROCESS_BULK_RECORD', 'Calling ParseClob');
707: END IF;
708: dbms_xmlparser.parseClob(xml_p, p_bulk_interaction_request);
701: -- Start debug code for bad XML
702: BEGIN
703:
704: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
705: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
706: 'jtf.plsql.JTF_IH_BULK.PROCESS_BULK_RECORD', 'Calling ParseClob');
707: END IF;
708: dbms_xmlparser.parseClob(xml_p, p_bulk_interaction_request);
709: EXCEPTION
715: IF (errm IS NULL) THEN
716: errm := 'No Error Message in SQLERRM for parsing errors';
717: END IF;
718: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Error Message: ' || errm );
719: IF( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
720: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
721: 'jtf.plsql.JTF_IH_BULK.PROCESS_BULK_RECORD',errm);
722: END IF;
723: l_ret_status := FND_API.G_RET_STS_ERROR;
716: errm := 'No Error Message in SQLERRM for parsing errors';
717: END IF;
718: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Error Message: ' || errm );
719: IF( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
720: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
721: 'jtf.plsql.JTF_IH_BULK.PROCESS_BULK_RECORD',errm);
722: END IF;
723: l_ret_status := FND_API.G_RET_STS_ERROR;
724: END;
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;
860: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
861: 'jtf.plsql.JTF_IH_BULK.PROCESS_BULK_RECORD', l_fnd_log_msg);
862: END IF;
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;
860: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
861: 'jtf.plsql.JTF_IH_BULK.PROCESS_BULK_RECORD', l_fnd_log_msg);
862: END IF;
863: RAISE processing_error;
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;
860: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
861: 'jtf.plsql.JTF_IH_BULK.PROCESS_BULK_RECORD', l_fnd_log_msg);
862: END IF;
863: RAISE processing_error;
864: END;
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;
860: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
861: 'jtf.plsql.JTF_IH_BULK.PROCESS_BULK_RECORD', l_fnd_log_msg);
862: END IF;
863: RAISE processing_error;
864: END;
865:
913: IF (l_ret_status <> FND_API.G_RET_STS_SUCCESS) THEN
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;
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:
923: l_error_msgLOG := l_ret_msg;
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;
946: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
947: 'jtf.plsql.JTF_IH_BULK.PROCESS_BULK_RECORD', l_fnd_log_msg);
948: END IF;
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;
946: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
947: 'jtf.plsql.JTF_IH_BULK.PROCESS_BULK_RECORD', l_fnd_log_msg);
948: END IF;
949: RAISE processing_error;
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;
946: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
947: 'jtf.plsql.JTF_IH_BULK.PROCESS_BULK_RECORD', l_fnd_log_msg);
948: END IF;
949: RAISE processing_error;
950: END IF;
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;
946: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
947: 'jtf.plsql.JTF_IH_BULK.PROCESS_BULK_RECORD', l_fnd_log_msg);
948: END IF;
949: RAISE processing_error;
950: END IF;
951:
974: l_error := 'JTF_IH_BULK_INT_FAIL';
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,
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:
986: FOR i in 1..l_msg_count LOOP
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);
996: END IF;
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);
996: END IF;
997:
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);
996: END IF;
997:
998: --FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Message number - ' || i || ', is - ' || l_msg_data);
1070: -- the idea is to carry on with the other remaining interactions in the
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;
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:
1080:
1145: G_NUM_INT_MIN := num_int;
1146: END IF;
1147: --END IF;
1148:
1149: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1150: l_fnd_log_msg := 'FUNCTION PROCESS_BULK_RECORD return variable :'||
1151: 'l_ret_status = '|| l_ret_status;
1152: --dbms_output.put_line(l_fnd_log_msg);
1153: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1146: END IF;
1147: --END IF;
1148:
1149: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1150: l_fnd_log_msg := 'FUNCTION PROCESS_BULK_RECORD return variable :'||
1151: 'l_ret_status = '|| l_ret_status;
1152: --dbms_output.put_line(l_fnd_log_msg);
1153: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1154: 'jtf.plsql.JTF_IH_BULK.PROCESS_BULK_RECORD.end', l_fnd_log_msg);
1148:
1149: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1150: l_fnd_log_msg := 'FUNCTION PROCESS_BULK_RECORD return variable :'||
1151: 'l_ret_status = '|| l_ret_status;
1152: --dbms_output.put_line(l_fnd_log_msg);
1153: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1154: 'jtf.plsql.JTF_IH_BULK.PROCESS_BULK_RECORD.end', l_fnd_log_msg);
1155: END IF;
1156:
1149: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1150: l_fnd_log_msg := 'FUNCTION PROCESS_BULK_RECORD return variable :'||
1151: 'l_ret_status = '|| l_ret_status;
1152: --dbms_output.put_line(l_fnd_log_msg);
1153: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1154: 'jtf.plsql.JTF_IH_BULK.PROCESS_BULK_RECORD.end', l_fnd_log_msg);
1155: END IF;
1156:
1157:
1150: l_fnd_log_msg := 'FUNCTION PROCESS_BULK_RECORD return variable :'||
1151: 'l_ret_status = '|| l_ret_status;
1152: --dbms_output.put_line(l_fnd_log_msg);
1153: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1154: 'jtf.plsql.JTF_IH_BULK.PROCESS_BULK_RECORD.end', l_fnd_log_msg);
1155: END IF;
1156:
1157:
1158: RETURN l_ret_status;
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);
1195: FND_MESSAGE.SET_TOKEN('NUM_INT_COMMIT', l_commit_int_num);
1196: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,
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);
1200: END IF;
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);
1200: END IF;
1201:
1202: -- rollback work in the current bulk record
1271:
1272: media_exception EXCEPTION;
1273: BEGIN
1274:
1275: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1276: l_fnd_log_msg := 'PROCESS_MEDIA_ITEMS In parameters :'||
1277: 'med_nl TYPE dbms_xmldom.DomNodeList'||
1278: ', p_bulk_interaction_id = '|| p_bulk_interaction_id ||
1279: ', p_bulk_writer_code = '|| p_bulk_writer_code||
1272: media_exception EXCEPTION;
1273: BEGIN
1274:
1275: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1276: l_fnd_log_msg := 'PROCESS_MEDIA_ITEMS In parameters :'||
1277: 'med_nl TYPE dbms_xmldom.DomNodeList'||
1278: ', p_bulk_interaction_id = '|| p_bulk_interaction_id ||
1279: ', p_bulk_writer_code = '|| p_bulk_writer_code||
1280: ', p_bulk_batch_type = '|| p_bulk_batch_type ||
1282: ', p_user_id = '|| p_user_id ||
1283: ', x_med_id_tbl TYPE media_id_trkr_type IS TABLE OF NUMBER INDEX BY BINARY_INTEGER' ||
1284: ', x_ret_status = '|| x_ret_status ||
1285: ', x_ret_msg = '|| x_ret_msg;
1286: --dbms_output.put_line(l_fnd_log_msg);
1287: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1288: 'jtf.plsql.JTF_IH_BULK.PROCESS_MEDIA_ITEMS.begin', l_fnd_log_msg);
1289: END IF;
1290: -- to do
1283: ', x_med_id_tbl TYPE media_id_trkr_type IS TABLE OF NUMBER INDEX BY BINARY_INTEGER' ||
1284: ', x_ret_status = '|| x_ret_status ||
1285: ', x_ret_msg = '|| x_ret_msg;
1286: --dbms_output.put_line(l_fnd_log_msg);
1287: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1288: 'jtf.plsql.JTF_IH_BULK.PROCESS_MEDIA_ITEMS.begin', l_fnd_log_msg);
1289: END IF;
1290: -- to do
1291: /*
1284: ', x_ret_status = '|| x_ret_status ||
1285: ', x_ret_msg = '|| x_ret_msg;
1286: --dbms_output.put_line(l_fnd_log_msg);
1287: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1288: 'jtf.plsql.JTF_IH_BULK.PROCESS_MEDIA_ITEMS.begin', l_fnd_log_msg);
1289: END IF;
1290: -- to do
1291: /*
1292: ii.for each media node
1529:
1530: g_hrt_beat := 13.6;
1531: x_ret_status := l_ret_status;
1532:
1533: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1534: l_fnd_log_msg := 'PROCESS_MEDIA_ITEMS Out parameters:' ||
1535: 'x_med_id_tbl TYPE media_id_trkr_type IS TABLE OF NUMBER INDEX BY BINARY_INTEGER' ||
1536: 'x_ret_status = '|| x_ret_status ||
1537: 'x_ret_msg = '|| x_ret_msg;
1530: g_hrt_beat := 13.6;
1531: x_ret_status := l_ret_status;
1532:
1533: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1534: l_fnd_log_msg := 'PROCESS_MEDIA_ITEMS Out parameters:' ||
1535: 'x_med_id_tbl TYPE media_id_trkr_type IS TABLE OF NUMBER INDEX BY BINARY_INTEGER' ||
1536: 'x_ret_status = '|| x_ret_status ||
1537: 'x_ret_msg = '|| x_ret_msg;
1538: --dbms_output.put_line(l_fnd_log_msg);
1534: l_fnd_log_msg := 'PROCESS_MEDIA_ITEMS Out parameters:' ||
1535: 'x_med_id_tbl TYPE media_id_trkr_type IS TABLE OF NUMBER INDEX BY BINARY_INTEGER' ||
1536: 'x_ret_status = '|| x_ret_status ||
1537: 'x_ret_msg = '|| x_ret_msg;
1538: --dbms_output.put_line(l_fnd_log_msg);
1539: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1540: 'jtf.plsql.JTF_IH_BULK.PROCESS_MEDIA_ITEMS.end', l_fnd_log_msg);
1541: END IF;
1542:
1535: 'x_med_id_tbl TYPE media_id_trkr_type IS TABLE OF NUMBER INDEX BY BINARY_INTEGER' ||
1536: 'x_ret_status = '|| x_ret_status ||
1537: 'x_ret_msg = '|| x_ret_msg;
1538: --dbms_output.put_line(l_fnd_log_msg);
1539: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1540: 'jtf.plsql.JTF_IH_BULK.PROCESS_MEDIA_ITEMS.end', l_fnd_log_msg);
1541: END IF;
1542:
1543: EXCEPTION
1536: 'x_ret_status = '|| x_ret_status ||
1537: 'x_ret_msg = '|| x_ret_msg;
1538: --dbms_output.put_line(l_fnd_log_msg);
1539: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1540: 'jtf.plsql.JTF_IH_BULK.PROCESS_MEDIA_ITEMS.end', l_fnd_log_msg);
1541: END IF;
1542:
1543: EXCEPTION
1544: -- this exception is raised if any of the JTF_IH_PUB's media calls fail.
1543: EXCEPTION
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,
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 := '';
1563: --FND_FILE.PUT_LINE(FND_FILE.LOG, l_err_media);
1564:
1565: x_ret_msg := x_ret_msg || l_err_media;
1566:
1567: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1568: l_fnd_log_msg := l_err_media;
1569: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1570: 'jtf.plsql.JTF_IH_BULK.PROCESS_MEDIA_ITEMS.end', l_fnd_log_msg);
1571: END IF;
1564:
1565: x_ret_msg := x_ret_msg || l_err_media;
1566:
1567: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1568: l_fnd_log_msg := l_err_media;
1569: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1570: 'jtf.plsql.JTF_IH_BULK.PROCESS_MEDIA_ITEMS.end', l_fnd_log_msg);
1571: END IF;
1572: --x_ret_msg := x_ret_msg || substrb(l_msg_data, 0, (2000-lengthb(x_ret_msg))) ||
1565: x_ret_msg := x_ret_msg || l_err_media;
1566:
1567: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1568: l_fnd_log_msg := l_err_media;
1569: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1570: 'jtf.plsql.JTF_IH_BULK.PROCESS_MEDIA_ITEMS.end', l_fnd_log_msg);
1571: END IF;
1572: --x_ret_msg := x_ret_msg || substrb(l_msg_data, 0, (2000-lengthb(x_ret_msg))) ||
1573: -- substrb(l_msg_data, 0, (2000-lengthb(', ')));
1566:
1567: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1568: l_fnd_log_msg := l_err_media;
1569: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1570: 'jtf.plsql.JTF_IH_BULK.PROCESS_MEDIA_ITEMS.end', l_fnd_log_msg);
1571: END IF;
1572: --x_ret_msg := x_ret_msg || substrb(l_msg_data, 0, (2000-lengthb(x_ret_msg))) ||
1573: -- substrb(l_msg_data, 0, (2000-lengthb(', ')));
1574: END LOOP;
1580: DECLARE
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;
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:
1590: --FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
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);
1595: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,
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:
1599: --FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
1645: date_str VARCHAR2(50);
1646: num_act NUMBER;
1647: BEGIN
1648:
1649: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1650: l_fnd_log_msg := 'GATHER_ACT_TBL In parameters :'||
1651: 'act_nl TYPE dbms_xmldom.DomNodeList'||
1652: ', p_bulk_interaction_id = '|| p_bulk_interaction_id ||
1653: ', p_bulk_writer_code = '|| p_bulk_writer_code||
1646: num_act NUMBER;
1647: BEGIN
1648:
1649: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1650: l_fnd_log_msg := 'GATHER_ACT_TBL In parameters :'||
1651: 'act_nl TYPE dbms_xmldom.DomNodeList'||
1652: ', p_bulk_interaction_id = '|| p_bulk_interaction_id ||
1653: ', p_bulk_writer_code = '|| p_bulk_writer_code||
1654: ', p_bulk_batch_type = '|| p_bulk_batch_type ||
1656: ', x_med_id_tbl TYPE media_id_trkr_type IS TABLE OF NUMBER INDEX BY BINARY_INTEGER' ||
1657: ', x_act_tbl TYPE JTF_IH_PUB.ACTIVITY_TBL_TYPE' ||
1658: ', x_ret_status = '|| x_ret_status ||
1659: ', x_ret_msg = '|| x_ret_msg;
1660: --dbms_output.put_line(l_fnd_log_msg);
1661: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1662: 'jtf.plsql.JTF_IH_BULK.GATHER_ACT_TBL.begin', l_fnd_log_msg);
1663: END IF;
1664: -- to do
1657: ', x_act_tbl TYPE JTF_IH_PUB.ACTIVITY_TBL_TYPE' ||
1658: ', x_ret_status = '|| x_ret_status ||
1659: ', x_ret_msg = '|| x_ret_msg;
1660: --dbms_output.put_line(l_fnd_log_msg);
1661: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1662: 'jtf.plsql.JTF_IH_BULK.GATHER_ACT_TBL.begin', l_fnd_log_msg);
1663: END IF;
1664: -- to do
1665: /*
1658: ', x_ret_status = '|| x_ret_status ||
1659: ', x_ret_msg = '|| x_ret_msg;
1660: --dbms_output.put_line(l_fnd_log_msg);
1661: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1662: 'jtf.plsql.JTF_IH_BULK.GATHER_ACT_TBL.begin', l_fnd_log_msg);
1663: END IF;
1664: -- to do
1665: /*
1666: iv.for each activity node
1744: END LOOP; -- MED nodes
1745:
1746: x_ret_status := FND_API.G_RET_STS_SUCCESS;
1747:
1748: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1749: l_fnd_log_msg := 'GATHER_ACT_TBL Out parameters :'||
1750: 'x_act_tbl TYPE JTF_IH_PUB.ACTIVITY_TBL_TYPE' ||
1751: ', x_ret_status = '|| x_ret_status ||
1752: ', x_ret_msg = '|| x_ret_msg;
1745:
1746: x_ret_status := FND_API.G_RET_STS_SUCCESS;
1747:
1748: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1749: l_fnd_log_msg := 'GATHER_ACT_TBL Out parameters :'||
1750: 'x_act_tbl TYPE JTF_IH_PUB.ACTIVITY_TBL_TYPE' ||
1751: ', x_ret_status = '|| x_ret_status ||
1752: ', x_ret_msg = '|| x_ret_msg;
1753: --dbms_output.put_line(l_fnd_log_msg);
1749: l_fnd_log_msg := 'GATHER_ACT_TBL Out parameters :'||
1750: 'x_act_tbl TYPE JTF_IH_PUB.ACTIVITY_TBL_TYPE' ||
1751: ', x_ret_status = '|| x_ret_status ||
1752: ', x_ret_msg = '|| x_ret_msg;
1753: --dbms_output.put_line(l_fnd_log_msg);
1754: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1755: 'jtf.plsql.JTF_IH_BULK.GATHER_ACT_TBL.end', l_fnd_log_msg);
1756: END IF;
1757:
1750: 'x_act_tbl TYPE JTF_IH_PUB.ACTIVITY_TBL_TYPE' ||
1751: ', x_ret_status = '|| x_ret_status ||
1752: ', x_ret_msg = '|| x_ret_msg;
1753: --dbms_output.put_line(l_fnd_log_msg);
1754: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1755: 'jtf.plsql.JTF_IH_BULK.GATHER_ACT_TBL.end', l_fnd_log_msg);
1756: END IF;
1757:
1758: EXCEPTION
1751: ', x_ret_status = '|| x_ret_status ||
1752: ', x_ret_msg = '|| x_ret_msg;
1753: --dbms_output.put_line(l_fnd_log_msg);
1754: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1755: 'jtf.plsql.JTF_IH_BULK.GATHER_ACT_TBL.end', l_fnd_log_msg);
1756: END IF;
1757:
1758: EXCEPTION
1759: WHEN OTHERS THEN
1761: error NUMBER := SQLCODE;
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;
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:
1771: --FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
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);
1776: FND_MESSAGE.SET_TOKEN('ERR_MSG', errm);
1777: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,
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:
1781: --FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
1815: ) IS
1816: date_str VARCHAR2(50);
1817: BEGIN
1818:
1819: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1820: l_fnd_log_msg := 'GATHER_INT_ATTR In parameters :'||
1821: 'int_elem TYPE dbms_xmldom.DomElement'||
1822: ', p_bulk_interaction_id = '|| p_bulk_interaction_id ||
1823: ', p_bulk_writer_code = '|| p_bulk_writer_code||
1816: date_str VARCHAR2(50);
1817: BEGIN
1818:
1819: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1820: l_fnd_log_msg := 'GATHER_INT_ATTR In parameters :'||
1821: 'int_elem TYPE dbms_xmldom.DomElement'||
1822: ', p_bulk_interaction_id = '|| p_bulk_interaction_id ||
1823: ', p_bulk_writer_code = '|| p_bulk_writer_code||
1824: ', p_bulk_batch_type = '|| p_bulk_batch_type ||
1825: ', p_bulk_batch_id = '|| p_bulk_batch_id ||
1826: ', x_int_rec TYPE JTF_IH_PUB.INTERACTION_REC_TYPE'||
1827: ', x_ret_status = '|| x_ret_status ||
1828: ', x_ret_msg = '|| x_ret_msg;
1829: --dbms_output.put_line(l_fnd_log_msg);
1830: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1831: 'jtf.plsql.JTF_IH_BULK.GATHER_INT_ATTR.begin', l_fnd_log_msg);
1832: END IF;
1833:
1826: ', x_int_rec TYPE JTF_IH_PUB.INTERACTION_REC_TYPE'||
1827: ', x_ret_status = '|| x_ret_status ||
1828: ', x_ret_msg = '|| x_ret_msg;
1829: --dbms_output.put_line(l_fnd_log_msg);
1830: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1831: 'jtf.plsql.JTF_IH_BULK.GATHER_INT_ATTR.begin', l_fnd_log_msg);
1832: END IF;
1833:
1834: date_str := dbms_xmldom.getAttribute(int_elem, 'start_date_time');
1827: ', x_ret_status = '|| x_ret_status ||
1828: ', x_ret_msg = '|| x_ret_msg;
1829: --dbms_output.put_line(l_fnd_log_msg);
1830: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1831: 'jtf.plsql.JTF_IH_BULK.GATHER_INT_ATTR.begin', l_fnd_log_msg);
1832: END IF;
1833:
1834: date_str := dbms_xmldom.getAttribute(int_elem, 'start_date_time');
1835: -- RDD - Bug 5330922 - Removed the call to convert GMT input to server date - Input now in Server Date
1892: x_int_rec.bulk_interaction_id := p_bulk_interaction_id;
1893:
1894: x_ret_status := FND_API.G_RET_STS_SUCCESS;
1895:
1896: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1897: l_fnd_log_msg := 'GATHER_INT_ATTR Out parameters :'||
1898: 'x_int_rec TYPE JTF_IH_PUB.INTERACTION_REC_TYPE'||
1899: 'x_ret_status = '|| x_ret_status ||
1900: 'x_ret_msg = '|| x_ret_msg;
1893:
1894: x_ret_status := FND_API.G_RET_STS_SUCCESS;
1895:
1896: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1897: l_fnd_log_msg := 'GATHER_INT_ATTR Out parameters :'||
1898: 'x_int_rec TYPE JTF_IH_PUB.INTERACTION_REC_TYPE'||
1899: 'x_ret_status = '|| x_ret_status ||
1900: 'x_ret_msg = '|| x_ret_msg;
1901: --dbms_output.put_line(l_fnd_log_msg);
1897: l_fnd_log_msg := 'GATHER_INT_ATTR Out parameters :'||
1898: 'x_int_rec TYPE JTF_IH_PUB.INTERACTION_REC_TYPE'||
1899: 'x_ret_status = '|| x_ret_status ||
1900: 'x_ret_msg = '|| x_ret_msg;
1901: --dbms_output.put_line(l_fnd_log_msg);
1902: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1903: 'jtf.plsql.JTF_IH_BULK.GATHER_INT_ATTR.end', l_fnd_log_msg);
1904: END IF;
1905: END GATHER_INT_ATTR;
1898: 'x_int_rec TYPE JTF_IH_PUB.INTERACTION_REC_TYPE'||
1899: 'x_ret_status = '|| x_ret_status ||
1900: 'x_ret_msg = '|| x_ret_msg;
1901: --dbms_output.put_line(l_fnd_log_msg);
1902: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1903: 'jtf.plsql.JTF_IH_BULK.GATHER_INT_ATTR.end', l_fnd_log_msg);
1904: END IF;
1905: END GATHER_INT_ATTR;
1906:
1899: 'x_ret_status = '|| x_ret_status ||
1900: 'x_ret_msg = '|| x_ret_msg;
1901: --dbms_output.put_line(l_fnd_log_msg);
1902: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1903: 'jtf.plsql.JTF_IH_BULK.GATHER_INT_ATTR.end', l_fnd_log_msg);
1904: END IF;
1905: END GATHER_INT_ATTR;
1906:
1907: --
1941: l_obj_version_perf NUMBER;
1942:
1943: BEGIN
1944:
1945: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1946: l_fnd_log_msg := 'FUNCTION LOG_BULK_ERROR In parameters :'||
1947: 'p_int_node TYPE dbms_xmldom.DOMNode' ||
1948: ', p_bulk_writer_code = '|| p_bulk_writer_code||
1949: ', p_bulk_batch_type = '|| p_bulk_batch_type ||
1942:
1943: BEGIN
1944:
1945: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1946: l_fnd_log_msg := 'FUNCTION LOG_BULK_ERROR In parameters :'||
1947: 'p_int_node TYPE dbms_xmldom.DOMNode' ||
1948: ', p_bulk_writer_code = '|| p_bulk_writer_code||
1949: ', p_bulk_batch_type = '|| p_bulk_batch_type ||
1950: ', p_bulk_batch_id = '|| p_bulk_batch_id ||
1950: ', p_bulk_batch_id = '|| p_bulk_batch_id ||
1951: ', p_bulk_interaction_id = '|| p_bulk_interaction_id ||
1952: ', p_error_msg = '|| p_error_msg ||
1953: ', p_ret_msg = '|| p_ret_msg;
1954: --dbms_output.put_line(l_fnd_log_msg);
1955: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1956: 'jtf.plsql.JTF_IH_BULK.LOG_BULK_ERROR.begin', l_fnd_log_msg);
1957: END IF;
1958: SAVEPOINT BULK_ERROR;
1951: ', p_bulk_interaction_id = '|| p_bulk_interaction_id ||
1952: ', p_error_msg = '|| p_error_msg ||
1953: ', p_ret_msg = '|| p_ret_msg;
1954: --dbms_output.put_line(l_fnd_log_msg);
1955: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1956: 'jtf.plsql.JTF_IH_BULK.LOG_BULK_ERROR.begin', l_fnd_log_msg);
1957: END IF;
1958: SAVEPOINT BULK_ERROR;
1959:
1952: ', p_error_msg = '|| p_error_msg ||
1953: ', p_ret_msg = '|| p_ret_msg;
1954: --dbms_output.put_line(l_fnd_log_msg);
1955: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1956: 'jtf.plsql.JTF_IH_BULK.LOG_BULK_ERROR.begin', l_fnd_log_msg);
1957: END IF;
1958: SAVEPOINT BULK_ERROR;
1959:
1960: -- this is a sort of complicated logic here - basically, we don't want to
2001: UPDATE jtf_ih_bulk_errors
2002: SET inter_req_xml_doc = bad_int_clob
2003: WHERE bulk_error_id = rec_id;
2004:
2005: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2006: l_fnd_log_msg := 'FUNCTION LOG_BULK_ERROR return variable :'||
2007: 'FND_API.G_RET_STS_SUCCESS = '|| FND_API.G_RET_STS_SUCCESS;
2008: --dbms_output.put_line(l_fnd_log_msg);
2009: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2002: SET inter_req_xml_doc = bad_int_clob
2003: WHERE bulk_error_id = rec_id;
2004:
2005: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2006: l_fnd_log_msg := 'FUNCTION LOG_BULK_ERROR return variable :'||
2007: 'FND_API.G_RET_STS_SUCCESS = '|| FND_API.G_RET_STS_SUCCESS;
2008: --dbms_output.put_line(l_fnd_log_msg);
2009: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2010: 'jtf.plsql.JTF_IH_BULK.LOG_BULK_ERROR.end', l_fnd_log_msg);
2004:
2005: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2006: l_fnd_log_msg := 'FUNCTION LOG_BULK_ERROR return variable :'||
2007: 'FND_API.G_RET_STS_SUCCESS = '|| FND_API.G_RET_STS_SUCCESS;
2008: --dbms_output.put_line(l_fnd_log_msg);
2009: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2010: 'jtf.plsql.JTF_IH_BULK.LOG_BULK_ERROR.end', l_fnd_log_msg);
2011: END IF;
2012:
2005: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2006: l_fnd_log_msg := 'FUNCTION LOG_BULK_ERROR return variable :'||
2007: 'FND_API.G_RET_STS_SUCCESS = '|| FND_API.G_RET_STS_SUCCESS;
2008: --dbms_output.put_line(l_fnd_log_msg);
2009: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2010: 'jtf.plsql.JTF_IH_BULK.LOG_BULK_ERROR.end', l_fnd_log_msg);
2011: END IF;
2012:
2013: RETURN FND_API.G_RET_STS_SUCCESS;
2006: l_fnd_log_msg := 'FUNCTION LOG_BULK_ERROR return variable :'||
2007: 'FND_API.G_RET_STS_SUCCESS = '|| FND_API.G_RET_STS_SUCCESS;
2008: --dbms_output.put_line(l_fnd_log_msg);
2009: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2010: 'jtf.plsql.JTF_IH_BULK.LOG_BULK_ERROR.end', l_fnd_log_msg);
2011: END IF;
2012:
2013: RETURN FND_API.G_RET_STS_SUCCESS;
2014:
2014:
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;
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:
2024: --FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
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);
2029: FND_MESSAGE.SET_TOKEN('ERR_MSG', SQLERRM);
2030: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,
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:
2034: --FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
2075: l_obj_version_perf NUMBER;
2076:
2077: BEGIN
2078:
2079: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2080: l_fnd_log_msg := 'FUNCTION LOG_BULK_ERROR In parameters :'||
2081: 'p_bulk_writer_code = '|| p_bulk_writer_code||
2082: ', p_bulk_batch_type = '|| p_bulk_batch_type ||
2083: ', p_bulk_batch_id = '|| p_bulk_batch_id ||
2076:
2077: BEGIN
2078:
2079: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2080: l_fnd_log_msg := 'FUNCTION LOG_BULK_ERROR In parameters :'||
2081: 'p_bulk_writer_code = '|| p_bulk_writer_code||
2082: ', p_bulk_batch_type = '|| p_bulk_batch_type ||
2083: ', p_bulk_batch_id = '|| p_bulk_batch_id ||
2084: ', p_bulk_interaction_id = '|| p_bulk_interaction_id ||
2083: ', p_bulk_batch_id = '|| p_bulk_batch_id ||
2084: ', p_bulk_interaction_id = '|| p_bulk_interaction_id ||
2085: ', p_error_msg = '|| p_error_msg ||
2086: ', p_ret_msg = '|| p_ret_msg;
2087: --dbms_output.put_line(l_fnd_log_msg);
2088: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2089: 'jtf.plsql.JTF_IH_BULK.LOG_BULK_ERROR.begin', l_fnd_log_msg);
2090: END IF;
2091: SAVEPOINT BULK_ERROR;
2084: ', p_bulk_interaction_id = '|| p_bulk_interaction_id ||
2085: ', p_error_msg = '|| p_error_msg ||
2086: ', p_ret_msg = '|| p_ret_msg;
2087: --dbms_output.put_line(l_fnd_log_msg);
2088: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2089: 'jtf.plsql.JTF_IH_BULK.LOG_BULK_ERROR.begin', l_fnd_log_msg);
2090: END IF;
2091: SAVEPOINT BULK_ERROR;
2092:
2085: ', p_error_msg = '|| p_error_msg ||
2086: ', p_ret_msg = '|| p_ret_msg;
2087: --dbms_output.put_line(l_fnd_log_msg);
2088: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2089: 'jtf.plsql.JTF_IH_BULK.LOG_BULK_ERROR.begin', l_fnd_log_msg);
2090: END IF;
2091: SAVEPOINT BULK_ERROR;
2092:
2093: -- this is a sort of complicated logic here - basically, we don't want to
2116: G_CONC_REQUEST_ID, G_PROG_APPL_ID, sysdate,
2117: p_bulk_writer_code, p_bulk_batch_id, p_bulk_batch_type,
2118: p_bulk_interaction_id, error_msg_2, p_bulk_interaction_request);
2119:
2120: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2121: l_fnd_log_msg := 'FUNCTION LOG_BULK_ERROR return variable :'||
2122: 'FND_API.G_RET_STS_SUCCESS = '|| FND_API.G_RET_STS_SUCCESS;
2123: --dbms_output.put_line(l_fnd_log_msg);
2124: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2117: p_bulk_writer_code, p_bulk_batch_id, p_bulk_batch_type,
2118: p_bulk_interaction_id, error_msg_2, p_bulk_interaction_request);
2119:
2120: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2121: l_fnd_log_msg := 'FUNCTION LOG_BULK_ERROR return variable :'||
2122: 'FND_API.G_RET_STS_SUCCESS = '|| FND_API.G_RET_STS_SUCCESS;
2123: --dbms_output.put_line(l_fnd_log_msg);
2124: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2125: 'jtf.plsql.JTF_IH_BULK.LOG_BULK_ERROR.end', l_fnd_log_msg);
2119:
2120: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2121: l_fnd_log_msg := 'FUNCTION LOG_BULK_ERROR return variable :'||
2122: 'FND_API.G_RET_STS_SUCCESS = '|| FND_API.G_RET_STS_SUCCESS;
2123: --dbms_output.put_line(l_fnd_log_msg);
2124: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2125: 'jtf.plsql.JTF_IH_BULK.LOG_BULK_ERROR.end', l_fnd_log_msg);
2126: END IF;
2127:
2120: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2121: l_fnd_log_msg := 'FUNCTION LOG_BULK_ERROR return variable :'||
2122: 'FND_API.G_RET_STS_SUCCESS = '|| FND_API.G_RET_STS_SUCCESS;
2123: --dbms_output.put_line(l_fnd_log_msg);
2124: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2125: 'jtf.plsql.JTF_IH_BULK.LOG_BULK_ERROR.end', l_fnd_log_msg);
2126: END IF;
2127:
2128: RETURN FND_API.G_RET_STS_SUCCESS;
2121: l_fnd_log_msg := 'FUNCTION LOG_BULK_ERROR return variable :'||
2122: 'FND_API.G_RET_STS_SUCCESS = '|| FND_API.G_RET_STS_SUCCESS;
2123: --dbms_output.put_line(l_fnd_log_msg);
2124: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2125: 'jtf.plsql.JTF_IH_BULK.LOG_BULK_ERROR.end', l_fnd_log_msg);
2126: END IF;
2127:
2128: RETURN FND_API.G_RET_STS_SUCCESS;
2129:
2129:
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;
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:
2139: --FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
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);
2144: FND_MESSAGE.SET_TOKEN('ERR_MSG', SQLERRM);
2145: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,
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:
2149: --FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
2173: l_dev_status VARCHAR2(30);
2174: l_message VARCHAR2(240);
2175:
2176: BEGIN
2177: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2178: l_fnd_log_msg := 'FUNCTION FIND_ONE_CRASH_RECD In parameters :'||
2179: 'l_rec_recd TYPE JTF_IH_BULK_RECOVERY%ROWTYPE';
2180: --dbms_output.put_line(l_fnd_log_msg);
2181: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2174: l_message VARCHAR2(240);
2175:
2176: BEGIN
2177: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2178: l_fnd_log_msg := 'FUNCTION FIND_ONE_CRASH_RECD In parameters :'||
2179: 'l_rec_recd TYPE JTF_IH_BULK_RECOVERY%ROWTYPE';
2180: --dbms_output.put_line(l_fnd_log_msg);
2181: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2182: 'jtf.plsql.JTF_IH_BULK.FIND_ONE_CRASH_RECD.begin', l_fnd_log_msg);
2176: BEGIN
2177: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2178: l_fnd_log_msg := 'FUNCTION FIND_ONE_CRASH_RECD In parameters :'||
2179: 'l_rec_recd TYPE JTF_IH_BULK_RECOVERY%ROWTYPE';
2180: --dbms_output.put_line(l_fnd_log_msg);
2181: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2182: 'jtf.plsql.JTF_IH_BULK.FIND_ONE_CRASH_RECD.begin', l_fnd_log_msg);
2183: END IF;
2184:
2177: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2178: l_fnd_log_msg := 'FUNCTION FIND_ONE_CRASH_RECD In parameters :'||
2179: 'l_rec_recd TYPE JTF_IH_BULK_RECOVERY%ROWTYPE';
2180: --dbms_output.put_line(l_fnd_log_msg);
2181: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2182: 'jtf.plsql.JTF_IH_BULK.FIND_ONE_CRASH_RECD.begin', l_fnd_log_msg);
2183: END IF;
2184:
2185: g_hrt_beat := -70;
2178: l_fnd_log_msg := 'FUNCTION FIND_ONE_CRASH_RECD In parameters :'||
2179: 'l_rec_recd TYPE JTF_IH_BULK_RECOVERY%ROWTYPE';
2180: --dbms_output.put_line(l_fnd_log_msg);
2181: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2182: 'jtf.plsql.JTF_IH_BULK.FIND_ONE_CRASH_RECD.begin', l_fnd_log_msg);
2183: END IF;
2184:
2185: g_hrt_beat := -70;
2186: --FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Entered find_one_crash_Recd');
2228: -- it is a crash victim
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);
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);
2242:
2267:
2268: g_hrt_beat := -79;
2269: --FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Return TRUE find_one_crash_Recd');
2270:
2271: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2272: l_fnd_log_msg := 'FUNCTION FIND_ONE_CRASH_RECD Return parameters :'||
2273: 'return boolean = TRUE';
2274: --dbms_output.put_line(l_fnd_log_msg);
2275: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2268: g_hrt_beat := -79;
2269: --FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Return TRUE find_one_crash_Recd');
2270:
2271: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2272: l_fnd_log_msg := 'FUNCTION FIND_ONE_CRASH_RECD Return parameters :'||
2273: 'return boolean = TRUE';
2274: --dbms_output.put_line(l_fnd_log_msg);
2275: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2276: 'jtf.plsql.JTF_IH_BULK.FIND_ONE_CRASH_RECD.end', l_fnd_log_msg);
2270:
2271: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2272: l_fnd_log_msg := 'FUNCTION FIND_ONE_CRASH_RECD Return parameters :'||
2273: 'return boolean = TRUE';
2274: --dbms_output.put_line(l_fnd_log_msg);
2275: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2276: 'jtf.plsql.JTF_IH_BULK.FIND_ONE_CRASH_RECD.end', l_fnd_log_msg);
2277: END IF;
2278:
2271: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2272: l_fnd_log_msg := 'FUNCTION FIND_ONE_CRASH_RECD Return parameters :'||
2273: 'return boolean = TRUE';
2274: --dbms_output.put_line(l_fnd_log_msg);
2275: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2276: 'jtf.plsql.JTF_IH_BULK.FIND_ONE_CRASH_RECD.end', l_fnd_log_msg);
2277: END IF;
2278:
2279: RETURN TRUE;
2272: l_fnd_log_msg := 'FUNCTION FIND_ONE_CRASH_RECD Return parameters :'||
2273: 'return boolean = TRUE';
2274: --dbms_output.put_line(l_fnd_log_msg);
2275: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2276: 'jtf.plsql.JTF_IH_BULK.FIND_ONE_CRASH_RECD.end', l_fnd_log_msg);
2277: END IF;
2278:
2279: RETURN TRUE;
2280: ELSE
2280: ELSE
2281: g_hrt_beat := -78;
2282: --FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Return FALSE find_one_crash_Recd');
2283:
2284: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2285: l_fnd_log_msg := 'FUNCTION FIND_ONE_CRASH_RECD Return parameters :'||
2286: 'return boolean = FALSE';
2287: --dbms_output.put_line(l_fnd_log_msg);
2288: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2281: g_hrt_beat := -78;
2282: --FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Return FALSE find_one_crash_Recd');
2283:
2284: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2285: l_fnd_log_msg := 'FUNCTION FIND_ONE_CRASH_RECD Return parameters :'||
2286: 'return boolean = FALSE';
2287: --dbms_output.put_line(l_fnd_log_msg);
2288: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2289: 'jtf.plsql.JTF_IH_BULK.FIND_ONE_CRASH_RECD.end', l_fnd_log_msg);
2283:
2284: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2285: l_fnd_log_msg := 'FUNCTION FIND_ONE_CRASH_RECD Return parameters :'||
2286: 'return boolean = FALSE';
2287: --dbms_output.put_line(l_fnd_log_msg);
2288: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2289: 'jtf.plsql.JTF_IH_BULK.FIND_ONE_CRASH_RECD.end', l_fnd_log_msg);
2290: END IF;
2291:
2284: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2285: l_fnd_log_msg := 'FUNCTION FIND_ONE_CRASH_RECD Return parameters :'||
2286: 'return boolean = FALSE';
2287: --dbms_output.put_line(l_fnd_log_msg);
2288: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2289: 'jtf.plsql.JTF_IH_BULK.FIND_ONE_CRASH_RECD.end', l_fnd_log_msg);
2290: END IF;
2291:
2292: RETURN FALSE;
2285: l_fnd_log_msg := 'FUNCTION FIND_ONE_CRASH_RECD Return parameters :'||
2286: 'return boolean = FALSE';
2287: --dbms_output.put_line(l_fnd_log_msg);
2288: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2289: 'jtf.plsql.JTF_IH_BULK.FIND_ONE_CRASH_RECD.end', l_fnd_log_msg);
2290: END IF;
2291:
2292: RETURN FALSE;
2293: END IF;
2299:
2300: l_ret_status VARCHAR2(5);
2301: BEGIN
2302:
2303: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2304: l_fnd_log_msg := 'CLEAR_ONE_CRASH_RECD In parameters :'||
2305: 'l_rec_recd';
2306: --dbms_output.put_line(l_fnd_log_msg);
2307: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2300: l_ret_status VARCHAR2(5);
2301: BEGIN
2302:
2303: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2304: l_fnd_log_msg := 'CLEAR_ONE_CRASH_RECD In parameters :'||
2305: 'l_rec_recd';
2306: --dbms_output.put_line(l_fnd_log_msg);
2307: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2308: 'jtf.plsql.JTF_IH_BULK.CLEAR_ONE_CRASH_RECD.begin', l_fnd_log_msg);
2302:
2303: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2304: l_fnd_log_msg := 'CLEAR_ONE_CRASH_RECD In parameters :'||
2305: 'l_rec_recd';
2306: --dbms_output.put_line(l_fnd_log_msg);
2307: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2308: 'jtf.plsql.JTF_IH_BULK.CLEAR_ONE_CRASH_RECD.begin', l_fnd_log_msg);
2309: END IF;
2310:
2303: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2304: l_fnd_log_msg := 'CLEAR_ONE_CRASH_RECD In parameters :'||
2305: 'l_rec_recd';
2306: --dbms_output.put_line(l_fnd_log_msg);
2307: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2308: 'jtf.plsql.JTF_IH_BULK.CLEAR_ONE_CRASH_RECD.begin', l_fnd_log_msg);
2309: END IF;
2310:
2311: g_hrt_beat := -60;
2304: l_fnd_log_msg := 'CLEAR_ONE_CRASH_RECD In parameters :'||
2305: 'l_rec_recd';
2306: --dbms_output.put_line(l_fnd_log_msg);
2307: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2308: 'jtf.plsql.JTF_IH_BULK.CLEAR_ONE_CRASH_RECD.begin', l_fnd_log_msg);
2309: END IF;
2310:
2311: g_hrt_beat := -60;
2312: --FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Enter CLEAR_ONE_CRASH_RECD');
2328: l_rec_recd.num_int_processed);
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);
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);
2339: END IF;
2345: COMMIT;
2346:
2347: g_hrt_beat := -69;
2348: --FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'End CLEAR_ONE_CRASH_RECD');
2349: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2350: l_fnd_log_msg := 'CLEAR_ONE_CRASH_RECD no Out Parameters';
2351: --dbms_output.put_line(l_fnd_log_msg);
2352: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2353: 'jtf.plsql.JTF_IH_BULK.CLEAR_ONE_CRASH_RECD.end', l_fnd_log_msg);
2346:
2347: g_hrt_beat := -69;
2348: --FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'End CLEAR_ONE_CRASH_RECD');
2349: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2350: l_fnd_log_msg := 'CLEAR_ONE_CRASH_RECD no Out Parameters';
2351: --dbms_output.put_line(l_fnd_log_msg);
2352: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2353: 'jtf.plsql.JTF_IH_BULK.CLEAR_ONE_CRASH_RECD.end', l_fnd_log_msg);
2354: END IF;
2347: g_hrt_beat := -69;
2348: --FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'End CLEAR_ONE_CRASH_RECD');
2349: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2350: l_fnd_log_msg := 'CLEAR_ONE_CRASH_RECD no Out Parameters';
2351: --dbms_output.put_line(l_fnd_log_msg);
2352: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2353: 'jtf.plsql.JTF_IH_BULK.CLEAR_ONE_CRASH_RECD.end', l_fnd_log_msg);
2354: END IF;
2355:
2348: --FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'End CLEAR_ONE_CRASH_RECD');
2349: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2350: l_fnd_log_msg := 'CLEAR_ONE_CRASH_RECD no Out Parameters';
2351: --dbms_output.put_line(l_fnd_log_msg);
2352: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2353: 'jtf.plsql.JTF_IH_BULK.CLEAR_ONE_CRASH_RECD.end', l_fnd_log_msg);
2354: END IF;
2355:
2356: END CLEAR_ONE_CRASH_RECD;
2349: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2350: l_fnd_log_msg := 'CLEAR_ONE_CRASH_RECD no Out Parameters';
2351: --dbms_output.put_line(l_fnd_log_msg);
2352: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2353: 'jtf.plsql.JTF_IH_BULK.CLEAR_ONE_CRASH_RECD.end', l_fnd_log_msg);
2354: END IF;
2355:
2356: END CLEAR_ONE_CRASH_RECD;
2357:
2366: l_rec_recd JTF_IH_BULK_RECOVERY%ROWTYPE;
2367:
2368: BEGIN
2369:
2370: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2371: l_fnd_log_msg := 'PERFORM_CRASH_RECOVERY No In parameters';
2372: --dbms_output.put_line(l_fnd_log_msg);
2373: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2374: 'jtf.plsql.JTF_IH_BULK.PERFORM_CRASH_RECOVERY.begin', l_fnd_log_msg);
2367:
2368: BEGIN
2369:
2370: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2371: l_fnd_log_msg := 'PERFORM_CRASH_RECOVERY No In parameters';
2372: --dbms_output.put_line(l_fnd_log_msg);
2373: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2374: 'jtf.plsql.JTF_IH_BULK.PERFORM_CRASH_RECOVERY.begin', l_fnd_log_msg);
2375: END IF;
2368: BEGIN
2369:
2370: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2371: l_fnd_log_msg := 'PERFORM_CRASH_RECOVERY No In parameters';
2372: --dbms_output.put_line(l_fnd_log_msg);
2373: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2374: 'jtf.plsql.JTF_IH_BULK.PERFORM_CRASH_RECOVERY.begin', l_fnd_log_msg);
2375: END IF;
2376: /*
2369:
2370: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2371: l_fnd_log_msg := 'PERFORM_CRASH_RECOVERY No In parameters';
2372: --dbms_output.put_line(l_fnd_log_msg);
2373: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2374: 'jtf.plsql.JTF_IH_BULK.PERFORM_CRASH_RECOVERY.begin', l_fnd_log_msg);
2375: END IF;
2376: /*
2377: To do -
2370: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2371: l_fnd_log_msg := 'PERFORM_CRASH_RECOVERY No In parameters';
2372: --dbms_output.put_line(l_fnd_log_msg);
2373: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2374: 'jtf.plsql.JTF_IH_BULK.PERFORM_CRASH_RECOVERY.begin', l_fnd_log_msg);
2375: END IF;
2376: /*
2377: To do -
2378:
2392:
2393: g_hrt_beat := -99;
2394: --FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Normal ending crash_recovery');
2395:
2396: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2397: l_fnd_log_msg := 'PERFORM_CRASH_RECOVERY No Out parameters';
2398: --dbms_output.put_line(l_fnd_log_msg);
2399: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2400: 'jtf.plsql.JTF_IH_BULK.PERFORM_CRASH_RECOVERY.end', l_fnd_log_msg);
2393: g_hrt_beat := -99;
2394: --FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Normal ending crash_recovery');
2395:
2396: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2397: l_fnd_log_msg := 'PERFORM_CRASH_RECOVERY No Out parameters';
2398: --dbms_output.put_line(l_fnd_log_msg);
2399: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2400: 'jtf.plsql.JTF_IH_BULK.PERFORM_CRASH_RECOVERY.end', l_fnd_log_msg);
2401: END IF;
2394: --FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Normal ending crash_recovery');
2395:
2396: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2397: l_fnd_log_msg := 'PERFORM_CRASH_RECOVERY No Out parameters';
2398: --dbms_output.put_line(l_fnd_log_msg);
2399: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2400: 'jtf.plsql.JTF_IH_BULK.PERFORM_CRASH_RECOVERY.end', l_fnd_log_msg);
2401: END IF;
2402:
2395:
2396: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2397: l_fnd_log_msg := 'PERFORM_CRASH_RECOVERY No Out parameters';
2398: --dbms_output.put_line(l_fnd_log_msg);
2399: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2400: 'jtf.plsql.JTF_IH_BULK.PERFORM_CRASH_RECOVERY.end', l_fnd_log_msg);
2401: END IF;
2402:
2403: RETURN;
2396: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2397: l_fnd_log_msg := 'PERFORM_CRASH_RECOVERY No Out parameters';
2398: --dbms_output.put_line(l_fnd_log_msg);
2399: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2400: 'jtf.plsql.JTF_IH_BULK.PERFORM_CRASH_RECOVERY.end', l_fnd_log_msg);
2401: END IF;
2402:
2403: RETURN;
2404:
2412: errm := 'No Error Message in SQLERRM for parsing errors';
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,
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);
2422: END IF;
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);
2422: END IF;
2423: END;
2424:
2440: error NUMBER;
2441: errm VARCHAR2(2000);
2442: BEGIN
2443:
2444: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2445: l_fnd_log_msg := 'LOG_EXC_OTHERS In parameters : '||
2446: 'p_proc_name =' || p_proc_name;
2447: --dbms_output.put_line(l_fnd_log_msg);
2448: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2441: errm VARCHAR2(2000);
2442: BEGIN
2443:
2444: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2445: l_fnd_log_msg := 'LOG_EXC_OTHERS In parameters : '||
2446: 'p_proc_name =' || p_proc_name;
2447: --dbms_output.put_line(l_fnd_log_msg);
2448: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2449: 'jtf.plsql.JTF_IH_BULK.LOG_EXC_OTHERS.begin', l_fnd_log_msg);
2443:
2444: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2445: l_fnd_log_msg := 'LOG_EXC_OTHERS In parameters : '||
2446: 'p_proc_name =' || p_proc_name;
2447: --dbms_output.put_line(l_fnd_log_msg);
2448: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2449: 'jtf.plsql.JTF_IH_BULK.LOG_EXC_OTHERS.begin', l_fnd_log_msg);
2450: END IF;
2451:
2444: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2445: l_fnd_log_msg := 'LOG_EXC_OTHERS In parameters : '||
2446: 'p_proc_name =' || p_proc_name;
2447: --dbms_output.put_line(l_fnd_log_msg);
2448: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2449: 'jtf.plsql.JTF_IH_BULK.LOG_EXC_OTHERS.begin', l_fnd_log_msg);
2450: END IF;
2451:
2452: error := SQLCODE;
2445: l_fnd_log_msg := 'LOG_EXC_OTHERS In parameters : '||
2446: 'p_proc_name =' || p_proc_name;
2447: --dbms_output.put_line(l_fnd_log_msg);
2448: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2449: 'jtf.plsql.JTF_IH_BULK.LOG_EXC_OTHERS.begin', l_fnd_log_msg);
2450: END IF;
2451:
2452: error := SQLCODE;
2453: IF (error IS NULL) THEN
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');
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);
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:
2469: --FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
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);
2474: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2475: 'jtf.plsql.JTF_IH_BULK.LOG_EXC_OTHERS.begin', l_fnd_log_msg);
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);
2474: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2475: 'jtf.plsql.JTF_IH_BULK.LOG_EXC_OTHERS.begin', l_fnd_log_msg);
2476: END IF;
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);
2474: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2475: 'jtf.plsql.JTF_IH_BULK.LOG_EXC_OTHERS.begin', l_fnd_log_msg);
2476: END IF;
2477:
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);
2474: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2475: 'jtf.plsql.JTF_IH_BULK.LOG_EXC_OTHERS.begin', l_fnd_log_msg);
2476: END IF;
2477:
2478: RETURN;
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);
2474: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2475: 'jtf.plsql.JTF_IH_BULK.LOG_EXC_OTHERS.begin', l_fnd_log_msg);
2476: END IF;
2477:
2478: RETURN;
2479: