DBA Data[Home] [Help]

APPS.PO_DOCUMENT_CHECKS_GRP dependencies on PO_CORE_S

Line 144: PO_CORE_S.get_document_ids(

140: THEN
141: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
142: END IF;
143:
144: PO_CORE_S.get_document_ids(
145: p_doc_type => p_document_type
146: , p_doc_level => p_document_level
147: , p_doc_level_id_tbl => po_tbl_number( p_document_level_id )
148: , x_doc_id_tbl => l_document_id_tbl

Line 1274: -- PO_CORE_S.G_PARAMETER_YES means that the price update is coming from a

1270: -- API version expected by the caller
1271: --p_po_line_id
1272: -- ID of a Standard PO line
1273: --p_from_price_break
1274: -- PO_CORE_S.G_PARAMETER_YES means that the price update is coming from a
1275: -- price break;
1276: -- PO_CORE_S.G_PARAMETER_NO means that the price update is coming from the user.
1277: --p_add_reasons_to_msg_list
1278: -- (Only applies if x_price_updateable = PO_CORE_S.G_PARAMETER_NO.)

Line 1276: -- PO_CORE_S.G_PARAMETER_NO means that the price update is coming from the user.

1272: -- ID of a Standard PO line
1273: --p_from_price_break
1274: -- PO_CORE_S.G_PARAMETER_YES means that the price update is coming from a
1275: -- price break;
1276: -- PO_CORE_S.G_PARAMETER_NO means that the price update is coming from the user.
1277: --p_add_reasons_to_msg_list
1278: -- (Only applies if x_price_updateable = PO_CORE_S.G_PARAMETER_NO.)
1279: -- If PO_CORE_S.G_PARAMETER_YES, the API will add the reasons why price updates
1280: -- are not allowed to the standard API message list; otherwise, the API will not

Line 1278: -- (Only applies if x_price_updateable = PO_CORE_S.G_PARAMETER_NO.)

1274: -- PO_CORE_S.G_PARAMETER_YES means that the price update is coming from a
1275: -- price break;
1276: -- PO_CORE_S.G_PARAMETER_NO means that the price update is coming from the user.
1277: --p_add_reasons_to_msg_list
1278: -- (Only applies if x_price_updateable = PO_CORE_S.G_PARAMETER_NO.)
1279: -- If PO_CORE_S.G_PARAMETER_YES, the API will add the reasons why price updates
1280: -- are not allowed to the standard API message list; otherwise, the API will not
1281: -- add the reasons to the message list.
1282: --OUT:

Line 1279: -- If PO_CORE_S.G_PARAMETER_YES, the API will add the reasons why price updates

1275: -- price break;
1276: -- PO_CORE_S.G_PARAMETER_NO means that the price update is coming from the user.
1277: --p_add_reasons_to_msg_list
1278: -- (Only applies if x_price_updateable = PO_CORE_S.G_PARAMETER_NO.)
1279: -- If PO_CORE_S.G_PARAMETER_YES, the API will add the reasons why price updates
1280: -- are not allowed to the standard API message list; otherwise, the API will not
1281: -- add the reasons to the message list.
1282: --OUT:
1283: --x_return_status

Line 1288: -- PO_CORE_S.G_PARAMETER_YES if price updates are allowed on this shipment,

1284: -- FND_API.G_RET_STS_SUCCESS if the API completed successfully.
1285: -- FND_API.G_RET_STS_ERROR if there was an error.
1286: -- FND_API.G_RET_STS_UNEXP_ERROR if there was an unexpected error.
1287: --x_price_updateable
1288: -- PO_CORE_S.G_PARAMETER_YES if price updates are allowed on this shipment,
1289: -- PO_CORE_S.G_PARAMETER_NO otherwise
1290: --x_retroactive_price_change
1291: -- PO_CORE_S.G_PARAMETER_YES if a price update on this PO line would be
1292: -- considered a retroactive price change, PO_CORE_S.G_PARAMETER_NO otherwise.

Line 1289: -- PO_CORE_S.G_PARAMETER_NO otherwise

1285: -- FND_API.G_RET_STS_ERROR if there was an error.
1286: -- FND_API.G_RET_STS_UNEXP_ERROR if there was an unexpected error.
1287: --x_price_updateable
1288: -- PO_CORE_S.G_PARAMETER_YES if price updates are allowed on this shipment,
1289: -- PO_CORE_S.G_PARAMETER_NO otherwise
1290: --x_retroactive_price_change
1291: -- PO_CORE_S.G_PARAMETER_YES if a price update on this PO line would be
1292: -- considered a retroactive price change, PO_CORE_S.G_PARAMETER_NO otherwise.
1293: --End of Comments

Line 1291: -- PO_CORE_S.G_PARAMETER_YES if a price update on this PO line would be

1287: --x_price_updateable
1288: -- PO_CORE_S.G_PARAMETER_YES if price updates are allowed on this shipment,
1289: -- PO_CORE_S.G_PARAMETER_NO otherwise
1290: --x_retroactive_price_change
1291: -- PO_CORE_S.G_PARAMETER_YES if a price update on this PO line would be
1292: -- considered a retroactive price change, PO_CORE_S.G_PARAMETER_NO otherwise.
1293: --End of Comments
1294: -------------------------------------------------------------------------------
1295: PROCEDURE check_std_po_price_updateable (

Line 1292: -- considered a retroactive price change, PO_CORE_S.G_PARAMETER_NO otherwise.

1288: -- PO_CORE_S.G_PARAMETER_YES if price updates are allowed on this shipment,
1289: -- PO_CORE_S.G_PARAMETER_NO otherwise
1290: --x_retroactive_price_change
1291: -- PO_CORE_S.G_PARAMETER_YES if a price update on this PO line would be
1292: -- considered a retroactive price change, PO_CORE_S.G_PARAMETER_NO otherwise.
1293: --End of Comments
1294: -------------------------------------------------------------------------------
1295: PROCEDURE check_std_po_price_updateable (
1296: p_api_version IN NUMBER,

Line 1337: x_price_updateable := PO_CORE_S.G_PARAMETER_YES;

1333: END IF;
1334: x_return_status := FND_API.G_RET_STS_SUCCESS;
1335:
1336: -- Default: price updates allowed, no retroactive price change.
1337: x_price_updateable := PO_CORE_S.G_PARAMETER_YES;
1338: x_retroactive_price_change := PO_CORE_S.G_PARAMETER_NO;
1339:
1340: l_progress := '010';
1341:

Line 1338: x_retroactive_price_change := PO_CORE_S.G_PARAMETER_NO;

1334: x_return_status := FND_API.G_RET_STS_SUCCESS;
1335:
1336: -- Default: price updates allowed, no retroactive price change.
1337: x_price_updateable := PO_CORE_S.G_PARAMETER_YES;
1338: x_retroactive_price_change := PO_CORE_S.G_PARAMETER_NO;
1339:
1340: l_progress := '010';
1341:
1342: --

Line 1387: not (PO_CORE_S.is_encumbrance_on(p_doc_type => 'PO',

1383: ----------------------------------------------------------------------------
1384: l_progress := '020';
1385: IF (PO_RETROACTIVE_PRICING_PVT.get_retro_mode() = 'ALL_RELEASES') AND
1386: (l_archive_mode_std_po = 'APPROVE' ) AND
1387: not (PO_CORE_S.is_encumbrance_on(p_doc_type => 'PO',
1388: p_org_id => l_current_org_id)) AND
1389: -- Bug 3231062
1390: (PO_RETROACTIVE_PRICING_PVT.Is_Retro_Project_Allowed(
1391: p_std_po_price_change => 'Y',

Line 1396: x_retroactive_price_change := PO_CORE_S.G_PARAMETER_YES;

1392: p_po_line_id => p_po_line_id,
1393: p_po_line_loc_id => null ) = 'Y')
1394: THEN
1395: -- Allow price updates. Remember this as a retroactive price change.
1396: x_retroactive_price_change := PO_CORE_S.G_PARAMETER_YES;
1397:
1398: -- Bug 3339149
1399: IF (PO_RETROACTIVE_PRICING_PVT.Is_Adjustment_Account_Valid(
1400: p_std_po_price_change => 'Y',

Line 1405: x_price_updateable := PO_CORE_S.G_PARAMETER_NO;

1401: p_po_line_id => p_po_line_id,
1402: p_po_line_loc_id => null ) = 'N')
1403: THEN
1404:
1405: x_price_updateable := PO_CORE_S.G_PARAMETER_NO;
1406: x_retroactive_price_change := PO_CORE_S.G_PARAMETER_NO;
1407:
1408: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN
1409: FND_MESSAGE.set_name('PO','PO_RETRO_PRICING_NOT_ALLOWED');

Line 1406: x_retroactive_price_change := PO_CORE_S.G_PARAMETER_NO;

1402: p_po_line_loc_id => null ) = 'N')
1403: THEN
1404:
1405: x_price_updateable := PO_CORE_S.G_PARAMETER_NO;
1406: x_retroactive_price_change := PO_CORE_S.G_PARAMETER_NO;
1407:
1408: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN
1409: FND_MESSAGE.set_name('PO','PO_RETRO_PRICING_NOT_ALLOWED');
1410: FND_MSG_PUB.add;

Line 1408: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN

1404:
1405: x_price_updateable := PO_CORE_S.G_PARAMETER_NO;
1406: x_retroactive_price_change := PO_CORE_S.G_PARAMETER_NO;
1407:
1408: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN
1409: FND_MESSAGE.set_name('PO','PO_RETRO_PRICING_NOT_ALLOWED');
1410: FND_MSG_PUB.add;
1411: END IF;
1412: END IF;

Line 1425: x_price_updateable := PO_CORE_S.G_PARAMETER_NO;

1421: AND ((NVL(quantity_received,0) > 0 AND accrue_on_receipt_flag = 'Y')
1422: OR (NVL(quantity_billed,0) > 0));
1423:
1424: IF (l_accrue_invoice_count > 0) THEN
1425: x_price_updateable := PO_CORE_S.G_PARAMETER_NO;
1426: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN
1427: FND_MESSAGE.set_name('PO','PO_CHNG_PRICE_RESTRICTED');
1428: FND_MSG_PUB.add;
1429: END IF;

Line 1426: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN

1422: OR (NVL(quantity_billed,0) > 0));
1423:
1424: IF (l_accrue_invoice_count > 0) THEN
1425: x_price_updateable := PO_CORE_S.G_PARAMETER_NO;
1426: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN
1427: FND_MESSAGE.set_name('PO','PO_CHNG_PRICE_RESTRICTED');
1428: FND_MSG_PUB.add;
1429: END IF;
1430: END IF;

Line 1440: AND (NVL(p_from_price_break, PO_CORE_S.G_PARAMETER_NO)

1436: -- Allow Price Override set to No.
1437: ----------------------------------------------------------------------------
1438: l_progress := '030';
1439: IF (l_has_ga_ref = 'Y')
1440: AND (NVL(p_from_price_break, PO_CORE_S.G_PARAMETER_NO)
1441: = PO_CORE_S.G_PARAMETER_NO)
1442: AND (l_allow_price_override = 'N') THEN
1443: x_price_updateable := PO_CORE_S.G_PARAMETER_NO;
1444: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN

Line 1441: = PO_CORE_S.G_PARAMETER_NO)

1437: ----------------------------------------------------------------------------
1438: l_progress := '030';
1439: IF (l_has_ga_ref = 'Y')
1440: AND (NVL(p_from_price_break, PO_CORE_S.G_PARAMETER_NO)
1441: = PO_CORE_S.G_PARAMETER_NO)
1442: AND (l_allow_price_override = 'N') THEN
1443: x_price_updateable := PO_CORE_S.G_PARAMETER_NO;
1444: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN
1445: FND_MESSAGE.set_name('PO','PO_CHNG_GA_NO_PRICE_OVERRIDE');

Line 1443: x_price_updateable := PO_CORE_S.G_PARAMETER_NO;

1439: IF (l_has_ga_ref = 'Y')
1440: AND (NVL(p_from_price_break, PO_CORE_S.G_PARAMETER_NO)
1441: = PO_CORE_S.G_PARAMETER_NO)
1442: AND (l_allow_price_override = 'N') THEN
1443: x_price_updateable := PO_CORE_S.G_PARAMETER_NO;
1444: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN
1445: FND_MESSAGE.set_name('PO','PO_CHNG_GA_NO_PRICE_OVERRIDE');
1446: FND_MSG_PUB.add;
1447: END IF;

Line 1444: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN

1440: AND (NVL(p_from_price_break, PO_CORE_S.G_PARAMETER_NO)
1441: = PO_CORE_S.G_PARAMETER_NO)
1442: AND (l_allow_price_override = 'N') THEN
1443: x_price_updateable := PO_CORE_S.G_PARAMETER_NO;
1444: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN
1445: FND_MESSAGE.set_name('PO','PO_CHNG_GA_NO_PRICE_OVERRIDE');
1446: FND_MSG_PUB.add;
1447: END IF;
1448: END IF; -- l_has_ga_ref

Line 1469: x_price_updateable := PO_CORE_S.G_PARAMETER_NO;

1465: OR NVL(quantity_billed,0) > 0
1466: );
1467:
1468: IF (l_accrue_invoice_count > 0) THEN
1469: x_price_updateable := PO_CORE_S.G_PARAMETER_NO;
1470: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN
1471: FND_MESSAGE.set_name('PO','PO_CHNG_PRICE_RESTRICTED');
1472: FND_MSG_PUB.add;
1473: END IF;

Line 1470: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN

1466: );
1467:
1468: IF (l_accrue_invoice_count > 0) THEN
1469: x_price_updateable := PO_CORE_S.G_PARAMETER_NO;
1470: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN
1471: FND_MESSAGE.set_name('PO','PO_CHNG_PRICE_RESTRICTED');
1472: FND_MSG_PUB.add;
1473: END IF;
1474: END IF;

Line 1499: x_price_updateable := PO_CORE_S.G_PARAMETER_NO;

1495: AND RTI.po_line_location_id = PLL.line_location_id -- JOIN
1496: AND RTI.transaction_status_code = 'PENDING' );
1497:
1498: IF (l_pending_rcv_transactions > 0) THEN
1499: x_price_updateable := PO_CORE_S.G_PARAMETER_NO;
1500: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN
1501: FND_MESSAGE.set_name('PO','PO_RCV_TRANSACTION_PENDING');
1502: FND_MSG_PUB.add;
1503: END IF;

Line 1500: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN

1496: AND RTI.transaction_status_code = 'PENDING' );
1497:
1498: IF (l_pending_rcv_transactions > 0) THEN
1499: x_price_updateable := PO_CORE_S.G_PARAMETER_NO;
1500: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN
1501: FND_MESSAGE.set_name('PO','PO_RCV_TRANSACTION_PENDING');
1502: FND_MSG_PUB.add;
1503: END IF;
1504: END IF;

Line 1546: -- PO_CORE_S.G_PARAMETER_YES means that the price update is coming from a

1542: -- API version expected by the caller
1543: --p_line_location_id
1544: -- ID of a release shipment
1545: --p_from_price_break
1546: -- PO_CORE_S.G_PARAMETER_YES means that the price update is coming from a
1547: -- price break;
1548: -- PO_CORE_S.G_PARAMETER_NO means that the price update is coming from the user.
1549: --p_add_reasons_to_msg_list
1550: -- (Only applies if x_price_updateable = PO_CORE_S.G_PARAMETER_NO.)

Line 1548: -- PO_CORE_S.G_PARAMETER_NO means that the price update is coming from the user.

1544: -- ID of a release shipment
1545: --p_from_price_break
1546: -- PO_CORE_S.G_PARAMETER_YES means that the price update is coming from a
1547: -- price break;
1548: -- PO_CORE_S.G_PARAMETER_NO means that the price update is coming from the user.
1549: --p_add_reasons_to_msg_list
1550: -- (Only applies if x_price_updateable = PO_CORE_S.G_PARAMETER_NO.)
1551: -- If PO_CORE_S.G_PARAMETER_YES, the API will add the reasons why price updates
1552: -- are not allowed to the standard API message list; otherwise, the API will not

Line 1550: -- (Only applies if x_price_updateable = PO_CORE_S.G_PARAMETER_NO.)

1546: -- PO_CORE_S.G_PARAMETER_YES means that the price update is coming from a
1547: -- price break;
1548: -- PO_CORE_S.G_PARAMETER_NO means that the price update is coming from the user.
1549: --p_add_reasons_to_msg_list
1550: -- (Only applies if x_price_updateable = PO_CORE_S.G_PARAMETER_NO.)
1551: -- If PO_CORE_S.G_PARAMETER_YES, the API will add the reasons why price updates
1552: -- are not allowed to the standard API message list; otherwise, the API will not
1553: -- add the reasons to the message list.
1554: --OUT:

Line 1551: -- If PO_CORE_S.G_PARAMETER_YES, the API will add the reasons why price updates

1547: -- price break;
1548: -- PO_CORE_S.G_PARAMETER_NO means that the price update is coming from the user.
1549: --p_add_reasons_to_msg_list
1550: -- (Only applies if x_price_updateable = PO_CORE_S.G_PARAMETER_NO.)
1551: -- If PO_CORE_S.G_PARAMETER_YES, the API will add the reasons why price updates
1552: -- are not allowed to the standard API message list; otherwise, the API will not
1553: -- add the reasons to the message list.
1554: --OUT:
1555: --x_return_status

Line 1560: -- PO_CORE_S.G_PARAMETER_YES if price updates are allowed on this shipment,

1556: -- FND_API.G_RET_STS_SUCCESS if the API completed successfully.
1557: -- FND_API.G_RET_STS_ERROR if there was an error.
1558: -- FND_API.G_RET_STS_UNEXP_ERROR if there was an unexpected error.
1559: --x_price_updateable
1560: -- PO_CORE_S.G_PARAMETER_YES if price updates are allowed on this shipment,
1561: -- PO_CORE_S.G_PARAMETER_NO otherwise
1562: --x_retroactive_price_change
1563: -- PO_CORE_S.G_PARAMETER_YES if a price update on this release shipment would
1564: -- be considered a retroactive price change, PO_CORE_S.G_PARAMETER_NO otherwise.

Line 1561: -- PO_CORE_S.G_PARAMETER_NO otherwise

1557: -- FND_API.G_RET_STS_ERROR if there was an error.
1558: -- FND_API.G_RET_STS_UNEXP_ERROR if there was an unexpected error.
1559: --x_price_updateable
1560: -- PO_CORE_S.G_PARAMETER_YES if price updates are allowed on this shipment,
1561: -- PO_CORE_S.G_PARAMETER_NO otherwise
1562: --x_retroactive_price_change
1563: -- PO_CORE_S.G_PARAMETER_YES if a price update on this release shipment would
1564: -- be considered a retroactive price change, PO_CORE_S.G_PARAMETER_NO otherwise.
1565: --End of Comments

Line 1563: -- PO_CORE_S.G_PARAMETER_YES if a price update on this release shipment would

1559: --x_price_updateable
1560: -- PO_CORE_S.G_PARAMETER_YES if price updates are allowed on this shipment,
1561: -- PO_CORE_S.G_PARAMETER_NO otherwise
1562: --x_retroactive_price_change
1563: -- PO_CORE_S.G_PARAMETER_YES if a price update on this release shipment would
1564: -- be considered a retroactive price change, PO_CORE_S.G_PARAMETER_NO otherwise.
1565: --End of Comments
1566: -------------------------------------------------------------------------------
1567: PROCEDURE check_rel_price_updateable (

Line 1564: -- be considered a retroactive price change, PO_CORE_S.G_PARAMETER_NO otherwise.

1560: -- PO_CORE_S.G_PARAMETER_YES if price updates are allowed on this shipment,
1561: -- PO_CORE_S.G_PARAMETER_NO otherwise
1562: --x_retroactive_price_change
1563: -- PO_CORE_S.G_PARAMETER_YES if a price update on this release shipment would
1564: -- be considered a retroactive price change, PO_CORE_S.G_PARAMETER_NO otherwise.
1565: --End of Comments
1566: -------------------------------------------------------------------------------
1567: PROCEDURE check_rel_price_updateable (
1568: p_api_version IN NUMBER,

Line 1607: x_price_updateable := PO_CORE_S.G_PARAMETER_YES;

1603: END IF;
1604: x_return_status := FND_API.G_RET_STS_SUCCESS;
1605:
1606: -- Default: price updates allowed, no retroactive price change.
1607: x_price_updateable := PO_CORE_S.G_PARAMETER_YES;
1608: x_retroactive_price_change := PO_CORE_S.G_PARAMETER_NO;
1609:
1610: l_progress := '010';
1611:

Line 1608: x_retroactive_price_change := PO_CORE_S.G_PARAMETER_NO;

1604: x_return_status := FND_API.G_RET_STS_SUCCESS;
1605:
1606: -- Default: price updates allowed, no retroactive price change.
1607: x_price_updateable := PO_CORE_S.G_PARAMETER_YES;
1608: x_retroactive_price_change := PO_CORE_S.G_PARAMETER_NO;
1609:
1610: l_progress := '010';
1611:
1612: -- SQL What: Retrieve the GA flag and the Allow Price Override flag

Line 1646: not (PO_CORE_S.is_encumbrance_on(p_doc_type => 'RELEASE',

1642: ----------------------------------------------------------------------------
1643: l_progress := '020';
1644: IF (PO_RETROACTIVE_PRICING_PVT.get_retro_mode() = 'ALL_RELEASES') AND
1645: (l_archive_mode_rel = 'APPROVE') AND
1646: not (PO_CORE_S.is_encumbrance_on(p_doc_type => 'RELEASE',
1647: p_org_id => l_current_org_id)) AND
1648: -- Bug 3231062
1649: (PO_RETROACTIVE_PRICING_PVT.Is_Retro_Project_Allowed(
1650: p_std_po_price_change => 'N',

Line 1655: x_retroactive_price_change := PO_CORE_S.G_PARAMETER_YES;

1651: p_po_line_id => null,
1652: p_po_line_loc_id => p_line_location_id ) = 'Y')
1653: THEN
1654: -- Allow price updates. Remember this as a retroactive price change.
1655: x_retroactive_price_change := PO_CORE_S.G_PARAMETER_YES;
1656:
1657: -- Bug 3339149
1658: IF (PO_RETROACTIVE_PRICING_PVT.Is_Adjustment_Account_Valid(
1659: p_std_po_price_change => 'N',

Line 1664: x_price_updateable := PO_CORE_S.G_PARAMETER_NO;

1660: p_po_line_id => null,
1661: p_po_line_loc_id => p_line_location_id ) = 'N')
1662: THEN
1663:
1664: x_price_updateable := PO_CORE_S.G_PARAMETER_NO;
1665: x_retroactive_price_change := PO_CORE_S.G_PARAMETER_NO;
1666:
1667: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN
1668: FND_MESSAGE.set_name('PO','PO_RETRO_PRICING_NOT_ALLOWED');

Line 1665: x_retroactive_price_change := PO_CORE_S.G_PARAMETER_NO;

1661: p_po_line_loc_id => p_line_location_id ) = 'N')
1662: THEN
1663:
1664: x_price_updateable := PO_CORE_S.G_PARAMETER_NO;
1665: x_retroactive_price_change := PO_CORE_S.G_PARAMETER_NO;
1666:
1667: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN
1668: FND_MESSAGE.set_name('PO','PO_RETRO_PRICING_NOT_ALLOWED');
1669: FND_MSG_PUB.add;

Line 1667: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN

1663:
1664: x_price_updateable := PO_CORE_S.G_PARAMETER_NO;
1665: x_retroactive_price_change := PO_CORE_S.G_PARAMETER_NO;
1666:
1667: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN
1668: FND_MESSAGE.set_name('PO','PO_RETRO_PRICING_NOT_ALLOWED');
1669: FND_MSG_PUB.add;
1670: END IF;
1671: END IF;

Line 1676: x_price_updateable := PO_CORE_S.G_PARAMETER_NO;

1672:
1673: ELSE
1674: IF ((l_qty_received > 0) AND (l_accrue_flag = 'Y'))
1675: OR (l_qty_billed > 0) THEN
1676: x_price_updateable := PO_CORE_S.G_PARAMETER_NO;
1677: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN
1678: FND_MESSAGE.set_name('PO','PO_CHNG_PRICE_RESTRICTED');
1679: FND_MSG_PUB.add;
1680: END IF;

Line 1677: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN

1673: ELSE
1674: IF ((l_qty_received > 0) AND (l_accrue_flag = 'Y'))
1675: OR (l_qty_billed > 0) THEN
1676: x_price_updateable := PO_CORE_S.G_PARAMETER_NO;
1677: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN
1678: FND_MESSAGE.set_name('PO','PO_CHNG_PRICE_RESTRICTED');
1679: FND_MSG_PUB.add;
1680: END IF;
1681: END IF;

Line 1689: IF (NVL(p_from_price_break, PO_CORE_S.G_PARAMETER_NO)

1685: -- Check: Do not allow shipment price changes (except those from price breaks)
1686: -- if the blanket line has Allow Price Override set to No.
1687: ----------------------------------------------------------------------------
1688: l_progress := '030';
1689: IF (NVL(p_from_price_break, PO_CORE_S.G_PARAMETER_NO)
1690: = PO_CORE_S.G_PARAMETER_NO)
1691: AND (l_allow_price_override = 'N') THEN
1692: x_price_updateable := PO_CORE_S.G_PARAMETER_NO;
1693: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN

Line 1690: = PO_CORE_S.G_PARAMETER_NO)

1686: -- if the blanket line has Allow Price Override set to No.
1687: ----------------------------------------------------------------------------
1688: l_progress := '030';
1689: IF (NVL(p_from_price_break, PO_CORE_S.G_PARAMETER_NO)
1690: = PO_CORE_S.G_PARAMETER_NO)
1691: AND (l_allow_price_override = 'N') THEN
1692: x_price_updateable := PO_CORE_S.G_PARAMETER_NO;
1693: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN
1694: FND_MESSAGE.set_name('PO','PO_CHNG_NO_PRICE_OVERRIDE');

Line 1692: x_price_updateable := PO_CORE_S.G_PARAMETER_NO;

1688: l_progress := '030';
1689: IF (NVL(p_from_price_break, PO_CORE_S.G_PARAMETER_NO)
1690: = PO_CORE_S.G_PARAMETER_NO)
1691: AND (l_allow_price_override = 'N') THEN
1692: x_price_updateable := PO_CORE_S.G_PARAMETER_NO;
1693: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN
1694: FND_MESSAGE.set_name('PO','PO_CHNG_NO_PRICE_OVERRIDE');
1695: FND_MSG_PUB.add;
1696: END IF;

Line 1693: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN

1689: IF (NVL(p_from_price_break, PO_CORE_S.G_PARAMETER_NO)
1690: = PO_CORE_S.G_PARAMETER_NO)
1691: AND (l_allow_price_override = 'N') THEN
1692: x_price_updateable := PO_CORE_S.G_PARAMETER_NO;
1693: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN
1694: FND_MESSAGE.set_name('PO','PO_CHNG_NO_PRICE_OVERRIDE');
1695: FND_MSG_PUB.add;
1696: END IF;
1697: END IF;

Line 1718: x_price_updateable := PO_CORE_S.G_PARAMETER_NO;

1714: WHERE RTI.po_line_location_id = p_line_location_id
1715: AND RTI.transaction_status_code = 'PENDING' );
1716:
1717: IF (l_pending_rcv_transactions > 0) THEN
1718: x_price_updateable := PO_CORE_S.G_PARAMETER_NO;
1719: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN
1720: FND_MESSAGE.set_name('PO','PO_RCV_TRANSACTION_PENDING');
1721: FND_MSG_PUB.add;
1722: END IF;

Line 1719: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN

1715: AND RTI.transaction_status_code = 'PENDING' );
1716:
1717: IF (l_pending_rcv_transactions > 0) THEN
1718: x_price_updateable := PO_CORE_S.G_PARAMETER_NO;
1719: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN
1720: FND_MESSAGE.set_name('PO','PO_RCV_TRANSACTION_PENDING');
1721: FND_MSG_PUB.add;
1722: END IF;
1723: END IF;

Line 1782: x_price_updateable := PO_CORE_S.g_parameter_yes;

1778:
1779: d_progress := 20;
1780:
1781: IF (l_is_price_updateable) THEN
1782: x_price_updateable := PO_CORE_S.g_parameter_yes;
1783: ELSE
1784: x_price_updateable := PO_CORE_S.g_parameter_no;
1785: END IF;
1786:

Line 1784: x_price_updateable := PO_CORE_S.g_parameter_no;

1780:
1781: IF (l_is_price_updateable) THEN
1782: x_price_updateable := PO_CORE_S.g_parameter_yes;
1783: ELSE
1784: x_price_updateable := PO_CORE_S.g_parameter_no;
1785: END IF;
1786:
1787: d_progress := 30;
1788:

Line 1802: x_price_updateable := PO_CORE_S.g_parameter_no;

1798: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
1799: PO_LOG.proc_end(d_module);
1800: END IF;
1801: x_return_status := FND_API.g_ret_sts_unexp_error;
1802: x_price_updateable := PO_CORE_S.g_parameter_no;
1803: END;
1804: --
1805:
1806: -- Bug 5560980 START