455: x_success => x_return_status,
456: x_errorcode => x_errorcode
457: );
458: -- added for 5151106
459: IF x_return_status = FND_API.G_TRUE AND l_grantee_type = 'COMPANY' THEN
460: EGO_PARTY_PUB.setup_enterprise_user
461: (p_company_id => p_party_id
462: ,x_return_status => x_return_status
463: ,x_msg_count => l_msg_count
462: ,x_return_status => x_return_status
463: ,x_msg_count => l_msg_count
464: ,x_msg_data => l_msg_data
465: );
466: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
467: x_return_status := FND_API.G_TRUE;
468: ELSE
469: x_return_status := FND_API.G_FALSE;
470: END IF;
463: ,x_msg_count => l_msg_count
464: ,x_msg_data => l_msg_data
465: );
466: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
467: x_return_status := FND_API.G_TRUE;
468: ELSE
469: x_return_status := FND_API.G_FALSE;
470: END IF;
471: IF x_return_status = FND_API.G_FALSE THEN
465: );
466: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
467: x_return_status := FND_API.G_TRUE;
468: ELSE
469: x_return_status := FND_API.G_FALSE;
470: END IF;
471: IF x_return_status = FND_API.G_FALSE THEN
472: -- add message to fnd_stack
473: fnd_message.Set_Name('EGO','EGO_GENERIC_MSG_TEXT');
467: x_return_status := FND_API.G_TRUE;
468: ELSE
469: x_return_status := FND_API.G_FALSE;
470: END IF;
471: IF x_return_status = FND_API.G_FALSE THEN
472: -- add message to fnd_stack
473: fnd_message.Set_Name('EGO','EGO_GENERIC_MSG_TEXT');
474: fnd_message.set_token('MESSAGE', l_msg_data);
475: fnd_msg_pub.Add;
646: -- user for whom the privilege is checked
647: --
648: -- OUT :
649: -- RETURN
650: -- FND_API.G_TRUE privilege EXISTS
651: -- FND_API.G_FALSE NO privilege
652: -- FND_API.G_RET_STS_ERROR if error
653: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error
654: --
647: --
648: -- OUT :
649: -- RETURN
650: -- FND_API.G_TRUE privilege EXISTS
651: -- FND_API.G_FALSE NO privilege
652: -- FND_API.G_RET_STS_ERROR if error
653: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error
654: --
655:
648: -- OUT :
649: -- RETURN
650: -- FND_API.G_TRUE privilege EXISTS
651: -- FND_API.G_FALSE NO privilege
652: -- FND_API.G_RET_STS_ERROR if error
653: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error
654: --
655:
656: -- Version: Current Version 0.1
649: -- RETURN
650: -- FND_API.G_TRUE privilege EXISTS
651: -- FND_API.G_FALSE NO privilege
652: -- FND_API.G_RET_STS_ERROR if error
653: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error
654: --
655:
656: -- Version: Current Version 0.1
657: -- Previous Version : None
1023: x_object_string:=x_object_string || x_object_key_tbl(i) || p_delimiter;
1024: END LOOP;
1025: x_object_string := RTRIM(x_object_string,p_delimiter);
1026: END IF;
1027: x_return_status := FND_API.G_RET_STS_SUCCESS;
1028:
1029: END get_instances_with_privilege_d;
1030: ----------------------------------------------------------------------------
1031:
1532:
1533:
1534:
1535: BEGIN
1536: IF NOT FND_API.Compatible_API_Call (l_api_version,
1537: p_api_version,
1538: l_api_name ,
1539: G_PKG_NAME)
1540: THEN
1537: p_api_version,
1538: l_api_name ,
1539: G_PKG_NAME)
1540: THEN
1541: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1542: END IF;
1543:
1544: -- Step 1.
1545: OPEN predicate_c (p_object_name, p_instance_set_id);
1558: OPEN instance_sets_cur FOR l_dynamic_sql;
1559: FETCH instance_sets_cur INTO l_dummy;
1560: IF(instance_sets_cur%NOTFOUND) THEN
1561: CLOSE instance_sets_cur;
1562: RETURN FND_API.G_FALSE;
1563: ELSE
1564: CLOSE instance_sets_cur;
1565: RETURN FND_API.G_TRUE;
1566: END IF;
1561: CLOSE instance_sets_cur;
1562: RETURN FND_API.G_FALSE;
1563: ELSE
1564: CLOSE instance_sets_cur;
1565: RETURN FND_API.G_TRUE;
1566: END IF;
1567: ELSE
1568: --no predicate for the set; universal set
1569: RETURN FND_API.G_TRUE;
1565: RETURN FND_API.G_TRUE;
1566: END IF;
1567: ELSE
1568: --no predicate for the set; universal set
1569: RETURN FND_API.G_TRUE;
1570: END IF;
1571: EXCEPTION
1572: WHEN OTHERS THEN
1573: IF FND_MSG_PUB.Check_Msg_Level
1577: ( G_PKG_NAME ,
1578: l_api_name
1579: );
1580: END IF;
1581: RETURN FND_API.G_FALSE;
1582:
1583: END check_instance_in_set;
1584: ---------------------------------------------------------
1585:
1624: -- End date
1625: --
1626: -- OUT :
1627: -- RETURN
1628: -- FND_API.G_TRUE IF this grant already exist (duplicate grant)
1629: -- FND_API.G_FALSE NO IF it is not Duplicate grant
1630: -- FND_API.G_RET_STS_ERROR if error
1631: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error
1632:
1625: --
1626: -- OUT :
1627: -- RETURN
1628: -- FND_API.G_TRUE IF this grant already exist (duplicate grant)
1629: -- FND_API.G_FALSE NO IF it is not Duplicate grant
1630: -- FND_API.G_RET_STS_ERROR if error
1631: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error
1632:
1633: -- Version: Current Version 0.1
1626: -- OUT :
1627: -- RETURN
1628: -- FND_API.G_TRUE IF this grant already exist (duplicate grant)
1629: -- FND_API.G_FALSE NO IF it is not Duplicate grant
1630: -- FND_API.G_RET_STS_ERROR if error
1631: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error
1632:
1633: -- Version: Current Version 0.1
1634: -- Previous Version : None
1627: -- RETURN
1628: -- FND_API.G_TRUE IF this grant already exist (duplicate grant)
1629: -- FND_API.G_FALSE NO IF it is not Duplicate grant
1630: -- FND_API.G_RET_STS_ERROR if error
1631: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error
1632:
1633: -- Version: Current Version 0.1
1634: -- Previous Version : None
1635: -- Notes :
1774: cp_end_date => p_end_date);
1775: FETCH check_for_duplicate INTO l_dummy;
1776: IF( check_for_duplicate%NOTFOUND) THEN
1777: CLOSE check_for_duplicate ;
1778: RETURN FND_API.G_FALSE;
1779: ELSE
1780: CLOSE check_for_duplicate ;
1781: RETURN FND_API.G_TRUE;
1782: END IF;
1777: CLOSE check_for_duplicate ;
1778: RETURN FND_API.G_FALSE;
1779: ELSE
1780: CLOSE check_for_duplicate ;
1781: RETURN FND_API.G_TRUE;
1782: END IF;
1783:
1784: EXCEPTION
1785: WHEN OTHERS THEN
1782: END IF;
1783:
1784: EXCEPTION
1785: WHEN OTHERS THEN
1786: RETURN FND_API.G_RET_STS_ERROR;
1787:
1788:
1789: END check_duplicate_grant;
1790: ---------------------------------------------------------
1831: -- End date
1832: --
1833: -- OUT :
1834: -- RETURN
1835: -- FND_API.G_TRUE IF this grant already exist (duplicate grant)
1836: -- FND_API.G_FALSE NO IF it is not Duplicate grant
1837: -- FND_API.G_RET_STS_ERROR if error
1838: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error
1839:
1832: --
1833: -- OUT :
1834: -- RETURN
1835: -- FND_API.G_TRUE IF this grant already exist (duplicate grant)
1836: -- FND_API.G_FALSE NO IF it is not Duplicate grant
1837: -- FND_API.G_RET_STS_ERROR if error
1838: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error
1839:
1840: -- Version: Current Version 0.1
1833: -- OUT :
1834: -- RETURN
1835: -- FND_API.G_TRUE IF this grant already exist (duplicate grant)
1836: -- FND_API.G_FALSE NO IF it is not Duplicate grant
1837: -- FND_API.G_RET_STS_ERROR if error
1838: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error
1839:
1840: -- Version: Current Version 0.1
1841: -- Previous Version : None
1834: -- RETURN
1835: -- FND_API.G_TRUE IF this grant already exist (duplicate grant)
1836: -- FND_API.G_FALSE NO IF it is not Duplicate grant
1837: -- FND_API.G_RET_STS_ERROR if error
1838: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error
1839:
1840: -- Version: Current Version 0.1
1841: -- Previous Version : None
1842: -- Notes :
1924: cp_end_date => p_end_date);
1925: FETCH check_for_duplicate INTO l_dummy;
1926: IF( check_for_duplicate%NOTFOUND) THEN
1927: CLOSE check_for_duplicate ;
1928: RETURN FND_API.G_FALSE;
1929: ELSE
1930: CLOSE check_for_duplicate ;
1931: RETURN FND_API.G_TRUE;
1932: END IF;
1927: CLOSE check_for_duplicate ;
1928: RETURN FND_API.G_FALSE;
1929: ELSE
1930: CLOSE check_for_duplicate ;
1931: RETURN FND_API.G_TRUE;
1932: END IF;
1933:
1934: EXCEPTION
1935: WHEN OTHERS THEN
1932: END IF;
1933:
1934: EXCEPTION
1935: WHEN OTHERS THEN
1936: RETURN FND_API.G_RET_STS_ERROR;
1937:
1938:
1939: END check_duplicate_item_grant;
1940: ---------------------------------------------------------