141: THEN
142: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
143: END IF;
144:
145: PO_CORE_S.get_document_ids(
146: p_doc_type => p_document_type
147: , p_doc_level => p_document_level
148: , p_doc_level_id_tbl => po_tbl_number( p_document_level_id )
149: , x_doc_id_tbl => l_document_id_tbl
1280: -- API version expected by the caller
1281: --p_po_line_id
1282: -- ID of a Standard PO line
1283: --p_from_price_break
1284: -- PO_CORE_S.G_PARAMETER_YES means that the price update is coming from a
1285: -- price break;
1286: -- PO_CORE_S.G_PARAMETER_NO means that the price update is coming from the user.
1287: --p_add_reasons_to_msg_list
1288: -- (Only applies if x_price_updateable = PO_CORE_S.G_PARAMETER_NO.)
1282: -- ID of a Standard PO line
1283: --p_from_price_break
1284: -- PO_CORE_S.G_PARAMETER_YES means that the price update is coming from a
1285: -- price break;
1286: -- PO_CORE_S.G_PARAMETER_NO means that the price update is coming from the user.
1287: --p_add_reasons_to_msg_list
1288: -- (Only applies if x_price_updateable = PO_CORE_S.G_PARAMETER_NO.)
1289: -- If PO_CORE_S.G_PARAMETER_YES, the API will add the reasons why price updates
1290: -- are not allowed to the standard API message list; otherwise, the API will not
1284: -- PO_CORE_S.G_PARAMETER_YES means that the price update is coming from a
1285: -- price break;
1286: -- PO_CORE_S.G_PARAMETER_NO means that the price update is coming from the user.
1287: --p_add_reasons_to_msg_list
1288: -- (Only applies if x_price_updateable = PO_CORE_S.G_PARAMETER_NO.)
1289: -- If PO_CORE_S.G_PARAMETER_YES, the API will add the reasons why price updates
1290: -- are not allowed to the standard API message list; otherwise, the API will not
1291: -- add the reasons to the message list.
1292: --OUT:
1285: -- price break;
1286: -- PO_CORE_S.G_PARAMETER_NO means that the price update is coming from the user.
1287: --p_add_reasons_to_msg_list
1288: -- (Only applies if x_price_updateable = PO_CORE_S.G_PARAMETER_NO.)
1289: -- If PO_CORE_S.G_PARAMETER_YES, the API will add the reasons why price updates
1290: -- are not allowed to the standard API message list; otherwise, the API will not
1291: -- add the reasons to the message list.
1292: --OUT:
1293: --x_return_status
1294: -- FND_API.G_RET_STS_SUCCESS if the API completed successfully.
1295: -- FND_API.G_RET_STS_ERROR if there was an error.
1296: -- FND_API.G_RET_STS_UNEXP_ERROR if there was an unexpected error.
1297: --x_price_updateable
1298: -- PO_CORE_S.G_PARAMETER_YES if price updates are allowed on this shipment,
1299: -- PO_CORE_S.G_PARAMETER_NO otherwise
1300: --x_retroactive_price_change
1301: -- PO_CORE_S.G_PARAMETER_YES if a price update on this PO line would be
1302: -- considered a retroactive price change, PO_CORE_S.G_PARAMETER_NO otherwise.
1295: -- FND_API.G_RET_STS_ERROR if there was an error.
1296: -- FND_API.G_RET_STS_UNEXP_ERROR if there was an unexpected error.
1297: --x_price_updateable
1298: -- PO_CORE_S.G_PARAMETER_YES if price updates are allowed on this shipment,
1299: -- PO_CORE_S.G_PARAMETER_NO otherwise
1300: --x_retroactive_price_change
1301: -- PO_CORE_S.G_PARAMETER_YES if a price update on this PO line would be
1302: -- considered a retroactive price change, PO_CORE_S.G_PARAMETER_NO otherwise.
1303: --End of Comments
1297: --x_price_updateable
1298: -- PO_CORE_S.G_PARAMETER_YES if price updates are allowed on this shipment,
1299: -- PO_CORE_S.G_PARAMETER_NO otherwise
1300: --x_retroactive_price_change
1301: -- PO_CORE_S.G_PARAMETER_YES if a price update on this PO line would be
1302: -- considered a retroactive price change, PO_CORE_S.G_PARAMETER_NO otherwise.
1303: --End of Comments
1304: -------------------------------------------------------------------------------
1305: PROCEDURE check_std_po_price_updateable (
1298: -- PO_CORE_S.G_PARAMETER_YES if price updates are allowed on this shipment,
1299: -- PO_CORE_S.G_PARAMETER_NO otherwise
1300: --x_retroactive_price_change
1301: -- PO_CORE_S.G_PARAMETER_YES if a price update on this PO line would be
1302: -- considered a retroactive price change, PO_CORE_S.G_PARAMETER_NO otherwise.
1303: --End of Comments
1304: -------------------------------------------------------------------------------
1305: PROCEDURE check_std_po_price_updateable (
1306: p_api_version IN NUMBER,
1343: END IF;
1344: x_return_status := FND_API.G_RET_STS_SUCCESS;
1345:
1346: -- Default: price updates allowed, no retroactive price change.
1347: x_price_updateable := PO_CORE_S.G_PARAMETER_YES;
1348: x_retroactive_price_change := PO_CORE_S.G_PARAMETER_NO;
1349:
1350: l_progress := '010';
1351:
1344: x_return_status := FND_API.G_RET_STS_SUCCESS;
1345:
1346: -- Default: price updates allowed, no retroactive price change.
1347: x_price_updateable := PO_CORE_S.G_PARAMETER_YES;
1348: x_retroactive_price_change := PO_CORE_S.G_PARAMETER_NO;
1349:
1350: l_progress := '010';
1351:
1352: --
1393: ----------------------------------------------------------------------------
1394: l_progress := '020';
1395: IF (PO_RETROACTIVE_PRICING_PVT.get_retro_mode() = 'ALL_RELEASES') AND
1396: (l_archive_mode_std_po = 'APPROVE' ) AND
1397: not (PO_CORE_S.is_encumbrance_on(p_doc_type => 'PO',
1398: p_org_id => l_current_org_id)) AND
1399: -- Bug 3231062
1400: (PO_RETROACTIVE_PRICING_PVT.Is_Retro_Project_Allowed(
1401: p_std_po_price_change => 'Y',
1402: p_po_line_id => p_po_line_id,
1403: p_po_line_loc_id => null ) = 'Y')
1404: THEN
1405: -- Allow price updates. Remember this as a retroactive price change.
1406: x_retroactive_price_change := PO_CORE_S.G_PARAMETER_YES;
1407:
1408: -- Bug 3339149
1409: IF (PO_RETROACTIVE_PRICING_PVT.Is_Adjustment_Account_Valid(
1410: p_std_po_price_change => 'Y',
1411: p_po_line_id => p_po_line_id,
1412: p_po_line_loc_id => null ) = 'N')
1413: THEN
1414:
1415: x_price_updateable := PO_CORE_S.G_PARAMETER_NO;
1416: x_retroactive_price_change := PO_CORE_S.G_PARAMETER_NO;
1417:
1418: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN
1419: FND_MESSAGE.set_name('PO','PO_RETRO_PRICING_NOT_ALLOWED');
1412: p_po_line_loc_id => null ) = 'N')
1413: THEN
1414:
1415: x_price_updateable := PO_CORE_S.G_PARAMETER_NO;
1416: x_retroactive_price_change := PO_CORE_S.G_PARAMETER_NO;
1417:
1418: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN
1419: FND_MESSAGE.set_name('PO','PO_RETRO_PRICING_NOT_ALLOWED');
1420: FND_MSG_PUB.add;
1414:
1415: x_price_updateable := PO_CORE_S.G_PARAMETER_NO;
1416: x_retroactive_price_change := PO_CORE_S.G_PARAMETER_NO;
1417:
1418: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN
1419: FND_MESSAGE.set_name('PO','PO_RETRO_PRICING_NOT_ALLOWED');
1420: FND_MSG_PUB.add;
1421: END IF;
1422: END IF;
1431: AND ((NVL(quantity_received,0) > 0 AND accrue_on_receipt_flag = 'Y')
1432: OR (NVL(quantity_billed,0) > 0));
1433:
1434: IF (l_accrue_invoice_count > 0) THEN
1435: x_price_updateable := PO_CORE_S.G_PARAMETER_NO;
1436: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN
1437: FND_MESSAGE.set_name('PO','PO_CHNG_PRICE_RESTRICTED');
1438: FND_MSG_PUB.add;
1439: END IF;
1432: OR (NVL(quantity_billed,0) > 0));
1433:
1434: IF (l_accrue_invoice_count > 0) THEN
1435: x_price_updateable := PO_CORE_S.G_PARAMETER_NO;
1436: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN
1437: FND_MESSAGE.set_name('PO','PO_CHNG_PRICE_RESTRICTED');
1438: FND_MSG_PUB.add;
1439: END IF;
1440: END IF;
1446: -- Allow Price Override set to No.
1447: ----------------------------------------------------------------------------
1448: l_progress := '030';
1449: IF (l_has_ga_ref = 'Y')
1450: AND (NVL(p_from_price_break, PO_CORE_S.G_PARAMETER_NO)
1451: = PO_CORE_S.G_PARAMETER_NO)
1452: AND (l_allow_price_override = 'N') THEN
1453: x_price_updateable := PO_CORE_S.G_PARAMETER_NO;
1454: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN
1447: ----------------------------------------------------------------------------
1448: l_progress := '030';
1449: IF (l_has_ga_ref = 'Y')
1450: AND (NVL(p_from_price_break, PO_CORE_S.G_PARAMETER_NO)
1451: = PO_CORE_S.G_PARAMETER_NO)
1452: AND (l_allow_price_override = 'N') THEN
1453: x_price_updateable := PO_CORE_S.G_PARAMETER_NO;
1454: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN
1455: FND_MESSAGE.set_name('PO','PO_CHNG_GA_NO_PRICE_OVERRIDE');
1449: IF (l_has_ga_ref = 'Y')
1450: AND (NVL(p_from_price_break, PO_CORE_S.G_PARAMETER_NO)
1451: = PO_CORE_S.G_PARAMETER_NO)
1452: AND (l_allow_price_override = 'N') THEN
1453: x_price_updateable := PO_CORE_S.G_PARAMETER_NO;
1454: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN
1455: FND_MESSAGE.set_name('PO','PO_CHNG_GA_NO_PRICE_OVERRIDE');
1456: FND_MSG_PUB.add;
1457: END IF;
1450: AND (NVL(p_from_price_break, PO_CORE_S.G_PARAMETER_NO)
1451: = PO_CORE_S.G_PARAMETER_NO)
1452: AND (l_allow_price_override = 'N') THEN
1453: x_price_updateable := PO_CORE_S.G_PARAMETER_NO;
1454: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN
1455: FND_MESSAGE.set_name('PO','PO_CHNG_GA_NO_PRICE_OVERRIDE');
1456: FND_MSG_PUB.add;
1457: END IF;
1458: END IF; -- l_has_ga_ref
1475: OR NVL(quantity_billed,0) > 0
1476: );
1477:
1478: IF (l_accrue_invoice_count > 0) THEN
1479: x_price_updateable := PO_CORE_S.G_PARAMETER_NO;
1480: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN
1481: FND_MESSAGE.set_name('PO','PO_CHNG_PRICE_RESTRICTED');
1482: FND_MSG_PUB.add;
1483: END IF;
1476: );
1477:
1478: IF (l_accrue_invoice_count > 0) THEN
1479: x_price_updateable := PO_CORE_S.G_PARAMETER_NO;
1480: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN
1481: FND_MESSAGE.set_name('PO','PO_CHNG_PRICE_RESTRICTED');
1482: FND_MSG_PUB.add;
1483: END IF;
1484: END IF;
1505: AND RTI.po_line_location_id = PLL.line_location_id -- JOIN
1506: AND RTI.transaction_status_code = 'PENDING' );
1507:
1508: IF (l_pending_rcv_transactions > 0) THEN
1509: x_price_updateable := PO_CORE_S.G_PARAMETER_NO;
1510: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN
1511: FND_MESSAGE.set_name('PO','PO_RCV_TRANSACTION_PENDING');
1512: FND_MSG_PUB.add;
1513: END IF;
1506: AND RTI.transaction_status_code = 'PENDING' );
1507:
1508: IF (l_pending_rcv_transactions > 0) THEN
1509: x_price_updateable := PO_CORE_S.G_PARAMETER_NO;
1510: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN
1511: FND_MESSAGE.set_name('PO','PO_RCV_TRANSACTION_PENDING');
1512: FND_MSG_PUB.add;
1513: END IF;
1514: END IF;
1552: -- API version expected by the caller
1553: --p_line_location_id
1554: -- ID of a release shipment
1555: --p_from_price_break
1556: -- PO_CORE_S.G_PARAMETER_YES means that the price update is coming from a
1557: -- price break;
1558: -- PO_CORE_S.G_PARAMETER_NO means that the price update is coming from the user.
1559: --p_add_reasons_to_msg_list
1560: -- (Only applies if x_price_updateable = PO_CORE_S.G_PARAMETER_NO.)
1554: -- ID of a release shipment
1555: --p_from_price_break
1556: -- PO_CORE_S.G_PARAMETER_YES means that the price update is coming from a
1557: -- price break;
1558: -- PO_CORE_S.G_PARAMETER_NO means that the price update is coming from the user.
1559: --p_add_reasons_to_msg_list
1560: -- (Only applies if x_price_updateable = PO_CORE_S.G_PARAMETER_NO.)
1561: -- If PO_CORE_S.G_PARAMETER_YES, the API will add the reasons why price updates
1562: -- are not allowed to the standard API message list; otherwise, the API will not
1556: -- PO_CORE_S.G_PARAMETER_YES means that the price update is coming from a
1557: -- price break;
1558: -- PO_CORE_S.G_PARAMETER_NO means that the price update is coming from the user.
1559: --p_add_reasons_to_msg_list
1560: -- (Only applies if x_price_updateable = PO_CORE_S.G_PARAMETER_NO.)
1561: -- If PO_CORE_S.G_PARAMETER_YES, the API will add the reasons why price updates
1562: -- are not allowed to the standard API message list; otherwise, the API will not
1563: -- add the reasons to the message list.
1564: --OUT:
1557: -- price break;
1558: -- PO_CORE_S.G_PARAMETER_NO means that the price update is coming from the user.
1559: --p_add_reasons_to_msg_list
1560: -- (Only applies if x_price_updateable = PO_CORE_S.G_PARAMETER_NO.)
1561: -- If PO_CORE_S.G_PARAMETER_YES, the API will add the reasons why price updates
1562: -- are not allowed to the standard API message list; otherwise, the API will not
1563: -- add the reasons to the message list.
1564: --OUT:
1565: --x_return_status
1566: -- FND_API.G_RET_STS_SUCCESS if the API completed successfully.
1567: -- FND_API.G_RET_STS_ERROR if there was an error.
1568: -- FND_API.G_RET_STS_UNEXP_ERROR if there was an unexpected error.
1569: --x_price_updateable
1570: -- PO_CORE_S.G_PARAMETER_YES if price updates are allowed on this shipment,
1571: -- PO_CORE_S.G_PARAMETER_NO otherwise
1572: --x_retroactive_price_change
1573: -- PO_CORE_S.G_PARAMETER_YES if a price update on this release shipment would
1574: -- be considered a retroactive price change, PO_CORE_S.G_PARAMETER_NO otherwise.
1567: -- FND_API.G_RET_STS_ERROR if there was an error.
1568: -- FND_API.G_RET_STS_UNEXP_ERROR if there was an unexpected error.
1569: --x_price_updateable
1570: -- PO_CORE_S.G_PARAMETER_YES if price updates are allowed on this shipment,
1571: -- PO_CORE_S.G_PARAMETER_NO otherwise
1572: --x_retroactive_price_change
1573: -- PO_CORE_S.G_PARAMETER_YES if a price update on this release shipment would
1574: -- be considered a retroactive price change, PO_CORE_S.G_PARAMETER_NO otherwise.
1575: --End of Comments
1569: --x_price_updateable
1570: -- PO_CORE_S.G_PARAMETER_YES if price updates are allowed on this shipment,
1571: -- PO_CORE_S.G_PARAMETER_NO otherwise
1572: --x_retroactive_price_change
1573: -- PO_CORE_S.G_PARAMETER_YES if a price update on this release shipment would
1574: -- be considered a retroactive price change, PO_CORE_S.G_PARAMETER_NO otherwise.
1575: --End of Comments
1576: -------------------------------------------------------------------------------
1577: PROCEDURE check_rel_price_updateable (
1570: -- PO_CORE_S.G_PARAMETER_YES if price updates are allowed on this shipment,
1571: -- PO_CORE_S.G_PARAMETER_NO otherwise
1572: --x_retroactive_price_change
1573: -- PO_CORE_S.G_PARAMETER_YES if a price update on this release shipment would
1574: -- be considered a retroactive price change, PO_CORE_S.G_PARAMETER_NO otherwise.
1575: --End of Comments
1576: -------------------------------------------------------------------------------
1577: PROCEDURE check_rel_price_updateable (
1578: p_api_version IN NUMBER,
1613: END IF;
1614: x_return_status := FND_API.G_RET_STS_SUCCESS;
1615:
1616: -- Default: price updates allowed, no retroactive price change.
1617: x_price_updateable := PO_CORE_S.G_PARAMETER_YES;
1618: x_retroactive_price_change := PO_CORE_S.G_PARAMETER_NO;
1619:
1620: l_progress := '010';
1621:
1614: x_return_status := FND_API.G_RET_STS_SUCCESS;
1615:
1616: -- Default: price updates allowed, no retroactive price change.
1617: x_price_updateable := PO_CORE_S.G_PARAMETER_YES;
1618: x_retroactive_price_change := PO_CORE_S.G_PARAMETER_NO;
1619:
1620: l_progress := '010';
1621:
1622: -- SQL What: Retrieve the GA flag and the Allow Price Override flag
1652: ----------------------------------------------------------------------------
1653: l_progress := '020';
1654: IF (PO_RETROACTIVE_PRICING_PVT.get_retro_mode() = 'ALL_RELEASES') AND
1655: (l_archive_mode_rel = 'APPROVE') AND
1656: not (PO_CORE_S.is_encumbrance_on(p_doc_type => 'RELEASE',
1657: p_org_id => l_current_org_id)) AND
1658: -- Bug 3231062
1659: (PO_RETROACTIVE_PRICING_PVT.Is_Retro_Project_Allowed(
1660: p_std_po_price_change => 'N',
1661: p_po_line_id => null,
1662: p_po_line_loc_id => p_line_location_id ) = 'Y')
1663: THEN
1664: -- Allow price updates. Remember this as a retroactive price change.
1665: x_retroactive_price_change := PO_CORE_S.G_PARAMETER_YES;
1666:
1667: -- Bug 3339149
1668: IF (PO_RETROACTIVE_PRICING_PVT.Is_Adjustment_Account_Valid(
1669: p_std_po_price_change => 'N',
1670: p_po_line_id => null,
1671: p_po_line_loc_id => p_line_location_id ) = 'N')
1672: THEN
1673:
1674: x_price_updateable := PO_CORE_S.G_PARAMETER_NO;
1675: x_retroactive_price_change := PO_CORE_S.G_PARAMETER_NO;
1676:
1677: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN
1678: FND_MESSAGE.set_name('PO','PO_RETRO_PRICING_NOT_ALLOWED');
1671: p_po_line_loc_id => p_line_location_id ) = 'N')
1672: THEN
1673:
1674: x_price_updateable := PO_CORE_S.G_PARAMETER_NO;
1675: x_retroactive_price_change := PO_CORE_S.G_PARAMETER_NO;
1676:
1677: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN
1678: FND_MESSAGE.set_name('PO','PO_RETRO_PRICING_NOT_ALLOWED');
1679: FND_MSG_PUB.add;
1673:
1674: x_price_updateable := PO_CORE_S.G_PARAMETER_NO;
1675: x_retroactive_price_change := PO_CORE_S.G_PARAMETER_NO;
1676:
1677: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN
1678: FND_MESSAGE.set_name('PO','PO_RETRO_PRICING_NOT_ALLOWED');
1679: FND_MSG_PUB.add;
1680: END IF;
1681: END IF;
1682:
1683: ELSE
1684: IF ((l_qty_received > 0) AND (l_accrue_flag = 'Y'))
1685: OR (l_qty_billed > 0) THEN
1686: x_price_updateable := PO_CORE_S.G_PARAMETER_NO;
1687: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN
1688: FND_MESSAGE.set_name('PO','PO_CHNG_PRICE_RESTRICTED');
1689: FND_MSG_PUB.add;
1690: END IF;
1683: ELSE
1684: IF ((l_qty_received > 0) AND (l_accrue_flag = 'Y'))
1685: OR (l_qty_billed > 0) THEN
1686: x_price_updateable := PO_CORE_S.G_PARAMETER_NO;
1687: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN
1688: FND_MESSAGE.set_name('PO','PO_CHNG_PRICE_RESTRICTED');
1689: FND_MSG_PUB.add;
1690: END IF;
1691: END IF;
1695: -- Check: Do not allow shipment price changes (except those from price breaks)
1696: -- if the blanket line has Allow Price Override set to No.
1697: ----------------------------------------------------------------------------
1698: l_progress := '030';
1699: IF (NVL(p_from_price_break, PO_CORE_S.G_PARAMETER_NO)
1700: = PO_CORE_S.G_PARAMETER_NO)
1701: AND (l_allow_price_override = 'N') THEN
1702: x_price_updateable := PO_CORE_S.G_PARAMETER_NO;
1703: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN
1696: -- if the blanket line has Allow Price Override set to No.
1697: ----------------------------------------------------------------------------
1698: l_progress := '030';
1699: IF (NVL(p_from_price_break, PO_CORE_S.G_PARAMETER_NO)
1700: = PO_CORE_S.G_PARAMETER_NO)
1701: AND (l_allow_price_override = 'N') THEN
1702: x_price_updateable := PO_CORE_S.G_PARAMETER_NO;
1703: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN
1704: FND_MESSAGE.set_name('PO','PO_CHNG_NO_PRICE_OVERRIDE');
1698: l_progress := '030';
1699: IF (NVL(p_from_price_break, PO_CORE_S.G_PARAMETER_NO)
1700: = PO_CORE_S.G_PARAMETER_NO)
1701: AND (l_allow_price_override = 'N') THEN
1702: x_price_updateable := PO_CORE_S.G_PARAMETER_NO;
1703: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN
1704: FND_MESSAGE.set_name('PO','PO_CHNG_NO_PRICE_OVERRIDE');
1705: FND_MSG_PUB.add;
1706: END IF;
1699: IF (NVL(p_from_price_break, PO_CORE_S.G_PARAMETER_NO)
1700: = PO_CORE_S.G_PARAMETER_NO)
1701: AND (l_allow_price_override = 'N') THEN
1702: x_price_updateable := PO_CORE_S.G_PARAMETER_NO;
1703: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN
1704: FND_MESSAGE.set_name('PO','PO_CHNG_NO_PRICE_OVERRIDE');
1705: FND_MSG_PUB.add;
1706: END IF;
1707: END IF;
1724: WHERE RTI.po_line_location_id = p_line_location_id
1725: AND RTI.transaction_status_code = 'PENDING' );
1726:
1727: IF (l_pending_rcv_transactions > 0) THEN
1728: x_price_updateable := PO_CORE_S.G_PARAMETER_NO;
1729: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN
1730: FND_MESSAGE.set_name('PO','PO_RCV_TRANSACTION_PENDING');
1731: FND_MSG_PUB.add;
1732: END IF;
1725: AND RTI.transaction_status_code = 'PENDING' );
1726:
1727: IF (l_pending_rcv_transactions > 0) THEN
1728: x_price_updateable := PO_CORE_S.G_PARAMETER_NO;
1729: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN
1730: FND_MESSAGE.set_name('PO','PO_RCV_TRANSACTION_PENDING');
1731: FND_MSG_PUB.add;
1732: END IF;
1733: END IF;
1788:
1789: d_progress := 20;
1790:
1791: IF (l_is_price_updateable) THEN
1792: x_price_updateable := PO_CORE_S.g_parameter_yes;
1793: ELSE
1794: x_price_updateable := PO_CORE_S.g_parameter_no;
1795: END IF;
1796:
1790:
1791: IF (l_is_price_updateable) THEN
1792: x_price_updateable := PO_CORE_S.g_parameter_yes;
1793: ELSE
1794: x_price_updateable := PO_CORE_S.g_parameter_no;
1795: END IF;
1796:
1797: d_progress := 30;
1798:
1808: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
1809: PO_LOG.proc_end(d_module);
1810: END IF;
1811: x_return_status := FND_API.g_ret_sts_unexp_error;
1812: x_price_updateable := PO_CORE_S.g_parameter_no;
1813: END;
1814: --
1815:
1816: -- Bug 5560980 START