[Home] [Help]
2: /* $Header: OEXVOPRB.pls 120.26.12010000.5 2008/11/14 07:19:07 smanian ship $ */
3:
4: G_DEBUG BOOLEAN;
5: --2649821 Changed G_ROUNDING_FLAG to Q
6: G_ROUNDING_FLAG VARCHAR2(1):= 'Q'; --nvl(Fnd_Profile.value('OE_UNIT_PRICE_ROUNDING'),'N');
7: G_SEEDED_GSA_HOLD_ID CONSTANT NUMBER:= 2;
8: G_CHARGES_FOR_INCLUDED_ITEM Varchar2(30)
9: := nvl(fnd_profile.value('ONT_CHARGES_FOR_INCLUDED_ITEM'),'N');
10: G_PASS_ALL_LINES VARCHAR2(30);
5: --2649821 Changed G_ROUNDING_FLAG to Q
6: G_ROUNDING_FLAG VARCHAR2(1):= 'Q'; --nvl(Fnd_Profile.value('OE_UNIT_PRICE_ROUNDING'),'N');
7: G_SEEDED_GSA_HOLD_ID CONSTANT NUMBER:= 2;
8: G_CHARGES_FOR_INCLUDED_ITEM Varchar2(30)
9: := nvl(fnd_profile.value('ONT_CHARGES_FOR_INCLUDED_ITEM'),'N');
10: G_PASS_ALL_LINES VARCHAR2(30);
11: --bug4080363 commented the following
12: -- bug 3491752
13: --G_LIST_PRICE_OVERRIDE Varchar2(30)
10: G_PASS_ALL_LINES VARCHAR2(30);
11: --bug4080363 commented the following
12: -- bug 3491752
13: --G_LIST_PRICE_OVERRIDE Varchar2(30)
14: -- := nvl(fnd_profile.value('ONT_LIST_PRICE_OVERRIDE_PRIV'), 'NONE');
15:
16: g_request_id number := null;
17: G_IPL_ERRORS_TBL OE_GLOBALS.Number_Tbl_Type;
18: G_BINARY_LIMIT CONSTANT NUMBER:=2147483647;
2073: procedure Get_item_for_iue(px_line_rec in out nocopy OE_Order_PUB.line_rec_type)
2074: is
2075: -- This change is required since we are dropping the profile OE_ORGANIZATION -- _ID. Change made by Esha.
2076: l_org_id Number:= OE_Sys_Parameters.VALUE('MASTER_ORGANIZATION_ID');
2077: /*l_org_id NUMBER := FND_PROFILE.Value('OE_ORGANIZATION_ID');*/
2078: l_ordered_item varchar2(300);
2079: cursor adj_cur is
2080: select modified_from from oe_price_adjustments
2081: where line_id=px_line_rec.line_id
2558:
2559: -- Moved to OE_ACKNOWLEDGMENT_PUB as part of 3417899 and 3412458
2560: /* IF l_line_rec.unit_selling_price <> l_old_line_rec.unit_selling_price
2561: AND OE_Code_Control.code_release_level >= '110510'
2562: AND NVL(FND_PROFILE.VALUE('ONT_3A7_RESPONSE_REQUIRED'), 'N') = 'Y'
2563: AND l_line_rec.order_source_id = OE_Acknowledgment_Pub.G_XML_ORDER_SOURCE_ID
2564: AND nvl(l_line_rec.xml_transaction_type_code, OE_Acknowledgment_Pub.G_TRANSACTION_CSO) = OE_Acknowledgment_Pub.G_TRANSACTION_CSO
2565: AND nvl(l_line_rec.booked_flag, 'X') = 'Y'
2566: AND l_line_rec.ordered_quantity <> 0 THEN
2600: END SECURITY_AND_GLOBAL_PICTURE;
2601:
2602: PROCEDURE CHECK_GSA
2603: IS
2604: l_GSA_Enabled_Flag Varchar2(30) := FND_PROFILE.VALUE('QP_VERIFY_GSA');
2605: --l_gsa_violation_action Varchar2(30) := nvl(fnd_profile.value('ONT_GSA_VIOLATION_ACTION'), 'WARNING');
2606: l_gsa_violation_action Varchar2(30) := nvl(oe_sys_parameters.value('ONT_GSA_VIOLATION_ACTION'), 'WARNING'); --moac
2607: l_hold_source_rec OE_Holds_Pvt.hold_source_rec_type;
2608: l_hold_release_rec OE_Holds_Pvt.Hold_Release_REC_Type;
2601:
2602: PROCEDURE CHECK_GSA
2603: IS
2604: l_GSA_Enabled_Flag Varchar2(30) := FND_PROFILE.VALUE('QP_VERIFY_GSA');
2605: --l_gsa_violation_action Varchar2(30) := nvl(fnd_profile.value('ONT_GSA_VIOLATION_ACTION'), 'WARNING');
2606: l_gsa_violation_action Varchar2(30) := nvl(oe_sys_parameters.value('ONT_GSA_VIOLATION_ACTION'), 'WARNING'); --moac
2607: l_hold_source_rec OE_Holds_Pvt.hold_source_rec_type;
2608: l_hold_release_rec OE_Holds_Pvt.Hold_Release_REC_Type;
2609: l_return_status varchar2(30);
5275: END IF;
5276:
5277: -- end of modification made by lkxu
5278:
5279: --fnd_profile.get('ONT_DISCOUNTING_PRIVILEGE', v_discounting_privilege);
5280:
5281: -- If the profile is set to UNLIMITED, then even if the Order Type
5282: -- restrict price changes, the user can change the price
5283:
5557: IF p_line_rec.original_list_price IS NOT NULL AND
5558: p_line_rec.unit_list_price IS NOT NULL THEN --AND --bug4080363
5559: -- p_line_rec.unit_list_price <> p_line_rec.original_list_price AND
5560: -- bug 3491752
5561: /*nvl(fnd_profile.value('ONT_LIST_PRICE_OVERRIDE_PRIV'), 'NONE')*/ -- G_LIST_PRICE_OVERRIDE = 'UNLIMITED' THEN --bug4080363
5562: l_req_line_rec.list_price_override_flag := 'Y';
5563: l_req_line_rec.line_unit_price := p_line_rec.unit_list_price;
5564: IF (l_req_line_rec.price_flag = 'N') THEN
5565: l_req_line_rec.price_flag := 'C';
5935: l_line_index NUMBER := 0;
5936: line_tbl_index pls_integer;
5937: i pls_integer;
5938: j pls_integer;
5939: l_bypass_pricing varchar2(30) := nvl(FND_PROFILE.VALUE('QP_BYPASS_PRICING'),'N');
5940: l_dummy Varchar2(1);
5941: l_header_id NUMBER;
5942: l_any_frozen_line BOOLEAN:=FALSE;
5943: l_calculate_price_flag varchar2(1);
5950: l_completely_frozen BOOLEAN := TRUE;
5951: l_line_attr_index number:=0;
5952: l_order_status_rec QP_UTIL_PUB.ORDER_LINES_STATUS_REC_TYPE;
5953: l_total_lines NUMBER;
5954: G_INT_CHANGED_LINE_ON Varchar2(3):= nvl(FND_PROFILE.VALUE('ONT_INTERNAL_CHANGED_LINE'),'Y');
5955: l_header_id2 NUMBER;
5956: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5957: l_check_line_flag varchar2(1);
5958: l_pass_line varchar2(1);
6867: l_line_tbl OE_Order_PUB.Line_Tbl_Type;
6868: i pls_Integer;
6869: j pls_Integer:=0;
6870: l_price_list Varchar2(240);
6871: l_allow_negative_price Varchar2(30) := nvl(fnd_profile.value('ONT_NEGATIVE_PRICING'),'N');
6872: l_invalid_line Varchar2(1):='N';
6873: l_temp_line_rec oe_order_pub.line_rec_type;
6874: l_request_id NUMBER;
6875: vmsg Varchar2(2000);
7519: l_line_tbl OE_Order_PUB.Line_Tbl_Type;
7520: i pls_Integer;
7521: j pls_Integer;
7522: l_price_list Varchar2(240);
7523: l_allow_negative_price Varchar2(30) := nvl(fnd_profile.value('ONT_NEGAT
7524: IVE_PRICING'),'N');
7525: l_sec_result NUMBER;
7526: l_adjustment_count NUMBER:=0;
7527: l_old_line_tbl OE_ORDER_PUB.Line_Tbl_Type;