1: PACKAGE BODY pa_role_utils AS
2: -- $Header: PARLUTLB.pls 120.2 2006/09/26 00:06:53 rfadia noship $
3:
4: --
5: -- PROCEDURE
30: l_num_ids NUMBER:= 0;
31: l_id_found_flag VARCHAR(1) := 'N';
32:
33: BEGIN
34: pa_debug.init_err_stack ('pa_role_utils.Check_Role_Name_Or_Id');
35: IF p_role_id IS NOT NULL AND p_role_id <> FND_API.G_MISS_NUM THEN
36: IF p_check_id_flag = 'Y' THEN
37: SELECT project_role_id
38: INTO x_role_id
103: x_error_message_code := 'PA_ROLE_INVALID_AMBIGOUS';
104: WHEN OTHERS THEN
105: x_role_id := null;
106: fnd_msg_pub.add_exc_msg
107: (p_pkg_name => 'PA_ROLE_UTILS',
108: p_procedure_name => pa_debug.g_err_stack );
109: x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
110: RAISE;
111: END Check_Role_Name_Or_Id;
123:
124: l_status VARCHAR2(10) ;
125: l_sysdate DATE := TRUNC(sysdate);
126: BEGIN
127: pa_debug.init_err_stack ('pa_role_utils.Check_Role_RoleList');
128:
129: x_return_status := FND_API.G_RET_STS_SUCCESS;
130:
131: begin
163: x_error_message_code := 'PA_ROLE_INVALID_AMBIGOUS';
164:
165: WHEN OTHERS THEN
166: fnd_msg_pub.add_exc_msg
167: (p_pkg_name => 'PA_ROLE_UTILS',
168: p_procedure_name => pa_debug.g_err_stack );
169: x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
170: RAISE;
171: END;
248: x_return_status := FND_API.G_RET_STS_ERROR;
249: x_error_message_code := 'PA_ROLE_NOT_IN_ROLELIST';
250: WHEN OTHERS THEN
251: fnd_msg_pub.add_exc_msg
252: (p_pkg_name => 'PA_ROLE_UTILS',
253: p_procedure_name => pa_debug.g_err_stack );
254: x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
255: RAISE;
256:
287: default_job_id
288: FROM pa_project_role_types_vl
289: WHERE project_role_id = p_role_id ;
290: BEGIN
291: pa_debug.init_err_stack ('pa_role_utils.get_role_defaults');
292: OPEN l_role_csr;
293: FETCH l_role_csr INTO
294: x_meaning,
295: x_default_min_job_level,
328: pa_debug.reset_err_stack;
329: EXCEPTION
330: WHEN OTHERS THEN
331: fnd_msg_pub.add_exc_msg
332: (p_pkg_name => 'PA_ROLE_UTILS',
333: p_procedure_name => pa_debug.g_err_stack );
334: x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
335: RAISE;
336: END Get_Role_Defaults;
352: SELECT business_group_id
353: FROM per_competences
354: WHERE competence_id = p_competence_id;
355: BEGIN
356: pa_debug.init_err_stack ('pa_role_utils.validate_role_competency');
357: OPEN l_get_bg_csr;
358: FETCH l_get_bg_csr INTO l_business_group_id;
359: IF l_get_bg_csr%NOTFOUND THEN
360: x_return_status := FND_API.G_RET_STS_ERROR;
375: pa_debug.reset_err_stack;
376: EXCEPTION
377: WHEN OTHERS THEN
378: fnd_msg_pub.add_exc_msg
379: (p_pkg_name => 'PA_ROLE_UTILS',
380: p_procedure_name => pa_debug.g_err_stack );
381: x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
382: RAISE;
383: END Validate_Role_Competency ;
928: x_return_status:=FND_API.G_RET_STS_UNEXP_ERROR;
929: x_error_message_code:=SQLCODE;
930: end;
931:
932: end PA_ROLE_UTILS ;