[Home] [Help]
190: --for bug 3108881.Log the request for Orders only
191: IF nvl(update_line.transaction_phase_code,'F') = 'F' THEN
192:
193: OE_Delayed_Requests_Pvt.Log_Request
194: (p_entity_code => OE_GLOBALS.G_ENTITY_ALL
195: ,p_entity_id => update_line.line_id
196: ,p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE
197: ,p_requesting_entity_id => update_line.line_id
198: ,p_request_type => OE_GLOBALS.G_PROCESS_RELEASE
192:
193: OE_Delayed_Requests_Pvt.Log_Request
194: (p_entity_code => OE_GLOBALS.G_ENTITY_ALL
195: ,p_entity_id => update_line.line_id
196: ,p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE
197: ,p_requesting_entity_id => update_line.line_id
198: ,p_request_type => OE_GLOBALS.G_PROCESS_RELEASE
199: -- Old values
200: ,p_param1 => update_line.blanket_number
194: (p_entity_code => OE_GLOBALS.G_ENTITY_ALL
195: ,p_entity_id => update_line.line_id
196: ,p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE
197: ,p_requesting_entity_id => update_line.line_id
198: ,p_request_type => OE_GLOBALS.G_PROCESS_RELEASE
199: -- Old values
200: ,p_param1 => update_line.blanket_number
201: ,p_param2 => update_line.blanket_line_number
202: ,p_param3 => update_line.ordered_quantity
225: END IF;
226:
227: IF update_line.line_set_id IS NOT NULL THEN
228: OE_Delayed_Requests_Pvt.Log_Request
229: (p_entity_code => OE_GLOBALS.G_ENTITY_ALL
230: ,p_entity_id => update_line.line_set_id
231: ,p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE
232: ,p_requesting_entity_id => update_line.line_id
233: ,p_request_type => 'VALIDATE_RELEASE_SHIPMENTS'
227: IF update_line.line_set_id IS NOT NULL THEN
228: OE_Delayed_Requests_Pvt.Log_Request
229: (p_entity_code => OE_GLOBALS.G_ENTITY_ALL
230: ,p_entity_id => update_line.line_set_id
231: ,p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE
232: ,p_requesting_entity_id => update_line.line_id
233: ,p_request_type => 'VALIDATE_RELEASE_SHIPMENTS'
234: ,p_request_unique_key1 => update_line.blanket_number
235: ,p_request_unique_key2 => update_line.blanket_line_number
252: AND OE_Commitment_Pvt.Do_Commitment_Sequencing THEN
253:
254: oe_debug_pub.add('Logging delayed request for Commitment.', 2);
255: OE_Delayed_Requests_Pvt.Log_Request(
256: p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
257: p_entity_id => update_line.line_id,
258: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
259: p_requesting_entity_id => update_line.line_id,
260: p_request_type => OE_GLOBALS.G_CALCULATE_COMMITMENT,
254: oe_debug_pub.add('Logging delayed request for Commitment.', 2);
255: OE_Delayed_Requests_Pvt.Log_Request(
256: p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
257: p_entity_id => update_line.line_id,
258: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
259: p_requesting_entity_id => update_line.line_id,
260: p_request_type => OE_GLOBALS.G_CALCULATE_COMMITMENT,
261: x_return_status => l_return_status);
262:
256: p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
257: p_entity_id => update_line.line_id,
258: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
259: p_requesting_entity_id => update_line.line_id,
260: p_request_type => OE_GLOBALS.G_CALCULATE_COMMITMENT,
261: x_return_status => l_return_status);
262:
263: END IF;
264:
281: --Delete all related adjustments
282: oe_line_adj_util.delete_row(p_line_id => p_line_rec.line_id);
283:
284: --set cascade flag to reflect changes.
285: OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
286: Oe_Debug_Pub.add('Leaving reset_fields');
287: Exception When Others Then
288: Oe_Debug_Pub.add('In procedure reset_fields:'||SQLERRM);
289: End;
316:
317: PROCEDURE Header_Adjs
318: ( p_init_msg_list IN VARCHAR2:=FND_API.G_FALSE
319: , p_validation_level IN NUMBER
320: , p_control_rec IN OE_GLOBALS.Control_Rec_Type
321: , p_x_Header_Adj_tbl IN OUT NOCOPY OE_Order_PUB.Header_Adj_Tbl_Type
322: , p_x_old_Header_Adj_tbl IN OUT NOCOPY OE_Order_PUB.Header_Adj_Tbl_Type
323: )
324: IS
322: , p_x_old_Header_Adj_tbl IN OUT NOCOPY OE_Order_PUB.Header_Adj_Tbl_Type
323: )
324: IS
325: l_return_status VARCHAR2(1);
326: l_control_rec OE_GLOBALS.Control_Rec_Type;
327: l_Header_Adj_rec OE_Order_PUB.Header_Adj_Rec_Type;
328: l_old_Header_Adj_rec OE_Order_PUB.Header_Adj_Rec_Type;
329: -- local variables to store OUT parameters from security check procedures
330: l_sec_result NUMBER;
468: end if;
469:
470: -- Load API control record
471:
472: l_control_rec := OE_GLOBALS.Init_Control_Rec
473: ( p_operation => l_Header_Adj_rec.operation
474: , p_control_rec => p_control_rec
475: );
476:
480: p_x_Header_Adj_tbl(I).return_status := FND_API.G_RET_STS_SUCCESS;
481:
482: -- Prepare record.
483:
484: IF l_Header_Adj_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
485:
486: l_Header_Adj_rec.db_flag := FND_API.G_FALSE;
487:
488: -- Set missing old record elements to NULL.
493: OE_Header_Adj_Util.Convert_Miss_To_Null (l_old_Header_Adj_rec);
494: */
495: OE_Header_Adj_Util.Convert_Miss_To_Null(l_old_Header_Adj_rec);
496:
497: ELSIF l_Header_Adj_rec.operation = OE_GLOBALS.G_OPR_UPDATE
498: OR l_Header_Adj_rec.operation = OE_GLOBALS.G_OPR_DELETE
499: THEN
500:
501: l_Header_Adj_rec.db_flag := FND_API.G_TRUE;
494: */
495: OE_Header_Adj_Util.Convert_Miss_To_Null(l_old_Header_Adj_rec);
496:
497: ELSIF l_Header_Adj_rec.operation = OE_GLOBALS.G_OPR_UPDATE
498: OR l_Header_Adj_rec.operation = OE_GLOBALS.G_OPR_DELETE
499: THEN
500:
501: l_Header_Adj_rec.db_flag := FND_API.G_TRUE;
502:
543: END IF;
544:
545: -- Check security
546: IF l_control_rec.check_security
547: AND (l_header_adj_rec.operation = OE_GLOBALS.G_OPR_CREATE
548: OR l_header_adj_rec.operation = OE_GLOBALS.G_OPR_UPDATE)
549: THEN
550:
551: adj_debug('Check Attributes Security');
544:
545: -- Check security
546: IF l_control_rec.check_security
547: AND (l_header_adj_rec.operation = OE_GLOBALS.G_OPR_CREATE
548: OR l_header_adj_rec.operation = OE_GLOBALS.G_OPR_UPDATE)
549: THEN
550:
551: adj_debug('Check Attributes Security');
552: -- check if this operation is allowed
636: -- Entity level validation.
637:
638: IF l_control_rec.validate_entity THEN
639:
640: IF l_Header_Adj_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
641:
642: OE_Validate_Header_Adj.Entity_Delete
643: ( x_return_status => l_return_status
644: , p_Header_Adj_rec => l_Header_Adj_rec
665: -- Check entity level security again as some attributes
666: -- may have changed due to defaulting.
667: --IF l_control_rec.check_security THEN
668: --bug5467785
669: IF NOT (l_Header_Adj_rec.operation = OE_GLOBALS.G_OPR_UPDATE
670: AND OE_Header_Adj_Security.g_check_all_cols_constraint = 'Y')
671: AND l_control_rec.check_security THEN
672:
673: adj_debug('Check Entity Security');
703:
704: oe_debug_pub.add('OEXVADJB:After calling to insert audit history');
705: /* End AuditTrail */
706:
707: IF l_Header_Adj_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
708:
709: OE_Header_Adj_Util.Delete_Row
710: ( p_price_adjustment_id => l_Header_Adj_rec.price_adjustment_id
711: );
715: -- NOTE: Requesting entity is header, not header adj. as the adj. itself
716: -- has been deleted and this request should be deleted when the order is
717: -- deleted. Should be revisited if the entity logged against is changed
718: -- to header.
719: IF OE_Globals.G_RECURSION_MODE <> 'Y' AND
720: l_header_adj_rec.list_line_type_code NOT IN ('COST','TAX')
721: then
722:
723: adj_debug('Log header level PRICE_ADJ');
720: l_header_adj_rec.list_line_type_code NOT IN ('COST','TAX')
721: then
722:
723: adj_debug('Log header level PRICE_ADJ');
724: oe_delayed_requests_pvt.log_request(p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
725: p_entity_id => l_header_adj_rec.Header_id,
726: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_HEADER,
727: p_requesting_entity_id => l_header_adj_rec.HEader_id,
728: p_request_type => OE_GLOBALS.G_PRICE_ADJ,
722:
723: adj_debug('Log header level PRICE_ADJ');
724: oe_delayed_requests_pvt.log_request(p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
725: p_entity_id => l_header_adj_rec.Header_id,
726: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_HEADER,
727: p_requesting_entity_id => l_header_adj_rec.HEader_id,
728: p_request_type => OE_GLOBALS.G_PRICE_ADJ,
729: x_return_status => l_return_status);
730: End If;
724: oe_delayed_requests_pvt.log_request(p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
725: p_entity_id => l_header_adj_rec.Header_id,
726: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_HEADER,
727: p_requesting_entity_id => l_header_adj_rec.HEader_id,
728: p_request_type => OE_GLOBALS.G_PRICE_ADJ,
729: x_return_status => l_return_status);
730: End If;
731:
732: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
742: l_Header_Adj_rec.last_update_date := SYSDATE;
743: l_Header_Adj_rec.last_updated_by := FND_GLOBAL.USER_ID;
744: l_Header_Adj_rec.last_update_login := FND_GLOBAL.LOGIN_ID;
745:
746: IF l_Header_Adj_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
747:
748: OE_Header_Adj_Util.Update_Row (l_Header_Adj_rec);
749:
750: ELSIF l_Header_Adj_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
746: IF l_Header_Adj_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
747:
748: OE_Header_Adj_Util.Update_Row (l_Header_Adj_rec);
749:
750: ELSIF l_Header_Adj_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
751:
752: l_Header_Adj_rec.creation_date := SYSDATE;
753: l_Header_Adj_rec.created_by := FND_GLOBAL.USER_ID;
754:
816: p_x_header_adj_tbl(I) := l_Header_Adj_rec;
817: p_x_old_Header_Adj_tbl(I) := l_old_Header_Adj_rec;
818: OE_Header_Adj_Security.g_check_all_cols_constraint := 'Y';
819: OE_MSG_PUB.reset_msg_context('HEADER_ADJ');
820: oe_delayed_requests_pvt.delete_request(p_entity_code =>OE_GLOBALS.G_ENTITY_HEADER_ADJ,
821: p_entity_id => l_header_adj_rec.Price_adjustment_id,
822: p_request_type => NULL,
823: x_return_status => l_return_status);
824: IF l_control_rec.Process_Partial THEN
834: p_x_header_adj_tbl(I) := l_Header_Adj_rec;
835: p_x_old_Header_Adj_tbl(I) := l_old_Header_Adj_rec;
836: OE_Header_Adj_Security.g_check_all_cols_constraint := 'Y';
837: OE_MSG_PUB.reset_msg_context('HEADER_ADJ');
838: oe_delayed_requests_pvt.delete_request(p_entity_code =>OE_GLOBALS.G_ENTITY_HEADER_ADJ,
839: p_entity_id => l_header_adj_rec.Price_adjustment_id,
840: p_request_type => NULL,
841: x_return_status => l_return_status);
842: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
846: l_Header_Adj_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
847: p_x_header_adj_tbl(I) := l_Header_Adj_rec;
848: p_x_old_Header_Adj_tbl(I) := l_old_Header_Adj_rec;
849: OE_Header_Adj_Security.g_check_all_cols_constraint := 'Y';
850: oe_delayed_requests_pvt.delete_request(p_entity_code =>OE_GLOBALS.G_ENTITY_HEADER_ADJ,
851: p_entity_id => l_header_adj_rec.Price_adjustment_id,
852: p_request_type => NULL,
853: x_return_status => l_return_status);
854:
913:
914: PROCEDURE Line_Adjs
915: ( p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
916: , p_validation_level IN NUMBER
917: , p_control_rec IN OE_GLOBALS.Control_Rec_Type
918: , p_x_Line_Adj_tbl IN OUT NOCOPY OE_Order_PUB.Line_Adj_Tbl_Type
919: , p_x_old_Line_Adj_tbl IN OUT NOCOPY OE_Order_PUB.Line_Adj_Tbl_Type
920: )
921: IS
919: , p_x_old_Line_Adj_tbl IN OUT NOCOPY OE_Order_PUB.Line_Adj_Tbl_Type
920: )
921: IS
922: l_return_status VARCHAR2(1);
923: l_control_rec OE_GLOBALS.Control_Rec_Type;
924: l_Line_Adj_rec OE_Order_PUB.Line_Adj_Rec_Type;
925: l_old_Line_Adj_rec OE_Order_PUB.Line_Adj_Rec_Type;
926: -- local variables to store OUT parameters from security check procedures
927: l_sec_result NUMBER;
1088: end if;
1089:
1090: -- Load API control record
1091:
1092: l_control_rec := OE_GLOBALS.Init_Control_Rec
1093: ( p_operation => l_Line_Adj_rec.operation
1094: , p_control_rec => p_control_rec
1095: );
1096:
1100: p_x_line_adj_tbl(I).return_status := FND_API.G_RET_STS_SUCCESS;
1101:
1102: -- Prepare record.
1103:
1104: IF l_Line_Adj_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
1105:
1106: l_Line_Adj_rec.db_flag := FND_API.G_FALSE;
1107:
1108: -- Set missing old record elements to NULL.
1110: -- l_old_Line_Adj_rec :=
1111: OE_Line_Adj_Util.Convert_Miss_To_Null (l_old_Line_Adj_rec);
1112: --bug 2721485 Begin
1113: adj_debug('Line id :'||l_line_adj_rec.line_id,3);
1114: if OE_GLOBALS.G_PRICING_RECURSION = 'N' and
1115: l_line_adj_rec.line_id is not null then
1116: if l_last_line_id = l_line_adj_rec.line_id
1117: and l_line_found = 'Y' then
1118: null;
1147: end if;
1148: end if;
1149: --bug 2721485 End
1150:
1151: ELSIF l_Line_Adj_rec.operation = OE_GLOBALS.G_OPR_UPDATE
1152: OR l_Line_Adj_rec.operation = OE_GLOBALS.G_OPR_DELETE
1153: THEN
1154:
1155: l_Line_Adj_rec.db_flag := FND_API.G_TRUE;
1148: end if;
1149: --bug 2721485 End
1150:
1151: ELSIF l_Line_Adj_rec.operation = OE_GLOBALS.G_OPR_UPDATE
1152: OR l_Line_Adj_rec.operation = OE_GLOBALS.G_OPR_DELETE
1153: THEN
1154:
1155: l_Line_Adj_rec.db_flag := FND_API.G_TRUE;
1156:
1200: END IF;
1201:
1202: -- Check security
1203: IF l_control_rec.check_security
1204: AND (l_line_adj_rec.operation = OE_GLOBALS.G_OPR_CREATE
1205: OR l_line_adj_rec.operation = OE_GLOBALS.G_OPR_UPDATE)
1206: THEN
1207:
1208: adj_debug('Check Attributes Security',2);
1201:
1202: -- Check security
1203: IF l_control_rec.check_security
1204: AND (l_line_adj_rec.operation = OE_GLOBALS.G_OPR_CREATE
1205: OR l_line_adj_rec.operation = OE_GLOBALS.G_OPR_UPDATE)
1206: THEN
1207:
1208: adj_debug('Check Attributes Security',2);
1209: -- check if this operation is allowed
1321: -- Entity level validation.
1322:
1323: IF l_control_rec.validate_entity THEN
1324:
1325: IF l_Line_Adj_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
1326:
1327: OE_Validate_Line_Adj.Entity_Delete
1328: ( x_return_status => l_return_status
1329: , p_Line_Adj_rec => l_Line_Adj_rec
1392: p_old_line_adj_rec => l_old_line_adj_rec);
1393: OE_DEBUG_PUB.add('OEXVADJB:After calling to insert audit history for line adj from pre_write_process', 2);
1394: /* End AuditTrail */
1395:
1396: IF l_Line_Adj_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
1397:
1398: OE_Line_Adj_Util.Delete_Row
1399: ( p_price_adjustment_id => l_Line_Adj_rec.price_adjustment_id
1400: );
1404: -- NOTE: Requesting entity is line, not line adj. as the adj. itself
1405: -- has been deleted and this request should be deleted when the line gets
1406: -- deleted. Should be revisited if the entity logged against is changed
1407: -- to line.
1408: IF OE_Globals.G_RECURSION_MODE <> 'Y' and
1409: l_Line_adj_rec.list_line_type_code NOT IN ('COST','TAX')
1410: THEN
1411:
1412: /* 1905650 - G_PRICE_ADJ request should be logged against LINE entity,
1415: */
1416:
1417: if (l_line_adj_rec.line_id is NULL) Then
1418: oe_delayed_requests_pvt.log_request(
1419: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
1420: p_entity_id => l_Line_adj_rec.header_id,
1421: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_HEADER,
1422: p_requesting_entity_id => l_Line_adj_rec.header_id,
1423: p_request_type => OE_GLOBALS.G_PRICE_ADJ,
1417: if (l_line_adj_rec.line_id is NULL) Then
1418: oe_delayed_requests_pvt.log_request(
1419: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
1420: p_entity_id => l_Line_adj_rec.header_id,
1421: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_HEADER,
1422: p_requesting_entity_id => l_Line_adj_rec.header_id,
1423: p_request_type => OE_GLOBALS.G_PRICE_ADJ,
1424: x_return_status => l_return_status);
1425: else
1419: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
1420: p_entity_id => l_Line_adj_rec.header_id,
1421: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_HEADER,
1422: p_requesting_entity_id => l_Line_adj_rec.header_id,
1423: p_request_type => OE_GLOBALS.G_PRICE_ADJ,
1424: x_return_status => l_return_status);
1425: else
1426: If OE_GLOBALS.G_UI_FLAG and nvl(l_Line_adj_rec.automatic_flag,'Y') = 'N' Then
1427: oe_delayed_requests_pvt.log_request(
1422: p_requesting_entity_id => l_Line_adj_rec.header_id,
1423: p_request_type => OE_GLOBALS.G_PRICE_ADJ,
1424: x_return_status => l_return_status);
1425: else
1426: If OE_GLOBALS.G_UI_FLAG and nvl(l_Line_adj_rec.automatic_flag,'Y') = 'N' Then
1427: oe_delayed_requests_pvt.log_request(
1428: p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
1429: p_entity_id => l_Line_adj_rec.Line_id,
1430: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE_ADJ,
1424: x_return_status => l_return_status);
1425: else
1426: If OE_GLOBALS.G_UI_FLAG and nvl(l_Line_adj_rec.automatic_flag,'Y') = 'N' Then
1427: oe_delayed_requests_pvt.log_request(
1428: p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
1429: p_entity_id => l_Line_adj_rec.Line_id,
1430: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE_ADJ,
1431: p_requesting_entity_id => l_Line_adj_rec.Line_id,
1432: p_request_type => OE_GLOBALS.G_PRICE_ADJ,
1426: If OE_GLOBALS.G_UI_FLAG and nvl(l_Line_adj_rec.automatic_flag,'Y') = 'N' Then
1427: oe_delayed_requests_pvt.log_request(
1428: p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
1429: p_entity_id => l_Line_adj_rec.Line_id,
1430: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE_ADJ,
1431: p_requesting_entity_id => l_Line_adj_rec.Line_id,
1432: p_request_type => OE_GLOBALS.G_PRICE_ADJ,
1433: p_param1 => 'UI',
1434: x_return_status => l_return_status);
1428: p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
1429: p_entity_id => l_Line_adj_rec.Line_id,
1430: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE_ADJ,
1431: p_requesting_entity_id => l_Line_adj_rec.Line_id,
1432: p_request_type => OE_GLOBALS.G_PRICE_ADJ,
1433: p_param1 => 'UI',
1434: x_return_status => l_return_status);
1435:
1436: else
1434: x_return_status => l_return_status);
1435:
1436: else
1437: oe_delayed_requests_pvt.log_request(
1438: p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
1439: p_entity_id => l_Line_adj_rec.Line_id,
1440: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
1441: p_requesting_entity_id => l_Line_adj_rec.Line_id,
1442: p_request_type => OE_GLOBALS.G_PRICE_ADJ,
1436: else
1437: oe_delayed_requests_pvt.log_request(
1438: p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
1439: p_entity_id => l_Line_adj_rec.Line_id,
1440: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
1441: p_requesting_entity_id => l_Line_adj_rec.Line_id,
1442: p_request_type => OE_GLOBALS.G_PRICE_ADJ,
1443: x_return_status => l_return_status);
1444: end if;
1438: p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
1439: p_entity_id => l_Line_adj_rec.Line_id,
1440: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
1441: p_requesting_entity_id => l_Line_adj_rec.Line_id,
1442: p_request_type => OE_GLOBALS.G_PRICE_ADJ,
1443: x_return_status => l_return_status);
1444: end if;
1445: end if;
1446: End If;
1459: l_Line_Adj_rec.last_update_date := SYSDATE;
1460: l_Line_Adj_rec.last_updated_by := FND_GLOBAL.USER_ID;
1461: l_Line_Adj_rec.last_update_login := FND_GLOBAL.LOGIN_ID;
1462:
1463: IF l_Line_Adj_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
1464: oe_debug_pub.add(' updating list line id:'||l_Line_Adj_rec.list_line_id);
1465: oe_debug_pub.add(' l_line_adj_rec adjusted_amount:'||l_Line_Adj_rec.adjusted_amount);
1466: oe_debug_pub.add(' line_id:'||l_Line_Adj_rec.line_id);
1467: OE_Line_Adj_Util.Update_Row (l_Line_Adj_rec);
1465: oe_debug_pub.add(' l_line_adj_rec adjusted_amount:'||l_Line_Adj_rec.adjusted_amount);
1466: oe_debug_pub.add(' line_id:'||l_Line_Adj_rec.line_id);
1467: OE_Line_Adj_Util.Update_Row (l_Line_Adj_rec);
1468:
1469: ELSIF l_Line_Adj_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
1470:
1471: l_Line_Adj_rec.creation_date := SYSDATE;
1472: l_Line_Adj_rec.created_by := FND_GLOBAL.USER_ID;
1473:
1543: p_x_Line_Adj_tbl(I) := l_Line_Adj_rec;
1544: p_x_old_Line_Adj_tbl(I) := l_old_Line_Adj_rec;
1545: OE_Line_Adj_Security.g_check_all_cols_constraint := 'Y';
1546: OE_MSG_PUB.reset_msg_context('LINE_ADJ');
1547: oe_delayed_requests_pvt.delete_request(p_entity_code =>OE_GLOBALS.G_ENTITY_LINE_ADJ,
1548: p_entity_id => l_line_adj_rec.Price_adjustment_id,
1549: p_request_type => NULL,
1550: x_return_status => l_return_status);
1551: IF l_control_rec.Process_Partial THEN
1560: p_x_Line_Adj_tbl(I) := l_Line_Adj_rec;
1561: p_x_old_Line_Adj_tbl(I) := l_old_Line_Adj_rec;
1562: OE_Line_Adj_Security.g_check_all_cols_constraint := 'Y';
1563: OE_MSG_PUB.reset_msg_context('LINE_ADJ');
1564: oe_delayed_requests_pvt.delete_request(p_entity_code =>OE_GLOBALS.G_ENTITY_LINE_ADJ,
1565: p_entity_id => l_line_adj_rec.Price_adjustment_id,
1566: p_request_type => NULL,
1567: x_return_status => l_return_status);
1568: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1572: l_Line_Adj_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1573: p_x_Line_Adj_tbl(I) := l_Line_Adj_rec;
1574: p_x_old_Line_Adj_tbl(I) := l_old_Line_Adj_rec;
1575: OE_Line_Adj_Security.g_check_all_cols_constraint := 'Y';
1576: oe_delayed_requests_pvt.delete_request(p_entity_code =>OE_GLOBALS.G_ENTITY_LINE_ADJ,
1577: p_entity_id => l_line_adj_rec.Price_adjustment_id,
1578: p_request_type => NULL,
1579: x_return_status => l_return_status);
1580:
1640:
1641: PROCEDURE HEader_Price_Atts
1642: ( p_init_msg_list IN VARCHAR2:=FND_API.G_FALSE
1643: , p_validation_level IN NUMBER
1644: , p_control_rec IN OE_GLOBALS.Control_Rec_Type
1645: , p_x_HEader_Price_Att_tbl IN OUT NOCOPY OE_Order_PUB.HEader_Price_Att_Tbl_Type
1646: , p_x_old_HEader_Price_Att_tbl IN OUT NOCOPY OE_Order_PUB.HEader_Price_Att_Tbl_Type
1647: )
1648: is
1646: , p_x_old_HEader_Price_Att_tbl IN OUT NOCOPY OE_Order_PUB.HEader_Price_Att_Tbl_Type
1647: )
1648: is
1649: l_return_status VARCHAR2(1);
1650: l_control_rec OE_GLOBALS.Control_Rec_Type;
1651: l_Header_Price_Att_rec OE_Order_PUB.Header_Price_Att_Rec_Type;
1652: l_old_Header_Price_Att_rec OE_Order_PUB.Header_Price_Att_Rec_Type;
1653: -- local variables to store OUT parameters from security check procedures
1654: l_sec_result NUMBER;
1789: end if;
1790:
1791: -- Load API control record
1792:
1793: l_control_rec := OE_GLOBALS.Init_Control_Rec
1794: ( p_operation => l_Header_Price_Att_rec.operation
1795: , p_control_rec => p_control_rec
1796: );
1797:
1801:
1802: oe_debug_pub.add(' After initializing record,operation:'||l_Header_Price_Att_rec.operation);
1803: -- Prepare record.
1804:
1805: IF l_Header_Price_Att_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
1806:
1807: l_Header_Price_Att_rec.db_flag := FND_API.G_FALSE;
1808:
1809: -- Set missing old record elements to NULL.
1811: oe_debug_pub.add('Entering OE_Header_Price_Att_Util.Convert_Miss_To_Null', 2);
1812: -- l_old_Header_Price_Att_rec :=
1813: OE_Header_PAttr_Util.Convert_Miss_To_Null (l_old_Header_Price_Att_rec);
1814:
1815: ELSIF l_Header_Price_Att_rec.operation = OE_GLOBALS.G_OPR_UPDATE
1816: OR l_Header_Price_Att_rec.operation = OE_GLOBALS.G_OPR_DELETE
1817: THEN
1818:
1819: l_Header_Price_Att_rec.db_flag := FND_API.G_TRUE;
1812: -- l_old_Header_Price_Att_rec :=
1813: OE_Header_PAttr_Util.Convert_Miss_To_Null (l_old_Header_Price_Att_rec);
1814:
1815: ELSIF l_Header_Price_Att_rec.operation = OE_GLOBALS.G_OPR_UPDATE
1816: OR l_Header_Price_Att_rec.operation = OE_GLOBALS.G_OPR_DELETE
1817: THEN
1818:
1819: l_Header_Price_Att_rec.db_flag := FND_API.G_TRUE;
1820:
1925: -- Entity level validation.
1926:
1927: IF l_control_rec.validate_entity THEN
1928:
1929: IF l_Header_Price_Att_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
1930:
1931: OE_Validate_Header_Pattr.Entity_Delete
1932: ( x_return_status => l_return_status
1933: , p_Header_Price_Attr_rec => l_Header_Price_Att_rec
1956: -- Step 4. Write to DB
1957:
1958: IF l_control_rec.write_to_db THEN
1959:
1960: IF l_Header_Price_Att_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
1961:
1962: OE_Header_PAttr_Util.Delete_Row
1963: ( p_order_price_attrib_id => l_Header_Price_Att_rec.order_price_attrib_id
1964: );
1967: -- record
1968: --2442012
1969:
1970: /* OE_delayed_requests_Pvt.log_request(
1971: p_entity_code => OE_GLOBALS.G_ENTITY_HEader_Price_Att,
1972: p_entity_id => l_Header_Price_Att_Rec.Header_Id,
1973: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_HEader_Price_Att,
1974: p_requesting_entity_id => l_Header_Price_Att_Rec.Header_Id,
1975: p_param1 => l_Header_Price_Att_Rec.Header_Id,
1969:
1970: /* OE_delayed_requests_Pvt.log_request(
1971: p_entity_code => OE_GLOBALS.G_ENTITY_HEader_Price_Att,
1972: p_entity_id => l_Header_Price_Att_Rec.Header_Id,
1973: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_HEader_Price_Att,
1974: p_requesting_entity_id => l_Header_Price_Att_Rec.Header_Id,
1975: p_param1 => l_Header_Price_Att_Rec.Header_Id,
1976: p_param2 => 'LINE',
1977: p_request_type => OE_GLOBALS.G_PRICE_ORDER,
1973: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_HEader_Price_Att,
1974: p_requesting_entity_id => l_Header_Price_Att_Rec.Header_Id,
1975: p_param1 => l_Header_Price_Att_Rec.Header_Id,
1976: p_param2 => 'LINE',
1977: p_request_type => OE_GLOBALS.G_PRICE_ORDER,
1978: x_return_status => l_return_status);
1979:
1980: OE_delayed_requests_Pvt.log_request(
1981: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
1977: p_request_type => OE_GLOBALS.G_PRICE_ORDER,
1978: x_return_status => l_return_status);
1979:
1980: OE_delayed_requests_Pvt.log_request(
1981: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
1982: p_entity_id => l_Header_Price_Att_Rec.Header_Id,
1983: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_ALL,
1984: p_requesting_entity_id => l_Header_Price_Att_Rec.Header_Id,
1985: p_param1 => l_Header_Price_Att_Rec.Header_Id,
1979:
1980: OE_delayed_requests_Pvt.log_request(
1981: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
1982: p_entity_id => l_Header_Price_Att_Rec.Header_Id,
1983: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_ALL,
1984: p_requesting_entity_id => l_Header_Price_Att_Rec.Header_Id,
1985: p_param1 => l_Header_Price_Att_Rec.Header_Id,
1986: p_param2 => 'ORDER',
1987: p_request_type => OE_GLOBALS.G_PRICE_ORDER,
1983: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_ALL,
1984: p_requesting_entity_id => l_Header_Price_Att_Rec.Header_Id,
1985: p_param1 => l_Header_Price_Att_Rec.Header_Id,
1986: p_param2 => 'ORDER',
1987: p_request_type => OE_GLOBALS.G_PRICE_ORDER,
1988: x_return_status => l_return_status);
1989: */
1990: Begin
1991: -- use order_header cache instead of sql : bug 4200055
2010:
2011: If l_booked_flag='Y' Then
2012: l_pricing_event := 'BATCH,BOOK,SHIP';
2013: /* OE_delayed_requests_Pvt.log_request(
2014: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
2015: p_entity_id => l_Header_Price_Att_Rec.Header_Id,
2016: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_ALL,
2017: p_requesting_entity_id => l_Header_Price_Att_Rec.Header_Id,
2018: p_param1 => l_Header_Price_Att_Rec.Header_Id,
2012: l_pricing_event := 'BATCH,BOOK,SHIP';
2013: /* OE_delayed_requests_Pvt.log_request(
2014: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
2015: p_entity_id => l_Header_Price_Att_Rec.Header_Id,
2016: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_ALL,
2017: p_requesting_entity_id => l_Header_Price_Att_Rec.Header_Id,
2018: p_param1 => l_Header_Price_Att_Rec.Header_Id,
2019: p_param2 => 'BOOK',
2020: p_request_type => OE_GLOBALS.G_PRICE_ORDER,
2016: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_ALL,
2017: p_requesting_entity_id => l_Header_Price_Att_Rec.Header_Id,
2018: p_param1 => l_Header_Price_Att_Rec.Header_Id,
2019: p_param2 => 'BOOK',
2020: p_request_type => OE_GLOBALS.G_PRICE_ORDER,
2021: x_return_status => l_return_status);
2022: */
2023: Else
2024: l_pricing_event := 'BATCH';
2024: l_pricing_event := 'BATCH';
2025: End If;
2026:
2027: OE_delayed_requests_Pvt.log_request(
2028: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
2029: p_entity_id => l_Header_Price_Att_Rec.Header_Id,
2030: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_ALL,
2031: p_requesting_entity_id => l_Header_Price_Att_Rec.Header_Id,
2032: p_request_unique_key1 => l_pricing_event,
2026:
2027: OE_delayed_requests_Pvt.log_request(
2028: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
2029: p_entity_id => l_Header_Price_Att_Rec.Header_Id,
2030: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_ALL,
2031: p_requesting_entity_id => l_Header_Price_Att_Rec.Header_Id,
2032: p_request_unique_key1 => l_pricing_event,
2033: p_param1 => l_Header_Price_Att_Rec.Header_Id,
2034: p_param2 => l_pricing_event,
2031: p_requesting_entity_id => l_Header_Price_Att_Rec.Header_Id,
2032: p_request_unique_key1 => l_pricing_event,
2033: p_param1 => l_Header_Price_Att_Rec.Header_Id,
2034: p_param2 => l_pricing_event,
2035: p_request_type => OE_GLOBALS.G_PRICE_ORDER,
2036: x_return_status => l_return_status);
2037:
2038:
2039: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2049: l_Header_Price_Att_rec.last_update_date := SYSDATE;
2050: l_Header_Price_Att_rec.last_updated_by := FND_GLOBAL.USER_ID;
2051: l_Header_Price_Att_rec.last_update_login := FND_GLOBAL.LOGIN_ID;
2052:
2053: IF l_Header_Price_Att_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
2054:
2055: OE_Header_PAttr_Util.Update_Row (l_Header_Price_Att_rec);
2056:
2057: ELSIF l_Header_Price_Att_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
2053: IF l_Header_Price_Att_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
2054:
2055: OE_Header_PAttr_Util.Update_Row (l_Header_Price_Att_rec);
2056:
2057: ELSIF l_Header_Price_Att_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
2058:
2059: l_Header_Price_Att_rec.creation_date := SYSDATE;
2060: l_Header_Price_Att_rec.created_by := FND_GLOBAL.USER_ID;
2061: oe_debug_pub.add(' Before calling pattr_util.insert_row');
2099: /*
2100: OE_Header_PAttr_Security.g_check_all_cols_constraint := 'Y';
2101: OE_MSG_PUB.reset_msg_context('HEADER_ADJ');
2102: oe_delayed_requests_pvt.delete_request
2103: (p_entity_code =>OE_GLOBALS.G_ENTITY_HEADER_ADJ,
2104: p_entity_id => l_header_Price_Att_rec.order_price_attrib_id,
2105: p_request_type => NULL,
2106: x_return_status => l_return_status);
2107: */
2120: /*
2121: OE_Header_PAttr_Security.g_check_all_cols_constraint := 'Y';
2122: OE_MSG_PUB.reset_msg_context('HEADER_ADJ');
2123: oe_delayed_requests_pvt.delete_request
2124: (p_entity_code =>OE_GLOBALS.G_ENTITY_HEADER_ADJ,
2125: p_entity_id => l_header_Price_Att_rec.order_price_attrib_id,
2126: p_request_type => NULL,
2127: x_return_status => l_return_status);
2128: */
2186:
2187: PROCEDURE Header_Adj_Atts
2188: ( p_init_msg_list IN VARCHAR2:=FND_API.G_FALSE
2189: , p_validation_level IN NUMBER
2190: , p_control_rec IN OE_GLOBALS.Control_Rec_Type
2191: , p_x_Header_Adj_Att_tbl IN OUT NOCOPY OE_Order_PUB.Header_Adj_Att_Tbl_Type
2192: , p_x_old_Header_Adj_Att_tbl IN OUT NOCOPY OE_Order_PUB.Header_Adj_Att_Tbl_Type
2193: )
2194: is
2192: , p_x_old_Header_Adj_Att_tbl IN OUT NOCOPY OE_Order_PUB.Header_Adj_Att_Tbl_Type
2193: )
2194: is
2195: l_return_status VARCHAR2(1);
2196: l_control_rec OE_GLOBALS.Control_Rec_Type;
2197: l_Header_Adj_Att_rec OE_Order_PUB.Header_Adj_Att_Rec_Type;
2198: l_old_Header_Adj_Att_rec OE_Order_PUB.Header_Adj_Att_Rec_Type;
2199: -- local variables to store OUT parameters from security check procedures
2200: I pls_integer; -- Used as index for while loop
2244: end if;
2245:
2246: -- Load API control record
2247:
2248: l_control_rec := OE_GLOBALS.Init_Control_Rec
2249: ( p_operation => l_Header_Adj_Att_rec.operation
2250: , p_control_rec => p_control_rec
2251: );
2252:
2255: l_Header_Adj_Att_rec.return_status := FND_API.G_RET_STS_SUCCESS;
2256:
2257: -- Prepare record.
2258:
2259: IF l_Header_Adj_Att_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
2260:
2261: l_Header_Adj_Att_rec.db_flag := FND_API.G_FALSE;
2262:
2263: -- Set missing old record elements to NULL.
2265: adj_debug('Entering OE_Header_Adj_Att_Util.Convert_Miss_To_Null', 1);
2266: -- l_old_Header_Adj_Att_rec :=
2267: Oe_Header_Price_Aattr_util.Convert_Miss_To_Null (l_old_Header_Adj_Att_rec);
2268:
2269: ELSIF l_Header_Adj_Att_rec.operation = OE_GLOBALS.G_OPR_UPDATE
2270: OR l_Header_Adj_Att_rec.operation = OE_GLOBALS.G_OPR_DELETE
2271: THEN
2272:
2273: l_Header_Adj_Att_rec.db_flag := FND_API.G_TRUE;
2266: -- l_old_Header_Adj_Att_rec :=
2267: Oe_Header_Price_Aattr_util.Convert_Miss_To_Null (l_old_Header_Adj_Att_rec);
2268:
2269: ELSIF l_Header_Adj_Att_rec.operation = OE_GLOBALS.G_OPR_UPDATE
2270: OR l_Header_Adj_Att_rec.operation = OE_GLOBALS.G_OPR_DELETE
2271: THEN
2272:
2273: l_Header_Adj_Att_rec.db_flag := FND_API.G_TRUE;
2274:
2340: -- Step 4. Write to DB
2341:
2342: IF l_control_rec.write_to_db THEN
2343:
2344: IF l_Header_Adj_Att_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
2345:
2346: Oe_Header_Price_Aattr_util.Delete_Row
2347: ( p_Price_Adj_Attrib_id => l_Header_Adj_Att_rec.Price_adj_attrib_id
2348: );
2354: l_Header_Adj_Att_rec.last_update_date := SYSDATE;
2355: l_Header_Adj_Att_rec.last_updated_by := FND_GLOBAL.USER_ID;
2356: l_Header_Adj_Att_rec.last_update_login := FND_GLOBAL.LOGIN_ID;
2357:
2358: IF l_Header_Adj_Att_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
2359:
2360: Oe_Header_Price_Aattr_util.Update_Row (l_Header_Adj_Att_rec);
2361:
2362: ELSIF l_Header_Adj_Att_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
2358: IF l_Header_Adj_Att_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
2359:
2360: Oe_Header_Price_Aattr_util.Update_Row (l_Header_Adj_Att_rec);
2361:
2362: ELSIF l_Header_Adj_Att_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
2363:
2364: l_Header_Adj_Att_rec.creation_date := SYSDATE;
2365: l_Header_Adj_Att_rec.created_by := FND_GLOBAL.USER_ID;
2366:
2465:
2466: PROCEDURE Header_Adj_Assocs
2467: ( p_init_msg_list IN VARCHAR2:=FND_API.G_FALSE
2468: , p_validation_level IN NUMBER
2469: , p_control_rec IN OE_GLOBALS.Control_Rec_Type
2470: , p_x_Header_Adj_Assoc_tbl IN OUT NOCOPY OE_Order_PUB.Header_Adj_Assoc_Tbl_Type
2471: , p_x_old_Header_Adj_Assoc_tbl IN OUT NOCOPY OE_Order_PUB.Header_Adj_Assoc_Tbl_Type
2472: )
2473: is
2471: , p_x_old_Header_Adj_Assoc_tbl IN OUT NOCOPY OE_Order_PUB.Header_Adj_Assoc_Tbl_Type
2472: )
2473: is
2474: l_return_status VARCHAR2(1);
2475: l_control_rec OE_GLOBALS.Control_Rec_Type;
2476: l_Header_Adj_Assoc_rec OE_Order_PUB.Header_Adj_Assoc_Rec_Type;
2477: l_old_Header_Adj_Assoc_rec OE_Order_PUB.Header_Adj_Assoc_Rec_Type;
2478: -- local variables to store OUT parameters from security check procedures
2479: I pls_integer; -- Used as index for while loop
2523: end if;
2524:
2525: -- Load API control record
2526:
2527: l_control_rec := OE_GLOBALS.Init_Control_Rec
2528: ( p_operation => l_Header_Adj_Assoc_rec.operation
2529: , p_control_rec => p_control_rec
2530: );
2531:
2534: l_Header_Adj_Assoc_rec.return_status := FND_API.G_RET_STS_SUCCESS;
2535:
2536: -- Prepare record.
2537:
2538: IF l_Header_Adj_Assoc_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
2539:
2540: l_Header_Adj_Assoc_rec.db_flag := FND_API.G_FALSE;
2541:
2542: -- Set missing old record elements to NULL.
2544: adj_debug('Entering OE_Header_Adj_Assoc_Util.Convert_Miss_To_Null', 1);
2545: -- l_old_Header_Adj_Assoc_rec :=
2546: Oe_Header_Adj_Assocs_util.Convert_Miss_To_Null (l_old_Header_Adj_Assoc_rec);
2547:
2548: ELSIF l_Header_Adj_Assoc_rec.operation = OE_GLOBALS.G_OPR_UPDATE
2549: OR l_Header_Adj_Assoc_rec.operation = OE_GLOBALS.G_OPR_DELETE
2550: THEN
2551:
2552: l_Header_Adj_Assoc_rec.db_flag := FND_API.G_TRUE;
2545: -- l_old_Header_Adj_Assoc_rec :=
2546: Oe_Header_Adj_Assocs_util.Convert_Miss_To_Null (l_old_Header_Adj_Assoc_rec);
2547:
2548: ELSIF l_Header_Adj_Assoc_rec.operation = OE_GLOBALS.G_OPR_UPDATE
2549: OR l_Header_Adj_Assoc_rec.operation = OE_GLOBALS.G_OPR_DELETE
2550: THEN
2551:
2552: l_Header_Adj_Assoc_rec.db_flag := FND_API.G_TRUE;
2553:
2619: -- Step 4. Write to DB
2620:
2621: IF l_control_rec.write_to_db THEN
2622:
2623: IF l_Header_Adj_Assoc_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
2624:
2625: Oe_Header_Adj_Assocs_util.Delete_Row
2626: ( p_Price_Adj_assoc_id => l_Header_Adj_Assoc_rec.Price_Adj_assoc_id
2627: );
2633: l_Header_Adj_Assoc_rec.last_update_date := SYSDATE;
2634: l_Header_Adj_Assoc_rec.last_updated_by := FND_GLOBAL.USER_ID;
2635: l_Header_Adj_Assoc_rec.last_update_login := FND_GLOBAL.LOGIN_ID;
2636:
2637: IF l_Header_Adj_Assoc_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
2638:
2639: Oe_Header_Adj_Assocs_util.Update_Row (l_Header_Adj_Assoc_rec);
2640:
2641: ELSIF l_Header_Adj_Assoc_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
2637: IF l_Header_Adj_Assoc_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
2638:
2639: Oe_Header_Adj_Assocs_util.Update_Row (l_Header_Adj_Assoc_rec);
2640:
2641: ELSIF l_Header_Adj_Assoc_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
2642:
2643: l_Header_Adj_Assoc_rec.creation_date := SYSDATE;
2644: l_Header_Adj_Assoc_rec.created_by := FND_GLOBAL.USER_ID;
2645:
2743:
2744: PROCEDURE Line_Price_Atts
2745: ( p_init_msg_list IN VARCHAR2:=FND_API.G_FALSE
2746: , p_validation_level IN NUMBER
2747: , p_control_rec IN OE_GLOBALS.Control_Rec_Type
2748: , p_x_Line_Price_Att_tbl IN OUT NOCOPY OE_Order_PUB.Line_Price_Att_Tbl_Type
2749: , p_x_old_Line_Price_Att_tbl IN OUT NOCOPY OE_Order_PUB.Line_Price_Att_Tbl_Type
2750: )
2751: is
2749: , p_x_old_Line_Price_Att_tbl IN OUT NOCOPY OE_Order_PUB.Line_Price_Att_Tbl_Type
2750: )
2751: is
2752: l_return_status VARCHAR2(1);
2753: l_control_rec OE_GLOBALS.Control_Rec_Type;
2754: l_Line_price_att_rec OE_Order_PUB.Line_Price_Att_Rec_Type;
2755: l_old_Line_price_att_rec OE_Order_PUB.Line_Price_Att_Rec_Type;
2756: -- local variables to store OUT parameters from security check procedures
2757: l_sec_result NUMBER;
2910: end if;
2911:
2912: -- Load API control record
2913:
2914: l_control_rec := OE_GLOBALS.Init_Control_Rec
2915: ( p_operation => l_Line_price_att_rec.operation
2916: , p_control_rec => p_control_rec
2917: );
2918:
2921: l_Line_price_att_rec.return_status := FND_API.G_RET_STS_SUCCESS;
2922:
2923: -- Prepare record.
2924:
2925: IF l_Line_price_att_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
2926:
2927: l_Line_price_att_rec.db_flag := FND_API.G_FALSE;
2928:
2929: -- Set missing old record elements to NULL.
2931: adj_debug('Entering OE_Line_price_att_Util.Convert_Miss_To_Null', 1);
2932: -- l_old_Line_price_att_rec :=
2933: OE_Line_Pattr_Util.Convert_Miss_To_Null (l_old_Line_price_att_rec);
2934:
2935: ELSIF l_Line_price_att_rec.operation = OE_GLOBALS.G_OPR_UPDATE
2936: OR l_Line_price_att_rec.operation = OE_GLOBALS.G_OPR_DELETE
2937: THEN
2938:
2939: l_Line_price_att_rec.db_flag := FND_API.G_TRUE;
2932: -- l_old_Line_price_att_rec :=
2933: OE_Line_Pattr_Util.Convert_Miss_To_Null (l_old_Line_price_att_rec);
2934:
2935: ELSIF l_Line_price_att_rec.operation = OE_GLOBALS.G_OPR_UPDATE
2936: OR l_Line_price_att_rec.operation = OE_GLOBALS.G_OPR_DELETE
2937: THEN
2938:
2939: l_Line_price_att_rec.db_flag := FND_API.G_TRUE;
2940:
2982:
2983: /*
2984: -- Check security
2985: IF l_control_rec.check_security
2986: AND (l_Line_price_att_rec.operation = OE_GLOBALS.G_OPR_CREATE
2987: OR l_Line_price_att_rec.operation = OE_GLOBALS.G_OPR_UPDATE)
2988: THEN
2989:
2990: adj_debug('Check Attributes Security');
2983: /*
2984: -- Check security
2985: IF l_control_rec.check_security
2986: AND (l_Line_price_att_rec.operation = OE_GLOBALS.G_OPR_CREATE
2987: OR l_Line_price_att_rec.operation = OE_GLOBALS.G_OPR_UPDATE)
2988: THEN
2989:
2990: adj_debug('Check Attributes Security');
2991: -- check if this operation is allowed
3073: -- Entity level validation.
3074:
3075: IF l_control_rec.validate_entity THEN
3076:
3077: IF l_Line_price_att_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
3078:
3079: OE_Validate_Line_Pattr.Entity_Delete
3080: ( x_return_status => l_return_status
3081: , p_Line_price_attr_rec => l_Line_Price_Att_rec
3104: -- Step 4. Write to DB
3105:
3106: IF l_control_rec.write_to_db THEN
3107:
3108: IF l_Line_price_att_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
3109:
3110: OE_Line_Pattr_Util.Delete_Row
3111: ( p_order_price_attrib_id => l_Line_price_att_rec.order_price_attrib_id
3112: );
3111: ( p_order_price_attrib_id => l_Line_price_att_rec.order_price_attrib_id
3112: );
3113: --2442012
3114: /* OE_delayed_requests_Pvt.log_request(
3115: p_entity_code => OE_GLOBALS.G_ENTITY_Line_Price_Att,
3116: p_entity_id => l_Line_Price_Att_rec.line_id,
3117: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_Line_Price_Att,
3118: p_requesting_entity_id => l_Line_Price_Att_rec.line_id,
3119: p_param1 => l_Line_Price_Att_rec.header_id,
3113: --2442012
3114: /* OE_delayed_requests_Pvt.log_request(
3115: p_entity_code => OE_GLOBALS.G_ENTITY_Line_Price_Att,
3116: p_entity_id => l_Line_Price_Att_rec.line_id,
3117: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_Line_Price_Att,
3118: p_requesting_entity_id => l_Line_Price_Att_rec.line_id,
3119: p_param1 => l_Line_Price_Att_rec.header_id,
3120: p_param2 => 'LINE',
3121: p_request_type => OE_GLOBALS.G_PRICE_LINE,
3117: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_Line_Price_Att,
3118: p_requesting_entity_id => l_Line_Price_Att_rec.line_id,
3119: p_param1 => l_Line_Price_Att_rec.header_id,
3120: p_param2 => 'LINE',
3121: p_request_type => OE_GLOBALS.G_PRICE_LINE,
3122: x_return_status => l_return_status);
3123:
3124: OE_delayed_requests_Pvt.log_request(
3125: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
3121: p_request_type => OE_GLOBALS.G_PRICE_LINE,
3122: x_return_status => l_return_status);
3123:
3124: OE_delayed_requests_Pvt.log_request(
3125: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
3126: p_entity_id => l_Line_Price_Att_rec.Header_Id,
3127: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_ALL,
3128: p_requesting_entity_id => l_Line_Price_Att_rec.Header_Id,
3129: p_param1 => l_Line_Price_Att_rec.header_id,
3123:
3124: OE_delayed_requests_Pvt.log_request(
3125: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
3126: p_entity_id => l_Line_Price_Att_rec.Header_Id,
3127: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_ALL,
3128: p_requesting_entity_id => l_Line_Price_Att_rec.Header_Id,
3129: p_param1 => l_Line_Price_Att_rec.header_id,
3130: p_param2 => 'ORDER',
3131: p_request_type => OE_GLOBALS.G_PRICE_ORDER,
3127: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_ALL,
3128: p_requesting_entity_id => l_Line_Price_Att_rec.Header_Id,
3129: p_param1 => l_Line_Price_Att_rec.header_id,
3130: p_param2 => 'ORDER',
3131: p_request_type => OE_GLOBALS.G_PRICE_ORDER,
3132: x_return_status => l_return_status);
3133: */
3134: Begin
3135: Select booked_flag,Shipped_quantity into
3145: Else
3146: l_pricing_event := 'ORDER';
3147: End If;
3148: OE_delayed_requests_Pvt.log_request(
3149: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
3150: p_entity_id => l_Line_Price_Att_rec.Header_Id,
3151: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_ALL,
3152: p_requesting_entity_id => l_Line_Price_Att_rec.Header_Id,
3153: p_request_unique_key1 => l_pricing_event,
3147: End If;
3148: OE_delayed_requests_Pvt.log_request(
3149: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
3150: p_entity_id => l_Line_Price_Att_rec.Header_Id,
3151: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_ALL,
3152: p_requesting_entity_id => l_Line_Price_Att_rec.Header_Id,
3153: p_request_unique_key1 => l_pricing_event,
3154: p_param1 => l_Line_Price_Att_rec.header_id,
3155: p_param2 => l_pricing_event,
3152: p_requesting_entity_id => l_Line_Price_Att_rec.Header_Id,
3153: p_request_unique_key1 => l_pricing_event,
3154: p_param1 => l_Line_Price_Att_rec.header_id,
3155: p_param2 => l_pricing_event,
3156: p_request_type => OE_GLOBALS.G_PRICE_ORDER,
3157: x_return_status => l_return_status);
3158: -- End If;
3159:
3160: If l_Shipped_quantity > 0 Then
3162: Else
3163: l_pricing_event := 'LINE';
3164: End if;
3165: OE_delayed_requests_Pvt.log_request(
3166: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
3167: p_entity_id => l_Line_Price_Att_rec.Line_Id,
3168: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_ALL,
3169: p_requesting_entity_id => l_Line_Price_Att_rec.Line_Id,
3170: p_request_unique_key1 => l_pricing_event,
3164: End if;
3165: OE_delayed_requests_Pvt.log_request(
3166: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
3167: p_entity_id => l_Line_Price_Att_rec.Line_Id,
3168: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_ALL,
3169: p_requesting_entity_id => l_Line_Price_Att_rec.Line_Id,
3170: p_request_unique_key1 => l_pricing_event,
3171: p_param1 => l_Line_Price_Att_rec.header_id,
3172: p_param2 => l_pricing_event,
3169: p_requesting_entity_id => l_Line_Price_Att_rec.Line_Id,
3170: p_request_unique_key1 => l_pricing_event,
3171: p_param1 => l_Line_Price_Att_rec.header_id,
3172: p_param2 => l_pricing_event,
3173: p_request_type => OE_GLOBALS.G_PRICE_LINE,
3174: x_return_status => l_return_status);
3175: --2442012 End If;
3176:
3177:
3183: l_Line_price_att_rec.last_update_date := SYSDATE;
3184: l_Line_price_att_rec.last_updated_by := FND_GLOBAL.USER_ID;
3185: l_Line_price_att_rec.last_update_login := FND_GLOBAL.LOGIN_ID;
3186:
3187: IF l_Line_price_att_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
3188:
3189: OE_Line_Pattr_Util.Update_Row (l_Line_price_att_rec);
3190:
3191: ELSIF l_Line_price_att_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
3187: IF l_Line_price_att_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
3188:
3189: OE_Line_Pattr_Util.Update_Row (l_Line_price_att_rec);
3190:
3191: ELSIF l_Line_price_att_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
3192:
3193: l_Line_price_att_rec.creation_date := SYSDATE;
3194: l_Line_price_att_rec.created_by := FND_GLOBAL.USER_ID;
3195:
3306: is
3307: I PLS_INTEGER;
3308: l_line_dummy_adj_att_tbl OE_Order_PUB.Line_Adj_Att_Tbl_Type;
3309: l_line_adj_att_tbl OE_Order_PUB.Line_Adj_Att_Tbl_Type;
3310: l_control_rec OE_GLOBALS.Control_Rec_Type;
3311: Begin
3312: l_line_adj_att_tbl := p_Line_Adj_attribs_tbl;
3313:
3314: l_control_rec.private_call := TRUE;
3321: I := p_Line_Adj_attribs_tbl.first;
3322:
3323: While I Is Not Null Loop
3324: --l_line_adj_assoc_tbl(i) := OE_ORDER_PUB.G_MISS_LINE_ADJ_ASSOC_REC;
3325: l_line_adj_att_tbl(i).Operation := OE_Globals.G_OPR_CREATE;
3326:
3327: Select OE_PRICE_ADJ_ATTRIBS_S.nextval
3328: Into l_line_adj_att_tbl(i).price_adj_attrib_id
3329: From dual;
3342:
3343: PROCEDURE Line_Adj_Atts
3344: ( p_init_msg_list IN VARCHAR2:=FND_API.G_FALSE
3345: , p_validation_level IN NUMBER
3346: , p_control_rec IN OE_GLOBALS.Control_Rec_Type
3347: , p_x_Line_Adj_Att_tbl IN OUT NOCOPY OE_Order_PUB.Line_Adj_Att_Tbl_Type
3348: , p_x_old_Line_Adj_Att_tbl IN OUT NOCOPY OE_Order_PUB.Line_Adj_Att_Tbl_Type
3349: )
3350: is
3348: , p_x_old_Line_Adj_Att_tbl IN OUT NOCOPY OE_Order_PUB.Line_Adj_Att_Tbl_Type
3349: )
3350: is
3351: l_return_status VARCHAR2(1);
3352: l_control_rec OE_GLOBALS.Control_Rec_Type;
3353: l_Line_Adj_att_rec OE_Order_PUB.Line_Adj_Att_Rec_Type;
3354: l_old_Line_Adj_att_rec OE_Order_PUB.Line_Adj_Att_Rec_Type;
3355: -- local variables to store OUT parameters from security check procedures
3356: I pls_integer; -- Used as index for while loop
3399: end if;
3400:
3401: -- Load API control record
3402:
3403: l_control_rec := OE_GLOBALS.Init_Control_Rec
3404: ( p_operation => l_Line_Adj_Att_rec.operation
3405: , p_control_rec => p_control_rec
3406: );
3407:
3410: l_Line_Adj_Att_rec.return_status := FND_API.G_RET_STS_SUCCESS;
3411:
3412: -- Prepare record.
3413:
3414: IF l_Line_Adj_Att_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
3415:
3416: l_Line_Adj_Att_rec.db_flag := FND_API.G_FALSE;
3417:
3418: -- Set missing old record elements to NULL.
3420: adj_debug('Entering OE_Line_Adj_Att_Util.Convert_Miss_To_Null', 1);
3421: -- l_old_Line_Adj_Att_rec :=
3422: Oe_Line_Price_Aattr_util.Convert_Miss_To_Null (l_old_Line_Adj_Att_rec);
3423:
3424: ELSIF l_Line_Adj_Att_rec.operation = OE_GLOBALS.G_OPR_UPDATE
3425: OR l_Line_Adj_Att_rec.operation = OE_GLOBALS.G_OPR_DELETE
3426: THEN
3427:
3428: l_Line_Adj_Att_rec.db_flag := FND_API.G_TRUE;
3421: -- l_old_Line_Adj_Att_rec :=
3422: Oe_Line_Price_Aattr_util.Convert_Miss_To_Null (l_old_Line_Adj_Att_rec);
3423:
3424: ELSIF l_Line_Adj_Att_rec.operation = OE_GLOBALS.G_OPR_UPDATE
3425: OR l_Line_Adj_Att_rec.operation = OE_GLOBALS.G_OPR_DELETE
3426: THEN
3427:
3428: l_Line_Adj_Att_rec.db_flag := FND_API.G_TRUE;
3429:
3516: -- Step 4. Write to DB
3517:
3518: IF l_control_rec.write_to_db THEN
3519:
3520: IF l_Line_Adj_Att_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
3521:
3522: Oe_Line_Price_Aattr_util.Delete_Row
3523: ( p_Price_Adj_Attrib_id => l_Line_Adj_Att_rec.Price_adj_attrib_id
3524: );
3530: l_Line_Adj_Att_rec.last_update_date := SYSDATE;
3531: l_Line_Adj_Att_rec.last_updated_by := FND_GLOBAL.USER_ID;
3532: l_Line_Adj_Att_rec.last_update_login := FND_GLOBAL.LOGIN_ID;
3533:
3534: IF l_Line_Adj_Att_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
3535:
3536: Oe_Line_Price_Aattr_util.Update_Row (l_Line_Adj_Att_rec);
3537:
3538: ELSIF l_Line_Adj_Att_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
3534: IF l_Line_Adj_Att_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
3535:
3536: Oe_Line_Price_Aattr_util.Update_Row (l_Line_Adj_Att_rec);
3537:
3538: ELSIF l_Line_Adj_Att_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
3539:
3540: l_Line_Adj_Att_rec.creation_date := SYSDATE;
3541: l_Line_Adj_Att_rec.created_by := FND_GLOBAL.USER_ID;
3542:
3645: is
3646: I PLS_INTEGER;
3647: l_line_dummy_adj_assoc_tbl OE_Order_PUB.Line_Adj_Assoc_Tbl_Type;
3648: l_line_adj_assoc_tbl OE_Order_PUB.Line_Adj_Assoc_Tbl_Type;
3649: l_control_rec OE_GLOBALS.Control_Rec_Type;
3650: Begin
3651: l_line_adj_assoc_tbl := p_Line_Adj_Assoc_tbl;
3652: l_control_rec.private_call := TRUE;
3653: l_control_rec.controlled_operation := TRUE;
3659: I := p_line_adj_assoc_tbl.first;
3660:
3661: While I Is Not Null Loop
3662: --l_line_adj_assoc_tbl(i) := OE_ORDER_PUB.G_MISS_LINE_ADJ_ASSOC_REC;
3663: l_Line_Adj_Assoc_tbl(i).Operation := OE_Globals.G_OPR_CREATE;
3664:
3665: Select oe_price_adj_assocs_s.nextval
3666: Into l_line_adj_assoc_tbl(i).price_adj_assoc_id
3667: From dual;
3679:
3680: PROCEDURE Line_Adj_Assocs
3681: ( p_init_msg_list IN VARCHAR2:=FND_API.G_FALSE
3682: , p_validation_level IN NUMBER
3683: , p_control_rec IN OE_GLOBALS.Control_Rec_Type
3684: , p_x_Line_Adj_Assoc_tbl IN OUT NOCOPY OE_Order_PUB.Line_Adj_Assoc_Tbl_Type
3685: , p_x_old_Line_Adj_Assoc_tbl IN OUT NOCOPY OE_Order_PUB.Line_Adj_Assoc_Tbl_Type
3686: )
3687: is
3685: , p_x_old_Line_Adj_Assoc_tbl IN OUT NOCOPY OE_Order_PUB.Line_Adj_Assoc_Tbl_Type
3686: )
3687: is
3688: l_return_status VARCHAR2(1);
3689: l_control_rec OE_GLOBALS.Control_Rec_Type;
3690: l_Line_Adj_Assoc_rec OE_Order_PUB.Line_Adj_Assoc_Rec_Type;
3691: l_old_Line_Adj_Assoc_rec OE_Order_PUB.Line_Adj_Assoc_Rec_Type;
3692: -- local variables to store OUT parameters from security check procedures
3693: I pls_integer; -- Used as index for while loop
3739: end if;
3740:
3741: -- Load API control record
3742:
3743: l_control_rec := OE_GLOBALS.Init_Control_Rec
3744: ( p_operation => l_Line_Adj_Assoc_rec.operation
3745: , p_control_rec => p_control_rec
3746: );
3747:
3751:
3752: -- Prepare record.
3753:
3754:
3755: IF l_Line_Adj_Assoc_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
3756:
3757: l_Line_Adj_Assoc_rec.db_flag := FND_API.G_FALSE;
3758:
3759: -- Set missing old record elements to NULL.
3761: adj_debug('Entering OE_Line_Adj_Assoc_Util.Convert_Miss_To_Null', 1);
3762: -- l_old_Line_Adj_Assoc_rec :=
3763: Oe_Line_Adj_Assocs_util.Convert_Miss_To_Null (l_old_Line_Adj_Assoc_rec);
3764:
3765: ELSIF l_Line_Adj_Assoc_rec.operation = OE_GLOBALS.G_OPR_UPDATE
3766: OR l_Line_Adj_Assoc_rec.operation = OE_GLOBALS.G_OPR_DELETE
3767: THEN
3768:
3769: l_Line_Adj_Assoc_rec.db_flag := FND_API.G_TRUE;
3762: -- l_old_Line_Adj_Assoc_rec :=
3763: Oe_Line_Adj_Assocs_util.Convert_Miss_To_Null (l_old_Line_Adj_Assoc_rec);
3764:
3765: ELSIF l_Line_Adj_Assoc_rec.operation = OE_GLOBALS.G_OPR_UPDATE
3766: OR l_Line_Adj_Assoc_rec.operation = OE_GLOBALS.G_OPR_DELETE
3767: THEN
3768:
3769: l_Line_Adj_Assoc_rec.db_flag := FND_API.G_TRUE;
3770:
3837: -- Step 4. Write to DB
3838:
3839: IF l_control_rec.write_to_db THEN
3840:
3841: IF l_Line_Adj_Assoc_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
3842:
3843:
3844: adj_debug('deleting line adj assocs',2);
3845: Oe_Line_Adj_Assocs_util.Delete_Row
3853: l_Line_Adj_Assoc_rec.last_update_date := SYSDATE;
3854: l_Line_Adj_Assoc_rec.last_updated_by := FND_GLOBAL.USER_ID;
3855: l_Line_Adj_Assoc_rec.last_update_login := FND_GLOBAL.LOGIN_ID;
3856:
3857: IF l_Line_Adj_Assoc_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
3858: adj_debug('updating line adj assocs',2);
3859: Oe_Line_Adj_Assocs_util.Update_Row (l_Line_Adj_Assoc_rec);
3860:
3861: ELSIF l_Line_Adj_Assoc_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
3857: IF l_Line_Adj_Assoc_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
3858: adj_debug('updating line adj assocs',2);
3859: Oe_Line_Adj_Assocs_util.Update_Row (l_Line_Adj_Assoc_rec);
3860:
3861: ELSIF l_Line_Adj_Assoc_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
3862: adj_debug('inserting into line adj assocs',2);
3863: l_Line_Adj_Assoc_rec.creation_date := SYSDATE;
3864: l_Line_Adj_Assoc_rec.created_by := FND_GLOBAL.USER_ID;
3865:
5663:
5664: If G_INT_CHANGED_LINE_ON = 'Y' Then
5665: If (l_order_status_rec.ALL_LINES_FLAG = 'Y' and nvl(OE_LINE_ADJ_UTIL.G_SEND_ALL_LINES_FOR_DSP,'Y') = 'Y') --bug 2965218
5666: -- or p_multiple_events = 'Y'
5667: or (OE_GLOBALS.G_RECURSION_MODE <> FND_API.G_TRUE
5668: and p_control_rec.pricing_event = 'BOOK')
5669: or p_action_code = 'PRICE_ORDER' --user request to reprice all lines
5670: or Oe_Line_Adj_Util.has_service_lines(p_header_id)
5671: Then
6349: x_return_status VARCHAR2(240);
6350: x_return_status_txt VARCHAR2(240);
6351: Begin
6352: /* Start: Added by Manish */
6353: IF p_Line_Adj_Rec.OPERATION <> OE_GLOBALS.G_OPR_CREATE THEN
6354: p_Line_Adj_Rec.operation := OE_GLOBALS.G_OPR_UPDATE;
6355: END IF;
6356: /* End: Added by Manish */
6357:
6350: x_return_status_txt VARCHAR2(240);
6351: Begin
6352: /* Start: Added by Manish */
6353: IF p_Line_Adj_Rec.OPERATION <> OE_GLOBALS.G_OPR_CREATE THEN
6354: p_Line_Adj_Rec.operation := OE_GLOBALS.G_OPR_UPDATE;
6355: END IF;
6356: /* End: Added by Manish */
6357:
6358: adj_debug('Entering oe_order_Adj_pvt.Update_Adj_Line_rec',1);
6357:
6358: adj_debug('Entering oe_order_Adj_pvt.Update_Adj_Line_rec',1);
6359: G_STMT_NO := 'Update_Adj_Line_rec#10';
6360:
6361: if not OE_GLOBALS.Equal(p_Line_Adj_Rec.list_header_id,
6362: p_req_line_detail_Rec.list_header_id) then
6363: p_Line_Adj_Rec.list_header_id :=
6364: p_req_line_detail_Rec.list_header_id;
6365: l_updated_Flag := True;
6364: p_req_line_detail_Rec.list_header_id;
6365: l_updated_Flag := True;
6366: end If;
6367:
6368: If not OE_GLOBALS.Equal(p_Line_Adj_Rec.list_Line_id,
6369: p_req_line_detail_Rec.list_Line_id) Then
6370: p_Line_Adj_Rec.list_Line_id :=
6371: p_req_line_detail_Rec.list_Line_id;
6372: l_updated_Flag := True;
6371: p_req_line_detail_Rec.list_Line_id;
6372: l_updated_Flag := True;
6373: end If;
6374:
6375: if not OE_GLOBALS.Equal(p_Line_Adj_Rec.Automatic_flag,
6376: p_req_line_detail_Rec.Automatic_flag) Then
6377: p_Line_Adj_Rec.Automatic_flag :=
6378: p_req_line_detail_Rec.Automatic_flag;
6379: l_updated_Flag := True;
6378: p_req_line_detail_Rec.Automatic_flag;
6379: l_updated_Flag := True;
6380: end If;
6381:
6382: if not OE_GLOBALS.Equal(p_Line_Adj_Rec.list_line_type_code,
6383: p_req_line_detail_Rec.list_line_type_code) Then
6384: p_Line_Adj_Rec.list_line_type_code :=
6385: p_req_line_detail_Rec.list_line_type_code;
6386: l_updated_Flag := True;
6385: p_req_line_detail_Rec.list_line_type_code;
6386: l_updated_Flag := True;
6387: end If;
6388:
6389: if not OE_GLOBALS.Equal(p_Line_Adj_Rec.list_line_no, p_req_line_detail_Rec.list_line_no) Then
6390: if (not l_updated_flag) and p_Line_Adj_Rec.list_line_type_code = 'CIE' Then
6391: adj_debug('CIE:to delete coupon'||p_req_line_detail_rec.list_line_no);
6392: -- retain the original coupon number, delete the new number
6393: QP_COUPON_PVT.Delete_Coupon(p_req_line_detail_Rec.list_line_no,
6406: end If;
6407: end If;
6408:
6409: if p_Line_Adj_Rec.list_line_type_code = 'TSN' and -- Terms substitution
6410: not OE_GLOBALS.Equal(p_Line_Adj_Rec.modified_from,
6411: p_req_line_detail_Rec.substitution_from) Then
6412:
6413: Begin
6414: p_Line_Adj_Rec.modified_from := p_req_line_detail_Rec.substitution_from;
6419:
6420: end If;
6421:
6422: if p_Line_Adj_Rec.list_line_type_code = 'TSN' and -- Terms substitution
6423: not OE_GLOBALS.Equal(p_Line_Adj_Rec.modified_to,
6424: p_req_line_detail_Rec.substitution_to) Then
6425:
6426: Begin
6427: p_Line_Adj_Rec.modified_to := p_req_line_detail_Rec.substitution_to;
6432:
6433: end If;
6434:
6435: if p_Line_Adj_Rec.list_line_type_code = 'IUE' and -- Terms substitution
6436: not OE_GLOBALS.Equal(p_Line_Adj_Rec.modified_from,
6437: to_char(p_req_line_detail_Rec.INVENTORY_ITEM_ID)) Then
6438:
6439: p_Line_Adj_Rec.modified_from := to_char(p_req_line_detail_Rec.INVENTORY_ITEM_ID);
6440: l_updated_Flag := True;
6441:
6442: end If;
6443:
6444: if p_Line_Adj_Rec.list_line_type_code = 'IUE' and -- Terms substitution
6445: not OE_GLOBALS.Equal(p_Line_Adj_Rec.modified_to,
6446: to_char(p_req_line_detail_Rec.RELATED_ITEM_ID)) Then
6447:
6448: p_Line_Adj_Rec.modified_to := to_char(p_req_line_detail_Rec.RELATED_ITEM_ID);
6449: l_updated_Flag := True;
6449: l_updated_Flag := True;
6450:
6451: end If;
6452:
6453: if not OE_GLOBALS.Equal(p_Line_Adj_Rec.arithmetic_operator,
6454: p_req_line_detail_Rec.Operand_Calculation_Code) Then
6455: p_Line_Adj_Rec.arithmetic_operator := p_req_line_detail_Rec.Operand_Calculation_Code;
6456: l_updated_Flag := True;
6457: end If;
6455: p_Line_Adj_Rec.arithmetic_operator := p_req_line_detail_Rec.Operand_Calculation_Code;
6456: l_updated_Flag := True;
6457: end If;
6458:
6459: if not OE_GLOBALS.Equal(p_Line_Adj_Rec.operand_per_pqty,
6460: p_req_line_detail_Rec.Operand_Value) Then
6461: p_Line_Adj_Rec.operand_per_pqty := p_req_line_detail_Rec.Operand_Value;
6462: If p_req_line_detail_Rec.Operand_Value is null Then
6463: Oe_Debug_Pub.add(' Null operand returned by pricing');
6466: End If;
6467: l_updated_Flag := True;
6468: end If;
6469:
6470: if not OE_GLOBALS.Equal(p_Line_Adj_Rec.Applied_flag ,
6471: p_req_line_detail_Rec.Applied_Flag) or p_Line_Adj_Rec.Applied_flag is null
6472: Then
6473: p_Line_Adj_Rec.Applied_flag := nvl(p_req_line_detail_Rec.Applied_Flag,'N');
6474: l_updated_Flag := True;
6473: p_Line_Adj_Rec.Applied_flag := nvl(p_req_line_detail_Rec.Applied_Flag,'N');
6474: l_updated_Flag := True;
6475: end If;
6476:
6477: if not OE_GLOBALS.Equal(p_Line_Adj_Rec.update_allowed,
6478: p_req_line_detail_Rec.Override_flag) Then
6479: p_Line_Adj_Rec.update_allowed := p_req_line_detail_Rec.Override_flag;
6480: l_updated_Flag := True;
6481: end If;
6479: p_Line_Adj_Rec.update_allowed := p_req_line_detail_Rec.Override_flag;
6480: l_updated_Flag := True;
6481: end If;
6482:
6483: if not OE_GLOBALS.Equal(p_Line_Adj_Rec.Pricing_phase_id,
6484: p_req_line_detail_Rec.Pricing_phase_id) Then
6485: p_Line_Adj_Rec.Pricing_phase_id := p_req_line_detail_Rec.Pricing_phase_id;
6486: l_updated_Flag := True;
6487: end If;
6485: p_Line_Adj_Rec.Pricing_phase_id := p_req_line_detail_Rec.Pricing_phase_id;
6486: l_updated_Flag := True;
6487: end If;
6488:
6489: if not OE_GLOBALS.Equal(p_Line_Adj_Rec.adjusted_amount_per_pqty,
6490: p_req_line_detail_Rec.Adjustment_Amount) Then
6491: p_Line_Adj_Rec.adjusted_amount_per_pqty := p_req_line_detail_Rec.Adjustment_Amount;
6492: l_updated_Flag := True;
6493: end If;
6491: p_Line_Adj_Rec.adjusted_amount_per_pqty := p_req_line_detail_Rec.Adjustment_Amount;
6492: l_updated_Flag := True;
6493: end If;
6494:
6495: if not OE_GLOBALS.Equal(p_Line_Adj_Rec.pricing_group_sequence,
6496: p_req_line_detail_Rec.pricing_group_sequence) Then
6497: p_Line_Adj_Rec.pricing_group_sequence := p_req_line_detail_Rec.pricing_group_sequence;
6498: l_updated_Flag := True;
6499: end If;
6497: p_Line_Adj_Rec.pricing_group_sequence := p_req_line_detail_Rec.pricing_group_sequence;
6498: l_updated_Flag := True;
6499: end If;
6500:
6501: if not OE_GLOBALS.Equal(p_Line_Adj_Rec.range_break_quantity,
6502: p_req_line_detail_Rec.line_quantity) Then
6503: p_Line_Adj_Rec.range_break_quantity := p_req_line_detail_Rec.line_quantity;
6504: l_updated_Flag := True;
6505: end If;
6503: p_Line_Adj_Rec.range_break_quantity := p_req_line_detail_Rec.line_quantity;
6504: l_updated_Flag := True;
6505: end If;
6506:
6507: if not OE_GLOBALS.Equal(p_Line_Adj_Rec.price_break_type_code,
6508: p_req_line_detail_Rec.price_break_type_code) Then
6509: p_Line_Adj_Rec.price_break_type_code := p_req_line_detail_Rec.price_break_type_code;
6510: l_updated_Flag := True;
6511: end If;
6509: p_Line_Adj_Rec.price_break_type_code := p_req_line_detail_Rec.price_break_type_code;
6510: l_updated_Flag := True;
6511: end If;
6512:
6513: if not OE_GLOBALS.Equal(p_Line_Adj_Rec.print_on_invoice_flag,
6514: p_req_line_detail_Rec.print_on_invoice_flag) Then
6515: p_Line_Adj_Rec.print_on_invoice_flag := p_req_line_detail_Rec.print_on_invoice_flag;
6516: l_updated_Flag := True;
6517: end If;
6515: p_Line_Adj_Rec.print_on_invoice_flag := p_req_line_detail_Rec.print_on_invoice_flag;
6516: l_updated_Flag := True;
6517: end If;
6518:
6519: if not OE_GLOBALS.Equal(p_Line_Adj_Rec.print_on_invoice_flag,
6520: p_req_line_detail_Rec.print_on_invoice_flag) Then
6521: p_Line_Adj_Rec.print_on_invoice_flag := p_req_line_detail_Rec.print_on_invoice_flag;
6522: l_updated_Flag := True;
6523: end If;
6521: p_Line_Adj_Rec.print_on_invoice_flag := p_req_line_detail_Rec.print_on_invoice_flag;
6522: l_updated_Flag := True;
6523: end If;
6524:
6525: if not OE_GLOBALS.Equal(p_Line_Adj_Rec.substitution_attribute,
6526: p_req_line_detail_Rec.substitution_attribute) Then
6527: p_Line_Adj_Rec.substitution_attribute := p_req_line_detail_Rec.substitution_attribute;
6528: l_updated_Flag := True;
6529: end If;
6527: p_Line_Adj_Rec.substitution_attribute := p_req_line_detail_Rec.substitution_attribute;
6528: l_updated_Flag := True;
6529: end If;
6530:
6531: if not OE_GLOBALS.Equal(p_Line_Adj_Rec.Accrual_flag,
6532: p_req_line_detail_Rec.Accrual_flag) Then
6533: p_Line_Adj_Rec.Accrual_flag := p_req_line_detail_Rec.Accrual_flag;
6534: l_updated_Flag := True;
6535: end If;
6533: p_Line_Adj_Rec.Accrual_flag := p_req_line_detail_Rec.Accrual_flag;
6534: l_updated_Flag := True;
6535: end If;
6536:
6537: if not OE_GLOBALS.Equal(p_Line_Adj_Rec.accrual_conversion_rate,
6538: p_req_line_detail_Rec.accrual_conversion_rate) Then
6539: p_Line_Adj_Rec.accrual_conversion_rate := p_req_line_detail_Rec.accrual_conversion_rate;
6540: l_updated_Flag := True;
6541: end If;
6539: p_Line_Adj_Rec.accrual_conversion_rate := p_req_line_detail_Rec.accrual_conversion_rate;
6540: l_updated_Flag := True;
6541: end If;
6542:
6543: if not OE_GLOBALS.Equal(p_Line_Adj_Rec.charge_type_code,
6544: p_req_line_detail_Rec.charge_type_code) Then
6545: p_Line_Adj_Rec.charge_type_code := p_req_line_detail_Rec.charge_type_code;
6546: l_updated_Flag := True;
6547: end If;
6545: p_Line_Adj_Rec.charge_type_code := p_req_line_detail_Rec.charge_type_code;
6546: l_updated_Flag := True;
6547: end If;
6548:
6549: if not OE_GLOBALS.Equal(p_Line_Adj_Rec.charge_subtype_code,
6550: p_req_line_detail_Rec.charge_subtype_code) Then
6551: p_Line_Adj_Rec.charge_subtype_code := p_req_line_detail_Rec.charge_subtype_code;
6552: l_updated_Flag := True;
6553: end If;
6552: l_updated_Flag := True;
6553: end If;
6554:
6555:
6556: if not OE_GLOBALS.Equal(p_Line_Adj_Rec.include_on_returns_flag,
6557: p_req_line_detail_Rec.include_on_returns_flag) Then
6558: p_Line_Adj_Rec.include_on_returns_flag := p_req_line_detail_Rec.include_on_returns_flag;
6559: l_updated_Flag := True;
6560: end If;
6558: p_Line_Adj_Rec.include_on_returns_flag := p_req_line_detail_Rec.include_on_returns_flag;
6559: l_updated_Flag := True;
6560: end If;
6561:
6562: if not OE_GLOBALS.Equal(p_Line_Adj_Rec.benefit_uom_code,
6563: p_req_line_detail_Rec.benefit_uom_code) Then
6564: p_Line_Adj_Rec.benefit_uom_code := p_req_line_detail_Rec.benefit_uom_code;
6565: l_updated_Flag := True;
6566: end If;
6564: p_Line_Adj_Rec.benefit_uom_code := p_req_line_detail_Rec.benefit_uom_code;
6565: l_updated_Flag := True;
6566: end If;
6567:
6568: if not OE_GLOBALS.Equal(p_Line_Adj_Rec.Benefit_qty, p_req_line_detail_Rec.Benefit_qty) Then
6569: p_Line_Adj_Rec.Benefit_qty := p_req_line_detail_Rec.Benefit_qty;
6570: l_updated_Flag := True;
6571: end If;
6572:
6569: p_Line_Adj_Rec.Benefit_qty := p_req_line_detail_Rec.Benefit_qty;
6570: l_updated_Flag := True;
6571: end If;
6572:
6573: if not OE_GLOBALS.Equal(p_Line_Adj_Rec.proration_type_code,
6574: p_req_line_detail_Rec.proration_type_code) Then
6575: p_Line_Adj_Rec.proration_type_code := p_req_line_detail_Rec.proration_type_code;
6576: l_updated_Flag := True;
6577: end If;
6575: p_Line_Adj_Rec.proration_type_code := p_req_line_detail_Rec.proration_type_code;
6576: l_updated_Flag := True;
6577: end If;
6578:
6579: /* if not OE_GLOBALS.Equal(p_Line_Adj_Rec.list_line_no, p_req_line_detail_Rec.list_line_no) Then
6580: p_Line_Adj_Rec.list_line_no := p_req_line_detail_Rec.list_line_no;
6581: l_updated_Flag := True;
6582: end If;
6583: */
6580: p_Line_Adj_Rec.list_line_no := p_req_line_detail_Rec.list_line_no;
6581: l_updated_Flag := True;
6582: end If;
6583: */
6584: if not OE_GLOBALS.Equal(p_Line_Adj_Rec.source_system_code,
6585: p_req_line_detail_Rec.source_system_code) Then
6586: p_Line_Adj_Rec.source_system_code := p_req_line_detail_Rec.source_system_code;
6587: l_updated_Flag := True;
6588: end If;
6586: p_Line_Adj_Rec.source_system_code := p_req_line_detail_Rec.source_system_code;
6587: l_updated_Flag := True;
6588: end If;
6589:
6590: if not OE_GLOBALS.Equal(p_Line_Adj_Rec.expiration_date,
6591: p_req_line_detail_Rec.expiration_date) Then
6592: p_Line_Adj_Rec.expiration_date := p_req_line_detail_Rec.expiration_date;
6593: l_updated_Flag := True;
6594: end If;
6592: p_Line_Adj_Rec.expiration_date := p_req_line_detail_Rec.expiration_date;
6593: l_updated_Flag := True;
6594: end If;
6595:
6596: if not OE_GLOBALS.Equal(p_Line_Adj_Rec.Rebate_transaction_type_code,
6597: p_req_line_detail_Rec.Rebate_transaction_type_code) Then
6598: p_Line_Adj_Rec.Rebate_transaction_type_code :=
6599: p_req_line_detail_Rec.Rebate_transaction_type_code;
6600: l_updated_Flag := True;
6599: p_req_line_detail_Rec.Rebate_transaction_type_code;
6600: l_updated_Flag := True;
6601: end If;
6602:
6603: if not OE_GLOBALS.Equal(p_Line_Adj_Rec.modifier_level_code,
6604: p_req_line_detail_Rec.modifier_level_code) Then
6605: p_Line_Adj_Rec.modifier_level_code :=
6606: p_req_line_detail_Rec.modifier_level_code;
6607: l_updated_Flag := True;
6605: p_Line_Adj_Rec.modifier_level_code :=
6606: p_req_line_detail_Rec.modifier_level_code;
6607: l_updated_Flag := True;
6608: end If;
6609: if not OE_GLOBALS.Equal(p_Line_Adj_Rec.group_value,
6610: p_req_line_detail_Rec.group_value) Then
6611: p_Line_Adj_Rec.group_value :=
6612: p_req_line_detail_Rec.group_value;
6613: l_updated_Flag := True;
6731: -- This is a new Record
6732: --
6733: x_Adj_Index := px_line_adj_Tbl.count + 1;
6734: px_line_adj_tbl(x_adj_index) := OE_ORDER_PUB.G_MISS_LINE_ADJ_REC;
6735: px_line_adj_Tbl(x_Adj_Index).operation := OE_GLOBALS.G_OPR_CREATE;
6736: px_line_adj_Tbl(x_Adj_Index).Updated_Flag := 'N';
6737: px_line_adj_Tbl(x_Adj_Index).adjusted_amount_per_pqty := null;
6738: --
6739: elsif px_Line_Adj_Tbl(x_Adj_Index).price_adjustment_id is null or
6739: elsif px_Line_Adj_Tbl(x_Adj_Index).price_adjustment_id is null or
6740: px_Line_Adj_Tbl(x_Adj_Index).price_adjustment_id = FND_API.g_miss_num Then
6741: --Record is not yet created in the database
6742: px_line_adj_Tbl(x_Adj_Index).Updated_Flag := 'N';
6743: px_line_adj_Tbl(x_Adj_Index).operation := OE_GLOBALS.G_OPR_CREATE;
6744: /* Taking out nocopy this part to be set in update_adj_line_rec: Manish */
6745:
6746: -- Else
6747: -- px_Line_Adj_Tbl(x_Adj_Index).operation := OE_GLOBALS.G_OPR_UPDATE;
6743: px_line_adj_Tbl(x_Adj_Index).operation := OE_GLOBALS.G_OPR_CREATE;
6744: /* Taking out nocopy this part to be set in update_adj_line_rec: Manish */
6745:
6746: -- Else
6747: -- px_Line_Adj_Tbl(x_Adj_Index).operation := OE_GLOBALS.G_OPR_UPDATE;
6748: end if;
6749:
6750: --G_STMT_NO := 'Find_Duplicate_Adj_Lines#10.57';
6751:
6757:
6758: elsif px_Line_Adj_Tbl(X_Adj_Index).list_line_type_code =
6759: 'FREIGHT_CHARGE'
6760: AND
6761: (NOT OE_GLOBALS.EQUAL(px_Line_Adj_Tbl(X_Adj_Index).list_Line_id,
6762: p_req_line_detail_Rec.list_Line_id))
6763: AND
6764: px_line_adj_Tbl(X_Adj_Index).operation <>
6765: OE_GLOBALS.G_OPR_DELETE
6761: (NOT OE_GLOBALS.EQUAL(px_Line_Adj_Tbl(X_Adj_Index).list_Line_id,
6762: p_req_line_detail_Rec.list_Line_id))
6763: AND
6764: px_line_adj_Tbl(X_Adj_Index).operation <>
6765: OE_GLOBALS.G_OPR_DELETE
6766: AND
6767: nvl(px_Line_Adj_Tbl(x_Adj_Index).adjusted_amount_per_pqty,0) >=
6768: nvl(p_req_line_detail_Rec.adjustment_amount,0)
6769: Then
6784: --if pricing engine return a prg line set the operation
6785: --to update because parent quantity might have changed
6786:
6787: If p_req_line_detail_rec.list_line_type_code = 'PRG' Then
6788: px_line_adj_tbl(x_adj_index).operation := OE_GLOBALS.G_OPR_UPDATE;
6789: End If;
6790:
6791: End If; -- Check Updated_Flag
6792:
6842: WHILE i IS NOT NULL LOOP
6843: oe_debug_pub.add('zInside Assoc Query i value:'||i);
6844: l_index := p_Line_Adj_Assoc_Tbl.count+1;
6845: If p_delete_flag = 'Y' Then
6846: p_Line_Adj_Assoc_Tbl(l_index).Operation := OE_GLOBALS.G_OPR_DELETE;
6847: Else
6848: p_line_adj_assoc_tbl(l_index).Operation := FND_API.G_MISS_CHAR;
6849: End If;
6850: oe_debug_pub.add('zl_index:'||l_index);
6955:
6956: elsif nvl(l_Line_Adj_Tbl(i).Updated_Flag,'N') = 'N' or
6957: l_Line_Adj_Tbl(i).Updated_Flag = fnd_api.g_miss_char then
6958: adj_debug('BCT'||l_Line_Adj_Tbl(i).price_adjustment_id);
6959: L_Line_Adj_Tbl(i).operation := OE_GLOBALS.G_OPR_DELETE;
6960:
6961: --Fix bug 1758251
6962: If l_line_adj_tbl(i).list_line_type_code = 'IUE' Then
6963: get_item_for_iue(px_line_rec => px_line_rec);
6991: px_line_adj_tbl(px_line_adj_tbl.count+1) := L_Line_Adj_Tbl(i);
6992:
6993: If px_line_adj_tbl(px_line_adj_tbl.count).list_line_type_code In('PBH','PRG','OID','CIE')
6994: Then
6995: If px_line_adj_tbl(px_line_adj_tbl.count).operation = OE_GLOBALS.G_OPR_DELETE
6996: Then
6997: Query_Adj_Assocs(p_price_adjustment_id=>px_line_adj_tbl(px_line_adj_tbl.count).price_adjustment_id,
6998: p_Adj_Index => px_line_adj_tbl.count,
6999: p_Line_Adj_Assoc_Tbl => px_line_adj_Assoc_tbl,
7084: For i in 1..L_Line_Adj_Att_Tbl.count loop
7085:
7086: l_index := p_Line_Adj_Att_Tbl.count+1;
7087: p_Line_Adj_Att_Tbl(l_index) := l_Line_Adj_Att_tbl(i);
7088: p_Line_Adj_Att_Tbl(l_index).Operation := OE_GLOBALS.G_OPR_DELETE;
7089: p_Line_Adj_Att_Tbl(l_index).Adj_Index := p_Adj_Index;
7090: p_Line_Adj_Att_Tbl(l_index).price_adjustment_id := p_price_adjustment_id;
7091:
7092: end loop;
7119: i:= p_Line_Adj_Att_Tbl.First;
7120: While i is not null loop
7121: If p_Line_Adj_Att_Tbl(i).Adj_Index = p_Adj_index Then
7122:
7123: If OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).flex_title ,
7124: 'QP_ATTR_DEFNS_QUALIFIER') and
7125: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).pricing_context,
7126: p_Req_LINE_DETAIL_qual_Rec.Qualifier_Context) And
7127: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).pricing_attribute ,
7121: If p_Line_Adj_Att_Tbl(i).Adj_Index = p_Adj_index Then
7122:
7123: If OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).flex_title ,
7124: 'QP_ATTR_DEFNS_QUALIFIER') and
7125: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).pricing_context,
7126: p_Req_LINE_DETAIL_qual_Rec.Qualifier_Context) And
7127: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).pricing_attribute ,
7128: p_Req_LINE_DETAIL_qual_Rec.Qualifier_Attribute) And
7129: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).pricing_attr_value_from ,
7123: If OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).flex_title ,
7124: 'QP_ATTR_DEFNS_QUALIFIER') and
7125: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).pricing_context,
7126: p_Req_LINE_DETAIL_qual_Rec.Qualifier_Context) And
7127: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).pricing_attribute ,
7128: p_Req_LINE_DETAIL_qual_Rec.Qualifier_Attribute) And
7129: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).pricing_attr_value_from ,
7130: p_Req_LINE_DETAIL_qual_Rec.Qualifier_Attr_Value_From) And
7131: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).pricing_attr_value_To ,
7125: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).pricing_context,
7126: p_Req_LINE_DETAIL_qual_Rec.Qualifier_Context) And
7127: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).pricing_attribute ,
7128: p_Req_LINE_DETAIL_qual_Rec.Qualifier_Attribute) And
7129: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).pricing_attr_value_from ,
7130: p_Req_LINE_DETAIL_qual_Rec.Qualifier_Attr_Value_From) And
7131: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).pricing_attr_value_To ,
7132: p_Req_LINE_DETAIL_qual_Rec.Qualifier_Attr_Value_To) And
7133: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).comparison_operator ,
7127: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).pricing_attribute ,
7128: p_Req_LINE_DETAIL_qual_Rec.Qualifier_Attribute) And
7129: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).pricing_attr_value_from ,
7130: p_Req_LINE_DETAIL_qual_Rec.Qualifier_Attr_Value_From) And
7131: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).pricing_attr_value_To ,
7132: p_Req_LINE_DETAIL_qual_Rec.Qualifier_Attr_Value_To) And
7133: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).comparison_operator ,
7134: p_Req_LINE_DETAIL_qual_Rec.comparison_operator_Code)
7135: Then
7129: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).pricing_attr_value_from ,
7130: p_Req_LINE_DETAIL_qual_Rec.Qualifier_Attr_Value_From) And
7131: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).pricing_attr_value_To ,
7132: p_Req_LINE_DETAIL_qual_Rec.Qualifier_Attr_Value_To) And
7133: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).comparison_operator ,
7134: p_Req_LINE_DETAIL_qual_Rec.comparison_operator_Code)
7135: Then
7136: -- Do not delete the record from oe_order_Price_adj_Attribs
7137:
7134: p_Req_LINE_DETAIL_qual_Rec.comparison_operator_Code)
7135: Then
7136: -- Do not delete the record from oe_order_Price_adj_Attribs
7137:
7138: If p_Line_Adj_Att_Tbl(i).Operation = OE_GLobals.g_opr_delete then
7139: p_Line_Adj_Att_Tbl(i).Operation := FND_API.G_MISS_CHAR;
7140: End If;
7141:
7142: Return;
7150: G_STMT_NO := 'Find_Duplicate_Adj_Attribs#20';
7151: -- Create a New Record
7152: l_index := p_Line_Adj_Att_Tbl.count+1;
7153: p_Line_Adj_Att_Tbl(l_index) := OE_ORDER_PUB.G_MISS_LINE_ADJ_ATT_REC;
7154: p_Line_Adj_Att_Tbl(l_index).operation := OE_GLOBALS.G_OPR_CREATE;
7155: p_Line_Adj_Att_Tbl(l_index).Adj_index := P_Adj_Index;
7156: p_Line_Adj_Att_Tbl(l_index).price_adjustment_id := p_price_adjustment_id;
7157: p_Line_Adj_Att_Tbl(l_index).flex_title := 'QP_ATTR_DEFNS_QUALIFIER';
7158: p_Line_Adj_Att_Tbl(l_index).pricing_context :=
7176: While i is not null loop
7177:
7178: If p_Line_Adj_Att_Tbl(i).Adj_Index = p_Adj_index Then
7179:
7180: If OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).flex_title ,
7181: 'QP_ATTR_DEFNS_PRICING') and
7182: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).pricing_context,
7183: p_Req_Line_Detail_Attr_Rec.Pricing_Context) And
7184: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).pricing_attribute ,
7178: If p_Line_Adj_Att_Tbl(i).Adj_Index = p_Adj_index Then
7179:
7180: If OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).flex_title ,
7181: 'QP_ATTR_DEFNS_PRICING') and
7182: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).pricing_context,
7183: p_Req_Line_Detail_Attr_Rec.Pricing_Context) And
7184: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).pricing_attribute ,
7185: p_Req_Line_Detail_Attr_Rec.Pricing_Attribute) And
7186: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).pricing_attr_value_from ,
7180: If OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).flex_title ,
7181: 'QP_ATTR_DEFNS_PRICING') and
7182: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).pricing_context,
7183: p_Req_Line_Detail_Attr_Rec.Pricing_Context) And
7184: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).pricing_attribute ,
7185: p_Req_Line_Detail_Attr_Rec.Pricing_Attribute) And
7186: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).pricing_attr_value_from ,
7187: p_Req_Line_Detail_Attr_Rec.Pricing_Attr_Value_From) And
7188: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).pricing_attr_value_To ,
7182: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).pricing_context,
7183: p_Req_Line_Detail_Attr_Rec.Pricing_Context) And
7184: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).pricing_attribute ,
7185: p_Req_Line_Detail_Attr_Rec.Pricing_Attribute) And
7186: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).pricing_attr_value_from ,
7187: p_Req_Line_Detail_Attr_Rec.Pricing_Attr_Value_From) And
7188: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).pricing_attr_value_To ,
7189: p_Req_Line_Detail_Attr_Rec.Pricing_Attr_Value_To)
7190: --And
7184: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).pricing_attribute ,
7185: p_Req_Line_Detail_Attr_Rec.Pricing_Attribute) And
7186: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).pricing_attr_value_from ,
7187: p_Req_Line_Detail_Attr_Rec.Pricing_Attr_Value_From) And
7188: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).pricing_attr_value_To ,
7189: p_Req_Line_Detail_Attr_Rec.Pricing_Attr_Value_To)
7190: --And
7191: --OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).comparison_operator ,
7192: --p_Req_Line_Detail_Attr_Rec.comparison_operator_Code)
7187: p_Req_Line_Detail_Attr_Rec.Pricing_Attr_Value_From) And
7188: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).pricing_attr_value_To ,
7189: p_Req_Line_Detail_Attr_Rec.Pricing_Attr_Value_To)
7190: --And
7191: --OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).comparison_operator ,
7192: --p_Req_Line_Detail_Attr_Rec.comparison_operator_Code)
7193: Then
7194: -- Do not delete the record from oe_order_Price_adj_Attribs
7195:
7192: --p_Req_Line_Detail_Attr_Rec.comparison_operator_Code)
7193: Then
7194: -- Do not delete the record from oe_order_Price_adj_Attribs
7195:
7196: If p_Line_Adj_Att_Tbl(i).Operation = oe_globals.g_opr_delete Then
7197: p_Line_Adj_Att_Tbl(i).Operation := FND_API.G_MISS_CHAR;
7198: End If;
7199:
7200: Return;
7206:
7207: -- Create a New Record
7208: l_index := p_Line_Adj_Att_Tbl.count+1;
7209: p_line_adj_att_tbl(l_index) := OE_ORDER_PUB.G_MISS_LINE_ADJ_ATT_REC;
7210: p_Line_Adj_Att_Tbl(l_index).operation := OE_GLOBALS.G_OPR_CREATE;
7211: p_Line_Adj_Att_Tbl(l_index).Adj_index := P_Adj_Index;
7212: p_Line_Adj_Att_Tbl(l_index).price_adjustment_id := p_price_adjustment_id;
7213: p_Line_Adj_Att_Tbl(l_index).flex_title := 'QP_ATTR_DEFNS_PRICING';
7214: p_Line_Adj_Att_Tbl(l_index).pricing_context :=
7362: p_Line_Adj_Assoc_Tbl.delete(i);
7363:
7364: -- Bug 2270949
7365: IF (p_Rltd_line_details_prcd.exists(p_line_detail_index)
7366: and p_line_adj_tbl(p_Rltd_line_details_prcd(p_line_detail_index)).operation = OE_GLOBALS.G_OPR_CREATE) THEN
7367: adj_debug('2270949:replace '||p_Rltd_line_details_prcd(p_line_detail_index)||' with '||j);
7368: p_line_adj_tbl(p_Rltd_line_details_prcd(p_line_detail_index)).operation :=NULL;
7369: p_line_detail_replaced(p_Rltd_line_details_prcd(p_line_detail_index)) := j;
7370: End If;
7377: ,p_req_line_detail_Rec => p_req_line_detail_Tbl(p_Line_Detail_Index)
7378: )
7379: Then
7380: -- There is a Change is the Adjsutment Record
7381: l_Line_Adj_Rec.operation := OE_GLOBALS.G_OPR_UPDATE;
7382: p_Line_Adj_Tbl(j) := l_Line_Adj_Rec;
7383: End If;
7384:
7385: l_Req_Line_Index := p_req_line_detail_Tbl(p_Line_Detail_Index).Line_Index;
7389: -- 2270949
7390: If p_Rltd_lines_prcd.exists(l_Req_Line_Index) Then
7391: adj_debug('req line index'||l_Req_Line_Index||' '||p_Rltd_lines_prcd(l_Req_line_Index));
7392: adj_debug('operation:'||p_line_tbl(p_Rltd_lines_prcd(l_Req_line_index)).operation);
7393: if p_line_tbl(p_Rltd_lines_prcd(l_Req_Line_Index)).operation = OE_GLOBALS.G_OPR_CREATE THEN
7394: -- replace this line with the old line
7395: adj_debug('delete line'||p_rltd_lines_prcd(l_req_line_index));
7396: l_new_prg_created := TRUE;
7397:
7407: ( p_Line_id => l_line_Adj_Rec.Line_Id
7408: , x_line_rec => l_line_rec);
7409:
7410: if l_line_rec.operation = FND_API.G_MISS_CHAR then
7411: l_line_rec.operation := OE_GLOBALS.G_OPR_UPDATE;
7412: End If;
7413:
7414: adj_debug(' GET line, line_id:'||l_line_rec.line_id);
7415: adj_debug(' GET line, open_flag:'||l_line_rec.open_flag);
7524: If Not p_Rltd_lines_prcd.exists(l_Req_Line_Index) Then
7525:
7526: adj_debug('Creating a new line record for header '||P_Header_Id);
7527: l_line_rec:=OE_ORDER_PUB.G_MISS_LINE_REC;
7528: l_line_rec.operation := OE_GLOBALS.G_OPR_CREATE;
7529:
7530: l_line_rec.Header_id := P_Header_Id;
7531: --for bug 2412868 Begin
7532: oe_debug_pub.add('b2412868:'||p_req_line_tbl(l_req_line_index).line_quantity);
7676: If Not p_Rltd_line_details_prcd.exists(p_Line_detail_Index) Then
7677:
7678: l_Adj_Index := p_line_adj_Tbl.count+1;
7679: p_line_adj_tbl(l_adj_index) := OE_ORDER_PUB.G_MISS_LINE_ADJ_REC;
7680: p_line_adj_Tbl(l_Adj_Index).operation := OE_GLOBALS.G_OPR_CREATE;
7681:
7682: adj_debug('Creating an adjustment record for PRG '||l_Adj_Index);
7683: If Update_Adj_Line_rec(
7684: p_Line_Adj_Rec => p_Line_Adj_Tbl(l_Adj_Index)
7711: p_Line_Adj_Assoc_tbl(l_assoc_index).line_index := Null;
7712: p_Line_Adj_Assoc_tbl(l_assoc_index).Adj_Index := P_Parent_Adj_Index;
7713: p_Line_Adj_Assoc_tbl(l_assoc_index).Rltd_Adj_Index :=
7714: p_Rltd_line_Details_prcd(p_Line_detail_Index);
7715: p_Line_Adj_Assoc_tbl(l_assoc_index).Operation := OE_Globals.G_OPR_CREATE;
7716:
7717: End If; -- Match_exists
7718:
7719: adj_debug('Exiting oe_order_Adj_pvt.Process_Other_Item_Line',1);
8216: ,l_item_rec);
8217:
8218: If p_line_tbl(i).calculate_price_flag in ('Y','P')
8219: OR (p_price_event is NULL and
8220: p_line_tbl(i).operation = oe_globals.G_OPR_UPDATE)
8221: OR p_honor_price_flag = 'N' --bug 2503186
8222: OR -- OPM 2547940 start - for copy of order OR split from shipping - need to re-price as these lines
8223: -- as may have freeze price for calulate price flag when pricing by quantity2
8224: (
8232:
8233: Then
8234: adj_debug('Processing Line id '||p_line_tbl(i).line_id,2);
8235:
8236: If p_Line_Tbl(i).operation in (oe_globals.g_opr_delete, oe_globals.g_opr_lock) or
8237: (p_Line_Tbl(i).Unit_list_price is null
8238: and p_Line_Tbl(i).Unit_list_price_per_pqty is null)
8239: Then
8240: adj_debug('Line '||p_line_tbl(i).line_id||' price is not calculated');
8295: (p_Line_Adj_Tbl(j).line_index is null or
8296: p_Line_Adj_Tbl(j).line_index = fnd_api.g_miss_num) and
8297: p_Line_Adj_Tbl(j).Header_Id = p_header_Rec.Header_Id
8298: )) and -- Header Level Adjustments
8299: p_Line_Adj_Tbl(j).Operation <> OE_Globals.G_OPR_DELETE and
8300: nvl(p_Line_Adj_Tbl(j).applied_flag,'N')='Y' and
8301: /* Modified the nvl to 'N' in the above statement to fix the bug 2164508 */
8302: p_Line_Adj_Tbl(j).list_line_type_code in ('DIS','SUR','FREIGHT_CHARGE','PBH')
8303: then
8336: While J1 is not null loop
8337: If ( (p_line_adj_assoc_Tbl(j1).Adj_index = J Or
8338: (p_line_adj_assoc_Tbl(j1).Price_adjustment_id =
8339: p_Line_Adj_Tbl(j).Price_Adjustment_id and
8340: p_Line_Adj_Tbl(j).Price_Adjustment_id <> fnd_api.g_miss_num )) and (nvl(p_line_adj_assoc_Tbl(j1).operation,'xxyz') <> OE_GLOBALS.G_OPR_DELETE)
8341: ) Then
8342: l_assoc_exist := TRUE;
8343: p_Line_Adj_Tbl(j).Adjusted_Amount_Per_Pqty := 0;
8344: l_adjusted_amt_changed := TRUE;
8368: While J1 is not null loop
8369: If ( (p_line_adj_assoc_Tbl(j1).Adj_index = J Or
8370: (p_line_adj_assoc_Tbl(j1).Price_adjustment_id =
8371: p_Line_Adj_Tbl(j).Price_Adjustment_id and
8372: p_Line_Adj_Tbl(j).Price_Adjustment_id <> fnd_api.g_miss_num )) And (nvl(p_line_adj_assoc_Tbl(j1).operation,'xxyz') <> OE_GLOBALS.G_OPR_DELETE)
8373:
8374: ) Then
8375:
8376: adj_debug('Got an association Rltd_index '||p_line_adj_assoc_Tbl(j1).Rltd_Adj_index,2);
8618:
8619: If not (p_any_line_frozen and p_line_adj_tbl(j).modifier_level_code = 'ORDER') Then
8620: adj_debug('Calculate Price:'||p_Line_Adj_Tbl(j).list_line_id);
8621: If p_Line_Adj_Tbl(j).updated_flag = 'N' Then
8622: p_Line_Adj_Tbl(j).operation := OE_GLOBALS.G_OPR_UPDATE;
8623: End If;
8624: End If;
8625: End If;
8626: l_Sort_Index:= l_Sorted_Adjustment_Tbl.Next(l_Sort_Index);
8911:
8912: if (l_line_rec.booked_flag <> 'Y' OR
8913: l_line_rec.booked_flag is NULL) Then
8914: adj_debug('Order not booked');
8915: l_line_rec.operation := OE_GLOBALS.G_OPR_DELETE;
8916: p_delete_prg_lines(l_line_rec.line_id) := l_line_rec.line_id;
8917: else
8918: l_line_rec.change_reason := 'SYSTEM';
8919: l_line_rec.change_comments := 'REPRICING';
8918: l_line_rec.change_reason := 'SYSTEM';
8919: l_line_rec.change_comments := 'REPRICING';
8920: if (l_line_rec.shipped_quantity is NULL) Then
8921: adj_debug('Booked order, line not shipped');
8922: l_line_rec.operation := OE_GLOBALS.G_OPR_UPDATE;
8923: l_line_rec.ordered_quantity := 0;
8924: l_line_rec.pricing_quantity := 0;
8925: p_delete_prg_lines(l_line_rec.line_id) := l_line_rec.line_id;
8926: else
8924: l_line_rec.pricing_quantity := 0;
8925: p_delete_prg_lines(l_line_rec.line_id) := l_line_rec.line_id;
8926: else
8927: adj_debug('Booked order, shipped line');
8928: l_line_rec.operation := OE_GLOBALS.G_OPR_UPDATE;
8929: l_line_rec.calculate_price_flag := 'Y';
8930: adj_debug('logging delayed request to price line');
8931: l_pricing_event := 'BATCH'; --2442012
8932: /* OE_delayed_requests_Pvt.log_request(
8929: l_line_rec.calculate_price_flag := 'Y';
8930: adj_debug('logging delayed request to price line');
8931: l_pricing_event := 'BATCH'; --2442012
8932: /* OE_delayed_requests_Pvt.log_request(
8933: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
8934: p_entity_id => l_line_rec.line_id,
8935: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_ALL,
8936: p_requesting_entity_id => l_line_rec.line_id,
8937: p_request_unique_key1 => 'BATCH',
8931: l_pricing_event := 'BATCH'; --2442012
8932: /* OE_delayed_requests_Pvt.log_request(
8933: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
8934: p_entity_id => l_line_rec.line_id,
8935: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_ALL,
8936: p_requesting_entity_id => l_line_rec.line_id,
8937: p_request_unique_key1 => 'BATCH',
8938: p_param1 => l_line_rec.header_id,
8939: p_param2 => 'BATCH',
8936: p_requesting_entity_id => l_line_rec.line_id,
8937: p_request_unique_key1 => 'BATCH',
8938: p_param1 => l_line_rec.header_id,
8939: p_param2 => 'BATCH',
8940: p_request_type => OE_GLOBALS.G_PRICE_LINE,
8941: x_return_status => l_return_status);
8942: */
8943: if (l_match_phase_id) Then
8944: -- modifier in BOOK phase
8944: -- modifier in BOOK phase
8945: l_pricing_event := 'BATCH,BOOK';
8946: end if;
8947: OE_delayed_requests_Pvt.log_request(
8948: p_entity_code =>OE_GLOBALS.G_ENTITY_ALL,
8949: p_entity_id => l_line_rec.line_Id,
8950: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_ALL,
8951: p_requesting_entity_id => l_line_rec.line_Id,
8952: p_request_unique_key1 => l_pricing_event,
8946: end if;
8947: OE_delayed_requests_Pvt.log_request(
8948: p_entity_code =>OE_GLOBALS.G_ENTITY_ALL,
8949: p_entity_id => l_line_rec.line_Id,
8950: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_ALL,
8951: p_requesting_entity_id => l_line_rec.line_Id,
8952: p_request_unique_key1 => l_pricing_event,
8953: p_param1 => l_line_rec.header_id,
8954: p_param2 => l_pricing_event,
8951: p_requesting_entity_id => l_line_rec.line_Id,
8952: p_request_unique_key1 => l_pricing_event,
8953: p_param1 => l_line_rec.header_id,
8954: p_param2 => l_pricing_event,
8955: p_request_type => OE_GLOBALS.G_PRICE_LINE,
8956: x_return_status => l_return_status);
8957: --2442012 end if;
8958: end if;
8959: end if;
9000: is
9001: l_Req_Line_Detail_qual_Rec QP_PREQ_GRP.line_detail_qual_rec_type;
9002: l_Req_Line_Detail_attr_Rec QP_PREQ_GRP.line_detail_attr_rec_type;
9003: l_req_line_rec qp_preq_grp.line_rec_type;
9004: l_control_rec Oe_Globals.Control_rec_type;
9005: l_header_rec oe_Order_Pub.header_rec_type := p_header_rec;
9006: --l_old_line_rec oe_order_pub.line_rec_type;
9007: l_line_rec oe_order_pub.line_rec_type;
9008: l_old_line_tbl OE_Order_PUB.Line_Tbl_Type;
9455:
9456: IF (l_header_rec.price_request_code IS NULL OR -- PROMOTIONS SEP/01
9457: l_header_rec.price_request_code = FND_API.G_MISS_CHAR) THEN
9458: l_header_rec.price_request_code := p_req_line_tbl(i).price_request_code;
9459: l_header_rec.operation := OE_GLOBALS.G_OPR_UPDATE;
9460: END IF;
9461:
9462: append_Adjustment_Lines(p_header_id => p_req_line_tbl(i).line_id,
9463: -- line_id contains header_id for line_type_code='ORDER'
9688: adj_debug('freight_terms_code updated to '||p_req_line_detail_Tbl(j).Substitution_to);
9689: l_header_rec.freight_terms_code := p_req_line_detail_Tbl(j).Substitution_to;
9690: End If;
9691:
9692: l_header_rec.operation := OE_GLOBALS.G_OPR_UPDATE;
9693:
9694: End If; -- TSN
9695:
9696:
9736:
9737:
9738:
9739: --adj_debug('BCT+operation:'||l_line_adj_Tbl(l_Adj_Index).operation);
9740: if l_line_adj_Tbl(l_Adj_Index).operation in ( OE_GLOBALS.G_OPR_CREATE,
9741: OE_GLOBALS.G_OPR_UPDATE ) Then
9742: -- This Record Needs to be processed
9743: if p_req_line_tbl( p_req_line_detail_Tbl(j).line_index).line_type_code = 'LINE'
9744: Then
9737:
9738:
9739: --adj_debug('BCT+operation:'||l_line_adj_Tbl(l_Adj_Index).operation);
9740: if l_line_adj_Tbl(l_Adj_Index).operation in ( OE_GLOBALS.G_OPR_CREATE,
9741: OE_GLOBALS.G_OPR_UPDATE ) Then
9742: -- This Record Needs to be processed
9743: if p_req_line_tbl( p_req_line_detail_Tbl(j).line_index).line_type_code = 'LINE'
9744: Then
9745:
9787: p_req_line_tbl(p_req_line_detail_Tbl(j).line_index).line_id;
9788: -- line_id hold header_id for 'HEADER'
9789: l_line_adj_Tbl(l_Adj_Index).Line_index := null;
9790:
9791: --OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
9792:
9793: End If ; -- list_line_level
9794:
9795:
9932:
9933: FND_MESSAGE.SET_NAME('ONT','ONT_PROMO_LIMIT_EXCEEDED');
9934: FND_MESSAGE.SET_TOKEN('ERR_TEXT', p_req_line_detail_tbl(j).LIMIT_TEXT);
9935: OE_MSG_PUB.Add;
9936: IF (OE_GLOBALS.G_UI_FLAG ) THEN
9937: IF (G_REQUEST_ID IS NULL) THEN
9938: select oe_msg_request_id_s.nextval into g_request_id from dual;
9939: END IF;
9940: OE_MSG_PUB.INSERT_MESSAGE(OE_MSG_PUB.COUNT_MSG, G_REQUEST_ID,'U');
9985: l_Line_Adj_Assoc_tbl(l_assoc_index).Adj_Index :=
9986: l_line_details_prcd(p_Req_Related_Lines_Tbl(i).Line_Detail_Index);
9987: l_Line_Adj_Assoc_tbl(l_assoc_index).Rltd_Adj_Index :=
9988: l_line_details_prcd(p_Req_Related_Lines_Tbl(i).Related_Line_Detail_Index);
9989: l_Line_Adj_Assoc_tbl(l_assoc_index).Operation := OE_Globals.G_OPR_CREATE;
9990:
9991: If l_line_adj_Tbl.exists(l_line_details_prcd(p_Req_Related_Lines_Tbl(i).line_detail_Index))
9992: and l_line_adj_Tbl(l_line_details_prcd(p_Req_Related_Lines_Tbl(i).line_detail_Index)).price_adjustment_id <> FND_API.G_MISS_NUM and
9993: l_line_adj_Tbl(l_line_details_prcd(p_Req_Related_Lines_Tbl(i).line_detail_Index)).price_adjustment_id is not null then
10091: while i is not null loop
10092: adj_debug('line_index:'||l_line_adj_tbl(i).line_index);
10093: adj_debug('list line id:'||l_line_adj_tbl(i).list_line_id);
10094: adj_debug('operation : ' || l_line_adj_tbl(i).operation);
10095: IF (l_line_adj_tbl(i).operation = oe_globals.g_opr_delete
10096: and l_line_adj_tbl(i).list_line_type_code='PRG') THEN
10097:
10098: adj_debug('Need to delete/update free goods line');
10099: /* 1503357 */
10202:
10203:
10204: -- If a service reference line of different order is present set the operation.
10205: If l_line_tbl(i).header_id <> l_header_rec.header_id then
10206: l_line_tbl(i).operation := oe_globals.g_opr_none;
10207: End If;
10208:
10209:
10210: -- Remove the holes in the structure.
10225:
10226: l := l_line_tbl_final.count;
10227: adj_debug('operation'||l_line_tbl_final(l).operation,1);
10228: -- 2270949: logging message about free goods line
10229: if (l_line_Tbl_final(l).operation = OE_GLOBALS.G_OPR_CREATE) and p_write_to_db = TRUE then
10230: -- Display the PRG Item
10231: FND_MESSAGE.SET_NAME('ONT','ONT_CREATED_NEW_LINE');
10232: FND_MESSAGE.SET_TOKEN('ITEM',l_line_tbl_final(l).ordered_item);
10233: --bug 2412868 begin
10237: --bug 2412868 end
10238: FND_MESSAGE.SET_TOKEN('QUANTITY',l_line_tbl_final(l).Ordered_quantity);
10239: end if;
10240: OE_MSG_PUB.Add('N');
10241: OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
10242: end if;
10243: -- end 2270949
10244:
10245: -- only Lock the lines that needs to be updated
10243: -- end 2270949
10244:
10245: -- only Lock the lines that needs to be updated
10246: if (l_line_tbl_final(l).operation = FND_API.G_MISS_CHAR or
10247: l_line_tbl_final(l).operation = OE_GLOBALS.G_OPR_NONE or
10248: l_line_tbl_final(l).operation is null )
10249: and p_write_to_db = TRUE then
10250:
10251:
10271: ((l_line_tbl_final(l).price_request_code IS NULL AND l_old_line_tbl(l).price_request_code IS NULL) OR
10272: l_line_tbl_final(l).price_request_code =l_old_line_tbl(l).price_request_code)
10273:
10274: then
10275: l_line_tbl_final(l).operation := OE_GLOBALS.G_OPR_NONE;
10276: adj_debug('do nothing to '||i||' '||l_old_line_tbl(l).line_id,1);
10277: Else
10278: l_line_tbl_final(l).operation := OE_GLOBALS.G_OPR_UPDATE;
10279: l_num_changed_lines := l_num_changed_lines + 1;
10274: then
10275: l_line_tbl_final(l).operation := OE_GLOBALS.G_OPR_NONE;
10276: adj_debug('do nothing to '||i||' '||l_old_line_tbl(l).line_id,1);
10277: Else
10278: l_line_tbl_final(l).operation := OE_GLOBALS.G_OPR_UPDATE;
10279: l_num_changed_lines := l_num_changed_lines + 1;
10280: adj_debug('lock row '||i||' '||l_old_line_tbl(l).line_id,1);
10281: OE_LINE_UTIL.Lock_Row(x_return_status => x_return_status,
10282: p_x_line_rec => l_old_line_tbl(l)
10336: l_Line_Adj_Tbl(i).line_id = fnd_api.g_miss_num)
10337: AND (l_Line_Adj_Tbl(i).line_index is null or
10338: l_Line_Adj_Tbl(i).line_index = fnd_api.g_miss_num)
10339: AND l_Line_Adj_Tbl(i).Header_Id = p_header_Rec.Header_Id
10340: AND l_Line_Adj_Tbl(i).operation IN (OE_GLOBALS.G_OPR_CREATE, OE_GLOBALS.G_OPR_UPDATE, OE_GLOBALS.G_OPR_DELETE)
10341: AND l_Line_Adj_Tbl(i).list_line_type_code NOT IN ('FREIGHT_CHARGE','TAX','COST')
10342: AND nvl(g_pass_all_lines,'N') <> 'Y' THEN
10343: -- This is a header level adjustments, and not a freight charge.
10344: -- Need to log a delayed request to apply this header level adjustment
10345: -- to all lines on this order if not all lines were passed to pricing engine.
10346:
10347: adj_debug('Logging request to update all lines for header level adjustment.', 1);
10348: OE_DELAYED_REQUESTS_PVT.LOG_REQUEST(
10349: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
10350: p_entity_id => l_Line_adj_tbl(i).header_id,
10351: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_HEADER,
10352: p_requesting_entity_id => l_Line_adj_tbl(i).header_id,
10353: p_request_type => OE_GLOBALS.G_PRICE_ADJ,
10347: adj_debug('Logging request to update all lines for header level adjustment.', 1);
10348: OE_DELAYED_REQUESTS_PVT.LOG_REQUEST(
10349: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
10350: p_entity_id => l_Line_adj_tbl(i).header_id,
10351: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_HEADER,
10352: p_requesting_entity_id => l_Line_adj_tbl(i).header_id,
10353: p_request_type => OE_GLOBALS.G_PRICE_ADJ,
10354: x_return_status => l_return_status);
10355:
10349: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
10350: p_entity_id => l_Line_adj_tbl(i).header_id,
10351: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_HEADER,
10352: p_requesting_entity_id => l_Line_adj_tbl(i).header_id,
10353: p_request_type => OE_GLOBALS.G_PRICE_ADJ,
10354: x_return_status => l_return_status);
10355:
10356: END IF;
10357:
10357:
10358:
10359: G_STMT_NO := 'process_adjustments#140.1';
10360: -- Update the Header Level TERM Substitution on all Lines.
10361: If l_header_rec.operation = oe_globals.g_opr_update then
10362: If l_line_adj_tbl(i).list_line_type_code = 'TSN' and
10363: l_line_adj_tbl(i).modifier_level_code ='ORDER'
10364: then
10365: adj_debug('In Header TSN ');
10394: adj_debug('Updating freight_terms_code '||l_line_adj_tbl(i).Modified_to);
10395: l_Line_Tbl_Final(j).freight_terms_code := l_line_adj_tbl(i).Modified_to;
10396:
10397: End If;
10398: If (l_Line_Tbl_Final(j).operation = OE_GLOBALS.G_OPR_NONE) Then
10399: l_Line_Tbl_Final(j).operation := OE_GLOBALS.G_OPR_UPDATE;
10400: End If;
10401: --adj_debug('----------------------');
10402: End If;
10395: l_Line_Tbl_Final(j).freight_terms_code := l_line_adj_tbl(i).Modified_to;
10396:
10397: End If;
10398: If (l_Line_Tbl_Final(j).operation = OE_GLOBALS.G_OPR_NONE) Then
10399: l_Line_Tbl_Final(j).operation := OE_GLOBALS.G_OPR_UPDATE;
10400: End If;
10401: --adj_debug('----------------------');
10402: End If;
10403:
10451: G_STMT_NO := 'process_adjustments#140.2';
10452: if l_line_adj_tbl(i).operation = fnd_api.g_miss_char or
10453: l_Line_Adj_Tbl(i).list_line_type_code in ('TAX','COST')
10454: or l_line_adj_tbl(i).operation is null
10455: or l_line_adj_tbl(i).operation =oe_globals.g_opr_none then
10456: l_line_adj_tbl.delete(i);
10457: Elsif l_line_adj_tbl(i).operation = oe_globals.g_opr_update and
10458: ( l_line_adj_tbl(i).price_adjustment_id is null or
10459: l_line_adj_tbl(i).price_adjustment_id = fnd_api.g_miss_num ) then
10453: l_Line_Adj_Tbl(i).list_line_type_code in ('TAX','COST')
10454: or l_line_adj_tbl(i).operation is null
10455: or l_line_adj_tbl(i).operation =oe_globals.g_opr_none then
10456: l_line_adj_tbl.delete(i);
10457: Elsif l_line_adj_tbl(i).operation = oe_globals.g_opr_update and
10458: ( l_line_adj_tbl(i).price_adjustment_id is null or
10459: l_line_adj_tbl(i).price_adjustment_id = fnd_api.g_miss_num ) then
10460: l_line_adj_tbl(i).operation := oe_globals.g_opr_Create;
10461: ELsif l_line_adj_tbl(i).line_id IS NOT NULL and
10456: l_line_adj_tbl.delete(i);
10457: Elsif l_line_adj_tbl(i).operation = oe_globals.g_opr_update and
10458: ( l_line_adj_tbl(i).price_adjustment_id is null or
10459: l_line_adj_tbl(i).price_adjustment_id = fnd_api.g_miss_num ) then
10460: l_line_adj_tbl(i).operation := oe_globals.g_opr_Create;
10461: ELsif l_line_adj_tbl(i).line_id IS NOT NULL and
10462: l_line_adj_tbl(i).line_id <> FND_API.G_MISS_NUM and
10463: l_delete_prg_lines.exists(l_line_adj_tbl(i).line_id) THEN
10464: l_line_adj_tbl.delete(i);
10573: x_line_tbl := l_line_tbl_final;
10574: IF (p_write_to_db and l_num_changed_lines<1+l_line_tbl_final.count/2) THEN
10575: j:= l_Line_Tbl_Final.first;
10576: while j is not null loop
10577: IF (l_line_tbl_final(j).operation = OE_GLOBALS.G_OPR_NONE) THEN
10578: l_line_tbl_Final.delete(j);
10579: END IF;
10580: j:= l_Line_Tbl_Final.next(j);
10581: end loop;
10601: l_control_rec.validate_entity := TRUE;
10602: l_control_rec.clear_dependents := TRUE;
10603: --change made for bug 2351099 Begin
10604: --2366123: execute delayed requests if not from UI
10605: if (NOT OE_GLOBALS.G_UI_FLAG ) then
10606: l_control_rec.process := TRUE;
10607: else
10608: l_control_rec.process := FALSE;
10609: end if;
10614:
10615: -- Call OE_Order_PVT.Process_order
10616:
10617: adj_debug('Before OE_Order_PVT.Process_order',1);
10618: IF (oe_globals.G_CASCADING_REQUEST_LOGGED) THEN
10619: adj_debug('inside price line: cascading set');
10620: ELSE
10621: adj_debug('inside price line: cascading not set');
10622: END IF;
10619: adj_debug('inside price line: cascading set');
10620: ELSE
10621: adj_debug('inside price line: cascading not set');
10622: END IF;
10623: -- OE_Globals.G_RECURSION_MODE := 'Y';
10624: OE_Globals.G_PRICING_RECURSION := 'Y';
10625:
10626: G_STMT_NO := 'Failure in Process_Order API Call';
10627: --cc1
10620: ELSE
10621: adj_debug('inside price line: cascading not set');
10622: END IF;
10623: -- OE_Globals.G_RECURSION_MODE := 'Y';
10624: OE_Globals.G_PRICING_RECURSION := 'Y';
10625:
10626: G_STMT_NO := 'Failure in Process_Order API Call';
10627: --cc1
10628: IF (p_Req_Control_Rec.pricing_event = 'PRICE' AND
10678: , p_x_Lot_Serial_tbl => l_x_Lot_Serial_Tbl
10679: , p_x_action_request_tbl => l_x_Action_Request_tbl
10680: );
10681:
10682: -- OE_Globals.G_RECURSION_MODE := 'N';
10683: OE_Globals.G_PRICING_RECURSION := 'N';
10684:
10685: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10686: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10679: , p_x_action_request_tbl => l_x_Action_Request_tbl
10680: );
10681:
10682: -- OE_Globals.G_RECURSION_MODE := 'N';
10683: OE_Globals.G_PRICING_RECURSION := 'N';
10684:
10685: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10686: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10687: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
10693: G_STMT_NO := 'process_adjustments#140';
10694: /*
10695: -- Process Requests for Pricing line (for new line created for PRG)
10696: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Reqtype
10697: (p_request_type =>OE_GLOBALS.G_PRICE_LINE
10698: ,p_delete => FND_API.G_TRUE
10699: ,x_return_status => x_return_status
10700: );
10701: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10714: -- Freight charge change doesn't result in line change
10715: If p_req_control_rec.pricing_event in ('ORDER','SHIP','BOOK', 'BATCH') then
10716: IF (l_num_changed_lines > 0) THEN
10717: adj_debug('setting cascading flag to refresh order');
10718: OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
10719: END IF;
10720: Elsif INSTR(p_req_control_rec.pricing_event,'ORDER') > 0 or
10721: INSTR(p_req_control_rec.pricing_event,'BOOK') > 0 or
10722: INSTR(p_req_control_rec.pricing_event,'BATCH') > 0 or
10722: INSTR(p_req_control_rec.pricing_event,'BATCH') > 0 or
10723: INSTR(p_req_control_rec.pricing_event,'SHIP') > 0 then
10724: IF (l_num_changed_lines > 0) THEN
10725: adj_debug(' multiple events setting cascading flag to refresh order');
10726: OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
10727: END IF;
10728: End if;
10729:
10730: adj_debug('Exiting oe_order_Adj_pvt.process_adjustments',1);
10735: WHEN FND_API.G_EXC_ERROR THEN
10736:
10737: x_return_status := FND_API.G_RET_STS_ERROR;
10738: adj_debug(' exc_error'||g_stmt_no||' '||sqlerrm||' '||l_x_msg_data,1);
10739: -- OE_Globals.G_RECURSION_MODE := 'N';
10740: OE_Globals.G_PRICING_RECURSION := 'N';
10741:
10742: RAISE FND_API.G_EXC_ERROR;
10743: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10736:
10737: x_return_status := FND_API.G_RET_STS_ERROR;
10738: adj_debug(' exc_error'||g_stmt_no||' '||sqlerrm||' '||l_x_msg_data,1);
10739: -- OE_Globals.G_RECURSION_MODE := 'N';
10740: OE_Globals.G_PRICING_RECURSION := 'N';
10741:
10742: RAISE FND_API.G_EXC_ERROR;
10743: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10744:
10744:
10745: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10746: adj_debug(' '||g_stmt_no||' '||sqlerrm||' '||l_x_msg_data,1);
10747:
10748: -- OE_Globals.G_RECURSION_MODE := 'N';
10749: OE_Globals.G_PRICING_RECURSION := 'N';
10750: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10751:
10752: WHEN OTHERS THEN
10745: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10746: adj_debug(' '||g_stmt_no||' '||sqlerrm||' '||l_x_msg_data,1);
10747:
10748: -- OE_Globals.G_RECURSION_MODE := 'N';
10749: OE_Globals.G_PRICING_RECURSION := 'N';
10750: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10751:
10752: WHEN OTHERS THEN
10753:
10764: g_stmt_no||' '||sqlerrm
10765: );
10766: END IF;
10767:
10768: -- OE_Globals.G_RECURSION_MODE := 'N';
10769: OE_Globals.G_PRICING_RECURSION := 'N';
10770: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10771:
10772: end process_adjustments;
10765: );
10766: END IF;
10767:
10768: -- OE_Globals.G_RECURSION_MODE := 'N';
10769: OE_Globals.G_PRICING_RECURSION := 'N';
10770: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10771:
10772: end process_adjustments;
10773:
10817: l_header_id NUMBER;
10818: l_tmp_no number;
10819: Begin
10820:
10821: IF OE_GLOBALS.G_GMI_INSTALLED IS NULL THEN -- OPM 2547940 start GMA = OPM
10822: OE_GLOBALS.G_GMI_INSTALLED := OE_GLOBALS.CHECK_PRODUCT_INSTALLED(550);
10823: END IF;
10824:
10825: If (OE_GLOBALS.G_GMI_INSTALLED = 'Y')
10818: l_tmp_no number;
10819: Begin
10820:
10821: IF OE_GLOBALS.G_GMI_INSTALLED IS NULL THEN -- OPM 2547940 start GMA = OPM
10822: OE_GLOBALS.G_GMI_INSTALLED := OE_GLOBALS.CHECK_PRODUCT_INSTALLED(550);
10823: END IF;
10824:
10825: If (OE_GLOBALS.G_GMI_INSTALLED = 'Y')
10826: and nvl(OE_LINE_ADJ_UTIL.G_OPM_ITEM_CATCHWEIGHT_USED,'N') = 'Y' -- bug 2965218
10821: IF OE_GLOBALS.G_GMI_INSTALLED IS NULL THEN -- OPM 2547940 start GMA = OPM
10822: OE_GLOBALS.G_GMI_INSTALLED := OE_GLOBALS.CHECK_PRODUCT_INSTALLED(550);
10823: END IF;
10824:
10825: If (OE_GLOBALS.G_GMI_INSTALLED = 'Y')
10826: and nvl(OE_LINE_ADJ_UTIL.G_OPM_ITEM_CATCHWEIGHT_USED,'N') = 'Y' -- bug 2965218
10827: Then
10828: adj_debug('OPM - GMA installed');
10829: RETURN TRUE;
10829: RETURN TRUE;
10830: End If; -- OPM 2547940 end
10831:
10832:
10833: IF OE_GLOBALS.G_ASO_INSTALLED IS NULL THEN
10834: OE_GLOBALS.G_ASO_INSTALLED := OE_GLOBALS.CHECK_PRODUCT_INSTALLED(697);
10835: END IF;
10836:
10837: If (OE_GLOBALS.G_ASO_INSTALLED = 'N') Then
10830: End If; -- OPM 2547940 end
10831:
10832:
10833: IF OE_GLOBALS.G_ASO_INSTALLED IS NULL THEN
10834: OE_GLOBALS.G_ASO_INSTALLED := OE_GLOBALS.CHECK_PRODUCT_INSTALLED(697);
10835: END IF;
10836:
10837: If (OE_GLOBALS.G_ASO_INSTALLED = 'N') Then
10838: adj_debug('aso not installed');
10833: IF OE_GLOBALS.G_ASO_INSTALLED IS NULL THEN
10834: OE_GLOBALS.G_ASO_INSTALLED := OE_GLOBALS.CHECK_PRODUCT_INSTALLED(697);
10835: END IF;
10836:
10837: If (OE_GLOBALS.G_ASO_INSTALLED = 'N') Then
10838: adj_debug('aso not installed');
10839: RETURN FALSE;
10840: End If;
10841:
11109:
11110: )
11111: is
11112: l_Req_Control_Rec QP_PREQ_GRP.CONTROL_RECORD_TYPE;
11113: l_control_rec Oe_Globals.Control_rec_type;
11114: l_Line_tbl OE_Order_PUB.Line_tbl_type;
11115: l_old_Line_tbl OE_Order_PUB.Line_tbl_type;
11116: l_Line_tbl1 OE_Order_PUB.Line_tbl_type;
11117: l_Line_Adj_Att_tbl OE_Order_PUB.Line_Adj_Att_tbl_type;
11168: --btea perf end
11169:
11170:
11171:
11172: IF OE_GLOBALS.G_ASO_INSTALLED IS NULL THEN
11173: OE_GLOBALS.G_ASO_INSTALLED := OE_GLOBALS.CHECK_PRODUCT_INSTALLED(697);
11174: END IF;
11175:
11176: IF OE_GLOBALS.G_GMI_INSTALLED IS NULL THEN -- OPM 2547940
11169:
11170:
11171:
11172: IF OE_GLOBALS.G_ASO_INSTALLED IS NULL THEN
11173: OE_GLOBALS.G_ASO_INSTALLED := OE_GLOBALS.CHECK_PRODUCT_INSTALLED(697);
11174: END IF;
11175:
11176: IF OE_GLOBALS.G_GMI_INSTALLED IS NULL THEN -- OPM 2547940
11177: OE_GLOBALS.G_GMI_INSTALLED := OE_GLOBALS.CHECK_PRODUCT_INSTALLED(550);
11172: IF OE_GLOBALS.G_ASO_INSTALLED IS NULL THEN
11173: OE_GLOBALS.G_ASO_INSTALLED := OE_GLOBALS.CHECK_PRODUCT_INSTALLED(697);
11174: END IF;
11175:
11176: IF OE_GLOBALS.G_GMI_INSTALLED IS NULL THEN -- OPM 2547940
11177: OE_GLOBALS.G_GMI_INSTALLED := OE_GLOBALS.CHECK_PRODUCT_INSTALLED(550);
11178: END IF;
11179:
11180:
11173: OE_GLOBALS.G_ASO_INSTALLED := OE_GLOBALS.CHECK_PRODUCT_INSTALLED(697);
11174: END IF;
11175:
11176: IF OE_GLOBALS.G_GMI_INSTALLED IS NULL THEN -- OPM 2547940
11177: OE_GLOBALS.G_GMI_INSTALLED := OE_GLOBALS.CHECK_PRODUCT_INSTALLED(550);
11178: END IF;
11179:
11180:
11181: IF (OE_GLOBALS.G_ASO_INSTALLED = 'N' AND
11177: OE_GLOBALS.G_GMI_INSTALLED := OE_GLOBALS.CHECK_PRODUCT_INSTALLED(550);
11178: END IF;
11179:
11180:
11181: IF (OE_GLOBALS.G_ASO_INSTALLED = 'N' AND
11182: OE_GLOBALS.G_GMI_INSTALLED = 'N' AND -- OPM 2547940
11183: G_11IG_PERFORMANCE = 'Y' AND
11184: QP_UTIL_PUB.Basic_Pricing_Setup = 'Y' AND
11185: nvl(p_request_rec.param1,'XX') <> 'UI') OR
11178: END IF;
11179:
11180:
11181: IF (OE_GLOBALS.G_ASO_INSTALLED = 'N' AND
11182: OE_GLOBALS.G_GMI_INSTALLED = 'N' AND -- OPM 2547940
11183: G_11IG_PERFORMANCE = 'Y' AND
11184: QP_UTIL_PUB.Basic_Pricing_Setup = 'Y' AND
11185: nvl(p_request_rec.param1,'XX') <> 'UI') OR
11186: OE_CODE_CONTROL.Get_Code_Release_Level >= '110509'
11249: While l_line_index is not null loop
11250: -- Query the Adjustments
11251:
11252: -- added by lkxu
11253: l_line_tbl(l_line_index).operation := OE_GLOBALS.G_OPR_UPDATE;
11254:
11255: append_Adjustment_lines(p_line_id => l_Line_Tbl(l_line_index).line_id,
11256: px_line_adj_tbl => l_Line_Adj_Tbl
11257: ,px_line_key_tbl => l_dummy
11307:
11308: -- lkxu, only retain those records with changed adjusted_amount
11309: i:= l_Line_Adj_Tbl.First;
11310: While i is not Null Loop
11311: IF OE_GLOBALS.Equal(l_Old_Line_Adj_Tbl(i).adjusted_amount_per_pqty,
11312: l_Line_Adj_Tbl(i).adjusted_amount_per_pqty) THEN
11313: l_Line_Adj_Tbl.delete(i);
11314: ELSE
11315: oe_debug_pub.add(' price adj amount:'|| L_Line_Adj_Tbl(i).adjusted_amount);
11312: l_Line_Adj_Tbl(i).adjusted_amount_per_pqty) THEN
11313: l_Line_Adj_Tbl.delete(i);
11314: ELSE
11315: oe_debug_pub.add(' price adj amount:'|| L_Line_Adj_Tbl(i).adjusted_amount);
11316: L_Line_Adj_Tbl(i).operation := OE_GLOBALS.G_OPR_UPDATE;
11317: END IF;
11318: i:= l_Line_Adj_Tbl.next(i);
11319: END LOOP;
11320:
11333:
11334:
11335: -- Call OE_Order_PVT.Process_order
11336:
11337: -- OE_Globals.G_RECURSION_MODE := 'Y';
11338: OE_Globals.G_PRICING_RECURSION := 'Y';
11339:
11340:
11341: I:= l_line_tbl.First;
11334:
11335: -- Call OE_Order_PVT.Process_order
11336:
11337: -- OE_Globals.G_RECURSION_MODE := 'Y';
11338: OE_Globals.G_PRICING_RECURSION := 'Y';
11339:
11340:
11341: I:= l_line_tbl.First;
11342: While I is not null loop
11417: adj_debug(' x_status_code:'||l_status_code);
11418:
11419:
11420: -- Performance change: not update line if no change
11421: IF (OE_GLOBALS.Equal(l_line_tbl(i).unit_list_price, l_old_line_tbl(i).unit_list_price) AND
11422: OE_GLOBALS.Equal(l_line_tbl(i).unit_selling_price, l_old_line_tbl(i).unit_selling_price) AND
11423: OE_GLOBALS.Equal(l_line_tbl(i).unit_list_price_per_pqty, l_old_line_tbl(i).unit_list_price_per_pqty) AND
11424: OE_GLOBALS.Equal(l_line_tbl(i).unit_selling_price_per_pqty, l_old_line_tbl(i).unit_selling_price_per_pqty)) THEN
11425: adj_debug('not updating '||l_line_tbl(i).line_id);
11418:
11419:
11420: -- Performance change: not update line if no change
11421: IF (OE_GLOBALS.Equal(l_line_tbl(i).unit_list_price, l_old_line_tbl(i).unit_list_price) AND
11422: OE_GLOBALS.Equal(l_line_tbl(i).unit_selling_price, l_old_line_tbl(i).unit_selling_price) AND
11423: OE_GLOBALS.Equal(l_line_tbl(i).unit_list_price_per_pqty, l_old_line_tbl(i).unit_list_price_per_pqty) AND
11424: OE_GLOBALS.Equal(l_line_tbl(i).unit_selling_price_per_pqty, l_old_line_tbl(i).unit_selling_price_per_pqty)) THEN
11425: adj_debug('not updating '||l_line_tbl(i).line_id);
11426: -- l_line_tbl(i).operation := OE_GLOBALS.G_OPR_NONE;
11419:
11420: -- Performance change: not update line if no change
11421: IF (OE_GLOBALS.Equal(l_line_tbl(i).unit_list_price, l_old_line_tbl(i).unit_list_price) AND
11422: OE_GLOBALS.Equal(l_line_tbl(i).unit_selling_price, l_old_line_tbl(i).unit_selling_price) AND
11423: OE_GLOBALS.Equal(l_line_tbl(i).unit_list_price_per_pqty, l_old_line_tbl(i).unit_list_price_per_pqty) AND
11424: OE_GLOBALS.Equal(l_line_tbl(i).unit_selling_price_per_pqty, l_old_line_tbl(i).unit_selling_price_per_pqty)) THEN
11425: adj_debug('not updating '||l_line_tbl(i).line_id);
11426: -- l_line_tbl(i).operation := OE_GLOBALS.G_OPR_NONE;
11427: l_line_tbl.delete(i);
11420: -- Performance change: not update line if no change
11421: IF (OE_GLOBALS.Equal(l_line_tbl(i).unit_list_price, l_old_line_tbl(i).unit_list_price) AND
11422: OE_GLOBALS.Equal(l_line_tbl(i).unit_selling_price, l_old_line_tbl(i).unit_selling_price) AND
11423: OE_GLOBALS.Equal(l_line_tbl(i).unit_list_price_per_pqty, l_old_line_tbl(i).unit_list_price_per_pqty) AND
11424: OE_GLOBALS.Equal(l_line_tbl(i).unit_selling_price_per_pqty, l_old_line_tbl(i).unit_selling_price_per_pqty)) THEN
11425: adj_debug('not updating '||l_line_tbl(i).line_id);
11426: -- l_line_tbl(i).operation := OE_GLOBALS.G_OPR_NONE;
11427: l_line_tbl.delete(i);
11428: ELSE
11422: OE_GLOBALS.Equal(l_line_tbl(i).unit_selling_price, l_old_line_tbl(i).unit_selling_price) AND
11423: OE_GLOBALS.Equal(l_line_tbl(i).unit_list_price_per_pqty, l_old_line_tbl(i).unit_list_price_per_pqty) AND
11424: OE_GLOBALS.Equal(l_line_tbl(i).unit_selling_price_per_pqty, l_old_line_tbl(i).unit_selling_price_per_pqty)) THEN
11425: adj_debug('not updating '||l_line_tbl(i).line_id);
11426: -- l_line_tbl(i).operation := OE_GLOBALS.G_OPR_NONE;
11427: l_line_tbl.delete(i);
11428: ELSE
11429: OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
11430: END IF;
11425: adj_debug('not updating '||l_line_tbl(i).line_id);
11426: -- l_line_tbl(i).operation := OE_GLOBALS.G_OPR_NONE;
11427: l_line_tbl.delete(i);
11428: ELSE
11429: OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
11430: END IF;
11431:
11432: i:= l_line_tbl.next(i);
11433: end loop;
11464: , p_x_action_request_tbl => l_x_Action_Request_tbl
11465: );
11466:
11467:
11468: -- OE_Globals.G_RECURSION_MODE := 'N';
11469: OE_Globals.G_PRICING_RECURSION := 'N';
11470:
11471: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11472: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11465: );
11466:
11467:
11468: -- OE_Globals.G_RECURSION_MODE := 'N';
11469: OE_Globals.G_PRICING_RECURSION := 'N';
11470:
11471: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11472: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11473: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
11499: End Price_Adjustments;
11500:
11501: procedure price_action
11502: (
11503: p_selected_records Oe_Globals.Selected_Record_Tbl
11504: ,P_price_level varchar2
11505: ,p_header_id Number default null
11506: ,x_Return_Status out nocopy varchar2
11507:
12403: l_return_stauts Varchar2(15);
12404: l_manual_adj_tbl Oe_Order_Adj_Pvt.Manual_Adj_Tbl_Type;
12405: l_line_adj_tbl Oe_Order_Pub.line_adj_tbl_type;
12406: l_dummy_tbl Oe_Order_Pub.line_adj_tbl_type;
12407: l_control_rec OE_GLOBALS.Control_Rec_Type;
12408: i PLS_INTEGER;
12409: k PLS_INTEGER:=1;
12410: l_return_status Varchar2(15);
12411: l_found Varchar2(1):='N';
12465: l_line_adj_tbl(1).line_id := p_line_id;
12466: l_line_adj_tbl(1).applied_flag := 'N';
12467: l_line_adj_tbl(1).updated_flag := 'N';
12468: l_line_adj_tbl(1).automatic_flag := 'N';
12469: l_line_adj_tbl(1).operation := OE_GLOBALS.G_OPR_CREATE;
12470: Select Oe_Price_Adjustments_S.Nextval
12471: Into l_line_adj_tbl(1).price_adjustment_id
12472: From dual;
12473: stmt:='20';
12609: QP_UTIL_PUB.Get_Order_Lines_Status('BATCH',l_order_status_rec);
12610:
12611: oe_debug_pub.add(' All_lines_flag returned from pricing:'||l_order_status_rec.all_lines_flag);
12612: -- bug 6817566
12613: oe_debug_pub.add(' manual_adv_modifier '||OE_GLOBALS.G_MANUAL_ADV_MODIFIER);
12614:
12615: IF (OE_GLOBALS.G_MANUAL_ADV_MODIFIER IS NULL AND (p_level = 'ORDER' or l_order_status_rec.ALL_LINES_FLAG = 'Y')) THEN
12616: oe_debug_pub.add(' manual_adv_modifier 1 '||OE_GLOBALS.G_MANUAL_ADV_MODIFIER);
12617: oe_debug_pub.add(' p_level '||p_level);
12611: oe_debug_pub.add(' All_lines_flag returned from pricing:'||l_order_status_rec.all_lines_flag);
12612: -- bug 6817566
12613: oe_debug_pub.add(' manual_adv_modifier '||OE_GLOBALS.G_MANUAL_ADV_MODIFIER);
12614:
12615: IF (OE_GLOBALS.G_MANUAL_ADV_MODIFIER IS NULL AND (p_level = 'ORDER' or l_order_status_rec.ALL_LINES_FLAG = 'Y')) THEN
12616: oe_debug_pub.add(' manual_adv_modifier 1 '||OE_GLOBALS.G_MANUAL_ADV_MODIFIER);
12617: oe_debug_pub.add(' p_level '||p_level);
12618: oe_debug_pub.add(' Check for Manual Advanced modifiers ',3);
12619: --- bug# 7600510 Start
12612: -- bug 6817566
12613: oe_debug_pub.add(' manual_adv_modifier '||OE_GLOBALS.G_MANUAL_ADV_MODIFIER);
12614:
12615: IF (OE_GLOBALS.G_MANUAL_ADV_MODIFIER IS NULL AND (p_level = 'ORDER' or l_order_status_rec.ALL_LINES_FLAG = 'Y')) THEN
12616: oe_debug_pub.add(' manual_adv_modifier 1 '||OE_GLOBALS.G_MANUAL_ADV_MODIFIER);
12617: oe_debug_pub.add(' p_level '||p_level);
12618: oe_debug_pub.add(' Check for Manual Advanced modifiers ',3);
12619: --- bug# 7600510 Start
12620: -- GET_MANUAL_ADV_STATUS('BATCH');
12618: oe_debug_pub.add(' Check for Manual Advanced modifiers ',3);
12619: --- bug# 7600510 Start
12620: -- GET_MANUAL_ADV_STATUS('BATCH');
12621: QP_UTIL_PUB.Get_Manual_All_Lines_Status ('BATCH', l_manual_all_lines_status ) ;
12622: OE_GLOBALS.G_MANUAL_ADV_MODIFIER := l_manual_all_lines_status;
12623: --- bug# 7600510 End
12624: oe_debug_pub.add(' manual_adv_modifier 2 '||OE_GLOBALS.G_MANUAL_ADV_MODIFIER);
12625: END IF;
12626:
12620: -- GET_MANUAL_ADV_STATUS('BATCH');
12621: QP_UTIL_PUB.Get_Manual_All_Lines_Status ('BATCH', l_manual_all_lines_status ) ;
12622: OE_GLOBALS.G_MANUAL_ADV_MODIFIER := l_manual_all_lines_status;
12623: --- bug# 7600510 End
12624: oe_debug_pub.add(' manual_adv_modifier 2 '||OE_GLOBALS.G_MANUAL_ADV_MODIFIER);
12625: END IF;
12626:
12627: IF (((p_level = 'ORDER' or l_order_status_rec.ALL_LINES_FLAG = 'Y')
12628: AND(p_level = 'ORDER' or OE_GLOBALS.G_MANUAL_ADV_MODIFIER = 'Y')) -- 6851818
12624: oe_debug_pub.add(' manual_adv_modifier 2 '||OE_GLOBALS.G_MANUAL_ADV_MODIFIER);
12625: END IF;
12626:
12627: IF (((p_level = 'ORDER' or l_order_status_rec.ALL_LINES_FLAG = 'Y')
12628: AND(p_level = 'ORDER' or OE_GLOBALS.G_MANUAL_ADV_MODIFIER = 'Y')) -- 6851818
12629: AND p_header_id Is Not Null) Then
12630:
12631: if not (p_level = 'ORDER' and p_freight_flag) then --- bug 7655559
12632: --passing all lines under this header
13346: CLOSE l_send_all_lines_cur;
13347:
13348: If x_get_manual_adv = 'X' THEN
13349: oe_debug_pub.add('Manual adv modifiers exist');
13350: OE_GLOBALS.G_MANUAL_ADV_MODIFIER := 'Y';
13351: ELSE
13352: oe_debug_pub.add('Manual adv modifiers do not exist');
13353: OE_GLOBALS.G_MANUAL_ADV_MODIFIER := 'N';
13354: END IF;
13349: oe_debug_pub.add('Manual adv modifiers exist');
13350: OE_GLOBALS.G_MANUAL_ADV_MODIFIER := 'Y';
13351: ELSE
13352: oe_debug_pub.add('Manual adv modifiers do not exist');
13353: OE_GLOBALS.G_MANUAL_ADV_MODIFIER := 'N';
13354: END IF;
13355:
13356:
13357: oe_debug_pub.add('return_value '||OE_GLOBALS.G_MANUAL_ADV_MODIFIER,3);
13353: OE_GLOBALS.G_MANUAL_ADV_MODIFIER := 'N';
13354: END IF;
13355:
13356:
13357: oe_debug_pub.add('return_value '||OE_GLOBALS.G_MANUAL_ADV_MODIFIER,3);
13358: oe_debug_pub.add(' Leaving GET_MANUAL_ADV_STATUS ',3);
13359: END GET_MANUAL_ADV_STATUS;
13360:
13361: end Oe_Order_Adj_Pvt;