[Home] [Help]
113: l_Header_Scredit_rec OE_Order_PUB.Header_Scredit_Rec_Type;
114: l_old_Header_Scredit_rec OE_Order_PUB.Header_Scredit_Rec_Type;
115: l_Header_Scredit_tbl OE_Order_PUB.Header_Scredit_Tbl_Type;
116: l_old_Header_Scredit_tbl OE_Order_PUB.Header_Scredit_Tbl_Type;
117: l_control_rec OE_GLOBALS.Control_Rec_Type;
118: l_return_status VARCHAR2(30);
119: x_msg_count NUMBER;
120: x_msg_data VARCHAR2(2000);
121: Begin
149: ,p_request_rec IN OE_ORDER_PUB.request_rec_type)
150: IS
151: l_Line_Scredit_tbl OE_Order_PUB.Line_Scredit_Tbl_Type;
152: l_old_Line_Scredit_tbl OE_Order_PUB.Line_Scredit_Tbl_Type;
153: l_control_rec OE_GLOBALS.Control_Rec_Type;
154: l_line_id NUMBER;
155: l_line_id1 NUMBER;
156: l_line_set_id NUMBER;
157: l_item_type_code VARCHAR2(30);
246: -- For create check the existance of the record based on the
247: -- new data and for other operations check based on the old data.
248:
249:
250: IF l_operation = OE_GLOBALS.G_OPR_CREATE THEN
251:
252: l_sales_credit_type_id := l_new_sales_credit_type_id;
253: l_salesrep_id := l_new_salesrep_id;
254: l_percent := l_new_percent;
311:
312: END;
313:
314: IF l_temp = 0 THEN -- Only when record not exist for child.
315: IF l_operation = OE_GLOBALS.G_OPR_CREATE THEN
316:
317: IF l_new_quota_flag = 'Y' THEN
318:
319: oe_debug_pub.Add(' In create and quota');
345: l_Line_Scredit_tbl(l_count).SalesRep_Id := l_new_salesRep_id;
346: l_Line_Scredit_tbl(l_count).Sales_credit_type_id :=
347: l_new_sales_credit_type_id;
348: l_Line_Scredit_tbl(l_count).PERCENT := l_new_percent;
349: l_Line_Scredit_tbl(l_count).Operation := OE_GLOBALS.G_OPR_CREATE;
350:
351: END IF; -- Check the percent
352:
353: END IF; -- Create.
355: AND l_percent = l_q_percent THEN
356:
357: --Sales credir record exists for the child service line.
358:
359: IF l_operation = OE_GLOBALS.G_OPR_UPDATE THEN
360:
361: oe_msg_pub.add('In Update');
362:
363: IF l_new_quota_flag = 'Y' THEN
405: l_Line_Scredit_tbl(l_count).PERCENT := l_new_percent;
406: /* Start Audit Trail */
407: l_Line_Scredit_tbl(l_count).change_reason := 'SYSTEM';
408: /* End Audit Trail */
409: l_Line_Scredit_tbl(l_count).Operation := OE_GLOBALS.G_OPR_UPDATE;
410:
411: END IF; -- Percent.
412: ELSIF l_operation = OE_GLOBALS.G_OPR_DELETE
413: AND l_percent = l_q_percent THEN
408: /* End Audit Trail */
409: l_Line_Scredit_tbl(l_count).Operation := OE_GLOBALS.G_OPR_UPDATE;
410:
411: END IF; -- Percent.
412: ELSIF l_operation = OE_GLOBALS.G_OPR_DELETE
413: AND l_percent = l_q_percent THEN
414:
415: l_count := l_count + 1;
416: l_Line_Scredit_tbl(l_count) := OE_Order_PUB.G_MISS_LINE_SCREDIT_REC;
416: l_Line_Scredit_tbl(l_count) := OE_Order_PUB.G_MISS_LINE_SCREDIT_REC;
417: l_Line_Scredit_tbl(l_count).sales_credit_id := l_sales_credit_id;
418: l_Line_Scredit_tbl(l_count).Header_id := I.Header_id;
419: l_Line_Scredit_tbl(l_count).Line_id := I.Line_id;
420: l_Line_Scredit_tbl(l_count).Operation := OE_GLOBALS.G_OPR_DELETE;
421: END IF; -- operation
422: END IF; -- temp
423: END LOOP;
424: END IF; -- Model.
428: IF l_count > 0 THEN -- Have some data that need to get cascaded.
429:
430: -- Call OE_Order_PVT.Process_order to insert sales credits.
431: -- Set recursion mode.
432: -- OE_GLOBALS.G_RECURSION_MODE := 'Y';
433:
434: OE_ORDER_PVT.Line_Scredits
435: (p_validation_level => FND_API.G_VALID_LEVEL_FULL
436: ,p_control_rec => l_control_rec
438: ,p_x_old_Line_Scredit_tbl => l_old_Line_Scredit_tbl
439: ,x_return_status => l_return_status);
440:
441: -- Reset recursion mode.
442: -- OE_GLOBALS.G_RECURSION_MODE := 'N';
443:
444: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
445: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
446: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
538:
539:
540: -- Check if same discount has already been applied
541: -- before on the header or any line
542: IF l_entity_code = OE_GLOBALS.G_ENTITY_HEADER_ADJ THEN
543:
544: SELECT 'DUPLICATE_DISCOUNT'
545: INTO l_duplicate
546: FROM oe_price_adjustments
567:
568:
569: -- Check if same discount has already been applied
570: -- before on the line
571: ELSIF l_entity_code = OE_GLOBALS.G_ENTITY_LINE_ADJ THEN
572:
573: SELECT 'DUPLICATE_DISCOUNT'
574: INTO l_duplicate
575: FROM oe_price_adjustments
670:
671: oe_debug_pub.ADD('OEXSRLNB: Check Fixed Price. '||
672: ' entity_code = ' || l_entity_code, 2);
673:
674: IF l_entity_code = OE_GLOBALS.G_ENTITY_HEADER_ADJ THEN
675: FOR l_hdr_adjustment IN hdr_line_adjustments LOOP
676:
677: l_line_id := l_hdr_adjustment.line_id;
678: l_number := l_number + 1;
711: END IF;
712: END LOOP;
713: END IF;
714:
715: IF l_entity_code = OE_GLOBALS.G_ENTITY_LINE_ADJ THEN
716:
717: SELECT count(adj.price_adjustment_id)
718: INTO l_count
719: FROM oe_price_adjustments adj
813: (p_request_rec IN oe_order_pub.request_rec_type,
814: x_return_status OUT NOCOPY VARCHAR2)
815:
816: IS
817: l_control_rec OE_GLOBALS.Control_Rec_Type;
818: l_entity_code VARCHAR2(30);
819: l_entity_id NUMBER := NULL;
820: l_header_id NUMBER := NULL;
821: l_line_id NUMBER := NULL;
875:
876:
877: -- Check if maximum percentage has not been execeded on the
878: -- header price adjustment
879: IF l_entity_code = OE_GLOBALS.G_ENTITY_HEADER_ADJ
880: THEN
881:
882: l_header_id := p_request_rec.entity_id;
883:
913:
914:
915: -- Check if maximum percentage has not been execeded on the
916: -- line price adjustment
917: ELSIF l_entity_code = OE_GLOBALS.G_ENTITY_LINE_ADJ THEN
918:
919: l_line_id := p_request_rec.entity_id;
920: l_header_id := To_number(p_request_rec.param1);
921:
1034: ,p_header_id IN NUMBER
1035: )
1036: IS
1037: l_return_status VARCHAR2(1);
1038: l_control_rec OE_GLOBALS.Control_Rec_Type;
1039: l_line_tbl OE_Order_PUB.Line_Tbl_Type;
1040: l_old_line_tbl OE_Order_PUB.Line_Tbl_Type;
1041: l_line_rec OE_Order_PUB.Line_Rec_Type;
1042: l_api_name CONSTANT VARCHAR2(30) := 'Insert_Order';
1081: OE_Order_Cache.Load_Top_Model_Line (p_top_model_line_id);
1082:
1083: l_line_rec.top_model_line_id := p_top_model_line_id;
1084: l_line_rec.header_id := p_header_id;
1085: l_line_rec.item_type_code := OE_GLOBALS.G_ITEM_CONFIG;
1086: l_line_rec.line_number := l_config_rec.line_number;
1087: l_line_rec.shipment_number := l_config_rec.shipment_number;
1088: l_line_rec.option_number := NULL;
1089: -- l_line_rec.component_number := NULL;
1086: l_line_rec.line_number := l_config_rec.line_number;
1087: l_line_rec.shipment_number := l_config_rec.shipment_number;
1088: l_line_rec.option_number := NULL;
1089: -- l_line_rec.component_number := NULL;
1090: l_line_rec.operation := OE_GLOBALS.G_OPR_CREATE;
1091:
1092: l_line_tbl(1) := l_line_rec;
1093:
1094: -- Set recursion mode.
1091:
1092: l_line_tbl(1) := l_line_rec;
1093:
1094: -- Set recursion mode.
1095: -- OE_GLOBALS.G_RECURSION_MODE := 'Y';
1096:
1097: OE_ORDER_PVT.Lines
1098: (p_validation_level => FND_API.G_VALID_LEVEL_FULL
1099: ,p_control_rec => l_control_rec
1101: ,p_x_old_line_tbl => l_old_line_tbl
1102: ,x_return_status => l_return_status);
1103:
1104: -- Reset recursion mode.
1105: -- OE_GLOBALS.G_RECURSION_MODE := 'N';
1106:
1107: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1108: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1109: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1242: I NUMBER := 1;
1243: I1 NUMBER := 1;
1244: I2 NUMBER := 1;
1245: l_api_name CONSTANT VARCHAR(30) := 'INSERT_RMA_SCREDIT_ADJUSTMENT';
1246: l_control_rec OE_GLOBALS.Control_Rec_Type;
1247: l_x_Line_Scredit_tbl OE_Order_PUB.Line_Scredit_Tbl_Type;
1248: l_x_old_Line_Scredit_tbl OE_Order_PUB.Line_Scredit_Tbl_Type;
1249: l_return_status VARCHAR2(30);
1250: l_count NUMBER := 0;
1298:
1299: FOR I IN l_Line_Scredit_tbl.FIRST .. l_Line_Scredit_tbl.LAST LOOP
1300:
1301: l_x_Line_Scredit_tbl(I):= l_line_Scredit_tbl(I);
1302: l_x_Line_Scredit_tbl(I).operation := OE_GLOBALS.G_OPR_DELETE;
1303:
1304: END LOOP;
1305:
1306: -- Clear Table
1340:
1341: FOR I IN l_Line_Scredit_tbl.FIRST .. l_Line_Scredit_tbl.LAST LOOP
1342:
1343: l_x_Line_Scredit_tbl(l_count + I):= l_line_Scredit_tbl(I);
1344: l_x_Line_Scredit_tbl(l_count + I).operation := OE_GLOBALS.G_OPR_CREATE;
1345: l_x_Line_Scredit_tbl(l_count + I).header_id := l_header_id;
1346: l_x_Line_Scredit_tbl(l_count + I).line_id := p_line_id;
1347: l_x_Line_Scredit_tbl(l_count + I).sales_credit_id := FND_API.G_MISS_NUM;
1348:
1352:
1353: IF l_x_Line_Scredit_tbl.COUNT > 0 THEN
1354: -- Call OE_Order_PVT.Process_order to insert sales credits.
1355: -- Set recursion mode.
1356: -- OE_GLOBALS.G_RECURSION_MODE := 'Y';
1357:
1358: /* Adding the if condition for bug 6778016/
1359: /* The control record structure passsed while calling process_order oe_copy_util.copy_order
1360: has process_partial to true and clear_dependents to false. However, in between as we were
1357:
1358: /* Adding the if condition for bug 6778016/
1359: /* The control record structure passsed while calling process_order oe_copy_util.copy_order
1360: has process_partial to true and clear_dependents to false. However, in between as we were
1361: initializing the control record in to oe_globals.Control_Rec_Type, the values are getting
1362: changed.This is resulting in some issues. Hence we are resetting these two parametes to the
1363: initial values passed.
1364: */
1365: if l_src_doc_type_id=2 or NOT (OE_GLOBALS.G_UI_FLAG) --2nd condition added for bug 8820838
1361: initializing the control record in to oe_globals.Control_Rec_Type, the values are getting
1362: changed.This is resulting in some issues. Hence we are resetting these two parametes to the
1363: initial values passed.
1364: */
1365: if l_src_doc_type_id=2 or NOT (OE_GLOBALS.G_UI_FLAG) --2nd condition added for bug 8820838
1366: then
1367: OE_DEBUG_PUB.ADD('Order is getting copied, Setting process partial flag to true');
1368: l_control_rec.controlled_operation:=true;
1369: l_control_rec.process_partial:=true;
1379: ,x_return_status => l_return_status);
1380:
1381: OE_DEBUG_PUB.ADD('After Calling OE_ORDER_PVT.Line_Scredits',1);
1382: -- Reset recursion mode.
1383: -- OE_GLOBALS.G_RECURSION_MODE := 'N';
1384:
1385: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1386: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1387: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1453: l_count NUMBER := 0;
1454: l_counter NUMBER := 0;
1455: l_msg_data VARCHAR2(2000);
1456: l_tax_value NUMBER := 0;
1457: l_control_rec OE_GLOBALS.Control_Rec_Type;
1458: l_tax_code VARCHAR2(50);
1459: l_line_rec OE_Order_PUB.Line_Rec_Type;
1460: l_old_line_rec OE_Order_PUB.Line_Rec_Type;
1461: l_line_val_rec OE_Order_PUB.Line_Val_Rec_Type;
1563: THEN
1564: l_counter := l_counter + 1;
1565: l_line_adj_tbl(l_counter) := l_l_line_adj_tbl(I);
1566: -- Set Operation to delete
1567: l_Line_Adj_tbl(l_counter).operation := OE_GLOBALS.G_OPR_DELETE;
1568: END IF;
1569: END LOOP;
1570: END IF;
1571:
1638: l_Line_Adj_tbl(l_counter+I).inc_in_sales_performance := NULL;
1639: l_Line_Adj_tbl(l_counter+I).split_action_code := NULL;
1640:
1641: -- Set Operation to Create
1642: l_Line_Adj_tbl(l_counter+I).operation := OE_GLOBALS.G_OPR_CREATE;
1643:
1644: END IF;
1645:
1646: END LOOP;
1646: END LOOP;
1647: END IF;
1648:
1649: -- Load IN parameters for Line record
1650: IF NOT OE_GLOBALS.Equal(l_line_rec.tax_value, l_old_line_rec.tax_value)
1651: THEN
1652: -- Start Audit Trail --
1653: l_Line_rec.change_reason := 'SYSTEM';
1654: -- End Audit Trail --
1651: THEN
1652: -- Start Audit Trail --
1653: l_Line_rec.change_reason := 'SYSTEM';
1654: -- End Audit Trail --
1655: l_Line_rec.operation := OE_GLOBALS.G_OPR_UPDATE;
1656: ELSE
1657: l_Line_rec.operation := OE_GLOBALS.G_OPR_NONE;
1658: END IF;
1659:
1653: l_Line_rec.change_reason := 'SYSTEM';
1654: -- End Audit Trail --
1655: l_Line_rec.operation := OE_GLOBALS.G_OPR_UPDATE;
1656: ELSE
1657: l_Line_rec.operation := OE_GLOBALS.G_OPR_NONE;
1658: END IF;
1659:
1660: -- Check to see if there are any records needed to be modified.
1661:
1658: END IF;
1659:
1660: -- Check to see if there are any records needed to be modified.
1661:
1662: IF NOT (OE_GLOBALS.Equal(l_line_rec.operation, OE_GLOBALS.G_OPR_NONE) AND
1663: l_line_adj_tbl.COUNT = 0)
1664: THEN
1665:
1666: -- Populate Line table
1672:
1673: oe_debug_pub.add('Before calling Process Order API',2);
1674:
1675: -- Set recursion mode.
1676: -- OE_GLOBALS.G_RECURSION_MODE := 'Y';
1677:
1678: OE_Order_PVT.Process_order
1679: ( p_api_version_number => 1.0
1680: , p_init_msg_list => FND_API.G_FALSE
1705: , p_x_action_request_tbl => l_x_action_request_tbl
1706: );
1707:
1708: -- Reset recursion mode.
1709: -- OE_GLOBALS.G_RECURSION_MODE := 'N';
1710:
1711: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1712: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1713: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1900: BEGIN
1901:
1902: OE_Debug_PUB.Add('Entering OE_Delayed_Requests_Util.Apply_Hold',1);
1903:
1904: IF l_request_rec.entity_code = OE_Globals.G_ENTITY_HEADER THEN
1905: -- Indicates Header Level action
1906: --l_header_id := l_request_rec.entity_id;
1907: l_hold_source_rec.header_id := l_request_rec.entity_id;
1908: OE_Debug_PUB.Add('Header ID: '|| l_hold_source_rec.header_id,1);
1906: --l_header_id := l_request_rec.entity_id;
1907: l_hold_source_rec.header_id := l_request_rec.entity_id;
1908: OE_Debug_PUB.Add('Header ID: '|| l_hold_source_rec.header_id,1);
1909:
1910: ELSIF l_request_rec.entity_code = OE_Globals.G_ENTITY_LINE THEN
1911:
1912: OE_debug_pub.add('Line ID: '|| l_request_rec.entity_id,1);
1913: BEGIN
1914: SELECT header_id
1934:
1935: -- Since an Order based source and Header is created at the same time, caller
1936: -- is unable to populate param3 with header_id. We can user entity_id
1937:
1938: IF ((l_request_rec.entity_code = OE_GLOBALS.G_ENTITY_HEADER) AND
1939: (l_hold_source_rec.hold_entity_code = 'O')) THEN
1940: l_hold_source_rec.hold_entity_id := l_request_rec.entity_id;
1941: ELSIF ((l_request_rec.entity_code = OE_GLOBALS.G_ENTITY_LINE) AND
1942: (l_hold_source_rec.hold_entity_code = 'O')) THEN
1937:
1938: IF ((l_request_rec.entity_code = OE_GLOBALS.G_ENTITY_HEADER) AND
1939: (l_hold_source_rec.hold_entity_code = 'O')) THEN
1940: l_hold_source_rec.hold_entity_id := l_request_rec.entity_id;
1941: ELSIF ((l_request_rec.entity_code = OE_GLOBALS.G_ENTITY_LINE) AND
1942: (l_hold_source_rec.hold_entity_code = 'O')) THEN
1943: l_hold_source_rec.hold_entity_id := l_header_id;
1944: ELSE
1945: l_hold_source_rec.hold_entity_id := l_request_rec.param3;
2062: BEGIN
2063:
2064: OE_Debug_PUB.Add('Entering OE_Delayed_Requests_Util.Release_Hold',1);
2065:
2066: IF l_request_rec.entity_code = OE_Globals.G_ENTITY_HEADER THEN
2067: -- Indicates Header Level action
2068:
2069: l_header_id := l_request_rec.entity_id;
2070: l_hold_source_rec.header_id := l_header_id; --Bug 5042664
2069: l_header_id := l_request_rec.entity_id;
2070: l_hold_source_rec.header_id := l_header_id; --Bug 5042664
2071: OE_Debug_PUB.Add('Header ID: '|| l_header_id,1);
2072:
2073: ELSIF l_request_rec.entity_code = OE_Globals.G_ENTITY_LINE THEN
2074:
2075: --l_line_id := l_request_rec.entity_id;
2076: OE_debug_pub.add('Line ID: '|| l_request_rec.entity_id,1);
2077: BEGIN
2100:
2101: -- Order Import is unable to send Hold Entity Id/Header Id as Param3
2102: -- Need to modify the code to use header id for hold entity code = 'O'
2103:
2104: IF ((l_request_rec.entity_code = OE_GLOBALS.G_ENTITY_HEADER) AND
2105: (l_entity_code = 'O')) THEN
2106: l_entity_id := l_request_rec.entity_id;
2107: ELSIF ((l_request_rec.entity_code = OE_GLOBALS.G_ENTITY_LINE) AND
2108: (l_entity_code = 'O')) THEN
2103:
2104: IF ((l_request_rec.entity_code = OE_GLOBALS.G_ENTITY_HEADER) AND
2105: (l_entity_code = 'O')) THEN
2106: l_entity_id := l_request_rec.entity_id;
2107: ELSIF ((l_request_rec.entity_code = OE_GLOBALS.G_ENTITY_LINE) AND
2108: (l_entity_code = 'O')) THEN
2109: l_entity_id := l_header_id;
2110: ELSE
2111: l_entity_id := l_request_rec.param3;
2376: BEGIN
2377:
2378: x_return_status := FND_API.G_RET_STS_SUCCESS;
2379:
2380: IF p_entity_code = OE_Globals.G_ENTITY_HEADER THEN
2381:
2382: l_header_id := p_entity_id;
2383:
2384: ELSIF p_entity_code = OE_Globals.G_ENTITY_LINE THEN
2380: IF p_entity_code = OE_Globals.G_ENTITY_HEADER THEN
2381:
2382: l_header_id := p_entity_id;
2383:
2384: ELSIF p_entity_code = OE_Globals.G_ENTITY_LINE THEN
2385:
2386: BEGIN
2387: SELECT header_id
2388: INTO l_header_id
2395:
2396: END IF;
2397:
2398: IF OE_SYS_PARAMETERS.Value('FTE_INTEGRATION') = 'Y'
2399: AND p_action_code = OE_GLOBALS.G_GET_SHIP_METHOD_AND_RATES THEN
2400: l_action := 'B';
2401: ELSIF (OE_SYS_PARAMETERS.Value('FTE_INTEGRATION') = 'S'
2402: OR OE_SYS_PARAMETERS.Value('FTE_INTEGRATION') = 'Y')
2403: AND p_action_code = OE_GLOBALS.G_GET_SHIP_METHOD THEN
2399: AND p_action_code = OE_GLOBALS.G_GET_SHIP_METHOD_AND_RATES THEN
2400: l_action := 'B';
2401: ELSIF (OE_SYS_PARAMETERS.Value('FTE_INTEGRATION') = 'S'
2402: OR OE_SYS_PARAMETERS.Value('FTE_INTEGRATION') = 'Y')
2403: AND p_action_code = OE_GLOBALS.G_GET_SHIP_METHOD THEN
2404: l_action := 'C';
2405: ELSIF (OE_SYS_PARAMETERS.Value('FTE_INTEGRATION') = 'F'
2406: OR OE_SYS_PARAMETERS.Value('FTE_INTEGRATION') = 'Y')
2407: AND p_action_code = OE_GLOBALS.G_GET_FREIGHT_RATES THEN
2403: AND p_action_code = OE_GLOBALS.G_GET_SHIP_METHOD THEN
2404: l_action := 'C';
2405: ELSIF (OE_SYS_PARAMETERS.Value('FTE_INTEGRATION') = 'F'
2406: OR OE_SYS_PARAMETERS.Value('FTE_INTEGRATION') = 'Y')
2407: AND p_action_code = OE_GLOBALS.G_GET_FREIGHT_RATES THEN
2408: l_action := 'R';
2409: END IF;
2410:
2411: IF l_action IN ('B', 'C', 'R') THEN
2459: l_header_id NUMBER;
2460: l_set_id NUMBER;
2461: l_action VARCHAR2(10);
2462: --R12.MOAC
2463: l_selelect_line_tbl OE_GLOBALS.Selected_Record_Tbl;
2464: BEGIN
2465:
2466: x_return_status := FND_API.G_RET_STS_SUCCESS;
2467:
2475: WHEN OTHERS THEN
2476: RAISE;
2477: END;
2478:
2479: IF p_action_code = OE_GLOBALS.G_ADD_FULFILLMENT_SET THEN
2480: l_action := 'ADD';
2481: ELSIF p_action_code = OE_GLOBALS.G_REMOVE_FULFILLMENT_SET THEN
2482: l_action := 'REMOVE';
2483: END IF;
2477: END;
2478:
2479: IF p_action_code = OE_GLOBALS.G_ADD_FULFILLMENT_SET THEN
2480: l_action := 'ADD';
2481: ELSIF p_action_code = OE_GLOBALS.G_REMOVE_FULFILLMENT_SET THEN
2482: l_action := 'REMOVE';
2483: END IF;
2484:
2485: l_selelect_line_tbl(1).id1 := p_entity_id; --R12.MOAC
2767: WHILE l_update_shipping_index IS NOT NULL
2768: LOOP
2769:
2770: IF p_update_shipping_tbl(l_update_shipping_index).request_type
2771: = OE_GLOBALS.G_UPDATE_SHIPPING
2772: THEN
2773:
2774: l_update_lines_index := l_update_lines_index + 1;
2775: l_update_lines_tbl(l_update_lines_index)
2792: WHILE l_update_shipping_index IS NOT NULL
2793: LOOP
2794:
2795: IF p_update_shipping_tbl(l_update_shipping_index).request_type
2796: = OE_GLOBALS.G_UPDATE_SHIPPING
2797: THEN
2798:
2799: IF NOT(p_line_id = p_update_shipping_tbl(l_update_shipping_index).entity_id AND
2800: p_operation
2865:
2866: oe_debug_pub.add('Request Type : '||p_ship_confirmation_tbl(l_shipping_index).request_type,2);
2867: oe_debug_pub.add('Param1 : '||p_ship_confirmation_tbl(l_shipping_index).param1,2);
2868: IF p_ship_confirmation_tbl(l_shipping_index).request_type
2869: = OE_GLOBALS.G_SHIP_CONFIRMATION AND
2870: p_ship_confirmation_tbl(l_shipping_index).param1 = p_process_id THEN
2871: oe_debug_pub.add('RUnique 1 : '||p_ship_confirmation_tbl(l_shipping_index).request_unique_key1,2);
2872: oe_debug_pub.add('Entity Id : '||to_char(p_ship_confirmation_tbl(l_shipping_index).entity_id),2);
2873: IF p_line_id <> p_ship_confirmation_tbl(l_shipping_index).entity_id THEN
3074: THEN
3075: l_group_req_rec.arrival_set_number := p_request_rec.param1;
3076: l_group_req_rec.ship_to_org_id := l_line_rec.ship_to_org_id;
3077:
3078: IF NOT OE_GLOBALS.Equal(l_line_rec.schedule_arrival_date,
3079: l_group_req_rec.old_schedule_arrival_date)
3080: THEN
3081: l_group_req_rec.schedule_arrival_date :=
3082: l_line_rec.schedule_arrival_date;
3087: l_group_req_rec.ship_from_org_id := l_line_rec.ship_from_org_id;
3088: l_group_req_rec.ship_to_org_id := l_line_rec.ship_to_org_id;
3089: l_group_req_rec.freight_carrier := l_line_rec.shipping_method_code;
3090:
3091: IF NOT OE_GLOBALS.Equal(l_line_rec.schedule_ship_date,
3092: l_group_req_rec.old_schedule_ship_date)
3093: THEN
3094: l_group_req_rec.schedule_ship_date :=
3095: l_line_rec.schedule_ship_date;
3097:
3098: -- Added this part here. If there is a change in arrival date
3099: -- we should pass this to group_schedule.
3100:
3101: IF NOT OE_GLOBALS.Equal(l_line_rec.schedule_arrival_date,
3102: l_group_req_rec.old_schedule_arrival_date)
3103: THEN
3104: l_group_req_rec.schedule_arrival_date :=
3105: l_line_rec.schedule_arrival_date;
3104: l_group_req_rec.schedule_arrival_date :=
3105: l_line_rec.schedule_arrival_date;
3106: END IF;
3107:
3108: IF NOT OE_GLOBALS.Equal(l_line_rec.request_date,
3109: l_group_req_rec.old_request_date)
3110: THEN
3111: l_group_req_rec.request_date :=
3112: l_line_rec.request_date;
3139:
3140: oe_debug_pub.add('Setting G_CASCADING_REQUEST_LOGGED',2);
3141:
3142: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
3143: OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
3144: END IF;
3145:
3146: x_return_status := l_return_status;
3147:
3200: IS
3201:
3202: l_number NUMBER := 0;
3203: l_api_name CONSTANT VARCHAR(30) := 'INSERT_RMA_OPTIONS_INCLUDED';
3204: l_control_rec OE_GLOBALS.Control_Rec_Type;
3205: l_return_status VARCHAR2(30);
3206: l_orig_line_rec OE_Order_PUB.Line_Rec_Type;
3207: l_reference_line_rec OE_Order_Pub.Line_Rec_Type;
3208: l_child_line_rec OE_Order_Pub.Line_Rec_Type;
3350: l_line_tbl(l_number).return_attribute1 := l_child.header_id;
3351: l_line_tbl(l_number).return_attribute2 := l_child.line_id;
3352: l_line_tbl(l_number).ordered_quantity := ( l_child.ordered_quantity *
3353: l_orig_line_rec.ordered_quantity)/l_reference_line_rec.ordered_quantity;
3354: l_line_tbl(l_number).item_type_code := OE_GLOBALS.G_ITEM_STANDARD;
3355: l_line_tbl(l_number).operation := OE_GLOBALS.G_OPR_CREATE;
3356: l_line_tbl(l_number).header_id := l_orig_line_rec.header_id;
3357: l_line_tbl(l_number).line_type_id := l_orig_line_rec.line_type_id;
3358: l_line_tbl(l_number).return_reason_code := l_orig_line_rec.return_reason_code;
3351: l_line_tbl(l_number).return_attribute2 := l_child.line_id;
3352: l_line_tbl(l_number).ordered_quantity := ( l_child.ordered_quantity *
3353: l_orig_line_rec.ordered_quantity)/l_reference_line_rec.ordered_quantity;
3354: l_line_tbl(l_number).item_type_code := OE_GLOBALS.G_ITEM_STANDARD;
3355: l_line_tbl(l_number).operation := OE_GLOBALS.G_OPR_CREATE;
3356: l_line_tbl(l_number).header_id := l_orig_line_rec.header_id;
3357: l_line_tbl(l_number).line_type_id := l_orig_line_rec.line_type_id;
3358: l_line_tbl(l_number).return_reason_code := l_orig_line_rec.return_reason_code;
3359: -- Added for bug fix 2600923
3385: l_control_rec.clear_api_requests := FALSE;
3386:
3387: -- Call OE_Order_PVT.Process_order to insert lines
3388: -- Set recursion mode.
3389: -- OE_GLOBALS.G_RECURSION_MODE := 'Y';
3390:
3391: -- Set the global so that delayed request will not be
3392: -- logged for the child return line
3393: OE_GLOBALS.G_RETURN_CHILDREN_MODE := 'Y';
3389: -- OE_GLOBALS.G_RECURSION_MODE := 'Y';
3390:
3391: -- Set the global so that delayed request will not be
3392: -- logged for the child return line
3393: OE_GLOBALS.G_RETURN_CHILDREN_MODE := 'Y';
3394:
3395: OE_ORDER_PVT.Lines
3396: (p_validation_level => FND_API.G_VALID_LEVEL_FULL
3397: ,p_control_rec => l_control_rec
3399: ,p_x_old_line_tbl => l_old_line_tbl
3400: ,x_return_status => l_return_status);
3401:
3402: -- Reset recursion mode.
3403: -- OE_GLOBALS.G_RECURSION_MODE := 'N';
3404:
3405: OE_GLOBALS.G_RETURN_CHILDREN_MODE := 'N';
3406:
3407: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3401:
3402: -- Reset recursion mode.
3403: -- OE_GLOBALS.G_RECURSION_MODE := 'N';
3404:
3405: OE_GLOBALS.G_RETURN_CHILDREN_MODE := 'N';
3406:
3407: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3408: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3409: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3445:
3446: I := l_line_tbl.NEXT(I);
3447: END LOOP;
3448:
3449: OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
3450:
3451: END IF; /* end inserting lines */
3452:
3453: OE_DEBUG_PUB.ADD(' Exiting INSERT_RMA_OPTIONS_INCLUDED',1);
3490: IS
3491:
3492: l_number NUMBER := 0;
3493: l_api_name CONSTANT VARCHAR(30) := 'INSERT_RMA_LOT_SERIAL';
3494: l_control_rec OE_GLOBALS.Control_Rec_Type;
3495: l_x_lot_serial_tbl OE_Order_PUB.Lot_Serial_Tbl_Type;
3496: l_x_old_lot_serial_tbl OE_Order_PUB.Lot_Serial_Tbl_Type;
3497: l_return_status VARCHAR2(30);
3498: l_orig_line_rec OE_Order_PUB.Line_Rec_Type;
3643:
3644: FOR I IN l_lot_serial_tbl.FIRST .. l_Lot_Serial_tbl.LAST LOOP
3645:
3646: l_x_Lot_Serial_tbl(I) := l_Lot_Serial_tbl(I);
3647: l_x_Lot_Serial_tbl(I).operation := OE_GLOBALS.G_OPR_DELETE;
3648:
3649: END LOOP;
3650:
3651: -- Clear Table
3808: FOR I IN l_Lot_serial_tbl.FIRST .. l_Lot_serial_tbl.LAST LOOP
3809:
3810: l_count := l_x_lot_serial_tbl.count;
3811: l_x_lot_serial_tbl(l_count + I) := l_lot_serial_tbl(I);
3812: l_x_lot_serial_tbl(l_count + I).operation := OE_GLOBALS.G_OPR_CREATE;
3813: l_x_lot_serial_tbl(l_count + I).line_id := l_orig_line_rec.line_id;
3814:
3815: END LOOP;
3816: END IF; /* end inserting lot serial numbers */
3818: IF l_x_lot_serial_tbl.count > 0 THEN
3819: OE_DEBUG_PUB.ADD(' Before calling OE_ORDER_PVT.Lot_Serials',1);
3820: -- Call OE_Order_PVT.Process_order to insert lines
3821: -- Set recursion mode.
3822: -- OE_GLOBALS.G_RECURSION_MODE := 'Y';
3823:
3824: OE_ORDER_PVT.Lot_Serials
3825: (p_validation_level => FND_API.G_VALID_LEVEL_FULL
3826: ,p_control_rec => l_control_rec
3827: ,P_x_lot_serial_tbl => l_x_lot_serial_tbl
3828: ,p_x_old_lot_serial_tbl => l_x_old_lot_serial_tbl
3829: ,x_return_status => l_return_status);
3830: -- Reset recursion mode.
3831: -- OE_GLOBALS.G_RECURSION_MODE := 'N';
3832: OE_DEBUG_PUB.ADD(' After calling OE_ORDER_PVT.Lot_Serials',1);
3833:
3834: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3835: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4126:
4127: IF (l_adj_tbl.COUNT >= 1) THEN
4128:
4129: -- Set recursion mode.
4130: -- OE_GLOBALS.G_RECURSION_MODE := 'Y';
4131:
4132: OE_Order_PVT.Process_order
4133: ( p_api_version_number => 1.0
4134: , x_return_status => l_return_status
4157: );
4158:
4159:
4160: -- Reset recursion mode.
4161: -- OE_GLOBALS.G_RECURSION_MODE := 'N';
4162:
4163: oe_debug_pub.add('after process order call ',2);
4164: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4165: oe_debug_pub.add('error1',2);
4230: IS
4231:
4232: l_number NUMBER := 0;
4233: l_api_name CONSTANT VARCHAR(30) := 'INSERT_SERVICE_FOR_OPTIONS';
4234: l_control_rec OE_GLOBALS.Control_Rec_Type;
4235: l_return_status Varchar2(30);
4236: l_orig_line_rec OE_Order_PUB.Line_Rec_Type;
4237: l_reference_line_rec OE_Order_Pub.Line_Rec_Type;
4238: l_line_tbl OE_Order_PUB.Line_Tbl_Type;
4434: -- this is necessary when both G_INSERT_SERVICE and G_CASCADE_OPTIONS_SERVICE requests are logged in the same session
4435: -- Execution of both will result in duplicate service lines attached to included items
4436:
4437: OE_Delayed_Requests_PVT.Delete_Request
4438: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE
4439: ,p_entity_id => l_child.line_id
4440: ,p_request_Type => OE_GLOBALS.G_CASCADE_OPTIONS_SERVICE
4441: ,x_return_status => x_del_req_ret_status);
4442:
4436:
4437: OE_Delayed_Requests_PVT.Delete_Request
4438: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE
4439: ,p_entity_id => l_child.line_id
4440: ,p_request_Type => OE_GLOBALS.G_CASCADE_OPTIONS_SERVICE
4441: ,x_return_status => x_del_req_ret_status);
4442:
4443: OE_DEBUG_PUB.ADD('x_del_req_ret_status :'||x_del_req_ret_status);
4444:
4464: -- sol_ord_er #16014165 end
4465: l_line_tbl(l_number).ordered_quantity := l_child.ordered_quantity;
4466: l_line_tbl(l_number).order_quantity_uom := l_orig_line_rec.order_quantity_uom;
4467: l_line_tbl(l_number).item_identifier_type := 'INT';
4468: l_line_tbl(l_number).item_type_code := OE_GLOBALS.G_ITEM_SERVICE;
4469: l_Line_tbl(l_number).operation := OE_GLOBALS.G_OPR_CREATE;
4470: l_line_tbl(l_number).header_id := l_orig_line_rec.header_id;
4471: l_line_tbl(l_number).inventory_item_id := l_orig_line_rec.inventory_item_id;
4472: l_line_tbl(l_number).service_reference_line_id := l_child.line_id;
4465: l_line_tbl(l_number).ordered_quantity := l_child.ordered_quantity;
4466: l_line_tbl(l_number).order_quantity_uom := l_orig_line_rec.order_quantity_uom;
4467: l_line_tbl(l_number).item_identifier_type := 'INT';
4468: l_line_tbl(l_number).item_type_code := OE_GLOBALS.G_ITEM_SERVICE;
4469: l_Line_tbl(l_number).operation := OE_GLOBALS.G_OPR_CREATE;
4470: l_line_tbl(l_number).header_id := l_orig_line_rec.header_id;
4471: l_line_tbl(l_number).inventory_item_id := l_orig_line_rec.inventory_item_id;
4472: l_line_tbl(l_number).service_reference_line_id := l_child.line_id;
4473: --l_line_tbl(l_number).top_model_line_id := l_service_reference_line_id;
4552: l_control_rec.clear_api_requests := FALSE;
4553:
4554: -- Call OE_Order_PVT.Process_order to insert lines
4555: -- Set recursion mode.
4556: -- OE_GLOBALS.G_RECURSION_MODE := 'Y';
4557:
4558: OE_ORDER_PVT.Lines
4559: (P_validation_level => FND_API.G_VALID_LEVEL_FULL
4560: ,p_control_rec => l_control_rec
4562: ,p_x_old_line_tbl => l_old_line_tbl
4563: ,x_return_status => l_return_status);
4564:
4565: -- Reset recursion mode.
4566: -- OE_GLOBALS.G_RECURSION_MODE := 'N';
4567:
4568: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4569: oe_debug_pub.add('Inside unexpected error ',2);
4570: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4629: IS
4630:
4631: l_number NUMBER := 0;
4632: l_api_name CONSTANT VARCHAR(30) := 'CASCADE_SERVICE_FOR_OPTIONS';
4633: l_control_rec OE_GLOBALS.Control_Rec_Type;
4634: l_return_status Varchar2(30);
4635: l_orig_line_rec OE_Order_PUB.Line_Rec_Type;
4636: --l_reference_line_rec OE_Order_Pub.Line_Rec_Type;
4637: l_line_tbl OE_Order_PUB.Line_Tbl_Type;
4741: l_line_tbl(l_number).service_coterminate_flag := l_child.service_coterminate_flag;
4742: l_line_tbl(l_number).ordered_quantity := l_orig_line_rec.ordered_quantity;
4743: l_line_tbl(l_number).order_quantity_uom := l_child.order_quantity_uom;
4744: l_line_tbl(l_number).item_identifier_type := 'INT';
4745: l_line_tbl(l_number).item_type_code := OE_GLOBALS.G_ITEM_SERVICE;
4746: l_Line_tbl(l_number).operation := OE_GLOBALS.G_OPR_CREATE;
4747: l_line_tbl(l_number).header_id := l_child.header_id;
4748: l_line_tbl(l_number).inventory_item_id := l_child.inventory_item_id;
4749: --l_line_tbl(l_number).top_model_line_id := l_top_model_line_id;
4742: l_line_tbl(l_number).ordered_quantity := l_orig_line_rec.ordered_quantity;
4743: l_line_tbl(l_number).order_quantity_uom := l_child.order_quantity_uom;
4744: l_line_tbl(l_number).item_identifier_type := 'INT';
4745: l_line_tbl(l_number).item_type_code := OE_GLOBALS.G_ITEM_SERVICE;
4746: l_Line_tbl(l_number).operation := OE_GLOBALS.G_OPR_CREATE;
4747: l_line_tbl(l_number).header_id := l_child.header_id;
4748: l_line_tbl(l_number).inventory_item_id := l_child.inventory_item_id;
4749: --l_line_tbl(l_number).top_model_line_id := l_top_model_line_id;
4750: l_header_id := l_orig_line_rec.header_id;
4799: l_control_rec.clear_api_requests := FALSE;
4800:
4801: -- Call OE_Order_PVT.Process_order to insert lines
4802: -- Set recursion mode.
4803: -- OE_GLOBALS.G_RECURSION_MODE := 'Y';
4804:
4805: OE_ORDER_PVT.Lines
4806: (P_validation_level => FND_API.G_VALID_LEVEL_FULL
4807: ,p_control_rec => l_control_rec
4809: ,p_x_old_line_tbl => l_old_line_tbl
4810: ,x_return_status => l_return_status);
4811:
4812: -- Reset recursion mode.
4813: -- OE_GLOBALS.G_RECURSION_MODE := 'N';
4814:
4815: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4816: oe_debug_pub.add('Inside unexpected error ',2);
4817: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5016: /* Start Audit Trail */
5017: l_line_rec.change_reason := 'SYSTEM';
5018: /* End Audit Trail */
5019:
5020: l_line_rec.operation := OE_GLOBALS.G_OPR_UPDATE;
5021:
5022: IF p_sch_set_tbl(I).request_type = OE_GLOBALS.G_SCHEDULE_LINE THEN
5023: l_line_rec.schedule_action_code :=
5024: OE_ORDER_SCH_UTIL.OESCH_ACT_SCHEDULE;
5018: /* End Audit Trail */
5019:
5020: l_line_rec.operation := OE_GLOBALS.G_OPR_UPDATE;
5021:
5022: IF p_sch_set_tbl(I).request_type = OE_GLOBALS.G_SCHEDULE_LINE THEN
5023: l_line_rec.schedule_action_code :=
5024: OE_ORDER_SCH_UTIL.OESCH_ACT_SCHEDULE;
5025: l_old_line_rec.ship_set_id := l_request_rec.param9;
5026: l_old_line_rec.arrival_set_id := l_request_rec.param10;
5036: END IF;
5037:
5038: IF (l_line_rec.ato_line_id is not null and
5039: NOT (l_line_rec.ato_line_id = l_line_rec.line_id and
5040: l_line_rec.item_type_code IN (OE_GLOBALS.G_ITEM_STANDARD,
5041: OE_GLOBALS.G_ITEM_OPTION,
5042: OE_GLOBALS.G_ITEM_INCLUDED))) OR --9775352
5043: nvl(l_line_rec.ship_model_complete_flag,'N') = 'Y'
5044: THEN
5037:
5038: IF (l_line_rec.ato_line_id is not null and
5039: NOT (l_line_rec.ato_line_id = l_line_rec.line_id and
5040: l_line_rec.item_type_code IN (OE_GLOBALS.G_ITEM_STANDARD,
5041: OE_GLOBALS.G_ITEM_OPTION,
5042: OE_GLOBALS.G_ITEM_INCLUDED))) OR --9775352
5043: nvl(l_line_rec.ship_model_complete_flag,'N') = 'Y'
5044: THEN
5045: IF l_request_rec.param3 =
5038: IF (l_line_rec.ato_line_id is not null and
5039: NOT (l_line_rec.ato_line_id = l_line_rec.line_id and
5040: l_line_rec.item_type_code IN (OE_GLOBALS.G_ITEM_STANDARD,
5041: OE_GLOBALS.G_ITEM_OPTION,
5042: OE_GLOBALS.G_ITEM_INCLUDED))) OR --9775352
5043: nvl(l_line_rec.ship_model_complete_flag,'N') = 'Y'
5044: THEN
5045: IF l_request_rec.param3 =
5046: OE_ORDER_SCH_UTIL.OESCH_ENTITY_ARRIVAL_SET OR
5047: l_request_rec.param3 =
5048: OE_ORDER_SCH_UTIL.OESCH_ENTITY_SHIP_SET THEN
5049:
5050: IF (l_line_rec.line_id = l_line_rec.ato_line_id OR
5051: l_line_rec.item_type_code = OE_GLOBALS.G_ITEM_MODEL)
5052: THEN
5053: -- ATO model or SMC Model
5054: l_group_sch_required := TRUE;
5055: ELSE
5110:
5111: -- Set the Entity as ATO or SMC and not ship set.
5112: IF l_line_rec.ato_line_id is not null AND
5113: NOT (l_line_rec.ato_line_id = l_line_rec.line_id AND
5114: l_line_rec.item_type_code IN (OE_GLOBALS.G_ITEM_STANDARD,
5115: OE_GLOBALS.G_ITEM_OPTION,
5116: OE_GLOBALS.G_ITEM_INCLUDED)) THEN --9775352
5117:
5118: l_group_req_rec.entity_type :=
5111: -- Set the Entity as ATO or SMC and not ship set.
5112: IF l_line_rec.ato_line_id is not null AND
5113: NOT (l_line_rec.ato_line_id = l_line_rec.line_id AND
5114: l_line_rec.item_type_code IN (OE_GLOBALS.G_ITEM_STANDARD,
5115: OE_GLOBALS.G_ITEM_OPTION,
5116: OE_GLOBALS.G_ITEM_INCLUDED)) THEN --9775352
5117:
5118: l_group_req_rec.entity_type :=
5119: OE_ORDER_SCH_UTIL.OESCH_ENTITY_ATO_CONFIG;
5112: IF l_line_rec.ato_line_id is not null AND
5113: NOT (l_line_rec.ato_line_id = l_line_rec.line_id AND
5114: l_line_rec.item_type_code IN (OE_GLOBALS.G_ITEM_STANDARD,
5115: OE_GLOBALS.G_ITEM_OPTION,
5116: OE_GLOBALS.G_ITEM_INCLUDED)) THEN --9775352
5117:
5118: l_group_req_rec.entity_type :=
5119: OE_ORDER_SCH_UTIL.OESCH_ENTITY_ATO_CONFIG;
5120: l_group_req_rec.ship_set_number := l_line_rec.ato_line_id;
5148:
5149: oe_debug_pub.add('Setting G_CASCADING_REQUEST_LOGGED to TRUE',2);
5150:
5151: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
5152: OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
5153: END IF;
5154:
5155: ELSE
5156:
5239:
5240: oe_debug_pub.add('Stng G_CASCADING_REQUEST_LOGGED to TRUE',2);
5241:
5242: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
5243: OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
5244: END IF;
5245: END IF; /* If Auto Push Group Date is Yes */
5246:
5247: -- Scheduling Failed. If the line belongs to a Ship Set or Arrival
5253:
5254: fnd_message.set_name('ONT','OE_SCH_SET_INS_FAILED');
5255: OE_MSG_PUB.Add;
5256:
5257: IF p_sch_set_tbl(I).request_type = OE_GLOBALS.G_SCHEDULE_LINE
5258: THEN
5259:
5260: UPDATE OE_ORDER_LINES_ALL
5261: SET
5287: IF l_line_rec.ship_model_complete_flag = 'Y'
5288: OR (l_line_rec.ato_line_id is not null
5289: AND NOT (l_line_rec.ato_line_id = l_line_rec.line_id AND
5290: l_line_rec.item_type_code IN
5291: (OE_GLOBALS.G_ITEM_STANDARD,
5292: OE_GLOBALS.G_ITEM_OPTION,
5293: OE_GLOBALS.G_ITEM_INCLUDED))) --9775352
5294: THEN
5295: -- Line is part of ato model or smc. Cannot insert a
5288: OR (l_line_rec.ato_line_id is not null
5289: AND NOT (l_line_rec.ato_line_id = l_line_rec.line_id AND
5290: l_line_rec.item_type_code IN
5291: (OE_GLOBALS.G_ITEM_STANDARD,
5292: OE_GLOBALS.G_ITEM_OPTION,
5293: OE_GLOBALS.G_ITEM_INCLUDED))) --9775352
5294: THEN
5295: -- Line is part of ato model or smc. Cannot insert a
5296: -- line without scheduling the same when parent is
5289: AND NOT (l_line_rec.ato_line_id = l_line_rec.line_id AND
5290: l_line_rec.item_type_code IN
5291: (OE_GLOBALS.G_ITEM_STANDARD,
5292: OE_GLOBALS.G_ITEM_OPTION,
5293: OE_GLOBALS.G_ITEM_INCLUDED))) --9775352
5294: THEN
5295: -- Line is part of ato model or smc. Cannot insert a
5296: -- line without scheduling the same when parent is
5297: -- scheduled.
5423: l_request_ind := p_entity_id_tbl(i).request_ind; --TaxER
5424: IF l_debug_level > 0 THEN
5425: oe_debug_pub.add( 'value count '|| OE_Delayed_Requests_PVT.G_Delayed_Requests.count);
5426: END IF;
5427: /* Bug # 3337661: Corrected IF stmt by using OE_GLOBALS.G_TAX_LINE */
5428: -- Front Ported for bug 3397062
5429: 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
5430: l_call_credit_checking := OE_Delayed_Requests_PVT.G_Delayed_Requests(l_request_ind).param1;
5431: END IF;
5425: oe_debug_pub.add( 'value count '|| OE_Delayed_Requests_PVT.G_Delayed_Requests.count);
5426: END IF;
5427: /* Bug # 3337661: Corrected IF stmt by using OE_GLOBALS.G_TAX_LINE */
5428: -- Front Ported for bug 3397062
5429: 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
5430: l_call_credit_checking := OE_Delayed_Requests_PVT.G_Delayed_Requests(l_request_ind).param1;
5431: END IF;
5432: IF l_debug_level > 0 THEN
5433: oe_debug_pub.add('OEXUREQB: call_credit_checking is: '||l_call_credit_checking,1);
5511: IF OE_Commitment_Pvt.Do_Commitment_Sequencing AND l_line_rec.commitment_id IS NOT NULL THEN
5512: IF l_debug_level > 0 THEN
5513: oe_debug_pub.add('Logging delayed request for Commitment when tax value changes.', 2);
5514: END IF;
5515: OE_Delayed_Requests_Pvt.Log_Request( p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
5516: p_entity_id => l_line_rec.line_id,
5517: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
5518: p_requesting_entity_id => l_line_rec.line_id,
5519: p_request_type => OE_GLOBALS.G_CALCULATE_COMMITMENT,
5513: oe_debug_pub.add('Logging delayed request for Commitment when tax value changes.', 2);
5514: END IF;
5515: OE_Delayed_Requests_Pvt.Log_Request( p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
5516: p_entity_id => l_line_rec.line_id,
5517: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
5518: p_requesting_entity_id => l_line_rec.line_id,
5519: p_request_type => OE_GLOBALS.G_CALCULATE_COMMITMENT,
5520: x_return_status => l_return_status);
5521: END IF;
5515: OE_Delayed_Requests_Pvt.Log_Request( p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
5516: p_entity_id => l_line_rec.line_id,
5517: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
5518: p_requesting_entity_id => l_line_rec.line_id,
5519: p_request_type => OE_GLOBALS.G_CALCULATE_COMMITMENT,
5520: x_return_status => l_return_status);
5521: END IF;
5522: -- Do not log Verify Payment Delayed Requests for Return Lines
5523: --
5530: IF OE_PrePayment_UTIL.is_prepaid_order(l_line_rec.header_id) = 'N' OR (OE_PrePayment_UTIL.is_prepaid_order(l_line_rec.header_id) = 'Y' AND l_line_rec.booked_flag ='Y' AND l_line_rec.shipped_quantity IS NULL) THEN
5531: IF l_debug_level > 0 THEN
5532: oe_debug_pub.ADD('Logging delayed request for Verify Payment for change in tax value',2);
5533: END IF;
5534: OE_delayed_requests_Pvt.log_request (p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
5535: p_entity_id => l_line_rec.header_id,
5536: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
5537: p_requesting_entity_id => l_line_rec.line_id,
5538: p_request_type => OE_GLOBALS.G_VERIFY_PAYMENT,
5532: oe_debug_pub.ADD('Logging delayed request for Verify Payment for change in tax value',2);
5533: END IF;
5534: OE_delayed_requests_Pvt.log_request (p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
5535: p_entity_id => l_line_rec.header_id,
5536: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
5537: p_requesting_entity_id => l_line_rec.line_id,
5538: p_request_type => OE_GLOBALS.G_VERIFY_PAYMENT,
5539: x_return_status => l_return_status);
5540: END IF;
5534: OE_delayed_requests_Pvt.log_request (p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
5535: p_entity_id => l_line_rec.header_id,
5536: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
5537: p_requesting_entity_id => l_line_rec.line_id,
5538: p_request_type => OE_GLOBALS.G_VERIFY_PAYMENT,
5539: x_return_status => l_return_status);
5540: END IF;
5541: -- bug 2238438, credit card collection project.
5542: -- log delayed request for prepaid order even the tax value
5549: AND l_line_rec.shipped_quantity IS NULL THEN
5550: IF l_debug_level > 0 THEN
5551: oe_debug_pub.ADD('Logging delayed request for Verify Payment for change in tax value for prepaid order',2);
5552: END IF;
5553: OE_delayed_requests_Pvt.log_request (p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
5554: p_entity_id => l_line_rec.header_id,
5555: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
5556: p_requesting_entity_id => l_line_rec.line_id,
5557: p_request_type => OE_GLOBALS.G_VERIFY_PAYMENT,
5551: oe_debug_pub.ADD('Logging delayed request for Verify Payment for change in tax value for prepaid order',2);
5552: END IF;
5553: OE_delayed_requests_Pvt.log_request (p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
5554: p_entity_id => l_line_rec.header_id,
5555: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
5556: p_requesting_entity_id => l_line_rec.line_id,
5557: p_request_type => OE_GLOBALS.G_VERIFY_PAYMENT,
5558: x_return_status => l_return_status);
5559: END IF;
5553: OE_delayed_requests_Pvt.log_request (p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
5554: p_entity_id => l_line_rec.header_id,
5555: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
5556: p_requesting_entity_id => l_line_rec.line_id,
5557: p_request_type => OE_GLOBALS.G_VERIFY_PAYMENT,
5558: x_return_status => l_return_status);
5559: END IF;
5560: -- Start fix for bug# 4378531
5561: -- end of change for bug 1581188
5566: IF NVL(l_payment_type_code, ' ') <> 'CREDIT_CARD' --bug 2679223
5567: AND NVL(l_call_credit_checking, 'Y') <> 'No_Credit_Checking' THEN
5568: IF NVL(l_total_tax, 0) > NVL(l_old_total_tax, 0) THEN
5569: oe_debug_pub.ADD('Logging delayed request for Verify Payment for change in tax value',2);
5570: OE_delayed_requests_Pvt.log_request (p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
5571: p_entity_id => l_line_rec.header_id,
5572: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
5573: p_requesting_entity_id => l_line_rec.line_id,
5574: p_request_type => OE_GLOBALS.G_VERIFY_PAYMENT,
5568: IF NVL(l_total_tax, 0) > NVL(l_old_total_tax, 0) THEN
5569: oe_debug_pub.ADD('Logging delayed request for Verify Payment for change in tax value',2);
5570: OE_delayed_requests_Pvt.log_request (p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
5571: p_entity_id => l_line_rec.header_id,
5572: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
5573: p_requesting_entity_id => l_line_rec.line_id,
5574: p_request_type => OE_GLOBALS.G_VERIFY_PAYMENT,
5575: x_return_status => l_return_status);
5576: ELSIF NVL(l_total_tax,0) < NVL(l_old_total_tax,0) THEN
5570: OE_delayed_requests_Pvt.log_request (p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
5571: p_entity_id => l_line_rec.header_id,
5572: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
5573: p_requesting_entity_id => l_line_rec.line_id,
5574: p_request_type => OE_GLOBALS.G_VERIFY_PAYMENT,
5575: x_return_status => l_return_status);
5576: ELSIF NVL(l_total_tax,0) < NVL(l_old_total_tax,0) THEN
5577: oe_debug_pub.add('CHECKING CREDIT CHECK HOLD FOR HEADER/LINE ID : ' || TO_CHAR (l_line_rec.header_id) || '/' || TO_CHAR (l_line_rec.line_id) ) ;
5578: OE_HOLDS_PUB.Check_Holds ( p_api_version => 1.0 ,
5586: x_msg_data => l_msg_data ,
5587: x_return_status => l_return_status );
5588: IF ( l_hold_result = FND_API.G_TRUE ) THEN
5589: oe_debug_pub.add('Logging delayed request for verify payment for change in tax value and hold exist') ;
5590: OE_delayed_requests_Pvt.log_request (p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
5591: p_entity_id => l_line_rec.header_id,
5592: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
5593: p_requesting_entity_id => l_line_rec.line_id,
5594: p_request_type => OE_GLOBALS.G_VERIFY_PAYMENT,
5588: IF ( l_hold_result = FND_API.G_TRUE ) THEN
5589: oe_debug_pub.add('Logging delayed request for verify payment for change in tax value and hold exist') ;
5590: OE_delayed_requests_Pvt.log_request (p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
5591: p_entity_id => l_line_rec.header_id,
5592: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
5593: p_requesting_entity_id => l_line_rec.line_id,
5594: p_request_type => OE_GLOBALS.G_VERIFY_PAYMENT,
5595: x_return_status => l_return_status);
5596: END IF;
5590: OE_delayed_requests_Pvt.log_request (p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
5591: p_entity_id => l_line_rec.header_id,
5592: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
5593: p_requesting_entity_id => l_line_rec.line_id,
5594: p_request_type => OE_GLOBALS.G_VERIFY_PAYMENT,
5595: x_return_status => l_return_status);
5596: END IF;
5597: END IF;
5598: END IF;
5627: AND l_tax_rec_out_tbl(i).line_id= l_l_line_adj_tbl(j).line_id
5628: THEN
5629: IF l_l_line_adj_tbl(J).list_line_type_code = 'TAX'
5630: AND l_l_line_adj_tbl(J).tax_rate_id = l_tax_rate_id
5631: AND l_l_line_adj_tbl(J).OPERATION <> OE_GLOBALS.G_OPR_UPDATE
5632: THEN
5633: l_match_flag := 'Y';
5634: l_l_line_adj_tbl(J).OPERATION :=OE_GLOBALS.G_OPR_UPDATE;
5635: IF NOT OE_GLOBALS.Equal( l_tax_rec_out_tbl(I).tax_amount, l_l_line_adj_tbl(J).adjusted_amount)
5630: AND l_l_line_adj_tbl(J).tax_rate_id = l_tax_rate_id
5631: AND l_l_line_adj_tbl(J).OPERATION <> OE_GLOBALS.G_OPR_UPDATE
5632: THEN
5633: l_match_flag := 'Y';
5634: l_l_line_adj_tbl(J).OPERATION :=OE_GLOBALS.G_OPR_UPDATE;
5635: IF NOT OE_GLOBALS.Equal( l_tax_rec_out_tbl(I).tax_amount, l_l_line_adj_tbl(J).adjusted_amount)
5636: OR NOT OE_GLOBALS.Equal(l_tax_rec_out_tbl(I).tax_rate, l_l_line_adj_tbl(J).operand)
5637: OR l_tax_rec_out_tbl(I).amount_includes_tax_flag <> l_l_line_adj_tbl(j).applied_flag -- added for bug#12895421
5638: THEN
5631: AND l_l_line_adj_tbl(J).OPERATION <> OE_GLOBALS.G_OPR_UPDATE
5632: THEN
5633: l_match_flag := 'Y';
5634: l_l_line_adj_tbl(J).OPERATION :=OE_GLOBALS.G_OPR_UPDATE;
5635: IF NOT OE_GLOBALS.Equal( l_tax_rec_out_tbl(I).tax_amount, l_l_line_adj_tbl(J).adjusted_amount)
5636: OR NOT OE_GLOBALS.Equal(l_tax_rec_out_tbl(I).tax_rate, l_l_line_adj_tbl(J).operand)
5637: OR l_tax_rec_out_tbl(I).amount_includes_tax_flag <> l_l_line_adj_tbl(j).applied_flag -- added for bug#12895421
5638: THEN
5639: IF l_debug_level > 0 THEN
5632: THEN
5633: l_match_flag := 'Y';
5634: l_l_line_adj_tbl(J).OPERATION :=OE_GLOBALS.G_OPR_UPDATE;
5635: IF NOT OE_GLOBALS.Equal( l_tax_rec_out_tbl(I).tax_amount, l_l_line_adj_tbl(J).adjusted_amount)
5636: OR NOT OE_GLOBALS.Equal(l_tax_rec_out_tbl(I).tax_rate, l_l_line_adj_tbl(J).operand)
5637: OR l_tax_rec_out_tbl(I).amount_includes_tax_flag <> l_l_line_adj_tbl(j).applied_flag -- added for bug#12895421
5638: THEN
5639: IF l_debug_level > 0 THEN
5640: oe_debug_pub.add('Updating the Adj record '|| TO_CHAR(l_l_line_adj_tbl(J).price_adjustment_id),2);
5648: LAST_UPDATED_BY = FND_GLOBAL.USER_ID,
5649: LAST_UPDATE_LOGIN = FND_GLOBAL.LOGIN_ID
5650: WHERE price_adjustment_id = l_l_line_adj_tbl(J).price_adjustment_id;
5651:
5652: l_l_line_adj_tbl(J).OPERATION := OE_GLOBALS.G_OPR_UPDATE;
5653: l_match_flag := 'Y';
5654: END IF;
5655: EXIT; --If match found then exit from loop .added for bug#1947306
5656: END IF;--- end if for tax record
5661: AND l_tax_rec_out_tbl(i).line_id = l_l_line_adj_tbl(j).line_id
5662: THEN
5663: IF l_l_line_adj_tbl(J).list_line_type_code = 'TAX'
5664: AND l_l_line_adj_tbl(J).tax_rate_id = l_tax_rate_id
5665: AND l_l_line_adj_tbl(J).OPERATION <> OE_GLOBALS.G_OPR_UPDATE
5666: THEN
5667: l_match_flag := 'Y';
5668: l_l_line_adj_tbl(J).OPERATION :=OE_GLOBALS.G_OPR_UPDATE;
5669: IF NOT OE_GLOBALS.Equal( l_tax_rec_out_tbl(I).tax_amount, l_l_line_adj_tbl(J).adjusted_amount)
5664: AND l_l_line_adj_tbl(J).tax_rate_id = l_tax_rate_id
5665: AND l_l_line_adj_tbl(J).OPERATION <> OE_GLOBALS.G_OPR_UPDATE
5666: THEN
5667: l_match_flag := 'Y';
5668: l_l_line_adj_tbl(J).OPERATION :=OE_GLOBALS.G_OPR_UPDATE;
5669: IF NOT OE_GLOBALS.Equal( l_tax_rec_out_tbl(I).tax_amount, l_l_line_adj_tbl(J).adjusted_amount)
5670: OR NOT OE_GLOBALS.Equal(l_tax_rec_out_tbl(I).tax_rate, l_l_line_adj_tbl(J).operand)
5671: OR l_tax_rec_out_tbl(I).amount_includes_tax_flag <> l_l_line_adj_tbl(j).applied_flag -- added for bug#12895421
5672: THEN
5665: AND l_l_line_adj_tbl(J).OPERATION <> OE_GLOBALS.G_OPR_UPDATE
5666: THEN
5667: l_match_flag := 'Y';
5668: l_l_line_adj_tbl(J).OPERATION :=OE_GLOBALS.G_OPR_UPDATE;
5669: IF NOT OE_GLOBALS.Equal( l_tax_rec_out_tbl(I).tax_amount, l_l_line_adj_tbl(J).adjusted_amount)
5670: OR NOT OE_GLOBALS.Equal(l_tax_rec_out_tbl(I).tax_rate, l_l_line_adj_tbl(J).operand)
5671: OR l_tax_rec_out_tbl(I).amount_includes_tax_flag <> l_l_line_adj_tbl(j).applied_flag -- added for bug#12895421
5672: THEN
5673: IF l_debug_level > 0 THEN
5666: THEN
5667: l_match_flag := 'Y';
5668: l_l_line_adj_tbl(J).OPERATION :=OE_GLOBALS.G_OPR_UPDATE;
5669: IF NOT OE_GLOBALS.Equal( l_tax_rec_out_tbl(I).tax_amount, l_l_line_adj_tbl(J).adjusted_amount)
5670: OR NOT OE_GLOBALS.Equal(l_tax_rec_out_tbl(I).tax_rate, l_l_line_adj_tbl(J).operand)
5671: OR l_tax_rec_out_tbl(I).amount_includes_tax_flag <> l_l_line_adj_tbl(j).applied_flag -- added for bug#12895421
5672: THEN
5673: IF l_debug_level > 0 THEN
5674: oe_debug_pub.add('Updating the Adj record '|| TO_CHAR(l_l_line_adj_tbl(J).price_adjustment_id),2);
5681: applied_flag = Nvl(l_tax_rec_out_tbl(I).amount_includes_tax_flag,'N'),--for bug#12895421
5682: LAST_UPDATED_BY = FND_GLOBAL.USER_ID,
5683: LAST_UPDATE_LOGIN = FND_GLOBAL.LOGIN_ID
5684: WHERE price_adjustment_id = l_l_line_adj_tbl(J).price_adjustment_id;
5685: l_l_line_adj_tbl(J).OPERATION := OE_GLOBALS.G_OPR_UPDATE;
5686: l_match_flag := 'Y';
5687: END IF;
5688: EXIT; -- If match found then exit from loop .added for bug#1947306
5689: END IF; --- end if for tax record
5712: l_adj_rec.adjusted_amount := l_tax_rec_out_tbl(I).tax_amount;
5713: l_adj_rec.automatic_flag := 'N';
5714: l_adj_rec.list_line_type_code := 'TAX';
5715: l_adj_rec.arithmetic_operator := 'AMT';
5716: l_adj_rec.operation := OE_GLOBALS.g_opr_create;
5717: --TaxER start
5718: IF l_tax_rec_out_tbl(I).trx_level_type = 'FREIGHT_CHARGE' THEN
5719: l_adj_rec.parent_adjustment_id := l_tax_rec_out_tbl(i).trx_line_id; --TaxER
5720: END IF;
5782: -- lkxu, added for bug 1581188
5783: -- Logging delayed requests for Verify Payment if tax value
5784: -- has increased AND Payment Type Code is Credit Card.
5785: IF NVL(l_total_tax,0) > NVL(l_old_total_tax,0) AND l_payment_type_code = 'CREDIT_CARD' AND l_header_rec.booked_flag ='Y' THEN
5786: OE_delayed_requests_Pvt.log_request (p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
5787: p_entity_id => l_header_rec.header_id,
5788: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
5789: p_requesting_entity_id => l_header_rec.header_id,
5790: p_request_type => OE_GLOBALS.G_VERIFY_PAYMENT,
5784: -- has increased AND Payment Type Code is Credit Card.
5785: IF NVL(l_total_tax,0) > NVL(l_old_total_tax,0) AND l_payment_type_code = 'CREDIT_CARD' AND l_header_rec.booked_flag ='Y' THEN
5786: OE_delayed_requests_Pvt.log_request (p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
5787: p_entity_id => l_header_rec.header_id,
5788: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
5789: p_requesting_entity_id => l_header_rec.header_id,
5790: p_request_type => OE_GLOBALS.G_VERIFY_PAYMENT,
5791: x_return_status => l_return_status);
5792: -- bug 2238438, credit card collection project.
5786: OE_delayed_requests_Pvt.log_request (p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
5787: p_entity_id => l_header_rec.header_id,
5788: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
5789: p_requesting_entity_id => l_header_rec.header_id,
5790: p_request_type => OE_GLOBALS.G_VERIFY_PAYMENT,
5791: x_return_status => l_return_status);
5792: -- bug 2238438, credit card collection project.
5793: -- log delayed request for prepaid order even the tax value
5794: -- decreased, as a refund request might be needed.
5795: ELSIF NVL(l_total_tax,0) < NVL(l_old_total_tax,0) AND OE_PrePayment_UTIL.is_prepaid_order(l_header_rec.header_id) = 'Y' AND l_header_rec.booked_flag ='Y' AND l_payment_type_code = 'CREDIT_CARD' THEN
5796: IF l_debug_level > 0 THEN
5797: oe_debug_pub.ADD('Logging delayed request for Verify Payment for change in tax value for prepaid order',2);
5798: END IF;
5799: OE_delayed_requests_Pvt.log_request (p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
5800: p_entity_id => l_header_rec.header_id,
5801: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
5802: p_requesting_entity_id => l_header_rec.header_id,
5803: p_request_type => OE_GLOBALS.G_VERIFY_PAYMENT,
5797: oe_debug_pub.ADD('Logging delayed request for Verify Payment for change in tax value for prepaid order',2);
5798: END IF;
5799: OE_delayed_requests_Pvt.log_request (p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
5800: p_entity_id => l_header_rec.header_id,
5801: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
5802: p_requesting_entity_id => l_header_rec.header_id,
5803: p_request_type => OE_GLOBALS.G_VERIFY_PAYMENT,
5804: x_return_status => l_return_status);
5805: END IF;
5799: OE_delayed_requests_Pvt.log_request (p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
5800: p_entity_id => l_header_rec.header_id,
5801: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
5802: p_requesting_entity_id => l_header_rec.header_id,
5803: p_request_type => OE_GLOBALS.G_VERIFY_PAYMENT,
5804: x_return_status => l_return_status);
5805: END IF;
5806: -- Start fix for bug# 4378531
5807: -- end of change for bug 1581188
5812: IF NVL(l_payment_type_code, ' ') <> 'CREDIT_CARD' --bug 2679223
5813: AND NVL(l_call_credit_checking, 'Y') <> 'No_Credit_Checking' THEN
5814: IF NVL(l_total_tax, 0) > NVL(l_old_total_tax, 0) THEN
5815: oe_debug_pub.ADD('Logging delayed request for Verify Payment for change in tax value',2);
5816: OE_delayed_requests_Pvt.log_request (p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
5817: p_entity_id => l_header_rec.header_id,
5818: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
5819: p_requesting_entity_id => l_header_rec.header_id,
5820: p_request_type => OE_GLOBALS.G_VERIFY_PAYMENT,
5814: IF NVL(l_total_tax, 0) > NVL(l_old_total_tax, 0) THEN
5815: oe_debug_pub.ADD('Logging delayed request for Verify Payment for change in tax value',2);
5816: OE_delayed_requests_Pvt.log_request (p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
5817: p_entity_id => l_header_rec.header_id,
5818: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
5819: p_requesting_entity_id => l_header_rec.header_id,
5820: p_request_type => OE_GLOBALS.G_VERIFY_PAYMENT,
5821: x_return_status => l_return_status);
5822: ELSIF NVL(l_total_tax,0) < NVL(l_old_total_tax,0) THEN
5816: OE_delayed_requests_Pvt.log_request (p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
5817: p_entity_id => l_header_rec.header_id,
5818: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
5819: p_requesting_entity_id => l_header_rec.header_id,
5820: p_request_type => OE_GLOBALS.G_VERIFY_PAYMENT,
5821: x_return_status => l_return_status);
5822: ELSIF NVL(l_total_tax,0) < NVL(l_old_total_tax,0) THEN
5823: OE_delayed_requests_Pvt.log_request (p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
5824: p_entity_id => l_header_rec.header_id,
5819: p_requesting_entity_id => l_header_rec.header_id,
5820: p_request_type => OE_GLOBALS.G_VERIFY_PAYMENT,
5821: x_return_status => l_return_status);
5822: ELSIF NVL(l_total_tax,0) < NVL(l_old_total_tax,0) THEN
5823: OE_delayed_requests_Pvt.log_request (p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
5824: p_entity_id => l_header_rec.header_id,
5825: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
5826: p_requesting_entity_id => l_header_rec.header_id,
5827: p_request_type => OE_GLOBALS.G_VERIFY_PAYMENT,
5821: x_return_status => l_return_status);
5822: ELSIF NVL(l_total_tax,0) < NVL(l_old_total_tax,0) THEN
5823: OE_delayed_requests_Pvt.log_request (p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
5824: p_entity_id => l_header_rec.header_id,
5825: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
5826: p_requesting_entity_id => l_header_rec.header_id,
5827: p_request_type => OE_GLOBALS.G_VERIFY_PAYMENT,
5828: x_return_status => l_return_status);
5829: END IF;
5823: OE_delayed_requests_Pvt.log_request (p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
5824: p_entity_id => l_header_rec.header_id,
5825: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
5826: p_requesting_entity_id => l_header_rec.header_id,
5827: p_request_type => OE_GLOBALS.G_VERIFY_PAYMENT,
5828: x_return_status => l_return_status);
5829: END IF;
5830: END IF;
5831: -- End fix for bug# 4378531
5860: AND l_l_header_adj_tbl(j).line_id IS NULL
5861: THEN
5862: IF l_l_header_adj_tbl(J).list_line_type_code = 'TAX'
5863: AND l_l_header_adj_tbl(J).tax_rate_id = l_tax_rate_id
5864: AND l_l_header_adj_tbl(J).OPERATION <> OE_GLOBALS.G_OPR_UPDATE
5865: THEN
5866: l_match_flag := 'Y';
5867: l_l_header_adj_tbl(J).OPERATION :=OE_GLOBALS.G_OPR_UPDATE;
5868: IF NOT OE_GLOBALS.Equal( l_tax_rec_out_tbl(I).tax_amount, l_l_header_adj_tbl(J).adjusted_amount)
5863: AND l_l_header_adj_tbl(J).tax_rate_id = l_tax_rate_id
5864: AND l_l_header_adj_tbl(J).OPERATION <> OE_GLOBALS.G_OPR_UPDATE
5865: THEN
5866: l_match_flag := 'Y';
5867: l_l_header_adj_tbl(J).OPERATION :=OE_GLOBALS.G_OPR_UPDATE;
5868: IF NOT OE_GLOBALS.Equal( l_tax_rec_out_tbl(I).tax_amount, l_l_header_adj_tbl(J).adjusted_amount)
5869: OR NOT OE_GLOBALS.Equal(l_tax_rec_out_tbl(I).tax_rate, l_l_header_adj_tbl(J).operand)
5870: OR l_tax_rec_out_tbl(I).amount_includes_tax_flag <> l_l_header_adj_tbl(j).applied_flag -- added for bug#12895421
5871: THEN
5864: AND l_l_header_adj_tbl(J).OPERATION <> OE_GLOBALS.G_OPR_UPDATE
5865: THEN
5866: l_match_flag := 'Y';
5867: l_l_header_adj_tbl(J).OPERATION :=OE_GLOBALS.G_OPR_UPDATE;
5868: IF NOT OE_GLOBALS.Equal( l_tax_rec_out_tbl(I).tax_amount, l_l_header_adj_tbl(J).adjusted_amount)
5869: OR NOT OE_GLOBALS.Equal(l_tax_rec_out_tbl(I).tax_rate, l_l_header_adj_tbl(J).operand)
5870: OR l_tax_rec_out_tbl(I).amount_includes_tax_flag <> l_l_header_adj_tbl(j).applied_flag -- added for bug#12895421
5871: THEN
5872: IF l_debug_level > 0 THEN
5865: THEN
5866: l_match_flag := 'Y';
5867: l_l_header_adj_tbl(J).OPERATION :=OE_GLOBALS.G_OPR_UPDATE;
5868: IF NOT OE_GLOBALS.Equal( l_tax_rec_out_tbl(I).tax_amount, l_l_header_adj_tbl(J).adjusted_amount)
5869: OR NOT OE_GLOBALS.Equal(l_tax_rec_out_tbl(I).tax_rate, l_l_header_adj_tbl(J).operand)
5870: OR l_tax_rec_out_tbl(I).amount_includes_tax_flag <> l_l_header_adj_tbl(j).applied_flag -- added for bug#12895421
5871: THEN
5872: IF l_debug_level > 0 THEN
5873: oe_debug_pub.add('Updating the Adj record '|| TO_CHAR(l_l_header_adj_tbl(J).price_adjustment_id),2);
5880: applied_flag = Nvl(l_tax_rec_out_tbl(I).amount_includes_tax_flag,'N') , ----for bug#12895421
5881: LAST_UPDATED_BY = FND_GLOBAL.USER_ID,
5882: LAST_UPDATE_LOGIN = FND_GLOBAL.LOGIN_ID
5883: WHERE price_adjustment_id = l_l_header_adj_tbl(J).price_adjustment_id;
5884: l_l_header_adj_tbl(J).OPERATION := OE_GLOBALS.G_OPR_UPDATE;
5885: l_match_flag := 'Y';
5886: END IF;
5887: EXIT; -- If match found then exit from loop .added for bug#1947306
5888: END IF; --- end if for tax record
5911: l_h_adj_rec.adjusted_amount := l_tax_rec_out_tbl(I).tax_amount;
5912: l_h_adj_rec.automatic_flag := 'N';
5913: l_h_adj_rec.list_line_type_code := 'TAX';
5914: l_h_adj_rec.arithmetic_operator := 'AMT';
5915: l_h_adj_rec.operation := OE_GLOBALS.g_opr_create;
5916: --TaxER start
5917: IF l_tax_rec_out_tbl(I).trx_level_type = 'FREIGHT_CHARGE' THEN
5918: l_h_adj_rec.parent_adjustment_id := l_tax_rec_out_tbl(i).trx_line_id;
5919: END IF;
6086: --Here Loop for each Order Line
6087: FOR Cur_Ord_line in ord_line_cur(p_ord_header_id)
6088: LOOP
6089: j := j+1;
6090: IF cur_ord_line.item_type_code <> OE_GLOBALS.G_ITEM_STANDARD THEN
6091: fnd_message.set_name('ONT','ONT_ISO_ITEM_TYPE_NOT_STD');
6092: OE_MSG_PUB.Add;
6093: x_return_status := FND_API.G_RET_STS_ERROR;
6094: RAISE FND_API.G_EXC_ERROR;
6150: --Update the header with the requisition header id
6151: Update OE_Order_Headers
6152: set source_document_Id = l_req_header_rec.requisition_header_id
6153: ,orig_sys_document_ref = l_req_header_rec.segment1
6154: ,source_document_type_id = OE_GLOBALS.G_ORDER_SOURCE_INTERNAL -- i.e 10 for internal
6155: ,order_source_id = OE_GLOBALS.G_ORDER_SOURCE_INTERNAL --i.e 10 for internal
6156: Where header_id = p_ord_header_id;
6157: oe_debug_pub.add('auto_create_internal_req after hdr update ',2);
6158: -- Update the lines with the requisition header and requisition line ids, requisition number and line number
6151: Update OE_Order_Headers
6152: set source_document_Id = l_req_header_rec.requisition_header_id
6153: ,orig_sys_document_ref = l_req_header_rec.segment1
6154: ,source_document_type_id = OE_GLOBALS.G_ORDER_SOURCE_INTERNAL -- i.e 10 for internal
6155: ,order_source_id = OE_GLOBALS.G_ORDER_SOURCE_INTERNAL --i.e 10 for internal
6156: Where header_id = p_ord_header_id;
6157: oe_debug_pub.add('auto_create_internal_req after hdr update ',2);
6158: -- Update the lines with the requisition header and requisition line ids, requisition number and line number
6159:
6163: BEGIN
6164: Update Oe_Order_lines
6165: Set source_document_id = l_req_header_rec.requisition_header_id
6166: ,source_document_line_id = l_req_line_tbl(k).requisition_line_id
6167: ,source_document_type_id = OE_GLOBALS.G_ORDER_SOURCE_INTERNAL -- i.e 10 for internal
6168: ,orig_sys_document_ref= l_req_header_rec.segment1
6169: ,orig_sys_line_ref = l_req_line_tbl(k).line_num
6170: where oe_order_lines.line_id = l_req_line_tbl(k).source_doc_line_reference;
6171: END;
6573: --find and insert lines for that header
6574: WHILE l_count IS NOT NULL LOOP
6575:
6576: --Check to see if this is a line-level xml request for the same transaction type and header id
6577: IF OE_Delayed_Requests_PVT.G_Delayed_Requests(l_count).request_type = OE_GLOBALS.G_GENERATE_XML_REQ_LN
6578: AND OE_Delayed_Requests_PVT.G_Delayed_Requests(l_count).param1 = l_header_id
6579: AND nvl(OE_Delayed_Requests_PVT.G_Delayed_Requests(l_count).param7, 'INT') = nvl(l_acknowledgment_type, 'INT') THEN
6580:
6581: -- add this line to the lines table for insertion