1: PACKAGE BODY PA_USER_ATTR_PVT AS
2: /* $Header: PAUATTVB.pls 115.3 2003/07/07 22:09:17 anlee noship $ */
3:
4:
5: -- API name : DELETE_USER_ATTRS_DATA
161: WHERE project_id = p_project_id;
162:
163: BEGIN
164: if (p_debug_mode = 'Y') then
165: pa_debug.debug('PA_USER_ATTR_PVT.Delete_User_Attrs_Data BEGIN');
166: end if;
167:
168: if p_commit = FND_API.G_TRUE then
169: savepoint delete_user_attrs_data_pvt;
324: commit work;
325: end if;
326:
327: if (p_debug_mode = 'Y') then
328: pa_debug.debug('PA_USER_ATTR_PVT.Delete_User_Attrs_Data END');
329: end if;
330:
331: EXCEPTION
332: when FND_API.G_EXC_ERROR then
338: if p_commit = FND_API.G_TRUE then
339: rollback to delete_user_attrs_data_pvt;
340: end if;
341: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
342: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_USER_ATTR_PVT',
343: p_procedure_name => 'Delete_User_Attrs_Data',
344: p_error_text => SUBSTRB(SQLERRM,1,240));
345: when OTHERS then
346: if p_commit = FND_API.G_TRUE then
346: if p_commit = FND_API.G_TRUE then
347: rollback to delete_user_attrs_data_pvt;
348: end if;
349: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
350: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_USER_ATTR_PVT',
351: p_procedure_name => 'Delete_User_Attrs_Data',
352: p_error_text => SUBSTRB(SQLERRM,1,240));
353: raise;
354: END DELETE_USER_ATTRS_DATA;
377: l_msg_index_out NUMBER;
378:
379: BEGIN
380: if (p_debug_mode = 'Y') then
381: pa_debug.debug('PA_USER_ATTR_PVT.Delete_All_User_Attrs_Data BEGIN');
382: end if;
383:
384: if p_commit = FND_API.G_TRUE then
385: savepoint delete_all_user_attrs_data_pvt;
409: commit work;
410: end if;
411:
412: if (p_debug_mode = 'Y') then
413: pa_debug.debug('PA_USER_ATTR_PVT.Delete_All_User_Attrs_Data END');
414: end if;
415:
416: EXCEPTION
417: when FND_API.G_EXC_ERROR then
423: if p_commit = FND_API.G_TRUE then
424: rollback to delete_all_user_attrs_data_pvt;
425: end if;
426: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
427: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_USER_ATTR_PVT',
428: p_procedure_name => 'Delete_All_User_Attrs_Data',
429: p_error_text => SUBSTRB(SQLERRM,1,240));
430: when OTHERS then
431: if p_commit = FND_API.G_TRUE then
431: if p_commit = FND_API.G_TRUE then
432: rollback to delete_all_user_attrs_data_pvt;
433: end if;
434: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
435: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_USER_ATTR_PVT',
436: p_procedure_name => 'Delete_All_User_Attrs_Data',
437: p_error_text => SUBSTRB(SQLERRM,1,240));
438: raise;
439: END DELETE_ALL_USER_ATTRS_DATA;
437: p_error_text => SUBSTRB(SQLERRM,1,240));
438: raise;
439: END DELETE_ALL_USER_ATTRS_DATA;
440:
441: END PA_USER_ATTR_PVT;