1: PACKAGE BODY JTY_TERR_DENORM_RULES_PVT AS
2: /* $Header: jtfytdrb.pls 120.17.12010000.14 2008/12/15 10:58:10 ppillai ship $ */
3: -- Start of Comments
4: -- ---------------------------------------------------
5: -- PACKAGE NAME: JTY_TERR_DENORM_RULES_PVT
1: PACKAGE BODY JTY_TERR_DENORM_RULES_PVT AS
2: /* $Header: jtfytdrb.pls 120.17.12010000.14 2008/12/15 10:58:10 ppillai ship $ */
3: -- Start of Comments
4: -- ---------------------------------------------------
5: -- PACKAGE NAME: JTY_TERR_DENORM_RULES_PVT
6: -- ---------------------------------------------------
7: -- PURPOSE
8: -- This package is used for the following prposes :
9: -- a) denormalize the territory hierarchy
101: BEGIN
102: -- debug message
103: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
104: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,
105: 'jtf.plsql.jty_terr_denorm_rules_pvt.create_dnmval_index.begin',
106: 'Start of the procedure jty_terr_denorm_rules_pvt.create_dnmval_index');
107: END IF;
108:
109: x_return_status := FND_API.G_RET_STS_SUCCESS;
102: -- debug message
103: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
104: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,
105: 'jtf.plsql.jty_terr_denorm_rules_pvt.create_dnmval_index.begin',
106: 'Start of the procedure jty_terr_denorm_rules_pvt.create_dnmval_index');
107: END IF;
108:
109: x_return_status := FND_API.G_RET_STS_SUCCESS;
110:
129:
130: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
131: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
132: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION,
133: 'jtf.plsql.jty_terr_denorm_rules_pvt.create_dnmval_index.selectivity',
134: 'API jty_tae_index_creation_pvt.SELECTIVITY has failed');
135: END IF;
136: RAISE FND_API.G_EXC_ERROR;
137: END IF;
150:
151: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
152: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
153: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION,
154: 'jtf.plsql.jty_terr_denorm_rules_pvt.create_dnmval_index.reduce_dnmval_idx_set',
155: 'API JTY_TAE_CONTROL_PVT.reduce_dnmval_idx_set has failed');
156: END IF;
157: RAISE FND_API.G_EXC_ERROR;
158: END IF;
166:
167: -- debug message
168: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
169: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
170: 'jtf.plsql.jty_terr_denorm_rules_pvt.create_dnmval_index.l_dop',
171: 'Default degree of parallelism : ' || l_dop);
172: END IF;
173:
174: /* get tablespace information */
181:
182: -- debug message
183: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
184: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
185: 'jtf.plsql.jty_terr_denorm_rules_pvt.create_dnmval_index.tablespace',
186: 'Table tablespace : ' || l_table_tablespace || ' Index tablespace : ' || l_idx_tablespace ||
187: ' Schema Name : ' || l_ora_username);
188: END IF;
189:
226:
227: -- debug message
228: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
229: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
230: 'jtf.plsql.jty_terr_denorm_rules_pvt.create_dnmval_index.index_creation',
231: 'Index created with the statement : ' || v_statement);
232: END IF;
233: DECLARE --Bug 7645026
234: duplicate_index EXCEPTION;
296:
297: -- debug message
298: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
299: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
300: 'jtf.plsql.jty_terr_denorm_rules_pvt.create_dnmval_index.index_creation',
301: 'Index created with the statement : ' || v_statement);
302: END IF;
303: DECLARE --Bug 7614496
304: duplicate_index EXCEPTION;
320:
321: -- debug message
322: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
323: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,
324: 'jtf.plsql.jty_terr_denorm_rules_pvt.create_dnmval_index.end',
325: 'End of the procedure jty_terr_denorm_rules_pvt.create_dnmval_index');
326: END IF;
327:
328: EXCEPTION
321: -- debug message
322: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
323: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,
324: 'jtf.plsql.jty_terr_denorm_rules_pvt.create_dnmval_index.end',
325: 'End of the procedure jty_terr_denorm_rules_pvt.create_dnmval_index');
326: END IF;
327:
328: EXCEPTION
329: WHEN NO_DATA_FOUND THEN
329: WHEN NO_DATA_FOUND THEN
330: x_return_status := FND_API.G_RET_STS_ERROR ;
331: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
332: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION,
333: 'jtf.plsql.jty_terr_denorm_rules_pvt.create_dnmval_index.no_data_found',
334: 'API jty_terr_denorm_rules_pvt.create_dnmval_index has failed with no_data_found');
335: END IF;
336:
337: WHEN FND_API.G_EXC_ERROR THEN
330: x_return_status := FND_API.G_RET_STS_ERROR ;
331: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
332: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION,
333: 'jtf.plsql.jty_terr_denorm_rules_pvt.create_dnmval_index.no_data_found',
334: 'API jty_terr_denorm_rules_pvt.create_dnmval_index has failed with no_data_found');
335: END IF;
336:
337: WHEN FND_API.G_EXC_ERROR THEN
338: x_return_status := FND_API.G_RET_STS_ERROR ;
337: WHEN FND_API.G_EXC_ERROR THEN
338: x_return_status := FND_API.G_RET_STS_ERROR ;
339: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
340: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION,
341: 'jtf.plsql.jty_terr_denorm_rules_pvt.create_dnmval_index.g_exc_error',
342: 'jty_terr_denorm_rules_pvt.create_dnmval_index has failed with G_EXC_ERROR exception');
343: END IF;
344:
345: WHEN OTHERS THEN
338: x_return_status := FND_API.G_RET_STS_ERROR ;
339: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
340: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION,
341: 'jtf.plsql.jty_terr_denorm_rules_pvt.create_dnmval_index.g_exc_error',
342: 'jty_terr_denorm_rules_pvt.create_dnmval_index has failed with G_EXC_ERROR exception');
343: END IF;
344:
345: WHEN OTHERS THEN
346: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
345: WHEN OTHERS THEN
346: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
347: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
348: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION,
349: 'jtf.plsql.jty_terr_denorm_rules_pvt.create_dnmval_index.others',
350: substr(SQLCODE || ' : ' || SQLERRM, 1, 4000));
351: END IF;
352:
353: END CREATE_DNMVAL_INDEX;
403: BEGIN
404: -- debug message
405: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
406: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,
407: 'jtf.plsql.JTY_TERR_DENORM_RULES_PVT.update_denorm_table.start',
408: 'Start of the procedure JTY_TERR_DENORM_RULES_PVT.update_denorm_table');
409: END IF;
410:
411: l_no_of_records := p_terr_id_tbl.COUNT;
404: -- debug message
405: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
406: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,
407: 'jtf.plsql.JTY_TERR_DENORM_RULES_PVT.update_denorm_table.start',
408: 'Start of the procedure JTY_TERR_DENORM_RULES_PVT.update_denorm_table');
409: END IF;
410:
411: l_no_of_records := p_terr_id_tbl.COUNT;
412:
470:
471: -- debug message
472: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
473: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
474: 'jtf.plsql.JTY_TERR_DENORM_RULES_PVT.update_denorm_table.num_rows_inserted',
475: 'Number of records inserted into jtf_terr_denorm_rules_all : ' || l_no_of_records);
476: END IF;
477:
478: ELSE
530:
531: -- debug message
532: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
533: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
534: 'jtf.plsql.JTY_TERR_DENORM_RULES_PVT.update_denorm_table.num_rows_inserted',
535: 'Number of records inserted into jty_denorm_dea_rules_all : ' || l_no_of_records);
536: END IF;
537:
538: END IF; /* end IF (p_mode IN ('TOTAL', 'INCREMENTAL')) */
541:
542: -- debug message
543: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
544: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,
545: 'jtf.plsql.JTY_TERR_DENORM_RULES_PVT.update_denorm_table.end',
546: 'End of the procedure JTY_TERR_DENORM_RULES_PVT.update_denorm_table');
547: END IF;
548:
549: retcode := 0;
542: -- debug message
543: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
544: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,
545: 'jtf.plsql.JTY_TERR_DENORM_RULES_PVT.update_denorm_table.end',
546: 'End of the procedure JTY_TERR_DENORM_RULES_PVT.update_denorm_table');
547: END IF;
548:
549: retcode := 0;
550: errbuf := null;
554: RETCODE := 2;
555: ERRBUF := SQLCODE || ' : ' || SQLERRM;
556: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
557: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION,
558: 'jtf.plsql.JTY_TERR_DENORM_RULES_PVT.update_denorm_table.others',
559: substr(errbuf, 1, 4000));
560: END IF;
561: END update_denorm_table;
562:
572: BEGIN
573: -- debug message
574: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
575: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,
576: 'jtf.plsql.JTY_TERR_DENORM_RULES_PVT.update_relative_rank.start',
577: 'Start of the procedure JTY_TERR_DENORM_RULES_PVT.update_relative_rank');
578: END IF;
579:
580: l_no_of_records := p_terr_id_tbl.COUNT;
573: -- debug message
574: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
575: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,
576: 'jtf.plsql.JTY_TERR_DENORM_RULES_PVT.update_relative_rank.start',
577: 'Start of the procedure JTY_TERR_DENORM_RULES_PVT.update_relative_rank');
578: END IF;
579:
580: l_no_of_records := p_terr_id_tbl.COUNT;
581:
605:
606: -- debug message
607: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
608: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
609: 'jtf.plsql.JTY_TERR_DENORM_RULES_PVT.update_relative_rank.num_rows_updated',
610: 'Number of records updated in jtf_terr_all for relative rank : ' || l_no_of_records);
611: END IF;
612:
613: END IF; /* end IF (l_no_of_records > 0) */
614:
615: -- debug message
616: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
617: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,
618: 'jtf.plsql.JTY_TERR_DENORM_RULES_PVT.update_relative_rank.end',
619: 'End of the procedure JTY_TERR_DENORM_RULES_PVT.update_relative_rank');
620: END IF;
621:
622: retcode := 0;
615: -- debug message
616: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
617: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,
618: 'jtf.plsql.JTY_TERR_DENORM_RULES_PVT.update_relative_rank.end',
619: 'End of the procedure JTY_TERR_DENORM_RULES_PVT.update_relative_rank');
620: END IF;
621:
622: retcode := 0;
623: errbuf := null;
627: RETCODE := 2;
628: ERRBUF := SQLCODE || ' : ' || SQLERRM;
629: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
630: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION,
631: 'jtf.plsql.JTY_TERR_DENORM_RULES_PVT.update_relative_rank.others',
632: substr(errbuf, 1, 4000));
633: END IF;
634: END update_relative_rank;
635:
646: BEGIN
647: -- debug message
648: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
649: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,
650: 'jtf.plsql.JTY_TERR_DENORM_RULES_PVT.update_absolute_rank.start',
651: 'Start of the procedure JTY_TERR_DENORM_RULES_PVT.update_absolute_rank');
652: END IF;
653:
654: l_no_of_records := p_terr_id_tbl.COUNT;
647: -- debug message
648: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
649: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,
650: 'jtf.plsql.JTY_TERR_DENORM_RULES_PVT.update_absolute_rank.start',
651: 'Start of the procedure JTY_TERR_DENORM_RULES_PVT.update_absolute_rank');
652: END IF;
653:
654: l_no_of_records := p_terr_id_tbl.COUNT;
655:
701:
702: -- debug message
703: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
704: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
705: 'jtf.plsql.JTY_TERR_DENORM_RULES_PVT.update_absolute_rank.num_rows_updated',
706: 'Number of records updated in jtf_terr_all for absolute rank : ' || l_no_of_records);
707: END IF;
708:
709: END IF; /* end IF (l_no_of_records > 0) */
710:
711: -- debug message
712: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
713: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,
714: 'jtf.plsql.JTY_TERR_DENORM_RULES_PVT.update_absolute_rank.end',
715: 'End of the procedure JTY_TERR_DENORM_RULES_PVT.update_absolute_rank');
716: END IF;
717:
718: retcode := 0;
711: -- debug message
712: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
713: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,
714: 'jtf.plsql.JTY_TERR_DENORM_RULES_PVT.update_absolute_rank.end',
715: 'End of the procedure JTY_TERR_DENORM_RULES_PVT.update_absolute_rank');
716: END IF;
717:
718: retcode := 0;
719: errbuf := null;
723: RETCODE := 2;
724: ERRBUF := SQLCODE || ' : ' || SQLERRM;
725: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
726: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION,
727: 'jtf.plsql.JTY_TERR_DENORM_RULES_PVT.update_absolute_rank.others',
728: substr(errbuf, 1, 4000));
729: END IF;
730: END update_absolute_rank;
731:
1081: BEGIN
1082: -- debug message
1083: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1084: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,
1085: 'jtf.plsql.JTY_TERR_DENORM_RULES_PVT.process_attr_values.start',
1086: 'Start of the procedure JTY_TERR_DENORM_RULES_PVT.process_attr_values');
1087: END IF;
1088:
1089: /* initialize the pl/sql tables */
1082: -- debug message
1083: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1084: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,
1085: 'jtf.plsql.JTY_TERR_DENORM_RULES_PVT.process_attr_values.start',
1086: 'Start of the procedure JTY_TERR_DENORM_RULES_PVT.process_attr_values');
1087: END IF;
1088:
1089: /* initialize the pl/sql tables */
1090: l_qtype_terr_id_tbl := l_qtype_terr_id_tbl_type();
1440:
1441: -- debug message
1442: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1443: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1444: 'jtf.plsql.JTY_TERR_DENORM_RULES_PVT.process_attr_values.denorm_value_gt',
1445: 'Done populating the global temp table with denormalised informations');
1446: END IF;
1447:
1448: /* Move the denormalized territory qualifier values from global temp table to the actual one */
1509:
1510: -- debug message
1511: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1512: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1513: 'jtf.plsql.JTY_TERR_DENORM_RULES_PVT.process_attr_values.denorm_value',
1514: 'Number of rows inserted : ' || SQL%ROWCOUNT);
1515: END IF;
1516:
1517: /* analyze the denorm value table to caluclate the selectivity of the columns */
1526: retcode := 2;
1527: errbuf := 'JTY_TAE_INDEX_CREATION_PVT.ANALYZE_TABLE_INDEX has failed for table ' || l_table_name;
1528: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1529: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION,
1530: 'jtf.plsql.JTY_TERR_DENORM_RULES_PVT.process_attr_values.analyze_table_index',
1531: 'ANALYZE_TABLE_INDEX API has failed');
1532: END IF;
1533:
1534: RAISE FND_API.G_EXC_ERROR;
1579:
1580: -- debug message
1581: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1582: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1583: 'jtf.plsql.JTY_TERR_DENORM_RULES_PVT.process_attr_values.update_num_qual',
1584: 'Done updating jtf_terr_qtype_usgs_all with num_qual and qual_relation_product');
1585: END IF;
1586:
1587: -- debug message
1586:
1587: -- debug message
1588: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1589: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,
1590: 'jtf.plsql.JTY_TERR_DENORM_RULES_PVT.process_attr_values.end',
1591: 'End of the procedure JTY_TERR_DENORM_RULES_PVT.process_attr_values');
1592: END IF;
1593:
1594: retcode := 0;
1587: -- debug message
1588: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1589: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,
1590: 'jtf.plsql.JTY_TERR_DENORM_RULES_PVT.process_attr_values.end',
1591: 'End of the procedure JTY_TERR_DENORM_RULES_PVT.process_attr_values');
1592: END IF;
1593:
1594: retcode := 0;
1595: errbuf := null;
1597: EXCEPTION
1598: WHEN FND_API.G_EXC_ERROR THEN
1599: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1600: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION,
1601: 'jtf.plsql.JTY_TERR_DENORM_RULES_PVT.process_attr_values.g_exc_error',
1602: 'API JTY_TERR_DENORM_RULES_PVT.process_attr_values has failed with FND_API.G_EXC_ERROR exception');
1603: END IF;
1604:
1605: WHEN L_SCHEMA_NOTFOUND THEN
1598: WHEN FND_API.G_EXC_ERROR THEN
1599: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1600: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION,
1601: 'jtf.plsql.JTY_TERR_DENORM_RULES_PVT.process_attr_values.g_exc_error',
1602: 'API JTY_TERR_DENORM_RULES_PVT.process_attr_values has failed with FND_API.G_EXC_ERROR exception');
1603: END IF;
1604:
1605: WHEN L_SCHEMA_NOTFOUND THEN
1606: RETCODE := 2;
1603: END IF;
1604:
1605: WHEN L_SCHEMA_NOTFOUND THEN
1606: RETCODE := 2;
1607: ERRBUF := 'JTY_TERR_DENORM_RULES_PVT.process_attr_values : SCHEMA NAME NOT FOUND CORRESPONDING TO JTF APPLICATION. ';
1608: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1609: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION,
1610: 'jtf.plsql.JTY_TERR_DENORM_RULES_PVT.process_attr_values.l_schema_notfound',
1611: errbuf);
1606: RETCODE := 2;
1607: ERRBUF := 'JTY_TERR_DENORM_RULES_PVT.process_attr_values : SCHEMA NAME NOT FOUND CORRESPONDING TO JTF APPLICATION. ';
1608: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1609: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION,
1610: 'jtf.plsql.JTY_TERR_DENORM_RULES_PVT.process_attr_values.l_schema_notfound',
1611: errbuf);
1612: END IF;
1613:
1614: WHEN OTHERS THEN
1615: RETCODE := 2;
1616: ERRBUF := SQLCODE || ' : ' || SQLERRM;
1617: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1618: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION,
1619: 'jtf.plsql.JTY_TERR_DENORM_RULES_PVT.process_attr_values.others',
1620: substr(errbuf, 1, 4000));
1621: END IF;
1622:
1623: END process_attr_values;
1670: BEGIN
1671: -- debug message
1672: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1673: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,
1674: 'jtf.plsql.JTY_TERR_DENORM_RULES_PVT.process_terr_rank.start',
1675: 'Start of the procedure JTY_TERR_DENORM_RULES_PVT.process_terr_rank');
1676: END IF;
1677:
1678: /* Get the maximum rank among the territories for the usage */
1671: -- debug message
1672: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1673: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,
1674: 'jtf.plsql.JTY_TERR_DENORM_RULES_PVT.process_terr_rank.start',
1675: 'Start of the procedure JTY_TERR_DENORM_RULES_PVT.process_terr_rank');
1676: END IF;
1677:
1678: /* Get the maximum rank among the territories for the usage */
1679: BEGIN
1718: IF (retcode <> 0) THEN
1719: -- debug message
1720: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1721: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION,
1722: 'jtf.plsql.JTY_TERR_DENORM_RULES_PVT.process_terr_rank.update_relative_rank',
1723: 'update_relative_rank API has failed');
1724: END IF;
1725:
1726: RAISE FND_API.G_EXC_ERROR;
1736: IF (retcode <> 0) THEN
1737: -- debug message
1738: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1739: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION,
1740: 'jtf.plsql.JTY_TERR_DENORM_RULES_PVT.process_terr_rank.update_absolute_rank',
1741: 'update_absolute_rank API has failed');
1742: END IF;
1743:
1744: RAISE FND_API.G_EXC_ERROR;
1773: IF (retcode <> 0) THEN
1774: -- debug message
1775: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1776: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION,
1777: 'jtf.plsql.JTY_TERR_DENORM_RULES_PVT.process_terr_rank.update_denorm_table',
1778: 'update_denorm_table API has failed');
1779: END IF;
1780:
1781: RAISE FND_API.G_EXC_ERROR;
1965: IF (retcode <> 0) THEN
1966: -- debug message
1967: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1968: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION,
1969: 'jtf.plsql.JTY_TERR_DENORM_RULES_PVT.process_terr_rank.update_relative_rank',
1970: 'update_relative_rank API has failed');
1971: END IF;
1972:
1973: RAISE FND_API.G_EXC_ERROR;
1984: IF (retcode <> 0) THEN
1985: -- debug message
1986: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1987: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION,
1988: 'jtf.plsql.JTY_TERR_DENORM_RULES_PVT.process_terr_rank.update_absolute_rank',
1989: 'update_absolute_rank API has failed');
1990: END IF;
1991:
1992: RAISE FND_API.G_EXC_ERROR;
2022: IF (retcode <> 0) THEN
2023: -- debug message
2024: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2025: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION,
2026: 'jtf.plsql.JTY_TERR_DENORM_RULES_PVT.process_terr_rank.update_denorm_table',
2027: 'update_denorm_table API has failed');
2028: END IF;
2029:
2030: RAISE FND_API.G_EXC_ERROR;
2092:
2093: -- debug message
2094: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2095: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
2096: 'jtf.plsql.JTY_TERR_DENORM_RULES_PVT.process_terr_rank.rows_inserted',
2097: 'Finished inserting rows into denorm table and rank calculation');
2098: END IF;
2099:
2100: END IF; /* end IF (p_terr_change_tab.terr_id.COUNT > 0) */
2152:
2153: -- debug message
2154: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2155: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,
2156: 'jtf.plsql.JTY_TERR_DENORM_RULES_PVT.process_terr_rank.end',
2157: 'End of the procedure JTY_TERR_DENORM_RULES_PVT.process_terr_rank');
2158: END IF;
2159:
2160: retcode := 0;
2153: -- debug message
2154: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2155: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,
2156: 'jtf.plsql.JTY_TERR_DENORM_RULES_PVT.process_terr_rank.end',
2157: 'End of the procedure JTY_TERR_DENORM_RULES_PVT.process_terr_rank');
2158: END IF;
2159:
2160: retcode := 0;
2161: errbuf := null;
2164: WHEN FND_API.G_EXC_ERROR THEN
2165: RETCODE := 2;
2166: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2167: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION,
2168: 'jtf.plsql.JTY_TERR_DENORM_RULES_PVT.process_terr_rank.g_exc_error',
2169: 'API JTY_TERR_DENORM_RULES_PVT.process_terr_rank has failed with FND_API.G_EXC_ERROR exception');
2170: END IF;
2171:
2172: WHEN OTHERS THEN
2165: RETCODE := 2;
2166: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2167: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION,
2168: 'jtf.plsql.JTY_TERR_DENORM_RULES_PVT.process_terr_rank.g_exc_error',
2169: 'API JTY_TERR_DENORM_RULES_PVT.process_terr_rank has failed with FND_API.G_EXC_ERROR exception');
2170: END IF;
2171:
2172: WHEN OTHERS THEN
2173: RETCODE := 2;
2173: RETCODE := 2;
2174: ERRBUF := SQLCODE || ' : ' || SQLERRM;
2175: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2176: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION,
2177: 'jtf.plsql.JTY_TERR_DENORM_RULES_PVT.process_terr_rank.others',
2178: substr(errbuf, 1, 4000));
2179: END IF;
2180:
2181: END process_terr_rank;
2209: BEGIN
2210: -- debug message
2211: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2212: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,
2213: 'jtf.plsql.JTY_TERR_DENORM_RULES_PVT.drop_dnmval_table_indexes.begin',
2214: 'Start of the procedure JTY_TERR_DENORM_RULES_PVT.drop_dnmval_table_indexes');
2215: END IF;
2216:
2217: x_return_status := FND_API.G_RET_STS_SUCCESS;
2210: -- debug message
2211: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2212: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,
2213: 'jtf.plsql.JTY_TERR_DENORM_RULES_PVT.drop_dnmval_table_indexes.begin',
2214: 'Start of the procedure JTY_TERR_DENORM_RULES_PVT.drop_dnmval_table_indexes');
2215: END IF;
2216:
2217: x_return_status := FND_API.G_RET_STS_SUCCESS;
2218:
2251:
2252: -- debug message
2253: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2254: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,
2255: 'jtf.plsql.JTY_TERR_DENORM_RULES_PVT.drop_dnmval_table_indexes.end',
2256: 'End of the procedure JTY_TERR_DENORM_RULES_PVT.drop_dnmval_table_indexes');
2257: END IF;
2258:
2259: EXCEPTION
2252: -- debug message
2253: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2254: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,
2255: 'jtf.plsql.JTY_TERR_DENORM_RULES_PVT.drop_dnmval_table_indexes.end',
2256: 'End of the procedure JTY_TERR_DENORM_RULES_PVT.drop_dnmval_table_indexes');
2257: END IF;
2258:
2259: EXCEPTION
2260: WHEN L_SCHEMA_NOTFOUND THEN
2260: WHEN L_SCHEMA_NOTFOUND THEN
2261: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2262: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2263: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION,
2264: 'jtf.plsql.JTY_TERR_DENORM_RULES_PVT.drop_dnmval_table_indexes.l_schema_notfound',
2265: 'Schema name corresponding to JTF application not found');
2266: END IF;
2267:
2268: WHEN OTHERS THEN
2268: WHEN OTHERS THEN
2269: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2270: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2271: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION,
2272: 'jtf.plsql.JTY_TERR_DENORM_RULES_PVT.drop_dnmval_table_indexes.others',
2273: substr(SQLCODE || ' : ' || SQLERRM, 1, 4000));
2274: END IF;
2275:
2276: END DROP_DNMVAL_TABLE_INDEXES;
2289: BEGIN
2290: -- debug message
2291: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2292: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,
2293: 'jtf.plsql.JTY_TERR_DENORM_RULES_PVT.process_attr_and_rank.start',
2294: 'Start of the procedure JTY_TERR_DENORM_RULES_PVT.process_attr_and_rank');
2295: END IF;
2296:
2297: IF (p_mode = 'DATE EFFECTIVE') THEN
2290: -- debug message
2291: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2292: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,
2293: 'jtf.plsql.JTY_TERR_DENORM_RULES_PVT.process_attr_and_rank.start',
2294: 'Start of the procedure JTY_TERR_DENORM_RULES_PVT.process_attr_and_rank');
2295: END IF;
2296:
2297: IF (p_mode = 'DATE EFFECTIVE') THEN
2298: SELECT denorm_dea_value_table_name
2322: errbuf := 'drop_dnmval_table_indexes API has failed';
2323: -- debug message
2324: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2325: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION,
2326: 'jtf.plsql.JTY_TERR_DENORM_RULES_PVT.process_attr_and_rank.drop_dnmval_table_indexes',
2327: 'drop_dnmval_table_indexes API has failed');
2328: END IF;
2329:
2330: RAISE FND_API.G_EXC_ERROR;
2356: errbuf := 'drop_dnmval_table_indexes API has failed';
2357: -- debug message
2358: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2359: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION,
2360: 'jtf.plsql.JTY_TERR_DENORM_RULES_PVT.process_attr_and_rank.drop_dnmval_table_indexes',
2361: 'drop_dnmval_table_indexes API has failed');
2362: END IF;
2363:
2364: RAISE FND_API.G_EXC_ERROR;
2403: IF (retcode <> 0) THEN
2404: -- debug message
2405: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2406: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION,
2407: 'jtf.plsql.JTY_TERR_DENORM_RULES_PVT.process_attr_and_rank.process_terr_rank',
2408: 'process_terr_rank API has failed');
2409: END IF;
2410:
2411: RAISE FND_API.G_EXC_ERROR;
2413:
2414: -- debug message
2415: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2416: FND_LOG.string(FND_LOG.LEVEL_EVENT,
2417: 'jtf.plsql.JTY_TERR_DENORM_RULES_PVT.process_attr_and_rank.process_terr_rank',
2418: 'API process_terr_rank completed successfully');
2419: END IF;
2420:
2421: /* Denormalize the qualifier values and calculate num_qual and qual_relation_product */
2430: IF (retcode <> 0) THEN
2431: -- debug message
2432: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2433: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION,
2434: 'jtf.plsql.JTY_TERR_DENORM_RULES_PVT.process_attr_and_rank.process_attr_values',
2435: 'process_attr_values API has failed');
2436: END IF;
2437:
2438: RAISE FND_API.G_EXC_ERROR;
2440:
2441: -- debug message
2442: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2443: FND_LOG.string(FND_LOG.LEVEL_EVENT,
2444: 'jtf.plsql.JTY_TERR_DENORM_RULES_PVT.process_attr_and_rank.process_attr_values',
2445: 'API process_attr_values completed successfully');
2446: END IF;
2447:
2448: -- debug message
2447:
2448: -- debug message
2449: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2450: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,
2451: 'jtf.plsql.JTY_TERR_DENORM_RULES_PVT.process_attr_and_rank.end',
2452: 'End of the procedure JTY_TERR_DENORM_RULES_PVT.process_attr_and_rank');
2453: END IF;
2454:
2455: retcode := 0;
2448: -- debug message
2449: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2450: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,
2451: 'jtf.plsql.JTY_TERR_DENORM_RULES_PVT.process_attr_and_rank.end',
2452: 'End of the procedure JTY_TERR_DENORM_RULES_PVT.process_attr_and_rank');
2453: END IF;
2454:
2455: retcode := 0;
2456: errbuf := null;
2458: EXCEPTION
2459: WHEN FND_API.G_EXC_ERROR THEN
2460: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2461: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION,
2462: 'jtf.plsql.JTY_TERR_DENORM_RULES_PVT.process_attr_and_rank.g_exc_error',
2463: 'API JTY_TERR_DENORM_RULES_PVT.process_attr_and_rank has failed with FND_API.G_EXC_ERROR exception');
2464: END IF;
2465:
2466: WHEN OTHERS THEN
2459: WHEN FND_API.G_EXC_ERROR THEN
2460: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2461: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION,
2462: 'jtf.plsql.JTY_TERR_DENORM_RULES_PVT.process_attr_and_rank.g_exc_error',
2463: 'API JTY_TERR_DENORM_RULES_PVT.process_attr_and_rank has failed with FND_API.G_EXC_ERROR exception');
2464: END IF;
2465:
2466: WHEN OTHERS THEN
2467: RETCODE := 2;
2467: RETCODE := 2;
2468: ERRBUF := SQLCODE || ' : ' || SQLERRM;
2469: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2470: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION,
2471: 'jtf.plsql.JTY_TERR_DENORM_RULES_PVT.process_attr_and_rank.others',
2472: substr(errbuf, 1, 4000));
2473: END IF;
2474:
2475: END process_attr_and_rank;
2473: END IF;
2474:
2475: END process_attr_and_rank;
2476:
2477: END JTY_TERR_DENORM_RULES_PVT;