[Home] [Help]
112: l_Header_Scredit_rec OE_Order_PUB.Header_Scredit_Rec_Type;
113: l_old_Header_Scredit_rec OE_Order_PUB.Header_Scredit_Rec_Type;
114: l_Header_Scredit_tbl OE_Order_PUB.Header_Scredit_Tbl_Type;
115: l_old_Header_Scredit_tbl OE_Order_PUB.Header_Scredit_Tbl_Type;
116: l_control_rec OE_GLOBALS.Control_Rec_Type;
117: l_return_status VARCHAR2(30);
118: x_msg_count NUMBER;
119: x_msg_data VARCHAR2(2000);
120: Begin
148: ,p_request_rec IN OE_ORDER_PUB.request_rec_type)
149: IS
150: l_Line_Scredit_tbl OE_Order_PUB.Line_Scredit_Tbl_Type;
151: l_old_Line_Scredit_tbl OE_Order_PUB.Line_Scredit_Tbl_Type;
152: l_control_rec OE_GLOBALS.Control_Rec_Type;
153: l_line_id NUMBER;
154: l_line_id1 NUMBER;
155: l_line_set_id NUMBER;
156: l_item_type_code VARCHAR2(30);
245: -- For create check the existance of the record based on the
246: -- new data and for other operations check based on the old data.
247:
248:
249: IF l_operation = OE_GLOBALS.G_OPR_CREATE THEN
250:
251: l_sales_credit_type_id := l_new_sales_credit_type_id;
252: l_salesrep_id := l_new_salesrep_id;
253: l_percent := l_new_percent;
310:
311: END;
312:
313: IF l_temp = 0 THEN -- Only when record not exist for child.
314: IF l_operation = OE_GLOBALS.G_OPR_CREATE THEN
315:
316: IF l_new_quota_flag = 'Y' THEN
317:
318: oe_debug_pub.Add(' In create and quota');
344: l_Line_Scredit_tbl(l_count).SalesRep_Id := l_new_salesRep_id;
345: l_Line_Scredit_tbl(l_count).Sales_credit_type_id :=
346: l_new_sales_credit_type_id;
347: l_Line_Scredit_tbl(l_count).PERCENT := l_new_percent;
348: l_Line_Scredit_tbl(l_count).Operation := OE_GLOBALS.G_OPR_CREATE;
349:
350: END IF; -- Check the percent
351:
352: END IF; -- Create.
354: AND l_percent = l_q_percent THEN
355:
356: --Sales credir record exists for the child service line.
357:
358: IF l_operation = OE_GLOBALS.G_OPR_UPDATE THEN
359:
360: oe_msg_pub.add('In Update');
361:
362: IF l_new_quota_flag = 'Y' THEN
404: l_Line_Scredit_tbl(l_count).PERCENT := l_new_percent;
405: /* Start Audit Trail */
406: l_Line_Scredit_tbl(l_count).change_reason := 'SYSTEM';
407: /* End Audit Trail */
408: l_Line_Scredit_tbl(l_count).Operation := OE_GLOBALS.G_OPR_UPDATE;
409:
410: END IF; -- Percent.
411: ELSIF l_operation = OE_GLOBALS.G_OPR_DELETE
412: AND l_percent = l_q_percent THEN
407: /* End Audit Trail */
408: l_Line_Scredit_tbl(l_count).Operation := OE_GLOBALS.G_OPR_UPDATE;
409:
410: END IF; -- Percent.
411: ELSIF l_operation = OE_GLOBALS.G_OPR_DELETE
412: AND l_percent = l_q_percent THEN
413:
414: l_count := l_count + 1;
415: l_Line_Scredit_tbl(l_count) := OE_Order_PUB.G_MISS_LINE_SCREDIT_REC;
415: l_Line_Scredit_tbl(l_count) := OE_Order_PUB.G_MISS_LINE_SCREDIT_REC;
416: l_Line_Scredit_tbl(l_count).sales_credit_id := l_sales_credit_id;
417: l_Line_Scredit_tbl(l_count).Header_id := I.Header_id;
418: l_Line_Scredit_tbl(l_count).Line_id := I.Line_id;
419: l_Line_Scredit_tbl(l_count).Operation := OE_GLOBALS.G_OPR_DELETE;
420: END IF; -- operation
421: END IF; -- temp
422: END LOOP;
423: END IF; -- Model.
427: IF l_count > 0 THEN -- Have some data that need to get cascaded.
428:
429: -- Call OE_Order_PVT.Process_order to insert sales credits.
430: -- Set recursion mode.
431: -- OE_GLOBALS.G_RECURSION_MODE := 'Y';
432:
433: OE_ORDER_PVT.Line_Scredits
434: (p_validation_level => FND_API.G_VALID_LEVEL_FULL
435: ,p_control_rec => l_control_rec
437: ,p_x_old_Line_Scredit_tbl => l_old_Line_Scredit_tbl
438: ,x_return_status => l_return_status);
439:
440: -- Reset recursion mode.
441: -- OE_GLOBALS.G_RECURSION_MODE := 'N';
442:
443: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
444: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
445: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
537:
538:
539: -- Check if same discount has already been applied
540: -- before on the header or any line
541: IF l_entity_code = OE_GLOBALS.G_ENTITY_HEADER_ADJ THEN
542:
543: SELECT 'DUPLICATE_DISCOUNT'
544: INTO l_duplicate
545: FROM oe_price_adjustments
566:
567:
568: -- Check if same discount has already been applied
569: -- before on the line
570: ELSIF l_entity_code = OE_GLOBALS.G_ENTITY_LINE_ADJ THEN
571:
572: SELECT 'DUPLICATE_DISCOUNT'
573: INTO l_duplicate
574: FROM oe_price_adjustments
669:
670: oe_debug_pub.ADD('OEXSRLNB: Check Fixed Price. '||
671: ' entity_code = ' || l_entity_code, 2);
672:
673: IF l_entity_code = OE_GLOBALS.G_ENTITY_HEADER_ADJ THEN
674: FOR l_hdr_adjustment IN hdr_line_adjustments LOOP
675:
676: l_line_id := l_hdr_adjustment.line_id;
677: l_number := l_number + 1;
710: END IF;
711: END LOOP;
712: END IF;
713:
714: IF l_entity_code = OE_GLOBALS.G_ENTITY_LINE_ADJ THEN
715:
716: SELECT count(adj.price_adjustment_id)
717: INTO l_count
718: FROM oe_price_adjustments adj
812: (p_request_rec IN oe_order_pub.request_rec_type,
813: x_return_status OUT NOCOPY VARCHAR2)
814:
815: IS
816: l_control_rec OE_GLOBALS.Control_Rec_Type;
817: l_entity_code VARCHAR2(30);
818: l_entity_id NUMBER := NULL;
819: l_header_id NUMBER := NULL;
820: l_line_id NUMBER := NULL;
874:
875:
876: -- Check if maximum percentage has not been execeded on the
877: -- header price adjustment
878: IF l_entity_code = OE_GLOBALS.G_ENTITY_HEADER_ADJ
879: THEN
880:
881: l_header_id := p_request_rec.entity_id;
882:
912:
913:
914: -- Check if maximum percentage has not been execeded on the
915: -- line price adjustment
916: ELSIF l_entity_code = OE_GLOBALS.G_ENTITY_LINE_ADJ THEN
917:
918: l_line_id := p_request_rec.entity_id;
919: l_header_id := To_number(p_request_rec.param1);
920:
1033: ,p_header_id IN NUMBER
1034: )
1035: IS
1036: l_return_status VARCHAR2(1);
1037: l_control_rec OE_GLOBALS.Control_Rec_Type;
1038: l_line_tbl OE_Order_PUB.Line_Tbl_Type;
1039: l_old_line_tbl OE_Order_PUB.Line_Tbl_Type;
1040: l_line_rec OE_Order_PUB.Line_Rec_Type;
1041: l_api_name CONSTANT VARCHAR2(30) := 'Insert_Order';
1080: OE_Order_Cache.Load_Top_Model_Line (p_top_model_line_id);
1081:
1082: l_line_rec.top_model_line_id := p_top_model_line_id;
1083: l_line_rec.header_id := p_header_id;
1084: l_line_rec.item_type_code := OE_GLOBALS.G_ITEM_CONFIG;
1085: l_line_rec.line_number := l_config_rec.line_number;
1086: l_line_rec.shipment_number := l_config_rec.shipment_number;
1087: l_line_rec.option_number := NULL;
1088: -- l_line_rec.component_number := NULL;
1085: l_line_rec.line_number := l_config_rec.line_number;
1086: l_line_rec.shipment_number := l_config_rec.shipment_number;
1087: l_line_rec.option_number := NULL;
1088: -- l_line_rec.component_number := NULL;
1089: l_line_rec.operation := OE_GLOBALS.G_OPR_CREATE;
1090:
1091: l_line_tbl(1) := l_line_rec;
1092:
1093: -- Set recursion mode.
1090:
1091: l_line_tbl(1) := l_line_rec;
1092:
1093: -- Set recursion mode.
1094: -- OE_GLOBALS.G_RECURSION_MODE := 'Y';
1095:
1096: OE_ORDER_PVT.Lines
1097: (p_validation_level => FND_API.G_VALID_LEVEL_FULL
1098: ,p_control_rec => l_control_rec
1100: ,p_x_old_line_tbl => l_old_line_tbl
1101: ,x_return_status => l_return_status);
1102:
1103: -- Reset recursion mode.
1104: -- OE_GLOBALS.G_RECURSION_MODE := 'N';
1105:
1106: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1107: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1108: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1241: I NUMBER := 1;
1242: I1 NUMBER := 1;
1243: I2 NUMBER := 1;
1244: l_api_name CONSTANT VARCHAR(30) := 'INSERT_RMA_SCREDIT_ADJUSTMENT';
1245: l_control_rec OE_GLOBALS.Control_Rec_Type;
1246: l_x_Line_Scredit_tbl OE_Order_PUB.Line_Scredit_Tbl_Type;
1247: l_x_old_Line_Scredit_tbl OE_Order_PUB.Line_Scredit_Tbl_Type;
1248: l_return_status VARCHAR2(30);
1249: l_count NUMBER := 0;
1297:
1298: FOR I IN l_Line_Scredit_tbl.FIRST .. l_Line_Scredit_tbl.LAST LOOP
1299:
1300: l_x_Line_Scredit_tbl(I):= l_line_Scredit_tbl(I);
1301: l_x_Line_Scredit_tbl(I).operation := OE_GLOBALS.G_OPR_DELETE;
1302:
1303: END LOOP;
1304:
1305: -- Clear Table
1339:
1340: FOR I IN l_Line_Scredit_tbl.FIRST .. l_Line_Scredit_tbl.LAST LOOP
1341:
1342: l_x_Line_Scredit_tbl(l_count + I):= l_line_Scredit_tbl(I);
1343: l_x_Line_Scredit_tbl(l_count + I).operation := OE_GLOBALS.G_OPR_CREATE;
1344: l_x_Line_Scredit_tbl(l_count + I).header_id := l_header_id;
1345: l_x_Line_Scredit_tbl(l_count + I).line_id := p_line_id;
1346: l_x_Line_Scredit_tbl(l_count + I).sales_credit_id := FND_API.G_MISS_NUM;
1347:
1351:
1352: IF l_x_Line_Scredit_tbl.COUNT > 0 THEN
1353: -- Call OE_Order_PVT.Process_order to insert sales credits.
1354: -- Set recursion mode.
1355: -- OE_GLOBALS.G_RECURSION_MODE := 'Y';
1356:
1357: /* Adding the if condition for bug 6778016/
1358: /* The control record structure passsed while calling process_order oe_copy_util.copy_order
1359: has process_partial to true and clear_dependents to false. However, in between as we were
1356:
1357: /* Adding the if condition for bug 6778016/
1358: /* The control record structure passsed while calling process_order oe_copy_util.copy_order
1359: has process_partial to true and clear_dependents to false. However, in between as we were
1360: initializing the control record in to oe_globals.Control_Rec_Type, the values are getting
1361: changed.This is resulting in some issues. Hence we are resetting these two parametes to the
1362: initial values passed.
1363: */
1364: if l_src_doc_type_id=2 then
1377: ,x_return_status => l_return_status);
1378:
1379: OE_DEBUG_PUB.ADD('After Calling OE_ORDER_PVT.Line_Scredits',1);
1380: -- Reset recursion mode.
1381: -- OE_GLOBALS.G_RECURSION_MODE := 'N';
1382:
1383: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1384: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1385: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1451: l_count NUMBER := 0;
1452: l_counter NUMBER := 0;
1453: l_msg_data VARCHAR2(2000);
1454: l_tax_value NUMBER := 0;
1455: l_control_rec OE_GLOBALS.Control_Rec_Type;
1456: l_tax_code VARCHAR2(50);
1457: l_line_rec OE_Order_PUB.Line_Rec_Type;
1458: l_old_line_rec OE_Order_PUB.Line_Rec_Type;
1459: l_line_val_rec OE_Order_PUB.Line_Val_Rec_Type;
1561: THEN
1562: l_counter := l_counter + 1;
1563: l_line_adj_tbl(l_counter) := l_l_line_adj_tbl(I);
1564: -- Set Operation to delete
1565: l_Line_Adj_tbl(l_counter).operation := OE_GLOBALS.G_OPR_DELETE;
1566: END IF;
1567: END LOOP;
1568: END IF;
1569:
1636: l_Line_Adj_tbl(l_counter+I).inc_in_sales_performance := NULL;
1637: l_Line_Adj_tbl(l_counter+I).split_action_code := NULL;
1638:
1639: -- Set Operation to Create
1640: l_Line_Adj_tbl(l_counter+I).operation := OE_GLOBALS.G_OPR_CREATE;
1641:
1642: END IF;
1643:
1644: END LOOP;
1644: END LOOP;
1645: END IF;
1646:
1647: -- Load IN parameters for Line record
1648: IF NOT OE_GLOBALS.Equal(l_line_rec.tax_value, l_old_line_rec.tax_value)
1649: THEN
1650: -- Start Audit Trail --
1651: l_Line_rec.change_reason := 'SYSTEM';
1652: -- End Audit Trail --
1649: THEN
1650: -- Start Audit Trail --
1651: l_Line_rec.change_reason := 'SYSTEM';
1652: -- End Audit Trail --
1653: l_Line_rec.operation := OE_GLOBALS.G_OPR_UPDATE;
1654: ELSE
1655: l_Line_rec.operation := OE_GLOBALS.G_OPR_NONE;
1656: END IF;
1657:
1651: l_Line_rec.change_reason := 'SYSTEM';
1652: -- End Audit Trail --
1653: l_Line_rec.operation := OE_GLOBALS.G_OPR_UPDATE;
1654: ELSE
1655: l_Line_rec.operation := OE_GLOBALS.G_OPR_NONE;
1656: END IF;
1657:
1658: -- Check to see if there are any records needed to be modified.
1659:
1656: END IF;
1657:
1658: -- Check to see if there are any records needed to be modified.
1659:
1660: IF NOT (OE_GLOBALS.Equal(l_line_rec.operation, OE_GLOBALS.G_OPR_NONE) AND
1661: l_line_adj_tbl.COUNT = 0)
1662: THEN
1663:
1664: -- Populate Line table
1670:
1671: oe_debug_pub.add('Before calling Process Order API',2);
1672:
1673: -- Set recursion mode.
1674: -- OE_GLOBALS.G_RECURSION_MODE := 'Y';
1675:
1676: OE_Order_PVT.Process_order
1677: ( p_api_version_number => 1.0
1678: , p_init_msg_list => FND_API.G_FALSE
1703: , p_x_action_request_tbl => l_x_action_request_tbl
1704: );
1705:
1706: -- Reset recursion mode.
1707: -- OE_GLOBALS.G_RECURSION_MODE := 'N';
1708:
1709: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1710: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1711: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1898: BEGIN
1899:
1900: OE_Debug_PUB.Add('Entering OE_Delayed_Requests_Util.Apply_Hold',1);
1901:
1902: IF l_request_rec.entity_code = OE_Globals.G_ENTITY_HEADER THEN
1903: -- Indicates Header Level action
1904: --l_header_id := l_request_rec.entity_id;
1905: l_hold_source_rec.header_id := l_request_rec.entity_id;
1906: OE_Debug_PUB.Add('Header ID: '|| l_hold_source_rec.header_id,1);
1904: --l_header_id := l_request_rec.entity_id;
1905: l_hold_source_rec.header_id := l_request_rec.entity_id;
1906: OE_Debug_PUB.Add('Header ID: '|| l_hold_source_rec.header_id,1);
1907:
1908: ELSIF l_request_rec.entity_code = OE_Globals.G_ENTITY_LINE THEN
1909:
1910: OE_debug_pub.add('Line ID: '|| l_request_rec.entity_id,1);
1911: BEGIN
1912: SELECT header_id
1932:
1933: -- Since an Order based source and Header is created at the same time, caller
1934: -- is unable to populate param3 with header_id. We can user entity_id
1935:
1936: IF ((l_request_rec.entity_code = OE_GLOBALS.G_ENTITY_HEADER) AND
1937: (l_hold_source_rec.hold_entity_code = 'O')) THEN
1938: l_hold_source_rec.hold_entity_id := l_request_rec.entity_id;
1939: ELSIF ((l_request_rec.entity_code = OE_GLOBALS.G_ENTITY_LINE) AND
1940: (l_hold_source_rec.hold_entity_code = 'O')) THEN
1935:
1936: IF ((l_request_rec.entity_code = OE_GLOBALS.G_ENTITY_HEADER) AND
1937: (l_hold_source_rec.hold_entity_code = 'O')) THEN
1938: l_hold_source_rec.hold_entity_id := l_request_rec.entity_id;
1939: ELSIF ((l_request_rec.entity_code = OE_GLOBALS.G_ENTITY_LINE) AND
1940: (l_hold_source_rec.hold_entity_code = 'O')) THEN
1941: l_hold_source_rec.hold_entity_id := l_header_id;
1942: ELSE
1943: l_hold_source_rec.hold_entity_id := l_request_rec.param3;
2059: BEGIN
2060:
2061: OE_Debug_PUB.Add('Entering OE_Delayed_Requests_Util.Release_Hold',1);
2062:
2063: IF l_request_rec.entity_code = OE_Globals.G_ENTITY_HEADER THEN
2064: -- Indicates Header Level action
2065:
2066: l_header_id := l_request_rec.entity_id;
2067: l_hold_source_rec.header_id := l_header_id; --Bug 5042664
2066: l_header_id := l_request_rec.entity_id;
2067: l_hold_source_rec.header_id := l_header_id; --Bug 5042664
2068: OE_Debug_PUB.Add('Header ID: '|| l_header_id,1);
2069:
2070: ELSIF l_request_rec.entity_code = OE_Globals.G_ENTITY_LINE THEN
2071:
2072: --l_line_id := l_request_rec.entity_id;
2073: OE_debug_pub.add('Line ID: '|| l_request_rec.entity_id,1);
2074: BEGIN
2097:
2098: -- Order Import is unable to send Hold Entity Id/Header Id as Param3
2099: -- Need to modify the code to use header id for hold entity code = 'O'
2100:
2101: IF ((l_request_rec.entity_code = OE_GLOBALS.G_ENTITY_HEADER) AND
2102: (l_entity_code = 'O')) THEN
2103: l_entity_id := l_request_rec.entity_id;
2104: ELSIF ((l_request_rec.entity_code = OE_GLOBALS.G_ENTITY_LINE) AND
2105: (l_entity_code = 'O')) THEN
2100:
2101: IF ((l_request_rec.entity_code = OE_GLOBALS.G_ENTITY_HEADER) AND
2102: (l_entity_code = 'O')) THEN
2103: l_entity_id := l_request_rec.entity_id;
2104: ELSIF ((l_request_rec.entity_code = OE_GLOBALS.G_ENTITY_LINE) AND
2105: (l_entity_code = 'O')) THEN
2106: l_entity_id := l_header_id;
2107: ELSE
2108: l_entity_id := l_request_rec.param3;
2372: BEGIN
2373:
2374: x_return_status := FND_API.G_RET_STS_SUCCESS;
2375:
2376: IF p_entity_code = OE_Globals.G_ENTITY_HEADER THEN
2377:
2378: l_header_id := p_entity_id;
2379:
2380: ELSIF p_entity_code = OE_Globals.G_ENTITY_LINE THEN
2376: IF p_entity_code = OE_Globals.G_ENTITY_HEADER THEN
2377:
2378: l_header_id := p_entity_id;
2379:
2380: ELSIF p_entity_code = OE_Globals.G_ENTITY_LINE THEN
2381:
2382: BEGIN
2383: SELECT header_id
2384: INTO l_header_id
2391:
2392: END IF;
2393:
2394: IF OE_SYS_PARAMETERS.Value('FTE_INTEGRATION') = 'Y'
2395: AND p_action_code = OE_GLOBALS.G_GET_SHIP_METHOD_AND_RATES THEN
2396: l_action := 'B';
2397: ELSIF (OE_SYS_PARAMETERS.Value('FTE_INTEGRATION') = 'S'
2398: OR OE_SYS_PARAMETERS.Value('FTE_INTEGRATION') = 'Y')
2399: AND p_action_code = OE_GLOBALS.G_GET_SHIP_METHOD THEN
2395: AND p_action_code = OE_GLOBALS.G_GET_SHIP_METHOD_AND_RATES THEN
2396: l_action := 'B';
2397: ELSIF (OE_SYS_PARAMETERS.Value('FTE_INTEGRATION') = 'S'
2398: OR OE_SYS_PARAMETERS.Value('FTE_INTEGRATION') = 'Y')
2399: AND p_action_code = OE_GLOBALS.G_GET_SHIP_METHOD THEN
2400: l_action := 'C';
2401: ELSIF (OE_SYS_PARAMETERS.Value('FTE_INTEGRATION') = 'F'
2402: OR OE_SYS_PARAMETERS.Value('FTE_INTEGRATION') = 'Y')
2403: AND p_action_code = OE_GLOBALS.G_GET_FREIGHT_RATES THEN
2399: AND p_action_code = OE_GLOBALS.G_GET_SHIP_METHOD THEN
2400: l_action := 'C';
2401: ELSIF (OE_SYS_PARAMETERS.Value('FTE_INTEGRATION') = 'F'
2402: OR OE_SYS_PARAMETERS.Value('FTE_INTEGRATION') = 'Y')
2403: AND p_action_code = OE_GLOBALS.G_GET_FREIGHT_RATES THEN
2404: l_action := 'R';
2405: END IF;
2406:
2407: IF l_action IN ('B', 'C', 'R') THEN
2455: l_header_id NUMBER;
2456: l_set_id NUMBER;
2457: l_action VARCHAR2(10);
2458: --R12.MOAC
2459: l_selelect_line_tbl OE_GLOBALS.Selected_Record_Tbl;
2460: BEGIN
2461:
2462: x_return_status := FND_API.G_RET_STS_SUCCESS;
2463:
2471: WHEN OTHERS THEN
2472: RAISE;
2473: END;
2474:
2475: IF p_action_code = OE_GLOBALS.G_ADD_FULFILLMENT_SET THEN
2476: l_action := 'ADD';
2477: ELSIF p_action_code = OE_GLOBALS.G_REMOVE_FULFILLMENT_SET THEN
2478: l_action := 'REMOVE';
2479: END IF;
2473: END;
2474:
2475: IF p_action_code = OE_GLOBALS.G_ADD_FULFILLMENT_SET THEN
2476: l_action := 'ADD';
2477: ELSIF p_action_code = OE_GLOBALS.G_REMOVE_FULFILLMENT_SET THEN
2478: l_action := 'REMOVE';
2479: END IF;
2480:
2481: l_selelect_line_tbl(1).id1 := p_entity_id; --R12.MOAC
2546: WHILE l_update_shipping_index IS NOT NULL
2547: LOOP
2548:
2549: IF p_update_shipping_tbl(l_update_shipping_index).request_type
2550: = OE_GLOBALS.G_UPDATE_SHIPPING
2551: THEN
2552:
2553: l_update_lines_index := l_update_lines_index + 1;
2554: l_update_lines_tbl(l_update_lines_index)
2571: WHILE l_update_shipping_index IS NOT NULL
2572: LOOP
2573:
2574: IF p_update_shipping_tbl(l_update_shipping_index).request_type
2575: = OE_GLOBALS.G_UPDATE_SHIPPING
2576: THEN
2577:
2578: IF NOT(p_line_id = p_update_shipping_tbl(l_update_shipping_index).entity_id AND
2579: p_operation
2644:
2645: oe_debug_pub.add('Request Type : '||p_ship_confirmation_tbl(l_shipping_index).request_type,2);
2646: oe_debug_pub.add('Param1 : '||p_ship_confirmation_tbl(l_shipping_index).param1,2);
2647: IF p_ship_confirmation_tbl(l_shipping_index).request_type
2648: = OE_GLOBALS.G_SHIP_CONFIRMATION AND
2649: p_ship_confirmation_tbl(l_shipping_index).param1 = p_process_id THEN
2650: oe_debug_pub.add('RUnique 1 : '||p_ship_confirmation_tbl(l_shipping_index).request_unique_key1,2);
2651: oe_debug_pub.add('Entity Id : '||to_char(p_ship_confirmation_tbl(l_shipping_index).entity_id),2);
2652: IF p_line_id <> p_ship_confirmation_tbl(l_shipping_index).entity_id THEN
2853: THEN
2854: l_group_req_rec.arrival_set_number := p_request_rec.param1;
2855: l_group_req_rec.ship_to_org_id := l_line_rec.ship_to_org_id;
2856:
2857: IF NOT OE_GLOBALS.Equal(l_line_rec.schedule_arrival_date,
2858: l_group_req_rec.old_schedule_arrival_date)
2859: THEN
2860: l_group_req_rec.schedule_arrival_date :=
2861: l_line_rec.schedule_arrival_date;
2866: l_group_req_rec.ship_from_org_id := l_line_rec.ship_from_org_id;
2867: l_group_req_rec.ship_to_org_id := l_line_rec.ship_to_org_id;
2868: l_group_req_rec.freight_carrier := l_line_rec.shipping_method_code;
2869:
2870: IF NOT OE_GLOBALS.Equal(l_line_rec.schedule_ship_date,
2871: l_group_req_rec.old_schedule_ship_date)
2872: THEN
2873: l_group_req_rec.schedule_ship_date :=
2874: l_line_rec.schedule_ship_date;
2876:
2877: -- Added this part here. If there is a change in arrival date
2878: -- we should pass this to group_schedule.
2879:
2880: IF NOT OE_GLOBALS.Equal(l_line_rec.schedule_arrival_date,
2881: l_group_req_rec.old_schedule_arrival_date)
2882: THEN
2883: l_group_req_rec.schedule_arrival_date :=
2884: l_line_rec.schedule_arrival_date;
2883: l_group_req_rec.schedule_arrival_date :=
2884: l_line_rec.schedule_arrival_date;
2885: END IF;
2886:
2887: IF NOT OE_GLOBALS.Equal(l_line_rec.request_date,
2888: l_group_req_rec.old_request_date)
2889: THEN
2890: l_group_req_rec.request_date :=
2891: l_line_rec.request_date;
2918:
2919: oe_debug_pub.add('Setting G_CASCADING_REQUEST_LOGGED',2);
2920:
2921: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
2922: OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
2923: END IF;
2924:
2925: x_return_status := l_return_status;
2926:
2979: IS
2980:
2981: l_number NUMBER := 0;
2982: l_api_name CONSTANT VARCHAR(30) := 'INSERT_RMA_OPTIONS_INCLUDED';
2983: l_control_rec OE_GLOBALS.Control_Rec_Type;
2984: l_return_status VARCHAR2(30);
2985: l_orig_line_rec OE_Order_PUB.Line_Rec_Type;
2986: l_reference_line_rec OE_Order_Pub.Line_Rec_Type;
2987: l_child_line_rec OE_Order_Pub.Line_Rec_Type;
3121: l_line_tbl(l_number).return_attribute1 := l_child.header_id;
3122: l_line_tbl(l_number).return_attribute2 := l_child.line_id;
3123: l_line_tbl(l_number).ordered_quantity := ( l_child.ordered_quantity *
3124: l_orig_line_rec.ordered_quantity)/l_reference_line_rec.ordered_quantity;
3125: l_line_tbl(l_number).item_type_code := OE_GLOBALS.G_ITEM_STANDARD;
3126: l_line_tbl(l_number).operation := OE_GLOBALS.G_OPR_CREATE;
3127: l_line_tbl(l_number).header_id := l_orig_line_rec.header_id;
3128: l_line_tbl(l_number).line_type_id := l_orig_line_rec.line_type_id;
3129: l_line_tbl(l_number).return_reason_code := l_orig_line_rec.return_reason_code;
3122: l_line_tbl(l_number).return_attribute2 := l_child.line_id;
3123: l_line_tbl(l_number).ordered_quantity := ( l_child.ordered_quantity *
3124: l_orig_line_rec.ordered_quantity)/l_reference_line_rec.ordered_quantity;
3125: l_line_tbl(l_number).item_type_code := OE_GLOBALS.G_ITEM_STANDARD;
3126: l_line_tbl(l_number).operation := OE_GLOBALS.G_OPR_CREATE;
3127: l_line_tbl(l_number).header_id := l_orig_line_rec.header_id;
3128: l_line_tbl(l_number).line_type_id := l_orig_line_rec.line_type_id;
3129: l_line_tbl(l_number).return_reason_code := l_orig_line_rec.return_reason_code;
3130: -- Added for bug fix 2600923
3156: l_control_rec.clear_api_requests := FALSE;
3157:
3158: -- Call OE_Order_PVT.Process_order to insert lines
3159: -- Set recursion mode.
3160: -- OE_GLOBALS.G_RECURSION_MODE := 'Y';
3161:
3162: -- Set the global so that delayed request will not be
3163: -- logged for the child return line
3164: OE_GLOBALS.G_RETURN_CHILDREN_MODE := 'Y';
3160: -- OE_GLOBALS.G_RECURSION_MODE := 'Y';
3161:
3162: -- Set the global so that delayed request will not be
3163: -- logged for the child return line
3164: OE_GLOBALS.G_RETURN_CHILDREN_MODE := 'Y';
3165:
3166: OE_ORDER_PVT.Lines
3167: (p_validation_level => FND_API.G_VALID_LEVEL_FULL
3168: ,p_control_rec => l_control_rec
3170: ,p_x_old_line_tbl => l_old_line_tbl
3171: ,x_return_status => l_return_status);
3172:
3173: -- Reset recursion mode.
3174: -- OE_GLOBALS.G_RECURSION_MODE := 'N';
3175:
3176: OE_GLOBALS.G_RETURN_CHILDREN_MODE := 'N';
3177:
3178: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3172:
3173: -- Reset recursion mode.
3174: -- OE_GLOBALS.G_RECURSION_MODE := 'N';
3175:
3176: OE_GLOBALS.G_RETURN_CHILDREN_MODE := 'N';
3177:
3178: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3179: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3180: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3216:
3217: I := l_line_tbl.NEXT(I);
3218: END LOOP;
3219:
3220: OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
3221:
3222: END IF; /* end inserting lines */
3223:
3224: OE_DEBUG_PUB.ADD(' Exiting INSERT_RMA_OPTIONS_INCLUDED',1);
3258: IS
3259:
3260: l_number NUMBER := 0;
3261: l_api_name CONSTANT VARCHAR(30) := 'INSERT_RMA_LOT_SERIAL';
3262: l_control_rec OE_GLOBALS.Control_Rec_Type;
3263: l_x_lot_serial_tbl OE_Order_PUB.Lot_Serial_Tbl_Type;
3264: l_x_old_lot_serial_tbl OE_Order_PUB.Lot_Serial_Tbl_Type;
3265: l_return_status VARCHAR2(30);
3266: l_orig_line_rec OE_Order_PUB.Line_Rec_Type;
3400:
3401: FOR I IN l_lot_serial_tbl.FIRST .. l_Lot_Serial_tbl.LAST LOOP
3402:
3403: l_x_Lot_Serial_tbl(I) := l_Lot_Serial_tbl(I);
3404: l_x_Lot_Serial_tbl(I).operation := OE_GLOBALS.G_OPR_DELETE;
3405:
3406: END LOOP;
3407:
3408: -- Clear Table
3543: FOR I IN l_Lot_serial_tbl.FIRST .. l_Lot_serial_tbl.LAST LOOP
3544:
3545: l_count := l_x_lot_serial_tbl.count;
3546: l_x_lot_serial_tbl(l_count + I) := l_lot_serial_tbl(I);
3547: l_x_lot_serial_tbl(l_count + I).operation := OE_GLOBALS.G_OPR_CREATE;
3548: l_x_lot_serial_tbl(l_count + I).line_id := l_orig_line_rec.line_id;
3549:
3550: END LOOP;
3551: END IF; /* end inserting lot serial numbers */
3553: IF l_x_lot_serial_tbl.count > 0 THEN
3554: OE_DEBUG_PUB.ADD(' Before calling OE_ORDER_PVT.Lot_Serials',1);
3555: -- Call OE_Order_PVT.Process_order to insert lines
3556: -- Set recursion mode.
3557: -- OE_GLOBALS.G_RECURSION_MODE := 'Y';
3558:
3559: OE_ORDER_PVT.Lot_Serials
3560: (p_validation_level => FND_API.G_VALID_LEVEL_FULL
3561: ,p_control_rec => l_control_rec
3562: ,P_x_lot_serial_tbl => l_x_lot_serial_tbl
3563: ,p_x_old_lot_serial_tbl => l_x_old_lot_serial_tbl
3564: ,x_return_status => l_return_status);
3565: -- Reset recursion mode.
3566: -- OE_GLOBALS.G_RECURSION_MODE := 'N';
3567: OE_DEBUG_PUB.ADD(' After calling OE_ORDER_PVT.Lot_Serials',1);
3568:
3569: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3570: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3848:
3849: IF (l_adj_tbl.COUNT >= 1) THEN
3850:
3851: -- Set recursion mode.
3852: -- OE_GLOBALS.G_RECURSION_MODE := 'Y';
3853:
3854: OE_Order_PVT.Process_order
3855: ( p_api_version_number => 1.0
3856: , x_return_status => l_return_status
3879: );
3880:
3881:
3882: -- Reset recursion mode.
3883: -- OE_GLOBALS.G_RECURSION_MODE := 'N';
3884:
3885: oe_debug_pub.add('after process order call ',2);
3886: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3887: oe_debug_pub.add('error1',2);
3952: IS
3953:
3954: l_number NUMBER := 0;
3955: l_api_name CONSTANT VARCHAR(30) := 'INSERT_SERVICE_FOR_OPTIONS';
3956: l_control_rec OE_GLOBALS.Control_Rec_Type;
3957: l_return_status Varchar2(30);
3958: l_orig_line_rec OE_Order_PUB.Line_Rec_Type;
3959: l_reference_line_rec OE_Order_Pub.Line_Rec_Type;
3960: l_line_tbl OE_Order_PUB.Line_Tbl_Type;
4125: l_line_tbl(l_number).service_coterminate_flag := l_orig_line_rec.service_coterminate_flag;
4126: l_line_tbl(l_number).ordered_quantity := l_child.ordered_quantity;
4127: l_line_tbl(l_number).order_quantity_uom := l_orig_line_rec.order_quantity_uom;
4128: l_line_tbl(l_number).item_identifier_type := 'INT';
4129: l_line_tbl(l_number).item_type_code := OE_GLOBALS.G_ITEM_SERVICE;
4130: l_Line_tbl(l_number).operation := OE_GLOBALS.G_OPR_CREATE;
4131: l_line_tbl(l_number).header_id := l_orig_line_rec.header_id;
4132: l_line_tbl(l_number).inventory_item_id := l_orig_line_rec.inventory_item_id;
4133: l_line_tbl(l_number).service_reference_line_id := l_child.line_id;
4126: l_line_tbl(l_number).ordered_quantity := l_child.ordered_quantity;
4127: l_line_tbl(l_number).order_quantity_uom := l_orig_line_rec.order_quantity_uom;
4128: l_line_tbl(l_number).item_identifier_type := 'INT';
4129: l_line_tbl(l_number).item_type_code := OE_GLOBALS.G_ITEM_SERVICE;
4130: l_Line_tbl(l_number).operation := OE_GLOBALS.G_OPR_CREATE;
4131: l_line_tbl(l_number).header_id := l_orig_line_rec.header_id;
4132: l_line_tbl(l_number).inventory_item_id := l_orig_line_rec.inventory_item_id;
4133: l_line_tbl(l_number).service_reference_line_id := l_child.line_id;
4134: --l_line_tbl(l_number).top_model_line_id := l_service_reference_line_id;
4207: l_control_rec.clear_api_requests := FALSE;
4208:
4209: -- Call OE_Order_PVT.Process_order to insert lines
4210: -- Set recursion mode.
4211: -- OE_GLOBALS.G_RECURSION_MODE := 'Y';
4212:
4213: OE_ORDER_PVT.Lines
4214: (P_validation_level => FND_API.G_VALID_LEVEL_FULL
4215: ,p_control_rec => l_control_rec
4217: ,p_x_old_line_tbl => l_old_line_tbl
4218: ,x_return_status => l_return_status);
4219:
4220: -- Reset recursion mode.
4221: -- OE_GLOBALS.G_RECURSION_MODE := 'N';
4222:
4223: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4224: oe_debug_pub.add('Inside unexpected error ',2);
4225: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4284: IS
4285:
4286: l_number NUMBER := 0;
4287: l_api_name CONSTANT VARCHAR(30) := 'CASCADE_SERVICE_FOR_OPTIONS';
4288: l_control_rec OE_GLOBALS.Control_Rec_Type;
4289: l_return_status Varchar2(30);
4290: l_orig_line_rec OE_Order_PUB.Line_Rec_Type;
4291: --l_reference_line_rec OE_Order_Pub.Line_Rec_Type;
4292: l_line_tbl OE_Order_PUB.Line_Tbl_Type;
4369: l_line_tbl(l_number).service_coterminate_flag := l_child.service_coterminate_flag;
4370: l_line_tbl(l_number).ordered_quantity := l_orig_line_rec.ordered_quantity;
4371: l_line_tbl(l_number).order_quantity_uom := l_child.order_quantity_uom;
4372: l_line_tbl(l_number).item_identifier_type := 'INT';
4373: l_line_tbl(l_number).item_type_code := OE_GLOBALS.G_ITEM_SERVICE;
4374: l_Line_tbl(l_number).operation := OE_GLOBALS.G_OPR_CREATE;
4375: l_line_tbl(l_number).header_id := l_child.header_id;
4376: l_line_tbl(l_number).inventory_item_id := l_child.inventory_item_id;
4377: --l_line_tbl(l_number).top_model_line_id := l_top_model_line_id;
4370: l_line_tbl(l_number).ordered_quantity := l_orig_line_rec.ordered_quantity;
4371: l_line_tbl(l_number).order_quantity_uom := l_child.order_quantity_uom;
4372: l_line_tbl(l_number).item_identifier_type := 'INT';
4373: l_line_tbl(l_number).item_type_code := OE_GLOBALS.G_ITEM_SERVICE;
4374: l_Line_tbl(l_number).operation := OE_GLOBALS.G_OPR_CREATE;
4375: l_line_tbl(l_number).header_id := l_child.header_id;
4376: l_line_tbl(l_number).inventory_item_id := l_child.inventory_item_id;
4377: --l_line_tbl(l_number).top_model_line_id := l_top_model_line_id;
4378: l_header_id := l_orig_line_rec.header_id;
4424: l_control_rec.clear_api_requests := FALSE;
4425:
4426: -- Call OE_Order_PVT.Process_order to insert lines
4427: -- Set recursion mode.
4428: -- OE_GLOBALS.G_RECURSION_MODE := 'Y';
4429:
4430: OE_ORDER_PVT.Lines
4431: (P_validation_level => FND_API.G_VALID_LEVEL_FULL
4432: ,p_control_rec => l_control_rec
4434: ,p_x_old_line_tbl => l_old_line_tbl
4435: ,x_return_status => l_return_status);
4436:
4437: -- Reset recursion mode.
4438: -- OE_GLOBALS.G_RECURSION_MODE := 'N';
4439:
4440: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4441: oe_debug_pub.add('Inside unexpected error ',2);
4442: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4641: /* Start Audit Trail */
4642: l_line_rec.change_reason := 'SYSTEM';
4643: /* End Audit Trail */
4644:
4645: l_line_rec.operation := OE_GLOBALS.G_OPR_UPDATE;
4646:
4647: IF p_sch_set_tbl(I).request_type = OE_GLOBALS.G_SCHEDULE_LINE THEN
4648: l_line_rec.schedule_action_code :=
4649: OE_ORDER_SCH_UTIL.OESCH_ACT_SCHEDULE;
4643: /* End Audit Trail */
4644:
4645: l_line_rec.operation := OE_GLOBALS.G_OPR_UPDATE;
4646:
4647: IF p_sch_set_tbl(I).request_type = OE_GLOBALS.G_SCHEDULE_LINE THEN
4648: l_line_rec.schedule_action_code :=
4649: OE_ORDER_SCH_UTIL.OESCH_ACT_SCHEDULE;
4650: l_old_line_rec.ship_set_id := l_request_rec.param9;
4651: l_old_line_rec.arrival_set_id := l_request_rec.param10;
4661: END IF;
4662:
4663: IF (l_line_rec.ato_line_id is not null and
4664: NOT (l_line_rec.ato_line_id = l_line_rec.line_id and
4665: l_line_rec.item_type_code IN (OE_GLOBALS.G_ITEM_STANDARD,
4666: OE_GLOBALS.G_ITEM_OPTION))) OR
4667: nvl(l_line_rec.ship_model_complete_flag,'N') = 'Y'
4668: THEN
4669: IF l_request_rec.param3 =
4662:
4663: IF (l_line_rec.ato_line_id is not null and
4664: NOT (l_line_rec.ato_line_id = l_line_rec.line_id and
4665: l_line_rec.item_type_code IN (OE_GLOBALS.G_ITEM_STANDARD,
4666: OE_GLOBALS.G_ITEM_OPTION))) OR
4667: nvl(l_line_rec.ship_model_complete_flag,'N') = 'Y'
4668: THEN
4669: IF l_request_rec.param3 =
4670: OE_ORDER_SCH_UTIL.OESCH_ENTITY_ARRIVAL_SET OR
4671: l_request_rec.param3 =
4672: OE_ORDER_SCH_UTIL.OESCH_ENTITY_SHIP_SET THEN
4673:
4674: IF (l_line_rec.line_id = l_line_rec.ato_line_id OR
4675: l_line_rec.item_type_code = OE_GLOBALS.G_ITEM_MODEL)
4676: THEN
4677: -- ATO model or SMC Model
4678: l_group_sch_required := TRUE;
4679: ELSE
4734:
4735: -- Set the Entity as ATO or SMC and not ship set.
4736: IF l_line_rec.ato_line_id is not null AND
4737: NOT (l_line_rec.ato_line_id = l_line_rec.line_id AND
4738: l_line_rec.item_type_code IN (OE_GLOBALS.G_ITEM_STANDARD,
4739: OE_GLOBALS.G_ITEM_OPTION)) THEN
4740:
4741: l_group_req_rec.entity_type :=
4742: OE_ORDER_SCH_UTIL.OESCH_ENTITY_ATO_CONFIG;
4735: -- Set the Entity as ATO or SMC and not ship set.
4736: IF l_line_rec.ato_line_id is not null AND
4737: NOT (l_line_rec.ato_line_id = l_line_rec.line_id AND
4738: l_line_rec.item_type_code IN (OE_GLOBALS.G_ITEM_STANDARD,
4739: OE_GLOBALS.G_ITEM_OPTION)) THEN
4740:
4741: l_group_req_rec.entity_type :=
4742: OE_ORDER_SCH_UTIL.OESCH_ENTITY_ATO_CONFIG;
4743: l_group_req_rec.ship_set_number := l_line_rec.ato_line_id;
4771:
4772: oe_debug_pub.add('Setting G_CASCADING_REQUEST_LOGGED to TRUE',2);
4773:
4774: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
4775: OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
4776: END IF;
4777:
4778: ELSE
4779:
4862:
4863: oe_debug_pub.add('Stng G_CASCADING_REQUEST_LOGGED to TRUE',2);
4864:
4865: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
4866: OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
4867: END IF;
4868: END IF; /* If Auto Push Group Date is Yes */
4869:
4870: -- Scheduling Failed. If the line belongs to a Ship Set or Arrival
4876:
4877: fnd_message.set_name('ONT','OE_SCH_SET_INS_FAILED');
4878: OE_MSG_PUB.Add;
4879:
4880: IF p_sch_set_tbl(I).request_type = OE_GLOBALS.G_SCHEDULE_LINE
4881: THEN
4882:
4883: UPDATE OE_ORDER_LINES_ALL
4884: SET
4910: IF l_line_rec.ship_model_complete_flag = 'Y'
4911: OR (l_line_rec.ato_line_id is not null
4912: AND NOT (l_line_rec.ato_line_id = l_line_rec.line_id AND
4913: l_line_rec.item_type_code IN
4914: (OE_GLOBALS.G_ITEM_STANDARD,
4915: OE_GLOBALS.G_ITEM_OPTION)))
4916: THEN
4917: -- Line is part of ato model or smc. Cannot insert a
4918: -- line without scheduling the same when parent is
4911: OR (l_line_rec.ato_line_id is not null
4912: AND NOT (l_line_rec.ato_line_id = l_line_rec.line_id AND
4913: l_line_rec.item_type_code IN
4914: (OE_GLOBALS.G_ITEM_STANDARD,
4915: OE_GLOBALS.G_ITEM_OPTION)))
4916: THEN
4917: -- Line is part of ato model or smc. Cannot insert a
4918: -- line without scheduling the same when parent is
4919: -- scheduled.
5223: IF l_debug_level > 0 THEN
5224: oe_debug_pub.add( 'value count '|| OE_Delayed_Requests_PVT.G_Delayed_Requests.count);
5225: END IF;
5226:
5227: /* Bug # 3337661: Corrected IF stmt by using OE_GLOBALS.G_TAX_LINE */
5228: -- Front Ported for bug 3397062
5229: if OE_Delayed_Requests_PVT.G_Delayed_Requests.exists(l_request_ind) and OE_Delayed_Requests_PVT.G_Delayed_Requests(l_request_ind).request_type = OE_GLOBALS.G_TAX_LINE then
5230:
5231: l_call_credit_checking := OE_Delayed_Requests_PVT.G_Delayed_Requests(l_request_ind).param1;
5225: END IF;
5226:
5227: /* Bug # 3337661: Corrected IF stmt by using OE_GLOBALS.G_TAX_LINE */
5228: -- Front Ported for bug 3397062
5229: if OE_Delayed_Requests_PVT.G_Delayed_Requests.exists(l_request_ind) and OE_Delayed_Requests_PVT.G_Delayed_Requests(l_request_ind).request_type = OE_GLOBALS.G_TAX_LINE then
5230:
5231: l_call_credit_checking := OE_Delayed_Requests_PVT.G_Delayed_Requests(l_request_ind).param1;
5232:
5233: end if;
5288: IF l_debug_level > 0 THEN
5289: oe_debug_pub.add('Logging delayed request for Commitment when tax value changes.', 2);
5290: END IF;
5291: OE_Delayed_Requests_Pvt.Log_Request(
5292: p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
5293: p_entity_id => l_line_id,
5294: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
5295: p_requesting_entity_id => l_line_id,
5296: p_request_type => OE_GLOBALS.G_CALCULATE_COMMITMENT,
5290: END IF;
5291: OE_Delayed_Requests_Pvt.Log_Request(
5292: p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
5293: p_entity_id => l_line_id,
5294: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
5295: p_requesting_entity_id => l_line_id,
5296: p_request_type => OE_GLOBALS.G_CALCULATE_COMMITMENT,
5297: x_return_status => l_return_status);
5298:
5292: p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
5293: p_entity_id => l_line_id,
5294: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
5295: p_requesting_entity_id => l_line_id,
5296: p_request_type => OE_GLOBALS.G_CALCULATE_COMMITMENT,
5297: x_return_status => l_return_status);
5298:
5299: END IF;
5300:
5316: IF l_debug_level > 0 THEN
5317: oe_debug_pub.ADD('Logging delayed request for Verify Payment for change in tax value',2);
5318: END IF;
5319: OE_delayed_requests_Pvt.log_request
5320: (p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
5321: p_entity_id => l_header_id,
5322: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
5323: p_requesting_entity_id => l_line_id,
5324: p_request_type => OE_GLOBALS.G_VERIFY_PAYMENT,
5318: END IF;
5319: OE_delayed_requests_Pvt.log_request
5320: (p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
5321: p_entity_id => l_header_id,
5322: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
5323: p_requesting_entity_id => l_line_id,
5324: p_request_type => OE_GLOBALS.G_VERIFY_PAYMENT,
5325: x_return_status => l_return_status);
5326: END IF;
5320: (p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
5321: p_entity_id => l_header_id,
5322: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
5323: p_requesting_entity_id => l_line_id,
5324: p_request_type => OE_GLOBALS.G_VERIFY_PAYMENT,
5325: x_return_status => l_return_status);
5326: END IF;
5327:
5328: -- bug 2238438, credit card collection project.
5337: IF l_debug_level > 0 THEN
5338: oe_debug_pub.ADD('Logging delayed request for Verify Payment for change in tax value for prepaid order',2);
5339: END IF;
5340: OE_delayed_requests_Pvt.log_request
5341: (p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
5342: p_entity_id => l_header_id,
5343: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
5344: p_requesting_entity_id => l_line_id,
5345: p_request_type => OE_GLOBALS.G_VERIFY_PAYMENT,
5339: END IF;
5340: OE_delayed_requests_Pvt.log_request
5341: (p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
5342: p_entity_id => l_header_id,
5343: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
5344: p_requesting_entity_id => l_line_id,
5345: p_request_type => OE_GLOBALS.G_VERIFY_PAYMENT,
5346: x_return_status => l_return_status);
5347: END IF;
5341: (p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
5342: p_entity_id => l_header_id,
5343: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
5344: p_requesting_entity_id => l_line_id,
5345: p_request_type => OE_GLOBALS.G_VERIFY_PAYMENT,
5346: x_return_status => l_return_status);
5347: END IF;
5348:
5349: -- Start fix for bug# 4378531
5360:
5361: oe_debug_pub.ADD('Logging delayed request for Verify Payment for change in tax value',2);
5362:
5363: OE_delayed_requests_Pvt.log_request
5364: (p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
5365: p_entity_id => l_header_id,
5366: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
5367: p_requesting_entity_id => l_line_id,
5368: p_request_type => OE_GLOBALS.G_VERIFY_PAYMENT,
5362:
5363: OE_delayed_requests_Pvt.log_request
5364: (p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
5365: p_entity_id => l_header_id,
5366: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
5367: p_requesting_entity_id => l_line_id,
5368: p_request_type => OE_GLOBALS.G_VERIFY_PAYMENT,
5369: x_return_status => l_return_status);
5370:
5364: (p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
5365: p_entity_id => l_header_id,
5366: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
5367: p_requesting_entity_id => l_line_id,
5368: p_request_type => OE_GLOBALS.G_VERIFY_PAYMENT,
5369: x_return_status => l_return_status);
5370:
5371: ELSIF NVL(new_tax_value,0) < NVL(l_tax_value,0) THEN
5372:
5389:
5390: oe_debug_pub.add('Logging delayed request for verify payment for change in tax value and hold exist') ;
5391:
5392: OE_delayed_requests_Pvt.log_request
5393: (p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
5394: p_entity_id => l_header_id,
5395: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
5396: p_requesting_entity_id => l_line_id,
5397: p_request_type => OE_GLOBALS.G_VERIFY_PAYMENT,
5391:
5392: OE_delayed_requests_Pvt.log_request
5393: (p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
5394: p_entity_id => l_header_id,
5395: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
5396: p_requesting_entity_id => l_line_id,
5397: p_request_type => OE_GLOBALS.G_VERIFY_PAYMENT,
5398: x_return_status => l_return_status);
5399: END IF;
5393: (p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
5394: p_entity_id => l_header_id,
5395: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
5396: p_requesting_entity_id => l_line_id,
5397: p_request_type => OE_GLOBALS.G_VERIFY_PAYMENT,
5398: x_return_status => l_return_status);
5399: END IF;
5400: END IF;
5401: END IF;
5458:
5459: IF l_l_line_adj_tbl(J).list_line_type_code = 'TAX' AND
5460: l_l_line_adj_tbl(J).parent_adjustment_id IS NULL AND
5461: l_l_line_adj_tbl(J).tax_rate_id = l_tax_rate_id AND
5462: l_l_line_adj_tbl(J).OPERATION <> OE_GLOBALS.G_OPR_UPDATE
5463: THEN
5464: -- Set the Match flag
5465: l_match_flag := 'Y';
5466: --Added for bug#1947306.Mark the record to avoid it from getting deleted.
5463: THEN
5464: -- Set the Match flag
5465: l_match_flag := 'Y';
5466: --Added for bug#1947306.Mark the record to avoid it from getting deleted.
5467: l_l_line_adj_tbl(J).OPERATION :=OE_GLOBALS.G_OPR_UPDATE;
5468:
5469:
5470: IF NOT OE_GLOBALS.Equal(
5471: l_tax_rec_out_tbl(I).tax_amount,
5466: --Added for bug#1947306.Mark the record to avoid it from getting deleted.
5467: l_l_line_adj_tbl(J).OPERATION :=OE_GLOBALS.G_OPR_UPDATE;
5468:
5469:
5470: IF NOT OE_GLOBALS.Equal(
5471: l_tax_rec_out_tbl(I).tax_amount,
5472: l_l_line_adj_tbl(J).adjusted_amount) OR
5473: NOT OE_GLOBALS.Equal(l_tax_rec_out_tbl(I).tax_rate,
5474: l_l_line_adj_tbl(J).operand) THEN
5469:
5470: IF NOT OE_GLOBALS.Equal(
5471: l_tax_rec_out_tbl(I).tax_amount,
5472: l_l_line_adj_tbl(J).adjusted_amount) OR
5473: NOT OE_GLOBALS.Equal(l_tax_rec_out_tbl(I).tax_rate,
5474: l_l_line_adj_tbl(J).operand) THEN
5475: IF l_debug_level > 0 THEN
5476: oe_debug_pub.add('Updating the Adj record '||
5477: to_char(l_l_line_adj_tbl(J).price_adjustment_id),2);
5488: WHERE price_adjustment_id =
5489: l_l_line_adj_tbl(J).price_adjustment_id;
5490:
5491: l_l_line_adj_tbl(J).OPERATION :=
5492: OE_GLOBALS.G_OPR_UPDATE;
5493: l_match_flag := 'Y';
5494: END IF;
5495: EXIT; -- If match found then exit from loop .added for bug#1947306
5496: END IF;
5521: l_tax_rec_out_tbl(I).tax_amount;
5522: l_Line_Adj_rec.automatic_flag := 'N';
5523: l_Line_Adj_rec.list_line_type_code := 'TAX';
5524: l_Line_Adj_rec.arithmetic_operator := 'AMT';
5525: l_Line_Adj_rec.operation := OE_GLOBALS.g_opr_create;
5526: OE_LINE_ADJ_UTIL.INSERT_ROW(p_Line_Adj_rec =>
5527: l_line_adj_rec);
5528: END IF;
5529:
5729: --Here Loop for each Order Line
5730: FOR Cur_Ord_line in ord_line_cur(p_ord_header_id)
5731: LOOP
5732: j := j+1;
5733: IF cur_ord_line.item_type_code <> OE_GLOBALS.G_ITEM_STANDARD THEN
5734: fnd_message.set_name('ONT','ONT_ISO_ITEM_TYPE_NOT_STD');
5735: OE_MSG_PUB.Add;
5736: x_return_status := FND_API.G_RET_STS_ERROR;
5737: RAISE FND_API.G_EXC_ERROR;
5793: --Update the header with the requisition header id
5794: Update OE_Order_Headers
5795: set source_document_Id = l_req_header_rec.requisition_header_id
5796: ,orig_sys_document_ref = l_req_header_rec.segment1
5797: ,source_document_type_id = OE_GLOBALS.G_ORDER_SOURCE_INTERNAL -- i.e 10 for internal
5798: ,order_source_id = OE_GLOBALS.G_ORDER_SOURCE_INTERNAL --i.e 10 for internal
5799: Where header_id = p_ord_header_id;
5800: oe_debug_pub.add('auto_create_internal_req after hdr update ',2);
5801: -- Update the lines with the requisition header and requisition line ids, requisition number and line number
5794: Update OE_Order_Headers
5795: set source_document_Id = l_req_header_rec.requisition_header_id
5796: ,orig_sys_document_ref = l_req_header_rec.segment1
5797: ,source_document_type_id = OE_GLOBALS.G_ORDER_SOURCE_INTERNAL -- i.e 10 for internal
5798: ,order_source_id = OE_GLOBALS.G_ORDER_SOURCE_INTERNAL --i.e 10 for internal
5799: Where header_id = p_ord_header_id;
5800: oe_debug_pub.add('auto_create_internal_req after hdr update ',2);
5801: -- Update the lines with the requisition header and requisition line ids, requisition number and line number
5802:
5806: BEGIN
5807: Update Oe_Order_lines
5808: Set source_document_id = l_req_header_rec.requisition_header_id
5809: ,source_document_line_id = l_req_line_tbl(k).requisition_line_id
5810: ,source_document_type_id = OE_GLOBALS.G_ORDER_SOURCE_INTERNAL -- i.e 10 for internal
5811: ,orig_sys_document_ref= l_req_header_rec.segment1
5812: ,orig_sys_line_ref = l_req_line_tbl(k).line_num
5813: where oe_order_lines.line_id = l_req_line_tbl(k).source_doc_line_reference;
5814: END;
6209: --find and insert lines for that header
6210: WHILE l_count IS NOT NULL LOOP
6211:
6212: --Check to see if this is a line-level xml request for the same transaction type and header id
6213: IF OE_Delayed_Requests_PVT.G_Delayed_Requests(l_count).request_type = OE_GLOBALS.G_GENERATE_XML_REQ_LN
6214: AND OE_Delayed_Requests_PVT.G_Delayed_Requests(l_count).param1 = l_header_id
6215: AND nvl(OE_Delayed_Requests_PVT.G_Delayed_Requests(l_count).param7, 'INT') = nvl(l_acknowledgment_type, 'INT') THEN
6216:
6217: -- add this line to the lines table for insertion