[Home] [Help]
210: IS
211: l_Line_Adj_rec OE_Order_PUB.Line_Adj_Rec_Type;
212: l_Line_Adj_tbl OE_Order_PUB.Line_Adj_Tbl_Type;
213: l_Line_Adj_val_rec OE_Order_PUB.Line_Adj_Val_Rec_Type;
214: l_control_rec OE_GLOBALS.Control_Rec_Type;
215: l_return_status VARCHAR2(1);
216: l_action_request_tbl OE_Order_PUB.Request_Tbl_Type;
217: l_x_header_rec OE_Order_PUB.Header_Rec_Type;
218: l_x_Header_Adj_rec OE_Order_PUB.Header_Adj_Rec_Type;
248: oe_debug_pub.add( 'ENTERING OE_OE_FORM_LINE_ADJ.DEFAULT_ATTRIBUTES' , 1 ) ;
249: END IF;
250:
251: -- Set the UI flag
252: OE_GLOBALS.G_UI_FLAG := TRUE;
253:
254: -- Set control flags.
255: l_control_rec.controlled_operation := TRUE;
256: l_control_rec.check_security := TRUE;
324: */
325:
326:
327: -- Set Operation to Create
328: l_x_Line_Adj_rec.operation := OE_GLOBALS.G_OPR_CREATE;
329:
330: -- Populate Line_Adj table
331: l_x_Line_Adj_tbl(1) := l_x_Line_Adj_rec;
332: l_x_old_Line_Adj_tbl(1) := l_x_old_Line_Adj_rec;
485: ( p_Line_Adj_rec => l_x_Line_Adj_rec
486: );
487:
488: -- Re-set the UI flag to FALSE
489: OE_GLOBALS.G_UI_FLAG := FALSE;
490:
491: -- Set return status.
492:
493: x_return_status := FND_API.G_RET_STS_SUCCESS;
506: EXCEPTION
507:
508: WHEN FND_API.G_EXC_ERROR THEN
509:
510: OE_GLOBALS.G_UI_FLAG := FALSE;
511:
512: x_return_status := FND_API.G_RET_STS_ERROR;
513:
514: -- Get message count and data
519: );
520:
521: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
522:
523: OE_GLOBALS.G_UI_FLAG := FALSE;
524:
525: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
526:
527: -- Get message count and data
532: );
533:
534: WHEN OTHERS THEN
535:
536: OE_GLOBALS.G_UI_FLAG := FALSE;
537:
538: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
539:
540: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
761: l_request_tbl OE_Order_Pub.Request_Tbl_Type;
762: l_Line_Adj_rec OE_Order_PUB.Line_Adj_Rec_Type;
763: l_Line_Adj_tbl OE_Order_PUB.Line_Adj_Tbl_Type;
764: l_Line_Adj_val_rec OE_Order_PUB.Line_Adj_Val_Rec_Type;
765: l_control_rec OE_GLOBALS.Control_Rec_Type;
766: l_return_status VARCHAR2(1);
767: l_action_request_tbl OE_Order_PUB.Request_Tbl_Type;
768: l_x_header_rec OE_Order_PUB.Header_Rec_Type;
769: l_x_Header_Adj_rec OE_Order_PUB.Header_Adj_Rec_Type;
811: l_line_rec.line_id := NULL;
812: l_line_id_tbl.delete;
813:
814: -- Set the UI flag
815: OE_GLOBALS.G_UI_FLAG := TRUE;
816:
817: -- Set control flags.
818:
819: l_control_rec.controlled_operation := TRUE;
824:
825: l_control_rec.validate_entity := FALSE;
826: l_control_rec.write_to_DB := FALSE;
827: l_control_rec.process := FALSE;
828: l_control_rec.process_entity := OE_GLOBALS.G_ENTITY_LINE_ADJ;
829:
830: -- Instruct API to retain its caches
831:
832: l_control_rec.clear_api_cache := FALSE;
1084:
1085: -- Set Operation.
1086:
1087: IF FND_API.To_Boolean(l_x_Line_Adj_rec.db_flag) THEN
1088: l_x_Line_Adj_rec.operation := OE_GLOBALS.G_OPR_UPDATE;
1089: ELSE
1090: l_x_Line_Adj_rec.operation := OE_GLOBALS.G_OPR_CREATE;
1091: END IF;
1092:
1086:
1087: IF FND_API.To_Boolean(l_x_Line_Adj_rec.db_flag) THEN
1088: l_x_Line_Adj_rec.operation := OE_GLOBALS.G_OPR_UPDATE;
1089: ELSE
1090: l_x_Line_Adj_rec.operation := OE_GLOBALS.G_OPR_CREATE;
1091: END IF;
1092:
1093: --Bug 1790502
1094: --For cascading adjustments to service lines
1308: RAISE FND_API.G_EXC_ERROR;
1309: END IF;
1310:
1311: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Reqtype
1312: (p_request_type => OE_GLOBALS.G_CHECK_DUPLICATE
1313: ,p_delete => FND_API.G_TRUE
1314: ,x_return_status => l_return_status
1315: );
1316: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1319: RAISE FND_API.G_EXC_ERROR;
1320: END IF;
1321:
1322: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Reqtype
1323: (p_request_type => OE_GLOBALS.G_CHECK_FIXED_PRICE
1324: ,p_delete => FND_API.G_TRUE
1325: ,x_return_status => l_return_status
1326: );
1327: IF p_enforce_fixed_price = 'YES' THEN
1426: );
1427:
1428: -- New Column changes
1429:
1430: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.adjusted_amount, l_Line_Adj_rec.adjusted_amount)
1431: THEN
1432: x_adjusted_amount := l_x_Line_Adj_rec.adjusted_amount;
1433: END IF;
1434:
1431: THEN
1432: x_adjusted_amount := l_x_Line_Adj_rec.adjusted_amount;
1433: END IF;
1434:
1435: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.pricing_phase_id, l_Line_Adj_rec.pricing_phase_id)
1436: THEN
1437: x_pricing_phase_id := l_x_Line_Adj_rec.pricing_phase_id;
1438: END IF;
1439:
1436: THEN
1437: x_pricing_phase_id := l_x_Line_Adj_rec.pricing_phase_id;
1438: END IF;
1439:
1440: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.list_line_no, l_Line_Adj_rec.list_line_no)
1441: THEN
1442: x_list_line_no := l_x_Line_Adj_rec.list_line_no;
1443: END IF;
1444:
1441: THEN
1442: x_list_line_no := l_x_Line_Adj_rec.list_line_no;
1443: END IF;
1444:
1445: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.source_system_code, l_Line_Adj_rec.source_system_code)
1446: THEN
1447: x_source_system_code := l_x_Line_Adj_rec.source_system_code;
1448: END IF;
1449:
1446: THEN
1447: x_source_system_code := l_x_Line_Adj_rec.source_system_code;
1448: END IF;
1449:
1450: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.benefit_qty, l_Line_Adj_rec.benefit_qty)
1451: THEN
1452: x_benefit_qty := l_x_Line_Adj_rec.benefit_qty;
1453: END IF;
1454:
1451: THEN
1452: x_benefit_qty := l_x_Line_Adj_rec.benefit_qty;
1453: END IF;
1454:
1455: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.benefit_uom_code, l_Line_Adj_rec.benefit_uom_code)
1456: THEN
1457: x_benefit_uom_code := l_x_Line_Adj_rec.benefit_uom_code;
1458: END IF;
1459:
1456: THEN
1457: x_benefit_uom_code := l_x_Line_Adj_rec.benefit_uom_code;
1458: END IF;
1459:
1460: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.print_on_invoice_flag, l_Line_Adj_rec.print_on_invoice_flag)
1461: THEN
1462: x_print_on_invoice_flag := l_x_Line_Adj_rec.print_on_invoice_flag;
1463: END IF;
1464:
1461: THEN
1462: x_print_on_invoice_flag := l_x_Line_Adj_rec.print_on_invoice_flag;
1463: END IF;
1464:
1465: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.expiration_date, l_Line_Adj_rec.expiration_date)
1466: THEN
1467: x_expiration_date := l_x_Line_Adj_rec.expiration_date;
1468: END IF;
1469:
1466: THEN
1467: x_expiration_date := l_x_Line_Adj_rec.expiration_date;
1468: END IF;
1469:
1470: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.rebate_transaction_type_code, l_Line_Adj_rec.rebate_transaction_type_code)
1471: THEN
1472: x_rebate_transaction_type_code := l_x_Line_Adj_rec.rebate_transaction_type_code;
1473: END IF;
1474:
1471: THEN
1472: x_rebate_transaction_type_code := l_x_Line_Adj_rec.rebate_transaction_type_code;
1473: END IF;
1474:
1475: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.rebate_transaction_reference, l_Line_Adj_rec.rebate_transaction_reference)
1476: THEN
1477: x_rebate_transaction_reference := l_x_Line_Adj_rec.rebate_transaction_reference;
1478: END IF;
1479:
1476: THEN
1477: x_rebate_transaction_reference := l_x_Line_Adj_rec.rebate_transaction_reference;
1478: END IF;
1479:
1480: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.rebate_payment_system_code, l_Line_Adj_rec.rebate_payment_system_code)
1481: THEN
1482: x_rebate_payment_system_code := l_x_Line_Adj_rec.rebate_payment_system_code;
1483: END IF;
1484:
1481: THEN
1482: x_rebate_payment_system_code := l_x_Line_Adj_rec.rebate_payment_system_code;
1483: END IF;
1484:
1485: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.redeemed_date, l_Line_Adj_rec.redeemed_date)
1486: THEN
1487: x_redeemed_date := l_x_Line_Adj_rec.redeemed_date;
1488: END IF;
1489:
1486: THEN
1487: x_redeemed_date := l_x_Line_Adj_rec.redeemed_date;
1488: END IF;
1489:
1490: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.redeemed_flag, l_Line_Adj_rec.redeemed_flag)
1491: THEN
1492: x_redeemed_flag := l_x_Line_Adj_rec.redeemed_flag;
1493: END IF;
1494:
1491: THEN
1492: x_redeemed_flag := l_x_Line_Adj_rec.redeemed_flag;
1493: END IF;
1494:
1495: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.accrual_flag, l_Line_Adj_rec.accrual_flag)
1496: THEN
1497: x_accrual_flag := l_x_Line_Adj_rec.accrual_flag;
1498: END IF;
1499:
1496: THEN
1497: x_accrual_flag := l_x_Line_Adj_rec.accrual_flag;
1498: END IF;
1499:
1500: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.list_header_id, l_Line_Adj_rec.list_header_id)
1501: THEN
1502: x_list_header_id := l_x_Line_Adj_rec.list_header_id;
1503: END IF;
1504:
1501: THEN
1502: x_list_header_id := l_x_Line_Adj_rec.list_header_id;
1503: END IF;
1504:
1505: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.list_line_id,l_Line_Adj_rec.list_line_id)
1506: THEN
1507: x_list_line_id := l_x_Line_Adj_rec.list_line_id;
1508: END IF;
1509:
1506: THEN
1507: x_list_line_id := l_x_Line_Adj_rec.list_line_id;
1508: END IF;
1509:
1510: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.list_line_type_code,
1511: l_Line_Adj_rec.list_line_type_code)
1512: THEN
1513: x_list_line_type_code := l_x_Line_Adj_rec.list_line_type_code;
1514: END IF;
1512: THEN
1513: x_list_line_type_code := l_x_Line_Adj_rec.list_line_type_code;
1514: END IF;
1515:
1516: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.modifier_mechanism_type_code,
1517: l_Line_Adj_rec.modifier_mechanism_type_code)
1518: THEN
1519: x_modifier_mechanism_type_code :=
1520: l_x_Line_Adj_rec.modifier_mechanism_type_code;
1519: x_modifier_mechanism_type_code :=
1520: l_x_Line_Adj_rec.modifier_mechanism_type_code;
1521: END IF;
1522:
1523: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.update_allowed,
1524: l_Line_Adj_rec.update_allowed)
1525: THEN
1526: x_update_allowed := l_x_Line_Adj_rec.update_allowed;
1527: END IF;
1525: THEN
1526: x_update_allowed := l_x_Line_Adj_rec.update_allowed;
1527: END IF;
1528:
1529: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.updated_flag, l_Line_Adj_rec.updated_flag)
1530: THEN
1531: x_updated_flag := l_x_Line_Adj_rec.updated_flag;
1532: END IF;
1533:
1530: THEN
1531: x_updated_flag := l_x_Line_Adj_rec.updated_flag;
1532: END IF;
1533:
1534: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.modified_from, l_Line_Adj_rec.modified_from)
1535: THEN
1536: x_modified_from := l_x_Line_Adj_rec.modified_from;
1537: END IF;
1538:
1535: THEN
1536: x_modified_from := l_x_Line_Adj_rec.modified_from;
1537: END IF;
1538:
1539: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.modified_to, l_Line_Adj_rec.modified_to)
1540: THEN
1541: x_modified_to := l_x_Line_Adj_rec.modified_to;
1542: END IF;
1543:
1540: THEN
1541: x_modified_to := l_x_Line_Adj_rec.modified_to;
1542: END IF;
1543:
1544: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.applied_flag, l_Line_Adj_rec.applied_flag)
1545: THEN
1546: x_applied_flag := l_x_Line_Adj_rec.applied_flag;
1547: END IF;
1548:
1545: THEN
1546: x_applied_flag := l_x_Line_Adj_rec.applied_flag;
1547: END IF;
1548:
1549: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.change_reason_code, l_Line_Adj_rec.change_reason_code)
1550: THEN
1551: x_change_reason_code := l_x_Line_Adj_rec.change_reason_code;
1552: END IF;
1553:
1550: THEN
1551: x_change_reason_code := l_x_Line_Adj_rec.change_reason_code;
1552: END IF;
1553:
1554: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.change_reason_text, l_Line_Adj_rec.change_reason_text)
1555: THEN
1556: x_change_reason_text := l_x_Line_Adj_rec.change_reason_text;
1557: END IF;
1558: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.operand, l_Line_Adj_rec.operand)
1554: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.change_reason_text, l_Line_Adj_rec.change_reason_text)
1555: THEN
1556: x_change_reason_text := l_x_Line_Adj_rec.change_reason_text;
1557: END IF;
1558: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.operand, l_Line_Adj_rec.operand)
1559: THEN
1560: x_operand := l_x_Line_Adj_rec.operand;
1561: END IF;
1562: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.arithmetic_operator, l_Line_Adj_rec.arithmetic_operator)
1558: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.operand, l_Line_Adj_rec.operand)
1559: THEN
1560: x_operand := l_x_Line_Adj_rec.operand;
1561: END IF;
1562: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.arithmetic_operator, l_Line_Adj_rec.arithmetic_operator)
1563: THEN
1564: x_arithmetic_operator := l_x_Line_Adj_rec.arithmetic_operator;
1565: END IF;
1566:
1566:
1567:
1568: -- Return changed attributes.
1569:
1570: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.attribute1,
1571: l_Line_Adj_rec.attribute1)
1572: THEN
1573: x_attribute1 := l_x_Line_Adj_rec.attribute1;
1574: END IF;
1572: THEN
1573: x_attribute1 := l_x_Line_Adj_rec.attribute1;
1574: END IF;
1575:
1576: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.attribute10,
1577: l_Line_Adj_rec.attribute10)
1578: THEN
1579: x_attribute10 := l_x_Line_Adj_rec.attribute10;
1580: END IF;
1578: THEN
1579: x_attribute10 := l_x_Line_Adj_rec.attribute10;
1580: END IF;
1581:
1582: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.attribute11,
1583: l_Line_Adj_rec.attribute11)
1584: THEN
1585: x_attribute11 := l_x_Line_Adj_rec.attribute11;
1586: END IF;
1584: THEN
1585: x_attribute11 := l_x_Line_Adj_rec.attribute11;
1586: END IF;
1587:
1588: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.attribute12,
1589: l_Line_Adj_rec.attribute12)
1590: THEN
1591: x_attribute12 := l_x_Line_Adj_rec.attribute12;
1592: END IF;
1590: THEN
1591: x_attribute12 := l_x_Line_Adj_rec.attribute12;
1592: END IF;
1593:
1594: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.attribute13,
1595: l_Line_Adj_rec.attribute13)
1596: THEN
1597: x_attribute13 := l_x_Line_Adj_rec.attribute13;
1598: END IF;
1596: THEN
1597: x_attribute13 := l_x_Line_Adj_rec.attribute13;
1598: END IF;
1599:
1600: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.attribute14,
1601: l_Line_Adj_rec.attribute14)
1602: THEN
1603: x_attribute14 := l_x_Line_Adj_rec.attribute14;
1604: END IF;
1602: THEN
1603: x_attribute14 := l_x_Line_Adj_rec.attribute14;
1604: END IF;
1605:
1606: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.attribute15,
1607: l_Line_Adj_rec.attribute15)
1608: THEN
1609: x_attribute15 := l_x_Line_Adj_rec.attribute15;
1610: END IF;
1608: THEN
1609: x_attribute15 := l_x_Line_Adj_rec.attribute15;
1610: END IF;
1611:
1612: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.attribute2,
1613: l_Line_Adj_rec.attribute2)
1614: THEN
1615: x_attribute2 := l_x_Line_Adj_rec.attribute2;
1616: END IF;
1614: THEN
1615: x_attribute2 := l_x_Line_Adj_rec.attribute2;
1616: END IF;
1617:
1618: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.attribute3,
1619: l_Line_Adj_rec.attribute3)
1620: THEN
1621: x_attribute3 := l_x_Line_Adj_rec.attribute3;
1622: END IF;
1620: THEN
1621: x_attribute3 := l_x_Line_Adj_rec.attribute3;
1622: END IF;
1623:
1624: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.attribute4,
1625: l_Line_Adj_rec.attribute4)
1626: THEN
1627: x_attribute4 := l_x_Line_Adj_rec.attribute4;
1628: END IF;
1626: THEN
1627: x_attribute4 := l_x_Line_Adj_rec.attribute4;
1628: END IF;
1629:
1630: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.attribute5,
1631: l_Line_Adj_rec.attribute5)
1632: THEN
1633: x_attribute5 := l_x_Line_Adj_rec.attribute5;
1634: END IF;
1632: THEN
1633: x_attribute5 := l_x_Line_Adj_rec.attribute5;
1634: END IF;
1635:
1636: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.attribute6,
1637: l_Line_Adj_rec.attribute6)
1638: THEN
1639: x_attribute6 := l_x_Line_Adj_rec.attribute6;
1640: END IF;
1638: THEN
1639: x_attribute6 := l_x_Line_Adj_rec.attribute6;
1640: END IF;
1641:
1642: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.attribute7,
1643: l_Line_Adj_rec.attribute7)
1644: THEN
1645: x_attribute7 := l_x_Line_Adj_rec.attribute7;
1646: END IF;
1644: THEN
1645: x_attribute7 := l_x_Line_Adj_rec.attribute7;
1646: END IF;
1647:
1648: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.attribute8,
1649: l_Line_Adj_rec.attribute8)
1650: THEN
1651: x_attribute8 := l_x_Line_Adj_rec.attribute8;
1652: END IF;
1650: THEN
1651: x_attribute8 := l_x_Line_Adj_rec.attribute8;
1652: END IF;
1653:
1654: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.attribute9,
1655: l_Line_Adj_rec.attribute9)
1656: THEN
1657: x_attribute9 := l_x_Line_Adj_rec.attribute9;
1658: END IF;
1656: THEN
1657: x_attribute9 := l_x_Line_Adj_rec.attribute9;
1658: END IF;
1659:
1660: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.automatic_flag,
1661: l_Line_Adj_rec.automatic_flag)
1662: THEN
1663: x_automatic_flag := l_x_Line_Adj_rec.automatic_flag;
1664: END IF;
1662: THEN
1663: x_automatic_flag := l_x_Line_Adj_rec.automatic_flag;
1664: END IF;
1665:
1666: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.context,
1667: l_Line_Adj_rec.context)
1668: THEN
1669: x_context := l_x_Line_Adj_rec.context;
1670: END IF;
1668: THEN
1669: x_context := l_x_Line_Adj_rec.context;
1670: END IF;
1671:
1672: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.discount_id,
1673: l_Line_Adj_rec.discount_id)
1674: THEN
1675: x_discount_id := l_x_Line_Adj_rec.discount_id;
1676: x_discount := l_Line_Adj_val_rec.discount;
1675: x_discount_id := l_x_Line_Adj_rec.discount_id;
1676: x_discount := l_Line_Adj_val_rec.discount;
1677: END IF;
1678:
1679: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.discount_line_id,
1680: l_Line_Adj_rec.discount_line_id)
1681: THEN
1682: x_discount_line_id := l_x_Line_Adj_rec.discount_line_id;
1683: END IF;
1681: THEN
1682: x_discount_line_id := l_x_Line_Adj_rec.discount_line_id;
1683: END IF;
1684:
1685: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.header_id,
1686: l_Line_Adj_rec.header_id)
1687: THEN
1688: x_header_id := l_x_Line_Adj_rec.header_id;
1689: END IF;
1687: THEN
1688: x_header_id := l_x_Line_Adj_rec.header_id;
1689: END IF;
1690:
1691: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.line_id,
1692: l_Line_Adj_rec.line_id)
1693: THEN
1694: x_line_id := l_x_Line_Adj_rec.line_id;
1695: END IF;
1693: THEN
1694: x_line_id := l_x_Line_Adj_rec.line_id;
1695: END IF;
1696:
1697: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.percent,
1698: l_Line_Adj_rec.percent)
1699: THEN
1700: x_percent := l_x_Line_Adj_rec.percent;
1701: END IF;
1699: THEN
1700: x_percent := l_x_Line_Adj_rec.percent;
1701: END IF;
1702:
1703: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.price_adjustment_id,
1704: l_Line_Adj_rec.price_adjustment_id)
1705: THEN
1706: x_price_adjustment_id := l_x_Line_Adj_rec.price_adjustment_id;
1707: END IF;
1705: THEN
1706: x_price_adjustment_id := l_x_Line_Adj_rec.price_adjustment_id;
1707: END IF;
1708:
1709: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.invoiced_flag,
1710: l_Line_Adj_rec.invoiced_flag)
1711: THEN
1712: x_invoiced_flag := l_x_Line_Adj_rec.invoiced_flag;
1713: END IF;
1711: THEN
1712: x_invoiced_flag := l_x_Line_Adj_rec.invoiced_flag;
1713: END IF;
1714:
1715: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.estimated_flag,
1716: l_Line_Adj_rec.estimated_flag)
1717: THEN
1718: x_estimated_flag := l_x_Line_Adj_rec.estimated_flag;
1719: END IF;
1717: THEN
1718: x_estimated_flag := l_x_Line_Adj_rec.estimated_flag;
1719: END IF;
1720:
1721: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.charge_type_code,
1722: l_Line_Adj_rec.charge_type_code)
1723: THEN
1724: x_charge_type_code := l_x_Line_Adj_rec.charge_type_code;
1725: END IF;
1723: THEN
1724: x_charge_type_code := l_x_Line_Adj_rec.charge_type_code;
1725: END IF;
1726:
1727: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.charge_subtype_code,
1728: l_Line_Adj_rec.charge_subtype_code)
1729: THEN
1730: x_charge_subtype_code := l_x_Line_Adj_rec.charge_subtype_code;
1731: END IF;
1729: THEN
1730: x_charge_subtype_code := l_x_Line_Adj_rec.charge_subtype_code;
1731: END IF;
1732:
1733: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.credit_or_charge_flag,
1734: l_Line_Adj_rec.credit_or_charge_flag)
1735: THEN
1736: x_credit_or_charge_flag := l_x_Line_Adj_rec.credit_or_charge_flag;
1737: END IF;
1735: THEN
1736: x_credit_or_charge_flag := l_x_Line_Adj_rec.credit_or_charge_flag;
1737: END IF;
1738:
1739: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.include_on_returns_flag,
1740: l_Line_Adj_rec.include_on_returns_flag)
1741: THEN
1742: x_include_on_returns_flag := l_x_Line_Adj_rec.include_on_returns_flag;
1743: END IF;
1741: THEN
1742: x_include_on_returns_flag := l_x_Line_Adj_rec.include_on_returns_flag;
1743: END IF;
1744:
1745: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.ac_attribute1,
1746: l_Line_Adj_rec.ac_attribute1)
1747: THEN
1748: x_ac_attribute1 := l_x_Line_Adj_rec.ac_attribute1;
1749: END IF;
1747: THEN
1748: x_ac_attribute1 := l_x_Line_Adj_rec.ac_attribute1;
1749: END IF;
1750:
1751: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.ac_attribute10,
1752: l_Line_Adj_rec.ac_attribute10)
1753: THEN
1754: x_ac_attribute10 := l_x_Line_Adj_rec.ac_attribute10;
1755: END IF;
1753: THEN
1754: x_ac_attribute10 := l_x_Line_Adj_rec.ac_attribute10;
1755: END IF;
1756:
1757: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.ac_attribute11,
1758: l_Line_Adj_rec.ac_attribute11)
1759: THEN
1760: x_ac_attribute11 := l_x_Line_Adj_rec.ac_attribute11;
1761: END IF;
1759: THEN
1760: x_ac_attribute11 := l_x_Line_Adj_rec.ac_attribute11;
1761: END IF;
1762:
1763: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.ac_attribute12,
1764: l_Line_Adj_rec.ac_attribute12)
1765: THEN
1766: x_ac_attribute12 := l_x_Line_Adj_rec.ac_attribute12;
1767: END IF;
1765: THEN
1766: x_ac_attribute12 := l_x_Line_Adj_rec.ac_attribute12;
1767: END IF;
1768:
1769: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.ac_attribute13,
1770: l_Line_Adj_rec.ac_attribute13)
1771: THEN
1772: x_ac_attribute13 := l_x_Line_Adj_rec.ac_attribute13;
1773: END IF;
1771: THEN
1772: x_ac_attribute13 := l_x_Line_Adj_rec.ac_attribute13;
1773: END IF;
1774:
1775: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.ac_attribute14,
1776: l_Line_Adj_rec.ac_attribute14)
1777: THEN
1778: x_ac_attribute14 := l_x_Line_Adj_rec.ac_attribute14;
1779: END IF;
1777: THEN
1778: x_ac_attribute14 := l_x_Line_Adj_rec.ac_attribute14;
1779: END IF;
1780:
1781: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.ac_attribute15,
1782: l_Line_Adj_rec.ac_attribute15)
1783: THEN
1784: x_ac_attribute15 := l_x_Line_Adj_rec.ac_attribute15;
1785: END IF;
1783: THEN
1784: x_ac_attribute15 := l_x_Line_Adj_rec.ac_attribute15;
1785: END IF;
1786:
1787: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.ac_attribute2,
1788: l_Line_Adj_rec.ac_attribute2)
1789: THEN
1790: x_ac_attribute2 := l_x_Line_Adj_rec.ac_attribute2;
1791: END IF;
1789: THEN
1790: x_ac_attribute2 := l_x_Line_Adj_rec.ac_attribute2;
1791: END IF;
1792:
1793: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.ac_attribute3,
1794: l_Line_Adj_rec.ac_attribute3)
1795: THEN
1796: x_ac_attribute3 := l_x_Line_Adj_rec.ac_attribute3;
1797: END IF;
1795: THEN
1796: x_ac_attribute3 := l_x_Line_Adj_rec.ac_attribute3;
1797: END IF;
1798:
1799: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.ac_attribute4,
1800: l_Line_Adj_rec.ac_attribute4)
1801: THEN
1802: x_ac_attribute4 := l_x_Line_Adj_rec.ac_attribute4;
1803: END IF;
1801: THEN
1802: x_ac_attribute4 := l_x_Line_Adj_rec.ac_attribute4;
1803: END IF;
1804:
1805: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.ac_attribute5,
1806: l_Line_Adj_rec.ac_attribute5)
1807: THEN
1808: x_ac_attribute5 := l_x_Line_Adj_rec.ac_attribute5;
1809: END IF;
1807: THEN
1808: x_ac_attribute5 := l_x_Line_Adj_rec.ac_attribute5;
1809: END IF;
1810:
1811: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.ac_attribute6,
1812: l_Line_Adj_rec.ac_attribute6)
1813: THEN
1814: x_ac_attribute6 := l_x_Line_Adj_rec.ac_attribute6;
1815: END IF;
1813: THEN
1814: x_ac_attribute6 := l_x_Line_Adj_rec.ac_attribute6;
1815: END IF;
1816:
1817: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.ac_attribute7,
1818: l_Line_Adj_rec.ac_attribute7)
1819: THEN
1820: x_ac_attribute7 := l_x_Line_Adj_rec.ac_attribute7;
1821: END IF;
1819: THEN
1820: x_ac_attribute7 := l_x_Line_Adj_rec.ac_attribute7;
1821: END IF;
1822:
1823: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.ac_attribute8,
1824: l_Line_Adj_rec.ac_attribute8)
1825: THEN
1826: x_ac_attribute8 := l_x_Line_Adj_rec.ac_attribute8;
1827: END IF;
1825: THEN
1826: x_ac_attribute8 := l_x_Line_Adj_rec.ac_attribute8;
1827: END IF;
1828:
1829: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.ac_attribute9,
1830: l_Line_Adj_rec.ac_attribute9)
1831: THEN
1832: x_ac_attribute9 := l_x_Line_Adj_rec.ac_attribute9;
1833: END IF;
1831: THEN
1832: x_ac_attribute9 := l_x_Line_Adj_rec.ac_attribute9;
1833: END IF;
1834:
1835: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.ac_context,
1836: l_Line_Adj_rec.ac_context)
1837: THEN
1838: x_ac_context := l_x_Line_Adj_rec.ac_context;
1839: END IF;
1837: THEN
1838: x_ac_context := l_x_Line_Adj_rec.ac_context;
1839: END IF;
1840: --uom begin
1841: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.operand_per_pqty,
1842: l_Line_Adj_rec.operand_per_pqty)
1843: THEN
1844: x_operand_per_pqty := l_x_Line_Adj_rec.operand_per_pqty;
1845: END IF;
1843: THEN
1844: x_operand_per_pqty := l_x_Line_Adj_rec.operand_per_pqty;
1845: END IF;
1846:
1847: IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.adjusted_amount_per_pqty,
1848: l_Line_Adj_rec.adjusted_amount_per_pqty)
1849: THEN
1850: x_adjusted_amount_per_pqty := l_x_Line_Adj_rec.adjusted_amount_per_pqty;
1851: END IF;
1859: ( p_Line_Adj_rec => l_x_Line_Adj_rec
1860: );
1861:
1862: -- Re-set the UI flag to FALSE
1863: OE_GLOBALS.G_UI_FLAG := FALSE;
1864:
1865: -- Set return status.
1866:
1867: x_return_status := FND_API.G_RET_STS_SUCCESS;
1880: EXCEPTION
1881:
1882: WHEN FND_API.G_EXC_ERROR THEN
1883:
1884: OE_GLOBALS.G_UI_FLAG := FALSE;
1885:
1886: x_return_status := FND_API.G_RET_STS_ERROR;
1887:
1888: -- Get message count and data
1895: ROLLBACK TO SAVEPOINT change_attributes;
1896:
1897: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1898:
1899: OE_GLOBALS.G_UI_FLAG := FALSE;
1900:
1901: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1902:
1903: -- Get message count and data
1910: ROLLBACK TO SAVEPOINT change_attributes;
1911:
1912: WHEN OTHERS THEN
1913:
1914: OE_GLOBALS.G_UI_FLAG := FALSE;
1915:
1916: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1917:
1918: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1976: l_Line_Adj_rec OE_Order_PUB.Line_Adj_Rec_Type;
1977: l_x_old_Line_Adj_rec OE_Order_PUB.Line_Adj_Rec_Type;
1978: l_Line_Adj_tbl OE_Order_PUB.Line_Adj_Tbl_Type;
1979: l_x_old_Line_Adj_tbl OE_Order_PUB.Line_Adj_Tbl_Type;
1980: l_control_rec OE_GLOBALS.Control_Rec_Type;
1981: l_return_status VARCHAR2(1);
1982: l_action_request_tbl OE_Order_PUB.Request_Tbl_Type;
1983: l_x_header_rec OE_Order_PUB.Header_Rec_Type;
1984: l_x_Header_Adj_rec OE_Order_PUB.Header_Adj_Rec_Type;
2014: oe_debug_pub.add( 'ENTERING OE_OE_FORM_LINE_ADJ.VALIDATE_AND_WRITE' , 1 ) ;
2015: END IF;
2016:
2017: -- Set the UI flag
2018: OE_GLOBALS.G_UI_FLAG := TRUE;
2019:
2020: -- Set control flags.
2021: l_control_rec.controlled_operation := TRUE;
2022: l_control_rec.validate_entity := TRUE;
2026: l_control_rec.clear_dependents := FALSE;
2027: l_control_rec.default_attributes := FALSE;
2028: l_control_rec.change_attributes := FALSE;
2029: l_control_rec.process := FALSE;
2030: l_control_rec.process_entity := OE_GLOBALS.G_ENTITY_LINE_ADJ;
2031:
2032:
2033: -- Instruct API to retain its caches
2034: l_control_rec.clear_api_cache := FALSE;
2056:
2057: -- Set Operation.
2058: -- IF FND_API.To_Boolean(l_Line_Adj_rec.db_flag) THEN
2059: IF FND_API.To_Boolean(l_x_Line_Adj_rec.db_flag) THEN
2060: l_x_Line_Adj_rec.operation := OE_GLOBALS.G_OPR_UPDATE;
2061: ELSE
2062: l_x_Line_Adj_rec.operation := OE_GLOBALS.G_OPR_CREATE;
2063: END IF;
2064:
2058: -- IF FND_API.To_Boolean(l_Line_Adj_rec.db_flag) THEN
2059: IF FND_API.To_Boolean(l_x_Line_Adj_rec.db_flag) THEN
2060: l_x_Line_Adj_rec.operation := OE_GLOBALS.G_OPR_UPDATE;
2061: ELSE
2062: l_x_Line_Adj_rec.operation := OE_GLOBALS.G_OPR_CREATE;
2063: END IF;
2064:
2065:
2066:
2068: l_x_Line_Adj_tbl(1) := l_x_Line_Adj_rec;
2069: l_x_old_Line_Adj_tbl(1) := l_x_old_Line_Adj_rec;
2070: /* IF p_ok_flag = 'Y' THEN
2071:
2072: l_request_rec.entity_code:= OE_GLOBALS.G_ENTITY_LINE_ADJ;
2073: l_request_rec.entity_id := l_line_adj_rec.line_id;
2074: l_request_rec.request_type := OE_GLOBALS.G_PRICE_ADJ;
2075: l_request_tbl(1) := l_request_rec;
2076:
2070: /* IF p_ok_flag = 'Y' THEN
2071:
2072: l_request_rec.entity_code:= OE_GLOBALS.G_ENTITY_LINE_ADJ;
2073: l_request_rec.entity_id := l_line_adj_rec.line_id;
2074: l_request_rec.request_type := OE_GLOBALS.G_PRICE_ADJ;
2075: l_request_tbl(1) := l_request_rec;
2076:
2077: END IF; */
2078:
2148:
2149: -- commented out by linda
2150: /****
2151: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Reqtype
2152: (p_request_type => OE_GLOBALS.G_CHECK_PERCENTAGE
2153: ,p_delete => FND_API.G_TRUE
2154: ,x_return_status => l_return_status
2155: );
2156: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2162:
2163: /***
2164: IF p_ok_flag = 'Y' THEN
2165: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Reqtype
2166: (p_request_type => OE_GLOBALS.G_PRICE_ADJ
2167: ,p_delete => FND_API.G_TRUE
2168: ,x_return_status => l_return_status
2169: );
2170: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2177:
2178: --TaxER start
2179: IF nvl(FND_PROFILE.VALUE('ONT_DELAY_TAX_CALC'), 'N') = 'N' THEN
2180: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Reqtype
2181: (p_request_type => OE_GLOBALS.G_TAX_LINE
2182: ,p_delete => FND_API.G_TRUE
2183: ,x_return_status => l_return_status
2184: );
2185: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2190: END IF;
2191: --TaxER end
2192: -- fixed bug 3271297
2193: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Reqtype
2194: (p_request_type => OE_GLOBALS.G_VERIFY_PAYMENT
2195: ,p_delete => FND_API.G_TRUE
2196: ,x_return_status => l_return_status
2197: );
2198: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2216: -- Clear Line_Adj record cache
2217: Clear_Line_Adj;
2218:
2219: -- Re-set the UI flag to FALSE
2220: OE_GLOBALS.G_UI_FLAG := FALSE;
2221:
2222: -- Set return status.
2223:
2224: x_return_status := FND_API.G_RET_STS_SUCCESS;
2237: EXCEPTION
2238:
2239: WHEN FND_API.G_EXC_ERROR THEN
2240:
2241: OE_GLOBALS.G_UI_FLAG := FALSE;
2242:
2243: x_return_status := FND_API.G_RET_STS_ERROR;
2244:
2245: -- Get message count and data
2252: ROLLBACK TO SAVEPOINT validate_and_write;
2253:
2254: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2255:
2256: OE_GLOBALS.G_UI_FLAG := FALSE;
2257:
2258: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2259:
2260: -- Get message count and data
2267: ROLLBACK TO SAVEPOINT validate_and_write;
2268:
2269: WHEN OTHERS THEN
2270:
2271: OE_GLOBALS.G_UI_FLAG := FALSE;
2272:
2273: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2274:
2275: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2307: )
2308: IS
2309: l_Line_Adj_rec OE_Order_PUB.Line_Adj_Rec_Type;
2310: l_Line_Adj_tbl OE_Order_PUB.Line_Adj_Tbl_Type;
2311: l_control_rec OE_GLOBALS.Control_Rec_Type;
2312: l_return_status VARCHAR2(1);
2313: l_action_request_tbl OE_Order_PUB.Request_Tbl_Type;
2314: l_x_header_rec OE_Order_PUB.Header_Rec_Type;
2315: l_x_Header_Adj_rec OE_Order_PUB.Header_Adj_Rec_Type;
2352: oe_debug_pub.add( 'ENTERING OE_OE_FORM_LINE_ADJ.DELETE_ROW' , 1 ) ;
2353: END IF;
2354:
2355: -- Set the UI flag
2356: OE_GLOBALS.G_UI_FLAG := TRUE;
2357:
2358: -- Set control flags.
2359:
2360: l_control_rec.controlled_operation := TRUE;
2381: );
2382:
2383:
2384: -- Set Operation.
2385: l_x_Line_Adj_rec.operation := OE_GLOBALS.G_OPR_DELETE;
2386:
2387:
2388: -- Populate Line_Adj table
2389: l_x_Line_Adj_tbl(1) := l_x_Line_Adj_rec;
2485: -- Clear Line_Adj record cache
2486: Clear_Line_Adj;
2487:
2488: -- Re-set the UI flag to FALSE
2489: OE_GLOBALS.G_UI_FLAG := FALSE;
2490:
2491: -- Set return status.
2492:
2493: x_return_status := FND_API.G_RET_STS_SUCCESS;
2506: EXCEPTION
2507:
2508: WHEN FND_API.G_EXC_ERROR THEN
2509:
2510: OE_GLOBALS.G_UI_FLAG := FALSE;
2511:
2512: x_return_status := FND_API.G_RET_STS_ERROR;
2513:
2514: -- Get message count and data
2519: );
2520:
2521: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2522:
2523: OE_GLOBALS.G_UI_FLAG := FALSE;
2524:
2525: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2526:
2527: -- Get message count and data
2532: );
2533:
2534: WHEN OTHERS THEN
2535:
2536: OE_GLOBALS.G_UI_FLAG := FALSE;
2537:
2538: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2539:
2540: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2569: , p_header_id IN NUMBER
2570: , p_line_id IN NUMBER
2571: )
2572: IS
2573: l_control_rec OE_GLOBALS.Control_Rec_Type;
2574: l_return_status VARCHAR2(1);
2575: l_request_rec OE_Order_Pub.Request_Rec_Type;
2576: l_request_tbl OE_Order_Pub.Request_Tbl_Type;
2577: l_action_request_tbl OE_Order_PUB.Request_Tbl_Type;
2608: END IF;
2609:
2610: /*
2611: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Reqtype
2612: (p_request_type => OE_GLOBALS.G_PRICE_ADJ
2613: ,p_delete => FND_API.G_TRUE
2614: ,x_return_status => l_return_status
2615: );
2616: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2620: END IF;
2621:
2622: -- process delayed requests for tax calculation.
2623: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Reqtype
2624: (p_request_type => OE_GLOBALS.G_TAX_LINE
2625: ,p_delete => FND_API.G_TRUE
2626: ,x_return_status => l_return_status
2627: );
2628: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2633:
2634: IF OE_Commitment_Pvt.Do_Commitment_Sequencing THEN
2635: -- process delayed requests for commitment calculation.
2636: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Reqtype
2637: (p_request_type => OE_GLOBALS.G_CALCULATE_COMMITMENT
2638: ,p_delete => FND_API.G_TRUE
2639: ,x_return_status => l_return_status
2640: );
2641: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2646: END IF;
2647:
2648: oe_debug_pub.ADD('Processing delayed request for Verify Payment for price adjustments changes.', 3);
2649: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Reqtype
2650: (p_request_type => OE_GLOBALS.G_VERIFY_PAYMENT
2651: ,p_delete => FND_API.G_TRUE
2652: ,x_return_status => l_return_status
2653: );
2654:
2678: Return;
2679:
2680: /********************************************************************
2681: -- Set the UI flag
2682: OE_GLOBALS.G_UI_FLAG := TRUE;
2683:
2684: -- Set control flags.
2685:
2686: l_control_rec.controlled_operation := TRUE;
2684: -- Set control flags.
2685:
2686: l_control_rec.controlled_operation := TRUE;
2687: l_control_rec.process := TRUE;
2688: l_control_rec.process_entity := OE_GLOBALS.G_ENTITY_LINE_ADJ;
2689:
2690: l_control_rec.check_security := FALSE;
2691: l_control_rec.clear_dependents := FALSE;
2692: l_control_rec.default_attributes := FALSE;
2700: l_control_rec.clear_api_requests := FALSE;
2701:
2702:
2703: -- Assign requests that are to be executed
2704: -- l_request_rec.request_type := OE_GLOBALS.G_CHECK_PERCENTAGE;
2705: -- l_request_rec.entity_code := OE_GLOBALS.G_ENTITY_LINE_ADJ;
2706: -- l_request_rec.entity_id := p_line_id;
2707: -- l_request_rec.param1 := p_header_id;
2708: -- l_request_tbl(1) := l_request_rec;
2701:
2702:
2703: -- Assign requests that are to be executed
2704: -- l_request_rec.request_type := OE_GLOBALS.G_CHECK_PERCENTAGE;
2705: -- l_request_rec.entity_code := OE_GLOBALS.G_ENTITY_LINE_ADJ;
2706: -- l_request_rec.entity_id := p_line_id;
2707: -- l_request_rec.param1 := p_header_id;
2708: -- l_request_tbl(1) := l_request_rec;
2709:
2706: -- l_request_rec.entity_id := p_line_id;
2707: -- l_request_rec.param1 := p_header_id;
2708: -- l_request_tbl(1) := l_request_rec;
2709:
2710: -- l_request_rec.request_type := OE_GLOBALS.G_PRICE_ADJ;
2711: -- l_request_rec.entity_code := OE_GLOBALS.G_ENTITY_LINE_ADJ;
2712: -- l_request_rec.entity_id := p_line_id;
2713: -- l_request_tbl(2) := l_request_rec;
2714:
2707: -- l_request_rec.param1 := p_header_id;
2708: -- l_request_tbl(1) := l_request_rec;
2709:
2710: -- l_request_rec.request_type := OE_GLOBALS.G_PRICE_ADJ;
2711: -- l_request_rec.entity_code := OE_GLOBALS.G_ENTITY_LINE_ADJ;
2712: -- l_request_rec.entity_id := p_line_id;
2713: -- l_request_tbl(2) := l_request_rec;
2714:
2715:
2751: END IF;
2752:
2753:
2754: -- Re-set the UI flag to FALSE
2755: OE_GLOBALS.G_UI_FLAG := FALSE;
2756:
2757: -- Set return status.
2758:
2759: x_return_status := FND_API.G_RET_STS_SUCCESS;
2772: EXCEPTION
2773:
2774: WHEN FND_API.G_EXC_ERROR THEN
2775:
2776: OE_GLOBALS.G_UI_FLAG := FALSE;
2777:
2778: x_return_status := FND_API.G_RET_STS_ERROR;
2779:
2780: -- Get message count and data
2785: );
2786:
2787: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2788:
2789: OE_GLOBALS.G_UI_FLAG := FALSE;
2790:
2791: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2792:
2793: -- Get message count and data
2798: );
2799:
2800: WHEN OTHERS THEN
2801:
2802: OE_GLOBALS.G_UI_FLAG := FALSE;
2803:
2804: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2805:
2806: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2845: l_x_old_Line_Adj_rec OE_Order_PUB.Line_Adj_Rec_Type;
2846: l_Line_Adj_tbl OE_Order_PUB.Line_Adj_Tbl_Type;
2847: l_x_old_Line_Adj_tbl OE_Order_PUB.Line_Adj_Tbl_Type;
2848: l_Line_Adj_val_rec OE_Order_PUB.Line_Adj_Val_Rec_Type;
2849: l_control_rec OE_GLOBALS.Control_Rec_Type;
2850: l_return_status VARCHAR2(1);
2851: l_action_request_tbl OE_Order_PUB.Request_Tbl_Type;
2852: l_x_header_rec OE_Order_PUB.Header_Rec_Type;
2853: l_x_Header_Adj_tbl OE_Order_PUB.Header_Adj_Tbl_Type;
2878: oe_debug_pub.add( 'ENTERING OE_OE_FORM_LINE_ADJ.REPLACE_ATTRIBUTES' , 1 ) ;
2879: END IF;
2880:
2881: -- Set the UI flag
2882: OE_GLOBALS.G_UI_FLAG := TRUE;
2883:
2884: -- Set control flags.
2885: l_control_rec.controlled_operation := TRUE;
2886: l_control_rec.clear_dependents := FALSE;
2978: If p_change_reason_text Is Not Null Then
2979: l_x_line_adj_rec.change_reason_text := p_change_reason_text;
2980: End If;
2981:
2982: l_x_Line_Adj_rec.operation := OE_GLOBALS.G_OPR_UPDATE;
2983:
2984: l_x_Line_Adj_tbl(1) := l_x_Line_Adj_rec;
2985: -- commented to fix bug 1717501 Begin
2986: -- l_x_old_Line_Adj_rec := l_x_Line_Adj_rec;
3022: p_db_record => TRUE
3023: );
3024:
3025: -- Re-set the UI flag to FALSE
3026: OE_GLOBALS.G_UI_FLAG := FALSE;
3027:
3028: -- Set return status.
3029:
3030: x_return_status := FND_API.G_RET_STS_SUCCESS;
3043: EXCEPTION
3044:
3045: WHEN FND_API.G_EXC_ERROR THEN
3046:
3047: OE_GLOBALS.G_UI_FLAG := FALSE;
3048:
3049: x_return_status := FND_API.G_RET_STS_ERROR;
3050:
3051: -- Get message count and data
3058: ROLLBACK TO SAVEPOINT replace_attributes;
3059:
3060: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3061:
3062: OE_GLOBALS.G_UI_FLAG := FALSE;
3063:
3064: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3065:
3066: -- Get message count and data
3073: ROLLBACK TO SAVEPOINT replace_attributes;
3074:
3075: WHEN OTHERS THEN
3076:
3077: OE_GLOBALS.G_UI_FLAG := FALSE;
3078:
3079: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3080:
3081: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3129: END IF;
3130:
3131: -- Load Line_Adj record
3132:
3133: l_x_Line_Adj_rec.operation := OE_GLOBALS.G_OPR_LOCK;
3134: l_x_Line_Adj_rec.lock_control := p_lock_control;
3135: l_x_Line_Adj_rec.price_adjustment_id := p_price_adjustment_id;
3136:
3137: OE_Line_Adj_Util.Lock_Row
3305: ,x_msg_data OUT NOCOPY VARCHAR2
3306:
3307: ,x_price_adjustment_id OUT NOCOPY NUMBER) Is
3308:
3309: l_Control_Rec OE_GLOBALS.Control_Rec_Type;
3310: l_line_adj_tbl Oe_Order_Pub.line_adj_tbl_type;
3311: l_line_rec Oe_Order_Pub.line_rec_type;
3312: l_dummy_tbl Oe_Order_Pub.line_adj_tbl_type;
3313: --
3323: --l_control_rec.change_attributes := FALSE;
3324: l_control_rec.change_attributes := TRUE;
3325:
3326: -- lagrawal Bug 3673050
3327: OE_GLOBALS.G_UI_FLAG := TRUE;
3328:
3329: If l_line_adj_tbl(1).operand_per_pqty is NULL Then
3330: If l_line_adj_tbl(1).line_id is not Null
3331: and l_line_adj_tbl(1).list_line_type_code Not In ('%','LUMPSUM')
3362: l_line_adj_tbl(1).adjusted_amount_per_pqty:=l_line_adj_tbl(1).adjusted_amount;
3363: End If;
3364: End If;
3365:
3366: l_line_adj_tbl(1).operation := OE_GLOBALS.G_OPR_CREATE;
3367:
3368:
3369: IF l_line_adj_tbl(1).range_break_quantity IS NULL
3370: AND l_line_adj_tbl(1).list_line_type_code = 'PBH'
3384: AND rownum = 1;
3385:
3386: EXCEPTION WHEN OTHERS THEN
3387: -- lagrawal bug 3673050
3388: OE_GLOBALS.G_UI_FLAG := FALSE;
3389: IF l_debug_level > 0 THEN
3390: oe_debug_pub.add( ' IN OE_OE_FORM_LINE_ADJ.INSER_ROW:'||SQLERRM ) ;
3391: END IF;
3392: END;
3417: p_x_old_line_adj_tbl => l_dummy_tbl);
3418: x_price_adjustment_id := l_line_adj_tbl(1).price_adjustment_id;
3419:
3420: -- lagrawal bug 3673050
3421: OE_GLOBALS.G_UI_FLAG := FALSE;
3422: Exception
3423: --Start for bug 12907745
3424: WHEN FND_API.G_EXC_ERROR THEN
3425:
3422: Exception
3423: --Start for bug 12907745
3424: WHEN FND_API.G_EXC_ERROR THEN
3425:
3426: OE_GLOBALS.G_UI_FLAG := FALSE;
3427: oe_debug_pub.add( 'IN FND_API.G_EXC_ERROR');
3428: x_return_status := FND_API.G_RET_STS_ERROR;
3429: -- Get message count and data
3430: OE_MSG_PUB.Count_And_Get
3434: -- end for bug 12907745
3435:
3436: WHEN OTHERS THEN
3437:
3438: OE_GLOBALS.G_UI_FLAG := FALSE;
3439:
3440: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3441:
3442: OE_MSG_PUB.Add_Exc_Msg
3631: G_PRICE_ADJ request should be logged against LINE entity, not
3632: against LINE_ADJ entity
3633: */
3634: oe_delayed_requests_pvt.log_request(
3635: p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
3636: p_entity_id => p_line_id_tbl(i),
3637: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE_ADJ,
3638: p_requesting_entity_id => p_line_id_tbl(i),
3639: p_request_type => OE_GLOBALS.G_PRICE_ADJ,
3633: */
3634: oe_delayed_requests_pvt.log_request(
3635: p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
3636: p_entity_id => p_line_id_tbl(i),
3637: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE_ADJ,
3638: p_requesting_entity_id => p_line_id_tbl(i),
3639: p_request_type => OE_GLOBALS.G_PRICE_ADJ,
3640: x_return_status => l_return_status);
3641: End If; --end if for create_adj_no_validate
3635: p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
3636: p_entity_id => p_line_id_tbl(i),
3637: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE_ADJ,
3638: p_requesting_entity_id => p_line_id_tbl(i),
3639: p_request_type => OE_GLOBALS.G_PRICE_ADJ,
3640: x_return_status => l_return_status);
3641: End If; --end if for create_adj_no_validate
3642: End If;
3643: Elsif p_delete_flag = 'Y' Then
3651: G_PRICE_ADJ request should be logged against LINE entity,
3652: not against LINE_ADJ entity
3653: */
3654: oe_delayed_requests_pvt.log_request(
3655: p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
3656: p_entity_id => p_line_id_tbl(i),
3657: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE_ADJ,
3658: p_requesting_entity_id => p_line_id_tbl(i),
3659: p_request_type => OE_GLOBALS.G_PRICE_ADJ,
3653: */
3654: oe_delayed_requests_pvt.log_request(
3655: p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
3656: p_entity_id => p_line_id_tbl(i),
3657: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE_ADJ,
3658: p_requesting_entity_id => p_line_id_tbl(i),
3659: p_request_type => OE_GLOBALS.G_PRICE_ADJ,
3660: x_return_status => l_return_status);
3661:
3655: p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
3656: p_entity_id => p_line_id_tbl(i),
3657: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE_ADJ,
3658: p_requesting_entity_id => p_line_id_tbl(i),
3659: p_request_type => OE_GLOBALS.G_PRICE_ADJ,
3660: x_return_status => l_return_status);
3661:
3662: End If;
3663: End If;