[Home] [Help]
429: l_current_resource_id NUMBER;
430: l_current_user_status VARCHAR2(30);
431: --
432: BEGIN
433: -- Standard call to check for call compatibility.
434: IF NOT FND_API.Compatible_API_Call (
435: l_api_version,
436: p_api_version,
437: l_api_name,
470: p_user_id => p_user_id,
471: x_resource_id => x_resource_id
472: );
473: END IF;
474: --Standard call to get message count and if count=1, get the message
475: FND_MSG_PUB.Count_And_Get (
476: p_encoded => FND_API.G_FALSE,
477: p_count => x_msg_count,
478: p_data => x_msg_data
479: );
480: EXCEPTION
481: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
482: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
483: -- Standard call to get message count and if count=1, get the message
484: FND_MSG_PUB.Count_And_Get (
485: p_encoded => FND_API.G_FALSE,
486: p_count => x_msg_count,
487: p_data => x_msg_data
487: p_data => x_msg_data
488: );
489: WHEN FND_API.G_EXC_ERROR THEN
490: x_return_status := FND_API.G_RET_STS_ERROR;
491: -- Standard call to get message count and if count=1, get the message
492: FND_MSG_PUB.Count_And_Get (
493: p_encoded => FND_API.G_FALSE,
494: p_count => x_msg_count,
495: p_data => x_msg_data
498: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
499: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
500: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
501: END IF;
502: -- Standard call to get message count and if count=1, get the message
503: FND_MSG_PUB.Count_And_Get (
504: p_encoded => FND_API.G_FALSE,
505: p_count => x_msg_count,
506: p_data => x_msg_data
549: l_last_name VARCHAR2(40);
550: l_search VARCHAR2(2000);
551: --
552: BEGIN
553: -- Standard call to check for call compatibility.
554: IF NOT FND_API.Compatible_API_Call (
555: l_api_version,
556: p_api_version,
557: l_api_name,
705: p_subset_request_obj.start_record_position + l_fetch_count,
706: l_total_record_count
707: );
708: */
709: --Standard call to get message count and if count=1, get the message
710: FND_MSG_PUB.Count_And_Get (
711: p_encoded => FND_API.G_FALSE,
712: p_count => x_msg_count,
713: p_data => x_msg_data
714: );
715: EXCEPTION
716: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
717: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
718: -- Standard call to get message count and if count=1, get the message
719: FND_MSG_PUB.Count_And_Get (
720: p_encoded => FND_API.G_FALSE,
721: p_count => x_msg_count,
722: p_data => x_msg_data
722: p_data => x_msg_data
723: );
724: WHEN FND_API.G_EXC_ERROR THEN
725: x_return_status := FND_API.G_RET_STS_ERROR;
726: -- Standard call to get message count and if count=1, get the message
727: FND_MSG_PUB.Count_And_Get (
728: p_encoded => FND_API.G_FALSE,
729: p_count => x_msg_count,
730: p_data => x_msg_data
733: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
734: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
735: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
736: END IF;
737: -- Standard call to get message count and if count=1, get the message
738: FND_MSG_PUB.Count_And_Get (
739: p_encoded => FND_API.G_FALSE,
740: p_count => x_msg_count,
741: p_data => x_msg_data
783: l_search VARCHAR2(2000);
784: --
785: BEGIN
786: --dbms_output.put_line('Enter : Find_Resource');
787: -- Standard call to check for call compatibility.
788: IF NOT FND_API.Compatible_API_Call (
789: l_api_version,
790: p_api_version,
791: l_api_name,
924: p_subset_request_obj.start_record_position + l_fetch_count,
925: l_total_record_count
926: );
927: */
928: --Standard call to get message count and if count=1, get the message
929: FND_MSG_PUB.Count_And_Get (
930: p_encoded => FND_API.G_FALSE,
931: p_count => x_msg_count,
932: p_data => x_msg_data
934: --dbms_output.put_line('Exit : Find_Resource');
935: EXCEPTION
936: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
937: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
938: -- Standard call to get message count and if count=1, get the message
939: FND_MSG_PUB.Count_And_Get (
940: p_encoded => FND_API.G_FALSE,
941: p_count => x_msg_count,
942: p_data => x_msg_data
942: p_data => x_msg_data
943: );
944: WHEN FND_API.G_EXC_ERROR THEN
945: x_return_status := FND_API.G_RET_STS_ERROR;
946: -- Standard call to get message count and if count=1, get the message
947: FND_MSG_PUB.Count_And_Get (
948: p_encoded => FND_API.G_FALSE,
949: p_count => x_msg_count,
950: p_data => x_msg_data
953: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
954: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
955: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
956: END IF;
957: -- Standard call to get message count and if count=1, get the message
958: FND_MSG_PUB.Count_And_Get (
959: p_encoded => FND_API.G_FALSE,
960: p_count => x_msg_count,
961: p_data => x_msg_data
1001: ;
1002: --
1003: BEGIN
1004:
1005: -- Standard call to check for call compatibility.
1006: SAVEPOINT Add_AssignRoleHelper_Pvt;
1007: IF NOT FND_API.Compatible_API_Call (
1008: l_api_version,
1009: p_api_version,
1099:
1100: ELSE
1101: CLOSE Check_ResourceRole_csr;
1102: END IF;
1103: --Standard call to get message count and if count=1, get the message
1104: FND_MSG_PUB.Count_And_Get (
1105: p_encoded => FND_API.G_FALSE,
1106: p_count => x_msg_count,
1107: p_data => x_msg_data
1109: EXCEPTION
1110: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1111: ROLLBACK TO Add_AssignRoleHelper_Pvt;
1112: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1113: -- Standard call to get message count and if count=1, get the message
1114: FND_MSG_PUB.Count_And_Get (
1115: p_encoded => FND_API.G_FALSE,
1116: p_count => x_msg_count,
1117: p_data => x_msg_data
1118: );
1119: WHEN FND_API.G_EXC_ERROR THEN
1120: ROLLBACK TO Add_AssignRoleHelper_Pvt;
1121: x_return_status := FND_API.G_RET_STS_ERROR;
1122: -- Standard call to get message count and if count=1, get the message
1123: FND_MSG_PUB.Count_And_Get (
1124: p_encoded => FND_API.G_FALSE,
1125: p_count => x_msg_count,
1126: p_data => x_msg_data
1130: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1131: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1132: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1133: END IF;
1134: -- Standard call to get message count and if count=1, get the message
1135: FND_MSG_PUB.Count_And_Get (
1136: p_encoded => FND_API.G_FALSE,
1137: p_count => x_msg_count,
1138: p_data => x_msg_data
1175: And delete_flag <> 'Y'
1176: --And role_type_code = G_MES_ROLE_TYPE_NAME
1177: ;
1178: BEGIN
1179: -- Standard call to check for call compatibility.
1180: SAVEPOINT Remove_RoleHelper_Pvt;
1181: IF NOT FND_API.Compatible_API_Call (
1182: l_api_version,
1183: p_api_version,
1264: x_return_status => x_return_status,
1265: x_msg_count => x_msg_count,
1266: x_msg_data => x_msg_data
1267: );
1268: --Standard call to get message count and if count=1, get the message
1269: FND_MSG_PUB.Count_And_Get (
1270: p_encoded => FND_API.G_FALSE,
1271: p_count => x_msg_count,
1272: p_data => x_msg_data
1274: EXCEPTION
1275: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1276: ROLLBACK TO Remove_RoleHelper_Pvt;
1277: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1278: -- Standard call to get message count and if count=1, get the message
1279: FND_MSG_PUB.Count_And_Get (
1280: p_encoded => FND_API.G_FALSE,
1281: p_count => x_msg_count,
1282: p_data => x_msg_data
1283: );
1284: WHEN FND_API.G_EXC_ERROR THEN
1285: ROLLBACK TO Remove_RoleHelper_Pvt;
1286: x_return_status := FND_API.G_RET_STS_ERROR;
1287: -- Standard call to get message count and if count=1, get the message
1288: FND_MSG_PUB.Count_And_Get (
1289: p_encoded => FND_API.G_FALSE,
1290: p_count => x_msg_count,
1291: p_data => x_msg_data
1295: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1296: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1297: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1298: END IF;
1299: -- Standard call to get message count and if count=1, get the message
1300: FND_MSG_PUB.Count_And_Get (
1301: p_encoded => FND_API.G_FALSE,
1302: p_count => x_msg_count,
1303: p_data => x_msg_data
1362: l_admin_flag VARCHAR2(1);
1363: l_count NUMBER;
1364: --
1365: BEGIN
1366: -- Standard call to check for call compatibility.
1367: SAVEPOINT Add_ResourceRole_Pvt;
1368: IF NOT FND_API.Compatible_API_Call (
1369: l_api_version,
1370: p_api_version,
1452: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1453: x_return_status := FND_API.G_RET_STS_ERROR;
1454: END IF;
1455: END LOOP;
1456: --Standard call to get message count and if count=1, get the message
1457: FND_MSG_PUB.Count_And_Get (
1458: p_encoded => FND_API.G_FALSE,
1459: p_count => x_msg_count,
1460: p_data => x_msg_data
1462: EXCEPTION
1463: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1464: ROLLBACK TO Add_ResourceRole_Pvt;
1465: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1466: -- Standard call to get message count and if count=1, get the message
1467: FND_MSG_PUB.Count_And_Get (
1468: p_encoded => FND_API.G_FALSE,
1469: p_count => x_msg_count,
1470: p_data => x_msg_data
1471: );
1472: WHEN FND_API.G_EXC_ERROR THEN
1473: ROLLBACK TO Add_ResourceRole_Pvt;
1474: x_return_status := FND_API.G_RET_STS_ERROR;
1475: -- Standard call to get message count and if count=1, get the message
1476: FND_MSG_PUB.Count_And_Get (
1477: p_encoded => FND_API.G_FALSE,
1478: p_count => x_msg_count,
1479: p_data => x_msg_data
1483: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1484: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1485: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1486: END IF;
1487: -- Standard call to get message count and if count=1, get the message
1488: FND_MSG_PUB.Count_And_Get (
1489: p_encoded => FND_API.G_FALSE,
1490: p_count => x_msg_count,
1491: p_data => x_msg_data
1555: l_role_id_varray AMV_NUMBER_VARRAY_TYPE;
1556: l_role_code_varray AMV_CHAR_VARRAY_TYPE;
1557: --
1558: BEGIN
1559: -- Standard call to check for call compatibility.
1560: SAVEPOINT Remove_ResourceRole_Pvt;
1561: IF NOT FND_API.Compatible_API_Call (
1562: l_api_version,
1563: p_api_version,
1664: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1665: x_return_status := FND_API.G_RET_STS_ERROR;
1666: END IF;
1667: END LOOP;
1668: --Standard call to get message count and if count=1, get the message
1669: FND_MSG_PUB.Count_And_Get (
1670: p_encoded => FND_API.G_FALSE,
1671: p_count => x_msg_count,
1672: p_data => x_msg_data
1674: EXCEPTION
1675: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1676: ROLLBACK TO Remove_ResourceRole_Pvt;
1677: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1678: -- Standard call to get message count and if count=1, get the message
1679: FND_MSG_PUB.Count_And_Get (
1680: p_encoded => FND_API.G_FALSE,
1681: p_count => x_msg_count,
1682: p_data => x_msg_data
1683: );
1684: WHEN FND_API.G_EXC_ERROR THEN
1685: ROLLBACK TO Remove_ResourceRole_Pvt;
1686: x_return_status := FND_API.G_RET_STS_ERROR;
1687: -- Standard call to get message count and if count=1, get the message
1688: FND_MSG_PUB.Count_And_Get (
1689: p_encoded => FND_API.G_FALSE,
1690: p_count => x_msg_count,
1691: p_data => x_msg_data
1695: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1696: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1697: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1698: END IF;
1699: -- Standard call to get message count and if count=1, get the message
1700: FND_MSG_PUB.Count_And_Get (
1701: p_encoded => FND_API.G_FALSE,
1702: p_count => x_msg_count,
1703: p_data => x_msg_data
1760: l_return_status VARCHAR2(1);
1761: l_date DATE;
1762: --
1763: BEGIN
1764: -- Standard call to check for call compatibility.
1765: SAVEPOINT Replace_ResourceRole_Pvt;
1766: x_return_status := FND_API.G_RET_STS_SUCCESS;
1767: --Remove the existing roles
1768: Remove_ResourceRole
1801: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1802: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1803: RAISE FND_API.G_EXC_ERROR;
1804: END IF;
1805: --Standard call to get message count and if count=1, get the message
1806: FND_MSG_PUB.Count_And_Get (
1807: p_encoded => FND_API.G_FALSE,
1808: p_count => x_msg_count,
1809: p_data => x_msg_data
1811: EXCEPTION
1812: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1813: ROLLBACK TO Replace_ResourceRole_Pvt;
1814: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1815: -- Standard call to get message count and if count=1, get the message
1816: FND_MSG_PUB.Count_And_Get (
1817: p_encoded => FND_API.G_FALSE,
1818: p_count => x_msg_count,
1819: p_data => x_msg_data
1820: );
1821: WHEN FND_API.G_EXC_ERROR THEN
1822: ROLLBACK TO Replace_ResourceRole_Pvt;
1823: x_return_status := FND_API.G_RET_STS_ERROR;
1824: -- Standard call to get message count and if count=1, get the message
1825: FND_MSG_PUB.Count_And_Get (
1826: p_encoded => FND_API.G_FALSE,
1827: p_count => x_msg_count,
1828: p_data => x_msg_data
1832: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1833: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1834: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1835: END IF;
1836: -- Standard call to get message count and if count=1, get the message
1837: FND_MSG_PUB.Count_And_Get (
1838: p_encoded => FND_API.G_FALSE,
1839: p_count => x_msg_count,
1840: p_data => x_msg_data
1874: And rol.role_type_code = G_MES_ROLE_TYPE_NAME
1875: Order by rol.role_code;
1876: --
1877: BEGIN
1878: -- Standard call to check for call compatibility.
1879: IF NOT FND_API.Compatible_API_Call (
1880: l_api_version,
1881: p_api_version,
1882: l_api_name,
1929: x_role_code_varray.extend;
1930: x_role_id_varray(l_count) := csr1.role_id;
1931: x_role_code_varray(l_count) := csr1.role_code;
1932: END LOOP;
1933: --Standard call to get message count and if count=1, get the message
1934: FND_MSG_PUB.Count_And_Get (
1935: p_encoded => FND_API.G_FALSE,
1936: p_count => x_msg_count,
1937: p_data => x_msg_data
1938: );
1939: EXCEPTION
1940: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1941: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1942: -- Standard call to get message count and if count=1, get the message
1943: FND_MSG_PUB.Count_And_Get (
1944: p_encoded => FND_API.G_FALSE,
1945: p_count => x_msg_count,
1946: p_data => x_msg_data
1946: p_data => x_msg_data
1947: );
1948: WHEN FND_API.G_EXC_ERROR THEN
1949: x_return_status := FND_API.G_RET_STS_ERROR;
1950: -- Standard call to get message count and if count=1, get the message
1951: FND_MSG_PUB.Count_And_Get (
1952: p_encoded => FND_API.G_FALSE,
1953: p_count => x_msg_count,
1954: p_data => x_msg_data
1957: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1958: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1959: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1960: END IF;
1961: -- Standard call to get message count and if count=1, get the message
1962: FND_MSG_PUB.Count_And_Get (
1963: p_encoded => FND_API.G_FALSE,
1964: p_count => x_msg_count,
1965: p_data => x_msg_data
2058: )
2059: ;
2060: --
2061: BEGIN
2062: -- Standard call to check for call compatibility.
2063: IF NOT FND_API.Compatible_API_Call (
2064: l_api_version,
2065: p_api_version,
2066: l_api_name,
2149: END IF;
2150: CLOSE Get_GroupRole_csr;
2151: END IF;
2152: END IF;
2153: --Standard call to get message count and if count=1, get the message
2154: FND_MSG_PUB.Count_And_Get (
2155: p_encoded => FND_API.G_FALSE,
2156: p_count => x_msg_count,
2157: p_data => x_msg_data
2158: );
2159: EXCEPTION
2160: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2161: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2162: -- Standard call to get message count and if count=1, get the message
2163: FND_MSG_PUB.Count_And_Get (
2164: p_encoded => FND_API.G_FALSE,
2165: p_count => x_msg_count,
2166: p_data => x_msg_data
2166: p_data => x_msg_data
2167: );
2168: WHEN FND_API.G_EXC_ERROR THEN
2169: x_return_status := FND_API.G_RET_STS_ERROR;
2170: -- Standard call to get message count and if count=1, get the message
2171: FND_MSG_PUB.Count_And_Get (
2172: p_encoded => FND_API.G_FALSE,
2173: p_count => x_msg_count,
2174: p_data => x_msg_data
2177: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2178: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2179: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2180: END IF;
2181: -- Standard call to get message count and if count=1, get the message
2182: FND_MSG_PUB.Count_And_Get (
2183: p_encoded => FND_API.G_FALSE,
2184: p_count => x_msg_count,
2185: p_data => x_msg_data
2518: l_count NUMBER;
2519: --
2520: --
2521: BEGIN
2522: -- Standard call to check for call compatibility.
2523: SAVEPOINT Add_GroupRole_Pvt;
2524: IF NOT FND_API.Compatible_API_Call (
2525: l_api_version,
2526: p_api_version,
2609: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
2610: x_return_status := FND_API.G_RET_STS_ERROR;
2611: END IF;
2612: END LOOP;
2613: --Standard call to get message count and if count=1, get the message
2614: FND_MSG_PUB.Count_And_Get (
2615: p_encoded => FND_API.G_FALSE,
2616: p_count => x_msg_count,
2617: p_data => x_msg_data
2619: EXCEPTION
2620: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2621: ROLLBACK TO Add_GroupRole_Pvt;
2622: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2623: -- Standard call to get message count and if count=1, get the message
2624: FND_MSG_PUB.Count_And_Get (
2625: p_encoded => FND_API.G_FALSE,
2626: p_count => x_msg_count,
2627: p_data => x_msg_data
2628: );
2629: WHEN FND_API.G_EXC_ERROR THEN
2630: ROLLBACK TO Add_GroupRole_Pvt;
2631: x_return_status := FND_API.G_RET_STS_ERROR;
2632: -- Standard call to get message count and if count=1, get the message
2633: FND_MSG_PUB.Count_And_Get (
2634: p_encoded => FND_API.G_FALSE,
2635: p_count => x_msg_count,
2636: p_data => x_msg_data
2640: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2641: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2642: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2643: END IF;
2644: -- Standard call to get message count and if count=1, get the message
2645: FND_MSG_PUB.Count_And_Get (
2646: p_encoded => FND_API.G_FALSE,
2647: p_count => x_msg_count,
2648: p_data => x_msg_data
2712: l_role_id_varray AMV_NUMBER_VARRAY_TYPE;
2713: l_role_code_varray AMV_CHAR_VARRAY_TYPE;
2714: --
2715: BEGIN
2716: -- Standard call to check for call compatibility.
2717: SAVEPOINT Remove_GroupRole_Pvt;
2718: IF NOT FND_API.Compatible_API_Call (
2719: l_api_version,
2720: p_api_version,
2821: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
2822: x_return_status := FND_API.G_RET_STS_ERROR;
2823: END IF;
2824: END LOOP;
2825: --Standard call to get message count and if count=1, get the message
2826: FND_MSG_PUB.Count_And_Get (
2827: p_encoded => FND_API.G_FALSE,
2828: p_count => x_msg_count,
2829: p_data => x_msg_data
2831: EXCEPTION
2832: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2833: ROLLBACK TO Remove_GroupRole_Pvt;
2834: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2835: -- Standard call to get message count and if count=1, get the message
2836: FND_MSG_PUB.Count_And_Get (
2837: p_encoded => FND_API.G_FALSE,
2838: p_count => x_msg_count,
2839: p_data => x_msg_data
2840: );
2841: WHEN FND_API.G_EXC_ERROR THEN
2842: ROLLBACK TO Remove_GroupRole_Pvt;
2843: x_return_status := FND_API.G_RET_STS_ERROR;
2844: -- Standard call to get message count and if count=1, get the message
2845: FND_MSG_PUB.Count_And_Get (
2846: p_encoded => FND_API.G_FALSE,
2847: p_count => x_msg_count,
2848: p_data => x_msg_data
2852: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2853: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2854: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2855: END IF;
2856: -- Standard call to get message count and if count=1, get the message
2857: FND_MSG_PUB.Count_And_Get (
2858: p_encoded => FND_API.G_FALSE,
2859: p_count => x_msg_count,
2860: p_data => x_msg_data
2917: l_return_status VARCHAR2(1);
2918: l_date DATE;
2919: --
2920: BEGIN
2921: -- Standard call to check for call compatibility.
2922: SAVEPOINT Replace_GroupRole_Pvt;
2923: x_return_status := FND_API.G_RET_STS_SUCCESS;
2924: --Remove the existing roles
2925: --Remove the existing roles
2956: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2957: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2958: RAISE FND_API.G_EXC_ERROR;
2959: END IF;
2960: --Standard call to get message count and if count=1, get the message
2961: FND_MSG_PUB.Count_And_Get (
2962: p_encoded => FND_API.G_FALSE,
2963: p_count => x_msg_count,
2964: p_data => x_msg_data
2966: EXCEPTION
2967: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2968: ROLLBACK TO Replace_GroupRole_Pvt;
2969: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2970: -- Standard call to get message count and if count=1, get the message
2971: FND_MSG_PUB.Count_And_Get (
2972: p_encoded => FND_API.G_FALSE,
2973: p_count => x_msg_count,
2974: p_data => x_msg_data
2975: );
2976: WHEN FND_API.G_EXC_ERROR THEN
2977: ROLLBACK TO Replace_GroupRole_Pvt;
2978: x_return_status := FND_API.G_RET_STS_ERROR;
2979: -- Standard call to get message count and if count=1, get the message
2980: FND_MSG_PUB.Count_And_Get (
2981: p_encoded => FND_API.G_FALSE,
2982: p_count => x_msg_count,
2983: p_data => x_msg_data
2987: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2988: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2989: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2990: END IF;
2991: -- Standard call to get message count and if count=1, get the message
2992: FND_MSG_PUB.Count_And_Get (
2993: p_encoded => FND_API.G_FALSE,
2994: p_count => x_msg_count,
2995: p_data => x_msg_data
3030: And rol.role_type_code = G_MES_ROLE_TYPE_NAME
3031: Order by rol.role_code;
3032: --
3033: BEGIN
3034: -- Standard call to check for call compatibility.
3035: IF NOT FND_API.Compatible_API_Call (
3036: l_api_version,
3037: p_api_version,
3038: l_api_name,
3085: x_role_code_varray.extend;
3086: x_role_id_varray(l_count) := csr1.role_id;
3087: x_role_code_varray(l_count) := csr1.role_code;
3088: END LOOP;
3089: --Standard call to get message count and if count=1, get the message
3090: FND_MSG_PUB.Count_And_Get (
3091: p_encoded => FND_API.G_FALSE,
3092: p_count => x_msg_count,
3093: p_data => x_msg_data
3094: );
3095: EXCEPTION
3096: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3097: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3098: -- Standard call to get message count and if count=1, get the message
3099: FND_MSG_PUB.Count_And_Get (
3100: p_encoded => FND_API.G_FALSE,
3101: p_count => x_msg_count,
3102: p_data => x_msg_data
3102: p_data => x_msg_data
3103: );
3104: WHEN FND_API.G_EXC_ERROR THEN
3105: x_return_status := FND_API.G_RET_STS_ERROR;
3106: -- Standard call to get message count and if count=1, get the message
3107: FND_MSG_PUB.Count_And_Get (
3108: p_encoded => FND_API.G_FALSE,
3109: p_count => x_msg_count,
3110: p_data => x_msg_data
3113: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3114: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3115: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3116: END IF;
3117: -- Standard call to get message count and if count=1, get the message
3118: FND_MSG_PUB.Count_And_Get (
3119: p_encoded => FND_API.G_FALSE,
3120: p_count => x_msg_count,
3121: p_data => x_msg_data
3168: And g.start_date_active < sysdate
3169: And nvl(g.end_date_active, sysdate-1) < sysdate;
3170: --
3171: BEGIN
3172: -- Standard call to check for call compatibility.
3173: IF NOT FND_API.Compatible_API_Call (
3174: l_api_version,
3175: p_api_version,
3176: l_api_name,
3229: x_result_flag := FND_API.G_FALSE;
3230: END IF;
3231: CLOSE Get_GroupRole_csr;
3232: END IF;
3233: --Standard call to get message count and if count=1, get the message
3234: FND_MSG_PUB.Count_And_Get (
3235: p_encoded => FND_API.G_FALSE,
3236: p_count => x_msg_count,
3237: p_data => x_msg_data
3238: );
3239: EXCEPTION
3240: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3241: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3242: -- Standard call to get message count and if count=1, get the message
3243: FND_MSG_PUB.Count_And_Get (
3244: p_encoded => FND_API.G_FALSE,
3245: p_count => x_msg_count,
3246: p_data => x_msg_data
3246: p_data => x_msg_data
3247: );
3248: WHEN FND_API.G_EXC_ERROR THEN
3249: x_return_status := FND_API.G_RET_STS_ERROR;
3250: -- Standard call to get message count and if count=1, get the message
3251: FND_MSG_PUB.Count_And_Get (
3252: p_encoded => FND_API.G_FALSE,
3253: p_count => x_msg_count,
3254: p_data => x_msg_data
3257: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3258: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3259: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3260: END IF;
3261: -- Standard call to get message count and if count=1, get the message
3262: FND_MSG_PUB.Count_And_Get (
3263: p_encoded => FND_API.G_FALSE,
3264: p_count => x_msg_count,
3265: p_data => x_msg_data
3314: And usg.usage = p_group_usage
3315: ;
3316: --
3317: BEGIN
3318: -- Standard call to check for call compatibility.
3319: SAVEPOINT Add_Group_Pvt;
3320: IF NOT FND_API.Compatible_API_Call (
3321: l_api_version,
3322: p_api_version,
3555: END IF;
3556: IF FND_API.To_Boolean ( p_commit ) THEN
3557: COMMIT WORK;
3558: END IF;
3559: --Standard call to get message count and if count=1, get the message
3560: FND_MSG_PUB.Count_And_Get (
3561: p_encoded => FND_API.G_FALSE,
3562: p_count => x_msg_count,
3563: p_data => x_msg_data
3565: EXCEPTION
3566: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3567: ROLLBACK TO Add_Group_Pvt;
3568: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3569: -- Standard call to get message count and if count=1, get the message
3570: FND_MSG_PUB.Count_And_Get (
3571: p_encoded => FND_API.G_FALSE,
3572: p_count => x_msg_count,
3573: p_data => x_msg_data
3574: );
3575: WHEN FND_API.G_EXC_ERROR THEN
3576: ROLLBACK TO Add_Group_Pvt;
3577: x_return_status := FND_API.G_RET_STS_ERROR;
3578: -- Standard call to get message count and if count=1, get the message
3579: FND_MSG_PUB.Count_And_Get (
3580: p_encoded => FND_API.G_FALSE,
3581: p_count => x_msg_count,
3582: p_data => x_msg_data
3586: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3587: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3588: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3589: END IF;
3590: -- Standard call to get message count and if count=1, get the message
3591: FND_MSG_PUB.Count_And_Get (
3592: p_encoded => FND_API.G_FALSE,
3593: p_count => x_msg_count,
3594: p_data => x_msg_data
3647: And subscription_reason_type = 'ENFORCED'
3648: ;
3649: --
3650: BEGIN
3651: -- Standard call to check for call compatibility.
3652: SAVEPOINT Update_Group_Pvt;
3653: IF NOT FND_API.Compatible_API_Call (
3654: l_api_version,
3655: p_api_version,
3792: END IF;
3793: IF FND_API.To_Boolean ( p_commit ) THEN
3794: COMMIT WORK;
3795: END IF;
3796: --Standard call to get message count and if count=1, get the message
3797: FND_MSG_PUB.Count_And_Get (
3798: p_encoded => FND_API.G_FALSE,
3799: p_count => x_msg_count,
3800: p_data => x_msg_data
3802: EXCEPTION
3803: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3804: ROLLBACK TO Update_Group_Pvt;
3805: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3806: -- Standard call to get message count and if count=1, get the message
3807: FND_MSG_PUB.Count_And_Get (
3808: p_encoded => FND_API.G_FALSE,
3809: p_count => x_msg_count,
3810: p_data => x_msg_data
3811: );
3812: WHEN FND_API.G_EXC_ERROR THEN
3813: ROLLBACK TO Update_Group_Pvt;
3814: x_return_status := FND_API.G_RET_STS_ERROR;
3815: -- Standard call to get message count and if count=1, get the message
3816: FND_MSG_PUB.Count_And_Get (
3817: p_encoded => FND_API.G_FALSE,
3818: p_count => x_msg_count,
3819: p_data => x_msg_data
3823: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3824: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3825: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3826: END IF;
3827: -- Standard call to get message count and if count=1, get the message
3828: FND_MSG_PUB.Count_And_Get (
3829: p_encoded => FND_API.G_FALSE,
3830: p_count => x_msg_count,
3831: p_data => x_msg_data
3957: p_email_address => FND_API.G_MISS_CHAR,
3958: p_new_start_date => sysdate -2,
3959: p_new_end_date => sysdate -1
3960: );
3961: --Standard call to get message count and if count=1, get the message
3962: FND_MSG_PUB.Count_And_Get (
3963: p_encoded => FND_API.G_FALSE,
3964: p_count => x_msg_count,
3965: p_data => x_msg_data
3967: EXCEPTION
3968: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3969: ROLLBACK TO Delete_Group_Pvt;
3970: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3971: -- Standard call to get message count and if count=1, get the message
3972: FND_MSG_PUB.Count_And_Get (
3973: p_encoded => FND_API.G_FALSE,
3974: p_count => x_msg_count,
3975: p_data => x_msg_data
3976: );
3977: WHEN FND_API.G_EXC_ERROR THEN
3978: ROLLBACK TO Delete_Group_Pvt;
3979: x_return_status := FND_API.G_RET_STS_ERROR;
3980: -- Standard call to get message count and if count=1, get the message
3981: FND_MSG_PUB.Count_And_Get (
3982: p_encoded => FND_API.G_FALSE,
3983: p_count => x_msg_count,
3984: p_data => x_msg_data
3988: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3989: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3990: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3991: END IF;
3992: -- Standard call to get message count and if count=1, get the message
3993: FND_MSG_PUB.Count_And_Get (
3994: p_encoded => FND_API.G_FALSE,
3995: p_count => x_msg_count,
3996: p_data => x_msg_data
4030: ;
4031: --
4032: l_group_info Get_GroupObj_csr%ROWTYPE;
4033: BEGIN
4034: -- Standard call to check for call compatibility.
4035: IF NOT FND_API.Compatible_API_Call (
4036: l_api_version,
4037: p_api_version,
4038: l_api_name,
4097: ELSE
4098: CLOSE Get_GroupObj_csr;
4099: RAISE FND_API.G_EXC_ERROR;
4100: END IF;
4101: --Standard call to get message count and if count=1, get the message
4102: FND_MSG_PUB.Count_And_Get (
4103: p_encoded => FND_API.G_FALSE,
4104: p_count => x_msg_count,
4105: p_data => x_msg_data
4106: );
4107: EXCEPTION
4108: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4109: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4110: -- Standard call to get message count and if count=1, get the message
4111: FND_MSG_PUB.Count_And_Get (
4112: p_encoded => FND_API.G_FALSE,
4113: p_count => x_msg_count,
4114: p_data => x_msg_data
4114: p_data => x_msg_data
4115: );
4116: WHEN FND_API.G_EXC_ERROR THEN
4117: x_return_status := FND_API.G_RET_STS_ERROR;
4118: -- Standard call to get message count and if count=1, get the message
4119: FND_MSG_PUB.Count_And_Get (
4120: p_encoded => FND_API.G_FALSE,
4121: p_count => x_msg_count,
4122: p_data => x_msg_data
4125: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4126: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4127: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
4128: END IF;
4129: -- Standard call to get message count and if count=1, get the message
4130: FND_MSG_PUB.Count_And_Get (
4131: p_encoded => FND_API.G_FALSE,
4132: p_count => x_msg_count,
4133: p_data => x_msg_data
4176: l_start_date DATE;
4177: l_end_date DATE;
4178: --
4179: BEGIN
4180: -- Standard call to check for call compatibility.
4181: IF NOT FND_API.Compatible_API_Call (
4182: l_api_version,
4183: p_api_version,
4184: l_api_name,
4344: p_subset_request_obj.start_record_position + l_fetch_count,
4345: l_total_record_count
4346: );
4347: */
4348: --Standard call to get message count and if count=1, get the message
4349: FND_MSG_PUB.Count_And_Get (
4350: p_encoded => FND_API.G_FALSE,
4351: p_count => x_msg_count,
4352: p_data => x_msg_data
4353: );
4354: EXCEPTION
4355: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4356: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4357: -- Standard call to get message count and if count=1, get the message
4358: FND_MSG_PUB.Count_And_Get (
4359: p_encoded => FND_API.G_FALSE,
4360: p_count => x_msg_count,
4361: p_data => x_msg_data
4361: p_data => x_msg_data
4362: );
4363: WHEN FND_API.G_EXC_ERROR THEN
4364: x_return_status := FND_API.G_RET_STS_ERROR;
4365: -- Standard call to get message count and if count=1, get the message
4366: FND_MSG_PUB.Count_And_Get (
4367: p_encoded => FND_API.G_FALSE,
4368: p_count => x_msg_count,
4369: p_data => x_msg_data
4372: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4373: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4374: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
4375: END IF;
4376: -- Standard call to get message count and if count=1, get the message
4377: FND_MSG_PUB.Count_And_Get (
4378: p_encoded => FND_API.G_FALSE,
4379: p_count => x_msg_count,
4380: p_data => x_msg_data
4422: l_start_date DATE;
4423: l_end_date DATE;
4424: --
4425: BEGIN
4426: -- Standard call to check for call compatibility.
4427: IF NOT FND_API.Compatible_API_Call (
4428: l_api_version,
4429: p_api_version,
4430: l_api_name,
4562: p_subset_request_obj.start_record_position + l_fetch_count,
4563: l_total_record_count
4564: );
4565: */
4566: --Standard call to get message count and if count=1, get the message
4567: FND_MSG_PUB.Count_And_Get (
4568: p_encoded => FND_API.G_FALSE,
4569: p_count => x_msg_count,
4570: p_data => x_msg_data
4571: );
4572: EXCEPTION
4573: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4574: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4575: -- Standard call to get message count and if count=1, get the message
4576: FND_MSG_PUB.Count_And_Get (
4577: p_encoded => FND_API.G_FALSE,
4578: p_count => x_msg_count,
4579: p_data => x_msg_data
4579: p_data => x_msg_data
4580: );
4581: WHEN FND_API.G_EXC_ERROR THEN
4582: x_return_status := FND_API.G_RET_STS_ERROR;
4583: -- Standard call to get message count and if count=1, get the message
4584: FND_MSG_PUB.Count_And_Get (
4585: p_encoded => FND_API.G_FALSE,
4586: p_count => x_msg_count,
4587: p_data => x_msg_data
4590: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4591: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4592: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
4593: END IF;
4594: -- Standard call to get message count and if count=1, get the message
4595: FND_MSG_PUB.Count_And_Get (
4596: p_encoded => FND_API.G_FALSE,
4597: p_count => x_msg_count,
4598: p_data => x_msg_data
4632: And delete_flag <> 'Y';
4633: --
4634: --
4635: BEGIN
4636: -- Standard call to check for call compatibility.
4637: SAVEPOINT Add_GroupMember_Pvt;
4638: IF NOT FND_API.Compatible_API_Call (
4639: l_api_version,
4640: p_api_version,
4727: );
4728: ELSE
4729: CLOSE Check_groupMember_csr;
4730: END IF;
4731: --Standard call to get message count and if count=1, get the message
4732: FND_MSG_PUB.Count_And_Get (
4733: p_encoded => FND_API.G_FALSE,
4734: p_count => x_msg_count,
4735: p_data => x_msg_data
4737: EXCEPTION
4738: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4739: ROLLBACK TO Add_groupMember_Pvt;
4740: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4741: -- Standard call to get message count and if count=1, get the message
4742: FND_MSG_PUB.Count_And_Get (
4743: p_encoded => FND_API.G_FALSE,
4744: p_count => x_msg_count,
4745: p_data => x_msg_data
4746: );
4747: WHEN FND_API.G_EXC_ERROR THEN
4748: ROLLBACK TO Add_groupMember_Pvt;
4749: x_return_status := FND_API.G_RET_STS_ERROR;
4750: -- Standard call to get message count and if count=1, get the message
4751: FND_MSG_PUB.Count_And_Get (
4752: p_encoded => FND_API.G_FALSE,
4753: p_count => x_msg_count,
4754: p_data => x_msg_data
4758: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4759: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4760: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
4761: END IF;
4762: -- Standard call to get message count and if count=1, get the message
4763: FND_MSG_PUB.Count_And_Get (
4764: p_encoded => FND_API.G_FALSE,
4765: p_count => x_msg_count,
4766: p_data => x_msg_data
4793: l_msg_data VARCHAR2(2000);
4794: l_temp NUMBER;
4795: --
4796: BEGIN
4797: -- Standard call to check for call compatibility.
4798: SAVEPOINT Add_GroupMember_Pvt;
4799: IF NOT FND_API.Compatible_API_Call (
4800: l_api_version,
4801: p_api_version,
4878: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4879: x_return_status := FND_API.G_RET_STS_ERROR;
4880: END IF;
4881: END LOOP;
4882: --Standard call to get message count and if count=1, get the message
4883: FND_MSG_PUB.Count_And_Get (
4884: p_encoded => FND_API.G_FALSE,
4885: p_count => x_msg_count,
4886: p_data => x_msg_data
4888: EXCEPTION
4889: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4890: ROLLBACK TO Add_groupMember_Pvt;
4891: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4892: -- Standard call to get message count and if count=1, get the message
4893: FND_MSG_PUB.Count_And_Get (
4894: p_encoded => FND_API.G_FALSE,
4895: p_count => x_msg_count,
4896: p_data => x_msg_data
4897: );
4898: WHEN FND_API.G_EXC_ERROR THEN
4899: ROLLBACK TO Add_groupMember_Pvt;
4900: x_return_status := FND_API.G_RET_STS_ERROR;
4901: -- Standard call to get message count and if count=1, get the message
4902: FND_MSG_PUB.Count_And_Get (
4903: p_encoded => FND_API.G_FALSE,
4904: p_count => x_msg_count,
4905: p_data => x_msg_data
4909: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4910: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4911: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
4912: END IF;
4913: -- Standard call to get message count and if count=1, get the message
4914: FND_MSG_PUB.Count_And_Get (
4915: p_encoded => FND_API.G_FALSE,
4916: p_count => x_msg_count,
4917: p_data => x_msg_data
4948: And group_id = p_group_id
4949: And delete_flag <> 'Y';
4950: --
4951: BEGIN
4952: -- Standard call to check for call compatibility.
4953: SAVEPOINT Remove_GroupMember_Pvt;
4954: IF NOT FND_API.Compatible_API_Call (
4955: l_api_version,
4956: p_api_version,
5024: );
5025: ELSE
5026: CLOSE Check_groupMember_csr;
5027: END IF;
5028: --Standard call to get message count and if count=1, get the message
5029: FND_MSG_PUB.Count_And_Get (
5030: p_encoded => FND_API.G_FALSE,
5031: p_count => x_msg_count,
5032: p_data => x_msg_data
5034: EXCEPTION
5035: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5036: ROLLBACK TO Remove_GroupMember_Pvt;
5037: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5038: -- Standard call to get message count and if count=1, get the message
5039: FND_MSG_PUB.Count_And_Get (
5040: p_encoded => FND_API.G_FALSE,
5041: p_count => x_msg_count,
5042: p_data => x_msg_data
5043: );
5044: WHEN FND_API.G_EXC_ERROR THEN
5045: ROLLBACK TO Remove_GroupMember_Pvt;
5046: x_return_status := FND_API.G_RET_STS_ERROR;
5047: -- Standard call to get message count and if count=1, get the message
5048: FND_MSG_PUB.Count_And_Get (
5049: p_encoded => FND_API.G_FALSE,
5050: p_count => x_msg_count,
5051: p_data => x_msg_data
5055: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5056: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5057: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
5058: END IF;
5059: -- Standard call to get message count and if count=1, get the message
5060: FND_MSG_PUB.Count_And_Get (
5061: p_encoded => FND_API.G_FALSE,
5062: p_count => x_msg_count,
5063: p_data => x_msg_data
5091: l_temp NUMBER;
5092: l_count NUMBER;
5093: --
5094: BEGIN
5095: -- Standard call to check for call compatibility.
5096: SAVEPOINT Remove_GroupMember_Pvt;
5097: IF NOT FND_API.Compatible_API_Call (
5098: l_api_version,
5099: p_api_version,
5181: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
5182: x_return_status := FND_API.G_RET_STS_ERROR;
5183: END IF;
5184: END LOOP;
5185: --Standard call to get message count and if count=1, get the message
5186: FND_MSG_PUB.Count_And_Get (
5187: p_encoded => FND_API.G_FALSE,
5188: p_count => x_msg_count,
5189: p_data => x_msg_data
5191: EXCEPTION
5192: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5193: ROLLBACK TO Remove_GroupMember_Pvt;
5194: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5195: -- Standard call to get message count and if count=1, get the message
5196: FND_MSG_PUB.Count_And_Get (
5197: p_encoded => FND_API.G_FALSE,
5198: p_count => x_msg_count,
5199: p_data => x_msg_data
5200: );
5201: WHEN FND_API.G_EXC_ERROR THEN
5202: ROLLBACK TO Remove_GroupMember_Pvt;
5203: x_return_status := FND_API.G_RET_STS_ERROR;
5204: -- Standard call to get message count and if count=1, get the message
5205: FND_MSG_PUB.Count_And_Get (
5206: p_encoded => FND_API.G_FALSE,
5207: p_count => x_msg_count,
5208: p_data => x_msg_data
5212: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5213: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5214: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
5215: END IF;
5216: -- Standard call to get message count and if count=1, get the message
5217: FND_MSG_PUB.Count_And_Get (
5218: p_encoded => FND_API.G_FALSE,
5219: p_count => x_msg_count,
5220: p_data => x_msg_data
5254: And nvl(g.end_date_active, sysdate+1) > sysdate
5255: ;
5256: --
5257: BEGIN
5258: -- Standard call to check for call compatibility.
5259: SAVEPOINT Add_GroupMember_Pvt;
5260: IF NOT FND_API.Compatible_API_Call (
5261: l_api_version,
5262: p_api_version,
5294: IF (Check_GroupMember_csr%FOUND) THEN
5295: x_result_flag := FND_API.G_TRUE;
5296: END IF;
5297: CLOSE Check_groupMember_csr;
5298: --Standard call to get message count and if count=1, get the message
5299: FND_MSG_PUB.Count_And_Get (
5300: p_encoded => FND_API.G_FALSE,
5301: p_count => x_msg_count,
5302: p_data => x_msg_data
5303: );
5304: EXCEPTION
5305: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5306: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5307: -- Standard call to get message count and if count=1, get the message
5308: FND_MSG_PUB.Count_And_Get (
5309: p_encoded => FND_API.G_FALSE,
5310: p_count => x_msg_count,
5311: p_data => x_msg_data
5311: p_data => x_msg_data
5312: );
5313: WHEN FND_API.G_EXC_ERROR THEN
5314: x_return_status := FND_API.G_RET_STS_ERROR;
5315: -- Standard call to get message count and if count=1, get the message
5316: FND_MSG_PUB.Count_And_Get (
5317: p_encoded => FND_API.G_FALSE,
5318: p_count => x_msg_count,
5319: p_data => x_msg_data
5322: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5323: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5324: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
5325: END IF;
5326: -- Standard call to get message count and if count=1, get the message
5327: FND_MSG_PUB.Count_And_Get (
5328: p_encoded => FND_API.G_FALSE,
5329: p_count => x_msg_count,
5330: p_data => x_msg_data
5364: And access_to_table_record_id = l_access_obj.access_to_table_record_id
5365: And access_to_table_code = l_access_obj.access_to_table_code;
5366: --
5367: BEGIN
5368: -- Standard call to check for call compatibility.
5369: SAVEPOINT Update_Access_Pvt;
5370: IF NOT FND_API.Compatible_API_Call (
5371: l_api_version,
5372: p_api_version,
5609: END IF;
5610: IF FND_API.To_Boolean ( p_commit ) THEN
5611: COMMIT WORK;
5612: END IF;
5613: --Standard call to get message count and if count=1, get the message
5614: FND_MSG_PUB.Count_And_Get (
5615: p_encoded => FND_API.G_FALSE,
5616: p_count => x_msg_count,
5617: p_data => x_msg_data
5619: EXCEPTION
5620: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5621: ROLLBACK TO Update_Access_Pvt;
5622: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5623: -- Standard call to get message count and if count=1, get the message
5624: FND_MSG_PUB.Count_And_Get (
5625: p_encoded => FND_API.G_FALSE,
5626: p_count => x_msg_count,
5627: p_data => x_msg_data
5628: );
5629: WHEN FND_API.G_EXC_ERROR THEN
5630: ROLLBACK TO Update_Access_Pvt;
5631: x_return_status := FND_API.G_RET_STS_ERROR;
5632: -- Standard call to get message count and if count=1, get the message
5633: FND_MSG_PUB.Count_And_Get (
5634: p_encoded => FND_API.G_FALSE,
5635: p_count => x_msg_count,
5636: p_data => x_msg_data
5640: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5641: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5642: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
5643: END IF;
5644: -- Standard call to get message count and if count=1, get the message
5645: FND_MSG_PUB.Count_And_Get (
5646: p_encoded => FND_API.G_FALSE,
5647: p_count => x_msg_count,
5648: p_data => x_msg_data
5672: l_count NUMBER;
5673: l_admin_flag VARCHAR2(1);
5674: --
5675: BEGIN
5676: -- Standard call to check for call compatibility.
5677: SAVEPOINT Update_Access_Pvt;
5678: IF NOT FND_API.Compatible_API_Call (
5679: l_api_version,
5680: p_api_version,
5753: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
5754: x_return_status := FND_API.G_RET_STS_ERROR;
5755: END IF;
5756: END LOOP;
5757: --Standard call to get message count and if count=1, get the message
5758: FND_MSG_PUB.Count_And_Get (
5759: p_encoded => FND_API.G_FALSE,
5760: p_count => x_msg_count,
5761: p_data => x_msg_data
5763: EXCEPTION
5764: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5765: ROLLBACK TO Update_Access_Pvt;
5766: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5767: -- Standard call to get message count and if count=1, get the message
5768: FND_MSG_PUB.Count_And_Get (
5769: p_encoded => FND_API.G_FALSE,
5770: p_count => x_msg_count,
5771: p_data => x_msg_data
5772: );
5773: WHEN FND_API.G_EXC_ERROR THEN
5774: ROLLBACK TO Update_Access_Pvt;
5775: x_return_status := FND_API.G_RET_STS_ERROR;
5776: -- Standard call to get message count and if count=1, get the message
5777: FND_MSG_PUB.Count_And_Get (
5778: p_encoded => FND_API.G_FALSE,
5779: p_count => x_msg_count,
5780: p_data => x_msg_data
5784: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5785: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5786: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
5787: END IF;
5788: -- Standard call to get message count and if count=1, get the message
5789: FND_MSG_PUB.Count_And_Get (
5790: p_encoded => FND_API.G_FALSE,
5791: p_count => x_msg_count,
5792: p_data => x_msg_data
6383: And access_to_table_code = G_CHAN_ARC_TYPE
6384: And u.access_to_table_record_id = c.channel_id;
6385: --
6386: BEGIN
6387: -- Standard call to check for call compatibility.
6388: IF NOT FND_API.Compatible_API_Call (
6389: l_api_version,
6390: p_api_version,
6391: l_api_name,
6461: cur.CHL_REQUIRED_NEED_NOTIF_FLAG
6462: );
6463: */
6464: END LOOP;
6465: --Standard call to get message count and if count=1, get the message
6466: FND_MSG_PUB.Count_And_Get (
6467: p_encoded => FND_API.G_FALSE,
6468: p_count => x_msg_count,
6469: p_data => x_msg_data
6470: );
6471: EXCEPTION
6472: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6473: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6474: -- Standard call to get message count and if count=1, get the message
6475: FND_MSG_PUB.Count_And_Get (
6476: p_encoded => FND_API.G_FALSE,
6477: p_count => x_msg_count,
6478: p_data => x_msg_data
6478: p_data => x_msg_data
6479: );
6480: WHEN FND_API.G_EXC_ERROR THEN
6481: x_return_status := FND_API.G_RET_STS_ERROR;
6482: -- Standard call to get message count and if count=1, get the message
6483: FND_MSG_PUB.Count_And_Get (
6484: p_encoded => FND_API.G_FALSE,
6485: p_count => x_msg_count,
6486: p_data => x_msg_data
6489: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6490: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6491: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
6492: END IF;
6493: -- Standard call to get message count and if count=1, get the message
6494: FND_MSG_PUB.Count_And_Get (
6495: p_encoded => FND_API.G_FALSE,
6496: p_count => x_msg_count,
6497: p_data => x_msg_data
6570: And access_to_table_code = G_CHAN_ARC_TYPE
6571: And u.access_to_table_record_id = p_channel_id;
6572: --
6573: BEGIN
6574: -- Standard call to check for call compatibility.
6575: IF NOT FND_API.Compatible_API_Call (
6576: l_api_version,
6577: p_api_version,
6578: l_api_name,
6695: );
6696: */
6697: END LOOP;
6698: END IF;
6699: --Standard call to get message count and if count=1, get the message
6700: FND_MSG_PUB.Count_And_Get (
6701: p_encoded => FND_API.G_FALSE,
6702: p_count => x_msg_count,
6703: p_data => x_msg_data
6704: );
6705: EXCEPTION
6706: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6707: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6708: -- Standard call to get message count and if count=1, get the message
6709: FND_MSG_PUB.Count_And_Get (
6710: p_encoded => FND_API.G_FALSE,
6711: p_count => x_msg_count,
6712: p_data => x_msg_data
6712: p_data => x_msg_data
6713: );
6714: WHEN FND_API.G_EXC_ERROR THEN
6715: x_return_status := FND_API.G_RET_STS_ERROR;
6716: -- Standard call to get message count and if count=1, get the message
6717: FND_MSG_PUB.Count_And_Get (
6718: p_encoded => FND_API.G_FALSE,
6719: p_count => x_msg_count,
6720: p_data => x_msg_data
6723: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6724: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6725: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
6726: END IF;
6727: -- Standard call to get message count and if count=1, get the message
6728: FND_MSG_PUB.Count_And_Get (
6729: p_encoded => FND_API.G_FALSE,
6730: p_count => x_msg_count,
6731: p_data => x_msg_data
6775: And access_to_table_record_id = p_business_object_id
6776: And access_to_table_code = p_business_object_type;
6777: --
6778: BEGIN
6779: -- Standard call to check for call compatibility.
6780: IF NOT FND_API.Compatible_API_Call (
6781: l_api_version,
6782: p_api_version,
6783: l_api_name,
6861: x_access_obj.CHL_APPROVER_FLAG,
6862: x_access_obj.CHL_REQUIRED_FLAG,
6863: x_access_obj.CHL_REQUIRED_NEED_NOTIF_FLAG;
6864: CLOSE Get_Access_csr;
6865: --Standard call to get message count and if count=1, get the message
6866: FND_MSG_PUB.Count_And_Get (
6867: p_encoded => FND_API.G_FALSE,
6868: p_count => x_msg_count,
6869: p_data => x_msg_data
6870: );
6871: EXCEPTION
6872: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6873: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6874: -- Standard call to get message count and if count=1, get the message
6875: FND_MSG_PUB.Count_And_Get (
6876: p_encoded => FND_API.G_FALSE,
6877: p_count => x_msg_count,
6878: p_data => x_msg_data
6878: p_data => x_msg_data
6879: );
6880: WHEN FND_API.G_EXC_ERROR THEN
6881: x_return_status := FND_API.G_RET_STS_ERROR;
6882: -- Standard call to get message count and if count=1, get the message
6883: FND_MSG_PUB.Count_And_Get (
6884: p_encoded => FND_API.G_FALSE,
6885: p_count => x_msg_count,
6886: p_data => x_msg_data
6889: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6890: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6891: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
6892: END IF;
6893: -- Standard call to get message count and if count=1, get the message
6894: FND_MSG_PUB.Count_And_Get (
6895: p_encoded => FND_API.G_FALSE,
6896: p_count => x_msg_count,
6897: p_data => x_msg_data
7038: And nvl(g.start_date_active, sysdate-1) < sysdate
7039: And nvl(g.end_date_active, sysdate+1) > sysdate;
7040: --
7041: BEGIN
7042: -- Standard call to check for call compatibility.
7043: IF NOT FND_API.Compatible_API_Call (
7044: l_api_version,
7045: p_api_version,
7046: l_api_name,
7103: OPEN Get_ItemEffDate_csr(p_business_object_id);
7104: FETCH Get_ItemEffDate_csr INTO l_start_date, l_end_date;
7105: CLOSE Get_ItemEffDate_csr;
7106: IF (l_start_date > sysdate OR l_end_date < sysdate) THEN
7107: --Standard call to get message count and if count=1, get the message
7108: FND_MSG_PUB.Count_And_Get (
7109: p_encoded => FND_API.G_FALSE,
7110: p_count => x_msg_count,
7111: p_data => x_msg_data
7118: OPEN Get_ChannelEffDate_csr(p_business_object_id);
7119: FETCH Get_ChannelEffDate_csr INTO l_start_date, l_end_date;
7120: CLOSE Get_ChannelEffDate_csr;
7121: IF (l_start_date > sysdate OR l_end_date < sysdate) THEN
7122: --Standard call to get message count and if count=1, get the message
7123: FND_MSG_PUB.Count_And_Get (
7124: p_encoded => FND_API.G_FALSE,
7125: p_count => x_msg_count,
7126: p_data => x_msg_data
7233: END IF;
7234: END LOOP;
7235: END IF;
7236: END IF; --IF (p_check_effective_date = FND_API.G_TRUE)
7237: --Standard call to get message count and if count=1, get the message
7238: FND_MSG_PUB.Count_And_Get (
7239: p_encoded => FND_API.G_FALSE,
7240: p_count => x_msg_count,
7241: p_data => x_msg_data
7242: );
7243: EXCEPTION
7244: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7245: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7246: -- Standard call to get message count and if count=1, get the message
7247: FND_MSG_PUB.Count_And_Get (
7248: p_encoded => FND_API.G_FALSE,
7249: p_count => x_msg_count,
7250: p_data => x_msg_data
7250: p_data => x_msg_data
7251: );
7252: WHEN FND_API.G_EXC_ERROR THEN
7253: x_return_status := FND_API.G_RET_STS_ERROR;
7254: -- Standard call to get message count and if count=1, get the message
7255: FND_MSG_PUB.Count_And_Get (
7256: p_encoded => FND_API.G_FALSE,
7257: p_count => x_msg_count,
7258: p_data => x_msg_data
7261: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7262: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
7263: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
7264: END IF;
7265: -- Standard call to get message count and if count=1, get the message
7266: FND_MSG_PUB.Count_And_Get (
7267: p_encoded => FND_API.G_FALSE,
7268: p_count => x_msg_count,
7269: p_data => x_msg_data