[Home] [Help]
202: x_relationship_id := l_relationship_id;
203: x_return_status := FND_API.G_RET_STS_ERROR;
204: x_msg_count := 1;
205: fnd_message.set_name('EGO','EGO_RELATION_EXISTS');
206: fnd_msg_pub.add;
207: ELSE
208: -- Standard Start of API savepoint
209: IF FND_API.TO_BOOLEAN(p_commit) THEN
210: SAVEPOINT EGO_CREATE_RELATIONSHIP;
219: END IF;
220: -- Initialize API message list if necessary.
221: -- Initialize message list if p_init_msg_list is set to TRUE.
222: IF FND_API.to_Boolean( NVL(p_init_msg_list, 'F') ) THEN
223: FND_MSG_PUB.initialize;
224: END IF;
225:
226: l_party_rel_rec.subject_id := p_subject_id;
227: l_party_rel_rec.subject_type := p_subject_type;
272: -- Standard call to get message count and if count is 1,
273: -- get message info.
274: -- The client will directly display the x_msg_data (which is already
275: -- translated) if the x_msg_count = 1;
276: -- Else i.e if x_msg_count > 1, client will call the FND_MSG_PUB.Get
277: -- Server-side procedure to access the messages, and consolidate them
278: -- and display (or) to display one message after another.
279: mdebug('. CREATE_RELATIONSHIP: Tracing....');
280: FND_MSG_PUB.Count_And_Get
276: -- Else i.e if x_msg_count > 1, client will call the FND_MSG_PUB.Get
277: -- Server-side procedure to access the messages, and consolidate them
278: -- and display (or) to display one message after another.
279: mdebug('. CREATE_RELATIONSHIP: Tracing....');
280: FND_MSG_PUB.Count_And_Get
281: ( p_count => x_msg_count,
282: p_data => x_msg_data
283: );
284: EXCEPTION
287: ROLLBACK TO EGO_CREATE_RELATIONSHIP;
288: END IF;
289: mdebug('. CREATE_RELATIONSHIP: Ending : Returning ''FND_API.G_EXC_ERROR''');
290: x_return_status := FND_API.G_RET_STS_ERROR;
291: FND_MSG_PUB.Count_And_Get
292: (p_count => x_msg_count,
293: p_data => x_msg_data
294: );
295: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
297: ROLLBACK TO EGO_CREATE_RELATIONSHIP;
298: END IF;
299: mdebug('. CREATE_RELATIONSHIP: Ending : Returning ''FND_API.G_EXC_UNEXPECTED_ERROR''');
300: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
301: FND_MSG_PUB.Count_And_Get
302: (p_count => x_msg_count,
303: p_data => x_msg_data
304: );
305: WHEN OTHERS THEN
307: ROLLBACK TO EGO_CREATE_RELATIONSHIP;
308: END IF;
309: mdebug('. CREATE_RELATIONSHIP: Ending : Returning UNEXPECTED ERROR');
310: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
311: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
312: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
313: END IF;
314: FND_MSG_PUB.Count_And_Get
315: (p_count => x_msg_count,
308: END IF;
309: mdebug('. CREATE_RELATIONSHIP: Ending : Returning UNEXPECTED ERROR');
310: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
311: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
312: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
313: END IF;
314: FND_MSG_PUB.Count_And_Get
315: (p_count => x_msg_count,
316: p_data => x_msg_data
310: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
311: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
312: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
313: END IF;
314: FND_MSG_PUB.Count_And_Get
315: (p_count => x_msg_count,
316: p_data => x_msg_data
317: );
318: END Create_Relationship;
401: END IF;
402:
403: -- Initialize API message list if necessary.
404: IF FND_API.to_Boolean( NVL(p_init_msg_list, 'F') ) THEN
405: FND_MSG_PUB.initialize;
406: END IF;
407:
408: HZ_RELATIONSHIP_V2PUB.update_relationship
409: (p_init_msg_list => NVL(p_init_msg_list, 'F')
428: -- Standard call to get message count and if count is 1,
429: -- get message info.
430: -- The client will directly display the x_msg_data (which is already
431: -- translated) if the x_msg_count = 1;
432: -- Else i.e if x_msg_count > 1, client will call the FND_MSG_PUB.Get
433: -- Server-side procedure to access the messages, and consolidate them
434: -- and display (or) to display one message after another.
435: mdebug('. UPDATE_RELATIONSHIP: Tracing....');
436:
433: -- Server-side procedure to access the messages, and consolidate them
434: -- and display (or) to display one message after another.
435: mdebug('. UPDATE_RELATIONSHIP: Tracing....');
436:
437: FND_MSG_PUB.Count_And_Get
438: ( p_count => x_msg_count,
439: p_data => x_msg_data
440: );
441:
445: ROLLBACK TO EGO_UPDATE_RELATIONSHIP;
446: END IF;
447: mdebug('. UPDATE_RELATIONSHIP: Ending : Returning ''FND_API.G_EXC_ERROR''');
448: x_return_status := FND_API.G_RET_STS_ERROR;
449: FND_MSG_PUB.Count_And_Get
450: (p_count => x_msg_count,
451: p_data => x_msg_data
452: );
453: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
455: ROLLBACK TO EGO_UPDATE_RELATIONSHIP;
456: END IF;
457: mdebug('. UPDATE_RELATIONSHIP: Ending : Returning ''FND_API.G_EXC_UNEXPECTED_ERROR''');
458: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
459: FND_MSG_PUB.Count_And_Get
460: (p_count => x_msg_count,
461: p_data => x_msg_data
462: );
463: WHEN OTHERS THEN
465: ROLLBACK TO EGO_UPDATE_RELATIONSHIP;
466: END IF;
467: mdebug('. UPDATE_RELATIONSHIP: Ending : Returning UNEXPECTED ERROR');
468: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
469: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
470: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
471: END IF;
472: FND_MSG_PUB.Count_And_Get
473: (p_count => x_msg_count,
466: END IF;
467: mdebug('. UPDATE_RELATIONSHIP: Ending : Returning UNEXPECTED ERROR');
468: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
469: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
470: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
471: END IF;
472: FND_MSG_PUB.Count_And_Get
473: (p_count => x_msg_count,
474: p_data => x_msg_data
468: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
469: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
470: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
471: END IF;
472: FND_MSG_PUB.Count_And_Get
473: (p_count => x_msg_count,
474: p_data => x_msg_data
475: );
476: END Update_Relationship;
622: OR p_creator_person_id IS NULL
623: ) THEN
624: fnd_message.set_name('EGO','EGO_MAND_PARAM_MISSING');
625: fnd_message.set_token('PROGRAM', G_PKG_NAME || l_api_name);
626: fnd_msg_pub.add;
627: x_return_status := FND_API.G_RET_STS_ERROR;
628: x_msg_count := 1;
629: fnd_msg_pub.Count_And_Get
630: (p_count => x_msg_count
625: fnd_message.set_token('PROGRAM', G_PKG_NAME || l_api_name);
626: fnd_msg_pub.add;
627: x_return_status := FND_API.G_RET_STS_ERROR;
628: x_msg_count := 1;
629: fnd_msg_pub.Count_And_Get
630: (p_count => x_msg_count
631: ,p_data => x_msg_data
632: );
633: RETURN;
650: END IF;
651:
652: -- Initialize API message list if necessary.
653: IF FND_API.to_Boolean( NVL(p_init_msg_list, 'F') ) THEN
654: FND_MSG_PUB.initialize;
655: END IF;
656:
657: l_group_rec.group_name := p_group_name;
658:
813: -- Standard call to get message count and if count is 1,
814: -- get message info.
815: -- The client will directly display the x_msg_data (which is already
816: -- translated) if the x_msg_count = 1;
817: -- Else i.e if x_msg_count > 1, client will call the FND_MSG_PUB.Get
818: -- Server-side procedure to access the messages, and consolidate them
819: -- and display (or) to display one message after another.
820: mdebug('CREATE_GROUP: Tracing....');
821:
818: -- Server-side procedure to access the messages, and consolidate them
819: -- and display (or) to display one message after another.
820: mdebug('CREATE_GROUP: Tracing....');
821:
822: FND_MSG_PUB.Count_And_Get
823: ( p_count => x_msg_count,
824: p_data => x_msg_data
825: );
826:
830: ROLLBACK TO EGO_CREATE_GROUP;
831: END IF;
832: mdebug('CREATE_GROUP: Ending - Returning ''FND_API.G_EXC_ERROR''');
833: x_return_status := FND_API.G_RET_STS_ERROR;
834: FND_MSG_PUB.Count_And_Get
835: (p_count => x_msg_count,
836: p_data => x_msg_data
837: );
838: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
840: ROLLBACK TO EGO_CREATE_GROUP;
841: END IF;
842: mdebug('CREATE_GROUP: Ending - Returning ''FND_API.G_EXC_UNEXPECTED_ERROR''');
843: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
844: FND_MSG_PUB.Count_And_Get
845: ( p_count => x_msg_count,
846: p_data => x_msg_data
847: );
848: WHEN OTHERS THEN
850: ROLLBACK TO EGO_CREATE_GROUP;
851: END IF;
852: mdebug('CREATE_GROUP: Ending - Returning UNEXPECTED ERROR');
853: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
854: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
855: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name);
856: END IF;
857: FND_MSG_PUB.Count_And_Get
858: (p_count => x_msg_count,
851: END IF;
852: mdebug('CREATE_GROUP: Ending - Returning UNEXPECTED ERROR');
853: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
854: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
855: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name);
856: END IF;
857: FND_MSG_PUB.Count_And_Get
858: (p_count => x_msg_count,
859: p_data => x_msg_data
853: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
854: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
855: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name);
856: END IF;
857: FND_MSG_PUB.Count_And_Get
858: (p_count => x_msg_count,
859: p_data => x_msg_data
860: );
861:
984: -- OR p_object_version_no_owner_rel IS NULL
985: ) THEN
986: fnd_message.set_name('EGO','EGO_MAND_PARAM_MISSING');
987: fnd_message.set_token('PROGRAM', G_PKG_NAME || l_api_name);
988: fnd_msg_pub.add;
989: x_return_status := FND_API.G_RET_STS_ERROR;
990: x_msg_count := 1;
991: fnd_msg_pub.Count_And_Get
992: (p_count => x_msg_count
987: fnd_message.set_token('PROGRAM', G_PKG_NAME || l_api_name);
988: fnd_msg_pub.add;
989: x_return_status := FND_API.G_RET_STS_ERROR;
990: x_msg_count := 1;
991: fnd_msg_pub.Count_And_Get
992: (p_count => x_msg_count
993: ,p_data => x_msg_data
994: );
995: RETURN;
1009: END IF;
1010:
1011: -- Initialize API message list if necessary.
1012: IF FND_API.to_Boolean( NVL(p_init_msg_list, 'F') ) THEN
1013: FND_MSG_PUB.initialize;
1014: END IF;
1015:
1016: l_group_rec.party_rec.party_id := p_group_id;
1017: l_group_rec.group_name := nvl(p_group_name,chr(0));
1248: -- Standard call to get message count and if count is 1,
1249: -- get message info.
1250: -- The client will directly display the x_msg_data (which is already
1251: -- translated) if the x_msg_count = 1;
1252: -- Else i.e if x_msg_count > 1, client will call the FND_MSG_PUB.Get
1253: -- Server-side procedure to access the messages, and consolidate them
1254: -- and display (or) to display one message after another.
1255: mdebug('UPDATE_GROUP Tracing....');
1256:
1253: -- Server-side procedure to access the messages, and consolidate them
1254: -- and display (or) to display one message after another.
1255: mdebug('UPDATE_GROUP Tracing....');
1256:
1257: FND_MSG_PUB.Count_And_Get
1258: ( p_count => x_msg_count,
1259: p_data => x_msg_data
1260: );
1261:
1265: ROLLBACK TO EGO_UPDATE_GROUP;
1266: END IF;
1267: mdebug('UPDATE_GROUP Ending : Returning ''FND_API.G_EXC_ERROR'' ERROR');
1268: x_return_status := FND_API.G_RET_STS_ERROR;
1269: FND_MSG_PUB.Count_And_Get
1270: (p_count => x_msg_count,
1271: p_data => x_msg_data
1272: );
1273: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1275: ROLLBACK TO EGO_UPDATE_GROUP;
1276: END IF;
1277: mdebug('UPDATE_GROUP Ending : Returning ''FND_API.G_EXC_UNEXPECTED_ERROR'' ERROR');
1278: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1279: FND_MSG_PUB.Count_And_Get
1280: (p_count => x_msg_count,
1281: p_data => x_msg_data
1282: );
1283: WHEN OTHERS THEN
1294: CLOSE c_get_contact_details;
1295: END IF;
1296: mdebug('UPDATE_GROUP Ending : Returning UNEXPECTED ERROR');
1297: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1298: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1299: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1300: END IF;
1301: FND_MSG_PUB.Count_And_Get
1302: (p_count => x_msg_count,
1295: END IF;
1296: mdebug('UPDATE_GROUP Ending : Returning UNEXPECTED ERROR');
1297: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1298: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1299: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1300: END IF;
1301: FND_MSG_PUB.Count_And_Get
1302: (p_count => x_msg_count,
1303: p_data => x_msg_data
1297: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1298: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1299: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1300: END IF;
1301: FND_MSG_PUB.Count_And_Get
1302: (p_count => x_msg_count,
1303: p_data => x_msg_data
1304: );
1305: END update_group;
1392: OR p_object_version_no_group IS NULL
1393: ) THEN
1394: fnd_message.set_name('EGO','EGO_MAND_PARAM_MISSING');
1395: fnd_message.set_token('PROGRAM', G_PKG_NAME || l_api_name);
1396: fnd_msg_pub.add;
1397: x_return_status := FND_API.G_RET_STS_ERROR;
1398: x_msg_count := 1;
1399: fnd_msg_pub.Count_And_Get
1400: (p_count => x_msg_count
1395: fnd_message.set_token('PROGRAM', G_PKG_NAME || l_api_name);
1396: fnd_msg_pub.add;
1397: x_return_status := FND_API.G_RET_STS_ERROR;
1398: x_msg_count := 1;
1399: fnd_msg_pub.Count_And_Get
1400: (p_count => x_msg_count
1401: ,p_data => x_msg_data
1402: );
1403: RETURN;
1416: END IF;
1417: -- Initialize API message list if necessary.
1418: -- Initialize message list if p_init_msg_list is set to TRUE.
1419: IF FND_API.to_Boolean( NVL(p_init_msg_list, 'F') ) THEN
1420: FND_MSG_PUB.initialize;
1421: END IF;
1422: --
1423: -- delete all the members of the Group
1424: --
1546: -- Standard call to get message count and if count is 1,
1547: -- get message info.
1548: -- The client will directly display the x_msg_data (which is already
1549: -- translated) if the x_msg_count = 1;
1550: -- Else i.e if x_msg_count > 1, client will call the FND_MSG_PUB.Get
1551: -- Server-side procedure to access the messages, and consolidate them
1552: -- and display (or) to display one message after another.
1553: mdebug('Tracing....');
1554:
1551: -- Server-side procedure to access the messages, and consolidate them
1552: -- and display (or) to display one message after another.
1553: mdebug('Tracing....');
1554:
1555: FND_MSG_PUB.Count_And_Get
1556: ( p_count => x_msg_count,
1557: p_data => x_msg_data
1558: );
1559:
1564: ROLLBACK TO EGO_DELETE_GROUP;
1565: END IF;
1566: mdebug('DELETE_GROUP Ending : Returning ''FND_API.G_EXC_ERROR'' ERROR');
1567: x_return_status := FND_API.G_RET_STS_ERROR;
1568: FND_MSG_PUB.Count_And_Get
1569: (p_count => x_msg_count,
1570: p_data => x_msg_data
1571: );
1572: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1574: ROLLBACK TO EGO_DELETE_GROUP;
1575: END IF;
1576: mdebug('DELETE_GROUP Ending : Returning ''FND_API.G_EXC_UNEXPECTED_ERROR'' ERROR');
1577: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1578: FND_MSG_PUB.Count_And_Get
1579: (p_count => x_msg_count,
1580: p_data => x_msg_data
1581: );
1582: WHEN OTHERS THEN
1590: -- IF c_get_group_owner%ISOPEN THEN
1591: -- CLOSE c_get_group_owner;
1592: -- END IF;
1593: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1594: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1595: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1596: END IF;
1597: FND_MSG_PUB.Count_And_Get
1598: (p_count => x_msg_count,
1591: -- CLOSE c_get_group_owner;
1592: -- END IF;
1593: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1594: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1595: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1596: END IF;
1597: FND_MSG_PUB.Count_And_Get
1598: (p_count => x_msg_count,
1599: p_data => x_msg_data
1593: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1594: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1595: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1596: END IF;
1597: FND_MSG_PUB.Count_And_Get
1598: (p_count => x_msg_count,
1599: p_data => x_msg_data
1600: );
1601:
1662: OR p_group_id IS NULL
1663: OR p_member_id IS NULL) THEN
1664: fnd_message.set_name('EGO','EGO_MAND_PARAM_MISSING');
1665: fnd_message.set_token('PROGRAM', G_PKG_NAME || l_api_name);
1666: fnd_msg_pub.add;
1667: x_return_status := FND_API.G_RET_STS_ERROR;
1668: x_msg_count := 1;
1669: fnd_msg_pub.Count_And_Get
1670: (p_count => x_msg_count
1665: fnd_message.set_token('PROGRAM', G_PKG_NAME || l_api_name);
1666: fnd_msg_pub.add;
1667: x_return_status := FND_API.G_RET_STS_ERROR;
1668: x_msg_count := 1;
1669: fnd_msg_pub.Count_And_Get
1670: (p_count => x_msg_count
1671: ,p_data => x_msg_data
1672: );
1673: RETURN;
1687: END IF;
1688: -- Initialize API message list if necessary.
1689: -- Initialize message list if p_init_msg_list is set to TRUE.
1690: IF FND_API.to_Boolean( NVL(p_init_msg_list, 'F') ) THEN
1691: FND_MSG_PUB.initialize;
1692: END IF;
1693:
1694: mdebug('ADD_GROUP_MEMBER: Setting local values ');
1695:
1780: -- Standard call to get message count and if count is 1,
1781: -- get message info.
1782: -- The client will directly display the x_msg_data (which is already
1783: -- translated) if the x_msg_count = 1;
1784: -- Else i.e if x_msg_count > 1, client will call the FND_MSG_PUB.Get
1785: -- Server-side procedure to access the messages, and consolidate them
1786: -- and display (or) to display one message after another.
1787: mdebug('ADD_GROUP_MEMBER Tracing....');
1788:
1785: -- Server-side procedure to access the messages, and consolidate them
1786: -- and display (or) to display one message after another.
1787: mdebug('ADD_GROUP_MEMBER Tracing....');
1788:
1789: FND_MSG_PUB.Count_And_Get
1790: ( p_count => x_msg_count,
1791: p_data => x_msg_data
1792: );
1793:
1798: ROLLBACK TO EGO_ADD_GROUP_MEMBER;
1799: END IF;
1800: mdebug('ADD_GROUP_MEMBER Ending : Returning ''FND_API.G_EXC_ERROR''');
1801: x_return_status := FND_API.G_RET_STS_ERROR;
1802: FND_MSG_PUB.Count_And_Get
1803: (p_count => x_msg_count,
1804: p_data => x_msg_data
1805: );
1806: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1808: ROLLBACK TO EGO_ADD_GROUP_MEMBER;
1809: END IF;
1810: mdebug('ADD_GROUP_MEMBER Ending : Returning ''FND_API.G_EXC_UNEXPECTED_ERROR''');
1811: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1812: FND_MSG_PUB.Count_And_Get
1813: (p_count => x_msg_count,
1814: p_data => x_msg_data
1815: );
1816: WHEN OTHERS THEN
1818: ROLLBACK TO EGO_ADD_GROUP_MEMBER;
1819: END IF;
1820: mdebug('ADD_GROUP_MEMBER Ending : Returning UNEXPECTED ERROR');
1821: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1822: IF FND_MSG_PUB.Check_Msg_Level
1823: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1824: THEN
1825: FND_MSG_PUB.Add_Exc_Msg
1826: ( G_PKG_NAME,
1819: END IF;
1820: mdebug('ADD_GROUP_MEMBER Ending : Returning UNEXPECTED ERROR');
1821: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1822: IF FND_MSG_PUB.Check_Msg_Level
1823: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1824: THEN
1825: FND_MSG_PUB.Add_Exc_Msg
1826: ( G_PKG_NAME,
1827: l_api_name
1821: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1822: IF FND_MSG_PUB.Check_Msg_Level
1823: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1824: THEN
1825: FND_MSG_PUB.Add_Exc_Msg
1826: ( G_PKG_NAME,
1827: l_api_name
1828: );
1829: END IF;
1826: ( G_PKG_NAME,
1827: l_api_name
1828: );
1829: END IF;
1830: FND_MSG_PUB.Count_And_Get
1831: ( p_count => x_msg_count,
1832: p_data => x_msg_data
1833: );
1834: END Add_Group_Member;
1900: OR p_object_version_no_rel IS NULL
1901: ) THEN
1902: fnd_message.set_name('EGO','EGO_MAND_PARAM_MISSING');
1903: fnd_message.set_token('PROGRAM', G_PKG_NAME || l_api_name);
1904: fnd_msg_pub.add;
1905: x_return_status := FND_API.G_RET_STS_ERROR;
1906: x_msg_count := 1;
1907: fnd_msg_pub.Count_And_Get
1908: (p_count => x_msg_count
1903: fnd_message.set_token('PROGRAM', G_PKG_NAME || l_api_name);
1904: fnd_msg_pub.add;
1905: x_return_status := FND_API.G_RET_STS_ERROR;
1906: x_msg_count := 1;
1907: fnd_msg_pub.Count_And_Get
1908: (p_count => x_msg_count
1909: ,p_data => x_msg_data
1910: );
1911: RETURN;
1924: END IF;
1925: -- Initialize API message list if necessary.
1926: -- Initialize message list if p_init_msg_list is set to TRUE.
1927: IF FND_API.to_Boolean( NVL(p_init_msg_list, 'F') ) THEN
1928: FND_MSG_PUB.initialize;
1929: END IF;
1930: IF (p_relationship_id IS NOT NULL) THEN
1931: -- added Directional flag in where clause since two records are getting returned for each relationship one forward and one backward
1932: SELECT subject_id, object_id
1957: END IF;
1958: ELSE
1959: mdebug('No member id provided!');
1960: FND_MESSAGE.Set_Name('EGO', 'EGO_GRP_MEMB_CANNOT_DELETE');
1961: FND_MSG_PUB.Add;
1962: RAISE fnd_api.g_EXC_ERROR;
1963: END IF;
1964: OPEN get_grant_guid_cur (cp_party_id => l_member_id,
1965: cp_instance_id => l_group_id);
1986: -- Standard call to get message count and if count is 1,
1987: -- get message info.
1988: -- The client will directly display the x_msg_data (which is already
1989: -- translated) if the x_msg_count = 1;
1990: -- Else i.e if x_msg_count > 1, client will call the FND_MSG_PUB.Get
1991: -- Server-side procedure to access the messages, and consolidate them
1992: -- and display (or) to display one message after another.
1993: mdebug('Tracing....');
1994:
1991: -- Server-side procedure to access the messages, and consolidate them
1992: -- and display (or) to display one message after another.
1993: mdebug('Tracing....');
1994:
1995: FND_MSG_PUB.Count_And_Get
1996: ( p_count => x_msg_count,
1997: p_data => x_msg_data
1998: );
1999:
2004: ROLLBACK TO EGO_REMOVE_GROUP_MEMBER;
2005: END IF;
2006: mdebug('Ending : Returning ERROR');
2007: x_return_status := FND_API.G_RET_STS_ERROR;
2008: FND_MSG_PUB.Count_And_Get
2009: (p_count => x_msg_count,
2010: p_data => x_msg_data
2011: );
2012: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2014: ROLLBACK TO EGO_REMOVE_GROUP_MEMBER;
2015: END IF;
2016: mdebug('Ending : Returning UNEXPECTED ERROR');
2017: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2018: FND_MSG_PUB.Count_And_Get
2019: (p_count => x_msg_count,
2020: p_data => x_msg_data
2021: );
2022: WHEN OTHERS THEN
2024: ROLLBACK TO EGO_REMOVE_GROUP_MEMBER;
2025: END IF;
2026: mdebug('Ending : Returning UNEXPECTED ERROR');
2027: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2028: IF FND_MSG_PUB.Check_Msg_Level
2029: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2030: THEN
2031: FND_MSG_PUB.Add_Exc_Msg
2032: ( G_PKG_NAME,
2025: END IF;
2026: mdebug('Ending : Returning UNEXPECTED ERROR');
2027: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2028: IF FND_MSG_PUB.Check_Msg_Level
2029: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2030: THEN
2031: FND_MSG_PUB.Add_Exc_Msg
2032: ( G_PKG_NAME,
2033: l_api_name
2027: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2028: IF FND_MSG_PUB.Check_Msg_Level
2029: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2030: THEN
2031: FND_MSG_PUB.Add_Exc_Msg
2032: ( G_PKG_NAME,
2033: l_api_name
2034: );
2035: END IF;
2032: ( G_PKG_NAME,
2033: l_api_name
2034: );
2035: END IF;
2036: FND_MSG_PUB.Count_And_Get
2037: (p_count => x_msg_count,
2038: p_data => x_msg_data
2039: );
2040: END Remove_Group_Member;
2123: OR p_party_id IS NULL
2124: ) THEN
2125: fnd_message.set_name('EGO','EGO_MAND_PARAM_MISSING');
2126: fnd_message.set_token('PROGRAM', G_PKG_NAME || l_api_name);
2127: fnd_msg_pub.add;
2128: x_return_status := FND_API.G_RET_STS_ERROR;
2129: x_msg_count := 1;
2130: fnd_msg_pub.Count_And_Get
2131: (p_count => x_msg_count
2126: fnd_message.set_token('PROGRAM', G_PKG_NAME || l_api_name);
2127: fnd_msg_pub.add;
2128: x_return_status := FND_API.G_RET_STS_ERROR;
2129: x_msg_count := 1;
2130: fnd_msg_pub.Count_And_Get
2131: (p_count => x_msg_count
2132: ,p_data => x_msg_data
2133: );
2134: RETURN;
2149: END IF;
2150: -- Initialize API message list if necessary.
2151: -- Initialize message list if p_init_msg_list is set to TRUE.
2152: IF FND_API.to_Boolean( NVL(p_init_msg_list, 'F') ) THEN
2153: FND_MSG_PUB.initialize;
2154: END IF;
2155:
2156: mdebug('GET_EMAIL_ADDRESSES: selecting party type ');
2157: SELECT party_type
2185: Length(l_concat_email_addresses)-2
2186: );
2187: ELSE -- neither PERSON nor GROUP
2188: FND_MESSAGE.Set_Name('EGO', 'EGO_INVALID_PARTY_TYPE');
2189: FND_MSG_PUB.Add;
2190: RAISE fnd_api.g_EXC_ERROR;
2191: END IF;
2192:
2193: --finally assign prepared e-mail list to the OUT parameter.
2206: -- Standard call to get message count and if count is 1,
2207: -- get message info.
2208: -- The client will directly display the x_msg_data (which is already
2209: -- translated) if the x_msg_count = 1;
2210: -- Else i.e if x_msg_count > 1, client will call the FND_MSG_PUB.Get
2211: -- Server-side procedure to access the messages, and consolidate them
2212: -- and display (or) to display one message after another.
2213: FND_MSG_PUB.Count_And_Get
2214: ( p_count => x_msg_count,
2209: -- translated) if the x_msg_count = 1;
2210: -- Else i.e if x_msg_count > 1, client will call the FND_MSG_PUB.Get
2211: -- Server-side procedure to access the messages, and consolidate them
2212: -- and display (or) to display one message after another.
2213: FND_MSG_PUB.Count_And_Get
2214: ( p_count => x_msg_count,
2215: p_data => x_msg_data
2216: );
2217:
2221: ROLLBACK TO EGO_GET_EMAIL_ADDRESS;
2222: END IF;
2223: mdebug('GET_EMAIL_ADDRESSES: Ending : Returning FND_API.G_EXC_ERROR ');
2224: x_return_status := FND_API.G_RET_STS_ERROR;
2225: FND_MSG_PUB.Count_And_Get
2226: (p_count => x_msg_count,
2227: p_data => x_msg_data
2228: );
2229: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2231: ROLLBACK TO EGO_GET_EMAIL_ADDRESS;
2232: END IF;
2233: mdebug('GET_EMAIL_ADDRESSES: Ending : FND_API.G_EXC_UNEXPECTED_ERROR ');
2234: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2235: FND_MSG_PUB.Count_And_Get
2236: ( p_count => x_msg_count,
2237: p_data => x_msg_data
2238: );
2239: WHEN OTHERS THEN
2244: IF c_grp_member_emailaddr%ISOPEN THEN
2245: CLOSE c_grp_member_emailaddr;
2246: END IF;
2247: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2248: IF FND_MSG_PUB.Check_Msg_Level
2249: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2250: THEN
2251: FND_MSG_PUB.Add_Exc_Msg
2252: ( G_PKG_NAME,
2245: CLOSE c_grp_member_emailaddr;
2246: END IF;
2247: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2248: IF FND_MSG_PUB.Check_Msg_Level
2249: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2250: THEN
2251: FND_MSG_PUB.Add_Exc_Msg
2252: ( G_PKG_NAME,
2253: l_api_name
2247: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2248: IF FND_MSG_PUB.Check_Msg_Level
2249: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2250: THEN
2251: FND_MSG_PUB.Add_Exc_Msg
2252: ( G_PKG_NAME,
2253: l_api_name
2254: );
2255: END IF;
2252: ( G_PKG_NAME,
2253: l_api_name
2254: );
2255: END IF;
2256: FND_MSG_PUB.Count_And_Get
2257: ( p_count => x_msg_count,
2258: p_data => x_msg_data
2259: );
2260: END Get_Email_Address;
2305: OR p_party_id IS NULL
2306: ) THEN
2307: fnd_message.set_name('EGO','EGO_MAND_PARAM_MISSING');
2308: fnd_message.set_token('PROGRAM', G_PKG_NAME || l_api_name);
2309: fnd_msg_pub.add;
2310: x_return_status := FND_API.G_RET_STS_ERROR;
2311: x_msg_count := 1;
2312: fnd_msg_pub.Count_And_Get
2313: (p_count => x_msg_count
2308: fnd_message.set_token('PROGRAM', G_PKG_NAME || l_api_name);
2309: fnd_msg_pub.add;
2310: x_return_status := FND_API.G_RET_STS_ERROR;
2311: x_msg_count := 1;
2312: fnd_msg_pub.Count_And_Get
2313: (p_count => x_msg_count
2314: ,p_data => x_msg_data
2315: );
2316: RETURN;
2331: END IF;
2332: -- Initialize API message list if necessary.
2333: -- Initialize message list if p_init_msg_list is set to TRUE.
2334: IF FND_API.to_Boolean( NVL(p_init_msg_list, 'F') ) THEN
2335: FND_MSG_PUB.initialize;
2336: END IF;
2337:
2338:
2339: SELECT COUNT(*)
2425: OR p_party_id IS NULL
2426: ) THEN
2427: fnd_message.set_name('EGO','EGO_MAND_PARAM_MISSING');
2428: fnd_message.set_token('PROGRAM', G_PKG_NAME || l_api_name);
2429: fnd_msg_pub.add;
2430: x_return_status := FND_API.G_RET_STS_ERROR;
2431: x_msg_count := 1;
2432: fnd_msg_pub.Count_And_Get
2433: (p_count => x_msg_count
2428: fnd_message.set_token('PROGRAM', G_PKG_NAME || l_api_name);
2429: fnd_msg_pub.add;
2430: x_return_status := FND_API.G_RET_STS_ERROR;
2431: x_msg_count := 1;
2432: fnd_msg_pub.Count_And_Get
2433: (p_count => x_msg_count
2434: ,p_data => x_msg_data
2435: );
2436: RETURN;
2451: END IF;
2452: -- Initialize API message list if necessary.
2453: -- Initialize message list if p_init_msg_list is set to TRUE.
2454: IF FND_API.to_Boolean( NVL(p_init_msg_list, 'F') ) THEN
2455: FND_MSG_PUB.initialize;
2456: END IF;
2457:
2458:
2459: SELECT code_assignment_id, object_version_number