6282: END IF;
6283: -- Initialize API message list if necessary.
6284: -- Initialize message list if p_init_msg_list is set to TRUE.
6285: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6286: FND_MSG_PUB.initialize;
6287: END IF;
6288:
6289: IF (p_owner IS NULL OR p_owner = -1) THEN
6290: l_owner := EGO_SCTX.get_user_id();
6335: -- Make a standard call to get message count
6336: -- and if count is 1, get message info.
6337: -- The client will directly display the x_msg_data (which is already
6338: -- translated) if the x_msg_count = 1;
6339: -- Else, i.e. if x_msg_count > 1, client will call the FND_MSG_PUB.Get
6340: -- Server-side procedure to access the messages, and consolidate them
6341: -- and display them all at once or display one message after another.
6342:
6343: FND_MSG_PUB.Count_And_Get
6339: -- Else, i.e. if x_msg_count > 1, client will call the FND_MSG_PUB.Get
6340: -- Server-side procedure to access the messages, and consolidate them
6341: -- and display them all at once or display one message after another.
6342:
6343: FND_MSG_PUB.Count_And_Get
6344: ( p_count => x_msg_count,
6345: p_data => x_msg_data
6346: );
6347: code_debug (p_log_level => G_DEBUG_LEVEL_PROCEDURE
6358: IF FND_API.TO_BOOLEAN(p_commit) THEN
6359: ROLLBACK TO Create_Role_Mapping_PUB;
6360: END IF;
6361: x_return_status := FND_API.G_RET_STS_ERROR;
6362: FND_MSG_PUB.Count_And_Get
6363: ( p_count => x_msg_count,
6364: p_data => x_msg_data
6365: );
6366: x_msg_data := 'Executing - '||G_PKG_NAME||'.'||l_api_name||' '||SQLERRM;
6376: IF FND_API.TO_BOOLEAN(p_commit) THEN
6377: ROLLBACK TO Create_Function_PUB;
6378: END IF;
6379: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6380: FND_MSG_PUB.Count_And_Get
6381: ( p_count => x_msg_count,
6382: p_data => x_msg_data
6383: );
6384: x_msg_data := 'Executing - '||G_PKG_NAME||'.'||l_api_name||' '||SQLERRM;
6394: IF FND_API.TO_BOOLEAN(p_commit) THEN
6395: ROLLBACK TO Create_Function_PUB;
6396: END IF;
6397: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6398: IF FND_MSG_PUB.Check_Msg_Level
6399: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6400: THEN
6401: FND_MSG_PUB.Add_Exc_Msg
6402: ( G_PKG_NAME,
6395: ROLLBACK TO Create_Function_PUB;
6396: END IF;
6397: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6398: IF FND_MSG_PUB.Check_Msg_Level
6399: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6400: THEN
6401: FND_MSG_PUB.Add_Exc_Msg
6402: ( G_PKG_NAME,
6403: l_api_name
6397: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6398: IF FND_MSG_PUB.Check_Msg_Level
6399: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6400: THEN
6401: FND_MSG_PUB.Add_Exc_Msg
6402: ( G_PKG_NAME,
6403: l_api_name
6404: );
6405: END IF;
6402: ( G_PKG_NAME,
6403: l_api_name
6404: );
6405: END IF;
6406: FND_MSG_PUB.Count_And_Get
6407: ( p_count => x_msg_count,
6408: p_data => x_msg_data
6409: );
6410: x_msg_data := 'Executing - '||G_PKG_NAME||'.'||l_api_name||' '||SQLERRM;
6538:
6539: -- Initialize API message list if necessary.
6540: -- Initialize message list if p_init_msg_list is set to TRUE.
6541: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6542: FND_MSG_PUB.initialize;
6543: END IF;
6544:
6545: IF NOT FND_API.Compatible_API_Call (l_api_version,
6546: p_api_version,
6615: -- Make a standard call to get message count
6616: -- and if count is 1, get message info.
6617: -- The client will directly display the x_msg_data (which is already
6618: -- translated) if the x_msg_count = 1;
6619: -- Else, i.e. if x_msg_count > 1, client will call the FND_MSG_PUB.Get
6620: -- Server-side procedure to access the messages, and consolidate them
6621: -- and display them all at once or display one message after another.
6622:
6623: FND_MSG_PUB.Count_And_Get
6619: -- Else, i.e. if x_msg_count > 1, client will call the FND_MSG_PUB.Get
6620: -- Server-side procedure to access the messages, and consolidate them
6621: -- and display them all at once or display one message after another.
6622:
6623: FND_MSG_PUB.Count_And_Get
6624: ( p_count => x_msg_count,
6625: p_data => x_msg_data
6626: );
6627:
6639: IF FND_API.TO_BOOLEAN(p_commit) THEN
6640: ROLLBACK TO Update_Role_Mapping_PUB;
6641: END IF;
6642: x_return_status := FND_API.G_RET_STS_ERROR;
6643: FND_MSG_PUB.Count_And_Get
6644: ( p_count => x_msg_count,
6645: p_data => x_msg_data
6646: );
6647: x_msg_data :='Executing - '||G_PKG_NAME||'.'||l_api_name||' '||SQLERRM;
6657: IF FND_API.TO_BOOLEAN(p_commit) THEN
6658: ROLLBACK TO Update_Role_Mapping_PUB;
6659: END IF;
6660: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6661: FND_MSG_PUB.Count_And_Get
6662: ( p_count => x_msg_count,
6663: p_data => x_msg_data
6664: );
6665: x_msg_data :='Executing - '||G_PKG_NAME||'.'||l_api_name||' '||SQLERRM;
6675: IF FND_API.TO_BOOLEAN(p_commit) THEN
6676: ROLLBACK TO Update_Role_Mapping_PUB;
6677: END IF;
6678: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6679: IF FND_MSG_PUB.Check_Msg_Level
6680: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6681: THEN
6682: FND_MSG_PUB.Add_Exc_Msg
6683: ( G_PKG_NAME,
6676: ROLLBACK TO Update_Role_Mapping_PUB;
6677: END IF;
6678: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6679: IF FND_MSG_PUB.Check_Msg_Level
6680: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6681: THEN
6682: FND_MSG_PUB.Add_Exc_Msg
6683: ( G_PKG_NAME,
6684: l_api_name
6678: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6679: IF FND_MSG_PUB.Check_Msg_Level
6680: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6681: THEN
6682: FND_MSG_PUB.Add_Exc_Msg
6683: ( G_PKG_NAME,
6684: l_api_name
6685: );
6686: END IF;
6683: ( G_PKG_NAME,
6684: l_api_name
6685: );
6686: END IF;
6687: FND_MSG_PUB.Count_And_Get
6688: ( p_count => x_msg_count,
6689: p_data => x_msg_data
6690: );
6691: x_msg_data :='Executing - '||G_PKG_NAME||'.'||l_api_name||' '||SQLERRM;
6813:
6814: -- Initialize API message list if necessary.
6815: -- Initialize message list if p_init_msg_list is set to TRUE.
6816: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6817: FND_MSG_PUB.initialize;
6818: END IF;
6819:
6820: IF NOT FND_API.Compatible_API_Call (l_api_version,
6821: p_api_version,
6867:
6868: -- Make a standard call to get message count and if count is 1,
6869: -- get message info.
6870:
6871: FND_MSG_PUB.Count_And_Get
6872: ( p_count => x_msg_count,
6873: p_data => x_msg_data
6874: );
6875: code_debug (p_log_level => G_DEBUG_LEVEL_PROCEDURE
6886: IF FND_API.TO_BOOLEAN(p_commit) THEN
6887: ROLLBACK TO Delete_Role_Mapping_PUB;
6888: END IF;
6889: x_return_status := FND_API.G_RET_STS_ERROR;
6890: FND_MSG_PUB.Count_And_Get
6891: ( p_count => x_msg_count,
6892: p_data => x_msg_data
6893: );
6894: x_msg_data := 'Executing - '||G_PKG_NAME||'.'||l_api_name||' '||SQLERRM;
6904: IF FND_API.TO_BOOLEAN(p_commit) THEN
6905: ROLLBACK TO Delete_Role_Mapping_PUB;
6906: END IF;
6907: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6908: FND_MSG_PUB.Count_And_Get
6909: ( p_count => x_msg_count,
6910: p_data => x_msg_data
6911: );
6912: x_msg_data := 'Executing - '||G_PKG_NAME||'.'||l_api_name||' '||SQLERRM;
6922: IF FND_API.TO_BOOLEAN(p_commit) THEN
6923: ROLLBACK TO Delete_Role_Mapping_PUB;
6924: END IF;
6925: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6926: IF FND_MSG_PUB.Check_Msg_Level
6927: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6928: THEN
6929: FND_MSG_PUB.Add_Exc_Msg
6930: ( G_PKG_NAME,
6923: ROLLBACK TO Delete_Role_Mapping_PUB;
6924: END IF;
6925: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6926: IF FND_MSG_PUB.Check_Msg_Level
6927: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6928: THEN
6929: FND_MSG_PUB.Add_Exc_Msg
6930: ( G_PKG_NAME,
6931: l_api_name
6925: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6926: IF FND_MSG_PUB.Check_Msg_Level
6927: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6928: THEN
6929: FND_MSG_PUB.Add_Exc_Msg
6930: ( G_PKG_NAME,
6931: l_api_name
6932: );
6933: END IF;
6930: ( G_PKG_NAME,
6931: l_api_name
6932: );
6933: END IF;
6934: FND_MSG_PUB.Count_And_Get
6935: ( p_count => x_msg_count,
6936: p_data => x_msg_data
6937: );
6938: x_msg_data := 'Executing - '||G_PKG_NAME||'.'||l_api_name||' '||SQLERRM;