1: PACKAGE BODY OE_Default_Price_List AS
2: /* $Header: OEXDPRHB.pls 115.2 1999/11/11 21:54:05 pkm ship $ */
3:
4: -- Global constant holding the package name
5:
2: /* $Header: OEXDPRHB.pls 115.2 1999/11/11 21:54:05 pkm ship $ */
3:
4: -- Global constant holding the package name
5:
6: G_PKG_NAME CONSTANT VARCHAR2(30) := 'OE_Default_Price_List';
7:
8: -- Package global used within the package.
9:
10: g_PRICE_LIST_rec OE_Price_List_PUB.Price_List_Rec_Type;
70: IS
71: l_price_list_id NUMBER := NULL;
72: BEGIN
73:
74: oe_debug_pub.add('Entering OE_Default_Price_List.Get_Price_List');
75:
76: select qp_list_headers_b_s.nextval into l_price_list_id
77: from dual;
78:
75:
76: select qp_list_headers_b_s.nextval into l_price_list_id
77: from dual;
78:
79: oe_debug_pub.add('Exiting OE_Default_Price_List.Get_Price_List');
80: RETURN l_price_list_id;
81:
82: EXCEPTION
83:
613: OR g_PRICE_LIST_rec.start_date_active = FND_API.G_MISS_DATE
614: OR g_PRICE_LIST_rec.terms_id = FND_API.G_MISS_NUM
615: THEN
616:
617: OE_Default_Price_List.Attributes
618: ( p_PRICE_LIST_rec => g_PRICE_LIST_rec
619: , p_iteration => p_iteration + 1
620: , x_PRICE_LIST_rec => x_PRICE_LIST_rec
621: );
629: END IF;
630:
631: END Attributes;
632:
633: END OE_Default_Price_List;