345:
346: END Delete_Project_Set;
347:
348: PROCEDURE create_project_set_line
349: ( p_project_set_id IN pa_project_set_lines.project_set_id%TYPE
350: ,p_project_id IN pa_project_set_lines.project_id%TYPE
351: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
352: )
353: IS
346: END Delete_Project_Set;
347:
348: PROCEDURE create_project_set_line
349: ( p_project_set_id IN pa_project_set_lines.project_set_id%TYPE
350: ,p_project_id IN pa_project_set_lines.project_id%TYPE
351: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
352: )
353: IS
354: l_return_status VARCHAR2(1);
404: END create_project_set_line;
405:
406:
407: PROCEDURE delete_project_set_line
408: ( p_project_set_id IN pa_project_set_lines.project_set_id%TYPE
409: ,p_project_id IN pa_project_set_lines.project_id%TYPE
410: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
411: )
412: IS
405:
406:
407: PROCEDURE delete_project_set_line
408: ( p_project_set_id IN pa_project_set_lines.project_set_id%TYPE
409: ,p_project_id IN pa_project_set_lines.project_id%TYPE
410: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
411: )
412: IS
413: l_return_status VARCHAR2(1);
452:
453: END delete_project_set_line;
454:
455: PROCEDURE delete_proj_from_proj_set
456: ( p_project_id IN pa_project_set_lines.project_id%TYPE
457: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
458: )
459: IS
460: BEGIN
460: BEGIN
461: -- Initialize the return status to success
462: x_return_status := FND_API.G_RET_STS_SUCCESS;
463:
464: DELETE FROM pa_project_set_lines
465: WHERE project_id = p_project_id;
466:
467: EXCEPTION
468: WHEN OTHERS THEN
466:
467: EXCEPTION
468: WHEN OTHERS THEN
469: -- Set the exception Message and the stack
470: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_PROJECT_SET_LINES_PKG.Delete_project_from_project_sets'
471: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
472:
473: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
474: RAISE;