1: PACKAGE BODY QP_Price_List_PUB AS
2: /* $Header: QPXPPRLB.pls 120.8.12020000.2 2013/03/19 06:05:39 kdurgasi ship $ */
3:
4: -- Global constant holding the package name
5:
2: /* $Header: QPXPPRLB.pls 120.8.12020000.2 2013/03/19 06:05:39 kdurgasi ship $ */
3:
4: -- Global constant holding the package name
5:
6: G_PKG_NAME CONSTANT VARCHAR2(30) := 'QP_Price_List_PUB';
7:
8: -- Forward declaration of Procedure Id_To_Value
9:
10: PROCEDURE Id_To_Value
612: IS
613: l_api_version_number CONSTANT NUMBER := 1.0;
614: l_api_name CONSTANT VARCHAR2(30):= 'Get_Price_List';
615: l_list_header_id NUMBER := p_list_header_id;
616: l_PRICE_LIST_rec QP_Price_List_PUB.Price_List_Rec_Type;
617: l_PRICE_LIST_LINE_tbl QP_Price_List_PUB.Price_List_Line_Tbl_Type;
618: l_QUALIFIERS_tbl Qp_Qualifier_Rules_Pub.Qualifiers_Tbl_Type;
619: l_PRICING_ATTR_tbl QP_Price_List_PUB.Pricing_Attr_Tbl_Type;
620: BEGIN
613: l_api_version_number CONSTANT NUMBER := 1.0;
614: l_api_name CONSTANT VARCHAR2(30):= 'Get_Price_List';
615: l_list_header_id NUMBER := p_list_header_id;
616: l_PRICE_LIST_rec QP_Price_List_PUB.Price_List_Rec_Type;
617: l_PRICE_LIST_LINE_tbl QP_Price_List_PUB.Price_List_Line_Tbl_Type;
618: l_QUALIFIERS_tbl Qp_Qualifier_Rules_Pub.Qualifiers_Tbl_Type;
619: l_PRICING_ATTR_tbl QP_Price_List_PUB.Pricing_Attr_Tbl_Type;
620: BEGIN
621:
615: l_list_header_id NUMBER := p_list_header_id;
616: l_PRICE_LIST_rec QP_Price_List_PUB.Price_List_Rec_Type;
617: l_PRICE_LIST_LINE_tbl QP_Price_List_PUB.Price_List_Line_Tbl_Type;
618: l_QUALIFIERS_tbl Qp_Qualifier_Rules_Pub.Qualifiers_Tbl_Type;
619: l_PRICING_ATTR_tbl QP_Price_List_PUB.Pricing_Attr_Tbl_Type;
620: BEGIN
621:
622: -- Standard call to check for call compatibility
623:
966: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
967:
968: END Value_To_Id;
969:
970: END QP_Price_List_PUB;