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 ;