[Home] [Help]
PACKAGE BODY: APPS.OE_CATALOG_PRICING_PUB
Source
1 PACKAGE BODY OE_CATALOG_PRICING_PUB AS
2 /* $Header: OEXPRCAB.pls 115.3 2000/10/02 13:47:07 pkm ship $ */
3
4 PROCEDURE Get_Pricing
5 (p_item_number IN NUMBER,
6 p_ordered_quantity IN NUMBER,
7 p_uom IN VARCHAR2,
8 p_price_list_id IN NUMBER,
9 p_sold_to_org_id IN NUMBER,
10 p_currency IN VARCHAR2,
11 p_ordered_date IN VARCHAR2,
12 status OUT VARCHAR2,
13 x_customer_price OUT NUMBER,
14 x_list_price OUT NUMBER
15 )
16 IS
17 l_line_tbl oe_order_adj_pvt.quote_line_tbl_type;
18 lx_line_tbl oe_order_adj_pvt.quote_line_tbl_type;
19 l_header oe_order_adj_pvt.quote_header_rec_type;
20 lx_return_status Varchar2(30);
21 lx_return_status_text Varchar2(200);
22 i PLS_INTEGER;
23
24 BEGIN
25
26 l_header.ordered_date := to_date(p_ordered_date,'DD-MON-YYYY');
27 l_header.transactional_curr_code := p_currency;
28
29 l_header.sold_to_org_id := p_sold_to_org_id;
30
31 l_line_tbl(1).price_list_id := p_price_list_id;
32 l_line_tbl(1).inventory_item_id := p_item_number;
33 l_line_tbl(1).ordered_quantity := p_ordered_quantity;
34 l_line_tbl(1).order_quantity_uom := p_uom;
35 l_line_tbl(1).sold_to_org_id := p_sold_to_org_id;
36
37 oe_order_adj_pvt.Get_Quote(p_quote_header => l_header,
38 p_quote_line_tbl => l_line_tbl,
39 p_request_type_code => 'ONT',
40 x_quote_line_tbl => lx_line_tbl,
41 x_return_status => lx_return_status,
42 x_return_status_text => lx_return_status_text);
43
44 if lx_line_tbl(1).status_code = 'S' then
45
46 status := lx_line_tbl(1).status_code;
47 x_list_price := lx_line_tbl(1).Unit_List_Price;
48 x_customer_price := lx_line_tbl(1).Unit_Selling_Price;
49 else
50 status := 'Contact Sales';
51 x_list_price := 0;
52 x_customer_price := 0;
53 end if;
54
55 END Get_Pricing;
56
57 END OE_CATALOG_PRICING_PUB ;