3:
4: G_DEBUG BOOLEAN;
5: G_Pricing_Phase_Id_Tbl Char_Tbl_Type;
6: G_11iG_PERFORMANCE varchar2(1)
7: := nvl(fnd_profile.value('ONT_11IG_PERFORMANCE'),'Y');
8: G_CHARGES_FOR_INCLUDED_ITEM Varchar2(1) := nvl(fnd_profile.value('ONT_CHARGES_FOR_INCLUDED_ITEM'),'N');
9: G_REQUEST_ID NUMBER:=NULL;
10: G_ORDER_CURRENCY VARCHAR2(30);
11: G_IPL_ERRORS_TBL Index_Tbl_Type;
4: G_DEBUG BOOLEAN;
5: G_Pricing_Phase_Id_Tbl Char_Tbl_Type;
6: G_11iG_PERFORMANCE varchar2(1)
7: := nvl(fnd_profile.value('ONT_11IG_PERFORMANCE'),'Y');
8: G_CHARGES_FOR_INCLUDED_ITEM Varchar2(1) := nvl(fnd_profile.value('ONT_CHARGES_FOR_INCLUDED_ITEM'),'N');
9: G_REQUEST_ID NUMBER:=NULL;
10: G_ORDER_CURRENCY VARCHAR2(30);
11: G_IPL_ERRORS_TBL Index_Tbl_Type;
12: G_BINARY_LIMIT CONSTANT NUMBER := OE_GLOBALS.G_BINARY_LIMIT; -- Added for bug 8631297
819: IF l_debug_level > 0 THEN
820: oe_debug_pub.add( 'CALLING OE_DBI_UTIL FOR HEADER PRICE ADJUSTMENTS' , 1 ) ;
821: oe_debug_pub.add( 'CACHED VALUE' || OE_ORDER_CACHE.G_HEADER_REC.BOOKED_FLAG ) ;
822: oe_debug_pub.add( 'RECURSION VALUE' || OE_ORDER_UTIL.G_RECURSION_WITHOUT_EXCEPTION ) ;
823: oe_debug_pub.add( 'PROFILE VALUE' || FND_PROFILE.VALUE ( 'ONT_DBI_INSTALLED' ) ) ;
824: END IF;
825:
826: IF NVL(FND_PROFILE.VALUE('ONT_DBI_INSTALLED'), 'N') = 'Y' AND
827: oe_order_cache.g_header_rec.booked_flag = 'Y' AND
822: oe_debug_pub.add( 'RECURSION VALUE' || OE_ORDER_UTIL.G_RECURSION_WITHOUT_EXCEPTION ) ;
823: oe_debug_pub.add( 'PROFILE VALUE' || FND_PROFILE.VALUE ( 'ONT_DBI_INSTALLED' ) ) ;
824: END IF;
825:
826: IF NVL(FND_PROFILE.VALUE('ONT_DBI_INSTALLED'), 'N') = 'Y' AND
827: oe_order_cache.g_header_rec.booked_flag = 'Y' AND
828: oe_order_util.g_recursion_without_exception = 'N' AND
829: l_control_rec.write_to_db
830: THEN
1589: IF l_debug_level > 0 THEN
1590: oe_debug_pub.add( 'CALLING OE_DBI_UTIL FOR ORDER LINE PRICE ADJUSTMENTS' , 1 ) ;
1591: oe_debug_pub.add( 'CACHED VALUE' || OE_ORDER_CACHE.G_HEADER_REC.BOOKED_FLAG ) ;
1592: oe_debug_pub.add( 'RECURSION VALUE' || OE_ORDER_UTIL.G_RECURSION_WITHOUT_EXCEPTION ) ;
1593: oe_debug_pub.add( 'PROFILE VALUE' || FND_PROFILE.VALUE ( 'ONT_DBI_INSTALLED' ) ) ;
1594: END IF;
1595:
1596: IF NVL(FND_PROFILE.VALUE('ONT_DBI_INSTALLED'), 'N') = 'Y' AND
1597: oe_order_cache.g_header_rec.booked_flag = 'Y' AND
1592: oe_debug_pub.add( 'RECURSION VALUE' || OE_ORDER_UTIL.G_RECURSION_WITHOUT_EXCEPTION ) ;
1593: oe_debug_pub.add( 'PROFILE VALUE' || FND_PROFILE.VALUE ( 'ONT_DBI_INSTALLED' ) ) ;
1594: END IF;
1595:
1596: IF NVL(FND_PROFILE.VALUE('ONT_DBI_INSTALLED'), 'N') = 'Y' AND
1597: oe_order_cache.g_header_rec.booked_flag = 'Y' AND
1598: oe_order_util.g_recursion_without_exception = 'N' AND
1599: l_control_rec.write_to_db
1600: THEN
4331:
4332: -- Added by JAUTOMO on 20-DEC-00
4333:
4334: -- Get Discounting Privilege Profile Option value
4335: fnd_profile.get('ONT_DISCOUNTING_PRIVILEGE', v_discounting_privilege);
4336:
4337: -- If the profile is set to UNLIMITED, then even if the Order Type
4338: -- restrict price changes, the user can change the price
4339:
5516: ,p_req_line_detail_rec QP_PREQ_GRP.line_detail_rec_type
5517: )
5518: is
5519: -- This change is required since we are dropping the profile OE_ORGANIZATION -- _ID. Change made by Esha.
5520: /*l_org_id NUMBER := FND_PROFILE.Value('OE_ORGANIZATION_ID');*/
5521: l_org_id NUMBER := OE_Sys_Parameters.VALUE('MASTER_ORGANIZATION_ID');
5522: l_ordered_item varchar2(300);
5523:
5524: begin
5563: procedure Get_item_for_iue(px_line_rec in out nocopy OE_Order_PUB.line_rec_type)
5564: is
5565: -- This change is required since we are dropping the profile OE_ORGANIZATION -- _ID. Change made by Esha.
5566: l_org_id Number:= OE_Sys_Parameters.VALUE('MASTER_ORGANIZATION_ID');
5567: /*l_org_id NUMBER := FND_PROFILE.Value('OE_ORGANIZATION_ID');*/
5568: l_ordered_item varchar2(300);
5569: cursor adj_cur is
5570: select modified_from from oe_price_adjustments
5571: where line_id=px_line_rec.line_id
5655: Process_Service_Lines Boolean := FALSE;
5656: l_related_lines_Index pls_integer;
5657: line_tbl_index pls_integer;
5658: i pls_integer;
5659: l_bypass_pricing varchar2(30) := nvl(FND_PROFILE.VALUE('QP_BYPASS_PRICING'),'N');
5660: l_dummy Varchar2(1);
5661: l_header_id NUMBER;
5662: l_any_frozen_line BOOLEAN:=FALSE;
5663: l_calculate_price_flag varchar2(1);
5681: l_pass_all_lines VARCHAR2(30);
5682: l_exists_phase VARCHAR2(1) := 'N';
5683: l_set_of_books Oe_Order_Cache.Set_Of_Books_Rec_Type;
5684: j PLS_INTEGER :=1;
5685: G_INT_CHANGED_LINE_ON Varchar2(3):= nvl(FND_PROFILE.VALUE('ONT_INTERNAL_CHANGED_LINE'),'Y');
5686: l_header_id2 NUMBER;
5687: begin
5688:
5689:
8262: l_Total_Quantity Number;
8263: l_sign Number;
8264: l_rounding_factor Number;
8265: l_gsa_violation_action Varchar2(30); --moac moving the initialization to the body
8266: l_GSA_Enabled_Flag Varchar2(30) := FND_PROFILE.VALUE('QP_VERIFY_GSA');
8267: l_Sorted_Adjustment_Tbl oe_order_Adj_pvt.Sorted_Adjustment_Tbl_Type;
8268: l_Sort_Index Pls_Integer;
8269: l_pricing_quantity Number;
8270: l_assoc_exist Boolean;
8907: l_precision,
8908: l_ext_precision,
8909: l_min_acct_unit);
8910:
8911: if fnd_profile.value('OE_UNIT_PRICE_PRECISION_TYPE') = 'STANDARD' then
8912: return l_precision;
8913: else
8914: return l_ext_precision;
8915: end if;
9136: l pls_Integer;
9137: l_line_term Boolean := FALSE;
9138: l_price_list Varchar2(240);
9139: l_price_adjustment_id number;
9140: l_allow_negative_price Varchar2(30) := nvl(fnd_profile.value('ONT_NEGATIVE_PRICING'),'N');
9141: l_return_status varchar2(30);
9142: l_index NUMBER;
9143: l_request_id NUMBER;
9144: --btea perf begin
9153: v_order_enforce_list_price varchar2(1):=NULL;
9154: v_line_enforce_list_price varchar2(1);
9155: l_invalid_line Varchar2(1):= 'N';
9156: --Manual begin
9157: l_preinsert_manual_adj VARCHAR2(1):= Nvl(Fnd_Profile.Value('ONT_PREINSERT_MANUAL_ADJ'),'N');
9158: --Manual end
9159: l_dummy_line_rec Oe_Order_Pub.Line_Rec_Type;
9160: l_limit_hold_action varchar2(30):=NVL(fnd_profile.value('ONT_PROMOTION_LIMIT_VIOLATION_ACTION'), 'NO_HOLD'); -- PROMOTIONS SEP/01
9161:
9156: --Manual begin
9157: l_preinsert_manual_adj VARCHAR2(1):= Nvl(Fnd_Profile.Value('ONT_PREINSERT_MANUAL_ADJ'),'N');
9158: --Manual end
9159: l_dummy_line_rec Oe_Order_Pub.Line_Rec_Type;
9160: l_limit_hold_action varchar2(30):=NVL(fnd_profile.value('ONT_PROMOTION_LIMIT_VIOLATION_ACTION'), 'NO_HOLD'); -- PROMOTIONS SEP/01
9161:
9162: /* Promotional modifier issues - Bug 1503357 */
9163: l_delete_prg_lines index_tbl_type;
9164: l_num_changed_lines PLS_INTEGER := 0;
9708:
9709: -- Changes by JAUTOMO on 20-DEC-00 (bug# 1303352)
9710:
9711: -- Get Discounting Privilege Profile Option value
9712: fnd_profile.get('ONT_DISCOUNTING_PRIVILEGE', v_discounting_privilege);
9713:
9714: IF (v_order_enforce_list_price = 'Y') THEN
9715: v_line_enforce_list_price := 'Y';
9716: ELSE
10946: adj_debug('aso not installed');
10947: RETURN FALSE;
10948: End If;
10949:
10950: IF (nvl(fnd_profile.value('ONT_ALWAYS_PERF_PATH'), 'N') = 'Y') THEN
10951: adj_debug('always use performance path');
10952: RETURN FALSE;
10953: END IF;
10954:
11245: l_x_msg_count number;
11246: l_x_msg_data Varchar2(2000);
11247: i pls_integer;
11248: l_line_index pls_integer;
11249: l_allow_negative_price Varchar2(30) := nvl(fnd_profile.value('ONT_NEGATIVE_PRICING'),'N');
11250: --Manual Begin
11251: --Set calculate price flag to 'P' when manual adjustment is applied
11252: l_set_price_flag_on_manual Varchar2(30) := nvl(fnd_profile.value('ONT_SET_PRICE_FLAG_ON_MANUAL'),'N');
11253: --Manual End
11248: l_line_index pls_integer;
11249: l_allow_negative_price Varchar2(30) := nvl(fnd_profile.value('ONT_NEGATIVE_PRICING'),'N');
11250: --Manual Begin
11251: --Set calculate price flag to 'P' when manual adjustment is applied
11252: l_set_price_flag_on_manual Varchar2(30) := nvl(fnd_profile.value('ONT_SET_PRICE_FLAG_ON_MANUAL'),'N');
11253: --Manual End
11254: l_dummy key_tbl_type;
11255: l_updated_flag varchar2(1);
11256: l_dummy_line_rec Oe_Order_Pub.Line_Rec_Type;
12671:
12672: --if no header id passed in this procedure it will return header id based on line id passed in
12673: )
12674: As
12675: l_profile_value Varchar2(1):= Nvl(Fnd_Profile.Value('ONT_MANUAL_LINEGROUP'),'Y');
12676: l_line_tbl oe_Order_Pub.Line_tbl_Type;
12677: l_line_rec oe_order_pub.line_rec_type;
12678: l_pricing_contexts_Tbl QP_Attr_Mapping_PUB.Contexts_Result_Tbl_Type;
12679: l_qualifier_contexts_Tbl QP_Attr_Mapping_PUB.Contexts_Result_Tbl_Type;
12700: k PLS_INTEGER;
12701: line_tbl_index PLS_INTEGER;
12702: QP_ATTR_MAPPING_ERRORS Exception;
12703:
12704: l_ask_for_profile Varchar2(1):=NVL(Fnd_Profile.Value('ONT_ASK_FOR_PROMOTION'),'Y');
12705: l_dummy Varchar2(1);
12706:
12707: l_header_id Number;
12708: --indicates whether line has already been written to DB
12743: else
12744: oe_debug_pub.add('freight flag is false');
12745: end if;
12746: x_return_status:=FND_API.G_RET_STS_SUCCESS;
12747: --l_profile_value := Fnd_Profile.Value('QP_MANUAL_LINEGROUP');
12748: oe_debug_pub.add('Entering Get Manual Adj');
12749: --bucket man
12750: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110510' THEN
12751: oe_order_price_pvt.reset_all_tbls;