[Home] [Help]
69: , x_line_val_tbl IN OUT NOCOPY OE_ORDER_PUB.Line_Val_Tbl_Type
70:
71: )
72: IS
73: l_control_rec OE_GLOBALS.Control_Rec_Type;
74: l_return_status VARCHAR2(1);
75: l_x_header_rec OE_Order_PUB.Header_Rec_Type;
76: l_error NUMBER := 0;
77: --
84: END IF;
85:
86: l_error := 1;
87: -- Set UI flag to TRUE
88: OE_GLOBALS.G_UI_FLAG := TRUE;
89:
90: -- Set control flags.
91:
92: l_control_rec.controlled_operation := TRUE;
226:
227: -- Set Operation to Create
228:
229: l_error := 2;
230: x_line_tbl(1).operation := OE_GLOBALS.G_OPR_CREATE;
231:
232: -- Populate line table
233:
234:
284: ( p_line_rec => x_line_tbl(1)
285: );
286:
287: -- Re-set the UI flag to FALSE
288: OE_GLOBALS.G_UI_FLAG := FALSE;
289:
290: -- Set return status.
291:
292: x_return_status := FND_API.G_RET_STS_SUCCESS;
305: EXCEPTION
306:
307: WHEN FND_API.G_EXC_ERROR THEN
308:
309: OE_GLOBALS.G_UI_FLAG := FALSE;
310:
311: x_return_status := FND_API.G_RET_STS_ERROR;
312:
313: -- Get message count and data
318: );
319:
320: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
321:
322: OE_GLOBALS.G_UI_FLAG := FALSE;
323:
324: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
325:
326: -- Get message count and data
331: );
332:
333: WHEN OTHERS THEN
334:
335: OE_GLOBALS.G_UI_FLAG := FALSE;
336:
337: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
338:
339: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_UNEXP_ERROR)
993: x_line_tbl(1).return_attribute6 := p_line_dff_rec.return_attribute6;
994: x_line_tbl(1).return_attribute7 := p_line_dff_rec.return_attribute7;
995: x_line_tbl(1).return_attribute8 := p_line_dff_rec.return_attribute8;
996: x_line_tbl(1).return_attribute9 := p_line_dff_rec.return_attribute9;
997: x_line_tbl(1).line_category_code := OE_GLOBALS.G_RETURN_CATEGORY_CODE;
998:
999: ELSIF p_attr_id = OE_Line_Util.G_TP_ATTRIBUTE1
1000: OR p_attr_id = OE_Line_Util.G_TP_ATTRIBUTE10
1001: OR p_attr_id = OE_Line_Util.G_TP_ATTRIBUTE11
1150: , x_lot_control_code OUT NOCOPY /* file.sql.39 change */ NUMBER -- 4172680 INVCONV
1151:
1152: )
1153: IS
1154: l_control_rec OE_GLOBALS.Control_Rec_Type;
1155: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1156: l_date_format_mask VARCHAR2(30) := p_date_format_mask;
1157: l_order_date_type_code VARCHAR2(30) := null;
1158: l_orig_ship_from_org_id OE_Order_LINES.ship_from_org_id%TYPE;
1169: oe_debug_pub.add( 'ENTERING OE_OE_FORM_LINE.CHANGE_ATTRIBUTES' , 1 ) ;
1170: END IF;
1171:
1172: -- Set UI flag to TRUE
1173: OE_GLOBALS.G_UI_FLAG := TRUE;
1174:
1175:
1176: -- Set control flags.
1177:
1207: l_control_rec.clear_dependents := FALSE;
1208: l_control_rec.check_security := FALSE;
1209:
1210: IF FND_API.To_Boolean(x_line_tbl(1).db_flag) THEN
1211: x_line_tbl(1).operation := OE_GLOBALS.G_OPR_UPDATE;
1212: ELSE
1213: x_line_tbl(1).operation := OE_GLOBALS.G_OPR_CREATE;
1214: END IF;
1215:
1209:
1210: IF FND_API.To_Boolean(x_line_tbl(1).db_flag) THEN
1211: x_line_tbl(1).operation := OE_GLOBALS.G_OPR_UPDATE;
1212: ELSE
1213: x_line_tbl(1).operation := OE_GLOBALS.G_OPR_CREATE;
1214: END IF;
1215:
1216: Oe_Order_Pvt.Lines
1217: (
1901: x_line_tbl(1).return_attribute6 := p_line_dff_rec.return_attribute6;
1902: x_line_tbl(1).return_attribute7 := p_line_dff_rec.return_attribute7;
1903: x_line_tbl(1).return_attribute8 := p_line_dff_rec.return_attribute8;
1904: x_line_tbl(1).return_attribute9 := p_line_dff_rec.return_attribute9;
1905: x_line_tbl(1).line_category_code := OE_GLOBALS.G_RETURN_CATEGORY_CODE;
1906:
1907: ELSIF p_attr_id = OE_Line_Util.G_TP_ATTRIBUTE1
1908: OR p_attr_id = OE_Line_Util.G_TP_ATTRIBUTE10
1909: OR p_attr_id = OE_Line_Util.G_TP_ATTRIBUTE11
2005: oe_debug_pub.add( 'SETTING OPERATION' , 2 ) ;
2006: END IF;
2007:
2008: IF FND_API.To_Boolean(x_line_tbl(1).db_flag) THEN
2009: x_line_tbl(1).operation := OE_GLOBALS.G_OPR_UPDATE;
2010: ELSE
2011: x_line_tbl(1).operation := OE_GLOBALS.G_OPR_CREATE;
2012: END IF;
2013:
2007:
2008: IF FND_API.To_Boolean(x_line_tbl(1).db_flag) THEN
2009: x_line_tbl(1).operation := OE_GLOBALS.G_OPR_UPDATE;
2010: ELSE
2011: x_line_tbl(1).operation := OE_GLOBALS.G_OPR_CREATE;
2012: END IF;
2013:
2014: -- Populate line table
2015: -- Validate Scheduling Dates Changes, if any.
2013:
2014: -- Populate line table
2015: -- Validate Scheduling Dates Changes, if any.
2016:
2017: IF NVL(x_line_tbl(1).source_type_code,OE_GLOBALS.G_SOURCE_INTERNAL)
2018: = OE_GLOBALS.G_SOURCE_INTERNAL THEN
2019: IF NOT OE_GLOBALS.Equal(x_line_tbl(1).schedule_ship_date,
2020: x_old_line_tbl(1).schedule_ship_date)
2021: THEN
2014: -- Populate line table
2015: -- Validate Scheduling Dates Changes, if any.
2016:
2017: IF NVL(x_line_tbl(1).source_type_code,OE_GLOBALS.G_SOURCE_INTERNAL)
2018: = OE_GLOBALS.G_SOURCE_INTERNAL THEN
2019: IF NOT OE_GLOBALS.Equal(x_line_tbl(1).schedule_ship_date,
2020: x_old_line_tbl(1).schedule_ship_date)
2021: THEN
2022: -- If the Order Type is ARRIVAL, the user is not
2015: -- Validate Scheduling Dates Changes, if any.
2016:
2017: IF NVL(x_line_tbl(1).source_type_code,OE_GLOBALS.G_SOURCE_INTERNAL)
2018: = OE_GLOBALS.G_SOURCE_INTERNAL THEN
2019: IF NOT OE_GLOBALS.Equal(x_line_tbl(1).schedule_ship_date,
2020: x_old_line_tbl(1).schedule_ship_date)
2021: THEN
2022: -- If the Order Type is ARRIVAL, the user is not
2023: -- allowed to change the schedule ship date
2046: END IF;
2047:
2048: END IF;
2049:
2050: IF NOT OE_GLOBALS.Equal(x_line_tbl(1).schedule_arrival_date,
2051: x_old_line_tbl(1).schedule_arrival_date)
2052: THEN
2053:
2054: -- If the Order Type is SHIP (or null), the user is not
2079:
2080: END IF;
2081: END IF;
2082: -- start for 3998402
2083: IF (NVL(x_line_tbl(1).source_type_code,OE_GLOBALS.G_SOURCE_INTERNAL)
2084: = OE_GLOBALS.G_SOURCE_EXTERNAL
2085: AND (x_line_tbl(1).ship_set_id is not null
2086: OR x_line_tbl(1).arrival_set_id is not null)) THEN
2087: IF l_debug_level > 0 THEN
2080: END IF;
2081: END IF;
2082: -- start for 3998402
2083: IF (NVL(x_line_tbl(1).source_type_code,OE_GLOBALS.G_SOURCE_INTERNAL)
2084: = OE_GLOBALS.G_SOURCE_EXTERNAL
2085: AND (x_line_tbl(1).ship_set_id is not null
2086: OR x_line_tbl(1).arrival_set_id is not null)) THEN
2087: IF l_debug_level > 0 THEN
2088: oe_debug_pub.add('Cannot change source type',2);
2116: --bug 2438466 begin
2117: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN -- Fix for bug3546224
2118: IF p_attr_id = OE_Line_Util.G_RETURN_CONTEXT THEN
2119: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Reqtype
2120: (p_request_type =>OE_GLOBALS.G_COPY_ADJUSTMENTS
2121: ,p_delete => FND_API.G_TRUE
2122: ,x_return_status => l_return_status
2123: );
2124: END IF;
2175: ( p_line_rec => x_line_tbl(1)
2176: );
2177:
2178: -- Re-set the UI flag to FALSE
2179: OE_GLOBALS.G_UI_FLAG := FALSE;
2180:
2181: -- Set return status.
2182:
2183: x_return_status := FND_API.G_RET_STS_SUCCESS;
2196: EXCEPTION
2197:
2198: WHEN FND_API.G_EXC_ERROR THEN
2199:
2200: OE_GLOBALS.G_UI_FLAG := FALSE;
2201:
2202: x_return_status := FND_API.G_RET_STS_ERROR;
2203:
2204: -- Get message count and data
2209: );
2210:
2211: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2212:
2213: OE_GLOBALS.G_UI_FLAG := FALSE;
2214:
2215: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2216:
2217: -- Get message count and data
2222: );
2223:
2224: WHEN OTHERS THEN
2225:
2226: OE_GLOBALS.G_UI_FLAG := FALSE;
2227:
2228: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2229:
2230: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_UNEXP_ERROR)
2261: IS
2262: l_x_line_rec OE_Order_PUB.Line_Rec_Type;
2263: l_x_line_tbl OE_Order_PUB.Line_Tbl_Type;
2264: l_x_old_line_tbl OE_Order_PUB.Line_Tbl_Type;
2265: l_control_rec OE_GLOBALS.Control_Rec_Type;
2266: l_return_status VARCHAR2(1);
2267: l_charge_amount NUMBER := 0.0;
2268: l_last_index NUMBER;
2269: l_organization_id NUMBER:= OE_Sys_Parameters.VALUE('MASTER_ORGANIZATION_ID');
2279: oe_debug_pub.add( 'ENTERING OE_OE_FORM_LINE.VALIDATE_AND_WRITE' , 1 ) ;
2280: END IF;
2281:
2282: -- Set UI flag to TRUE
2283: OE_GLOBALS.G_UI_FLAG := TRUE;
2284:
2285: -- Set control flags.
2286:
2287: l_control_rec.controlled_operation := TRUE;
2322:
2323: -- Set Operation.
2324:
2325: IF FND_API.To_Boolean(l_x_line_tbl(1).db_flag) THEN
2326: l_x_line_tbl(1).operation := OE_GLOBALS.G_OPR_UPDATE;
2327: ELSE
2328: l_x_line_tbl(1).operation := OE_GLOBALS.G_OPR_CREATE;
2329:
2330: /* We are passing the miss quantity for reserved filed
2324:
2325: IF FND_API.To_Boolean(l_x_line_tbl(1).db_flag) THEN
2326: l_x_line_tbl(1).operation := OE_GLOBALS.G_OPR_UPDATE;
2327: ELSE
2328: l_x_line_tbl(1).operation := OE_GLOBALS.G_OPR_CREATE;
2329:
2330: /* We are passing the miss quantity for reserved filed
2331: since we are not converting this to null in OE_LINE_UTIL_EXT' */
2332: l_x_old_line_tbl(1).reserved_quantity := FND_API.G_MISS_NUM;
2380: END IF;
2381:
2382: -- bug 1834260, process delayed request for G_COPY_ADJUSTMENTS
2383: -- before processing for G_PRICE_LINE.
2384: IF OE_GLOBALS.G_DEFER_PRICING='N' THEN
2385: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Reqtype
2386: (p_request_type =>OE_GLOBALS.G_COPY_ADJUSTMENTS
2387: ,p_delete => FND_API.G_TRUE
2388: ,x_return_status => l_return_status
2382: -- bug 1834260, process delayed request for G_COPY_ADJUSTMENTS
2383: -- before processing for G_PRICE_LINE.
2384: IF OE_GLOBALS.G_DEFER_PRICING='N' THEN
2385: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Reqtype
2386: (p_request_type =>OE_GLOBALS.G_COPY_ADJUSTMENTS
2387: ,p_delete => FND_API.G_TRUE
2388: ,x_return_status => l_return_status
2389: );
2390: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2393: RAISE FND_API.G_EXC_ERROR;
2394: END IF;
2395: END IF;
2396:
2397: IF OE_GLOBALS.G_DEFER_PRICING='N' THEN
2398: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Reqtype
2399: (p_request_type =>OE_GLOBALS.G_PRICE_LINE
2400: ,p_delete => FND_API.G_TRUE
2401: ,x_return_status => l_return_status
2395: END IF;
2396:
2397: IF OE_GLOBALS.G_DEFER_PRICING='N' THEN
2398: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Reqtype
2399: (p_request_type =>OE_GLOBALS.G_PRICE_LINE
2400: ,p_delete => FND_API.G_TRUE
2401: ,x_return_status => l_return_status
2402: );
2403: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2406: RAISE FND_API.G_EXC_ERROR;
2407: END IF;
2408: END IF;
2409:
2410: IF OE_GLOBALS.G_DEFER_PRICING='N' THEN
2411: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Reqtype
2412: (p_request_type =>OE_GLOBALS.G_TAX_LINE
2413: ,p_delete => FND_API.G_TRUE
2414: ,x_return_status => l_return_status
2408: END IF;
2409:
2410: IF OE_GLOBALS.G_DEFER_PRICING='N' THEN
2411: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Reqtype
2412: (p_request_type =>OE_GLOBALS.G_TAX_LINE
2413: ,p_delete => FND_API.G_TRUE
2414: ,x_return_status => l_return_status
2415: );
2416: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2424: IF l_debug_level > 0 THEN
2425: oe_debug_pub.add( 'CALLING TO PROCESS DELAYED REQUEST FOR COMMITMENT!' , 1 ) ;
2426: END IF;
2427:
2428: IF OE_GLOBALS.G_DEFER_PRICING='N' THEN
2429: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Reqtype
2430: (p_request_type =>OE_GLOBALS.G_CALCULATE_COMMITMENT
2431: ,p_delete => FND_API.G_TRUE
2432: ,x_return_status => l_return_status
2426: END IF;
2427:
2428: IF OE_GLOBALS.G_DEFER_PRICING='N' THEN
2429: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Reqtype
2430: (p_request_type =>OE_GLOBALS.G_CALCULATE_COMMITMENT
2431: ,p_delete => FND_API.G_TRUE
2432: ,x_return_status => l_return_status
2433: );
2434: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2438: END IF;
2439:
2440: --bug 3560198
2441: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Reqtype
2442: (p_request_type =>OE_GLOBALS.G_UPDATE_COMMITMENT_APPLIED
2443: ,p_delete => FND_API.G_TRUE
2444: ,x_return_status => l_return_status
2445: );
2446: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2450: END IF;
2451: --bug 3560198
2452: END IF;
2453:
2454: x_cascade_flag := OE_GLOBALS.G_CASCADING_REQUEST_LOGGED;
2455:
2456: --fix for bug 4102372
2457: -- x_line_val_rec.x_lock_control:=l_x_line_tbl(1).lock_control;
2458:
2571: oe_debug_pub.add( 'CALLING ORDER TOTAL' , 2 ) ;
2572: END IF;
2573:
2574: -- Call the charges API to get the Line level charges.
2575: IF OE_GLOBALS.G_DEFER_PRICING='N' THEN
2576: OE_CHARGE_PVT.Get_Charge_Amount(
2577: p_api_version_number => 1.1 ,
2578: p_init_msg_list => FND_API.G_FALSE ,
2579: p_header_id => l_x_line_rec.header_id ,
2614: x_line_val_rec.x_freight_terms := OE_Id_To_Value.Freight_Terms(x_line_val_rec.x_freight_terms_code);
2615: x_line_val_rec.x_inventory_item_id := l_x_line_rec.inventory_item_id;
2616: x_line_val_rec.x_ordered_item_id := l_x_line_rec.ordered_item_id;
2617:
2618: IF OE_GLOBALS.G_DEFER_PRICING='N' THEN
2619: -- lkxu, commitment enhancement.
2620: IF UPPER(Nvl(Fnd_Profile.Value('OE_COMMITMENT_SEQUENCING'),'N')) = 'Y' THEN
2621: x_line_val_rec.x_commitment_applied_amount := OE_COMMITMENT_PVT.get_commitment_applied_amount
2622: (p_header_id => l_x_line_rec.header_id ,
2641:
2642:
2643:
2644: -- Re-set the UI flag to FALSE
2645: OE_GLOBALS.G_UI_FLAG := FALSE;
2646:
2647: -- Set return status.
2648:
2649: x_return_status := FND_API.G_RET_STS_SUCCESS;
2663: EXCEPTION
2664:
2665: WHEN FND_API.G_EXC_ERROR THEN
2666:
2667: OE_GLOBALS.G_UI_FLAG := FALSE;
2668:
2669: ROLLBACK TO SAVEPOINT Line_Validate_And_Write;
2670: /* From the UI, if we raise an exception here, user can
2671: make proper change and try to commit again, ended up with multiple
2675: This change is only made here, assuming only UI has the
2676: ability to do something like that.
2677: */
2678:
2679: l_last_index := OE_GLOBALS.G_START_LINE_FLOWS_TBL.last;
2680: IF (l_x_line_tbl(1).operation = OE_GLOBALS.G_OPR_CREATE
2681: AND l_last_index IS NOT NULL -- 2068070
2682: AND OE_GLOBALS.G_START_LINE_FLOWS_TBL(l_last_index).line_id = p_line_id) THEN --Bug 3000619
2683: OE_GLOBALS.G_START_LINE_FLOWS_TBL.delete(l_last_index);
2676: ability to do something like that.
2677: */
2678:
2679: l_last_index := OE_GLOBALS.G_START_LINE_FLOWS_TBL.last;
2680: IF (l_x_line_tbl(1).operation = OE_GLOBALS.G_OPR_CREATE
2681: AND l_last_index IS NOT NULL -- 2068070
2682: AND OE_GLOBALS.G_START_LINE_FLOWS_TBL(l_last_index).line_id = p_line_id) THEN --Bug 3000619
2683: OE_GLOBALS.G_START_LINE_FLOWS_TBL.delete(l_last_index);
2684: END IF;
2678:
2679: l_last_index := OE_GLOBALS.G_START_LINE_FLOWS_TBL.last;
2680: IF (l_x_line_tbl(1).operation = OE_GLOBALS.G_OPR_CREATE
2681: AND l_last_index IS NOT NULL -- 2068070
2682: AND OE_GLOBALS.G_START_LINE_FLOWS_TBL(l_last_index).line_id = p_line_id) THEN --Bug 3000619
2683: OE_GLOBALS.G_START_LINE_FLOWS_TBL.delete(l_last_index);
2684: END IF;
2685: x_return_status := FND_API.G_RET_STS_ERROR;
2686:
2679: l_last_index := OE_GLOBALS.G_START_LINE_FLOWS_TBL.last;
2680: IF (l_x_line_tbl(1).operation = OE_GLOBALS.G_OPR_CREATE
2681: AND l_last_index IS NOT NULL -- 2068070
2682: AND OE_GLOBALS.G_START_LINE_FLOWS_TBL(l_last_index).line_id = p_line_id) THEN --Bug 3000619
2683: OE_GLOBALS.G_START_LINE_FLOWS_TBL.delete(l_last_index);
2684: END IF;
2685: x_return_status := FND_API.G_RET_STS_ERROR;
2686:
2687: -- Get message count and data
2692: );
2693:
2694: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2695:
2696: OE_GLOBALS.G_UI_FLAG := FALSE;
2697:
2698: ROLLBACK TO SAVEPOINT Line_Validate_And_Write;
2699: l_last_index := OE_GLOBALS.G_START_LINE_FLOWS_TBL.last;
2700: IF (l_x_line_tbl(1).operation = OE_GLOBALS.G_OPR_CREATE
2695:
2696: OE_GLOBALS.G_UI_FLAG := FALSE;
2697:
2698: ROLLBACK TO SAVEPOINT Line_Validate_And_Write;
2699: l_last_index := OE_GLOBALS.G_START_LINE_FLOWS_TBL.last;
2700: IF (l_x_line_tbl(1).operation = OE_GLOBALS.G_OPR_CREATE
2701: AND l_last_index IS NOT NULL -- 2068070
2702: AND OE_GLOBALS.G_START_LINE_FLOWS_TBL(l_last_index).line_id = p_line_id) THEN --Bug 3000619
2703: OE_GLOBALS.G_START_LINE_FLOWS_TBL.delete(l_last_index);
2696: OE_GLOBALS.G_UI_FLAG := FALSE;
2697:
2698: ROLLBACK TO SAVEPOINT Line_Validate_And_Write;
2699: l_last_index := OE_GLOBALS.G_START_LINE_FLOWS_TBL.last;
2700: IF (l_x_line_tbl(1).operation = OE_GLOBALS.G_OPR_CREATE
2701: AND l_last_index IS NOT NULL -- 2068070
2702: AND OE_GLOBALS.G_START_LINE_FLOWS_TBL(l_last_index).line_id = p_line_id) THEN --Bug 3000619
2703: OE_GLOBALS.G_START_LINE_FLOWS_TBL.delete(l_last_index);
2704: END IF;
2698: ROLLBACK TO SAVEPOINT Line_Validate_And_Write;
2699: l_last_index := OE_GLOBALS.G_START_LINE_FLOWS_TBL.last;
2700: IF (l_x_line_tbl(1).operation = OE_GLOBALS.G_OPR_CREATE
2701: AND l_last_index IS NOT NULL -- 2068070
2702: AND OE_GLOBALS.G_START_LINE_FLOWS_TBL(l_last_index).line_id = p_line_id) THEN --Bug 3000619
2703: OE_GLOBALS.G_START_LINE_FLOWS_TBL.delete(l_last_index);
2704: END IF;
2705: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2706:
2699: l_last_index := OE_GLOBALS.G_START_LINE_FLOWS_TBL.last;
2700: IF (l_x_line_tbl(1).operation = OE_GLOBALS.G_OPR_CREATE
2701: AND l_last_index IS NOT NULL -- 2068070
2702: AND OE_GLOBALS.G_START_LINE_FLOWS_TBL(l_last_index).line_id = p_line_id) THEN --Bug 3000619
2703: OE_GLOBALS.G_START_LINE_FLOWS_TBL.delete(l_last_index);
2704: END IF;
2705: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2706:
2707: -- Get message count and data
2712: );
2713:
2714: WHEN OTHERS THEN
2715:
2716: OE_GLOBALS.G_UI_FLAG := FALSE;
2717:
2718: ROLLBACK TO SAVEPOINT Line_Validate_And_Write;
2719: l_last_index := OE_GLOBALS.G_START_LINE_FLOWS_TBL.last;
2720: IF (l_x_line_tbl(1).operation = OE_GLOBALS.G_OPR_CREATE
2715:
2716: OE_GLOBALS.G_UI_FLAG := FALSE;
2717:
2718: ROLLBACK TO SAVEPOINT Line_Validate_And_Write;
2719: l_last_index := OE_GLOBALS.G_START_LINE_FLOWS_TBL.last;
2720: IF (l_x_line_tbl(1).operation = OE_GLOBALS.G_OPR_CREATE
2721: AND l_last_index IS NOT NULL -- 2068070
2722: AND OE_GLOBALS.G_START_LINE_FLOWS_TBL(l_last_index).line_id = p_line_id) THEN --Bug 3000619
2723: OE_GLOBALS.G_START_LINE_FLOWS_TBL.delete(l_last_index);
2716: OE_GLOBALS.G_UI_FLAG := FALSE;
2717:
2718: ROLLBACK TO SAVEPOINT Line_Validate_And_Write;
2719: l_last_index := OE_GLOBALS.G_START_LINE_FLOWS_TBL.last;
2720: IF (l_x_line_tbl(1).operation = OE_GLOBALS.G_OPR_CREATE
2721: AND l_last_index IS NOT NULL -- 2068070
2722: AND OE_GLOBALS.G_START_LINE_FLOWS_TBL(l_last_index).line_id = p_line_id) THEN --Bug 3000619
2723: OE_GLOBALS.G_START_LINE_FLOWS_TBL.delete(l_last_index);
2724: END IF;
2718: ROLLBACK TO SAVEPOINT Line_Validate_And_Write;
2719: l_last_index := OE_GLOBALS.G_START_LINE_FLOWS_TBL.last;
2720: IF (l_x_line_tbl(1).operation = OE_GLOBALS.G_OPR_CREATE
2721: AND l_last_index IS NOT NULL -- 2068070
2722: AND OE_GLOBALS.G_START_LINE_FLOWS_TBL(l_last_index).line_id = p_line_id) THEN --Bug 3000619
2723: OE_GLOBALS.G_START_LINE_FLOWS_TBL.delete(l_last_index);
2724: END IF;
2725: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2726:
2719: l_last_index := OE_GLOBALS.G_START_LINE_FLOWS_TBL.last;
2720: IF (l_x_line_tbl(1).operation = OE_GLOBALS.G_OPR_CREATE
2721: AND l_last_index IS NOT NULL -- 2068070
2722: AND OE_GLOBALS.G_START_LINE_FLOWS_TBL(l_last_index).line_id = p_line_id) THEN --Bug 3000619
2723: OE_GLOBALS.G_START_LINE_FLOWS_TBL.delete(l_last_index);
2724: END IF;
2725: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2726:
2727: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_UNEXP_ERROR)
2755: IS
2756: l_x_line_rec OE_Order_PUB.Line_Rec_Type;
2757: l_x_line_tbl OE_Order_PUB.Line_Tbl_Type;
2758: l_x_old_line_tbl OE_Order_PUB.Line_Tbl_Type;
2759: l_control_rec OE_GLOBALS.Control_Rec_Type;
2760: l_return_status VARCHAR2(1);
2761: --
2762: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2763: --
2767: oe_debug_pub.add( 'ENTERING OE_OE_FORM_LINE.DELETE_ROW' , 1 ) ;
2768: END IF;
2769:
2770: -- Set UI flag to TRUE
2771: OE_GLOBALS.G_UI_FLAG := TRUE;
2772:
2773: -- Set control flags.
2774:
2775: l_control_rec.controlled_operation := TRUE;
2795: );
2796:
2797: -- Set Operation.
2798:
2799: l_x_line_rec.operation := OE_GLOBALS.G_OPR_DELETE;
2800:
2801: -- Populate line table
2802:
2803: l_x_line_tbl(1) := l_x_line_rec;
2823: RAISE FND_API.G_EXC_ERROR;
2824: END IF;
2825:
2826: -- Re-set the UI flag to FALSE
2827: OE_GLOBALS.G_UI_FLAG := FALSE;
2828:
2829: -- Clear line record cache
2830:
2831: Clear_line;
2848: EXCEPTION
2849:
2850: WHEN FND_API.G_EXC_ERROR THEN
2851: ROLLBACK TO SAVEPOINT Line_Delete;
2852: OE_GLOBALS.G_UI_FLAG := FALSE;
2853:
2854: x_return_status := FND_API.G_RET_STS_ERROR;
2855:
2856: -- Get message count and data
2862:
2863: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2864: ROLLBACK TO SAVEPOINT Line_Delete;
2865:
2866: OE_GLOBALS.G_UI_FLAG := FALSE;
2867:
2868: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2869:
2870: -- Get message count and data
2876:
2877: WHEN OTHERS THEN
2878: ROLLBACK TO SAVEPOINT Line_Delete;
2879:
2880: OE_GLOBALS.G_UI_FLAG := FALSE;
2881:
2882: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2883:
2884: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_UNEXP_ERROR)
2906: , x_msg_count OUT NOCOPY NUMBER
2907: , x_msg_data OUT NOCOPY VARCHAR2
2908: )
2909: IS
2910: l_control_rec OE_GLOBALS.Control_Rec_Type;
2911: l_return_status VARCHAR2(1);
2912: l_x_header_rec OE_Order_PUB.Header_Rec_Type;
2913: l_x_Header_Adj_rec OE_Order_PUB.Header_Adj_Rec_Type;
2914: l_x_Header_Adj_tbl OE_Order_PUB.Header_Adj_Tbl_Type;
2941: oe_debug_pub.add( 'ENTERING OE_OE_FORM_LINE.PROCESS_ENTITY' , 1 ) ;
2942: END IF;
2943:
2944: -- Set UI flag to TRUE
2945: OE_GLOBALS.G_UI_FLAG := TRUE;
2946:
2947: -- Set control flags.
2948:
2949: l_control_rec.controlled_operation := TRUE;
2947: -- Set control flags.
2948:
2949: l_control_rec.controlled_operation := TRUE;
2950: l_control_rec.process := TRUE;
2951: l_control_rec.process_entity := OE_GLOBALS.G_ENTITY_LINE;
2952:
2953: l_control_rec.check_security := FALSE;
2954: l_control_rec.clear_dependents := FALSE;
2955: l_control_rec.default_attributes := FALSE;
2999: RAISE FND_API.G_EXC_ERROR;
3000: END IF;
3001:
3002: -- Re-set the UI flag to FALSE
3003: OE_GLOBALS.G_UI_FLAG := FALSE;
3004:
3005: -- Set return status.
3006:
3007: x_return_status := FND_API.G_RET_STS_SUCCESS;
3020: EXCEPTION
3021:
3022: WHEN FND_API.G_EXC_ERROR THEN
3023:
3024: OE_GLOBALS.G_UI_FLAG := FALSE;
3025:
3026: x_return_status := FND_API.G_RET_STS_ERROR;
3027:
3028: -- Get message count and data
3033: );
3034:
3035: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3036:
3037: OE_GLOBALS.G_UI_FLAG := FALSE;
3038:
3039: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3040:
3041: -- Get message count and data
3046: );
3047:
3048: WHEN OTHERS THEN
3049:
3050: OE_GLOBALS.G_UI_FLAG := FALSE;
3051:
3052: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3053:
3054: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_UNEXP_ERROR)
3094: -- Load line record
3095:
3096: l_x_line_rec.lock_control := p_lock_control;
3097: l_x_line_rec.line_id := p_line_id;
3098: l_x_line_rec.operation := OE_GLOBALS.G_OPR_LOCK; -- not req.
3099:
3100: --Bug 3025978
3101: OE_GLOBALS.G_UI_FLAG := TRUE;
3102:
3097: l_x_line_rec.line_id := p_line_id;
3098: l_x_line_rec.operation := OE_GLOBALS.G_OPR_LOCK; -- not req.
3099:
3100: --Bug 3025978
3101: OE_GLOBALS.G_UI_FLAG := TRUE;
3102:
3103: -- Call OE_Line_Util.Lock_Row instead of Oe_Order_Pvt.Lock_order
3104: OE_MSG_PUB.initialize;
3105: OE_Line_Util.Lock_Row
3145:
3146: EXCEPTION
3147: WHEN FND_API.G_EXC_ERROR THEN
3148:
3149: OE_GLOBALS.G_UI_FLAG := FALSE;
3150:
3151: x_return_status := FND_API.G_RET_STS_ERROR;
3152:
3153: -- Get message count and data
3158: );
3159:
3160: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3161:
3162: OE_GLOBALS.G_UI_FLAG := FALSE;
3163:
3164: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3165:
3166: -- Get message count and data
3501: CLOSE line_info;
3502:
3503: /* 1931163: Check Cascaded Hold based on ATO Line(s) */
3504: IF l_ato_line_id IS NOT NULL AND
3505: NOT (l_ato_line_id = p_line_rec.line_id AND l_item_type_code = OE_GLOBALS.G_ITEM_OPTION) THEN
3506:
3507: FOR ato_hold_rec in ato_lines_on_hold(l_ato_line_id, l_top_model_line_id)
3508: LOOP
3509:
3581: --5737464
3582:
3583:
3584: /* 1931163: Check Cascaded Hold for Included Item */
3585: IF l_item_type_code = OE_GLOBALS.G_ITEM_INCLUDED AND x_line_val_rec.cascaded_hold_exists_flag = 'N' THEN
3586:
3587: FOR link_to_hold_rec in link_to_line_hold(l_link_to_line_id)
3588: LOOP
3589:
4538: END IF;
4539: -- for 5331980 start*
4540: ELSIF p_calling_block = 'LINE' THEN
4541:
4542: IF OE_GLOBALS.G_CALCULATE_LINE_TOTAL THEN
4543:
4544: OE_OE_TOTALS_SUMMARY.Order_Totals
4545: (
4546: p_header_id=>p_line_rec.header_id ,
4549: p_charges =>x_line_val_rec.charges,
4550: p_tax =>x_line_val_rec.tax
4551: );
4552:
4553: OE_GLOBALS.G_CALCULATE_LINE_TOTAL := FALSE;
4554:
4555: g_subtotal := x_line_val_rec.subtotal;
4556: g_discount := x_line_val_rec.discount;
4557: g_charges := x_line_val_rec.charges;
5493: l_x_Header_Adj_Assoc_tbl OE_Order_PUB.Header_Adj_Assoc_Tbl_Type;
5494: l_x_Line_price_Att_tbl OE_Order_PUB.Line_Price_Att_Tbl_Type;
5495: l_x_Line_Adj_Att_tbl OE_Order_PUB.Line_Adj_Att_Tbl_Type;
5496: l_x_Line_Adj_Assoc_tbl OE_Order_PUB.Line_Adj_Assoc_Tbl_Type;
5497: l_control_rec OE_GLOBALS.Control_Rec_Type;
5498: l_return_status VARCHAR2(1);
5499: l_line_id NUMBER;
5500: l_process_add_attributes Boolean :=FALSE;
5501: j NUMBER; -- for bug 1988144
5524:
5525: l_control_rec.clear_api_cache := FALSE;
5526: l_control_rec.clear_api_requests := FALSE; */
5527:
5528: -- OE_GLOBALS.G_UI_FLAG := TRUE; -- FP bug#6968460 (for bug#5727279): reverting the fix done in bug#4751632
5529:
5530: IF x_line_tbl_type.count>0 THEN
5531: for i in x_line_tbl_type.first .. x_line_tbl_type.last loop
5532: IF i =1 THEN
5563: l_x_line_tbl(i).split_by:='SYSTEM';
5564: ELSE
5565: l_x_line_tbl(i).split_by:='USER';
5566: END IF;
5567: l_x_line_tbl(i).operation:= OE_GLOBALS.G_OPR_UPDATE;
5568: IF l_debug_level > 0 THEN
5569: OE_DEBUG_PUB.add('Audit Trail Reason Code being passed as '||p_change_reason_code,1);
5570: END IF;
5571: l_x_line_tbl(i).change_reason := p_change_reason_code;
5576: ELSE
5577: IF l_line_id is not null then
5578: l_x_line_tbl(i).split_from_line_id:=l_line_id;
5579: END IF;
5580: l_x_line_tbl(i).operation:= OE_GLOBALS.G_OPR_CREATE;
5581: --SAO
5582: IF p_split_by = 'SCHEDULER' THEN
5583: l_x_line_tbl(i).split_by:='SYSTEM';
5584: ELSE
5655: END IF;
5656:
5657: -- This is to fix a p1 bug on tst115. The second call should not
5658: -- come as split
5659: l_line_tbl(i).operation:= OE_GLOBALS.G_OPR_UPDATE;
5660: IF l_debug_level > 0 THEN
5661: OE_DEBUG_PUB.add('Reason code being passed : '||l_line_tbl(i).change_reason,1);
5662: END IF;
5663: l_line_tbl(i).change_reason := p_change_reason_code;
5743: l_process_add_attributes:=TRUE;
5744: END IF;
5745: END IF;
5746:
5747: l_line_tbl(l_rec_count).operation := OE_GLOBALS.G_OPR_UPDATE;
5748: IF l_debug_level > 0 THEN
5749: OE_DEBUG_PUB.add('Reason code being passed : '||l_line_tbl(l_rec_count).change_reason,1);
5750: END IF;
5751: l_line_tbl(l_rec_count).change_reason := p_change_reason_code;
5898: -- Clear versioning globals if request was not logged. If request was
5899: -- logged, that indicates that a change on another record had logged the
5900: -- request and versioning should still fire.
5901:
5902: IF OE_GLOBALS.G_ROLL_VERSION <> 'N' THEN
5903:
5904: l_header_id := g_line_rec.header_id;
5905:
5906: if l_debug_level > 0 then
5908: oe_debug_pub.add('Header ID: '||l_header_id);
5909: end if;
5910:
5911: IF NOT OE_Delayed_Requests_Pvt.Check_For_Request
5912: (p_entity_code => OE_GLOBALS.G_ENTITY_ALL
5913: ,p_entity_id => l_header_id
5914: ,p_request_type => OE_GLOBALS.G_VERSION_AUDIT
5915: )
5916: THEN
5910:
5911: IF NOT OE_Delayed_Requests_Pvt.Check_For_Request
5912: (p_entity_code => OE_GLOBALS.G_ENTITY_ALL
5913: ,p_entity_id => l_header_id
5914: ,p_request_type => OE_GLOBALS.G_VERSION_AUDIT
5915: )
5916: THEN
5917: oe_debug_pub.add('Request does not exist, reset versioning globals');
5918: IF (NOT OE_Versioning_Util.Reset_Globals) THEN
5923:
5924: END IF;
5925:
5926: OE_DELAYED_REQUESTS_PVT.Delete_Reqs_for_Deleted_Entity(
5927: p_entity_code => OE_GLOBALS.G_ENTITY_LINE
5928: ,p_entity_id => p_line_id
5929: -- Bug 3800577
5930: -- Also delete requests logged by this entity
5931: ,p_delete_against => FALSE
5934: /* -- Added for bug 3445778 --Commenting the code for 3575018
5935: oe_debug_pub.add('Executing code for updating global picture, line_id: ' || p_line_id, 1);
5936:
5937: -- Set the operation on the record so that globals are updated
5938: l_new_line_rec.operation := OE_GLOBALS.G_OPR_DELETE;
5939: l_new_line_rec.line_id := p_line_id;
5940: l_old_line_rec.line_id := p_line_id;
5941:
5942: OE_ORDER_UTIL.Update_Global_Picture(p_Upd_New_Rec_If_Exists => True,
6244: is logged against LINE entity now
6245:
6246: oe_debug_pub.add('delete the request logged for this line too');
6247: oe_delayed_requests_pvt.delete_request(
6248: p_entity_code =>OE_GLOBALS.G_ENTITY_LINE_ADJ,
6249: p_entity_id => x_line_id,
6250: p_request_type => OE_GLOBALS.G_PRICE_ADJ,
6251: x_return_status => l_return_status);
6252: */
6246: oe_debug_pub.add('delete the request logged for this line too');
6247: oe_delayed_requests_pvt.delete_request(
6248: p_entity_code =>OE_GLOBALS.G_ENTITY_LINE_ADJ,
6249: p_entity_id => x_line_id,
6250: p_request_type => OE_GLOBALS.G_PRICE_ADJ,
6251: x_return_status => l_return_status);
6252: */
6253:
6254: END Delete_Adjustments;
6297:
6298: -- for 5331980 start**
6299: PROCEDURE Reset_calculate_line_total IS
6300: BEGIN
6301: OE_GLOBALS.G_CALCULATE_LINE_TOTAL := TRUE;
6302: END Reset_Calculate_line_Total;
6303: --for 5331980 end**
6304:
6305: END oe_oe_form_line;