1: PACKAGE BODY QP_Modifiers_PUB AS
2: /* $Header: QPXPMLSB.pls 120.8.12020000.3 2013/03/19 06:06:56 kdurgasi ship $ */
3:
4: -- Global constant holding the package name
5:
2: /* $Header: QPXPMLSB.pls 120.8.12020000.3 2013/03/19 06:06:56 kdurgasi ship $ */
3:
4: -- Global constant holding the package name
5:
6: G_PKG_NAME CONSTANT VARCHAR2(30) := 'QP_Modifiers_PUB';
7:
8: -- Forward declaration of Procedure Id_To_Value
9:
10: PROCEDURE Id_To_Value
616: IS
617: l_api_version_number CONSTANT NUMBER := 1.0;
618: l_api_name CONSTANT VARCHAR2(30):= 'Get_Modifiers';
619: l_list_header_id NUMBER := p_list_header_id;
620: l_MODIFIER_LIST_rec QP_Modifiers_PUB.Modifier_List_Rec_Type;
621: l_MODIFIERS_tbl QP_Modifiers_PUB.Modifiers_Tbl_Type;
622: l_QUALIFIERS_tbl QP_Qualifier_Rules_PUB.Qualifiers_Tbl_Type;
623: l_PRICING_ATTR_tbl QP_Modifiers_PUB.Pricing_Attr_Tbl_Type;
624: BEGIN
617: l_api_version_number CONSTANT NUMBER := 1.0;
618: l_api_name CONSTANT VARCHAR2(30):= 'Get_Modifiers';
619: l_list_header_id NUMBER := p_list_header_id;
620: l_MODIFIER_LIST_rec QP_Modifiers_PUB.Modifier_List_Rec_Type;
621: l_MODIFIERS_tbl QP_Modifiers_PUB.Modifiers_Tbl_Type;
622: l_QUALIFIERS_tbl QP_Qualifier_Rules_PUB.Qualifiers_Tbl_Type;
623: l_PRICING_ATTR_tbl QP_Modifiers_PUB.Pricing_Attr_Tbl_Type;
624: BEGIN
625:
619: l_list_header_id NUMBER := p_list_header_id;
620: l_MODIFIER_LIST_rec QP_Modifiers_PUB.Modifier_List_Rec_Type;
621: l_MODIFIERS_tbl QP_Modifiers_PUB.Modifiers_Tbl_Type;
622: l_QUALIFIERS_tbl QP_Qualifier_Rules_PUB.Qualifiers_Tbl_Type;
623: l_PRICING_ATTR_tbl QP_Modifiers_PUB.Pricing_Attr_Tbl_Type;
624: BEGIN
625:
626: oe_debug_pub.add('BEGIN get_modifiers in Public');
627: -- Standard call to check for call compatibility
974: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
975:
976: END Value_To_Id;
977:
978: END QP_Modifiers_PUB;