1: PACKAGE BODY OE_CONFIG_PRICE_UTIL AS
2: /* $Header: OEXUCFPB.pls 120.0.12010000.3 2009/01/22 11:11:56 srsunkar ship $ */
3:
4: -- Global constant holding the package name
5: G_PKG_NAME CONSTANT VARCHAR2(30):='Oe_Config_Price_Util';
1: PACKAGE BODY OE_CONFIG_PRICE_UTIL AS
2: /* $Header: OEXUCFPB.pls 120.0.12010000.3 2009/01/22 11:11:56 srsunkar ship $ */
3:
4: -- Global constant holding the package name
5: G_PKG_NAME CONSTANT VARCHAR2(30):='Oe_Config_Price_Util';
6:
7:
8: /*----------------------------------------------------------------------
9: PROCEDURE OE_Config_Price_Items:
547: l_top_model_line_id NUMBER;
548: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
549: BEGIN
550: IF l_debug_level > 0 THEN
551: oe_debug_pub.add ('Entering OE_CONFIG_PRICE_UTIL.oe_config_price_items_mls - '
552: || p_config_session_key || ' ***** ' || p_price_type);
553: END IF;
554:
555: l_top_line_id_pos := INSTR(p_config_session_key, '#' );
577: p_price_type => p_price_type,
578: x_total_price => x_total_price);
579:
580: IF l_debug_level > 0 THEN
581: oe_debug_pub.add ('Exiting OE_CONFIG_PRICE_UTIL.oe_config_price_items_mls');
582: END IF;
583: EXCEPTION
584: WHEN TOO_MANY_ROWS THEN
585: IF l_debug_level > 0 THEN
582: END IF;
583: EXCEPTION
584: WHEN TOO_MANY_ROWS THEN
585: IF l_debug_level > 0 THEN
586: oe_debug_pub.add ('Exception OE_CONFIG_PRICE_UTIL.oe_config_price_items_mls - TOO_MANY_ROWS');
587: END IF;
588: WHEN OTHERS THEN
589: IF l_debug_level > 0 THEN
590: oe_debug_pub.add ('Exception OE_CONFIG_PRICE_UTIL.oe_config_price_items_mls - OTHERS');
586: oe_debug_pub.add ('Exception OE_CONFIG_PRICE_UTIL.oe_config_price_items_mls - TOO_MANY_ROWS');
587: END IF;
588: WHEN OTHERS THEN
589: IF l_debug_level > 0 THEN
590: oe_debug_pub.add ('Exception OE_CONFIG_PRICE_UTIL.oe_config_price_items_mls - OTHERS');
591: END IF;
592: END OE_Config_Price_Items_MLS;
593: --End of Bug# 7695217
594:
592: END OE_Config_Price_Items_MLS;
593: --End of Bug# 7695217
594:
595:
596: END OE_CONFIG_PRICE_UTIL;