Need API for getting List price and unit price before Order entry

Question

Hello,
I have requirement of provide unit & list price before order entry (Oracle Pricing and availability form provide the same).
Please suggest any API for the same.
Thanks
Akil.

Answer 1

Hi,
Thanks luko,
I got API QP_PREQ_PUB.PRICE_REQUEST, and its return output as expected,
Just have confusion that how many qualifiers we have to send
Here is my sample code
OR REPLACE PROCEDURE xx_web_get_price (
IN     NUMBER,
IN     NUMBER,
IN     NUMBER,
IN     NUMBER,
IN     VARCHAR2,
IN     VARCHAR2,
IN     VARCHAR2,
IN     NUMBER,
OUT NUMBER,
OUT NUMBER,
OUT VARCHAR2,
OUT VARCHAR2)
QP_PREQ_GRP.LINE_TBL_TYPE;
QP_PREQ_GRP.QUAL_TBL_TYPE;
QP_PREQ_GRP.LINE_ATTR_TBL_TYPE;
QP_PREQ_GRP.LINE_DETAIL_TBL_TYPE;
QP_PREQ_GRP.LINE_DETAIL_QUAL_TBL_TYPE;
QP_PREQ_GRP.LINE_DETAIL_ATTR_TBL_TYPE;
QP_PREQ_GRP.RELATED_LINES_TBL_TYPE;
QP_PREQ_GRP.CONTROL_RECORD_TYPE;
QP_PREQ_GRP.LINE_TBL_TYPE;
QP_PREQ_GRP.QUAL_TBL_TYPE;
QP_PREQ_GRP.LINE_ATTR_TBL_TYPE;
QP_PREQ_GRP.LINE_DETAIL_TBL_TYPE;
QP_PREQ_GRP.LINE_DETAIL_QUAL_TBL_TYPE;
QP_PREQ_GRP.LINE_DETAIL_ATTR_TBL_TYPE;
QP_PREQ_GRP.RELATED_LINES_TBL_TYPE;
VARCHAR2 (240);
VARCHAR2 (240);
QP_PREQ_GRP.QUAL_REC_TYPE;
QP_PREQ_GRP.LINE_ATTR_REC_TYPE;
QP_PREQ_GRP.LINE_REC_TYPE;
QP_PREQ_GRP.LINE_DETAIL_REC_TYPE;
QP_PREQ_GRP.LINE_DETAIL_REC_TYPE;
QP_PREQ_GRP.RELATED_LINES_REC_TYPE;
QP_Attr_Mapping_PUB.Contexts_Result_Tbl_Type;
QP_Attr_Mapping_PUB.Contexts_Result_Tbl_Type;
INTEGER;
BINARY_INTEGER;
VARCHAR2 (240);
VARCHAR2 (60);
oe_debug_pub.debug_on;
oe_debug_pub.initialize;
:= OE_DEBUG_PUB.Set_Debug_Mode ('FILE');
oe_Debug_pub.setdebuglevel (5);
('File : ' || l_file_val);
QP_Attr_Mapping_PUB.
(p_request_type_code           => 'ONT',
=> 'L',
=> l_pricing_contexts_Tbl,
=> l_qualifier_Contexts_Tbl);
:= 1;
---- Control Record
.pricing_event := 'LINE';                           -- 'LINE';
.calculate_flag := 'Y';    --QP_PREQ_GRP.G_SEARCH_N_CALCULATE;
.simulation_flag := 'N';
.source_order_amount_flag := 'Y';
.rounding_flag := 'Q';
.manual_discount_flag := 'Y';
.request_type_code := 'ONT';
.TEMP_TABLE_INSERT_FLAG := 'Y';
---- Line Records ---------
.request_type_code := 'ONT';
.line_id := 2125125; -- Order Line Id. This can be any thing for this script
.line_Index := '1';                           -- Request Line Index
.line_type_code := 'LINE';           -- LINE or ORDER(Summary Line)
.pricing_effective_date := SYSDATE;    -- Pricing as of what date ?
.active_date_first := SYSDATE;  -- Can be Ordered Date or Ship Date
.active_date_second := SYSDATE; -- Can be Ordered Date or Ship Date
.active_date_first_type := 'NO TYPE';                   -- ORD/SHIP
.active_date_second_type := 'NO TYPE';                  -- ORD/SHIP
.line_quantity := 1;                            -- Ordered Quantity
.line_uom_code := p_uom; --'Ea';                         -- Ordered UOM Code
.currency_code := p_currency_code; -- 'USD';                           -- Currency Code
.price_flag := 'Y'; -- Price Flag can have 'Y' , 'N'(No pricing) , 'P'(Phase)
(1) := line_rec;
------ Line Attribute Record
.LINE_INDEX := 1;
.PRICING_CONTEXT := 'ITEM';                               
.PRICING_ATTRIBUTE := 'PRICING_ATTRIBUTE3';
.PRICING_ATTR_VALUE_FROM := 'ALL';
.VALIDATED_FLAG := 'N';
(1) := line_attr_rec;
.LINE_INDEX := 1;
.PRICING_CONTEXT := 'ITEM';                                 --
.PRICING_ATTRIBUTE := 'PRICING_ATTRIBUTE1';
.PRICING_ATTR_VALUE_FROM := p_item_id;
.VALIDATED_FLAG := 'N';
(2) := line_attr_rec;
.LINE_INDEX := 1;
.PRICING_CONTEXT := 'ITEM';                              
.PRICING_ATTRIBUTE := 'PRICING_ATTRIBUTE2';
.PRICING_ATTR_VALUE_FROM := p_category_id;
.VALIDATED_FLAG := 'N';
(3) := line_attr_rec;
------ Qualifier Attribute Record
.LINE_INDEX := 1; -- Attributes for the above line. Attributes are attached with the line index
.QUALIFIER_CONTEXT := 'MODLIST';
.QUALIFIER_ATTRIBUTE := 'QUALIFIER_ATTRIBUTE4';
.QUALIFIER_ATTR_VALUE_FROM := p_price_list_id;
.COMPARISON_OPERATOR_CODE := '=';
.VALIDATED_FLAG := 'Y';
(1) := qual_rec;
.LINE_INDEX := 1;
.QUALIFIER_CONTEXT := 'CUSTOMER';
.QUALIFIER_ATTRIBUTE := 'QUALIFIER_ATTRIBUTE2';
.QUALIFIER_ATTR_VALUE_FROM := p_customer_account_id;
.COMPARISON_OPERATOR_CODE := '=';
.VALIDATED_FLAG := 'Y';
(2) := qual_rec;
.LINE_INDEX := 1;
.QUALIFIER_CONTEXT := 'CUSTOMER';
.QUALIFIER_ATTRIBUTE := 'QUALIFIER_ATTRIBUTE40';
.QUALIFIER_ATTR_VALUE_FROM := p_customer_category; --'INDUSTRIAL';  
.COMPARISON_OPERATOR_CODE := '=';
.VALIDATED_FLAG := 'Y';
(3) := qual_rec;
QP_PREQ_PUB.PRICE_REQUEST (p_line_tbl,
-- Return Status Information ..
:= x_return_status_text;
:= x_return_status;
:= x_line_tbl.FIRST;
IF I IS NOT NULL
THEN
:= x_line_tbl (I).unit_price;
:= x_line_tbl (I).adjusted_unit_price;
END IF;
xx_web_get_price;                                     
Regards,
akil.