[Home] [Help]
5:
6: G_PRICE_LINE_ID_TBL OE_ORDER_ADJ_PVT.Index_Tbl_Type;
7: G_DEBUG BOOLEAN;
8: G_REQUEST_ID NUMBER:=NULL;
9: G_BINARY_LIMIT CONSTANT NUMBER := OE_GLOBALS.G_BINARY_LIMIT; -- BUG 8631297
10:
11: procedure Adj_Debug (p_text IN VARCHAR2, p_level IN NUMBER:=5) As
12: --
13: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
42: p_old_header_rec OE_Order_Pub.Header_Rec_Type,
43: px_header_rec IN OUT NOCOPY OE_Order_Pub.Header_Rec_Type,
44: px_line_tbl IN OUT NOCOPY OE_Order_Pub.Line_Tbl_Type,
45: px_old_line_tbl IN OUT NOCOPY OE_Order_Pub.Line_Tbl_Type,
46: p_control_rec IN OUT NOCOPY OE_GLOBALS.Control_Rec_Type,
47: x_return_status OUT NOCOPY VARCHAR2)
48: IS
49: lx_old_header_rec OE_Order_Pub.Header_Rec_Type := p_old_header_rec;
50: l_line_index NUMBER;
66: END IF;
67: IF px_line_tbl.COUNT > 0 THEN
68: l_line_index := px_line_tbl.first;
69: while l_line_index is not null loop
70: IF nvl(px_line_tbl(l_line_index).operation,OE_GLOBALS.G_OPR_NONE) = OE_GLOBALS.G_OPR_NONE THEN
71: IF l_debug_level > 0 THEN
72: oe_debug_pub.add('Operation none or null:'||px_line_tbl(l_line_index).line_id||' from px_line_tbl' , 1 ) ;
73: END IF;
74: --Do nothing on this line. None operation
99: p_control_rec.controlled_operation := TRUE;
100: p_control_rec.change_attributes := TRUE;
101: p_control_rec.validate_entity := TRUE;
102: p_control_rec.write_to_DB := TRUE;
103: p_control_rec.process_entity := OE_GLOBALS.G_ENTITY_HEADER;
104: p_control_rec.process := FALSE; --bug 2866986 added to set process flag to false
105:
106: OE_GLOBALS.G_PRICING_RECURSION := 'Y';
107:
102: p_control_rec.write_to_DB := TRUE;
103: p_control_rec.process_entity := OE_GLOBALS.G_ENTITY_HEADER;
104: p_control_rec.process := FALSE; --bug 2866986 added to set process flag to false
105:
106: OE_GLOBALS.G_PRICING_RECURSION := 'Y';
107:
108: IF l_debug_level > 0 THEN
109: oe_debug_pub.add( 'BEFORE CALLING OE_ORDER_PVT.HEADER' , 1 ) ;
110: oe_debug_pub.add( 'LX_OLD_HEADER_REC.HEADER_ID='||LX_OLD_HEADER_REC.HEADER_ID , 1 ) ;
114: oe_debug_pub.add( 'PX_HEADER_REC.PAYMENT_TERM_ID='||PX_HEADER_REC.PAYMENT_TERM_ID , 1 ) ;
115: oe_debug_pub.add( 'PX_HEADER_REC.OPERATION='||PX_HEADER_REC.OPERATION , 1 ) ;
116: END IF;
117:
118: IF (px_header_rec.operation = OE_GLOBALS.G_OPR_UPDATE) Then
119: OE_Order_Pvt.Header
120: ( p_validation_level => FND_API.G_VALID_LEVEL_FULL
121: , p_control_rec => p_control_rec
122: , p_x_header_rec => px_header_rec
128: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
129: RAISE FND_API.G_EXC_ERROR;
130: END IF;
131: END IF;
132: p_control_rec.process_entity := OE_GLOBALS.G_ENTITY_LINE;
133: IF (l_new_line_tbl.count > 0) THEN --bug 2855986 change px_line_tbl to l_new_line_tbl.count
134: OE_Order_Pvt.Lines
135: ( p_validation_level => FND_API.G_VALID_LEVEL_FULL
136: , p_control_rec => p_control_rec
143: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
144: RAISE FND_API.G_EXC_ERROR;
145: END IF;
146: END IF;
147: OE_GLOBALS.G_PRICING_RECURSION := 'N';
148: END IF; -- count > 0
149: End Call_Process_Order;
150:
151: --Bug 13573144
242: l_index NUMBER;
243: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
244:
245: begin
246: l_Line_Adj_rec.operation := OE_GLOBALS.G_OPR_DELETE;
247: l_Line_Adj_rec.price_adjustment_id := p_price_adjustment_id;
248: --Bug 13573144
249: if p_modifier_level_code <> 'ORDER' THEN
250: IF l_debug_level > 0 THEN
261: ELSE
262: IF l_debug_level > 0 THEN
263: oe_debug_pub.add('Header Level Adjustment');
264: END IF;
265: l_Header_Adj_rec.operation := OE_GLOBALS.G_OPR_DELETE;
266: l_Header_Adj_rec.price_adjustment_id := p_price_adjustment_id;
267: OE_ORDER_UTIL.Update_Global_Picture(p_Upd_New_Rec_If_Exists => True,
268: p_hdr_adj_rec =>l_Header_Adj_rec,
269: p_hdr_adj_id => l_Header_Adj_rec.price_adjustment_id,
368: --bug 2858712
369: IF (px_line_tbl(G_PRICE_LINE_ID_TBL(l_mod_line_id)).line_set_id IS NULL OR
370: px_line_tbl(G_PRICE_LINE_ID_TBL(l_mod_line_id)).line_set_id = FND_API.G_MISS_NUM) THEN
371: set_item_for_iue(px_line_tbl(G_PRICE_LINE_ID_TBL(l_mod_line_id)),to_number(i.modified_from));
372: px_line_tbl(G_PRICE_LINE_ID_TBL(l_mod_line_id)).operation := OE_GLOBALS.G_OPR_UPDATE;
373: --bug 2795409
374: px_line_tbl(G_PRICE_LINE_ID_TBL(l_mod_line_id)).change_reason := 'SYSTEM';
375: px_line_tbl(G_PRICE_LINE_ID_TBL(l_mod_line_id)).change_comments := 'REPRICING';
376:
403: IF (px_line_tbl(G_PRICE_LINE_ID_TBL(l_mod_line_id)).line_set_id IS NULL OR
404: px_line_tbl(G_PRICE_LINE_ID_TBL(l_mod_line_id)).line_set_id = FND_API.G_MISS_NUM) THEN
405:
406: set_item_for_iue(px_line_tbl(G_PRICE_LINE_ID_TBL(l_mod_line_id)),i.Related_Item_ID);
407: px_line_tbl(G_PRICE_LINE_ID_TBL(l_mod_line_id)).operation := OE_GLOBALS.G_OPR_UPDATE;
408: --bug 2795409
409: px_line_tbl(G_PRICE_LINE_ID_TBL(l_mod_line_id)).change_reason := 'SYSTEM';
410: px_line_tbl(G_PRICE_LINE_ID_TBL(l_mod_line_id)).change_comments := 'REPRICING';
411:
815: px_header_rec.shipping_method_code := i.modified_from;
816: elsif i.Substitution_Attribute ='QUALIFIER_ATTRIBUTE10' Then
817: px_header_rec.freight_terms_code := i.modified_from;
818: end if;
819: px_header_rec.operation := OE_GLOBALS.G_OPR_UPDATE;
820: -- LOOP through all lines to see if terms need to be reverted back for lines
821: j := px_line_tbl.FIRST;
822: WHILE j Is Not Null loop
823: IF l_debug_level > 0 THEN
836: px_line_tbl(j).shipping_method_code := i.modified_from;
837: Elsif i.Substitution_Attribute ='QUALIFIER_ATTRIBUTE10' Then
838: px_line_tbl(j).freight_terms_code := i.modified_from;
839: End If;
840: px_line_tbl(j).operation := OE_GLOBALS.G_OPR_UPDATE;
841: px_line_tbl(j).change_reason := 'SYSTEM';
842: px_line_tbl(j).change_comments := 'REPRICING';
843: end if;
844: END IF;
906: l_mod_to := i.modified_from;
907: END IF;
908: END IF;
909: set_tsn(px_line_tbl(G_PRICE_LINE_ID_TBL(l_mod_line_id)),l_mod_to, i.substitution_attribute);
910: px_line_tbl(G_PRICE_LINE_ID_TBL(l_mod_line_id)).operation := OE_GLOBALS.G_OPR_UPDATE;
911: px_line_tbl(G_PRICE_LINE_ID_TBL(l_mod_line_id)).change_reason := 'SYSTEM';
912: px_line_tbl(G_PRICE_LINE_ID_TBL(l_mod_line_id)).change_comments := 'REPRICING';
913: DELETE FROM OE_PRICE_ADJUSTMENTS
914: WHERE PRICE_ADJUSTMENT_ID = i.price_adjustment_id;
962: elsIf i.Substitution_Attribute ='QUALIFIER_ATTRIBUTE10' Then
963: l_modified_from := px_header_rec.freight_terms_code; --Bug 13573144
964: px_header_rec.freight_terms_code := i.Substitution_value_to;
965: End If;
966: px_header_rec.operation := OE_GLOBALS.G_OPR_UPDATE;
967: -- LOOP through all lines, update terms on the line
968: j := px_line_tbl.FIRST;
969: WHILE j Is Not Null loop
970: IF l_debug_level > 0 THEN
1007: px_line_tbl(j).shipping_method_code := i.Substitution_value_to; --Bug 13573144
1008: elsIf i.Substitution_Attribute ='QUALIFIER_ATTRIBUTE10' Then
1009: px_line_tbl(j).freight_terms_code := i.Substitution_value_to;
1010: End If;
1011: px_line_tbl(j).operation := OE_GLOBALS.G_OPR_UPDATE;
1012: --bug 2795409
1013: px_line_tbl(j).change_reason := 'SYSTEM';
1014: px_line_tbl(j).change_comments := 'REPRICING';
1015: END IF; -- bug 4271297
1036: elsIf i.Substitution_Attribute ='QUALIFIER_ATTRIBUTE10' Then
1037: l_modified_from := px_line_tbl(G_PRICE_LINE_ID_TBL(l_mod_line_id)).freight_terms_code; --Bug 13573144
1038: px_line_tbl(G_PRICE_LINE_ID_TBL(l_mod_line_id)).freight_terms_code := i.Substitution_value_to;
1039: End If;
1040: px_line_tbl(G_PRICE_LINE_ID_TBL(l_mod_line_id)).operation := OE_GLOBALS.G_OPR_UPDATE;
1041: --bug 2795409
1042: px_line_tbl(G_PRICE_LINE_ID_TBL(l_mod_line_id)).change_reason := 'SYSTEM';
1043: px_line_tbl(G_PRICE_LINE_ID_TBL(l_mod_line_id)).change_comments := 'REPRICING';
1044: End If;
1332: ( l_line_rec.unit_selling_price_per_pqty * l_line_rec.unit_list_percent)/
1333: p_percent_price ;
1334: end if;
1335: /*
1336: IF (l_line_rec.operation = OE_GLOBALS.G_OPR_UPDATE) THEN
1337: begin
1338: select nvl(sum(ordered_quantity),0),nvl(sum(pricing_quantity),0)
1339: into l_tot_qty,l_tot_price_qty
1340: from oe_order_lines
1448: l_org := l_org_id;
1449: END;
1450: FND_MESSAGE.SET_TOKEN('ORG', l_org);
1451: OE_MSG_PUB.ADD;
1452: l_line_rec.operation := OE_GLOBALS.G_OPR_NONE;
1453: QP_UTIL_PUB.Update_Lines('MAKE_STATUS_INVALID',l_line_rec.line_id,
1454: NULL,NULL);
1455: End;
1456:
1459: so that charges can be applied to the new line. This will be
1460: handled in OEXULINB.pls
1461: */
1462:
1463: IF l_line_rec.operation = OE_GLOBALS.G_OPR_CREATE
1464: THEN
1465: l_line_rec.calculate_price_flag := 'R';
1466: ELSIF (l_line_rec.operation = OE_GLOBALS.G_OPR_UPDATE) THEN
1467: if nvl(l_line_rec.booked_flag, 'N') = 'Y' then
1462:
1463: IF l_line_rec.operation = OE_GLOBALS.G_OPR_CREATE
1464: THEN
1465: l_line_rec.calculate_price_flag := 'R';
1466: ELSIF (l_line_rec.operation = OE_GLOBALS.G_OPR_UPDATE) THEN
1467: if nvl(l_line_rec.booked_flag, 'N') = 'Y' then
1468: l_pricing_event := 'BATCH,BOOK';
1469: else
1470: l_pricing_event := 'BATCH';
1472:
1473: l_line_rec.ordered_quantity2 := null; -- 8459311
1474:
1475: OE_delayed_requests_Pvt.log_request(
1476: p_entity_code =>OE_GLOBALS.G_ENTITY_ALL,
1477: p_entity_id => l_line_rec.line_Id,
1478: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_ALL,
1479: p_requesting_entity_id => l_line_rec.line_Id,
1480: p_request_unique_key1 => l_pricing_event,
1474:
1475: OE_delayed_requests_Pvt.log_request(
1476: p_entity_code =>OE_GLOBALS.G_ENTITY_ALL,
1477: p_entity_id => l_line_rec.line_Id,
1478: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_ALL,
1479: p_requesting_entity_id => l_line_rec.line_Id,
1480: p_request_unique_key1 => l_pricing_event,
1481: p_param1 => l_line_rec.header_id,
1482: p_param2 => l_pricing_event,
1479: p_requesting_entity_id => l_line_rec.line_Id,
1480: p_request_unique_key1 => l_pricing_event,
1481: p_param1 => l_line_rec.header_id,
1482: p_param2 => l_pricing_event,
1483: p_request_type => OE_GLOBALS.G_PRICE_LINE,
1484: x_return_status => l_return_status);
1485: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1486: IF l_debug_level > 0 THEN
1487: oe_debug_pub.add( 'unexp error logging batch event for updated free goods line', 3) ;
1497: END IF;
1498: -- sol_ord_er #16014165
1499: /* The current Line is PRG line, hence Order has to be logged and check for FPOM should not be used */
1500: oe_delayed_requests_pvt.log_request(
1501: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
1502: p_entity_id => l_line_rec.line_Id,
1503: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_ALL,
1504: p_requesting_entity_id => l_line_rec.line_Id,
1505: p_request_type => OE_GLOBALS.G_SERVICE_FIRST_PERIOD_BILL,
1499: /* The current Line is PRG line, hence Order has to be logged and check for FPOM should not be used */
1500: oe_delayed_requests_pvt.log_request(
1501: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
1502: p_entity_id => l_line_rec.line_Id,
1503: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_ALL,
1504: p_requesting_entity_id => l_line_rec.line_Id,
1505: p_request_type => OE_GLOBALS.G_SERVICE_FIRST_PERIOD_BILL,
1506: p_request_unique_key1 => 'ORDER',
1507: p_param1 => l_line_rec.header_id,
1501: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
1502: p_entity_id => l_line_rec.line_Id,
1503: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_ALL,
1504: p_requesting_entity_id => l_line_rec.line_Id,
1505: p_request_type => OE_GLOBALS.G_SERVICE_FIRST_PERIOD_BILL,
1506: p_request_unique_key1 => 'ORDER',
1507: p_param1 => l_line_rec.header_id,
1508: x_return_status => l_return_status);
1509: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1544: IF (nvl(l_line_rec.booked_flag, 'N') = 'N') Then
1545: IF l_debug_level > 0 THEN
1546: oe_debug_pub.add( 'DELETE UNBOOKED ORDER' ) ;
1547: END IF;
1548: l_line_rec.operation := OE_GLOBALS.G_OPR_DELETE;
1549: ELSE
1550: l_line_rec.change_reason := 'SYSTEM';
1551: l_line_rec.change_comments := 'REPRICING';
1552: IF (l_line_rec.shipped_quantity IS NULL) THEN
1552: IF (l_line_rec.shipped_quantity IS NULL) THEN
1553: IF l_debug_level > 0 THEN
1554: oe_debug_pub.add( 'CANCEL BOOKED ORDER , LINE NOT SHIPPED' ) ;
1555: END IF;
1556: l_line_rec.operation := OE_GLOBALS.G_OPR_UPDATE;
1557: BEGIN
1558: IF OE_CODE_CONTROL.Get_Code_Release_Level < '110510' THEN
1559: UPDATE QP_PREQ_LINES_TMP
1560: SET PROCESS_STATUS='NOT_VALID'
1572: ELSE
1573: IF l_debug_level > 0 THEN
1574: oe_debug_pub.add( 'REPRICE BOOKED ORDER , SHIPPED LINE' ) ;
1575: END IF;
1576: l_line_rec.operation := OE_GLOBALS.G_OPR_UPDATE;
1577: l_line_rec.calculate_price_flag := 'Y';
1578: IF l_debug_level > 0 THEN
1579: oe_debug_pub.add( 'LOGGING DELAYED REQUEST TO PRICE LINE' ) ;
1580: END IF;
1580: END IF;
1581:
1582: l_pricing_event := 'BATCH,BOOK';
1583: OE_delayed_requests_Pvt.log_request(
1584: p_entity_code =>OE_GLOBALS.G_ENTITY_ALL,
1585: p_entity_id => l_line_rec.line_Id,
1586: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_ALL,
1587: p_requesting_entity_id => l_line_rec.line_Id,
1588: p_request_unique_key1 => l_pricing_event,
1582: l_pricing_event := 'BATCH,BOOK';
1583: OE_delayed_requests_Pvt.log_request(
1584: p_entity_code =>OE_GLOBALS.G_ENTITY_ALL,
1585: p_entity_id => l_line_rec.line_Id,
1586: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_ALL,
1587: p_requesting_entity_id => l_line_rec.line_Id,
1588: p_request_unique_key1 => l_pricing_event,
1589: p_param1 => l_line_rec.header_id,
1590: p_param2 => l_pricing_event,
1587: p_requesting_entity_id => l_line_rec.line_Id,
1588: p_request_unique_key1 => l_pricing_event,
1589: p_param1 => l_line_rec.header_id,
1590: p_param2 => l_pricing_event,
1591: p_request_type => OE_GLOBALS.G_PRICE_LINE,
1592: x_return_status => l_return_status);
1593: -- sol_ord_er #16014165
1594: /* The current Line is PRG line, hence Order has to be logged and check for FPOM should not be used */
1595: oe_delayed_requests_pvt.log_request(
1592: x_return_status => l_return_status);
1593: -- sol_ord_er #16014165
1594: /* The current Line is PRG line, hence Order has to be logged and check for FPOM should not be used */
1595: oe_delayed_requests_pvt.log_request(
1596: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
1597: p_entity_id => l_line_rec.line_Id,
1598: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_ALL,
1599: p_requesting_entity_id => l_line_rec.line_Id,
1600: p_request_type => OE_GLOBALS.G_SERVICE_FIRST_PERIOD_BILL,
1594: /* The current Line is PRG line, hence Order has to be logged and check for FPOM should not be used */
1595: oe_delayed_requests_pvt.log_request(
1596: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
1597: p_entity_id => l_line_rec.line_Id,
1598: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_ALL,
1599: p_requesting_entity_id => l_line_rec.line_Id,
1600: p_request_type => OE_GLOBALS.G_SERVICE_FIRST_PERIOD_BILL,
1601: p_request_unique_key1 => 'ORDER',
1602: p_param1 => l_line_rec.header_id,
1596: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
1597: p_entity_id => l_line_rec.line_Id,
1598: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_ALL,
1599: p_requesting_entity_id => l_line_rec.line_Id,
1600: p_request_type => OE_GLOBALS.G_SERVICE_FIRST_PERIOD_BILL,
1601: p_request_unique_key1 => 'ORDER',
1602: p_param1 => l_line_rec.header_id,
1603: x_return_status => l_return_status);
1604: -- sol_ord_er #16014165 end
1742: WHEN OTHERS THEN
1743: NULL;
1744: END;
1745: END IF;
1746: l_line_rec.operation := OE_GLOBALS.G_OPR_UPDATE;
1747: l_line_rec.change_reason := 'SYSTEM';
1748: l_line_rec.change_comments := 'REPRICING';
1749:
1750: --bug 16317034 start
1775: , i.priced_uom_code
1776: , i.price_request_code
1777: );
1778: End If; -- cancelled_quantity larger than ordered_quantity?
1779: IF (l_line_rec.operation <> OE_GLOBALS.G_OPR_NONE) THEN
1780: px_line_tbl(px_price_line_id_tbl(l_mod_line_id)) := l_line_rec; -- Bug 8631297
1781: END IF;
1782: Elsif (i.Process_Status = QP_PREQ_PUB.G_STATUS_NEW) THEN
1783: l_line_rec:=OE_ORDER_PUB.G_MISS_LINE_REC;
1781: END IF;
1782: Elsif (i.Process_Status = QP_PREQ_PUB.G_STATUS_NEW) THEN
1783: l_line_rec:=OE_ORDER_PUB.G_MISS_LINE_REC;
1784: l_line_rec.cancelled_quantity := 0;
1785: l_line_rec.operation := OE_GLOBALS.G_OPR_CREATE;
1786: l_line_rec.Header_id := oe_order_cache.g_header_rec.header_id;
1787: l_line_rec.line_id := OE_DEFAULT_LINE.get_line;
1788: --for Bug 3350425. To Prevent Blanket feilds being defaulting from Header.
1789: l_line_rec.blanket_number:=NULL;
1909: , i.percent_price
1910: , i.priced_uom_code
1911: , i.price_request_code
1912: );
1913: IF (l_line_rec.operation <> OE_GLOBALS.G_OPR_NONE) THEN
1914: -- Display the PRG Item
1915: FND_MESSAGE.SET_NAME('ONT','ONT_CREATED_NEW_LINE');
1916: FND_MESSAGE.SET_TOKEN('ITEM',nvl(l_line_rec.ordered_item,l_line_rec.inventory_item_id));
1917: --bug 2412868 begin
2195:
2196: FND_MESSAGE.SET_NAME('ONT','ONT_PROMO_LIMIT_EXCEEDED');
2197: FND_MESSAGE.SET_TOKEN('ERR_TEXT', i.LIMIT_TEXT);
2198: OE_MSG_PUB.Add;
2199: IF (OE_GLOBALS.G_UI_FLAG ) THEN
2200: IF (G_REQUEST_ID IS NULL) THEN
2201: select oe_msg_request_id_s.nextval into g_request_id from dual;
2202: END IF;
2203: OE_MSG_PUB.INSERT_MESSAGE(OE_MSG_PUB.COUNT_MSG, G_REQUEST_ID,'U');
2370: l_Line_Adj_rec.line_index := l_insert.line_index;
2371: l_Line_Adj_rec.return_status := FND_API.G_RET_STS_SUCCESS;
2372: IF l_insert.process_code = QP_PREQ_GRP.G_STATUS_NEW Then
2373: l_Line_Adj_rec.db_flag := FND_API.G_FALSE;
2374: l_Line_Adj_rec.operation := OE_GLOBALS.G_OPR_CREATE;
2375: OE_ORDER_UTIL.Update_Global_Picture(p_Upd_New_Rec_If_Exists => True,
2376: p_old_line_adj_rec => NULL,
2377: p_line_adj_rec =>l_line_adj_rec,
2378: p_line_adj_id => l_line_adj_rec.price_adjustment_id,
2379: x_index => l_index,
2380: x_return_status => l_return_status);
2381: ELSIF l_insert.process_code = QP_PREQ_GRP.G_STATUS_UPDATED Then
2382: l_Line_Adj_rec.db_flag := FND_API.G_TRUE;
2383: l_Line_Adj_rec.operation := OE_GLOBALS.G_OPR_UPDATE;
2384:
2385: OE_ORDER_UTIL.Update_Global_Picture(p_Upd_New_Rec_If_Exists => True,
2386: p_line_adj_rec =>l_line_adj_rec,
2387: p_line_adj_id => l_line_adj_rec.price_adjustment_id,
2414: END IF;
2415: IF l_qty <> l_insert.lquantity THEN -- IF the Quantity has changed on the Line THEN
2416: l_Line_Adj_rec.UPDATED_FLAG := 'Y';
2417: l_Line_Adj_rec.db_flag := FND_API.G_TRUE;
2418: l_Line_Adj_rec.operation := OE_GLOBALS.G_OPR_UPDATE;
2419: OE_ORDER_UTIL.Update_Global_Picture(p_Upd_New_Rec_If_Exists => True,
2420: p_line_adj_rec =>l_line_adj_rec,
2421: p_line_adj_id => l_line_adj_rec.price_adjustment_id,
2422: x_index => l_index,
2488: --l_Header_Adj_rec.line_index := l_insert.line_index;
2489: l_Header_Adj_rec.return_status := FND_API.G_RET_STS_SUCCESS;
2490: IF l_insert.process_code = QP_PREQ_GRP.G_STATUS_NEW Then
2491: l_Header_Adj_rec.db_flag := FND_API.G_FALSE;
2492: l_Header_Adj_rec.operation := OE_GLOBALS.G_OPR_CREATE;
2493: OE_ORDER_UTIL.Update_Global_Picture(p_Upd_New_Rec_If_Exists => True,
2494: p_old_hdr_adj_rec => NULL,
2495: p_hdr_adj_rec =>l_header_adj_rec,
2496: p_hdr_adj_id => l_header_adj_rec.price_adjustment_id,
2497: x_index => l_index,
2498: x_return_status => l_return_status);
2499: ELSIF l_insert.process_code = QP_PREQ_GRP.G_STATUS_UPDATED Then
2500: l_Header_Adj_rec.db_flag := FND_API.G_TRUE;
2501: l_Header_Adj_rec.operation := OE_GLOBALS.G_OPR_UPDATE;
2502:
2503: OE_ORDER_UTIL.Update_Global_Picture(p_Upd_New_Rec_If_Exists => True,
2504: p_hdr_adj_rec =>l_header_adj_rec,
2505: p_hdr_adj_id => l_header_adj_rec.price_adjustment_id,
2573: oe_debug_pub.add('Old Price List id : '||i.price_list_id);
2574: oe_debug_pub.add('New Price List id : '||i.price_list_header_id);
2575: END IF;
2576: px_line_tbl(G_PRICE_LINE_ID_TBL(l_mod_line_id)).price_list_id := i.price_list_header_id;
2577: px_line_tbl(G_PRICE_LINE_ID_TBL(l_mod_line_id)).operation := OE_GLOBALS.G_OPR_UPDATE;
2578: end loop;
2579: END Register_price_list;--bug 3702538
2580:
2581:
2591: p_header_rec IN oe_Order_Pub.header_rec_type,
2592: p_pricing_events IN varchar2
2593: ) IS
2594:
2595: l_control_rec OE_GLOBALS.Control_Rec_Type;
2596: lx_new_header_rec oe_Order_Pub.header_rec_type := p_header_rec;
2597: l_notify_flag BOOLEAN;
2598: l_booked_flag varchar2(1) := oe_order_cache.g_header_rec.booked_flag;
2599: