91: l_hier_tbl l_hier_tbl_type;
92: BEGIN
93:
94: -- debug message
95: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
96: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,
97: 'jtf.plsql.JTY_TERR_ENGINE_GEN_PVT.get_terr_for_incr_star.start',
98: 'Start of the procedure JTY_TERR_ENGINE_GEN_PVT.get_terr_for_incr_star');
99: END IF;
92: BEGIN
93:
94: -- debug message
95: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
96: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,
97: 'jtf.plsql.JTY_TERR_ENGINE_GEN_PVT.get_terr_for_incr_star.start',
98: 'Start of the procedure JTY_TERR_ENGINE_GEN_PVT.get_terr_for_incr_star');
99: END IF;
100:
302: AND b.parent_territory_id = c.terr_id(+)
303: AND b.org_id = c.org_id(+);
304:
305: -- debug message
306: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
307: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,
308: 'jtf.plsql.JTY_TERR_ENGINE_GEN_PVT.get_terr_for_incr_star.end',
309: 'End of the procedure JTY_TERR_ENGINE_GEN_PVT.get_terr_for_incr_star');
310: END IF;
303: AND b.org_id = c.org_id(+);
304:
305: -- debug message
306: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
307: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,
308: 'jtf.plsql.JTY_TERR_ENGINE_GEN_PVT.get_terr_for_incr_star.end',
309: 'End of the procedure JTY_TERR_ENGINE_GEN_PVT.get_terr_for_incr_star');
310: END IF;
311:
315: EXCEPTION
316: WHEN OTHERS THEN
317: RETCODE := 2;
318: ERRBUF := SQLCODE || ' : ' || SQLERRM;
319: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
320: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION,
321: 'jtf.plsql.JTY_TERR_ENGINE_GEN_PVT.get_terr_for_incr_star.others',
322: substr(errbuf, 1, 4000));
323: END IF;
316: WHEN OTHERS THEN
317: RETCODE := 2;
318: ERRBUF := SQLCODE || ' : ' || SQLERRM;
319: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
320: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION,
321: 'jtf.plsql.JTY_TERR_ENGINE_GEN_PVT.get_terr_for_incr_star.others',
322: substr(errbuf, 1, 4000));
323: END IF;
324: END get_terr_for_incr_star;
383:
384: BEGIN
385:
386: -- debug message
387: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
388: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,
389: 'jtf.plsql.JTY_TERR_ENGINE_GEN_PVT.gen_matching_sql.start',
390: 'Start of the procedure JTY_TERR_ENGINE_GEN_PVT.gen_matching_sql');
391: END IF;
384: BEGIN
385:
386: -- debug message
387: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
388: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,
389: 'jtf.plsql.JTY_TERR_ENGINE_GEN_PVT.gen_matching_sql.start',
390: 'Start of the procedure JTY_TERR_ENGINE_GEN_PVT.gen_matching_sql');
391: END IF;
392:
412: errbuf => errbuf,
413: retcode => retcode);
414: IF (retcode <> 0) THEN
415: -- debug message
416: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
417: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION,
418: 'jtf.plsql.JTY_TERR_ENGINE_GEN_PVT.gen_matching_sql.gen_real_time_sql',
419: 'JTY_TERR_ENGINE_GEN2_PVT.gen_real_time_sql API has failed');
420: END IF;
413: retcode => retcode);
414: IF (retcode <> 0) THEN
415: -- debug message
416: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
417: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION,
418: 'jtf.plsql.JTY_TERR_ENGINE_GEN_PVT.gen_matching_sql.gen_real_time_sql',
419: 'JTY_TERR_ENGINE_GEN2_PVT.gen_real_time_sql API has failed');
420: END IF;
421:
438: RETCODE => retcode);
439:
440: IF (retcode <> 0) THEN
441: -- debug message
442: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
443: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION,
444: 'jtf.plsql.JTY_TERR_ENGINE_GEN_PVT.gen_matching_sql.delete_combinations',
445: 'JTY_TAE_CONTROL_PVT.delete_combinations API has failed');
446: END IF;
439:
440: IF (retcode <> 0) THEN
441: -- debug message
442: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
443: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION,
444: 'jtf.plsql.JTY_TERR_ENGINE_GEN_PVT.gen_matching_sql.delete_combinations',
445: 'JTY_TAE_CONTROL_PVT.delete_combinations API has failed');
446: END IF;
447:
525: retcode => retcode);
526:
527: IF (retcode <> 0) THEN
528: -- debug message
529: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
530: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION,
531: 'jtf.plsql.JTY_TERR_ENGINE_GEN_PVT.gen_matching_sql.gen_batch_sql',
532: 'jty_tae_gen_pvt.gen_batch_sql API has failed');
533: END IF;
526:
527: IF (retcode <> 0) THEN
528: -- debug message
529: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
530: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION,
531: 'jtf.plsql.JTY_TERR_ENGINE_GEN_PVT.gen_matching_sql.gen_batch_sql',
532: 'jty_tae_gen_pvt.gen_batch_sql API has failed');
533: END IF;
534:
542: END LOOP; /* end loop FOR i IN l_qual_type_id_tbl.FIRST .. l_qual_type_id_tbl.LAST */
543: END IF; /* end IF (l_qual_type_id_tbl.COUNT > 0) */
544:
545: -- debug message
546: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
547: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,
548: 'jtf.plsql.JTY_TERR_ENGINE_GEN_PVT.gen_matching_sql.end',
549: 'End of the procedure JTY_TERR_ENGINE_GEN_PVT.gen_matching_sql');
550: END IF;
543: END IF; /* end IF (l_qual_type_id_tbl.COUNT > 0) */
544:
545: -- debug message
546: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
547: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,
548: 'jtf.plsql.JTY_TERR_ENGINE_GEN_PVT.gen_matching_sql.end',
549: 'End of the procedure JTY_TERR_ENGINE_GEN_PVT.gen_matching_sql');
550: END IF;
551:
554:
555: EXCEPTION
556: WHEN FND_API.G_EXC_ERROR THEN
557: RETCODE := 2;
558: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
559: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION,
560: 'jtf.plsql.JTY_TERR_ENGINE_GEN_PVT.gen_matching_sql.g_exc_error',
561: 'API JTY_TERR_ENGINE_GEN_PVT.gen_matching_sql has failed with FND_API.G_EXC_ERROR exception');
562: END IF;
555: EXCEPTION
556: WHEN FND_API.G_EXC_ERROR THEN
557: RETCODE := 2;
558: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
559: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION,
560: 'jtf.plsql.JTY_TERR_ENGINE_GEN_PVT.gen_matching_sql.g_exc_error',
561: 'API JTY_TERR_ENGINE_GEN_PVT.gen_matching_sql has failed with FND_API.G_EXC_ERROR exception');
562: END IF;
563:
563:
564: WHEN OTHERS THEN
565: RETCODE := 2;
566: ERRBUF := SQLCODE || ' : ' || SQLERRM;
567: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
568: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION,
569: 'jtf.plsql.JTY_TERR_ENGINE_GEN_PVT.gen_matching_sql.others',
570: substr(errbuf, 1, 4000));
571: END IF;
564: WHEN OTHERS THEN
565: RETCODE := 2;
566: ERRBUF := SQLCODE || ' : ' || SQLERRM;
567: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
568: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION,
569: 'jtf.plsql.JTY_TERR_ENGINE_GEN_PVT.gen_matching_sql.others',
570: substr(errbuf, 1, 4000));
571: END IF;
572: END gen_matching_sql;
641: l_denorm_count NUMBER;
642: BEGIN
643:
644: -- debug message
645: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
646: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,
647: 'jtf.plsql.JTY_TERR_ENGINE_GEN_PVT.gen_rule_engine.start',
648: 'Start of the procedure JTY_TERR_ENGINE_GEN_PVT.gen_rule_engine');
649: END IF;
642: BEGIN
643:
644: -- debug message
645: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
646: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,
647: 'jtf.plsql.JTY_TERR_ENGINE_GEN_PVT.gen_rule_engine.start',
648: 'Start of the procedure JTY_TERR_ENGINE_GEN_PVT.gen_rule_engine');
649: END IF;
650:
669: AND star_request_id IS NULL;
670: END IF;
671:
672: -- debug message
673: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
674: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
675: 'jtf.plsql.JTY_TERR_ENGINE_GEN_PVT.gen_rule_engine.param_values',
676: 'Source : ' || p_source_id || ' Mode : ' || p_mode || ' Start Date : ' || p_start_date ||
677: ' End Date : ' || p_end_date);
670: END IF;
671:
672: -- debug message
673: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
674: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
675: 'jtf.plsql.JTY_TERR_ENGINE_GEN_PVT.gen_rule_engine.param_values',
676: 'Source : ' || p_source_id || ' Mode : ' || p_mode || ' Start Date : ' || p_start_date ||
677: ' End Date : ' || p_end_date);
678: END IF;
693: IF (l_count = 0) THEN
694: -- debug message
695: retcode := 2;
696: errbuf := 'STAR should be run at least once in TOTAL mode before INCREMENTAL mode';
697: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
698: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION,
699: 'jtf.plsql.JTY_TERR_ENGINE_GEN_PVT.gen_rule_engine.check_total_mode',
700: errbuf);
701: END IF;
694: -- debug message
695: retcode := 2;
696: errbuf := 'STAR should be run at least once in TOTAL mode before INCREMENTAL mode';
697: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
698: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION,
699: 'jtf.plsql.JTY_TERR_ENGINE_GEN_PVT.gen_rule_engine.check_total_mode',
700: errbuf);
701: END IF;
702:
715: errbuf => errbuf);
716:
717: IF (retcode <> 0) THEN
718: -- debug message
719: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
720: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION,
721: 'jtf.plsql.JTY_TERR_ENGINE_GEN_PVT.gen_rule_engine.get_terr_for_incr_star',
722: 'get_terr_for_incr_star API has failed');
723: END IF;
716:
717: IF (retcode <> 0) THEN
718: -- debug message
719: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
720: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION,
721: 'jtf.plsql.JTY_TERR_ENGINE_GEN_PVT.gen_rule_engine.get_terr_for_incr_star',
722: 'get_terr_for_incr_star API has failed');
723: END IF;
724:
752:
753: l_no_of_records := l_terr_change_tab.terr_id.COUNT;
754:
755: -- debug message
756: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
757: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
758: 'jtf.plsql.JTY_TERR_ENGINE_GEN_PVT.gen_rule_engine.no_of_terr',
759: 'Number of territories to be processed : ' || l_no_of_records);
760: END IF;
753: l_no_of_records := l_terr_change_tab.terr_id.COUNT;
754:
755: -- debug message
756: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
757: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
758: 'jtf.plsql.JTY_TERR_ENGINE_GEN_PVT.gen_rule_engine.no_of_terr',
759: 'Number of territories to be processed : ' || l_no_of_records);
760: END IF;
761:
769: retcode => retcode);
770:
771: IF (retcode <> 0) THEN
772: -- debug message
773: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
774: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION,
775: 'jtf.plsql.JTY_TERR_ENGINE_GEN_PVT.gen_rule_engine.process_attr_and_rank',
776: 'process_attr_and_rank API has failed');
777: END IF;
770:
771: IF (retcode <> 0) THEN
772: -- debug message
773: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
774: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION,
775: 'jtf.plsql.JTY_TERR_ENGINE_GEN_PVT.gen_rule_engine.process_attr_and_rank',
776: 'process_attr_and_rank API has failed');
777: END IF;
778:
779: RAISE FND_API.G_EXC_ERROR;
780: END IF;
781:
782: -- debug message
783: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
784: FND_LOG.string(FND_LOG.LEVEL_EVENT,
785: 'jtf.plsql.JTY_TERR_ENGINE_GEN_PVT.gen_rule_engine.process_attr_and_rank',
786: 'process_attr_and_rank API has completed with success');
787: END IF;
780: END IF;
781:
782: -- debug message
783: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
784: FND_LOG.string(FND_LOG.LEVEL_EVENT,
785: 'jtf.plsql.JTY_TERR_ENGINE_GEN_PVT.gen_rule_engine.process_attr_and_rank',
786: 'process_attr_and_rank API has completed with success');
787: END IF;
788:
800: retcode => retcode);
801:
802: IF (retcode <> 0) THEN
803: -- debug message
804: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
805: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION,
806: 'jtf.plsql.JTY_TERR_ENGINE_GEN_PVT.gen_rule_engine.gen_matching_sql',
807: 'gen_matching_sql API has failed');
808: END IF;
801:
802: IF (retcode <> 0) THEN
803: -- debug message
804: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
805: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION,
806: 'jtf.plsql.JTY_TERR_ENGINE_GEN_PVT.gen_rule_engine.gen_matching_sql',
807: 'gen_matching_sql API has failed');
808: END IF;
809:
810: RAISE FND_API.G_EXC_ERROR;
811: END IF;
812:
813: -- debug message
814: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
815: FND_LOG.string(FND_LOG.LEVEL_EVENT,
816: 'jtf.plsql.JTY_TERR_ENGINE_GEN_PVT.gen_rule_engine.gen_matching_sql',
817: 'gen_matching_sql API has completed with success');
818: END IF;
811: END IF;
812:
813: -- debug message
814: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
815: FND_LOG.string(FND_LOG.LEVEL_EVENT,
816: 'jtf.plsql.JTY_TERR_ENGINE_GEN_PVT.gen_rule_engine.gen_matching_sql',
817: 'gen_matching_sql API has completed with success');
818: END IF;
819:
886: END IF;
887:
888: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
889: -- debug message
890: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
891: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION,
892: 'jtf.plsql.JTY_TERR_ENGINE_GEN_PVT.gen_rule_engine.CREATE_DNMVAL_INDEX',
893: 'JTY_TERR_DENORM_RULES_PVT.CREATE_DNMVAL_INDEX API has failed');
894: END IF;
887:
888: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
889: -- debug message
890: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
891: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION,
892: 'jtf.plsql.JTY_TERR_ENGINE_GEN_PVT.gen_rule_engine.CREATE_DNMVAL_INDEX',
893: 'JTY_TERR_DENORM_RULES_PVT.CREATE_DNMVAL_INDEX API has failed');
894: END IF;
895:
897: END IF;
898:
899: ELSE
900: -- debug message
901: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
902: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION,
903: 'jtf.plsql.JTY_TERR_ENGINE_GEN_PVT.gen_rule_engine.no_of_terr',
904: 'No territories processed');
905: END IF;
898:
899: ELSE
900: -- debug message
901: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
902: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION,
903: 'jtf.plsql.JTY_TERR_ENGINE_GEN_PVT.gen_rule_engine.no_of_terr',
904: 'No territories processed');
905: END IF;
906:
996: ,0);
997: END IF;
998:
999: -- debug message
1000: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1001: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,
1002: 'jtf.plsql.JTY_TERR_ENGINE_GEN_PVT.gen_rule_engine.end',
1003: 'End of the procedure JTY_TERR_ENGINE_GEN_PVT.gen_rule_engine');
1004: END IF;
997: END IF;
998:
999: -- debug message
1000: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1001: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,
1002: 'jtf.plsql.JTY_TERR_ENGINE_GEN_PVT.gen_rule_engine.end',
1003: 'End of the procedure JTY_TERR_ENGINE_GEN_PVT.gen_rule_engine');
1004: END IF;
1005:
1005:
1006: EXCEPTION
1007: WHEN FND_API.G_EXC_ERROR THEN
1008: RETCODE := 2;
1009: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1010: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION,
1011: 'jtf.plsql.JTY_TERR_ENGINE_GEN_PVT.gen_rule_engine.g_exc_error',
1012: 'API JTY_TERR_ENGINE_GEN_PVT.gen_rule_engine has failed with FND_API.G_EXC_ERROR exception');
1013: END IF;
1006: EXCEPTION
1007: WHEN FND_API.G_EXC_ERROR THEN
1008: RETCODE := 2;
1009: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1010: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION,
1011: 'jtf.plsql.JTY_TERR_ENGINE_GEN_PVT.gen_rule_engine.g_exc_error',
1012: 'API JTY_TERR_ENGINE_GEN_PVT.gen_rule_engine has failed with FND_API.G_EXC_ERROR exception');
1013: END IF;
1014:
1014:
1015: WHEN OTHERS THEN
1016: RETCODE := 2;
1017: ERRBUF := SQLCODE || ' : ' || SQLERRM;
1018: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1019: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION,
1020: 'jtf.plsql.JTY_TERR_ENGINE_GEN_PVT.gen_rule_engine.others',
1021: substr(errbuf, 1, 4000));
1022: END IF;
1015: WHEN OTHERS THEN
1016: RETCODE := 2;
1017: ERRBUF := SQLCODE || ' : ' || SQLERRM;
1018: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1019: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION,
1020: 'jtf.plsql.JTY_TERR_ENGINE_GEN_PVT.gen_rule_engine.others',
1021: substr(errbuf, 1, 4000));
1022: END IF;
1023: END gen_rule_engine;