1222: ,p_message => 'Returning from set id''s '||l_has_priv
1223: );
1224: RETURN l_has_priv;
1225: ELSIF l_has_priv = G_RETURN_UNEXP_ERR THEN
1226: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1227: ELSE
1228: l_instance_predicate_list :='(';
1229: l_set_id_cnt:=0;
1230: END IF;
1246: p_dynamic_sql => l_dynamic_sql,
1247: p_instance_predicate_list => l_instance_predicate_list
1248: );
1249: IF l_has_priv = G_RETURN_UNEXP_ERR THEN
1250: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1251: END IF;
1252: code_debug (p_log_level => G_DEBUG_LEVEL_PROCEDURE
1253: ,p_module => l_api_name
1254: ,p_message => 'Returning status '||l_has_priv
1255: );
1256: RETURN l_has_priv;
1257: --bug 5027160.:END
1258: EXCEPTION
1259: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1260: code_debug (p_log_level => G_DEBUG_LEVEL_EXCEPTION
1261: ,p_module => l_api_name
1262: ,p_message => 'Returning EXCEPTION '||SQLERRM
1263: );
6329: ,p_child_obj_name IN VARCHAR2
6330: ,p_child_object_type IN VARCHAR2
6331: ,p_child_role_name IN VARCHAR2
6332: ,p_owner IN NUMBER
6333: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_FALSE
6334: ,p_commit IN VARCHAR2 := fnd_api.g_FALSE
6335: ,x_return_status OUT NOCOPY VARCHAR2
6336: ,x_errorcode OUT NOCOPY NUMBER
6337: ,x_msg_count OUT NOCOPY NUMBER
6330: ,p_child_object_type IN VARCHAR2
6331: ,p_child_role_name IN VARCHAR2
6332: ,p_owner IN NUMBER
6333: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_FALSE
6334: ,p_commit IN VARCHAR2 := fnd_api.g_FALSE
6335: ,x_return_status OUT NOCOPY VARCHAR2
6336: ,x_errorcode OUT NOCOPY NUMBER
6337: ,x_msg_count OUT NOCOPY NUMBER
6338: ,x_msg_data OUT NOCOPY VARCHAR2
6369: ' - p_init_msg_list: '||p_init_msg_list||
6370: ' - p_commit: '||p_commit
6371: );
6372:
6373: IF FND_API.TO_BOOLEAN(p_commit) THEN
6374: -- Standard Start of API savepoint
6375: SAVEPOINT Create_Role_Mapping_PUB;
6376: END IF;
6377:
6374: -- Standard Start of API savepoint
6375: SAVEPOINT Create_Role_Mapping_PUB;
6376: END IF;
6377:
6378: IF NOT FND_API.Compatible_API_Call (l_api_version,
6379: p_api_version,
6380: l_api_name,
6381: G_PKG_NAME)
6382: THEN
6379: p_api_version,
6380: l_api_name,
6381: G_PKG_NAME)
6382: THEN
6383: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6384: END IF;
6385: -- Initialize API message list if necessary.
6386: -- Initialize message list if p_init_msg_list is set to TRUE.
6387: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6383: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6384: END IF;
6385: -- Initialize API message list if necessary.
6386: -- Initialize message list if p_init_msg_list is set to TRUE.
6387: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6388: FND_MSG_PUB.initialize;
6389: END IF;
6390:
6391: IF (p_owner IS NULL OR p_owner = -1) THEN
6426: , FND_GLOBAL.Login_id
6427: );
6428:
6429: -- Standard check of p_commit.
6430: IF FND_API.To_Boolean( p_commit ) THEN
6431: COMMIT WORK;
6432: END IF;
6433:
6434: x_return_status := FND_API.G_RET_STS_SUCCESS;
6430: IF FND_API.To_Boolean( p_commit ) THEN
6431: COMMIT WORK;
6432: END IF;
6433:
6434: x_return_status := FND_API.G_RET_STS_SUCCESS;
6435:
6436: -----------------------------------
6437: -- Make a standard call to get message count
6438: -- and if count is 1, get message info.
6455: ' - x_msg_data: '||x_msg_data
6456: );
6457:
6458: EXCEPTION
6459: WHEN FND_API.G_EXC_ERROR THEN
6460: IF FND_API.TO_BOOLEAN(p_commit) THEN
6461: ROLLBACK TO Create_Role_Mapping_PUB;
6462: END IF;
6463: x_return_status := FND_API.G_RET_STS_ERROR;
6456: );
6457:
6458: EXCEPTION
6459: WHEN FND_API.G_EXC_ERROR THEN
6460: IF FND_API.TO_BOOLEAN(p_commit) THEN
6461: ROLLBACK TO Create_Role_Mapping_PUB;
6462: END IF;
6463: x_return_status := FND_API.G_RET_STS_ERROR;
6464: FND_MSG_PUB.Count_And_Get
6459: WHEN FND_API.G_EXC_ERROR THEN
6460: IF FND_API.TO_BOOLEAN(p_commit) THEN
6461: ROLLBACK TO Create_Role_Mapping_PUB;
6462: END IF;
6463: x_return_status := FND_API.G_RET_STS_ERROR;
6464: FND_MSG_PUB.Count_And_Get
6465: ( p_count => x_msg_count,
6466: p_data => x_msg_data
6467: );
6473: ' - x_errorcode: '||x_errorcode||
6474: ' - x_msg_count: '||x_msg_count||
6475: ' - x_msg_data: '||x_msg_data
6476: );
6477: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6478: IF FND_API.TO_BOOLEAN(p_commit) THEN
6479: ROLLBACK TO Create_Function_PUB;
6480: END IF;
6481: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6474: ' - x_msg_count: '||x_msg_count||
6475: ' - x_msg_data: '||x_msg_data
6476: );
6477: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6478: IF FND_API.TO_BOOLEAN(p_commit) THEN
6479: ROLLBACK TO Create_Function_PUB;
6480: END IF;
6481: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6482: FND_MSG_PUB.Count_And_Get
6477: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6478: IF FND_API.TO_BOOLEAN(p_commit) THEN
6479: ROLLBACK TO Create_Function_PUB;
6480: END IF;
6481: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6482: FND_MSG_PUB.Count_And_Get
6483: ( p_count => x_msg_count,
6484: p_data => x_msg_data
6485: );
6492: ' - x_msg_count: '||x_msg_count||
6493: ' - x_msg_data: '||x_msg_data
6494: );
6495: WHEN OTHERS THEN
6496: IF FND_API.TO_BOOLEAN(p_commit) THEN
6497: ROLLBACK TO Create_Function_PUB;
6498: END IF;
6499: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6500: IF FND_MSG_PUB.Check_Msg_Level
6495: WHEN OTHERS THEN
6496: IF FND_API.TO_BOOLEAN(p_commit) THEN
6497: ROLLBACK TO Create_Function_PUB;
6498: END IF;
6499: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6500: IF FND_MSG_PUB.Check_Msg_Level
6501: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6502: THEN
6503: FND_MSG_PUB.Add_Exc_Msg
6531: ,p_parent_role_name IN VARCHAR2
6532: ,p_child_obj_name IN VARCHAR2
6533: ,p_child_object_type IN VARCHAR2
6534: ,p_child_role_name IN VARCHAR2
6535: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_FALSE
6536: ,p_commit IN VARCHAR2 := fnd_api.g_FALSE
6537: ,x_return_status OUT NOCOPY VARCHAR2
6538: ,x_errorcode OUT NOCOPY NUMBER
6539: ,x_msg_count OUT NOCOPY NUMBER
6532: ,p_child_obj_name IN VARCHAR2
6533: ,p_child_object_type IN VARCHAR2
6534: ,p_child_role_name IN VARCHAR2
6535: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_FALSE
6536: ,p_commit IN VARCHAR2 := fnd_api.g_FALSE
6537: ,x_return_status OUT NOCOPY VARCHAR2
6538: ,x_errorcode OUT NOCOPY NUMBER
6539: ,x_msg_count OUT NOCOPY NUMBER
6540: ,x_msg_data OUT NOCOPY VARCHAR2
6591: ,p_child_obj_name IN VARCHAR2
6592: ,p_child_object_type IN VARCHAR2
6593: ,p_child_role_name IN VARCHAR2
6594: ,p_owner IN NUMBER
6595: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_FALSE
6596: ,p_commit IN VARCHAR2 := fnd_api.g_FALSE
6597: ,x_return_status OUT NOCOPY VARCHAR2
6598: ,x_errorcode OUT NOCOPY NUMBER
6599: ,x_msg_count OUT NOCOPY NUMBER
6592: ,p_child_object_type IN VARCHAR2
6593: ,p_child_role_name IN VARCHAR2
6594: ,p_owner IN NUMBER
6595: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_FALSE
6596: ,p_commit IN VARCHAR2 := fnd_api.g_FALSE
6597: ,x_return_status OUT NOCOPY VARCHAR2
6598: ,x_errorcode OUT NOCOPY NUMBER
6599: ,x_msg_count OUT NOCOPY NUMBER
6600: ,x_msg_data OUT NOCOPY VARCHAR2
6632: ' - p_owner: '||p_owner||
6633: ' - p_init_msg_list: '||p_init_msg_list||
6634: ' - p_commit: '||p_commit
6635: );
6636: IF FND_API.TO_BOOLEAN(p_commit) THEN
6637: -- Standard Start of API savepoint
6638: SAVEPOINT Update_Role_Mapping_PUB;
6639: END IF;
6640:
6639: END IF;
6640:
6641: -- Initialize API message list if necessary.
6642: -- Initialize message list if p_init_msg_list is set to TRUE.
6643: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6644: FND_MSG_PUB.initialize;
6645: END IF;
6646:
6647: IF NOT FND_API.Compatible_API_Call (l_api_version,
6643: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6644: FND_MSG_PUB.initialize;
6645: END IF;
6646:
6647: IF NOT FND_API.Compatible_API_Call (l_api_version,
6648: p_api_version,
6649: l_api_name,
6650: G_PKG_NAME)
6651: THEN
6648: p_api_version,
6649: l_api_name,
6650: G_PKG_NAME)
6651: THEN
6652: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6653: END IF;
6654:
6655: IF (p_owner IS NULL OR p_owner = -1) THEN
6656: l_owner := EGO_SCTX.get_user_id();
6703: ,p_message => 'After updating role mappings'
6704: );
6705:
6706: -- Standard check of p_commit.
6707: IF FND_API.To_Boolean( p_commit ) THEN
6708: COMMIT WORK;
6709: END IF;
6710:
6711: code_debug (p_log_level => G_DEBUG_LEVEL_STATEMENT
6711: code_debug (p_log_level => G_DEBUG_LEVEL_STATEMENT
6712: ,p_module => l_api_name
6713: ,p_message => 'After committing the data'
6714: );
6715: x_return_status := FND_API.G_RET_STS_SUCCESS;
6716:
6717: -- Make a standard call to get message count
6718: -- and if count is 1, get message info.
6719: -- The client will directly display the x_msg_data (which is already
6736: ' - x_msg_data: '||x_msg_data
6737: );
6738:
6739: EXCEPTION
6740: WHEN FND_API.G_EXC_ERROR THEN
6741: IF FND_API.TO_BOOLEAN(p_commit) THEN
6742: ROLLBACK TO Update_Role_Mapping_PUB;
6743: END IF;
6744: x_return_status := FND_API.G_RET_STS_ERROR;
6737: );
6738:
6739: EXCEPTION
6740: WHEN FND_API.G_EXC_ERROR THEN
6741: IF FND_API.TO_BOOLEAN(p_commit) THEN
6742: ROLLBACK TO Update_Role_Mapping_PUB;
6743: END IF;
6744: x_return_status := FND_API.G_RET_STS_ERROR;
6745: FND_MSG_PUB.Count_And_Get
6740: WHEN FND_API.G_EXC_ERROR THEN
6741: IF FND_API.TO_BOOLEAN(p_commit) THEN
6742: ROLLBACK TO Update_Role_Mapping_PUB;
6743: END IF;
6744: x_return_status := FND_API.G_RET_STS_ERROR;
6745: FND_MSG_PUB.Count_And_Get
6746: ( p_count => x_msg_count,
6747: p_data => x_msg_data
6748: );
6754: ' - x_errorcode: '||x_errorcode||
6755: ' - x_msg_count: '||x_msg_count||
6756: ' - x_msg_data: '||x_msg_data
6757: );
6758: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6759: IF FND_API.TO_BOOLEAN(p_commit) THEN
6760: ROLLBACK TO Update_Role_Mapping_PUB;
6761: END IF;
6762: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6755: ' - x_msg_count: '||x_msg_count||
6756: ' - x_msg_data: '||x_msg_data
6757: );
6758: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6759: IF FND_API.TO_BOOLEAN(p_commit) THEN
6760: ROLLBACK TO Update_Role_Mapping_PUB;
6761: END IF;
6762: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6763: FND_MSG_PUB.Count_And_Get
6758: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6759: IF FND_API.TO_BOOLEAN(p_commit) THEN
6760: ROLLBACK TO Update_Role_Mapping_PUB;
6761: END IF;
6762: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6763: FND_MSG_PUB.Count_And_Get
6764: ( p_count => x_msg_count,
6765: p_data => x_msg_data
6766: );
6773: ' - x_msg_count: '||x_msg_count||
6774: ' - x_msg_data: '||x_msg_data
6775: );
6776: WHEN OTHERS THEN
6777: IF FND_API.TO_BOOLEAN(p_commit) THEN
6778: ROLLBACK TO Update_Role_Mapping_PUB;
6779: END IF;
6780: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6781: IF FND_MSG_PUB.Check_Msg_Level
6776: WHEN OTHERS THEN
6777: IF FND_API.TO_BOOLEAN(p_commit) THEN
6778: ROLLBACK TO Update_Role_Mapping_PUB;
6779: END IF;
6780: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6781: IF FND_MSG_PUB.Check_Msg_Level
6782: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6783: THEN
6784: FND_MSG_PUB.Add_Exc_Msg
6811: ,p_parent_role_name IN VARCHAR2
6812: ,p_child_obj_name IN VARCHAR2
6813: ,p_child_object_type IN VARCHAR2
6814: ,p_child_role_name IN VARCHAR2
6815: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_FALSE
6816: ,p_commit IN VARCHAR2 := fnd_api.g_FALSE
6817: ,x_return_status OUT NOCOPY VARCHAR2
6818: ,x_errorcode OUT NOCOPY NUMBER
6819: ,x_msg_count OUT NOCOPY NUMBER
6812: ,p_child_obj_name IN VARCHAR2
6813: ,p_child_object_type IN VARCHAR2
6814: ,p_child_role_name IN VARCHAR2
6815: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_FALSE
6816: ,p_commit IN VARCHAR2 := fnd_api.g_FALSE
6817: ,x_return_status OUT NOCOPY VARCHAR2
6818: ,x_errorcode OUT NOCOPY NUMBER
6819: ,x_msg_count OUT NOCOPY NUMBER
6820: ,x_msg_data OUT NOCOPY VARCHAR2
6869: ,p_parent_obj_name IN VARCHAR2
6870: ,p_parent_role_name IN VARCHAR2
6871: ,p_child_obj_name IN VARCHAR2
6872: ,p_child_object_type IN VARCHAR2
6873: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_FALSE
6874: ,p_commit IN VARCHAR2 := fnd_api.g_FALSE
6875: ,x_return_status OUT NOCOPY VARCHAR2
6876: ,x_errorcode OUT NOCOPY NUMBER
6877: ,x_msg_count OUT NOCOPY NUMBER
6870: ,p_parent_role_name IN VARCHAR2
6871: ,p_child_obj_name IN VARCHAR2
6872: ,p_child_object_type IN VARCHAR2
6873: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_FALSE
6874: ,p_commit IN VARCHAR2 := fnd_api.g_FALSE
6875: ,x_return_status OUT NOCOPY VARCHAR2
6876: ,x_errorcode OUT NOCOPY NUMBER
6877: ,x_msg_count OUT NOCOPY NUMBER
6878: ,x_msg_data OUT NOCOPY VARCHAR2
6907: ' - p_init_msg_list: '||p_init_msg_list||
6908: ' - p_commit: '||p_commit
6909: );
6910:
6911: IF FND_API.TO_BOOLEAN(p_commit) THEN
6912: -- Standard Start of API savepoint
6913: SAVEPOINT Delete_Role_Mapping_PUB;
6914: END IF;
6915:
6914: END IF;
6915:
6916: -- Initialize API message list if necessary.
6917: -- Initialize message list if p_init_msg_list is set to TRUE.
6918: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6919: FND_MSG_PUB.initialize;
6920: END IF;
6921:
6922: IF NOT FND_API.Compatible_API_Call (l_api_version,
6918: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6919: FND_MSG_PUB.initialize;
6920: END IF;
6921:
6922: IF NOT FND_API.Compatible_API_Call (l_api_version,
6923: p_api_version,
6924: l_api_name,
6925: G_PKG_NAME)
6926: THEN
6923: p_api_version,
6924: l_api_name,
6925: G_PKG_NAME)
6926: THEN
6927: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6928: END IF;
6929:
6930: l_parent_obj_id := get_object_id(p_object_name => p_parent_obj_name);
6931: l_child_obj_id := get_object_id(p_object_name => p_child_obj_name);
6955: CHILD_OBJECT_TYPE is null;
6956: END IF;
6957:
6958: -- Standard check of p_commit.
6959: IF FND_API.To_Boolean( p_commit ) THEN
6960: COMMIT WORK;
6961: END IF;
6962:
6963: code_debug (p_log_level => G_DEBUG_LEVEL_STATEMENT
6964: ,p_module => l_api_name
6965: ,p_message => 'After committing the data'
6966: );
6967:
6968: x_return_status := FND_API.G_RET_STS_SUCCESS;
6969:
6970: -- Make a standard call to get message count and if count is 1,
6971: -- get message info.
6972:
6983: ' - x_msg_data: '||x_msg_data
6984: );
6985:
6986: EXCEPTION
6987: WHEN FND_API.G_EXC_ERROR THEN
6988: IF FND_API.TO_BOOLEAN(p_commit) THEN
6989: ROLLBACK TO Delete_Role_Mapping_PUB;
6990: END IF;
6991: x_return_status := FND_API.G_RET_STS_ERROR;
6984: );
6985:
6986: EXCEPTION
6987: WHEN FND_API.G_EXC_ERROR THEN
6988: IF FND_API.TO_BOOLEAN(p_commit) THEN
6989: ROLLBACK TO Delete_Role_Mapping_PUB;
6990: END IF;
6991: x_return_status := FND_API.G_RET_STS_ERROR;
6992: FND_MSG_PUB.Count_And_Get
6987: WHEN FND_API.G_EXC_ERROR THEN
6988: IF FND_API.TO_BOOLEAN(p_commit) THEN
6989: ROLLBACK TO Delete_Role_Mapping_PUB;
6990: END IF;
6991: x_return_status := FND_API.G_RET_STS_ERROR;
6992: FND_MSG_PUB.Count_And_Get
6993: ( p_count => x_msg_count,
6994: p_data => x_msg_data
6995: );
7001: ' - x_errorcode: '||x_errorcode||
7002: ' - x_msg_count: '||x_msg_count||
7003: ' - x_msg_data: '||x_msg_data
7004: );
7005: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7006: IF FND_API.TO_BOOLEAN(p_commit) THEN
7007: ROLLBACK TO Delete_Role_Mapping_PUB;
7008: END IF;
7009: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7002: ' - x_msg_count: '||x_msg_count||
7003: ' - x_msg_data: '||x_msg_data
7004: );
7005: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7006: IF FND_API.TO_BOOLEAN(p_commit) THEN
7007: ROLLBACK TO Delete_Role_Mapping_PUB;
7008: END IF;
7009: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7010: FND_MSG_PUB.Count_And_Get
7005: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7006: IF FND_API.TO_BOOLEAN(p_commit) THEN
7007: ROLLBACK TO Delete_Role_Mapping_PUB;
7008: END IF;
7009: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7010: FND_MSG_PUB.Count_And_Get
7011: ( p_count => x_msg_count,
7012: p_data => x_msg_data
7013: );
7020: ' - x_msg_count: '||x_msg_count||
7021: ' - x_msg_data: '||x_msg_data
7022: );
7023: WHEN OTHERS THEN
7024: IF FND_API.TO_BOOLEAN(p_commit) THEN
7025: ROLLBACK TO Delete_Role_Mapping_PUB;
7026: END IF;
7027: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7028: IF FND_MSG_PUB.Check_Msg_Level
7023: WHEN OTHERS THEN
7024: IF FND_API.TO_BOOLEAN(p_commit) THEN
7025: ROLLBACK TO Delete_Role_Mapping_PUB;
7026: END IF;
7027: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7028: IF FND_MSG_PUB.Check_Msg_Level
7029: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
7030: THEN
7031: FND_MSG_PUB.Add_Exc_Msg