[Home] [Help]
8: G_CHARGES_FOR_INCLUDED_ITEM Varchar2(1) := nvl(fnd_profile.value('ONT_CHARGES_FOR_INCLUDED_ITEM'),'N');
9: G_REQUEST_ID NUMBER:=NULL;
10: G_ORDER_CURRENCY VARCHAR2(30);
11: G_IPL_ERRORS_TBL Index_Tbl_Type;
12: G_BINARY_LIMIT CONSTANT NUMBER := OE_GLOBALS.G_BINARY_LIMIT; -- Added for bug 8631297
13:
14:
15: procedure Adj_Debug (p_text IN VARCHAR2, p_dummy IN NUMBER:=0) As
16: Begin
191: --for bug 3108881.Log the request for Orders only
192: IF nvl(update_line.transaction_phase_code,'F') = 'F' THEN
193:
194: OE_Delayed_Requests_Pvt.Log_Request
195: (p_entity_code => OE_GLOBALS.G_ENTITY_ALL
196: ,p_entity_id => update_line.line_id
197: ,p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE
198: ,p_requesting_entity_id => update_line.line_id
199: ,p_request_type => OE_GLOBALS.G_PROCESS_RELEASE
193:
194: OE_Delayed_Requests_Pvt.Log_Request
195: (p_entity_code => OE_GLOBALS.G_ENTITY_ALL
196: ,p_entity_id => update_line.line_id
197: ,p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE
198: ,p_requesting_entity_id => update_line.line_id
199: ,p_request_type => OE_GLOBALS.G_PROCESS_RELEASE
200: -- Old values
201: ,p_param1 => update_line.blanket_number
195: (p_entity_code => OE_GLOBALS.G_ENTITY_ALL
196: ,p_entity_id => update_line.line_id
197: ,p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE
198: ,p_requesting_entity_id => update_line.line_id
199: ,p_request_type => OE_GLOBALS.G_PROCESS_RELEASE
200: -- Old values
201: ,p_param1 => update_line.blanket_number
202: ,p_param2 => update_line.blanket_line_number
203: ,p_param3 => update_line.ordered_quantity
226: END IF;
227:
228: IF update_line.line_set_id IS NOT NULL THEN
229: OE_Delayed_Requests_Pvt.Log_Request
230: (p_entity_code => OE_GLOBALS.G_ENTITY_ALL
231: ,p_entity_id => update_line.line_set_id
232: ,p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE
233: ,p_requesting_entity_id => update_line.line_id
234: ,p_request_type => 'VALIDATE_RELEASE_SHIPMENTS'
228: IF update_line.line_set_id IS NOT NULL THEN
229: OE_Delayed_Requests_Pvt.Log_Request
230: (p_entity_code => OE_GLOBALS.G_ENTITY_ALL
231: ,p_entity_id => update_line.line_set_id
232: ,p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE
233: ,p_requesting_entity_id => update_line.line_id
234: ,p_request_type => 'VALIDATE_RELEASE_SHIPMENTS'
235: ,p_request_unique_key1 => update_line.blanket_number
236: ,p_request_unique_key2 => update_line.blanket_line_number
253: AND OE_Commitment_Pvt.Do_Commitment_Sequencing THEN
254:
255: oe_debug_pub.add('Logging delayed request for Commitment.', 2);
256: OE_Delayed_Requests_Pvt.Log_Request(
257: p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
258: p_entity_id => update_line.line_id,
259: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
260: p_requesting_entity_id => update_line.line_id,
261: p_request_type => OE_GLOBALS.G_CALCULATE_COMMITMENT,
255: oe_debug_pub.add('Logging delayed request for Commitment.', 2);
256: OE_Delayed_Requests_Pvt.Log_Request(
257: p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
258: p_entity_id => update_line.line_id,
259: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
260: p_requesting_entity_id => update_line.line_id,
261: p_request_type => OE_GLOBALS.G_CALCULATE_COMMITMENT,
262: x_return_status => l_return_status);
263:
257: p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
258: p_entity_id => update_line.line_id,
259: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
260: p_requesting_entity_id => update_line.line_id,
261: p_request_type => OE_GLOBALS.G_CALCULATE_COMMITMENT,
262: x_return_status => l_return_status);
263:
264: END IF;
265:
282: --Delete all related adjustments
283: oe_line_adj_util.delete_row(p_line_id => p_line_rec.line_id);
284:
285: --set cascade flag to reflect changes.
286: OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
287: Oe_Debug_Pub.add('Leaving reset_fields');
288: Exception When Others Then
289: Oe_Debug_Pub.add('In procedure reset_fields:'||SQLERRM);
290: End;
317:
318: PROCEDURE Header_Adjs
319: ( p_init_msg_list IN VARCHAR2:=FND_API.G_FALSE
320: , p_validation_level IN NUMBER
321: , p_control_rec IN OE_GLOBALS.Control_Rec_Type
322: , p_x_Header_Adj_tbl IN OUT NOCOPY OE_Order_PUB.Header_Adj_Tbl_Type
323: , p_x_old_Header_Adj_tbl IN OUT NOCOPY OE_Order_PUB.Header_Adj_Tbl_Type
324: )
325: IS
323: , p_x_old_Header_Adj_tbl IN OUT NOCOPY OE_Order_PUB.Header_Adj_Tbl_Type
324: )
325: IS
326: l_return_status VARCHAR2(1);
327: l_control_rec OE_GLOBALS.Control_Rec_Type;
328: l_Header_Adj_rec OE_Order_PUB.Header_Adj_Rec_Type;
329: l_old_Header_Adj_rec OE_Order_PUB.Header_Adj_Rec_Type;
330: -- local variables to store OUT parameters from security check procedures
331: l_sec_result NUMBER;
469: end if;
470:
471: -- Load API control record
472:
473: l_control_rec := OE_GLOBALS.Init_Control_Rec
474: ( p_operation => l_Header_Adj_rec.operation
475: , p_control_rec => p_control_rec
476: );
477:
481: p_x_Header_Adj_tbl(I).return_status := FND_API.G_RET_STS_SUCCESS;
482:
483: -- Prepare record.
484:
485: IF l_Header_Adj_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
486:
487: l_Header_Adj_rec.db_flag := FND_API.G_FALSE;
488:
489: -- Set missing old record elements to NULL.
494: OE_Header_Adj_Util.Convert_Miss_To_Null (l_old_Header_Adj_rec);
495: */
496: OE_Header_Adj_Util.Convert_Miss_To_Null(l_old_Header_Adj_rec);
497:
498: ELSIF l_Header_Adj_rec.operation = OE_GLOBALS.G_OPR_UPDATE
499: OR l_Header_Adj_rec.operation = OE_GLOBALS.G_OPR_DELETE
500: THEN
501:
502: l_Header_Adj_rec.db_flag := FND_API.G_TRUE;
495: */
496: OE_Header_Adj_Util.Convert_Miss_To_Null(l_old_Header_Adj_rec);
497:
498: ELSIF l_Header_Adj_rec.operation = OE_GLOBALS.G_OPR_UPDATE
499: OR l_Header_Adj_rec.operation = OE_GLOBALS.G_OPR_DELETE
500: THEN
501:
502: l_Header_Adj_rec.db_flag := FND_API.G_TRUE;
503:
544: END IF;
545:
546: -- Check security
547: IF l_control_rec.check_security
548: AND (l_header_adj_rec.operation = OE_GLOBALS.G_OPR_CREATE
549: OR l_header_adj_rec.operation = OE_GLOBALS.G_OPR_UPDATE)
550: THEN
551:
552: adj_debug('Check Attributes Security');
545:
546: -- Check security
547: IF l_control_rec.check_security
548: AND (l_header_adj_rec.operation = OE_GLOBALS.G_OPR_CREATE
549: OR l_header_adj_rec.operation = OE_GLOBALS.G_OPR_UPDATE)
550: THEN
551:
552: adj_debug('Check Attributes Security');
553: -- check if this operation is allowed
637: -- Entity level validation.
638:
639: IF l_control_rec.validate_entity THEN
640:
641: IF l_Header_Adj_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
642:
643: OE_Validate_Header_Adj.Entity_Delete
644: ( x_return_status => l_return_status
645: , p_Header_Adj_rec => l_Header_Adj_rec
666: -- Check entity level security again as some attributes
667: -- may have changed due to defaulting.
668: --IF l_control_rec.check_security THEN
669: --bug5467785
670: IF NOT (l_Header_Adj_rec.operation = OE_GLOBALS.G_OPR_UPDATE
671: AND OE_Header_Adj_Security.g_check_all_cols_constraint = 'Y')
672: AND l_control_rec.check_security THEN
673:
674: adj_debug('Check Entity Security');
704:
705: oe_debug_pub.add('OEXVADJB:After calling to insert audit history');
706: /* End AuditTrail */
707:
708: IF l_Header_Adj_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
709:
710: OE_Header_Adj_Util.Delete_Row
711: ( p_price_adjustment_id => l_Header_Adj_rec.price_adjustment_id
712: );
716: -- NOTE: Requesting entity is header, not header adj. as the adj. itself
717: -- has been deleted and this request should be deleted when the order is
718: -- deleted. Should be revisited if the entity logged against is changed
719: -- to header.
720: IF OE_Globals.G_RECURSION_MODE <> 'Y' AND
721: l_header_adj_rec.list_line_type_code NOT IN ('COST','TAX')
722: then
723: --CC Reversal ER#16014135 Start
724: IF OE_VERIFY_PAYMENT_PUB.Get_CC_Rev_Reauth_Code(l_header_adj_rec.Header_id) IS NOT NULL THEN
722: then
723: --CC Reversal ER#16014135 Start
724: IF OE_VERIFY_PAYMENT_PUB.Get_CC_Rev_Reauth_Code(l_header_adj_rec.Header_id) IS NOT NULL THEN
725: OE_delayed_requests_Pvt.log_request
726: (p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
727: p_entity_id => l_header_adj_rec.Header_id,
728: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
729: p_requesting_entity_id =>l_header_adj_rec.Header_id,
730: p_request_type => OE_GLOBALS.G_VERIFY_PAYMENT,
724: IF OE_VERIFY_PAYMENT_PUB.Get_CC_Rev_Reauth_Code(l_header_adj_rec.Header_id) IS NOT NULL THEN
725: OE_delayed_requests_Pvt.log_request
726: (p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
727: p_entity_id => l_header_adj_rec.Header_id,
728: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
729: p_requesting_entity_id =>l_header_adj_rec.Header_id,
730: p_request_type => OE_GLOBALS.G_VERIFY_PAYMENT,
731: x_return_status => l_return_status);
732:
726: (p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
727: p_entity_id => l_header_adj_rec.Header_id,
728: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
729: p_requesting_entity_id =>l_header_adj_rec.Header_id,
730: p_request_type => OE_GLOBALS.G_VERIFY_PAYMENT,
731: x_return_status => l_return_status);
732:
733: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
734: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
738: END IF;
739: --CC Reversal ER#16014135 End
740:
741: adj_debug('Log header level PRICE_ADJ');
742: oe_delayed_requests_pvt.log_request(p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
743: p_entity_id => l_header_adj_rec.Header_id,
744: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_HEADER,
745: p_requesting_entity_id => l_header_adj_rec.HEader_id,
746: p_request_type => OE_GLOBALS.G_PRICE_ADJ,
740:
741: adj_debug('Log header level PRICE_ADJ');
742: oe_delayed_requests_pvt.log_request(p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
743: p_entity_id => l_header_adj_rec.Header_id,
744: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_HEADER,
745: p_requesting_entity_id => l_header_adj_rec.HEader_id,
746: p_request_type => OE_GLOBALS.G_PRICE_ADJ,
747: x_return_status => l_return_status);
748: -- sol_ord_er #16014165 start
742: oe_delayed_requests_pvt.log_request(p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
743: p_entity_id => l_header_adj_rec.Header_id,
744: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_HEADER,
745: p_requesting_entity_id => l_header_adj_rec.HEader_id,
746: p_request_type => OE_GLOBALS.G_PRICE_ADJ,
747: x_return_status => l_return_status);
748: -- sol_ord_er #16014165 start
749: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
750: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
752: RAISE FND_API.G_EXC_ERROR;
753: END IF;
754: -- If a manual Header Adjustment gets cascaded
755: oe_delayed_requests_pvt.log_request(
756: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
757: p_entity_id => l_header_adj_rec.Header_Id,
758: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_ALL,
759: p_requesting_entity_id => l_header_adj_rec.Header_Id,
760: p_request_type => OE_GLOBALS.G_SERVICE_FIRST_PERIOD_BILL,
754: -- If a manual Header Adjustment gets cascaded
755: oe_delayed_requests_pvt.log_request(
756: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
757: p_entity_id => l_header_adj_rec.Header_Id,
758: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_ALL,
759: p_requesting_entity_id => l_header_adj_rec.Header_Id,
760: p_request_type => OE_GLOBALS.G_SERVICE_FIRST_PERIOD_BILL,
761: p_request_unique_key1 => 'ORDER',
762: p_param1 => l_header_adj_rec.Header_Id,
756: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
757: p_entity_id => l_header_adj_rec.Header_Id,
758: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_ALL,
759: p_requesting_entity_id => l_header_adj_rec.Header_Id,
760: p_request_type => OE_GLOBALS.G_SERVICE_FIRST_PERIOD_BILL,
761: p_request_unique_key1 => 'ORDER',
762: p_param1 => l_header_adj_rec.Header_Id,
763: x_return_status => l_return_status);
764: -- sol_ord_er #16014165 end
777: l_Header_Adj_rec.last_update_date := SYSDATE;
778: l_Header_Adj_rec.last_updated_by := FND_GLOBAL.USER_ID;
779: l_Header_Adj_rec.last_update_login := FND_GLOBAL.LOGIN_ID;
780:
781: IF l_Header_Adj_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
782:
783: OE_Header_Adj_Util.Update_Row (l_Header_Adj_rec);
784:
785: ELSIF l_Header_Adj_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
781: IF l_Header_Adj_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
782:
783: OE_Header_Adj_Util.Update_Row (l_Header_Adj_rec);
784:
785: ELSIF l_Header_Adj_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
786:
787: l_Header_Adj_rec.creation_date := SYSDATE;
788: l_Header_Adj_rec.created_by := FND_GLOBAL.USER_ID;
789:
851: p_x_header_adj_tbl(I) := l_Header_Adj_rec;
852: p_x_old_Header_Adj_tbl(I) := l_old_Header_Adj_rec;
853: OE_Header_Adj_Security.g_check_all_cols_constraint := 'Y';
854: OE_MSG_PUB.reset_msg_context('HEADER_ADJ');
855: oe_delayed_requests_pvt.delete_request(p_entity_code =>OE_GLOBALS.G_ENTITY_HEADER_ADJ,
856: p_entity_id => l_header_adj_rec.Price_adjustment_id,
857: p_request_type => NULL,
858: x_return_status => l_return_status);
859: IF l_control_rec.Process_Partial THEN
869: p_x_header_adj_tbl(I) := l_Header_Adj_rec;
870: p_x_old_Header_Adj_tbl(I) := l_old_Header_Adj_rec;
871: OE_Header_Adj_Security.g_check_all_cols_constraint := 'Y';
872: OE_MSG_PUB.reset_msg_context('HEADER_ADJ');
873: oe_delayed_requests_pvt.delete_request(p_entity_code =>OE_GLOBALS.G_ENTITY_HEADER_ADJ,
874: p_entity_id => l_header_adj_rec.Price_adjustment_id,
875: p_request_type => NULL,
876: x_return_status => l_return_status);
877: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
881: l_Header_Adj_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
882: p_x_header_adj_tbl(I) := l_Header_Adj_rec;
883: p_x_old_Header_Adj_tbl(I) := l_old_Header_Adj_rec;
884: OE_Header_Adj_Security.g_check_all_cols_constraint := 'Y';
885: oe_delayed_requests_pvt.delete_request(p_entity_code =>OE_GLOBALS.G_ENTITY_HEADER_ADJ,
886: p_entity_id => l_header_adj_rec.Price_adjustment_id,
887: p_request_type => NULL,
888: x_return_status => l_return_status);
889:
948:
949: PROCEDURE Line_Adjs
950: ( p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
951: , p_validation_level IN NUMBER
952: , p_control_rec IN OE_GLOBALS.Control_Rec_Type
953: , p_x_Line_Adj_tbl IN OUT NOCOPY OE_Order_PUB.Line_Adj_Tbl_Type
954: , p_x_old_Line_Adj_tbl IN OUT NOCOPY OE_Order_PUB.Line_Adj_Tbl_Type
955: )
956: IS
954: , p_x_old_Line_Adj_tbl IN OUT NOCOPY OE_Order_PUB.Line_Adj_Tbl_Type
955: )
956: IS
957: l_return_status VARCHAR2(1);
958: l_control_rec OE_GLOBALS.Control_Rec_Type;
959: l_Line_Adj_rec OE_Order_PUB.Line_Adj_Rec_Type;
960: l_old_Line_Adj_rec OE_Order_PUB.Line_Adj_Rec_Type;
961: -- local variables to store OUT parameters from security check procedures
962: l_sec_result NUMBER;
1123: end if;
1124:
1125: -- Load API control record
1126:
1127: l_control_rec := OE_GLOBALS.Init_Control_Rec
1128: ( p_operation => l_Line_Adj_rec.operation
1129: , p_control_rec => p_control_rec
1130: );
1131:
1135: p_x_line_adj_tbl(I).return_status := FND_API.G_RET_STS_SUCCESS;
1136:
1137: -- Prepare record.
1138:
1139: IF l_Line_Adj_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
1140:
1141: l_Line_Adj_rec.db_flag := FND_API.G_FALSE;
1142:
1143: -- Set missing old record elements to NULL.
1145: -- l_old_Line_Adj_rec :=
1146: OE_Line_Adj_Util.Convert_Miss_To_Null (l_old_Line_Adj_rec);
1147: --bug 2721485 Begin
1148: adj_debug('Line id :'||l_line_adj_rec.line_id,3);
1149: if OE_GLOBALS.G_PRICING_RECURSION = 'N' and
1150: l_line_adj_rec.line_id is not null then
1151: if l_last_line_id = l_line_adj_rec.line_id
1152: and l_line_found = 'Y' then
1153: null;
1182: end if;
1183: end if;
1184: --bug 2721485 End
1185:
1186: ELSIF l_Line_Adj_rec.operation = OE_GLOBALS.G_OPR_UPDATE
1187: OR l_Line_Adj_rec.operation = OE_GLOBALS.G_OPR_DELETE
1188: THEN
1189:
1190: l_Line_Adj_rec.db_flag := FND_API.G_TRUE;
1183: end if;
1184: --bug 2721485 End
1185:
1186: ELSIF l_Line_Adj_rec.operation = OE_GLOBALS.G_OPR_UPDATE
1187: OR l_Line_Adj_rec.operation = OE_GLOBALS.G_OPR_DELETE
1188: THEN
1189:
1190: l_Line_Adj_rec.db_flag := FND_API.G_TRUE;
1191:
1235: END IF;
1236:
1237: -- Check security
1238: IF l_control_rec.check_security
1239: AND (l_line_adj_rec.operation = OE_GLOBALS.G_OPR_CREATE
1240: OR l_line_adj_rec.operation = OE_GLOBALS.G_OPR_UPDATE)
1241: THEN
1242:
1243: adj_debug('Check Attributes Security',2);
1236:
1237: -- Check security
1238: IF l_control_rec.check_security
1239: AND (l_line_adj_rec.operation = OE_GLOBALS.G_OPR_CREATE
1240: OR l_line_adj_rec.operation = OE_GLOBALS.G_OPR_UPDATE)
1241: THEN
1242:
1243: adj_debug('Check Attributes Security',2);
1244: -- check if this operation is allowed
1356: -- Entity level validation.
1357:
1358: IF l_control_rec.validate_entity THEN
1359:
1360: IF l_Line_Adj_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
1361:
1362: OE_Validate_Line_Adj.Entity_Delete
1363: ( x_return_status => l_return_status
1364: , p_Line_Adj_rec => l_Line_Adj_rec
1427: p_old_line_adj_rec => l_old_line_adj_rec);
1428: OE_DEBUG_PUB.add('OEXVADJB:After calling to insert audit history for line adj from pre_write_process', 2);
1429: /* End AuditTrail */
1430:
1431: IF l_Line_Adj_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
1432:
1433: OE_Line_Adj_Util.Delete_Row
1434: ( p_price_adjustment_id => l_Line_Adj_rec.price_adjustment_id
1435: );
1439: -- NOTE: Requesting entity is line, not line adj. as the adj. itself
1440: -- has been deleted and this request should be deleted when the line gets
1441: -- deleted. Should be revisited if the entity logged against is changed
1442: -- to line.
1443: IF OE_Globals.G_RECURSION_MODE <> 'Y' and
1444: l_Line_adj_rec.list_line_type_code NOT IN ('COST','TAX')
1445: THEN
1446:
1447: /* 1905650 - G_PRICE_ADJ request should be logged against LINE entity,
1450: */
1451: --CC Reversal ER#16014135 Start
1452: IF OE_VERIFY_PAYMENT_PUB.Get_CC_Rev_Reauth_Code(l_Line_adj_rec.header_id) IS NOT NULL THEN
1453: OE_delayed_requests_Pvt.log_request
1454: (p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
1455: p_entity_id => l_Line_adj_rec.header_id,
1456: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
1457: p_requesting_entity_id =>l_Line_adj_rec.header_id,
1458: p_request_type => OE_GLOBALS.G_VERIFY_PAYMENT,
1452: IF OE_VERIFY_PAYMENT_PUB.Get_CC_Rev_Reauth_Code(l_Line_adj_rec.header_id) IS NOT NULL THEN
1453: OE_delayed_requests_Pvt.log_request
1454: (p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
1455: p_entity_id => l_Line_adj_rec.header_id,
1456: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
1457: p_requesting_entity_id =>l_Line_adj_rec.header_id,
1458: p_request_type => OE_GLOBALS.G_VERIFY_PAYMENT,
1459: x_return_status => l_return_status);
1460: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1454: (p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
1455: p_entity_id => l_Line_adj_rec.header_id,
1456: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
1457: p_requesting_entity_id =>l_Line_adj_rec.header_id,
1458: p_request_type => OE_GLOBALS.G_VERIFY_PAYMENT,
1459: x_return_status => l_return_status);
1460: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1461: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1462: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1466: --CC Reversal ER#16014135 End
1467:
1468: if (l_line_adj_rec.line_id is NULL) Then
1469: oe_delayed_requests_pvt.log_request(
1470: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
1471: p_entity_id => l_Line_adj_rec.header_id,
1472: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_HEADER,
1473: p_requesting_entity_id => l_Line_adj_rec.header_id,
1474: p_request_type => OE_GLOBALS.G_PRICE_ADJ,
1468: if (l_line_adj_rec.line_id is NULL) Then
1469: oe_delayed_requests_pvt.log_request(
1470: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
1471: p_entity_id => l_Line_adj_rec.header_id,
1472: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_HEADER,
1473: p_requesting_entity_id => l_Line_adj_rec.header_id,
1474: p_request_type => OE_GLOBALS.G_PRICE_ADJ,
1475: x_return_status => l_return_status);
1476: -- sol_ord_er #16014165 start
1470: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
1471: p_entity_id => l_Line_adj_rec.header_id,
1472: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_HEADER,
1473: p_requesting_entity_id => l_Line_adj_rec.header_id,
1474: p_request_type => OE_GLOBALS.G_PRICE_ADJ,
1475: x_return_status => l_return_status);
1476: -- sol_ord_er #16014165 start
1477: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1478: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1479: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1480: RAISE FND_API.G_EXC_ERROR;
1481: END IF;
1482: oe_delayed_requests_pvt.log_request(
1483: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
1484: p_entity_id => l_Line_adj_rec.Header_Id,
1485: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_ALL,
1486: p_requesting_entity_id => l_Line_adj_rec.Header_Id,
1487: p_request_type => OE_GLOBALS.G_SERVICE_FIRST_PERIOD_BILL,
1481: END IF;
1482: oe_delayed_requests_pvt.log_request(
1483: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
1484: p_entity_id => l_Line_adj_rec.Header_Id,
1485: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_ALL,
1486: p_requesting_entity_id => l_Line_adj_rec.Header_Id,
1487: p_request_type => OE_GLOBALS.G_SERVICE_FIRST_PERIOD_BILL,
1488: p_request_unique_key1 => 'ORDER',
1489: p_param1 => l_Line_adj_rec.Header_Id,
1483: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
1484: p_entity_id => l_Line_adj_rec.Header_Id,
1485: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_ALL,
1486: p_requesting_entity_id => l_Line_adj_rec.Header_Id,
1487: p_request_type => OE_GLOBALS.G_SERVICE_FIRST_PERIOD_BILL,
1488: p_request_unique_key1 => 'ORDER',
1489: p_param1 => l_Line_adj_rec.Header_Id,
1490: x_return_status => l_return_status);
1491: -- sol_ord_er #16014165 end
1489: p_param1 => l_Line_adj_rec.Header_Id,
1490: x_return_status => l_return_status);
1491: -- sol_ord_er #16014165 end
1492: else
1493: If OE_GLOBALS.G_UI_FLAG and nvl(l_Line_adj_rec.automatic_flag,'Y') = 'N' Then
1494: oe_delayed_requests_pvt.log_request(
1495: p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
1496: p_entity_id => l_Line_adj_rec.Line_id,
1497: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE_ADJ,
1491: -- sol_ord_er #16014165 end
1492: else
1493: If OE_GLOBALS.G_UI_FLAG and nvl(l_Line_adj_rec.automatic_flag,'Y') = 'N' Then
1494: oe_delayed_requests_pvt.log_request(
1495: p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
1496: p_entity_id => l_Line_adj_rec.Line_id,
1497: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE_ADJ,
1498: p_requesting_entity_id => l_Line_adj_rec.Line_id,
1499: p_request_type => OE_GLOBALS.G_PRICE_ADJ,
1493: If OE_GLOBALS.G_UI_FLAG and nvl(l_Line_adj_rec.automatic_flag,'Y') = 'N' Then
1494: oe_delayed_requests_pvt.log_request(
1495: p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
1496: p_entity_id => l_Line_adj_rec.Line_id,
1497: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE_ADJ,
1498: p_requesting_entity_id => l_Line_adj_rec.Line_id,
1499: p_request_type => OE_GLOBALS.G_PRICE_ADJ,
1500: p_param1 => 'UI',
1501: x_return_status => l_return_status);
1495: p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
1496: p_entity_id => l_Line_adj_rec.Line_id,
1497: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE_ADJ,
1498: p_requesting_entity_id => l_Line_adj_rec.Line_id,
1499: p_request_type => OE_GLOBALS.G_PRICE_ADJ,
1500: p_param1 => 'UI',
1501: x_return_status => l_return_status);
1502:
1503: else
1501: x_return_status => l_return_status);
1502:
1503: else
1504: oe_delayed_requests_pvt.log_request(
1505: p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
1506: p_entity_id => l_Line_adj_rec.Line_id,
1507: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
1508: p_requesting_entity_id => l_Line_adj_rec.Line_id,
1509: p_request_type => OE_GLOBALS.G_PRICE_ADJ,
1503: else
1504: oe_delayed_requests_pvt.log_request(
1505: p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
1506: p_entity_id => l_Line_adj_rec.Line_id,
1507: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
1508: p_requesting_entity_id => l_Line_adj_rec.Line_id,
1509: p_request_type => OE_GLOBALS.G_PRICE_ADJ,
1510: x_return_status => l_return_status);
1511: end if;
1505: p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
1506: p_entity_id => l_Line_adj_rec.Line_id,
1507: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
1508: p_requesting_entity_id => l_Line_adj_rec.Line_id,
1509: p_request_type => OE_GLOBALS.G_PRICE_ADJ,
1510: x_return_status => l_return_status);
1511: end if;
1512: -- sol_ord_er #16014165
1513: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1515: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1516: RAISE FND_API.G_EXC_ERROR;
1517: END IF;
1518: oe_delayed_requests_pvt.log_request(
1519: p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
1520: p_entity_id => l_Line_adj_rec.line_id,
1521: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
1522: p_requesting_entity_id => l_Line_adj_rec.line_id,
1523: p_request_type => OE_GLOBALS.G_SERVICE_FIRST_PERIOD_BILL,
1517: END IF;
1518: oe_delayed_requests_pvt.log_request(
1519: p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
1520: p_entity_id => l_Line_adj_rec.line_id,
1521: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
1522: p_requesting_entity_id => l_Line_adj_rec.line_id,
1523: p_request_type => OE_GLOBALS.G_SERVICE_FIRST_PERIOD_BILL,
1524: p_request_unique_key1 => 'LINE',
1525: p_param1 => l_Line_adj_rec.line_id,
1519: p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
1520: p_entity_id => l_Line_adj_rec.line_id,
1521: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
1522: p_requesting_entity_id => l_Line_adj_rec.line_id,
1523: p_request_type => OE_GLOBALS.G_SERVICE_FIRST_PERIOD_BILL,
1524: p_request_unique_key1 => 'LINE',
1525: p_param1 => l_Line_adj_rec.line_id,
1526: x_return_status => l_return_status);
1527: -- sol_ord_er #16014165 end
1542: l_Line_Adj_rec.last_update_date := SYSDATE;
1543: l_Line_Adj_rec.last_updated_by := FND_GLOBAL.USER_ID;
1544: l_Line_Adj_rec.last_update_login := FND_GLOBAL.LOGIN_ID;
1545:
1546: IF l_Line_Adj_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
1547: oe_debug_pub.add(' updating list line id:'||l_Line_Adj_rec.list_line_id);
1548: oe_debug_pub.add(' l_line_adj_rec adjusted_amount:'||l_Line_Adj_rec.adjusted_amount);
1549: oe_debug_pub.add(' line_id:'||l_Line_Adj_rec.line_id);
1550: OE_Line_Adj_Util.Update_Row (l_Line_Adj_rec);
1548: oe_debug_pub.add(' l_line_adj_rec adjusted_amount:'||l_Line_Adj_rec.adjusted_amount);
1549: oe_debug_pub.add(' line_id:'||l_Line_Adj_rec.line_id);
1550: OE_Line_Adj_Util.Update_Row (l_Line_Adj_rec);
1551:
1552: ELSIF l_Line_Adj_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
1553:
1554: l_Line_Adj_rec.creation_date := SYSDATE;
1555: l_Line_Adj_rec.created_by := FND_GLOBAL.USER_ID;
1556:
1626: p_x_Line_Adj_tbl(I) := l_Line_Adj_rec;
1627: p_x_old_Line_Adj_tbl(I) := l_old_Line_Adj_rec;
1628: OE_Line_Adj_Security.g_check_all_cols_constraint := 'Y';
1629: OE_MSG_PUB.reset_msg_context('LINE_ADJ');
1630: oe_delayed_requests_pvt.delete_request(p_entity_code =>OE_GLOBALS.G_ENTITY_LINE_ADJ,
1631: p_entity_id => l_line_adj_rec.Price_adjustment_id,
1632: p_request_type => NULL,
1633: x_return_status => l_return_status);
1634: IF l_control_rec.Process_Partial THEN
1643: p_x_Line_Adj_tbl(I) := l_Line_Adj_rec;
1644: p_x_old_Line_Adj_tbl(I) := l_old_Line_Adj_rec;
1645: OE_Line_Adj_Security.g_check_all_cols_constraint := 'Y';
1646: OE_MSG_PUB.reset_msg_context('LINE_ADJ');
1647: oe_delayed_requests_pvt.delete_request(p_entity_code =>OE_GLOBALS.G_ENTITY_LINE_ADJ,
1648: p_entity_id => l_line_adj_rec.Price_adjustment_id,
1649: p_request_type => NULL,
1650: x_return_status => l_return_status);
1651: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1655: l_Line_Adj_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1656: p_x_Line_Adj_tbl(I) := l_Line_Adj_rec;
1657: p_x_old_Line_Adj_tbl(I) := l_old_Line_Adj_rec;
1658: OE_Line_Adj_Security.g_check_all_cols_constraint := 'Y';
1659: oe_delayed_requests_pvt.delete_request(p_entity_code =>OE_GLOBALS.G_ENTITY_LINE_ADJ,
1660: p_entity_id => l_line_adj_rec.Price_adjustment_id,
1661: p_request_type => NULL,
1662: x_return_status => l_return_status);
1663:
1723:
1724: PROCEDURE HEader_Price_Atts
1725: ( p_init_msg_list IN VARCHAR2:=FND_API.G_FALSE
1726: , p_validation_level IN NUMBER
1727: , p_control_rec IN OE_GLOBALS.Control_Rec_Type
1728: , p_x_HEader_Price_Att_tbl IN OUT NOCOPY OE_Order_PUB.HEader_Price_Att_Tbl_Type
1729: , p_x_old_HEader_Price_Att_tbl IN OUT NOCOPY OE_Order_PUB.HEader_Price_Att_Tbl_Type
1730: )
1731: is
1729: , p_x_old_HEader_Price_Att_tbl IN OUT NOCOPY OE_Order_PUB.HEader_Price_Att_Tbl_Type
1730: )
1731: is
1732: l_return_status VARCHAR2(1);
1733: l_control_rec OE_GLOBALS.Control_Rec_Type;
1734: l_Header_Price_Att_rec OE_Order_PUB.Header_Price_Att_Rec_Type;
1735: l_old_Header_Price_Att_rec OE_Order_PUB.Header_Price_Att_Rec_Type;
1736: -- local variables to store OUT parameters from security check procedures
1737: l_sec_result NUMBER;
1872: end if;
1873:
1874: -- Load API control record
1875:
1876: l_control_rec := OE_GLOBALS.Init_Control_Rec
1877: ( p_operation => l_Header_Price_Att_rec.operation
1878: , p_control_rec => p_control_rec
1879: );
1880:
1884:
1885: oe_debug_pub.add(' After initializing record,operation:'||l_Header_Price_Att_rec.operation);
1886: -- Prepare record.
1887:
1888: IF l_Header_Price_Att_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
1889:
1890: l_Header_Price_Att_rec.db_flag := FND_API.G_FALSE;
1891:
1892: -- Set missing old record elements to NULL.
1894: oe_debug_pub.add('Entering OE_Header_Price_Att_Util.Convert_Miss_To_Null', 2);
1895: -- l_old_Header_Price_Att_rec :=
1896: OE_Header_PAttr_Util.Convert_Miss_To_Null (l_old_Header_Price_Att_rec);
1897:
1898: ELSIF l_Header_Price_Att_rec.operation = OE_GLOBALS.G_OPR_UPDATE
1899: OR l_Header_Price_Att_rec.operation = OE_GLOBALS.G_OPR_DELETE
1900: THEN
1901:
1902: l_Header_Price_Att_rec.db_flag := FND_API.G_TRUE;
1895: -- l_old_Header_Price_Att_rec :=
1896: OE_Header_PAttr_Util.Convert_Miss_To_Null (l_old_Header_Price_Att_rec);
1897:
1898: ELSIF l_Header_Price_Att_rec.operation = OE_GLOBALS.G_OPR_UPDATE
1899: OR l_Header_Price_Att_rec.operation = OE_GLOBALS.G_OPR_DELETE
1900: THEN
1901:
1902: l_Header_Price_Att_rec.db_flag := FND_API.G_TRUE;
1903:
2008: -- Entity level validation.
2009:
2010: IF l_control_rec.validate_entity THEN
2011:
2012: IF l_Header_Price_Att_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
2013:
2014: OE_Validate_Header_Pattr.Entity_Delete
2015: ( x_return_status => l_return_status
2016: , p_Header_Price_Attr_rec => l_Header_Price_Att_rec
2039: -- Step 4. Write to DB
2040:
2041: IF l_control_rec.write_to_db THEN
2042:
2043: IF l_Header_Price_Att_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
2044:
2045: OE_Header_PAttr_Util.Delete_Row
2046: ( p_order_price_attrib_id => l_Header_Price_Att_rec.order_price_attrib_id
2047: );
2050: -- record
2051: --2442012
2052:
2053: /* OE_delayed_requests_Pvt.log_request(
2054: p_entity_code => OE_GLOBALS.G_ENTITY_HEader_Price_Att,
2055: p_entity_id => l_Header_Price_Att_Rec.Header_Id,
2056: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_HEader_Price_Att,
2057: p_requesting_entity_id => l_Header_Price_Att_Rec.Header_Id,
2058: p_param1 => l_Header_Price_Att_Rec.Header_Id,
2052:
2053: /* OE_delayed_requests_Pvt.log_request(
2054: p_entity_code => OE_GLOBALS.G_ENTITY_HEader_Price_Att,
2055: p_entity_id => l_Header_Price_Att_Rec.Header_Id,
2056: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_HEader_Price_Att,
2057: p_requesting_entity_id => l_Header_Price_Att_Rec.Header_Id,
2058: p_param1 => l_Header_Price_Att_Rec.Header_Id,
2059: p_param2 => 'LINE',
2060: p_request_type => OE_GLOBALS.G_PRICE_ORDER,
2056: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_HEader_Price_Att,
2057: p_requesting_entity_id => l_Header_Price_Att_Rec.Header_Id,
2058: p_param1 => l_Header_Price_Att_Rec.Header_Id,
2059: p_param2 => 'LINE',
2060: p_request_type => OE_GLOBALS.G_PRICE_ORDER,
2061: x_return_status => l_return_status);
2062:
2063: OE_delayed_requests_Pvt.log_request(
2064: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
2060: p_request_type => OE_GLOBALS.G_PRICE_ORDER,
2061: x_return_status => l_return_status);
2062:
2063: OE_delayed_requests_Pvt.log_request(
2064: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
2065: p_entity_id => l_Header_Price_Att_Rec.Header_Id,
2066: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_ALL,
2067: p_requesting_entity_id => l_Header_Price_Att_Rec.Header_Id,
2068: p_param1 => l_Header_Price_Att_Rec.Header_Id,
2062:
2063: OE_delayed_requests_Pvt.log_request(
2064: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
2065: p_entity_id => l_Header_Price_Att_Rec.Header_Id,
2066: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_ALL,
2067: p_requesting_entity_id => l_Header_Price_Att_Rec.Header_Id,
2068: p_param1 => l_Header_Price_Att_Rec.Header_Id,
2069: p_param2 => 'ORDER',
2070: p_request_type => OE_GLOBALS.G_PRICE_ORDER,
2066: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_ALL,
2067: p_requesting_entity_id => l_Header_Price_Att_Rec.Header_Id,
2068: p_param1 => l_Header_Price_Att_Rec.Header_Id,
2069: p_param2 => 'ORDER',
2070: p_request_type => OE_GLOBALS.G_PRICE_ORDER,
2071: x_return_status => l_return_status);
2072: */
2073: Begin
2074: -- use order_header cache instead of sql : bug 4200055
2093:
2094: If l_booked_flag='Y' Then
2095: l_pricing_event := 'BATCH,BOOK,SHIP';
2096: /* OE_delayed_requests_Pvt.log_request(
2097: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
2098: p_entity_id => l_Header_Price_Att_Rec.Header_Id,
2099: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_ALL,
2100: p_requesting_entity_id => l_Header_Price_Att_Rec.Header_Id,
2101: p_param1 => l_Header_Price_Att_Rec.Header_Id,
2095: l_pricing_event := 'BATCH,BOOK,SHIP';
2096: /* OE_delayed_requests_Pvt.log_request(
2097: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
2098: p_entity_id => l_Header_Price_Att_Rec.Header_Id,
2099: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_ALL,
2100: p_requesting_entity_id => l_Header_Price_Att_Rec.Header_Id,
2101: p_param1 => l_Header_Price_Att_Rec.Header_Id,
2102: p_param2 => 'BOOK',
2103: p_request_type => OE_GLOBALS.G_PRICE_ORDER,
2099: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_ALL,
2100: p_requesting_entity_id => l_Header_Price_Att_Rec.Header_Id,
2101: p_param1 => l_Header_Price_Att_Rec.Header_Id,
2102: p_param2 => 'BOOK',
2103: p_request_type => OE_GLOBALS.G_PRICE_ORDER,
2104: x_return_status => l_return_status);
2105: */
2106: Else
2107: l_pricing_event := 'BATCH';
2107: l_pricing_event := 'BATCH';
2108: End If;
2109:
2110: OE_delayed_requests_Pvt.log_request(
2111: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
2112: p_entity_id => l_Header_Price_Att_Rec.Header_Id,
2113: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_ALL,
2114: p_requesting_entity_id => l_Header_Price_Att_Rec.Header_Id,
2115: p_request_unique_key1 => l_pricing_event,
2109:
2110: OE_delayed_requests_Pvt.log_request(
2111: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
2112: p_entity_id => l_Header_Price_Att_Rec.Header_Id,
2113: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_ALL,
2114: p_requesting_entity_id => l_Header_Price_Att_Rec.Header_Id,
2115: p_request_unique_key1 => l_pricing_event,
2116: p_param1 => l_Header_Price_Att_Rec.Header_Id,
2117: p_param2 => l_pricing_event,
2114: p_requesting_entity_id => l_Header_Price_Att_Rec.Header_Id,
2115: p_request_unique_key1 => l_pricing_event,
2116: p_param1 => l_Header_Price_Att_Rec.Header_Id,
2117: p_param2 => l_pricing_event,
2118: p_request_type => OE_GLOBALS.G_PRICE_ORDER,
2119: x_return_status => l_return_status);
2120:
2121:
2122: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2132: l_Header_Price_Att_rec.last_update_date := SYSDATE;
2133: l_Header_Price_Att_rec.last_updated_by := FND_GLOBAL.USER_ID;
2134: l_Header_Price_Att_rec.last_update_login := FND_GLOBAL.LOGIN_ID;
2135:
2136: IF l_Header_Price_Att_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
2137:
2138: OE_Header_PAttr_Util.Update_Row (l_Header_Price_Att_rec);
2139:
2140: ELSIF l_Header_Price_Att_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
2136: IF l_Header_Price_Att_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
2137:
2138: OE_Header_PAttr_Util.Update_Row (l_Header_Price_Att_rec);
2139:
2140: ELSIF l_Header_Price_Att_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
2141:
2142: l_Header_Price_Att_rec.creation_date := SYSDATE;
2143: l_Header_Price_Att_rec.created_by := FND_GLOBAL.USER_ID;
2144: oe_debug_pub.add(' Before calling pattr_util.insert_row');
2182: /*
2183: OE_Header_PAttr_Security.g_check_all_cols_constraint := 'Y';
2184: OE_MSG_PUB.reset_msg_context('HEADER_ADJ');
2185: oe_delayed_requests_pvt.delete_request
2186: (p_entity_code =>OE_GLOBALS.G_ENTITY_HEADER_ADJ,
2187: p_entity_id => l_header_Price_Att_rec.order_price_attrib_id,
2188: p_request_type => NULL,
2189: x_return_status => l_return_status);
2190: */
2203: /*
2204: OE_Header_PAttr_Security.g_check_all_cols_constraint := 'Y';
2205: OE_MSG_PUB.reset_msg_context('HEADER_ADJ');
2206: oe_delayed_requests_pvt.delete_request
2207: (p_entity_code =>OE_GLOBALS.G_ENTITY_HEADER_ADJ,
2208: p_entity_id => l_header_Price_Att_rec.order_price_attrib_id,
2209: p_request_type => NULL,
2210: x_return_status => l_return_status);
2211: */
2269:
2270: PROCEDURE Header_Adj_Atts
2271: ( p_init_msg_list IN VARCHAR2:=FND_API.G_FALSE
2272: , p_validation_level IN NUMBER
2273: , p_control_rec IN OE_GLOBALS.Control_Rec_Type
2274: , p_x_Header_Adj_Att_tbl IN OUT NOCOPY OE_Order_PUB.Header_Adj_Att_Tbl_Type
2275: , p_x_old_Header_Adj_Att_tbl IN OUT NOCOPY OE_Order_PUB.Header_Adj_Att_Tbl_Type
2276: )
2277: is
2275: , p_x_old_Header_Adj_Att_tbl IN OUT NOCOPY OE_Order_PUB.Header_Adj_Att_Tbl_Type
2276: )
2277: is
2278: l_return_status VARCHAR2(1);
2279: l_control_rec OE_GLOBALS.Control_Rec_Type;
2280: l_Header_Adj_Att_rec OE_Order_PUB.Header_Adj_Att_Rec_Type;
2281: l_old_Header_Adj_Att_rec OE_Order_PUB.Header_Adj_Att_Rec_Type;
2282: -- local variables to store OUT parameters from security check procedures
2283: I pls_integer; -- Used as index for while loop
2327: end if;
2328:
2329: -- Load API control record
2330:
2331: l_control_rec := OE_GLOBALS.Init_Control_Rec
2332: ( p_operation => l_Header_Adj_Att_rec.operation
2333: , p_control_rec => p_control_rec
2334: );
2335:
2338: l_Header_Adj_Att_rec.return_status := FND_API.G_RET_STS_SUCCESS;
2339:
2340: -- Prepare record.
2341:
2342: IF l_Header_Adj_Att_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
2343:
2344: l_Header_Adj_Att_rec.db_flag := FND_API.G_FALSE;
2345:
2346: -- Set missing old record elements to NULL.
2348: adj_debug('Entering OE_Header_Adj_Att_Util.Convert_Miss_To_Null', 1);
2349: -- l_old_Header_Adj_Att_rec :=
2350: Oe_Header_Price_Aattr_util.Convert_Miss_To_Null (l_old_Header_Adj_Att_rec);
2351:
2352: ELSIF l_Header_Adj_Att_rec.operation = OE_GLOBALS.G_OPR_UPDATE
2353: OR l_Header_Adj_Att_rec.operation = OE_GLOBALS.G_OPR_DELETE
2354: THEN
2355:
2356: l_Header_Adj_Att_rec.db_flag := FND_API.G_TRUE;
2349: -- l_old_Header_Adj_Att_rec :=
2350: Oe_Header_Price_Aattr_util.Convert_Miss_To_Null (l_old_Header_Adj_Att_rec);
2351:
2352: ELSIF l_Header_Adj_Att_rec.operation = OE_GLOBALS.G_OPR_UPDATE
2353: OR l_Header_Adj_Att_rec.operation = OE_GLOBALS.G_OPR_DELETE
2354: THEN
2355:
2356: l_Header_Adj_Att_rec.db_flag := FND_API.G_TRUE;
2357:
2423: -- Step 4. Write to DB
2424:
2425: IF l_control_rec.write_to_db THEN
2426:
2427: IF l_Header_Adj_Att_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
2428:
2429: Oe_Header_Price_Aattr_util.Delete_Row
2430: ( p_Price_Adj_Attrib_id => l_Header_Adj_Att_rec.Price_adj_attrib_id
2431: );
2437: l_Header_Adj_Att_rec.last_update_date := SYSDATE;
2438: l_Header_Adj_Att_rec.last_updated_by := FND_GLOBAL.USER_ID;
2439: l_Header_Adj_Att_rec.last_update_login := FND_GLOBAL.LOGIN_ID;
2440:
2441: IF l_Header_Adj_Att_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
2442:
2443: Oe_Header_Price_Aattr_util.Update_Row (l_Header_Adj_Att_rec);
2444:
2445: ELSIF l_Header_Adj_Att_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
2441: IF l_Header_Adj_Att_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
2442:
2443: Oe_Header_Price_Aattr_util.Update_Row (l_Header_Adj_Att_rec);
2444:
2445: ELSIF l_Header_Adj_Att_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
2446:
2447: l_Header_Adj_Att_rec.creation_date := SYSDATE;
2448: l_Header_Adj_Att_rec.created_by := FND_GLOBAL.USER_ID;
2449:
2548:
2549: PROCEDURE Header_Adj_Assocs
2550: ( p_init_msg_list IN VARCHAR2:=FND_API.G_FALSE
2551: , p_validation_level IN NUMBER
2552: , p_control_rec IN OE_GLOBALS.Control_Rec_Type
2553: , p_x_Header_Adj_Assoc_tbl IN OUT NOCOPY OE_Order_PUB.Header_Adj_Assoc_Tbl_Type
2554: , p_x_old_Header_Adj_Assoc_tbl IN OUT NOCOPY OE_Order_PUB.Header_Adj_Assoc_Tbl_Type
2555: )
2556: is
2554: , p_x_old_Header_Adj_Assoc_tbl IN OUT NOCOPY OE_Order_PUB.Header_Adj_Assoc_Tbl_Type
2555: )
2556: is
2557: l_return_status VARCHAR2(1);
2558: l_control_rec OE_GLOBALS.Control_Rec_Type;
2559: l_Header_Adj_Assoc_rec OE_Order_PUB.Header_Adj_Assoc_Rec_Type;
2560: l_old_Header_Adj_Assoc_rec OE_Order_PUB.Header_Adj_Assoc_Rec_Type;
2561: -- local variables to store OUT parameters from security check procedures
2562: I pls_integer; -- Used as index for while loop
2606: end if;
2607:
2608: -- Load API control record
2609:
2610: l_control_rec := OE_GLOBALS.Init_Control_Rec
2611: ( p_operation => l_Header_Adj_Assoc_rec.operation
2612: , p_control_rec => p_control_rec
2613: );
2614:
2617: l_Header_Adj_Assoc_rec.return_status := FND_API.G_RET_STS_SUCCESS;
2618:
2619: -- Prepare record.
2620:
2621: IF l_Header_Adj_Assoc_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
2622:
2623: l_Header_Adj_Assoc_rec.db_flag := FND_API.G_FALSE;
2624:
2625: -- Set missing old record elements to NULL.
2627: adj_debug('Entering OE_Header_Adj_Assoc_Util.Convert_Miss_To_Null', 1);
2628: -- l_old_Header_Adj_Assoc_rec :=
2629: Oe_Header_Adj_Assocs_util.Convert_Miss_To_Null (l_old_Header_Adj_Assoc_rec);
2630:
2631: ELSIF l_Header_Adj_Assoc_rec.operation = OE_GLOBALS.G_OPR_UPDATE
2632: OR l_Header_Adj_Assoc_rec.operation = OE_GLOBALS.G_OPR_DELETE
2633: THEN
2634:
2635: l_Header_Adj_Assoc_rec.db_flag := FND_API.G_TRUE;
2628: -- l_old_Header_Adj_Assoc_rec :=
2629: Oe_Header_Adj_Assocs_util.Convert_Miss_To_Null (l_old_Header_Adj_Assoc_rec);
2630:
2631: ELSIF l_Header_Adj_Assoc_rec.operation = OE_GLOBALS.G_OPR_UPDATE
2632: OR l_Header_Adj_Assoc_rec.operation = OE_GLOBALS.G_OPR_DELETE
2633: THEN
2634:
2635: l_Header_Adj_Assoc_rec.db_flag := FND_API.G_TRUE;
2636:
2702: -- Step 4. Write to DB
2703:
2704: IF l_control_rec.write_to_db THEN
2705:
2706: IF l_Header_Adj_Assoc_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
2707:
2708: Oe_Header_Adj_Assocs_util.Delete_Row
2709: ( p_Price_Adj_assoc_id => l_Header_Adj_Assoc_rec.Price_Adj_assoc_id
2710: );
2716: l_Header_Adj_Assoc_rec.last_update_date := SYSDATE;
2717: l_Header_Adj_Assoc_rec.last_updated_by := FND_GLOBAL.USER_ID;
2718: l_Header_Adj_Assoc_rec.last_update_login := FND_GLOBAL.LOGIN_ID;
2719:
2720: IF l_Header_Adj_Assoc_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
2721:
2722: Oe_Header_Adj_Assocs_util.Update_Row (l_Header_Adj_Assoc_rec);
2723:
2724: ELSIF l_Header_Adj_Assoc_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
2720: IF l_Header_Adj_Assoc_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
2721:
2722: Oe_Header_Adj_Assocs_util.Update_Row (l_Header_Adj_Assoc_rec);
2723:
2724: ELSIF l_Header_Adj_Assoc_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
2725:
2726: l_Header_Adj_Assoc_rec.creation_date := SYSDATE;
2727: l_Header_Adj_Assoc_rec.created_by := FND_GLOBAL.USER_ID;
2728:
2826:
2827: PROCEDURE Line_Price_Atts
2828: ( p_init_msg_list IN VARCHAR2:=FND_API.G_FALSE
2829: , p_validation_level IN NUMBER
2830: , p_control_rec IN OE_GLOBALS.Control_Rec_Type
2831: , p_x_Line_Price_Att_tbl IN OUT NOCOPY OE_Order_PUB.Line_Price_Att_Tbl_Type
2832: , p_x_old_Line_Price_Att_tbl IN OUT NOCOPY OE_Order_PUB.Line_Price_Att_Tbl_Type
2833: )
2834: is
2832: , p_x_old_Line_Price_Att_tbl IN OUT NOCOPY OE_Order_PUB.Line_Price_Att_Tbl_Type
2833: )
2834: is
2835: l_return_status VARCHAR2(1);
2836: l_control_rec OE_GLOBALS.Control_Rec_Type;
2837: l_Line_price_att_rec OE_Order_PUB.Line_Price_Att_Rec_Type;
2838: l_old_Line_price_att_rec OE_Order_PUB.Line_Price_Att_Rec_Type;
2839: -- local variables to store OUT parameters from security check procedures
2840: l_sec_result NUMBER;
2993: end if;
2994:
2995: -- Load API control record
2996:
2997: l_control_rec := OE_GLOBALS.Init_Control_Rec
2998: ( p_operation => l_Line_price_att_rec.operation
2999: , p_control_rec => p_control_rec
3000: );
3001:
3004: l_Line_price_att_rec.return_status := FND_API.G_RET_STS_SUCCESS;
3005:
3006: -- Prepare record.
3007:
3008: IF l_Line_price_att_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
3009:
3010: l_Line_price_att_rec.db_flag := FND_API.G_FALSE;
3011:
3012: -- Set missing old record elements to NULL.
3014: adj_debug('Entering OE_Line_price_att_Util.Convert_Miss_To_Null', 1);
3015: -- l_old_Line_price_att_rec :=
3016: OE_Line_Pattr_Util.Convert_Miss_To_Null (l_old_Line_price_att_rec);
3017:
3018: ELSIF l_Line_price_att_rec.operation = OE_GLOBALS.G_OPR_UPDATE
3019: OR l_Line_price_att_rec.operation = OE_GLOBALS.G_OPR_DELETE
3020: THEN
3021:
3022: l_Line_price_att_rec.db_flag := FND_API.G_TRUE;
3015: -- l_old_Line_price_att_rec :=
3016: OE_Line_Pattr_Util.Convert_Miss_To_Null (l_old_Line_price_att_rec);
3017:
3018: ELSIF l_Line_price_att_rec.operation = OE_GLOBALS.G_OPR_UPDATE
3019: OR l_Line_price_att_rec.operation = OE_GLOBALS.G_OPR_DELETE
3020: THEN
3021:
3022: l_Line_price_att_rec.db_flag := FND_API.G_TRUE;
3023:
3065:
3066: /*
3067: -- Check security
3068: IF l_control_rec.check_security
3069: AND (l_Line_price_att_rec.operation = OE_GLOBALS.G_OPR_CREATE
3070: OR l_Line_price_att_rec.operation = OE_GLOBALS.G_OPR_UPDATE)
3071: THEN
3072:
3073: adj_debug('Check Attributes Security');
3066: /*
3067: -- Check security
3068: IF l_control_rec.check_security
3069: AND (l_Line_price_att_rec.operation = OE_GLOBALS.G_OPR_CREATE
3070: OR l_Line_price_att_rec.operation = OE_GLOBALS.G_OPR_UPDATE)
3071: THEN
3072:
3073: adj_debug('Check Attributes Security');
3074: -- check if this operation is allowed
3156: -- Entity level validation.
3157:
3158: IF l_control_rec.validate_entity THEN
3159:
3160: IF l_Line_price_att_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
3161:
3162: OE_Validate_Line_Pattr.Entity_Delete
3163: ( x_return_status => l_return_status
3164: , p_Line_price_attr_rec => l_Line_Price_Att_rec
3187: -- Step 4. Write to DB
3188:
3189: IF l_control_rec.write_to_db THEN
3190:
3191: IF l_Line_price_att_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
3192:
3193: OE_Line_Pattr_Util.Delete_Row
3194: ( p_order_price_attrib_id => l_Line_price_att_rec.order_price_attrib_id
3195: );
3194: ( p_order_price_attrib_id => l_Line_price_att_rec.order_price_attrib_id
3195: );
3196: --2442012
3197: /* OE_delayed_requests_Pvt.log_request(
3198: p_entity_code => OE_GLOBALS.G_ENTITY_Line_Price_Att,
3199: p_entity_id => l_Line_Price_Att_rec.line_id,
3200: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_Line_Price_Att,
3201: p_requesting_entity_id => l_Line_Price_Att_rec.line_id,
3202: p_param1 => l_Line_Price_Att_rec.header_id,
3196: --2442012
3197: /* OE_delayed_requests_Pvt.log_request(
3198: p_entity_code => OE_GLOBALS.G_ENTITY_Line_Price_Att,
3199: p_entity_id => l_Line_Price_Att_rec.line_id,
3200: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_Line_Price_Att,
3201: p_requesting_entity_id => l_Line_Price_Att_rec.line_id,
3202: p_param1 => l_Line_Price_Att_rec.header_id,
3203: p_param2 => 'LINE',
3204: p_request_type => OE_GLOBALS.G_PRICE_LINE,
3200: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_Line_Price_Att,
3201: p_requesting_entity_id => l_Line_Price_Att_rec.line_id,
3202: p_param1 => l_Line_Price_Att_rec.header_id,
3203: p_param2 => 'LINE',
3204: p_request_type => OE_GLOBALS.G_PRICE_LINE,
3205: x_return_status => l_return_status);
3206:
3207: OE_delayed_requests_Pvt.log_request(
3208: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
3204: p_request_type => OE_GLOBALS.G_PRICE_LINE,
3205: x_return_status => l_return_status);
3206:
3207: OE_delayed_requests_Pvt.log_request(
3208: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
3209: p_entity_id => l_Line_Price_Att_rec.Header_Id,
3210: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_ALL,
3211: p_requesting_entity_id => l_Line_Price_Att_rec.Header_Id,
3212: p_param1 => l_Line_Price_Att_rec.header_id,
3206:
3207: OE_delayed_requests_Pvt.log_request(
3208: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
3209: p_entity_id => l_Line_Price_Att_rec.Header_Id,
3210: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_ALL,
3211: p_requesting_entity_id => l_Line_Price_Att_rec.Header_Id,
3212: p_param1 => l_Line_Price_Att_rec.header_id,
3213: p_param2 => 'ORDER',
3214: p_request_type => OE_GLOBALS.G_PRICE_ORDER,
3210: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_ALL,
3211: p_requesting_entity_id => l_Line_Price_Att_rec.Header_Id,
3212: p_param1 => l_Line_Price_Att_rec.header_id,
3213: p_param2 => 'ORDER',
3214: p_request_type => OE_GLOBALS.G_PRICE_ORDER,
3215: x_return_status => l_return_status);
3216: */
3217: Begin
3218: Select booked_flag,Shipped_quantity into
3228: Else
3229: l_pricing_event := 'ORDER';
3230: End If;
3231: OE_delayed_requests_Pvt.log_request(
3232: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
3233: p_entity_id => l_Line_Price_Att_rec.Header_Id,
3234: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_ALL,
3235: p_requesting_entity_id => l_Line_Price_Att_rec.Header_Id,
3236: p_request_unique_key1 => l_pricing_event,
3230: End If;
3231: OE_delayed_requests_Pvt.log_request(
3232: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
3233: p_entity_id => l_Line_Price_Att_rec.Header_Id,
3234: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_ALL,
3235: p_requesting_entity_id => l_Line_Price_Att_rec.Header_Id,
3236: p_request_unique_key1 => l_pricing_event,
3237: p_param1 => l_Line_Price_Att_rec.header_id,
3238: p_param2 => l_pricing_event,
3235: p_requesting_entity_id => l_Line_Price_Att_rec.Header_Id,
3236: p_request_unique_key1 => l_pricing_event,
3237: p_param1 => l_Line_Price_Att_rec.header_id,
3238: p_param2 => l_pricing_event,
3239: p_request_type => OE_GLOBALS.G_PRICE_ORDER,
3240: x_return_status => l_return_status);
3241: -- End If;
3242:
3243: If l_Shipped_quantity > 0 Then
3245: Else
3246: l_pricing_event := 'LINE';
3247: End if;
3248: OE_delayed_requests_Pvt.log_request(
3249: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
3250: p_entity_id => l_Line_Price_Att_rec.Line_Id,
3251: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_ALL,
3252: p_requesting_entity_id => l_Line_Price_Att_rec.Line_Id,
3253: p_request_unique_key1 => l_pricing_event,
3247: End if;
3248: OE_delayed_requests_Pvt.log_request(
3249: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
3250: p_entity_id => l_Line_Price_Att_rec.Line_Id,
3251: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_ALL,
3252: p_requesting_entity_id => l_Line_Price_Att_rec.Line_Id,
3253: p_request_unique_key1 => l_pricing_event,
3254: p_param1 => l_Line_Price_Att_rec.header_id,
3255: p_param2 => l_pricing_event,
3252: p_requesting_entity_id => l_Line_Price_Att_rec.Line_Id,
3253: p_request_unique_key1 => l_pricing_event,
3254: p_param1 => l_Line_Price_Att_rec.header_id,
3255: p_param2 => l_pricing_event,
3256: p_request_type => OE_GLOBALS.G_PRICE_LINE,
3257: x_return_status => l_return_status);
3258: --2442012 End If;
3259:
3260:
3266: l_Line_price_att_rec.last_update_date := SYSDATE;
3267: l_Line_price_att_rec.last_updated_by := FND_GLOBAL.USER_ID;
3268: l_Line_price_att_rec.last_update_login := FND_GLOBAL.LOGIN_ID;
3269:
3270: IF l_Line_price_att_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
3271:
3272: OE_Line_Pattr_Util.Update_Row (l_Line_price_att_rec);
3273:
3274: ELSIF l_Line_price_att_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
3270: IF l_Line_price_att_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
3271:
3272: OE_Line_Pattr_Util.Update_Row (l_Line_price_att_rec);
3273:
3274: ELSIF l_Line_price_att_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
3275:
3276: l_Line_price_att_rec.creation_date := SYSDATE;
3277: l_Line_price_att_rec.created_by := FND_GLOBAL.USER_ID;
3278:
3389: is
3390: I PLS_INTEGER;
3391: l_line_dummy_adj_att_tbl OE_Order_PUB.Line_Adj_Att_Tbl_Type;
3392: l_line_adj_att_tbl OE_Order_PUB.Line_Adj_Att_Tbl_Type;
3393: l_control_rec OE_GLOBALS.Control_Rec_Type;
3394: Begin
3395: l_line_adj_att_tbl := p_Line_Adj_attribs_tbl;
3396:
3397: l_control_rec.private_call := TRUE;
3404: I := p_Line_Adj_attribs_tbl.first;
3405:
3406: While I Is Not Null Loop
3407: --l_line_adj_assoc_tbl(i) := OE_ORDER_PUB.G_MISS_LINE_ADJ_ASSOC_REC;
3408: l_line_adj_att_tbl(i).Operation := OE_Globals.G_OPR_CREATE;
3409:
3410: Select OE_PRICE_ADJ_ATTRIBS_S.nextval
3411: Into l_line_adj_att_tbl(i).price_adj_attrib_id
3412: From dual;
3425:
3426: PROCEDURE Line_Adj_Atts
3427: ( p_init_msg_list IN VARCHAR2:=FND_API.G_FALSE
3428: , p_validation_level IN NUMBER
3429: , p_control_rec IN OE_GLOBALS.Control_Rec_Type
3430: , p_x_Line_Adj_Att_tbl IN OUT NOCOPY OE_Order_PUB.Line_Adj_Att_Tbl_Type
3431: , p_x_old_Line_Adj_Att_tbl IN OUT NOCOPY OE_Order_PUB.Line_Adj_Att_Tbl_Type
3432: )
3433: is
3431: , p_x_old_Line_Adj_Att_tbl IN OUT NOCOPY OE_Order_PUB.Line_Adj_Att_Tbl_Type
3432: )
3433: is
3434: l_return_status VARCHAR2(1);
3435: l_control_rec OE_GLOBALS.Control_Rec_Type;
3436: l_Line_Adj_att_rec OE_Order_PUB.Line_Adj_Att_Rec_Type;
3437: l_old_Line_Adj_att_rec OE_Order_PUB.Line_Adj_Att_Rec_Type;
3438: -- local variables to store OUT parameters from security check procedures
3439: I pls_integer; -- Used as index for while loop
3482: end if;
3483:
3484: -- Load API control record
3485:
3486: l_control_rec := OE_GLOBALS.Init_Control_Rec
3487: ( p_operation => l_Line_Adj_Att_rec.operation
3488: , p_control_rec => p_control_rec
3489: );
3490:
3493: l_Line_Adj_Att_rec.return_status := FND_API.G_RET_STS_SUCCESS;
3494:
3495: -- Prepare record.
3496:
3497: IF l_Line_Adj_Att_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
3498:
3499: l_Line_Adj_Att_rec.db_flag := FND_API.G_FALSE;
3500:
3501: -- Set missing old record elements to NULL.
3503: adj_debug('Entering OE_Line_Adj_Att_Util.Convert_Miss_To_Null', 1);
3504: -- l_old_Line_Adj_Att_rec :=
3505: Oe_Line_Price_Aattr_util.Convert_Miss_To_Null (l_old_Line_Adj_Att_rec);
3506:
3507: ELSIF l_Line_Adj_Att_rec.operation = OE_GLOBALS.G_OPR_UPDATE
3508: OR l_Line_Adj_Att_rec.operation = OE_GLOBALS.G_OPR_DELETE
3509: THEN
3510:
3511: l_Line_Adj_Att_rec.db_flag := FND_API.G_TRUE;
3504: -- l_old_Line_Adj_Att_rec :=
3505: Oe_Line_Price_Aattr_util.Convert_Miss_To_Null (l_old_Line_Adj_Att_rec);
3506:
3507: ELSIF l_Line_Adj_Att_rec.operation = OE_GLOBALS.G_OPR_UPDATE
3508: OR l_Line_Adj_Att_rec.operation = OE_GLOBALS.G_OPR_DELETE
3509: THEN
3510:
3511: l_Line_Adj_Att_rec.db_flag := FND_API.G_TRUE;
3512:
3599: -- Step 4. Write to DB
3600:
3601: IF l_control_rec.write_to_db THEN
3602:
3603: IF l_Line_Adj_Att_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
3604:
3605: Oe_Line_Price_Aattr_util.Delete_Row
3606: ( p_Price_Adj_Attrib_id => l_Line_Adj_Att_rec.Price_adj_attrib_id
3607: );
3613: l_Line_Adj_Att_rec.last_update_date := SYSDATE;
3614: l_Line_Adj_Att_rec.last_updated_by := FND_GLOBAL.USER_ID;
3615: l_Line_Adj_Att_rec.last_update_login := FND_GLOBAL.LOGIN_ID;
3616:
3617: IF l_Line_Adj_Att_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
3618:
3619: Oe_Line_Price_Aattr_util.Update_Row (l_Line_Adj_Att_rec);
3620:
3621: ELSIF l_Line_Adj_Att_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
3617: IF l_Line_Adj_Att_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
3618:
3619: Oe_Line_Price_Aattr_util.Update_Row (l_Line_Adj_Att_rec);
3620:
3621: ELSIF l_Line_Adj_Att_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
3622:
3623: l_Line_Adj_Att_rec.creation_date := SYSDATE;
3624: l_Line_Adj_Att_rec.created_by := FND_GLOBAL.USER_ID;
3625:
3728: is
3729: I PLS_INTEGER;
3730: l_line_dummy_adj_assoc_tbl OE_Order_PUB.Line_Adj_Assoc_Tbl_Type;
3731: l_line_adj_assoc_tbl OE_Order_PUB.Line_Adj_Assoc_Tbl_Type;
3732: l_control_rec OE_GLOBALS.Control_Rec_Type;
3733: Begin
3734: l_line_adj_assoc_tbl := p_Line_Adj_Assoc_tbl;
3735: l_control_rec.private_call := TRUE;
3736: l_control_rec.controlled_operation := TRUE;
3742: I := p_line_adj_assoc_tbl.first;
3743:
3744: While I Is Not Null Loop
3745: --l_line_adj_assoc_tbl(i) := OE_ORDER_PUB.G_MISS_LINE_ADJ_ASSOC_REC;
3746: l_Line_Adj_Assoc_tbl(i).Operation := OE_Globals.G_OPR_CREATE;
3747:
3748: Select oe_price_adj_assocs_s.nextval
3749: Into l_line_adj_assoc_tbl(i).price_adj_assoc_id
3750: From dual;
3762:
3763: PROCEDURE Line_Adj_Assocs
3764: ( p_init_msg_list IN VARCHAR2:=FND_API.G_FALSE
3765: , p_validation_level IN NUMBER
3766: , p_control_rec IN OE_GLOBALS.Control_Rec_Type
3767: , p_x_Line_Adj_Assoc_tbl IN OUT NOCOPY OE_Order_PUB.Line_Adj_Assoc_Tbl_Type
3768: , p_x_old_Line_Adj_Assoc_tbl IN OUT NOCOPY OE_Order_PUB.Line_Adj_Assoc_Tbl_Type
3769: )
3770: is
3768: , p_x_old_Line_Adj_Assoc_tbl IN OUT NOCOPY OE_Order_PUB.Line_Adj_Assoc_Tbl_Type
3769: )
3770: is
3771: l_return_status VARCHAR2(1);
3772: l_control_rec OE_GLOBALS.Control_Rec_Type;
3773: l_Line_Adj_Assoc_rec OE_Order_PUB.Line_Adj_Assoc_Rec_Type;
3774: l_old_Line_Adj_Assoc_rec OE_Order_PUB.Line_Adj_Assoc_Rec_Type;
3775: -- local variables to store OUT parameters from security check procedures
3776: I pls_integer; -- Used as index for while loop
3822: end if;
3823:
3824: -- Load API control record
3825:
3826: l_control_rec := OE_GLOBALS.Init_Control_Rec
3827: ( p_operation => l_Line_Adj_Assoc_rec.operation
3828: , p_control_rec => p_control_rec
3829: );
3830:
3834:
3835: -- Prepare record.
3836:
3837:
3838: IF l_Line_Adj_Assoc_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
3839:
3840: l_Line_Adj_Assoc_rec.db_flag := FND_API.G_FALSE;
3841:
3842: -- Set missing old record elements to NULL.
3844: adj_debug('Entering OE_Line_Adj_Assoc_Util.Convert_Miss_To_Null', 1);
3845: -- l_old_Line_Adj_Assoc_rec :=
3846: Oe_Line_Adj_Assocs_util.Convert_Miss_To_Null (l_old_Line_Adj_Assoc_rec);
3847:
3848: ELSIF l_Line_Adj_Assoc_rec.operation = OE_GLOBALS.G_OPR_UPDATE
3849: OR l_Line_Adj_Assoc_rec.operation = OE_GLOBALS.G_OPR_DELETE
3850: THEN
3851:
3852: l_Line_Adj_Assoc_rec.db_flag := FND_API.G_TRUE;
3845: -- l_old_Line_Adj_Assoc_rec :=
3846: Oe_Line_Adj_Assocs_util.Convert_Miss_To_Null (l_old_Line_Adj_Assoc_rec);
3847:
3848: ELSIF l_Line_Adj_Assoc_rec.operation = OE_GLOBALS.G_OPR_UPDATE
3849: OR l_Line_Adj_Assoc_rec.operation = OE_GLOBALS.G_OPR_DELETE
3850: THEN
3851:
3852: l_Line_Adj_Assoc_rec.db_flag := FND_API.G_TRUE;
3853:
3920: -- Step 4. Write to DB
3921:
3922: IF l_control_rec.write_to_db THEN
3923:
3924: IF l_Line_Adj_Assoc_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
3925:
3926:
3927: adj_debug('deleting line adj assocs',2);
3928: Oe_Line_Adj_Assocs_util.Delete_Row
3936: l_Line_Adj_Assoc_rec.last_update_date := SYSDATE;
3937: l_Line_Adj_Assoc_rec.last_updated_by := FND_GLOBAL.USER_ID;
3938: l_Line_Adj_Assoc_rec.last_update_login := FND_GLOBAL.LOGIN_ID;
3939:
3940: IF l_Line_Adj_Assoc_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
3941: adj_debug('updating line adj assocs',2);
3942: Oe_Line_Adj_Assocs_util.Update_Row (l_Line_Adj_Assoc_rec);
3943:
3944: ELSIF l_Line_Adj_Assoc_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
3940: IF l_Line_Adj_Assoc_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
3941: adj_debug('updating line adj assocs',2);
3942: Oe_Line_Adj_Assocs_util.Update_Row (l_Line_Adj_Assoc_rec);
3943:
3944: ELSIF l_Line_Adj_Assoc_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
3945: adj_debug('inserting into line adj assocs',2);
3946: l_Line_Adj_Assoc_rec.creation_date := SYSDATE;
3947: l_Line_Adj_Assoc_rec.created_by := FND_GLOBAL.USER_ID;
3948:
5754:
5755: If G_INT_CHANGED_LINE_ON = 'Y' Then
5756: 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
5757: -- or p_multiple_events = 'Y'
5758: or (OE_GLOBALS.G_RECURSION_MODE <> FND_API.G_TRUE
5759: and p_control_rec.pricing_event = 'BOOK')
5760: or p_action_code = 'PRICE_ORDER' --user request to reprice all lines
5761: or Oe_Line_Adj_Util.has_service_lines(p_header_id)
5762: Then
6440: x_return_status VARCHAR2(240);
6441: x_return_status_txt VARCHAR2(240);
6442: Begin
6443: /* Start: Added by Manish */
6444: IF p_Line_Adj_Rec.OPERATION <> OE_GLOBALS.G_OPR_CREATE THEN
6445: p_Line_Adj_Rec.operation := OE_GLOBALS.G_OPR_UPDATE;
6446: END IF;
6447: /* End: Added by Manish */
6448:
6441: x_return_status_txt VARCHAR2(240);
6442: Begin
6443: /* Start: Added by Manish */
6444: IF p_Line_Adj_Rec.OPERATION <> OE_GLOBALS.G_OPR_CREATE THEN
6445: p_Line_Adj_Rec.operation := OE_GLOBALS.G_OPR_UPDATE;
6446: END IF;
6447: /* End: Added by Manish */
6448:
6449: adj_debug('Entering oe_order_Adj_pvt.Update_Adj_Line_rec',1);
6448:
6449: adj_debug('Entering oe_order_Adj_pvt.Update_Adj_Line_rec',1);
6450: G_STMT_NO := 'Update_Adj_Line_rec#10';
6451:
6452: if not OE_GLOBALS.Equal(p_Line_Adj_Rec.list_header_id,
6453: p_req_line_detail_Rec.list_header_id) then
6454: p_Line_Adj_Rec.list_header_id :=
6455: p_req_line_detail_Rec.list_header_id;
6456: l_updated_Flag := True;
6455: p_req_line_detail_Rec.list_header_id;
6456: l_updated_Flag := True;
6457: end If;
6458:
6459: If not OE_GLOBALS.Equal(p_Line_Adj_Rec.list_Line_id,
6460: p_req_line_detail_Rec.list_Line_id) Then
6461: p_Line_Adj_Rec.list_Line_id :=
6462: p_req_line_detail_Rec.list_Line_id;
6463: l_updated_Flag := True;
6462: p_req_line_detail_Rec.list_Line_id;
6463: l_updated_Flag := True;
6464: end If;
6465:
6466: if not OE_GLOBALS.Equal(p_Line_Adj_Rec.Automatic_flag,
6467: p_req_line_detail_Rec.Automatic_flag) Then
6468: p_Line_Adj_Rec.Automatic_flag :=
6469: p_req_line_detail_Rec.Automatic_flag;
6470: l_updated_Flag := True;
6469: p_req_line_detail_Rec.Automatic_flag;
6470: l_updated_Flag := True;
6471: end If;
6472:
6473: if not OE_GLOBALS.Equal(p_Line_Adj_Rec.list_line_type_code,
6474: p_req_line_detail_Rec.list_line_type_code) Then
6475: p_Line_Adj_Rec.list_line_type_code :=
6476: p_req_line_detail_Rec.list_line_type_code;
6477: l_updated_Flag := True;
6476: p_req_line_detail_Rec.list_line_type_code;
6477: l_updated_Flag := True;
6478: end If;
6479:
6480: if not OE_GLOBALS.Equal(p_Line_Adj_Rec.list_line_no, p_req_line_detail_Rec.list_line_no) Then
6481: if (not l_updated_flag) and p_Line_Adj_Rec.list_line_type_code = 'CIE' Then
6482: adj_debug('CIE:to delete coupon'||p_req_line_detail_rec.list_line_no);
6483: -- retain the original coupon number, delete the new number
6484: QP_COUPON_PVT.Delete_Coupon(p_req_line_detail_Rec.list_line_no,
6497: end If;
6498: end If;
6499:
6500: if p_Line_Adj_Rec.list_line_type_code = 'TSN' and -- Terms substitution
6501: not OE_GLOBALS.Equal(p_Line_Adj_Rec.modified_from,
6502: p_req_line_detail_Rec.substitution_from) Then
6503:
6504: Begin
6505: p_Line_Adj_Rec.modified_from := p_req_line_detail_Rec.substitution_from;
6510:
6511: end If;
6512:
6513: if p_Line_Adj_Rec.list_line_type_code = 'TSN' and -- Terms substitution
6514: not OE_GLOBALS.Equal(p_Line_Adj_Rec.modified_to,
6515: p_req_line_detail_Rec.substitution_to) Then
6516:
6517: Begin
6518: p_Line_Adj_Rec.modified_to := p_req_line_detail_Rec.substitution_to;
6523:
6524: end If;
6525:
6526: if p_Line_Adj_Rec.list_line_type_code = 'IUE' and -- Terms substitution
6527: not OE_GLOBALS.Equal(p_Line_Adj_Rec.modified_from,
6528: to_char(p_req_line_detail_Rec.INVENTORY_ITEM_ID)) Then
6529:
6530: p_Line_Adj_Rec.modified_from := to_char(p_req_line_detail_Rec.INVENTORY_ITEM_ID);
6531: l_updated_Flag := True;
6532:
6533: end If;
6534:
6535: if p_Line_Adj_Rec.list_line_type_code = 'IUE' and -- Terms substitution
6536: not OE_GLOBALS.Equal(p_Line_Adj_Rec.modified_to,
6537: to_char(p_req_line_detail_Rec.RELATED_ITEM_ID)) Then
6538:
6539: p_Line_Adj_Rec.modified_to := to_char(p_req_line_detail_Rec.RELATED_ITEM_ID);
6540: l_updated_Flag := True;
6540: l_updated_Flag := True;
6541:
6542: end If;
6543:
6544: if not OE_GLOBALS.Equal(p_Line_Adj_Rec.arithmetic_operator,
6545: p_req_line_detail_Rec.Operand_Calculation_Code) Then
6546: p_Line_Adj_Rec.arithmetic_operator := p_req_line_detail_Rec.Operand_Calculation_Code;
6547: l_updated_Flag := True;
6548: end If;
6546: p_Line_Adj_Rec.arithmetic_operator := p_req_line_detail_Rec.Operand_Calculation_Code;
6547: l_updated_Flag := True;
6548: end If;
6549:
6550: if not OE_GLOBALS.Equal(p_Line_Adj_Rec.operand_per_pqty,
6551: p_req_line_detail_Rec.Operand_Value) Then
6552: p_Line_Adj_Rec.operand_per_pqty := p_req_line_detail_Rec.Operand_Value;
6553: If p_req_line_detail_Rec.Operand_Value is null Then
6554: Oe_Debug_Pub.add(' Null operand returned by pricing');
6557: End If;
6558: l_updated_Flag := True;
6559: end If;
6560:
6561: if not OE_GLOBALS.Equal(p_Line_Adj_Rec.Applied_flag ,
6562: p_req_line_detail_Rec.Applied_Flag) or p_Line_Adj_Rec.Applied_flag is null
6563: Then
6564: p_Line_Adj_Rec.Applied_flag := nvl(p_req_line_detail_Rec.Applied_Flag,'N');
6565: l_updated_Flag := True;
6564: p_Line_Adj_Rec.Applied_flag := nvl(p_req_line_detail_Rec.Applied_Flag,'N');
6565: l_updated_Flag := True;
6566: end If;
6567:
6568: if not OE_GLOBALS.Equal(p_Line_Adj_Rec.update_allowed,
6569: p_req_line_detail_Rec.Override_flag) Then
6570: p_Line_Adj_Rec.update_allowed := p_req_line_detail_Rec.Override_flag;
6571: l_updated_Flag := True;
6572: end If;
6570: p_Line_Adj_Rec.update_allowed := p_req_line_detail_Rec.Override_flag;
6571: l_updated_Flag := True;
6572: end If;
6573:
6574: if not OE_GLOBALS.Equal(p_Line_Adj_Rec.Pricing_phase_id,
6575: p_req_line_detail_Rec.Pricing_phase_id) Then
6576: p_Line_Adj_Rec.Pricing_phase_id := p_req_line_detail_Rec.Pricing_phase_id;
6577: l_updated_Flag := True;
6578: end If;
6576: p_Line_Adj_Rec.Pricing_phase_id := p_req_line_detail_Rec.Pricing_phase_id;
6577: l_updated_Flag := True;
6578: end If;
6579:
6580: if not OE_GLOBALS.Equal(p_Line_Adj_Rec.adjusted_amount_per_pqty,
6581: p_req_line_detail_Rec.Adjustment_Amount) Then
6582: p_Line_Adj_Rec.adjusted_amount_per_pqty := p_req_line_detail_Rec.Adjustment_Amount;
6583: l_updated_Flag := True;
6584: end If;
6582: p_Line_Adj_Rec.adjusted_amount_per_pqty := p_req_line_detail_Rec.Adjustment_Amount;
6583: l_updated_Flag := True;
6584: end If;
6585:
6586: if not OE_GLOBALS.Equal(p_Line_Adj_Rec.pricing_group_sequence,
6587: p_req_line_detail_Rec.pricing_group_sequence) Then
6588: p_Line_Adj_Rec.pricing_group_sequence := p_req_line_detail_Rec.pricing_group_sequence;
6589: l_updated_Flag := True;
6590: end If;
6588: p_Line_Adj_Rec.pricing_group_sequence := p_req_line_detail_Rec.pricing_group_sequence;
6589: l_updated_Flag := True;
6590: end If;
6591:
6592: if not OE_GLOBALS.Equal(p_Line_Adj_Rec.range_break_quantity,
6593: p_req_line_detail_Rec.line_quantity) Then
6594: p_Line_Adj_Rec.range_break_quantity := p_req_line_detail_Rec.line_quantity;
6595: l_updated_Flag := True;
6596: end If;
6594: p_Line_Adj_Rec.range_break_quantity := p_req_line_detail_Rec.line_quantity;
6595: l_updated_Flag := True;
6596: end If;
6597:
6598: if not OE_GLOBALS.Equal(p_Line_Adj_Rec.price_break_type_code,
6599: p_req_line_detail_Rec.price_break_type_code) Then
6600: p_Line_Adj_Rec.price_break_type_code := p_req_line_detail_Rec.price_break_type_code;
6601: l_updated_Flag := True;
6602: end If;
6600: p_Line_Adj_Rec.price_break_type_code := p_req_line_detail_Rec.price_break_type_code;
6601: l_updated_Flag := True;
6602: end If;
6603:
6604: if not OE_GLOBALS.Equal(p_Line_Adj_Rec.print_on_invoice_flag,
6605: p_req_line_detail_Rec.print_on_invoice_flag) Then
6606: p_Line_Adj_Rec.print_on_invoice_flag := p_req_line_detail_Rec.print_on_invoice_flag;
6607: l_updated_Flag := True;
6608: end If;
6606: p_Line_Adj_Rec.print_on_invoice_flag := p_req_line_detail_Rec.print_on_invoice_flag;
6607: l_updated_Flag := True;
6608: end If;
6609:
6610: if not OE_GLOBALS.Equal(p_Line_Adj_Rec.print_on_invoice_flag,
6611: p_req_line_detail_Rec.print_on_invoice_flag) Then
6612: p_Line_Adj_Rec.print_on_invoice_flag := p_req_line_detail_Rec.print_on_invoice_flag;
6613: l_updated_Flag := True;
6614: end If;
6612: p_Line_Adj_Rec.print_on_invoice_flag := p_req_line_detail_Rec.print_on_invoice_flag;
6613: l_updated_Flag := True;
6614: end If;
6615:
6616: if not OE_GLOBALS.Equal(p_Line_Adj_Rec.substitution_attribute,
6617: p_req_line_detail_Rec.substitution_attribute) Then
6618: p_Line_Adj_Rec.substitution_attribute := p_req_line_detail_Rec.substitution_attribute;
6619: l_updated_Flag := True;
6620: end If;
6618: p_Line_Adj_Rec.substitution_attribute := p_req_line_detail_Rec.substitution_attribute;
6619: l_updated_Flag := True;
6620: end If;
6621:
6622: if not OE_GLOBALS.Equal(p_Line_Adj_Rec.Accrual_flag,
6623: p_req_line_detail_Rec.Accrual_flag) Then
6624: p_Line_Adj_Rec.Accrual_flag := p_req_line_detail_Rec.Accrual_flag;
6625: l_updated_Flag := True;
6626: end If;
6624: p_Line_Adj_Rec.Accrual_flag := p_req_line_detail_Rec.Accrual_flag;
6625: l_updated_Flag := True;
6626: end If;
6627:
6628: if not OE_GLOBALS.Equal(p_Line_Adj_Rec.accrual_conversion_rate,
6629: p_req_line_detail_Rec.accrual_conversion_rate) Then
6630: p_Line_Adj_Rec.accrual_conversion_rate := p_req_line_detail_Rec.accrual_conversion_rate;
6631: l_updated_Flag := True;
6632: end If;
6630: p_Line_Adj_Rec.accrual_conversion_rate := p_req_line_detail_Rec.accrual_conversion_rate;
6631: l_updated_Flag := True;
6632: end If;
6633:
6634: if not OE_GLOBALS.Equal(p_Line_Adj_Rec.charge_type_code,
6635: p_req_line_detail_Rec.charge_type_code) Then
6636: p_Line_Adj_Rec.charge_type_code := p_req_line_detail_Rec.charge_type_code;
6637: l_updated_Flag := True;
6638: end If;
6636: p_Line_Adj_Rec.charge_type_code := p_req_line_detail_Rec.charge_type_code;
6637: l_updated_Flag := True;
6638: end If;
6639:
6640: if not OE_GLOBALS.Equal(p_Line_Adj_Rec.charge_subtype_code,
6641: p_req_line_detail_Rec.charge_subtype_code) Then
6642: p_Line_Adj_Rec.charge_subtype_code := p_req_line_detail_Rec.charge_subtype_code;
6643: l_updated_Flag := True;
6644: end If;
6643: l_updated_Flag := True;
6644: end If;
6645:
6646:
6647: if not OE_GLOBALS.Equal(p_Line_Adj_Rec.include_on_returns_flag,
6648: p_req_line_detail_Rec.include_on_returns_flag) Then
6649: p_Line_Adj_Rec.include_on_returns_flag := p_req_line_detail_Rec.include_on_returns_flag;
6650: l_updated_Flag := True;
6651: end If;
6649: p_Line_Adj_Rec.include_on_returns_flag := p_req_line_detail_Rec.include_on_returns_flag;
6650: l_updated_Flag := True;
6651: end If;
6652:
6653: if not OE_GLOBALS.Equal(p_Line_Adj_Rec.benefit_uom_code,
6654: p_req_line_detail_Rec.benefit_uom_code) Then
6655: p_Line_Adj_Rec.benefit_uom_code := p_req_line_detail_Rec.benefit_uom_code;
6656: l_updated_Flag := True;
6657: end If;
6655: p_Line_Adj_Rec.benefit_uom_code := p_req_line_detail_Rec.benefit_uom_code;
6656: l_updated_Flag := True;
6657: end If;
6658:
6659: if not OE_GLOBALS.Equal(p_Line_Adj_Rec.Benefit_qty, p_req_line_detail_Rec.Benefit_qty) Then
6660: p_Line_Adj_Rec.Benefit_qty := p_req_line_detail_Rec.Benefit_qty;
6661: l_updated_Flag := True;
6662: end If;
6663:
6660: p_Line_Adj_Rec.Benefit_qty := p_req_line_detail_Rec.Benefit_qty;
6661: l_updated_Flag := True;
6662: end If;
6663:
6664: if not OE_GLOBALS.Equal(p_Line_Adj_Rec.proration_type_code,
6665: p_req_line_detail_Rec.proration_type_code) Then
6666: p_Line_Adj_Rec.proration_type_code := p_req_line_detail_Rec.proration_type_code;
6667: l_updated_Flag := True;
6668: end If;
6666: p_Line_Adj_Rec.proration_type_code := p_req_line_detail_Rec.proration_type_code;
6667: l_updated_Flag := True;
6668: end If;
6669:
6670: /* if not OE_GLOBALS.Equal(p_Line_Adj_Rec.list_line_no, p_req_line_detail_Rec.list_line_no) Then
6671: p_Line_Adj_Rec.list_line_no := p_req_line_detail_Rec.list_line_no;
6672: l_updated_Flag := True;
6673: end If;
6674: */
6671: p_Line_Adj_Rec.list_line_no := p_req_line_detail_Rec.list_line_no;
6672: l_updated_Flag := True;
6673: end If;
6674: */
6675: if not OE_GLOBALS.Equal(p_Line_Adj_Rec.source_system_code,
6676: p_req_line_detail_Rec.source_system_code) Then
6677: p_Line_Adj_Rec.source_system_code := p_req_line_detail_Rec.source_system_code;
6678: l_updated_Flag := True;
6679: end If;
6677: p_Line_Adj_Rec.source_system_code := p_req_line_detail_Rec.source_system_code;
6678: l_updated_Flag := True;
6679: end If;
6680:
6681: if not OE_GLOBALS.Equal(p_Line_Adj_Rec.expiration_date,
6682: p_req_line_detail_Rec.expiration_date) Then
6683: p_Line_Adj_Rec.expiration_date := p_req_line_detail_Rec.expiration_date;
6684: l_updated_Flag := True;
6685: end If;
6683: p_Line_Adj_Rec.expiration_date := p_req_line_detail_Rec.expiration_date;
6684: l_updated_Flag := True;
6685: end If;
6686:
6687: if not OE_GLOBALS.Equal(p_Line_Adj_Rec.Rebate_transaction_type_code,
6688: p_req_line_detail_Rec.Rebate_transaction_type_code) Then
6689: p_Line_Adj_Rec.Rebate_transaction_type_code :=
6690: p_req_line_detail_Rec.Rebate_transaction_type_code;
6691: l_updated_Flag := True;
6690: p_req_line_detail_Rec.Rebate_transaction_type_code;
6691: l_updated_Flag := True;
6692: end If;
6693:
6694: if not OE_GLOBALS.Equal(p_Line_Adj_Rec.modifier_level_code,
6695: p_req_line_detail_Rec.modifier_level_code) Then
6696: p_Line_Adj_Rec.modifier_level_code :=
6697: p_req_line_detail_Rec.modifier_level_code;
6698: l_updated_Flag := True;
6696: p_Line_Adj_Rec.modifier_level_code :=
6697: p_req_line_detail_Rec.modifier_level_code;
6698: l_updated_Flag := True;
6699: end If;
6700: if not OE_GLOBALS.Equal(p_Line_Adj_Rec.group_value,
6701: p_req_line_detail_Rec.group_value) Then
6702: p_Line_Adj_Rec.group_value :=
6703: p_req_line_detail_Rec.group_value;
6704: l_updated_Flag := True;
6822: -- This is a new Record
6823: --
6824: x_Adj_Index := px_line_adj_Tbl.count + 1;
6825: px_line_adj_tbl(x_adj_index) := OE_ORDER_PUB.G_MISS_LINE_ADJ_REC;
6826: px_line_adj_Tbl(x_Adj_Index).operation := OE_GLOBALS.G_OPR_CREATE;
6827: px_line_adj_Tbl(x_Adj_Index).Updated_Flag := 'N';
6828: px_line_adj_Tbl(x_Adj_Index).adjusted_amount_per_pqty := null;
6829: --
6830: elsif px_Line_Adj_Tbl(x_Adj_Index).price_adjustment_id is null or
6830: elsif px_Line_Adj_Tbl(x_Adj_Index).price_adjustment_id is null or
6831: px_Line_Adj_Tbl(x_Adj_Index).price_adjustment_id = FND_API.g_miss_num Then
6832: --Record is not yet created in the database
6833: px_line_adj_Tbl(x_Adj_Index).Updated_Flag := 'N';
6834: px_line_adj_Tbl(x_Adj_Index).operation := OE_GLOBALS.G_OPR_CREATE;
6835: /* Taking out nocopy this part to be set in update_adj_line_rec: Manish */
6836:
6837: -- Else
6838: -- px_Line_Adj_Tbl(x_Adj_Index).operation := OE_GLOBALS.G_OPR_UPDATE;
6834: px_line_adj_Tbl(x_Adj_Index).operation := OE_GLOBALS.G_OPR_CREATE;
6835: /* Taking out nocopy this part to be set in update_adj_line_rec: Manish */
6836:
6837: -- Else
6838: -- px_Line_Adj_Tbl(x_Adj_Index).operation := OE_GLOBALS.G_OPR_UPDATE;
6839: end if;
6840:
6841: --G_STMT_NO := 'Find_Duplicate_Adj_Lines#10.57';
6842:
6848:
6849: elsif px_Line_Adj_Tbl(X_Adj_Index).list_line_type_code =
6850: 'FREIGHT_CHARGE'
6851: AND
6852: (NOT OE_GLOBALS.EQUAL(px_Line_Adj_Tbl(X_Adj_Index).list_Line_id,
6853: p_req_line_detail_Rec.list_Line_id))
6854: AND
6855: px_line_adj_Tbl(X_Adj_Index).operation <>
6856: OE_GLOBALS.G_OPR_DELETE
6852: (NOT OE_GLOBALS.EQUAL(px_Line_Adj_Tbl(X_Adj_Index).list_Line_id,
6853: p_req_line_detail_Rec.list_Line_id))
6854: AND
6855: px_line_adj_Tbl(X_Adj_Index).operation <>
6856: OE_GLOBALS.G_OPR_DELETE
6857: AND
6858: nvl(px_Line_Adj_Tbl(x_Adj_Index).adjusted_amount_per_pqty,0) >=
6859: nvl(p_req_line_detail_Rec.adjustment_amount,0)
6860: Then
6875: --if pricing engine return a prg line set the operation
6876: --to update because parent quantity might have changed
6877:
6878: If p_req_line_detail_rec.list_line_type_code = 'PRG' Then
6879: px_line_adj_tbl(x_adj_index).operation := OE_GLOBALS.G_OPR_UPDATE;
6880: End If;
6881:
6882: End If; -- Check Updated_Flag
6883:
6933: WHILE i IS NOT NULL LOOP
6934: oe_debug_pub.add('zInside Assoc Query i value:'||i);
6935: l_index := p_Line_Adj_Assoc_Tbl.count+1;
6936: If p_delete_flag = 'Y' Then
6937: p_Line_Adj_Assoc_Tbl(l_index).Operation := OE_GLOBALS.G_OPR_DELETE;
6938: Else
6939: p_line_adj_assoc_tbl(l_index).Operation := FND_API.G_MISS_CHAR;
6940: End If;
6941: oe_debug_pub.add('zl_index:'||l_index);
7046:
7047: elsif nvl(l_Line_Adj_Tbl(i).Updated_Flag,'N') = 'N' or
7048: l_Line_Adj_Tbl(i).Updated_Flag = fnd_api.g_miss_char then
7049: adj_debug('BCT'||l_Line_Adj_Tbl(i).price_adjustment_id);
7050: L_Line_Adj_Tbl(i).operation := OE_GLOBALS.G_OPR_DELETE;
7051:
7052: --Fix bug 1758251
7053: If l_line_adj_tbl(i).list_line_type_code = 'IUE' Then
7054: get_item_for_iue(px_line_rec => px_line_rec);
7082: px_line_adj_tbl(px_line_adj_tbl.count+1) := L_Line_Adj_Tbl(i);
7083:
7084: If px_line_adj_tbl(px_line_adj_tbl.count).list_line_type_code In('PBH','PRG','OID','CIE')
7085: Then
7086: If px_line_adj_tbl(px_line_adj_tbl.count).operation = OE_GLOBALS.G_OPR_DELETE
7087: Then
7088: Query_Adj_Assocs(p_price_adjustment_id=>px_line_adj_tbl(px_line_adj_tbl.count).price_adjustment_id,
7089: p_Adj_Index => px_line_adj_tbl.count,
7090: p_Line_Adj_Assoc_Tbl => px_line_adj_Assoc_tbl,
7176: For i in 1..L_Line_Adj_Att_Tbl.count loop
7177:
7178: l_index := p_Line_Adj_Att_Tbl.count+1;
7179: p_Line_Adj_Att_Tbl(l_index) := l_Line_Adj_Att_tbl(i);
7180: p_Line_Adj_Att_Tbl(l_index).Operation := OE_GLOBALS.G_OPR_DELETE;
7181: p_Line_Adj_Att_Tbl(l_index).Adj_Index := p_Adj_Index;
7182: p_Line_Adj_Att_Tbl(l_index).price_adjustment_id := p_price_adjustment_id;
7183:
7184: end loop;
7211: i:= p_Line_Adj_Att_Tbl.First;
7212: While i is not null loop
7213: If p_Line_Adj_Att_Tbl(i).Adj_Index = p_Adj_index Then
7214:
7215: If OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).flex_title ,
7216: 'QP_ATTR_DEFNS_QUALIFIER') and
7217: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).pricing_context,
7218: p_Req_LINE_DETAIL_qual_Rec.Qualifier_Context) And
7219: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).pricing_attribute ,
7213: If p_Line_Adj_Att_Tbl(i).Adj_Index = p_Adj_index Then
7214:
7215: If OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).flex_title ,
7216: 'QP_ATTR_DEFNS_QUALIFIER') and
7217: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).pricing_context,
7218: p_Req_LINE_DETAIL_qual_Rec.Qualifier_Context) And
7219: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).pricing_attribute ,
7220: p_Req_LINE_DETAIL_qual_Rec.Qualifier_Attribute) And
7221: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).pricing_attr_value_from ,
7215: If OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).flex_title ,
7216: 'QP_ATTR_DEFNS_QUALIFIER') and
7217: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).pricing_context,
7218: p_Req_LINE_DETAIL_qual_Rec.Qualifier_Context) And
7219: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).pricing_attribute ,
7220: p_Req_LINE_DETAIL_qual_Rec.Qualifier_Attribute) And
7221: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).pricing_attr_value_from ,
7222: p_Req_LINE_DETAIL_qual_Rec.Qualifier_Attr_Value_From) And
7223: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).pricing_attr_value_To ,
7217: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).pricing_context,
7218: p_Req_LINE_DETAIL_qual_Rec.Qualifier_Context) And
7219: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).pricing_attribute ,
7220: p_Req_LINE_DETAIL_qual_Rec.Qualifier_Attribute) And
7221: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).pricing_attr_value_from ,
7222: p_Req_LINE_DETAIL_qual_Rec.Qualifier_Attr_Value_From) And
7223: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).pricing_attr_value_To ,
7224: p_Req_LINE_DETAIL_qual_Rec.Qualifier_Attr_Value_To) And
7225: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).comparison_operator ,
7219: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).pricing_attribute ,
7220: p_Req_LINE_DETAIL_qual_Rec.Qualifier_Attribute) And
7221: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).pricing_attr_value_from ,
7222: p_Req_LINE_DETAIL_qual_Rec.Qualifier_Attr_Value_From) And
7223: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).pricing_attr_value_To ,
7224: p_Req_LINE_DETAIL_qual_Rec.Qualifier_Attr_Value_To) And
7225: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).comparison_operator ,
7226: p_Req_LINE_DETAIL_qual_Rec.comparison_operator_Code)
7227: Then
7221: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).pricing_attr_value_from ,
7222: p_Req_LINE_DETAIL_qual_Rec.Qualifier_Attr_Value_From) And
7223: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).pricing_attr_value_To ,
7224: p_Req_LINE_DETAIL_qual_Rec.Qualifier_Attr_Value_To) And
7225: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).comparison_operator ,
7226: p_Req_LINE_DETAIL_qual_Rec.comparison_operator_Code)
7227: Then
7228: -- Do not delete the record from oe_order_Price_adj_Attribs
7229:
7226: p_Req_LINE_DETAIL_qual_Rec.comparison_operator_Code)
7227: Then
7228: -- Do not delete the record from oe_order_Price_adj_Attribs
7229:
7230: If p_Line_Adj_Att_Tbl(i).Operation = OE_GLobals.g_opr_delete then
7231: p_Line_Adj_Att_Tbl(i).Operation := FND_API.G_MISS_CHAR;
7232: End If;
7233:
7234: Return;
7242: G_STMT_NO := 'Find_Duplicate_Adj_Attribs#20';
7243: -- Create a New Record
7244: l_index := p_Line_Adj_Att_Tbl.count+1;
7245: p_Line_Adj_Att_Tbl(l_index) := OE_ORDER_PUB.G_MISS_LINE_ADJ_ATT_REC;
7246: p_Line_Adj_Att_Tbl(l_index).operation := OE_GLOBALS.G_OPR_CREATE;
7247: p_Line_Adj_Att_Tbl(l_index).Adj_index := P_Adj_Index;
7248: p_Line_Adj_Att_Tbl(l_index).price_adjustment_id := p_price_adjustment_id;
7249: p_Line_Adj_Att_Tbl(l_index).flex_title := 'QP_ATTR_DEFNS_QUALIFIER';
7250: p_Line_Adj_Att_Tbl(l_index).pricing_context :=
7268: While i is not null loop
7269:
7270: If p_Line_Adj_Att_Tbl(i).Adj_Index = p_Adj_index Then
7271:
7272: If OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).flex_title ,
7273: 'QP_ATTR_DEFNS_PRICING') and
7274: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).pricing_context,
7275: p_Req_Line_Detail_Attr_Rec.Pricing_Context) And
7276: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).pricing_attribute ,
7270: If p_Line_Adj_Att_Tbl(i).Adj_Index = p_Adj_index Then
7271:
7272: If OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).flex_title ,
7273: 'QP_ATTR_DEFNS_PRICING') and
7274: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).pricing_context,
7275: p_Req_Line_Detail_Attr_Rec.Pricing_Context) And
7276: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).pricing_attribute ,
7277: p_Req_Line_Detail_Attr_Rec.Pricing_Attribute) And
7278: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).pricing_attr_value_from ,
7272: If OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).flex_title ,
7273: 'QP_ATTR_DEFNS_PRICING') and
7274: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).pricing_context,
7275: p_Req_Line_Detail_Attr_Rec.Pricing_Context) And
7276: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).pricing_attribute ,
7277: p_Req_Line_Detail_Attr_Rec.Pricing_Attribute) And
7278: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).pricing_attr_value_from ,
7279: p_Req_Line_Detail_Attr_Rec.Pricing_Attr_Value_From) And
7280: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).pricing_attr_value_To ,
7274: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).pricing_context,
7275: p_Req_Line_Detail_Attr_Rec.Pricing_Context) And
7276: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).pricing_attribute ,
7277: p_Req_Line_Detail_Attr_Rec.Pricing_Attribute) And
7278: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).pricing_attr_value_from ,
7279: p_Req_Line_Detail_Attr_Rec.Pricing_Attr_Value_From) And
7280: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).pricing_attr_value_To ,
7281: p_Req_Line_Detail_Attr_Rec.Pricing_Attr_Value_To)
7282: --And
7276: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).pricing_attribute ,
7277: p_Req_Line_Detail_Attr_Rec.Pricing_Attribute) And
7278: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).pricing_attr_value_from ,
7279: p_Req_Line_Detail_Attr_Rec.Pricing_Attr_Value_From) And
7280: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).pricing_attr_value_To ,
7281: p_Req_Line_Detail_Attr_Rec.Pricing_Attr_Value_To)
7282: --And
7283: --OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).comparison_operator ,
7284: --p_Req_Line_Detail_Attr_Rec.comparison_operator_Code)
7279: p_Req_Line_Detail_Attr_Rec.Pricing_Attr_Value_From) And
7280: OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).pricing_attr_value_To ,
7281: p_Req_Line_Detail_Attr_Rec.Pricing_Attr_Value_To)
7282: --And
7283: --OE_GLOBALS.Equal(p_Line_Adj_Att_tbl(i).comparison_operator ,
7284: --p_Req_Line_Detail_Attr_Rec.comparison_operator_Code)
7285: Then
7286: -- Do not delete the record from oe_order_Price_adj_Attribs
7287:
7284: --p_Req_Line_Detail_Attr_Rec.comparison_operator_Code)
7285: Then
7286: -- Do not delete the record from oe_order_Price_adj_Attribs
7287:
7288: If p_Line_Adj_Att_Tbl(i).Operation = oe_globals.g_opr_delete Then
7289: p_Line_Adj_Att_Tbl(i).Operation := FND_API.G_MISS_CHAR;
7290: End If;
7291:
7292: Return;
7298:
7299: -- Create a New Record
7300: l_index := p_Line_Adj_Att_Tbl.count+1;
7301: p_line_adj_att_tbl(l_index) := OE_ORDER_PUB.G_MISS_LINE_ADJ_ATT_REC;
7302: p_Line_Adj_Att_Tbl(l_index).operation := OE_GLOBALS.G_OPR_CREATE;
7303: p_Line_Adj_Att_Tbl(l_index).Adj_index := P_Adj_Index;
7304: p_Line_Adj_Att_Tbl(l_index).price_adjustment_id := p_price_adjustment_id;
7305: p_Line_Adj_Att_Tbl(l_index).flex_title := 'QP_ATTR_DEFNS_PRICING';
7306: p_Line_Adj_Att_Tbl(l_index).pricing_context :=
7454: p_Line_Adj_Assoc_Tbl.delete(i);
7455:
7456: -- Bug 2270949
7457: IF (p_Rltd_line_details_prcd.exists(p_line_detail_index)
7458: and p_line_adj_tbl(p_Rltd_line_details_prcd(p_line_detail_index)).operation = OE_GLOBALS.G_OPR_CREATE) THEN
7459: adj_debug('2270949:replace '||p_Rltd_line_details_prcd(p_line_detail_index)||' with '||j);
7460: p_line_adj_tbl(p_Rltd_line_details_prcd(p_line_detail_index)).operation :=NULL;
7461: p_line_detail_replaced(p_Rltd_line_details_prcd(p_line_detail_index)) := j;
7462: End If;
7469: ,p_req_line_detail_Rec => p_req_line_detail_Tbl(p_Line_Detail_Index)
7470: )
7471: Then
7472: -- There is a Change is the Adjsutment Record
7473: l_Line_Adj_Rec.operation := OE_GLOBALS.G_OPR_UPDATE;
7474: p_Line_Adj_Tbl(j) := l_Line_Adj_Rec;
7475: End If;
7476:
7477: l_Req_Line_Index := p_req_line_detail_Tbl(p_Line_Detail_Index).Line_Index;
7481: -- 2270949
7482: If p_Rltd_lines_prcd.exists(l_Req_Line_Index) Then
7483: adj_debug('req line index'||l_Req_Line_Index||' '||p_Rltd_lines_prcd(l_Req_line_Index));
7484: adj_debug('operation:'||p_line_tbl(p_Rltd_lines_prcd(l_Req_line_index)).operation);
7485: if p_line_tbl(p_Rltd_lines_prcd(l_Req_Line_Index)).operation = OE_GLOBALS.G_OPR_CREATE THEN
7486: -- replace this line with the old line
7487: adj_debug('delete line'||p_rltd_lines_prcd(l_req_line_index));
7488: l_new_prg_created := TRUE;
7489:
7499: ( p_Line_id => l_line_Adj_Rec.Line_Id
7500: , x_line_rec => l_line_rec);
7501:
7502: if l_line_rec.operation = FND_API.G_MISS_CHAR then
7503: l_line_rec.operation := OE_GLOBALS.G_OPR_UPDATE;
7504: End If;
7505:
7506: adj_debug(' GET line, line_id:'||l_line_rec.line_id);
7507: adj_debug(' GET line, open_flag:'||l_line_rec.open_flag);
7616: If Not p_Rltd_lines_prcd.exists(l_Req_Line_Index) Then
7617:
7618: adj_debug('Creating a new line record for header '||P_Header_Id);
7619: l_line_rec:=OE_ORDER_PUB.G_MISS_LINE_REC;
7620: l_line_rec.operation := OE_GLOBALS.G_OPR_CREATE;
7621:
7622: l_line_rec.Header_id := P_Header_Id;
7623: --for bug 2412868 Begin
7624: oe_debug_pub.add('b2412868:'||p_req_line_tbl(l_req_line_index).line_quantity);
7768: If Not p_Rltd_line_details_prcd.exists(p_Line_detail_Index) Then
7769:
7770: l_Adj_Index := p_line_adj_Tbl.count+1;
7771: p_line_adj_tbl(l_adj_index) := OE_ORDER_PUB.G_MISS_LINE_ADJ_REC;
7772: p_line_adj_Tbl(l_Adj_Index).operation := OE_GLOBALS.G_OPR_CREATE;
7773:
7774: adj_debug('Creating an adjustment record for PRG '||l_Adj_Index);
7775: If Update_Adj_Line_rec(
7776: p_Line_Adj_Rec => p_Line_Adj_Tbl(l_Adj_Index)
7803: p_Line_Adj_Assoc_tbl(l_assoc_index).line_index := Null;
7804: p_Line_Adj_Assoc_tbl(l_assoc_index).Adj_Index := P_Parent_Adj_Index;
7805: p_Line_Adj_Assoc_tbl(l_assoc_index).Rltd_Adj_Index :=
7806: p_Rltd_line_Details_prcd(p_Line_detail_Index);
7807: p_Line_Adj_Assoc_tbl(l_assoc_index).Operation := OE_Globals.G_OPR_CREATE;
7808:
7809: End If; -- Match_exists
7810:
7811: adj_debug('Exiting oe_order_Adj_pvt.Process_Other_Item_Line',1);
8308: ,l_item_rec);
8309:
8310: If p_line_tbl(i).calculate_price_flag in ('Y','P')
8311: OR (p_price_event is NULL and
8312: p_line_tbl(i).operation = oe_globals.G_OPR_UPDATE)
8313: OR p_honor_price_flag = 'N' --bug 2503186
8314: OR -- OPM 2547940 start - for copy of order OR split from shipping - need to re-price as these lines
8315: -- as may have freeze price for calulate price flag when pricing by quantity2
8316: (
8324:
8325: Then
8326: adj_debug('Processing Line id '||p_line_tbl(i).line_id,2);
8327:
8328: If p_Line_Tbl(i).operation in (oe_globals.g_opr_delete, oe_globals.g_opr_lock) or
8329: (p_Line_Tbl(i).Unit_list_price is null
8330: and p_Line_Tbl(i).Unit_list_price_per_pqty is null)
8331: Then
8332: adj_debug('Line '||p_line_tbl(i).line_id||' price is not calculated');
8387: (p_Line_Adj_Tbl(j).line_index is null or
8388: p_Line_Adj_Tbl(j).line_index = fnd_api.g_miss_num) and
8389: p_Line_Adj_Tbl(j).Header_Id = p_header_Rec.Header_Id
8390: )) and -- Header Level Adjustments
8391: p_Line_Adj_Tbl(j).Operation <> OE_Globals.G_OPR_DELETE and
8392: nvl(p_Line_Adj_Tbl(j).applied_flag,'N')='Y' and
8393: /* Modified the nvl to 'N' in the above statement to fix the bug 2164508 */
8394: p_Line_Adj_Tbl(j).list_line_type_code in ('DIS','SUR','FREIGHT_CHARGE','PBH')
8395: then
8428: While J1 is not null loop
8429: If ( (p_line_adj_assoc_Tbl(j1).Adj_index = J Or
8430: (p_line_adj_assoc_Tbl(j1).Price_adjustment_id =
8431: p_Line_Adj_Tbl(j).Price_Adjustment_id and
8432: 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)
8433: ) Then
8434: l_assoc_exist := TRUE;
8435: p_Line_Adj_Tbl(j).Adjusted_Amount_Per_Pqty := 0;
8436: l_adjusted_amt_changed := TRUE;
8460: While J1 is not null loop
8461: If ( (p_line_adj_assoc_Tbl(j1).Adj_index = J Or
8462: (p_line_adj_assoc_Tbl(j1).Price_adjustment_id =
8463: p_Line_Adj_Tbl(j).Price_Adjustment_id and
8464: 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)
8465:
8466: ) Then
8467:
8468: adj_debug('Got an association Rltd_index '||p_line_adj_assoc_Tbl(j1).Rltd_Adj_index,2);
8710:
8711: If not (p_any_line_frozen and p_line_adj_tbl(j).modifier_level_code = 'ORDER') Then
8712: adj_debug('Calculate Price:'||p_Line_Adj_Tbl(j).list_line_id);
8713: If p_Line_Adj_Tbl(j).updated_flag = 'N' Then
8714: p_Line_Adj_Tbl(j).operation := OE_GLOBALS.G_OPR_UPDATE;
8715: End If;
8716: End If;
8717: End If;
8718: l_Sort_Index:= l_Sorted_Adjustment_Tbl.Next(l_Sort_Index);
9003:
9004: if (l_line_rec.booked_flag <> 'Y' OR
9005: l_line_rec.booked_flag is NULL) Then
9006: adj_debug('Order not booked');
9007: l_line_rec.operation := OE_GLOBALS.G_OPR_DELETE;
9008: p_delete_prg_lines(l_line_rec.line_id) := l_line_rec.line_id;
9009: else
9010: l_line_rec.change_reason := 'SYSTEM';
9011: l_line_rec.change_comments := 'REPRICING';
9010: l_line_rec.change_reason := 'SYSTEM';
9011: l_line_rec.change_comments := 'REPRICING';
9012: if (l_line_rec.shipped_quantity is NULL) Then
9013: adj_debug('Booked order, line not shipped');
9014: l_line_rec.operation := OE_GLOBALS.G_OPR_UPDATE;
9015: l_line_rec.ordered_quantity := 0;
9016: l_line_rec.pricing_quantity := 0;
9017: p_delete_prg_lines(l_line_rec.line_id) := l_line_rec.line_id;
9018: else
9016: l_line_rec.pricing_quantity := 0;
9017: p_delete_prg_lines(l_line_rec.line_id) := l_line_rec.line_id;
9018: else
9019: adj_debug('Booked order, shipped line');
9020: l_line_rec.operation := OE_GLOBALS.G_OPR_UPDATE;
9021: l_line_rec.calculate_price_flag := 'Y';
9022: adj_debug('logging delayed request to price line');
9023: l_pricing_event := 'BATCH'; --2442012
9024: /* OE_delayed_requests_Pvt.log_request(
9021: l_line_rec.calculate_price_flag := 'Y';
9022: adj_debug('logging delayed request to price line');
9023: l_pricing_event := 'BATCH'; --2442012
9024: /* OE_delayed_requests_Pvt.log_request(
9025: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
9026: p_entity_id => l_line_rec.line_id,
9027: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_ALL,
9028: p_requesting_entity_id => l_line_rec.line_id,
9029: p_request_unique_key1 => 'BATCH',
9023: l_pricing_event := 'BATCH'; --2442012
9024: /* OE_delayed_requests_Pvt.log_request(
9025: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
9026: p_entity_id => l_line_rec.line_id,
9027: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_ALL,
9028: p_requesting_entity_id => l_line_rec.line_id,
9029: p_request_unique_key1 => 'BATCH',
9030: p_param1 => l_line_rec.header_id,
9031: p_param2 => 'BATCH',
9028: p_requesting_entity_id => l_line_rec.line_id,
9029: p_request_unique_key1 => 'BATCH',
9030: p_param1 => l_line_rec.header_id,
9031: p_param2 => 'BATCH',
9032: p_request_type => OE_GLOBALS.G_PRICE_LINE,
9033: x_return_status => l_return_status);
9034: */
9035: if (l_match_phase_id) Then
9036: -- modifier in BOOK phase
9036: -- modifier in BOOK phase
9037: l_pricing_event := 'BATCH,BOOK';
9038: end if;
9039: OE_delayed_requests_Pvt.log_request(
9040: p_entity_code =>OE_GLOBALS.G_ENTITY_ALL,
9041: p_entity_id => l_line_rec.line_Id,
9042: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_ALL,
9043: p_requesting_entity_id => l_line_rec.line_Id,
9044: p_request_unique_key1 => l_pricing_event,
9038: end if;
9039: OE_delayed_requests_Pvt.log_request(
9040: p_entity_code =>OE_GLOBALS.G_ENTITY_ALL,
9041: p_entity_id => l_line_rec.line_Id,
9042: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_ALL,
9043: p_requesting_entity_id => l_line_rec.line_Id,
9044: p_request_unique_key1 => l_pricing_event,
9045: p_param1 => l_line_rec.header_id,
9046: p_param2 => l_pricing_event,
9043: p_requesting_entity_id => l_line_rec.line_Id,
9044: p_request_unique_key1 => l_pricing_event,
9045: p_param1 => l_line_rec.header_id,
9046: p_param2 => l_pricing_event,
9047: p_request_type => OE_GLOBALS.G_PRICE_LINE,
9048: x_return_status => l_return_status);
9049: --2442012 end if;
9050: end if;
9051: end if;
9092: is
9093: l_Req_Line_Detail_qual_Rec QP_PREQ_GRP.line_detail_qual_rec_type;
9094: l_Req_Line_Detail_attr_Rec QP_PREQ_GRP.line_detail_attr_rec_type;
9095: l_req_line_rec qp_preq_grp.line_rec_type;
9096: l_control_rec Oe_Globals.Control_rec_type;
9097: l_header_rec oe_Order_Pub.header_rec_type := p_header_rec;
9098: --l_old_line_rec oe_order_pub.line_rec_type;
9099: l_line_rec oe_order_pub.line_rec_type;
9100: l_old_line_tbl OE_Order_PUB.Line_Tbl_Type;
9546:
9547: IF (l_header_rec.price_request_code IS NULL OR -- PROMOTIONS SEP/01
9548: l_header_rec.price_request_code = FND_API.G_MISS_CHAR) THEN
9549: l_header_rec.price_request_code := p_req_line_tbl(i).price_request_code;
9550: l_header_rec.operation := OE_GLOBALS.G_OPR_UPDATE;
9551: END IF;
9552:
9553: append_Adjustment_Lines(p_header_id => p_req_line_tbl(i).line_id,
9554: -- line_id contains header_id for line_type_code='ORDER'
9779: adj_debug('freight_terms_code updated to '||p_req_line_detail_Tbl(j).Substitution_to);
9780: l_header_rec.freight_terms_code := p_req_line_detail_Tbl(j).Substitution_to;
9781: End If;
9782:
9783: l_header_rec.operation := OE_GLOBALS.G_OPR_UPDATE;
9784:
9785: End If; -- TSN
9786:
9787:
9827:
9828:
9829:
9830: --adj_debug('BCT+operation:'||l_line_adj_Tbl(l_Adj_Index).operation);
9831: if l_line_adj_Tbl(l_Adj_Index).operation in ( OE_GLOBALS.G_OPR_CREATE,
9832: OE_GLOBALS.G_OPR_UPDATE ) Then
9833: -- This Record Needs to be processed
9834: if p_req_line_tbl( p_req_line_detail_Tbl(j).line_index).line_type_code = 'LINE'
9835: Then
9828:
9829:
9830: --adj_debug('BCT+operation:'||l_line_adj_Tbl(l_Adj_Index).operation);
9831: if l_line_adj_Tbl(l_Adj_Index).operation in ( OE_GLOBALS.G_OPR_CREATE,
9832: OE_GLOBALS.G_OPR_UPDATE ) Then
9833: -- This Record Needs to be processed
9834: if p_req_line_tbl( p_req_line_detail_Tbl(j).line_index).line_type_code = 'LINE'
9835: Then
9836:
9878: p_req_line_tbl(p_req_line_detail_Tbl(j).line_index).line_id;
9879: -- line_id hold header_id for 'HEADER'
9880: l_line_adj_Tbl(l_Adj_Index).Line_index := null;
9881:
9882: --OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
9883:
9884: End If ; -- list_line_level
9885:
9886:
10023:
10024: FND_MESSAGE.SET_NAME('ONT','ONT_PROMO_LIMIT_EXCEEDED');
10025: FND_MESSAGE.SET_TOKEN('ERR_TEXT', p_req_line_detail_tbl(j).LIMIT_TEXT);
10026: OE_MSG_PUB.Add;
10027: IF (OE_GLOBALS.G_UI_FLAG ) THEN
10028: IF (G_REQUEST_ID IS NULL) THEN
10029: select oe_msg_request_id_s.nextval into g_request_id from dual;
10030: END IF;
10031: OE_MSG_PUB.INSERT_MESSAGE(OE_MSG_PUB.COUNT_MSG, G_REQUEST_ID,'U');
10076: l_Line_Adj_Assoc_tbl(l_assoc_index).Adj_Index :=
10077: l_line_details_prcd(p_Req_Related_Lines_Tbl(i).Line_Detail_Index);
10078: l_Line_Adj_Assoc_tbl(l_assoc_index).Rltd_Adj_Index :=
10079: l_line_details_prcd(p_Req_Related_Lines_Tbl(i).Related_Line_Detail_Index);
10080: l_Line_Adj_Assoc_tbl(l_assoc_index).Operation := OE_Globals.G_OPR_CREATE;
10081:
10082: If l_line_adj_Tbl.exists(l_line_details_prcd(p_Req_Related_Lines_Tbl(i).line_detail_Index))
10083: 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
10084: l_line_adj_Tbl(l_line_details_prcd(p_Req_Related_Lines_Tbl(i).line_detail_Index)).price_adjustment_id is not null then
10182: while i is not null loop
10183: adj_debug('line_index:'||l_line_adj_tbl(i).line_index);
10184: adj_debug('list line id:'||l_line_adj_tbl(i).list_line_id);
10185: adj_debug('operation : ' || l_line_adj_tbl(i).operation);
10186: IF (l_line_adj_tbl(i).operation = oe_globals.g_opr_delete
10187: and l_line_adj_tbl(i).list_line_type_code='PRG') THEN
10188:
10189: adj_debug('Need to delete/update free goods line');
10190: /* 1503357 */
10293:
10294:
10295: -- If a service reference line of different order is present set the operation.
10296: If l_line_tbl(i).header_id <> l_header_rec.header_id then
10297: l_line_tbl(i).operation := oe_globals.g_opr_none;
10298: End If;
10299:
10300:
10301: -- Remove the holes in the structure.
10316:
10317: l := l_line_tbl_final.count;
10318: adj_debug('operation'||l_line_tbl_final(l).operation,1);
10319: -- 2270949: logging message about free goods line
10320: if (l_line_Tbl_final(l).operation = OE_GLOBALS.G_OPR_CREATE) and p_write_to_db = TRUE then
10321: -- Display the PRG Item
10322: FND_MESSAGE.SET_NAME('ONT','ONT_CREATED_NEW_LINE');
10323: FND_MESSAGE.SET_TOKEN('ITEM',l_line_tbl_final(l).ordered_item);
10324: --bug 2412868 begin
10328: --bug 2412868 end
10329: FND_MESSAGE.SET_TOKEN('QUANTITY',l_line_tbl_final(l).Ordered_quantity);
10330: end if;
10331: OE_MSG_PUB.Add('N');
10332: OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
10333: end if;
10334: -- end 2270949
10335:
10336: -- only Lock the lines that needs to be updated
10334: -- end 2270949
10335:
10336: -- only Lock the lines that needs to be updated
10337: if (l_line_tbl_final(l).operation = FND_API.G_MISS_CHAR or
10338: l_line_tbl_final(l).operation = OE_GLOBALS.G_OPR_NONE or
10339: l_line_tbl_final(l).operation is null )
10340: and p_write_to_db = TRUE then
10341:
10342:
10362: ((l_line_tbl_final(l).price_request_code IS NULL AND l_old_line_tbl(l).price_request_code IS NULL) OR
10363: l_line_tbl_final(l).price_request_code =l_old_line_tbl(l).price_request_code)
10364:
10365: then
10366: l_line_tbl_final(l).operation := OE_GLOBALS.G_OPR_NONE;
10367: adj_debug('do nothing to '||i||' '||l_old_line_tbl(l).line_id,1);
10368: Else
10369: l_line_tbl_final(l).operation := OE_GLOBALS.G_OPR_UPDATE;
10370: l_num_changed_lines := l_num_changed_lines + 1;
10365: then
10366: l_line_tbl_final(l).operation := OE_GLOBALS.G_OPR_NONE;
10367: adj_debug('do nothing to '||i||' '||l_old_line_tbl(l).line_id,1);
10368: Else
10369: l_line_tbl_final(l).operation := OE_GLOBALS.G_OPR_UPDATE;
10370: l_num_changed_lines := l_num_changed_lines + 1;
10371: adj_debug('lock row '||i||' '||l_old_line_tbl(l).line_id,1);
10372: OE_LINE_UTIL.Lock_Row(x_return_status => x_return_status,
10373: p_x_line_rec => l_old_line_tbl(l)
10427: l_Line_Adj_Tbl(i).line_id = fnd_api.g_miss_num)
10428: AND (l_Line_Adj_Tbl(i).line_index is null or
10429: l_Line_Adj_Tbl(i).line_index = fnd_api.g_miss_num)
10430: AND l_Line_Adj_Tbl(i).Header_Id = p_header_Rec.Header_Id
10431: AND l_Line_Adj_Tbl(i).operation IN (OE_GLOBALS.G_OPR_CREATE, OE_GLOBALS.G_OPR_UPDATE, OE_GLOBALS.G_OPR_DELETE)
10432: AND l_Line_Adj_Tbl(i).list_line_type_code NOT IN ('FREIGHT_CHARGE','TAX','COST')
10433: AND nvl(g_pass_all_lines,'N') <> 'Y' THEN
10434: -- This is a header level adjustments, and not a freight charge.
10435: -- Need to log a delayed request to apply this header level adjustment
10436: -- to all lines on this order if not all lines were passed to pricing engine.
10437:
10438: adj_debug('Logging request to update all lines for header level adjustment.', 1);
10439: OE_DELAYED_REQUESTS_PVT.LOG_REQUEST(
10440: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
10441: p_entity_id => l_Line_adj_tbl(i).header_id,
10442: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_HEADER,
10443: p_requesting_entity_id => l_Line_adj_tbl(i).header_id,
10444: p_request_type => OE_GLOBALS.G_PRICE_ADJ,
10438: adj_debug('Logging request to update all lines for header level adjustment.', 1);
10439: OE_DELAYED_REQUESTS_PVT.LOG_REQUEST(
10440: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
10441: p_entity_id => l_Line_adj_tbl(i).header_id,
10442: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_HEADER,
10443: p_requesting_entity_id => l_Line_adj_tbl(i).header_id,
10444: p_request_type => OE_GLOBALS.G_PRICE_ADJ,
10445: x_return_status => l_return_status);
10446: -- sol_ord_er #16014165
10440: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
10441: p_entity_id => l_Line_adj_tbl(i).header_id,
10442: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_HEADER,
10443: p_requesting_entity_id => l_Line_adj_tbl(i).header_id,
10444: p_request_type => OE_GLOBALS.G_PRICE_ADJ,
10445: x_return_status => l_return_status);
10446: -- sol_ord_er #16014165
10447: -- If a manual Header Adjustment gets cascaded
10448: oe_delayed_requests_pvt.log_request(
10445: x_return_status => l_return_status);
10446: -- sol_ord_er #16014165
10447: -- If a manual Header Adjustment gets cascaded
10448: oe_delayed_requests_pvt.log_request(
10449: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
10450: p_entity_id => l_Line_adj_tbl(i).Header_Id,
10451: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_ALL,
10452: p_requesting_entity_id => l_Line_adj_tbl(i).Header_Id,
10453: p_request_type => OE_GLOBALS.G_SERVICE_FIRST_PERIOD_BILL,
10447: -- If a manual Header Adjustment gets cascaded
10448: oe_delayed_requests_pvt.log_request(
10449: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
10450: p_entity_id => l_Line_adj_tbl(i).Header_Id,
10451: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_ALL,
10452: p_requesting_entity_id => l_Line_adj_tbl(i).Header_Id,
10453: p_request_type => OE_GLOBALS.G_SERVICE_FIRST_PERIOD_BILL,
10454: p_request_unique_key1 => 'ORDER',
10455: p_param1 => l_Line_adj_tbl(i).Header_Id,
10449: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
10450: p_entity_id => l_Line_adj_tbl(i).Header_Id,
10451: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_ALL,
10452: p_requesting_entity_id => l_Line_adj_tbl(i).Header_Id,
10453: p_request_type => OE_GLOBALS.G_SERVICE_FIRST_PERIOD_BILL,
10454: p_request_unique_key1 => 'ORDER',
10455: p_param1 => l_Line_adj_tbl(i).Header_Id,
10456: x_return_status => l_return_status);
10457: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10465:
10466:
10467: G_STMT_NO := 'process_adjustments#140.1';
10468: -- Update the Header Level TERM Substitution on all Lines.
10469: If l_header_rec.operation = oe_globals.g_opr_update then
10470: If l_line_adj_tbl(i).list_line_type_code = 'TSN' and
10471: l_line_adj_tbl(i).modifier_level_code ='ORDER'
10472: then
10473: adj_debug('In Header TSN ');
10502: adj_debug('Updating freight_terms_code '||l_line_adj_tbl(i).Modified_to);
10503: l_Line_Tbl_Final(j).freight_terms_code := l_line_adj_tbl(i).Modified_to;
10504:
10505: End If;
10506: If (l_Line_Tbl_Final(j).operation = OE_GLOBALS.G_OPR_NONE) Then
10507: l_Line_Tbl_Final(j).operation := OE_GLOBALS.G_OPR_UPDATE;
10508: End If;
10509: --adj_debug('----------------------');
10510: End If;
10503: l_Line_Tbl_Final(j).freight_terms_code := l_line_adj_tbl(i).Modified_to;
10504:
10505: End If;
10506: If (l_Line_Tbl_Final(j).operation = OE_GLOBALS.G_OPR_NONE) Then
10507: l_Line_Tbl_Final(j).operation := OE_GLOBALS.G_OPR_UPDATE;
10508: End If;
10509: --adj_debug('----------------------');
10510: End If;
10511:
10559: G_STMT_NO := 'process_adjustments#140.2';
10560: if l_line_adj_tbl(i).operation = fnd_api.g_miss_char or
10561: l_Line_Adj_Tbl(i).list_line_type_code in ('TAX','COST')
10562: or l_line_adj_tbl(i).operation is null
10563: or l_line_adj_tbl(i).operation =oe_globals.g_opr_none then
10564: l_line_adj_tbl.delete(i);
10565: Elsif l_line_adj_tbl(i).operation = oe_globals.g_opr_update and
10566: ( l_line_adj_tbl(i).price_adjustment_id is null or
10567: l_line_adj_tbl(i).price_adjustment_id = fnd_api.g_miss_num ) then
10561: l_Line_Adj_Tbl(i).list_line_type_code in ('TAX','COST')
10562: or l_line_adj_tbl(i).operation is null
10563: or l_line_adj_tbl(i).operation =oe_globals.g_opr_none then
10564: l_line_adj_tbl.delete(i);
10565: Elsif l_line_adj_tbl(i).operation = oe_globals.g_opr_update and
10566: ( l_line_adj_tbl(i).price_adjustment_id is null or
10567: l_line_adj_tbl(i).price_adjustment_id = fnd_api.g_miss_num ) then
10568: l_line_adj_tbl(i).operation := oe_globals.g_opr_Create;
10569: ELsif l_line_adj_tbl(i).line_id IS NOT NULL and
10564: l_line_adj_tbl.delete(i);
10565: Elsif l_line_adj_tbl(i).operation = oe_globals.g_opr_update and
10566: ( l_line_adj_tbl(i).price_adjustment_id is null or
10567: l_line_adj_tbl(i).price_adjustment_id = fnd_api.g_miss_num ) then
10568: l_line_adj_tbl(i).operation := oe_globals.g_opr_Create;
10569: ELsif l_line_adj_tbl(i).line_id IS NOT NULL and
10570: l_line_adj_tbl(i).line_id <> FND_API.G_MISS_NUM and
10571: l_delete_prg_lines.exists(l_line_adj_tbl(i).line_id) THEN
10572: l_line_adj_tbl.delete(i);
10681: x_line_tbl := l_line_tbl_final;
10682: IF (p_write_to_db and l_num_changed_lines<1+l_line_tbl_final.count/2) THEN
10683: j:= l_Line_Tbl_Final.first;
10684: while j is not null loop
10685: IF (l_line_tbl_final(j).operation = OE_GLOBALS.G_OPR_NONE) THEN
10686: l_line_tbl_Final.delete(j);
10687: END IF;
10688: j:= l_Line_Tbl_Final.next(j);
10689: end loop;
10709: l_control_rec.validate_entity := TRUE;
10710: l_control_rec.clear_dependents := TRUE;
10711: --change made for bug 2351099 Begin
10712: --2366123: execute delayed requests if not from UI
10713: if (NOT OE_GLOBALS.G_UI_FLAG ) then
10714: l_control_rec.process := TRUE;
10715: else
10716: l_control_rec.process := FALSE;
10717: end if;
10722:
10723: -- Call OE_Order_PVT.Process_order
10724:
10725: adj_debug('Before OE_Order_PVT.Process_order',1);
10726: IF (oe_globals.G_CASCADING_REQUEST_LOGGED) THEN
10727: adj_debug('inside price line: cascading set');
10728: ELSE
10729: adj_debug('inside price line: cascading not set');
10730: END IF;
10727: adj_debug('inside price line: cascading set');
10728: ELSE
10729: adj_debug('inside price line: cascading not set');
10730: END IF;
10731: -- OE_Globals.G_RECURSION_MODE := 'Y';
10732: OE_Globals.G_PRICING_RECURSION := 'Y';
10733:
10734: G_STMT_NO := 'Failure in Process_Order API Call';
10735: --cc1
10728: ELSE
10729: adj_debug('inside price line: cascading not set');
10730: END IF;
10731: -- OE_Globals.G_RECURSION_MODE := 'Y';
10732: OE_Globals.G_PRICING_RECURSION := 'Y';
10733:
10734: G_STMT_NO := 'Failure in Process_Order API Call';
10735: --cc1
10736: IF (p_Req_Control_Rec.pricing_event = 'PRICE' AND
10786: , p_x_Lot_Serial_tbl => l_x_Lot_Serial_Tbl
10787: , p_x_action_request_tbl => l_x_Action_Request_tbl
10788: );
10789:
10790: -- OE_Globals.G_RECURSION_MODE := 'N';
10791: OE_Globals.G_PRICING_RECURSION := 'N';
10792:
10793: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10794: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10787: , p_x_action_request_tbl => l_x_Action_Request_tbl
10788: );
10789:
10790: -- OE_Globals.G_RECURSION_MODE := 'N';
10791: OE_Globals.G_PRICING_RECURSION := 'N';
10792:
10793: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10794: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10795: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
10801: G_STMT_NO := 'process_adjustments#140';
10802: /*
10803: -- Process Requests for Pricing line (for new line created for PRG)
10804: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Reqtype
10805: (p_request_type =>OE_GLOBALS.G_PRICE_LINE
10806: ,p_delete => FND_API.G_TRUE
10807: ,x_return_status => x_return_status
10808: );
10809: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10822: -- Freight charge change doesn't result in line change
10823: If p_req_control_rec.pricing_event in ('ORDER','SHIP','BOOK', 'BATCH') then
10824: IF (l_num_changed_lines > 0) THEN
10825: adj_debug('setting cascading flag to refresh order');
10826: OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
10827: END IF;
10828: Elsif INSTR(p_req_control_rec.pricing_event,'ORDER') > 0 or
10829: INSTR(p_req_control_rec.pricing_event,'BOOK') > 0 or
10830: INSTR(p_req_control_rec.pricing_event,'BATCH') > 0 or
10830: INSTR(p_req_control_rec.pricing_event,'BATCH') > 0 or
10831: INSTR(p_req_control_rec.pricing_event,'SHIP') > 0 then
10832: IF (l_num_changed_lines > 0) THEN
10833: adj_debug(' multiple events setting cascading flag to refresh order');
10834: OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
10835: END IF;
10836: End if;
10837:
10838: adj_debug('Exiting oe_order_Adj_pvt.process_adjustments',1);
10843: WHEN FND_API.G_EXC_ERROR THEN
10844:
10845: x_return_status := FND_API.G_RET_STS_ERROR;
10846: adj_debug(' exc_error'||g_stmt_no||' '||sqlerrm||' '||l_x_msg_data,1);
10847: -- OE_Globals.G_RECURSION_MODE := 'N';
10848: OE_Globals.G_PRICING_RECURSION := 'N';
10849:
10850: RAISE FND_API.G_EXC_ERROR;
10851: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10844:
10845: x_return_status := FND_API.G_RET_STS_ERROR;
10846: adj_debug(' exc_error'||g_stmt_no||' '||sqlerrm||' '||l_x_msg_data,1);
10847: -- OE_Globals.G_RECURSION_MODE := 'N';
10848: OE_Globals.G_PRICING_RECURSION := 'N';
10849:
10850: RAISE FND_API.G_EXC_ERROR;
10851: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10852:
10852:
10853: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10854: adj_debug(' '||g_stmt_no||' '||sqlerrm||' '||l_x_msg_data,1);
10855:
10856: -- OE_Globals.G_RECURSION_MODE := 'N';
10857: OE_Globals.G_PRICING_RECURSION := 'N';
10858: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10859:
10860: WHEN OTHERS THEN
10853: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10854: adj_debug(' '||g_stmt_no||' '||sqlerrm||' '||l_x_msg_data,1);
10855:
10856: -- OE_Globals.G_RECURSION_MODE := 'N';
10857: OE_Globals.G_PRICING_RECURSION := 'N';
10858: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10859:
10860: WHEN OTHERS THEN
10861:
10872: g_stmt_no||' '||sqlerrm
10873: );
10874: END IF;
10875:
10876: -- OE_Globals.G_RECURSION_MODE := 'N';
10877: OE_Globals.G_PRICING_RECURSION := 'N';
10878: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10879:
10880: end process_adjustments;
10873: );
10874: END IF;
10875:
10876: -- OE_Globals.G_RECURSION_MODE := 'N';
10877: OE_Globals.G_PRICING_RECURSION := 'N';
10878: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10879:
10880: end process_adjustments;
10881:
10925: l_header_id NUMBER;
10926: l_tmp_no number;
10927: Begin
10928:
10929: IF OE_GLOBALS.G_GMI_INSTALLED IS NULL THEN -- OPM 2547940 start GMA = OPM
10930: OE_GLOBALS.G_GMI_INSTALLED := OE_GLOBALS.CHECK_PRODUCT_INSTALLED(550);
10931: END IF;
10932:
10933: If (OE_GLOBALS.G_GMI_INSTALLED = 'Y')
10926: l_tmp_no number;
10927: Begin
10928:
10929: IF OE_GLOBALS.G_GMI_INSTALLED IS NULL THEN -- OPM 2547940 start GMA = OPM
10930: OE_GLOBALS.G_GMI_INSTALLED := OE_GLOBALS.CHECK_PRODUCT_INSTALLED(550);
10931: END IF;
10932:
10933: If (OE_GLOBALS.G_GMI_INSTALLED = 'Y')
10934: and nvl(OE_LINE_ADJ_UTIL.G_OPM_ITEM_CATCHWEIGHT_USED,'N') = 'Y' -- bug 2965218
10929: IF OE_GLOBALS.G_GMI_INSTALLED IS NULL THEN -- OPM 2547940 start GMA = OPM
10930: OE_GLOBALS.G_GMI_INSTALLED := OE_GLOBALS.CHECK_PRODUCT_INSTALLED(550);
10931: END IF;
10932:
10933: If (OE_GLOBALS.G_GMI_INSTALLED = 'Y')
10934: and nvl(OE_LINE_ADJ_UTIL.G_OPM_ITEM_CATCHWEIGHT_USED,'N') = 'Y' -- bug 2965218
10935: Then
10936: adj_debug('OPM - GMA installed');
10937: RETURN TRUE;
10937: RETURN TRUE;
10938: End If; -- OPM 2547940 end
10939:
10940:
10941: IF OE_GLOBALS.G_ASO_INSTALLED IS NULL THEN
10942: OE_GLOBALS.G_ASO_INSTALLED := OE_GLOBALS.CHECK_PRODUCT_INSTALLED(697);
10943: END IF;
10944:
10945: If (OE_GLOBALS.G_ASO_INSTALLED = 'N') Then
10938: End If; -- OPM 2547940 end
10939:
10940:
10941: IF OE_GLOBALS.G_ASO_INSTALLED IS NULL THEN
10942: OE_GLOBALS.G_ASO_INSTALLED := OE_GLOBALS.CHECK_PRODUCT_INSTALLED(697);
10943: END IF;
10944:
10945: If (OE_GLOBALS.G_ASO_INSTALLED = 'N') Then
10946: adj_debug('aso not installed');
10941: IF OE_GLOBALS.G_ASO_INSTALLED IS NULL THEN
10942: OE_GLOBALS.G_ASO_INSTALLED := OE_GLOBALS.CHECK_PRODUCT_INSTALLED(697);
10943: END IF;
10944:
10945: If (OE_GLOBALS.G_ASO_INSTALLED = 'N') Then
10946: adj_debug('aso not installed');
10947: RETURN FALSE;
10948: End If;
10949:
11217:
11218: )
11219: is
11220: l_Req_Control_Rec QP_PREQ_GRP.CONTROL_RECORD_TYPE;
11221: l_control_rec Oe_Globals.Control_rec_type;
11222: l_Line_tbl OE_Order_PUB.Line_tbl_type;
11223: l_old_Line_tbl OE_Order_PUB.Line_tbl_type;
11224: l_Line_tbl1 OE_Order_PUB.Line_tbl_type;
11225: l_Line_Adj_Att_tbl OE_Order_PUB.Line_Adj_Att_tbl_type;
11276: --btea perf end
11277:
11278:
11279:
11280: IF OE_GLOBALS.G_ASO_INSTALLED IS NULL THEN
11281: OE_GLOBALS.G_ASO_INSTALLED := OE_GLOBALS.CHECK_PRODUCT_INSTALLED(697);
11282: END IF;
11283:
11284: IF OE_GLOBALS.G_GMI_INSTALLED IS NULL THEN -- OPM 2547940
11277:
11278:
11279:
11280: IF OE_GLOBALS.G_ASO_INSTALLED IS NULL THEN
11281: OE_GLOBALS.G_ASO_INSTALLED := OE_GLOBALS.CHECK_PRODUCT_INSTALLED(697);
11282: END IF;
11283:
11284: IF OE_GLOBALS.G_GMI_INSTALLED IS NULL THEN -- OPM 2547940
11285: OE_GLOBALS.G_GMI_INSTALLED := OE_GLOBALS.CHECK_PRODUCT_INSTALLED(550);
11280: IF OE_GLOBALS.G_ASO_INSTALLED IS NULL THEN
11281: OE_GLOBALS.G_ASO_INSTALLED := OE_GLOBALS.CHECK_PRODUCT_INSTALLED(697);
11282: END IF;
11283:
11284: IF OE_GLOBALS.G_GMI_INSTALLED IS NULL THEN -- OPM 2547940
11285: OE_GLOBALS.G_GMI_INSTALLED := OE_GLOBALS.CHECK_PRODUCT_INSTALLED(550);
11286: END IF;
11287:
11288:
11281: OE_GLOBALS.G_ASO_INSTALLED := OE_GLOBALS.CHECK_PRODUCT_INSTALLED(697);
11282: END IF;
11283:
11284: IF OE_GLOBALS.G_GMI_INSTALLED IS NULL THEN -- OPM 2547940
11285: OE_GLOBALS.G_GMI_INSTALLED := OE_GLOBALS.CHECK_PRODUCT_INSTALLED(550);
11286: END IF;
11287:
11288:
11289: IF (OE_GLOBALS.G_ASO_INSTALLED = 'N' AND
11285: OE_GLOBALS.G_GMI_INSTALLED := OE_GLOBALS.CHECK_PRODUCT_INSTALLED(550);
11286: END IF;
11287:
11288:
11289: IF (OE_GLOBALS.G_ASO_INSTALLED = 'N' AND
11290: OE_GLOBALS.G_GMI_INSTALLED = 'N' AND -- OPM 2547940
11291: G_11IG_PERFORMANCE = 'Y' AND
11292: QP_UTIL_PUB.Basic_Pricing_Setup = 'Y' AND
11293: nvl(p_request_rec.param1,'XX') <> 'UI') OR
11286: END IF;
11287:
11288:
11289: IF (OE_GLOBALS.G_ASO_INSTALLED = 'N' AND
11290: OE_GLOBALS.G_GMI_INSTALLED = 'N' AND -- OPM 2547940
11291: G_11IG_PERFORMANCE = 'Y' AND
11292: QP_UTIL_PUB.Basic_Pricing_Setup = 'Y' AND
11293: nvl(p_request_rec.param1,'XX') <> 'UI') OR
11294: OE_CODE_CONTROL.Get_Code_Release_Level >= '110509'
11357: While l_line_index is not null loop
11358: -- Query the Adjustments
11359:
11360: -- added by lkxu
11361: l_line_tbl(l_line_index).operation := OE_GLOBALS.G_OPR_UPDATE;
11362:
11363: append_Adjustment_lines(p_line_id => l_Line_Tbl(l_line_index).line_id,
11364: px_line_adj_tbl => l_Line_Adj_Tbl
11365: ,px_line_key_tbl => l_dummy
11415:
11416: -- lkxu, only retain those records with changed adjusted_amount
11417: i:= l_Line_Adj_Tbl.First;
11418: While i is not Null Loop
11419: IF OE_GLOBALS.Equal(l_Old_Line_Adj_Tbl(i).adjusted_amount_per_pqty,
11420: l_Line_Adj_Tbl(i).adjusted_amount_per_pqty) THEN
11421: l_Line_Adj_Tbl.delete(i);
11422: ELSE
11423: oe_debug_pub.add(' price adj amount:'|| L_Line_Adj_Tbl(i).adjusted_amount);
11420: l_Line_Adj_Tbl(i).adjusted_amount_per_pqty) THEN
11421: l_Line_Adj_Tbl.delete(i);
11422: ELSE
11423: oe_debug_pub.add(' price adj amount:'|| L_Line_Adj_Tbl(i).adjusted_amount);
11424: L_Line_Adj_Tbl(i).operation := OE_GLOBALS.G_OPR_UPDATE;
11425: END IF;
11426: i:= l_Line_Adj_Tbl.next(i);
11427: END LOOP;
11428:
11441:
11442:
11443: -- Call OE_Order_PVT.Process_order
11444:
11445: -- OE_Globals.G_RECURSION_MODE := 'Y';
11446: OE_Globals.G_PRICING_RECURSION := 'Y';
11447:
11448:
11449: I:= l_line_tbl.First;
11442:
11443: -- Call OE_Order_PVT.Process_order
11444:
11445: -- OE_Globals.G_RECURSION_MODE := 'Y';
11446: OE_Globals.G_PRICING_RECURSION := 'Y';
11447:
11448:
11449: I:= l_line_tbl.First;
11450: While I is not null loop
11525: adj_debug(' x_status_code:'||l_status_code);
11526:
11527:
11528: -- Performance change: not update line if no change
11529: IF (OE_GLOBALS.Equal(l_line_tbl(i).unit_list_price, l_old_line_tbl(i).unit_list_price) AND
11530: OE_GLOBALS.Equal(l_line_tbl(i).unit_selling_price, l_old_line_tbl(i).unit_selling_price) AND
11531: OE_GLOBALS.Equal(l_line_tbl(i).unit_list_price_per_pqty, l_old_line_tbl(i).unit_list_price_per_pqty) AND
11532: OE_GLOBALS.Equal(l_line_tbl(i).unit_selling_price_per_pqty, l_old_line_tbl(i).unit_selling_price_per_pqty)) THEN
11533: adj_debug('not updating '||l_line_tbl(i).line_id);
11526:
11527:
11528: -- Performance change: not update line if no change
11529: IF (OE_GLOBALS.Equal(l_line_tbl(i).unit_list_price, l_old_line_tbl(i).unit_list_price) AND
11530: OE_GLOBALS.Equal(l_line_tbl(i).unit_selling_price, l_old_line_tbl(i).unit_selling_price) AND
11531: OE_GLOBALS.Equal(l_line_tbl(i).unit_list_price_per_pqty, l_old_line_tbl(i).unit_list_price_per_pqty) AND
11532: OE_GLOBALS.Equal(l_line_tbl(i).unit_selling_price_per_pqty, l_old_line_tbl(i).unit_selling_price_per_pqty)) THEN
11533: adj_debug('not updating '||l_line_tbl(i).line_id);
11534: -- l_line_tbl(i).operation := OE_GLOBALS.G_OPR_NONE;
11527:
11528: -- Performance change: not update line if no change
11529: IF (OE_GLOBALS.Equal(l_line_tbl(i).unit_list_price, l_old_line_tbl(i).unit_list_price) AND
11530: OE_GLOBALS.Equal(l_line_tbl(i).unit_selling_price, l_old_line_tbl(i).unit_selling_price) AND
11531: OE_GLOBALS.Equal(l_line_tbl(i).unit_list_price_per_pqty, l_old_line_tbl(i).unit_list_price_per_pqty) AND
11532: OE_GLOBALS.Equal(l_line_tbl(i).unit_selling_price_per_pqty, l_old_line_tbl(i).unit_selling_price_per_pqty)) THEN
11533: adj_debug('not updating '||l_line_tbl(i).line_id);
11534: -- l_line_tbl(i).operation := OE_GLOBALS.G_OPR_NONE;
11535: l_line_tbl.delete(i);
11528: -- Performance change: not update line if no change
11529: IF (OE_GLOBALS.Equal(l_line_tbl(i).unit_list_price, l_old_line_tbl(i).unit_list_price) AND
11530: OE_GLOBALS.Equal(l_line_tbl(i).unit_selling_price, l_old_line_tbl(i).unit_selling_price) AND
11531: OE_GLOBALS.Equal(l_line_tbl(i).unit_list_price_per_pqty, l_old_line_tbl(i).unit_list_price_per_pqty) AND
11532: OE_GLOBALS.Equal(l_line_tbl(i).unit_selling_price_per_pqty, l_old_line_tbl(i).unit_selling_price_per_pqty)) THEN
11533: adj_debug('not updating '||l_line_tbl(i).line_id);
11534: -- l_line_tbl(i).operation := OE_GLOBALS.G_OPR_NONE;
11535: l_line_tbl.delete(i);
11536: ELSE
11530: OE_GLOBALS.Equal(l_line_tbl(i).unit_selling_price, l_old_line_tbl(i).unit_selling_price) AND
11531: OE_GLOBALS.Equal(l_line_tbl(i).unit_list_price_per_pqty, l_old_line_tbl(i).unit_list_price_per_pqty) AND
11532: OE_GLOBALS.Equal(l_line_tbl(i).unit_selling_price_per_pqty, l_old_line_tbl(i).unit_selling_price_per_pqty)) THEN
11533: adj_debug('not updating '||l_line_tbl(i).line_id);
11534: -- l_line_tbl(i).operation := OE_GLOBALS.G_OPR_NONE;
11535: l_line_tbl.delete(i);
11536: ELSE
11537: OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
11538: END IF;
11533: adj_debug('not updating '||l_line_tbl(i).line_id);
11534: -- l_line_tbl(i).operation := OE_GLOBALS.G_OPR_NONE;
11535: l_line_tbl.delete(i);
11536: ELSE
11537: OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
11538: END IF;
11539:
11540: i:= l_line_tbl.next(i);
11541: end loop;
11572: , p_x_action_request_tbl => l_x_Action_Request_tbl
11573: );
11574:
11575:
11576: -- OE_Globals.G_RECURSION_MODE := 'N';
11577: OE_Globals.G_PRICING_RECURSION := 'N';
11578:
11579: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11580: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11573: );
11574:
11575:
11576: -- OE_Globals.G_RECURSION_MODE := 'N';
11577: OE_Globals.G_PRICING_RECURSION := 'N';
11578:
11579: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11580: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11581: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
11607: End Price_Adjustments;
11608:
11609: procedure price_action
11610: (
11611: p_selected_records Oe_Globals.Selected_Record_Tbl
11612: ,P_price_level varchar2
11613: ,p_header_id Number default null
11614: ,x_Return_Status out nocopy varchar2
11615:
12558: l_return_stauts Varchar2(15);
12559: l_manual_adj_tbl Oe_Order_Adj_Pvt.Manual_Adj_Tbl_Type;
12560: l_line_adj_tbl Oe_Order_Pub.line_adj_tbl_type;
12561: l_dummy_tbl Oe_Order_Pub.line_adj_tbl_type;
12562: l_control_rec OE_GLOBALS.Control_Rec_Type;
12563: i PLS_INTEGER;
12564: k PLS_INTEGER:=1;
12565: l_return_status Varchar2(15);
12566: l_found Varchar2(1):='N';
12620: l_line_adj_tbl(1).line_id := p_line_id;
12621: l_line_adj_tbl(1).applied_flag := 'N';
12622: l_line_adj_tbl(1).updated_flag := 'N';
12623: l_line_adj_tbl(1).automatic_flag := 'N';
12624: l_line_adj_tbl(1).operation := OE_GLOBALS.G_OPR_CREATE;
12625: Select Oe_Price_Adjustments_S.Nextval
12626: Into l_line_adj_tbl(1).price_adjustment_id
12627: From dual;
12628: stmt:='20';
12773:
12774:
12775: oe_debug_pub.add(' All_lines_flag returned from pricing:'||l_order_status_rec.all_lines_flag);
12776: -- bug 6817566
12777: oe_debug_pub.add(' manual_adv_modifier '||OE_GLOBALS.G_MANUAL_ADV_MODIFIER);
12778:
12779: IF (OE_GLOBALS.G_MANUAL_ADV_MODIFIER IS NULL AND (p_level = 'ORDER' or l_order_status_rec.ALL_LINES_FLAG = 'Y')) THEN
12780: oe_debug_pub.add(' manual_adv_modifier 1 '||OE_GLOBALS.G_MANUAL_ADV_MODIFIER);
12781: oe_debug_pub.add(' p_level '||p_level);
12775: oe_debug_pub.add(' All_lines_flag returned from pricing:'||l_order_status_rec.all_lines_flag);
12776: -- bug 6817566
12777: oe_debug_pub.add(' manual_adv_modifier '||OE_GLOBALS.G_MANUAL_ADV_MODIFIER);
12778:
12779: IF (OE_GLOBALS.G_MANUAL_ADV_MODIFIER IS NULL AND (p_level = 'ORDER' or l_order_status_rec.ALL_LINES_FLAG = 'Y')) THEN
12780: oe_debug_pub.add(' manual_adv_modifier 1 '||OE_GLOBALS.G_MANUAL_ADV_MODIFIER);
12781: oe_debug_pub.add(' p_level '||p_level);
12782: oe_debug_pub.add(' Check for Manual Advanced modifiers ',3);
12783: --- bug# 7600510 Start
12776: -- bug 6817566
12777: oe_debug_pub.add(' manual_adv_modifier '||OE_GLOBALS.G_MANUAL_ADV_MODIFIER);
12778:
12779: IF (OE_GLOBALS.G_MANUAL_ADV_MODIFIER IS NULL AND (p_level = 'ORDER' or l_order_status_rec.ALL_LINES_FLAG = 'Y')) THEN
12780: oe_debug_pub.add(' manual_adv_modifier 1 '||OE_GLOBALS.G_MANUAL_ADV_MODIFIER);
12781: oe_debug_pub.add(' p_level '||p_level);
12782: oe_debug_pub.add(' Check for Manual Advanced modifiers ',3);
12783: --- bug# 7600510 Start
12784: -- GET_MANUAL_ADV_STATUS('BATCH');
12782: oe_debug_pub.add(' Check for Manual Advanced modifiers ',3);
12783: --- bug# 7600510 Start
12784: -- GET_MANUAL_ADV_STATUS('BATCH');
12785: QP_UTIL_PUB.Get_Manual_All_Lines_Status ('BATCH', l_manual_all_lines_status ) ;
12786: OE_GLOBALS.G_MANUAL_ADV_MODIFIER := l_manual_all_lines_status;
12787: --- bug# 7600510 End
12788: oe_debug_pub.add(' manual_adv_modifier 2 '||OE_GLOBALS.G_MANUAL_ADV_MODIFIER);
12789: END IF;
12790:
12784: -- GET_MANUAL_ADV_STATUS('BATCH');
12785: QP_UTIL_PUB.Get_Manual_All_Lines_Status ('BATCH', l_manual_all_lines_status ) ;
12786: OE_GLOBALS.G_MANUAL_ADV_MODIFIER := l_manual_all_lines_status;
12787: --- bug# 7600510 End
12788: oe_debug_pub.add(' manual_adv_modifier 2 '||OE_GLOBALS.G_MANUAL_ADV_MODIFIER);
12789: END IF;
12790:
12791: IF (((p_level = 'ORDER' or l_order_status_rec.ALL_LINES_FLAG = 'Y')
12792: AND(p_level = 'ORDER' or OE_GLOBALS.G_MANUAL_ADV_MODIFIER = 'Y')) -- 6851818
12788: oe_debug_pub.add(' manual_adv_modifier 2 '||OE_GLOBALS.G_MANUAL_ADV_MODIFIER);
12789: END IF;
12790:
12791: IF (((p_level = 'ORDER' or l_order_status_rec.ALL_LINES_FLAG = 'Y')
12792: AND(p_level = 'ORDER' or OE_GLOBALS.G_MANUAL_ADV_MODIFIER = 'Y')) -- 6851818
12793: AND p_header_id Is Not Null) Then
12794:
12795: if not (p_level = 'ORDER' and p_freight_flag) then --- bug 7655559
12796: --passing all lines under this header
13520: CLOSE l_send_all_lines_cur;
13521:
13522: If x_get_manual_adv = 'X' THEN
13523: oe_debug_pub.add('Manual adv modifiers exist');
13524: OE_GLOBALS.G_MANUAL_ADV_MODIFIER := 'Y';
13525: ELSE
13526: oe_debug_pub.add('Manual adv modifiers do not exist');
13527: OE_GLOBALS.G_MANUAL_ADV_MODIFIER := 'N';
13528: END IF;
13523: oe_debug_pub.add('Manual adv modifiers exist');
13524: OE_GLOBALS.G_MANUAL_ADV_MODIFIER := 'Y';
13525: ELSE
13526: oe_debug_pub.add('Manual adv modifiers do not exist');
13527: OE_GLOBALS.G_MANUAL_ADV_MODIFIER := 'N';
13528: END IF;
13529:
13530:
13531: oe_debug_pub.add('return_value '||OE_GLOBALS.G_MANUAL_ADV_MODIFIER,3);
13527: OE_GLOBALS.G_MANUAL_ADV_MODIFIER := 'N';
13528: END IF;
13529:
13530:
13531: oe_debug_pub.add('return_value '||OE_GLOBALS.G_MANUAL_ADV_MODIFIER,3);
13532: oe_debug_pub.add(' Leaving GET_MANUAL_ADV_STATUS ',3);
13533: END GET_MANUAL_ADV_STATUS;
13534:
13535: end Oe_Order_Adj_Pvt;