1: PACKAGE BODY WSH_RU_ROLES_PVT AS
2: /* $Header: WSHROTHB.pls 115.5 2003/11/18 21:03:15 sperera ship $ */
3:
4: --
5: G_PKG_NAME CONSTANT VARCHAR2(50) := 'WSH_RU_ROLES_PVT';
1: PACKAGE BODY WSH_RU_ROLES_PVT AS
2: /* $Header: WSHROTHB.pls 115.5 2003/11/18 21:03:15 sperera ship $ */
3:
4: --
5: G_PKG_NAME CONSTANT VARCHAR2(50) := 'WSH_RU_ROLES_PVT';
6: --
7: PROCEDURE Insert_Row(
8: p_role_record IN Role_Type,
9: x_rowid OUT NOCOPY VARCHAR2,
121: END IF;
122: --
123: WHEN others THEN
124: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
125: wsh_util_core.default_handler('WSH_RU_ROLES_PVT.INSERT_ROW');
126:
127: --
128: -- Debug Statements
129: --
235: close c_lock_role;
236: end if;
237:
238: FND_MESSAGE.SET_NAME('WSH','WSH_UNEXP_ERROR');
239: FND_MESSAGE.Set_Token('PACKAGE', 'WSH_RU_ROLES_PVT.LOCK_ROW');
240: FND_MESSAGE.Set_Token('ORA_ERROR',sqlcode);
241: FND_MESSAGE.Set_Token('ORA_TEXT',sqlerrm);
242:
243: --
351: IF c_dup_role_name%isopen THEN
352: CLOSE c_dup_role_name;
353: END IF;
354: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
355: wsh_util_core.default_handler('WSH_RU_ROLES_PVT.UPDATE_ROW');
356:
357: --
358: -- Debug Statements
359: --
408: --
409: EXCEPTION
410: WHEN others THEN
411: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
412: wsh_util_core.default_handler('WSH_RU_ROLES_PVT.DELETE_ROW');
413:
414: --
415: -- Debug Statements
416: --
421: --
422: END Delete_Row;
423:
424:
425: END WSH_RU_ROLES_PVT;