[Home] [Help]
76: , x_line_val_tbl IN OUT NOCOPY OE_ORDER_PUB.Line_Val_Tbl_Type
77:
78: )
79: IS
80: l_control_rec OE_GLOBALS.Control_Rec_Type;
81: l_return_status VARCHAR2(1);
82: l_x_header_rec OE_Order_PUB.Header_Rec_Type;
83: l_error NUMBER := 0;
84: --
91: END IF;
92:
93: l_error := 1;
94: -- Set UI flag to TRUE
95: OE_GLOBALS.G_UI_FLAG := TRUE;
96:
97: -- Set control flags.
98:
99: l_control_rec.controlled_operation := TRUE;
233:
234: -- Set Operation to Create
235:
236: l_error := 2;
237: x_line_tbl(1).operation := OE_GLOBALS.G_OPR_CREATE;
238:
239: -- Populate line table
240:
241:
291: ( p_line_rec => x_line_tbl(1)
292: );
293:
294: -- Re-set the UI flag to FALSE
295: OE_GLOBALS.G_UI_FLAG := FALSE;
296:
297: -- Set return status.
298:
299: x_return_status := FND_API.G_RET_STS_SUCCESS;
312: EXCEPTION
313:
314: WHEN FND_API.G_EXC_ERROR THEN
315:
316: OE_GLOBALS.G_UI_FLAG := FALSE;
317:
318: x_return_status := FND_API.G_RET_STS_ERROR;
319:
320: -- Get message count and data
325: );
326:
327: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
328:
329: OE_GLOBALS.G_UI_FLAG := FALSE;
330:
331: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
332:
333: -- Get message count and data
338: );
339:
340: WHEN OTHERS THEN
341:
342: OE_GLOBALS.G_UI_FLAG := FALSE;
343:
344: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
345:
346: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_UNEXP_ERROR)
1012: x_line_tbl(1).return_attribute6 := p_line_dff_rec.return_attribute6;
1013: x_line_tbl(1).return_attribute7 := p_line_dff_rec.return_attribute7;
1014: x_line_tbl(1).return_attribute8 := p_line_dff_rec.return_attribute8;
1015: x_line_tbl(1).return_attribute9 := p_line_dff_rec.return_attribute9;
1016: x_line_tbl(1).line_category_code := OE_GLOBALS.G_RETURN_CATEGORY_CODE;
1017:
1018: ELSIF p_attr_id = OE_Line_Util.G_TP_ATTRIBUTE1
1019: OR p_attr_id = OE_Line_Util.G_TP_ATTRIBUTE10
1020: OR p_attr_id = OE_Line_Util.G_TP_ATTRIBUTE11
1169: , x_lot_control_code OUT NOCOPY /* file.sql.39 change */ NUMBER -- 4172680 INVCONV
1170:
1171: )
1172: IS
1173: l_control_rec OE_GLOBALS.Control_Rec_Type;
1174: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1175: l_date_format_mask VARCHAR2(30) := p_date_format_mask;
1176: l_order_date_type_code VARCHAR2(30) := null;
1177: l_orig_ship_from_org_id OE_Order_LINES.ship_from_org_id%TYPE;
1193: oe_debug_pub.add( 'ENTERING OE_OE_FORM_LINE.CHANGE_ATTRIBUTES' , 1 ) ;
1194: END IF;
1195:
1196: -- Set UI flag to TRUE
1197: OE_GLOBALS.G_UI_FLAG := TRUE;
1198:
1199:
1200: -- Set control flags.
1201:
1231: l_control_rec.clear_dependents := FALSE;
1232: l_control_rec.check_security := FALSE;
1233:
1234: IF FND_API.To_Boolean(x_line_tbl(1).db_flag) THEN
1235: x_line_tbl(1).operation := OE_GLOBALS.G_OPR_UPDATE;
1236: ELSE
1237: x_line_tbl(1).operation := OE_GLOBALS.G_OPR_CREATE;
1238: END IF;
1239:
1233:
1234: IF FND_API.To_Boolean(x_line_tbl(1).db_flag) THEN
1235: x_line_tbl(1).operation := OE_GLOBALS.G_OPR_UPDATE;
1236: ELSE
1237: x_line_tbl(1).operation := OE_GLOBALS.G_OPR_CREATE;
1238: END IF;
1239:
1240: Oe_Order_Pvt.Lines
1241: (
1937: x_line_tbl(1).return_attribute6 := p_line_dff_rec.return_attribute6;
1938: x_line_tbl(1).return_attribute7 := p_line_dff_rec.return_attribute7;
1939: x_line_tbl(1).return_attribute8 := p_line_dff_rec.return_attribute8;
1940: x_line_tbl(1).return_attribute9 := p_line_dff_rec.return_attribute9;
1941: x_line_tbl(1).line_category_code := OE_GLOBALS.G_RETURN_CATEGORY_CODE;
1942:
1943: ELSIF p_attr_id = OE_Line_Util.G_TP_ATTRIBUTE1
1944: OR p_attr_id = OE_Line_Util.G_TP_ATTRIBUTE10
1945: OR p_attr_id = OE_Line_Util.G_TP_ATTRIBUTE11
2041: oe_debug_pub.add( 'SETTING OPERATION' , 2 ) ;
2042: END IF;
2043:
2044: IF FND_API.To_Boolean(x_line_tbl(1).db_flag) THEN
2045: x_line_tbl(1).operation := OE_GLOBALS.G_OPR_UPDATE;
2046: ELSE
2047: x_line_tbl(1).operation := OE_GLOBALS.G_OPR_CREATE;
2048: END IF;
2049:
2043:
2044: IF FND_API.To_Boolean(x_line_tbl(1).db_flag) THEN
2045: x_line_tbl(1).operation := OE_GLOBALS.G_OPR_UPDATE;
2046: ELSE
2047: x_line_tbl(1).operation := OE_GLOBALS.G_OPR_CREATE;
2048: END IF;
2049:
2050: -- Populate line table
2051: -- Validate Scheduling Dates Changes, if any.
2049:
2050: -- Populate line table
2051: -- Validate Scheduling Dates Changes, if any.
2052:
2053: IF NVL(x_line_tbl(1).source_type_code,OE_GLOBALS.G_SOURCE_INTERNAL)
2054: = OE_GLOBALS.G_SOURCE_INTERNAL THEN
2055: IF NOT OE_GLOBALS.Equal(x_line_tbl(1).schedule_ship_date,
2056: x_old_line_tbl(1).schedule_ship_date)
2057: THEN
2050: -- Populate line table
2051: -- Validate Scheduling Dates Changes, if any.
2052:
2053: IF NVL(x_line_tbl(1).source_type_code,OE_GLOBALS.G_SOURCE_INTERNAL)
2054: = OE_GLOBALS.G_SOURCE_INTERNAL THEN
2055: IF NOT OE_GLOBALS.Equal(x_line_tbl(1).schedule_ship_date,
2056: x_old_line_tbl(1).schedule_ship_date)
2057: THEN
2058: -- If the Order Type is ARRIVAL, the user is not
2051: -- Validate Scheduling Dates Changes, if any.
2052:
2053: IF NVL(x_line_tbl(1).source_type_code,OE_GLOBALS.G_SOURCE_INTERNAL)
2054: = OE_GLOBALS.G_SOURCE_INTERNAL THEN
2055: IF NOT OE_GLOBALS.Equal(x_line_tbl(1).schedule_ship_date,
2056: x_old_line_tbl(1).schedule_ship_date)
2057: THEN
2058: -- If the Order Type is ARRIVAL, the user is not
2059: -- allowed to change the schedule ship date
2082: END IF;
2083:
2084: END IF;
2085:
2086: IF NOT OE_GLOBALS.Equal(x_line_tbl(1).schedule_arrival_date,
2087: x_old_line_tbl(1).schedule_arrival_date)
2088: THEN
2089:
2090: -- If the Order Type is SHIP (or null), the user is not
2115:
2116: END IF;
2117: END IF;
2118: -- start for 3998402
2119: IF (NVL(x_line_tbl(1).source_type_code,OE_GLOBALS.G_SOURCE_INTERNAL)
2120: = OE_GLOBALS.G_SOURCE_EXTERNAL
2121: AND (x_line_tbl(1).ship_set_id is not null
2122: OR x_line_tbl(1).arrival_set_id is not null)) THEN
2123: IF l_debug_level > 0 THEN
2116: END IF;
2117: END IF;
2118: -- start for 3998402
2119: IF (NVL(x_line_tbl(1).source_type_code,OE_GLOBALS.G_SOURCE_INTERNAL)
2120: = OE_GLOBALS.G_SOURCE_EXTERNAL
2121: AND (x_line_tbl(1).ship_set_id is not null
2122: OR x_line_tbl(1).arrival_set_id is not null)) THEN
2123: IF l_debug_level > 0 THEN
2124: oe_debug_pub.add('Cannot change source type',2);
2129: RAISE FND_API.G_EXC_ERROR;
2130: END IF;
2131: -- end for 3998402
2132: --Start for bug16574638
2133: IF x_line_tbl(1).line_category_code = OE_GLOBALS.G_RETURN_CATEGORY_CODE
2134: THEN
2135: IF NOT OE_GLOBALS.Equal(x_line_tbl(1).return_context, x_old_line_tbl(1).return_context) OR
2136: NOT OE_GLOBALS.Equal(x_line_tbl(1).return_attribute1, x_old_line_tbl(1).return_attribute1) OR
2137: NOT OE_GLOBALS.Equal(x_line_tbl(1).return_attribute2, x_old_line_tbl(1).return_attribute2)
2131: -- end for 3998402
2132: --Start for bug16574638
2133: IF x_line_tbl(1).line_category_code = OE_GLOBALS.G_RETURN_CATEGORY_CODE
2134: THEN
2135: IF NOT OE_GLOBALS.Equal(x_line_tbl(1).return_context, x_old_line_tbl(1).return_context) OR
2136: NOT OE_GLOBALS.Equal(x_line_tbl(1).return_attribute1, x_old_line_tbl(1).return_attribute1) OR
2137: NOT OE_GLOBALS.Equal(x_line_tbl(1).return_attribute2, x_old_line_tbl(1).return_attribute2)
2138: THEN
2139: Get_return_reference(x_line_tbl(1).line_id, l_return_context, l_return_attrib1, l_return_attrib2);
2132: --Start for bug16574638
2133: IF x_line_tbl(1).line_category_code = OE_GLOBALS.G_RETURN_CATEGORY_CODE
2134: THEN
2135: IF NOT OE_GLOBALS.Equal(x_line_tbl(1).return_context, x_old_line_tbl(1).return_context) OR
2136: NOT OE_GLOBALS.Equal(x_line_tbl(1).return_attribute1, x_old_line_tbl(1).return_attribute1) OR
2137: NOT OE_GLOBALS.Equal(x_line_tbl(1).return_attribute2, x_old_line_tbl(1).return_attribute2)
2138: THEN
2139: Get_return_reference(x_line_tbl(1).line_id, l_return_context, l_return_attrib1, l_return_attrib2);
2140:
2133: IF x_line_tbl(1).line_category_code = OE_GLOBALS.G_RETURN_CATEGORY_CODE
2134: THEN
2135: IF NOT OE_GLOBALS.Equal(x_line_tbl(1).return_context, x_old_line_tbl(1).return_context) OR
2136: NOT OE_GLOBALS.Equal(x_line_tbl(1).return_attribute1, x_old_line_tbl(1).return_attribute1) OR
2137: NOT OE_GLOBALS.Equal(x_line_tbl(1).return_attribute2, x_old_line_tbl(1).return_attribute2)
2138: THEN
2139: Get_return_reference(x_line_tbl(1).line_id, l_return_context, l_return_attrib1, l_return_attrib2);
2140:
2141: IF (NOT OE_GLOBALS.Equal(x_line_tbl(1).return_context, l_return_context) OR
2137: NOT OE_GLOBALS.Equal(x_line_tbl(1).return_attribute2, x_old_line_tbl(1).return_attribute2)
2138: THEN
2139: Get_return_reference(x_line_tbl(1).line_id, l_return_context, l_return_attrib1, l_return_attrib2);
2140:
2141: IF (NOT OE_GLOBALS.Equal(x_line_tbl(1).return_context, l_return_context) OR
2142: NOT OE_GLOBALS.Equal(x_line_tbl(1).return_attribute1, l_return_attrib1) OR
2143: NOT OE_GLOBALS.Equal(x_line_tbl(1).return_attribute2, l_return_attrib2))
2144: AND Nvl(x_line_tbl(1).shipped_quantity,0) > 0
2145: THEN
2138: THEN
2139: Get_return_reference(x_line_tbl(1).line_id, l_return_context, l_return_attrib1, l_return_attrib2);
2140:
2141: IF (NOT OE_GLOBALS.Equal(x_line_tbl(1).return_context, l_return_context) OR
2142: NOT OE_GLOBALS.Equal(x_line_tbl(1).return_attribute1, l_return_attrib1) OR
2143: NOT OE_GLOBALS.Equal(x_line_tbl(1).return_attribute2, l_return_attrib2))
2144: AND Nvl(x_line_tbl(1).shipped_quantity,0) > 0
2145: THEN
2146: IF l_debug_level > 0 THEN
2139: Get_return_reference(x_line_tbl(1).line_id, l_return_context, l_return_attrib1, l_return_attrib2);
2140:
2141: IF (NOT OE_GLOBALS.Equal(x_line_tbl(1).return_context, l_return_context) OR
2142: NOT OE_GLOBALS.Equal(x_line_tbl(1).return_attribute1, l_return_attrib1) OR
2143: NOT OE_GLOBALS.Equal(x_line_tbl(1).return_attribute2, l_return_attrib2))
2144: AND Nvl(x_line_tbl(1).shipped_quantity,0) > 0
2145: THEN
2146: IF l_debug_level > 0 THEN
2147: oe_debug_pub.add('Cannot change reference details',2);
2176: --bug 2438466 begin
2177: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN -- Fix for bug3546224
2178: IF p_attr_id = OE_Line_Util.G_RETURN_CONTEXT THEN
2179: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Reqtype
2180: (p_request_type =>OE_GLOBALS.G_COPY_ADJUSTMENTS
2181: ,p_delete => FND_API.G_TRUE
2182: ,x_return_status => l_return_status
2183: );
2184: END IF;
2235: ( p_line_rec => x_line_tbl(1)
2236: );
2237:
2238: -- Re-set the UI flag to FALSE
2239: OE_GLOBALS.G_UI_FLAG := FALSE;
2240:
2241: -- Set return status.
2242:
2243: x_return_status := FND_API.G_RET_STS_SUCCESS;
2256: EXCEPTION
2257:
2258: WHEN FND_API.G_EXC_ERROR THEN
2259:
2260: OE_GLOBALS.G_UI_FLAG := FALSE;
2261:
2262: x_return_status := FND_API.G_RET_STS_ERROR;
2263:
2264: -- Get message count and data
2269: );
2270:
2271: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2272:
2273: OE_GLOBALS.G_UI_FLAG := FALSE;
2274:
2275: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2276:
2277: -- Get message count and data
2282: );
2283:
2284: WHEN OTHERS THEN
2285:
2286: OE_GLOBALS.G_UI_FLAG := FALSE;
2287:
2288: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2289:
2290: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_UNEXP_ERROR)
2321: IS
2322: l_x_line_rec OE_Order_PUB.Line_Rec_Type;
2323: l_x_line_tbl OE_Order_PUB.Line_Tbl_Type;
2324: l_x_old_line_tbl OE_Order_PUB.Line_Tbl_Type;
2325: l_control_rec OE_GLOBALS.Control_Rec_Type;
2326: l_return_status VARCHAR2(1);
2327: l_charge_amount NUMBER := 0.0;
2328: l_last_index NUMBER;
2329: l_organization_id NUMBER:= OE_Sys_Parameters.VALUE('MASTER_ORGANIZATION_ID');
2339: oe_debug_pub.add( 'ENTERING OE_OE_FORM_LINE.VALIDATE_AND_WRITE' , 1 ) ;
2340: END IF;
2341:
2342: -- Set UI flag to TRUE
2343: OE_GLOBALS.G_UI_FLAG := TRUE;
2344:
2345: -- Set control flags.
2346:
2347: l_control_rec.controlled_operation := TRUE;
2382:
2383: -- Set Operation.
2384:
2385: IF FND_API.To_Boolean(l_x_line_tbl(1).db_flag) THEN
2386: l_x_line_tbl(1).operation := OE_GLOBALS.G_OPR_UPDATE;
2387: ELSE
2388: l_x_line_tbl(1).operation := OE_GLOBALS.G_OPR_CREATE;
2389:
2390: /* We are passing the miss quantity for reserved filed
2384:
2385: IF FND_API.To_Boolean(l_x_line_tbl(1).db_flag) THEN
2386: l_x_line_tbl(1).operation := OE_GLOBALS.G_OPR_UPDATE;
2387: ELSE
2388: l_x_line_tbl(1).operation := OE_GLOBALS.G_OPR_CREATE;
2389:
2390: /* We are passing the miss quantity for reserved filed
2391: since we are not converting this to null in OE_LINE_UTIL_EXT' */
2392: l_x_old_line_tbl(1).reserved_quantity := FND_API.G_MISS_NUM;
2440: END IF;
2441:
2442: -- bug 1834260, process delayed request for G_COPY_ADJUSTMENTS
2443: -- before processing for G_PRICE_LINE.
2444: IF OE_GLOBALS.G_DEFER_PRICING='N' THEN
2445: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Reqtype
2446: (p_request_type =>OE_GLOBALS.G_COPY_ADJUSTMENTS
2447: ,p_delete => FND_API.G_TRUE
2448: ,x_return_status => l_return_status
2442: -- bug 1834260, process delayed request for G_COPY_ADJUSTMENTS
2443: -- before processing for G_PRICE_LINE.
2444: IF OE_GLOBALS.G_DEFER_PRICING='N' THEN
2445: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Reqtype
2446: (p_request_type =>OE_GLOBALS.G_COPY_ADJUSTMENTS
2447: ,p_delete => FND_API.G_TRUE
2448: ,x_return_status => l_return_status
2449: );
2450: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2453: RAISE FND_API.G_EXC_ERROR;
2454: END IF;
2455: END IF;
2456:
2457: IF OE_GLOBALS.G_DEFER_PRICING='N' THEN
2458: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Reqtype
2459: (p_request_type =>OE_GLOBALS.G_PRICE_LINE
2460: ,p_delete => FND_API.G_TRUE
2461: ,x_return_status => l_return_status
2455: END IF;
2456:
2457: IF OE_GLOBALS.G_DEFER_PRICING='N' THEN
2458: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Reqtype
2459: (p_request_type =>OE_GLOBALS.G_PRICE_LINE
2460: ,p_delete => FND_API.G_TRUE
2461: ,x_return_status => l_return_status
2462: );
2463: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2466: RAISE FND_API.G_EXC_ERROR;
2467: END IF;
2468: END IF;
2469:
2470: IF OE_GLOBALS.G_DEFER_PRICING='N' THEN
2471:
2472: IF nvl(FND_PROFILE.VALUE('ONT_DELAY_TAX_CALC'), 'N') = 'N' THEN --TaxER
2473: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Reqtype
2474: (p_request_type =>OE_GLOBALS.G_TAX_LINE
2470: IF OE_GLOBALS.G_DEFER_PRICING='N' THEN
2471:
2472: IF nvl(FND_PROFILE.VALUE('ONT_DELAY_TAX_CALC'), 'N') = 'N' THEN --TaxER
2473: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Reqtype
2474: (p_request_type =>OE_GLOBALS.G_TAX_LINE
2475: ,p_delete => FND_API.G_TRUE
2476: ,x_return_status => l_return_status
2477: );
2478: END IF; --TaxER
2488: IF l_debug_level > 0 THEN
2489: oe_debug_pub.add( 'CALLING TO PROCESS DELAYED REQUEST FOR COMMITMENT!' , 1 ) ;
2490: END IF;
2491:
2492: IF OE_GLOBALS.G_DEFER_PRICING='N' THEN
2493: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Reqtype
2494: (p_request_type =>OE_GLOBALS.G_CALCULATE_COMMITMENT
2495: ,p_delete => FND_API.G_TRUE
2496: ,x_return_status => l_return_status
2490: END IF;
2491:
2492: IF OE_GLOBALS.G_DEFER_PRICING='N' THEN
2493: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Reqtype
2494: (p_request_type =>OE_GLOBALS.G_CALCULATE_COMMITMENT
2495: ,p_delete => FND_API.G_TRUE
2496: ,x_return_status => l_return_status
2497: );
2498: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2502: END IF;
2503:
2504: --bug 3560198
2505: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Reqtype
2506: (p_request_type =>OE_GLOBALS.G_UPDATE_COMMITMENT_APPLIED
2507: ,p_delete => FND_API.G_TRUE
2508: ,x_return_status => l_return_status
2509: );
2510: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2514: END IF;
2515: --bug 3560198
2516: END IF;
2517:
2518: x_cascade_flag := OE_GLOBALS.G_CASCADING_REQUEST_LOGGED;
2519:
2520: --fix for bug 4102372
2521: -- x_line_val_rec.x_lock_control:=l_x_line_tbl(1).lock_control;
2522:
2635: oe_debug_pub.add( 'CALLING ORDER TOTAL' , 2 ) ;
2636: END IF;
2637:
2638: -- Call the charges API to get the Line level charges.
2639: IF OE_GLOBALS.G_DEFER_PRICING='N' THEN
2640: OE_CHARGE_PVT.Get_Charge_Amount(
2641: p_api_version_number => 1.1 ,
2642: p_init_msg_list => FND_API.G_FALSE ,
2643: p_header_id => l_x_line_rec.header_id ,
2678: x_line_val_rec.x_freight_terms := OE_Id_To_Value.Freight_Terms(x_line_val_rec.x_freight_terms_code);
2679: x_line_val_rec.x_inventory_item_id := l_x_line_rec.inventory_item_id;
2680: x_line_val_rec.x_ordered_item_id := l_x_line_rec.ordered_item_id;
2681:
2682: IF OE_GLOBALS.G_DEFER_PRICING='N' THEN
2683: -- lkxu, commitment enhancement.
2684: IF UPPER(Nvl(Fnd_Profile.Value('OE_COMMITMENT_SEQUENCING'),'N')) = 'Y' THEN
2685: x_line_val_rec.x_commitment_applied_amount := OE_COMMITMENT_PVT.get_commitment_applied_amount
2686: (p_header_id => l_x_line_rec.header_id ,
2705:
2706:
2707:
2708: -- Re-set the UI flag to FALSE
2709: OE_GLOBALS.G_UI_FLAG := FALSE;
2710:
2711: -- Set return status.
2712:
2713: x_return_status := FND_API.G_RET_STS_SUCCESS;
2727: EXCEPTION
2728:
2729: WHEN FND_API.G_EXC_ERROR THEN
2730:
2731: OE_GLOBALS.G_UI_FLAG := FALSE;
2732:
2733: ROLLBACK TO SAVEPOINT Line_Validate_And_Write;
2734: /* From the UI, if we raise an exception here, user can
2735: make proper change and try to commit again, ended up with multiple
2739: This change is only made here, assuming only UI has the
2740: ability to do something like that.
2741: */
2742:
2743: l_last_index := OE_GLOBALS.G_START_LINE_FLOWS_TBL.last;
2744: IF (l_x_line_tbl(1).operation = OE_GLOBALS.G_OPR_CREATE
2745: AND l_last_index IS NOT NULL -- 2068070
2746: AND OE_GLOBALS.G_START_LINE_FLOWS_TBL(l_last_index).line_id = p_line_id) THEN --Bug 3000619
2747: OE_GLOBALS.G_START_LINE_FLOWS_TBL.delete(l_last_index);
2740: ability to do something like that.
2741: */
2742:
2743: l_last_index := OE_GLOBALS.G_START_LINE_FLOWS_TBL.last;
2744: IF (l_x_line_tbl(1).operation = OE_GLOBALS.G_OPR_CREATE
2745: AND l_last_index IS NOT NULL -- 2068070
2746: AND OE_GLOBALS.G_START_LINE_FLOWS_TBL(l_last_index).line_id = p_line_id) THEN --Bug 3000619
2747: OE_GLOBALS.G_START_LINE_FLOWS_TBL.delete(l_last_index);
2748: END IF;
2742:
2743: l_last_index := OE_GLOBALS.G_START_LINE_FLOWS_TBL.last;
2744: IF (l_x_line_tbl(1).operation = OE_GLOBALS.G_OPR_CREATE
2745: AND l_last_index IS NOT NULL -- 2068070
2746: AND OE_GLOBALS.G_START_LINE_FLOWS_TBL(l_last_index).line_id = p_line_id) THEN --Bug 3000619
2747: OE_GLOBALS.G_START_LINE_FLOWS_TBL.delete(l_last_index);
2748: END IF;
2749: x_return_status := FND_API.G_RET_STS_ERROR;
2750:
2743: l_last_index := OE_GLOBALS.G_START_LINE_FLOWS_TBL.last;
2744: IF (l_x_line_tbl(1).operation = OE_GLOBALS.G_OPR_CREATE
2745: AND l_last_index IS NOT NULL -- 2068070
2746: AND OE_GLOBALS.G_START_LINE_FLOWS_TBL(l_last_index).line_id = p_line_id) THEN --Bug 3000619
2747: OE_GLOBALS.G_START_LINE_FLOWS_TBL.delete(l_last_index);
2748: END IF;
2749: x_return_status := FND_API.G_RET_STS_ERROR;
2750:
2751: -- Get message count and data
2756: );
2757:
2758: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2759:
2760: OE_GLOBALS.G_UI_FLAG := FALSE;
2761:
2762: ROLLBACK TO SAVEPOINT Line_Validate_And_Write;
2763: l_last_index := OE_GLOBALS.G_START_LINE_FLOWS_TBL.last;
2764: IF (l_x_line_tbl(1).operation = OE_GLOBALS.G_OPR_CREATE
2759:
2760: OE_GLOBALS.G_UI_FLAG := FALSE;
2761:
2762: ROLLBACK TO SAVEPOINT Line_Validate_And_Write;
2763: l_last_index := OE_GLOBALS.G_START_LINE_FLOWS_TBL.last;
2764: IF (l_x_line_tbl(1).operation = OE_GLOBALS.G_OPR_CREATE
2765: AND l_last_index IS NOT NULL -- 2068070
2766: AND OE_GLOBALS.G_START_LINE_FLOWS_TBL(l_last_index).line_id = p_line_id) THEN --Bug 3000619
2767: OE_GLOBALS.G_START_LINE_FLOWS_TBL.delete(l_last_index);
2760: OE_GLOBALS.G_UI_FLAG := FALSE;
2761:
2762: ROLLBACK TO SAVEPOINT Line_Validate_And_Write;
2763: l_last_index := OE_GLOBALS.G_START_LINE_FLOWS_TBL.last;
2764: IF (l_x_line_tbl(1).operation = OE_GLOBALS.G_OPR_CREATE
2765: AND l_last_index IS NOT NULL -- 2068070
2766: AND OE_GLOBALS.G_START_LINE_FLOWS_TBL(l_last_index).line_id = p_line_id) THEN --Bug 3000619
2767: OE_GLOBALS.G_START_LINE_FLOWS_TBL.delete(l_last_index);
2768: END IF;
2762: ROLLBACK TO SAVEPOINT Line_Validate_And_Write;
2763: l_last_index := OE_GLOBALS.G_START_LINE_FLOWS_TBL.last;
2764: IF (l_x_line_tbl(1).operation = OE_GLOBALS.G_OPR_CREATE
2765: AND l_last_index IS NOT NULL -- 2068070
2766: AND OE_GLOBALS.G_START_LINE_FLOWS_TBL(l_last_index).line_id = p_line_id) THEN --Bug 3000619
2767: OE_GLOBALS.G_START_LINE_FLOWS_TBL.delete(l_last_index);
2768: END IF;
2769: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2770:
2763: l_last_index := OE_GLOBALS.G_START_LINE_FLOWS_TBL.last;
2764: IF (l_x_line_tbl(1).operation = OE_GLOBALS.G_OPR_CREATE
2765: AND l_last_index IS NOT NULL -- 2068070
2766: AND OE_GLOBALS.G_START_LINE_FLOWS_TBL(l_last_index).line_id = p_line_id) THEN --Bug 3000619
2767: OE_GLOBALS.G_START_LINE_FLOWS_TBL.delete(l_last_index);
2768: END IF;
2769: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2770:
2771: -- Get message count and data
2776: );
2777:
2778: WHEN OTHERS THEN
2779:
2780: OE_GLOBALS.G_UI_FLAG := FALSE;
2781:
2782: ROLLBACK TO SAVEPOINT Line_Validate_And_Write;
2783: l_last_index := OE_GLOBALS.G_START_LINE_FLOWS_TBL.last;
2784: IF (l_x_line_tbl(1).operation = OE_GLOBALS.G_OPR_CREATE
2779:
2780: OE_GLOBALS.G_UI_FLAG := FALSE;
2781:
2782: ROLLBACK TO SAVEPOINT Line_Validate_And_Write;
2783: l_last_index := OE_GLOBALS.G_START_LINE_FLOWS_TBL.last;
2784: IF (l_x_line_tbl(1).operation = OE_GLOBALS.G_OPR_CREATE
2785: AND l_last_index IS NOT NULL -- 2068070
2786: AND OE_GLOBALS.G_START_LINE_FLOWS_TBL(l_last_index).line_id = p_line_id) THEN --Bug 3000619
2787: OE_GLOBALS.G_START_LINE_FLOWS_TBL.delete(l_last_index);
2780: OE_GLOBALS.G_UI_FLAG := FALSE;
2781:
2782: ROLLBACK TO SAVEPOINT Line_Validate_And_Write;
2783: l_last_index := OE_GLOBALS.G_START_LINE_FLOWS_TBL.last;
2784: IF (l_x_line_tbl(1).operation = OE_GLOBALS.G_OPR_CREATE
2785: AND l_last_index IS NOT NULL -- 2068070
2786: AND OE_GLOBALS.G_START_LINE_FLOWS_TBL(l_last_index).line_id = p_line_id) THEN --Bug 3000619
2787: OE_GLOBALS.G_START_LINE_FLOWS_TBL.delete(l_last_index);
2788: END IF;
2782: ROLLBACK TO SAVEPOINT Line_Validate_And_Write;
2783: l_last_index := OE_GLOBALS.G_START_LINE_FLOWS_TBL.last;
2784: IF (l_x_line_tbl(1).operation = OE_GLOBALS.G_OPR_CREATE
2785: AND l_last_index IS NOT NULL -- 2068070
2786: AND OE_GLOBALS.G_START_LINE_FLOWS_TBL(l_last_index).line_id = p_line_id) THEN --Bug 3000619
2787: OE_GLOBALS.G_START_LINE_FLOWS_TBL.delete(l_last_index);
2788: END IF;
2789: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2790:
2783: l_last_index := OE_GLOBALS.G_START_LINE_FLOWS_TBL.last;
2784: IF (l_x_line_tbl(1).operation = OE_GLOBALS.G_OPR_CREATE
2785: AND l_last_index IS NOT NULL -- 2068070
2786: AND OE_GLOBALS.G_START_LINE_FLOWS_TBL(l_last_index).line_id = p_line_id) THEN --Bug 3000619
2787: OE_GLOBALS.G_START_LINE_FLOWS_TBL.delete(l_last_index);
2788: END IF;
2789: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2790:
2791: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_UNEXP_ERROR)
2819: IS
2820: l_x_line_rec OE_Order_PUB.Line_Rec_Type;
2821: l_x_line_tbl OE_Order_PUB.Line_Tbl_Type;
2822: l_x_old_line_tbl OE_Order_PUB.Line_Tbl_Type;
2823: l_control_rec OE_GLOBALS.Control_Rec_Type;
2824: l_return_status VARCHAR2(1);
2825: --
2826: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2827: --
2831: oe_debug_pub.add( 'ENTERING OE_OE_FORM_LINE.DELETE_ROW' , 1 ) ;
2832: END IF;
2833:
2834: -- Set UI flag to TRUE
2835: OE_GLOBALS.G_UI_FLAG := TRUE;
2836:
2837: -- Set control flags.
2838:
2839: l_control_rec.controlled_operation := TRUE;
2859: );
2860:
2861: -- Set Operation.
2862:
2863: l_x_line_rec.operation := OE_GLOBALS.G_OPR_DELETE;
2864:
2865: -- Populate line table
2866:
2867: l_x_line_tbl(1) := l_x_line_rec;
2887: RAISE FND_API.G_EXC_ERROR;
2888: END IF;
2889:
2890: -- Re-set the UI flag to FALSE
2891: OE_GLOBALS.G_UI_FLAG := FALSE;
2892:
2893: -- Clear line record cache
2894:
2895: Clear_line;
2912: EXCEPTION
2913:
2914: WHEN FND_API.G_EXC_ERROR THEN
2915: ROLLBACK TO SAVEPOINT Line_Delete;
2916: OE_GLOBALS.G_UI_FLAG := FALSE;
2917:
2918: x_return_status := FND_API.G_RET_STS_ERROR;
2919:
2920: -- Get message count and data
2926:
2927: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2928: ROLLBACK TO SAVEPOINT Line_Delete;
2929:
2930: OE_GLOBALS.G_UI_FLAG := FALSE;
2931:
2932: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2933:
2934: -- Get message count and data
2940:
2941: WHEN OTHERS THEN
2942: ROLLBACK TO SAVEPOINT Line_Delete;
2943:
2944: OE_GLOBALS.G_UI_FLAG := FALSE;
2945:
2946: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2947:
2948: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_UNEXP_ERROR)
2970: , x_msg_count OUT NOCOPY NUMBER
2971: , x_msg_data OUT NOCOPY VARCHAR2
2972: )
2973: IS
2974: l_control_rec OE_GLOBALS.Control_Rec_Type;
2975: l_return_status VARCHAR2(1);
2976: l_x_header_rec OE_Order_PUB.Header_Rec_Type;
2977: l_x_Header_Adj_rec OE_Order_PUB.Header_Adj_Rec_Type;
2978: l_x_Header_Adj_tbl OE_Order_PUB.Header_Adj_Tbl_Type;
3005: oe_debug_pub.add( 'ENTERING OE_OE_FORM_LINE.PROCESS_ENTITY' , 1 ) ;
3006: END IF;
3007:
3008: -- Set UI flag to TRUE
3009: OE_GLOBALS.G_UI_FLAG := TRUE;
3010:
3011: -- Set control flags.
3012:
3013: l_control_rec.controlled_operation := TRUE;
3011: -- Set control flags.
3012:
3013: l_control_rec.controlled_operation := TRUE;
3014: l_control_rec.process := TRUE;
3015: l_control_rec.process_entity := OE_GLOBALS.G_ENTITY_LINE;
3016:
3017: l_control_rec.check_security := FALSE;
3018: l_control_rec.clear_dependents := FALSE;
3019: l_control_rec.default_attributes := FALSE;
3063: RAISE FND_API.G_EXC_ERROR;
3064: END IF;
3065:
3066: -- Re-set the UI flag to FALSE
3067: OE_GLOBALS.G_UI_FLAG := FALSE;
3068:
3069: -- Set return status.
3070:
3071: x_return_status := FND_API.G_RET_STS_SUCCESS;
3084: EXCEPTION
3085:
3086: WHEN FND_API.G_EXC_ERROR THEN
3087:
3088: OE_GLOBALS.G_UI_FLAG := FALSE;
3089:
3090: x_return_status := FND_API.G_RET_STS_ERROR;
3091:
3092: -- Get message count and data
3097: );
3098:
3099: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3100:
3101: OE_GLOBALS.G_UI_FLAG := FALSE;
3102:
3103: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3104:
3105: -- Get message count and data
3110: );
3111:
3112: WHEN OTHERS THEN
3113:
3114: OE_GLOBALS.G_UI_FLAG := FALSE;
3115:
3116: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3117:
3118: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_UNEXP_ERROR)
3158: -- Load line record
3159:
3160: l_x_line_rec.lock_control := p_lock_control;
3161: l_x_line_rec.line_id := p_line_id;
3162: l_x_line_rec.operation := OE_GLOBALS.G_OPR_LOCK; -- not req.
3163:
3164: --Bug 3025978
3165: OE_GLOBALS.G_UI_FLAG := TRUE;
3166:
3161: l_x_line_rec.line_id := p_line_id;
3162: l_x_line_rec.operation := OE_GLOBALS.G_OPR_LOCK; -- not req.
3163:
3164: --Bug 3025978
3165: OE_GLOBALS.G_UI_FLAG := TRUE;
3166:
3167: -- Call OE_Line_Util.Lock_Row instead of Oe_Order_Pvt.Lock_order
3168: OE_MSG_PUB.initialize;
3169: OE_Line_Util.Lock_Row
3209:
3210: EXCEPTION
3211: WHEN FND_API.G_EXC_ERROR THEN
3212:
3213: OE_GLOBALS.G_UI_FLAG := FALSE;
3214:
3215: x_return_status := FND_API.G_RET_STS_ERROR;
3216:
3217: -- Get message count and data
3222: );
3223:
3224: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3225:
3226: OE_GLOBALS.G_UI_FLAG := FALSE;
3227:
3228: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3229:
3230: -- Get message count and data
3600: CLOSE line_info;
3601:
3602: /* 1931163: Check Cascaded Hold based on ATO Line(s) */
3603: IF l_ato_line_id IS NOT NULL AND
3604: NOT (l_ato_line_id = p_line_rec.line_id AND l_item_type_code = OE_GLOBALS.G_ITEM_OPTION) THEN
3605:
3606: FOR ato_hold_rec in ato_lines_on_hold(l_ato_line_id, l_top_model_line_id)
3607: LOOP
3608:
3680: --5737464
3681:
3682:
3683: /* 1931163: Check Cascaded Hold for Included Item */
3684: IF l_item_type_code = OE_GLOBALS.G_ITEM_INCLUDED AND x_line_val_rec.cascaded_hold_exists_flag = 'N' THEN
3685:
3686: FOR link_to_hold_rec in link_to_line_hold(l_link_to_line_id)
3687: LOOP
3688:
4816: END IF;
4817: -- for 5331980 start*
4818: ELSIF p_calling_block = 'LINE' THEN
4819:
4820: IF OE_GLOBALS.G_CALCULATE_LINE_TOTAL THEN
4821:
4822: OE_OE_TOTALS_SUMMARY.Order_Totals
4823: (
4824: p_header_id=>p_line_rec.header_id ,
4827: p_charges =>x_line_val_rec.charges,
4828: p_tax =>x_line_val_rec.tax
4829: );
4830:
4831: OE_GLOBALS.G_CALCULATE_LINE_TOTAL := FALSE;
4832:
4833: g_subtotal := x_line_val_rec.subtotal;
4834: g_discount := x_line_val_rec.discount;
4835: g_charges := x_line_val_rec.charges;
5781: l_x_Header_Adj_Assoc_tbl OE_Order_PUB.Header_Adj_Assoc_Tbl_Type;
5782: l_x_Line_price_Att_tbl OE_Order_PUB.Line_Price_Att_Tbl_Type;
5783: l_x_Line_Adj_Att_tbl OE_Order_PUB.Line_Adj_Att_Tbl_Type;
5784: l_x_Line_Adj_Assoc_tbl OE_Order_PUB.Line_Adj_Assoc_Tbl_Type;
5785: l_control_rec OE_GLOBALS.Control_Rec_Type;
5786: l_return_status VARCHAR2(1);
5787: l_line_id NUMBER;
5788: l_process_add_attributes Boolean :=FALSE;
5789: j NUMBER; -- for bug 1988144
5819:
5820: l_control_rec.clear_api_cache := FALSE;
5821: l_control_rec.clear_api_requests := FALSE; */
5822:
5823: -- OE_GLOBALS.G_UI_FLAG := TRUE; -- FP bug#6968460 (for bug#5727279): reverting the fix done in bug#4751632
5824:
5825: IF x_line_tbl_type.count>0 THEN
5826: for i in x_line_tbl_type.first .. x_line_tbl_type.last loop
5827:
5864: l_x_line_tbl(i).split_by:='SYSTEM';
5865: ELSE
5866: l_x_line_tbl(i).split_by:='USER';
5867: END IF;
5868: l_x_line_tbl(i).operation:= OE_GLOBALS.G_OPR_UPDATE;
5869: IF l_debug_level > 0 THEN
5870: OE_DEBUG_PUB.add('Audit Trail Reason Code being passed as '||p_change_reason_code,1);
5871: END IF;
5872: l_x_line_tbl(i).change_reason := p_change_reason_code;
5877: ELSE
5878: IF l_line_id is not null then
5879: l_x_line_tbl(i).split_from_line_id:=l_line_id;
5880: END IF;
5881: l_x_line_tbl(i).operation:= OE_GLOBALS.G_OPR_CREATE;
5882: --SAO
5883: IF p_split_by = 'SCHEDULER' THEN
5884: l_x_line_tbl(i).split_by:='SYSTEM';
5885: ELSE
5992: END IF;
5993:
5994: -- This is to fix a p1 bug on tst115. The second call should not
5995: -- come as split
5996: l_line_tbl(i).operation:= OE_GLOBALS.G_OPR_UPDATE;
5997: IF l_debug_level > 0 THEN
5998: OE_DEBUG_PUB.add('Reason code being passed : '||l_line_tbl(i).change_reason,1);
5999: OE_DEBUG_PUB.add('Warehouse: '||x_line_tbl_type(i).ship_from_org_id,1);
6000: END IF;
6089: l_process_add_attributes:=TRUE;
6090: END IF;
6091: END IF;
6092:
6093: l_line_tbl(l_rec_count).operation := OE_GLOBALS.G_OPR_UPDATE;
6094: IF l_debug_level > 0 THEN
6095: OE_DEBUG_PUB.add('Reason code being passed : '||l_line_tbl(l_rec_count).change_reason,1);
6096: OE_DEBUG_PUB.add('Warehouse :'||l_line_tbl(l_rec_count).ship_from_org_id,1);
6097: END IF;
6246: -- Clear versioning globals if request was not logged. If request was
6247: -- logged, that indicates that a change on another record had logged the
6248: -- request and versioning should still fire.
6249:
6250: IF OE_GLOBALS.G_ROLL_VERSION <> 'N' THEN
6251:
6252: l_header_id := g_line_rec.header_id;
6253:
6254: if l_debug_level > 0 then
6256: oe_debug_pub.add('Header ID: '||l_header_id);
6257: end if;
6258:
6259: IF NOT OE_Delayed_Requests_Pvt.Check_For_Request
6260: (p_entity_code => OE_GLOBALS.G_ENTITY_ALL
6261: ,p_entity_id => l_header_id
6262: ,p_request_type => OE_GLOBALS.G_VERSION_AUDIT
6263: )
6264: THEN
6258:
6259: IF NOT OE_Delayed_Requests_Pvt.Check_For_Request
6260: (p_entity_code => OE_GLOBALS.G_ENTITY_ALL
6261: ,p_entity_id => l_header_id
6262: ,p_request_type => OE_GLOBALS.G_VERSION_AUDIT
6263: )
6264: THEN
6265: oe_debug_pub.add('Request does not exist, reset versioning globals');
6266: IF (NOT OE_Versioning_Util.Reset_Globals) THEN
6271:
6272: END IF;
6273:
6274: OE_DELAYED_REQUESTS_PVT.Delete_Reqs_for_Deleted_Entity(
6275: p_entity_code => OE_GLOBALS.G_ENTITY_LINE
6276: ,p_entity_id => p_line_id
6277: -- Bug 3800577
6278: -- Also delete requests logged by this entity
6279: ,p_delete_against => FALSE
6282: /* -- Added for bug 3445778 --Commenting the code for 3575018
6283: oe_debug_pub.add('Executing code for updating global picture, line_id: ' || p_line_id, 1);
6284:
6285: -- Set the operation on the record so that globals are updated
6286: l_new_line_rec.operation := OE_GLOBALS.G_OPR_DELETE;
6287: l_new_line_rec.line_id := p_line_id;
6288: l_old_line_rec.line_id := p_line_id;
6289:
6290: OE_ORDER_UTIL.Update_Global_Picture(p_Upd_New_Rec_If_Exists => True,
6636: is logged against LINE entity now
6637:
6638: oe_debug_pub.add('delete the request logged for this line too');
6639: oe_delayed_requests_pvt.delete_request(
6640: p_entity_code =>OE_GLOBALS.G_ENTITY_LINE_ADJ,
6641: p_entity_id => x_line_id,
6642: p_request_type => OE_GLOBALS.G_PRICE_ADJ,
6643: x_return_status => l_return_status);
6644: */
6638: oe_debug_pub.add('delete the request logged for this line too');
6639: oe_delayed_requests_pvt.delete_request(
6640: p_entity_code =>OE_GLOBALS.G_ENTITY_LINE_ADJ,
6641: p_entity_id => x_line_id,
6642: p_request_type => OE_GLOBALS.G_PRICE_ADJ,
6643: x_return_status => l_return_status);
6644: */
6645:
6646: END Delete_Adjustments;
6689:
6690: -- for 5331980 start**
6691: PROCEDURE Reset_calculate_line_total IS
6692: BEGIN
6693: OE_GLOBALS.G_CALCULATE_LINE_TOTAL := TRUE;
6694: END Reset_Calculate_line_Total;
6695: --for 5331980 end**
6696:
6697: END oe_oe_form_line;