DBA Data[Home] [Help]

APPS.PA_SECURITY_PVT dependencies on PA_SECURITY

Line 1: package body PA_SECURITY_PVT AS

1: package body PA_SECURITY_PVT AS
2: /* $Header: PASECPVB.pls 120.9.12010000.2 2008/10/09 19:20:58 asahoo ship $ */
3: G_PKG_NAME varchar2(30) :='PA_SECURITY_PVT';
4: G_responsibility_id NUMBER :=FND_GLOBAL.RESP_ID;
5: G_user_id NUMBER:=FND_GLOBAL.USER_ID;

Line 3: G_PKG_NAME varchar2(30) :='PA_SECURITY_PVT';

1: package body PA_SECURITY_PVT AS
2: /* $Header: PASECPVB.pls 120.9.12010000.2 2008/10/09 19:20:58 asahoo ship $ */
3: G_PKG_NAME varchar2(30) :='PA_SECURITY_PVT';
4: G_responsibility_id NUMBER :=FND_GLOBAL.RESP_ID;
5: G_user_id NUMBER:=FND_GLOBAL.USER_ID;
6: G_source_type VARCHAR2(30) := '';
7: G_source_id NUMBER;

Line 282: PA_SECURITY.Initialize(X_user_id =>G_user_id ,

278: ---(check if any of the roles the user plays on the object
279: ----does not have a menu_id or the user does not play any role on the object)
280: IF p_object_name='PA_PROJECTS' THEN
281: -----------fixing bug 1484710-------------------
282: PA_SECURITY.Initialize(X_user_id =>G_user_id ,
283: X_calling_module => 'PAXPREPR');
284: ----------end of fixing bug 1484710------------
285: END IF;
286:

Line 316: if pa_security.allow_update (p_object_key)<>'Y' then

312: IF G_debug_flag = 'Y' THEN
313: pa_debug.write_file('check_user_privilege: ' || 'LOG', pa_debug.G_err_stage);
314: END IF;
315: if p_object_name='PA_PROJECTS' then
316: if pa_security.allow_update (p_object_key)<>'Y' then
317: x_ret_code:=fnd_api.g_false;
318: x_return_status:=fnd_api.g_ret_sts_success;
319: return;
320: end if;

Line 504: AND pa_security.g_cross_project_user='Y' THEN

500: END IF;
501: CLOSE c_any_role;
502:
503: IF p_object_name IN ('PA_PROJECTS')
504: AND pa_security.g_cross_project_user='Y' THEN
505: --profile option override this check
506: RETURN fnd_api.g_true;
507: END IF;
508:

Line 1058: --dbms_output.put_line('pa_security_pvt.grant_role');

1054: l_error_message_code VARCHAR2(30);
1055:
1056: begin
1057:
1058: --dbms_output.put_line('pa_security_pvt.grant_role');
1059:
1060: x_return_status:=fnd_api.g_ret_sts_success;
1061: x_msg_count:=0;
1062: x_msg_data:=null;

Line 1069: pa_security_pvt.check_grant_exists(p_project_role_id => p_project_role_id,

1065:
1066: -- for role-based security, check to see the this person already has a FND_GRANTS
1067: -- record for this given role. Only grant if person does not have such records.
1068: IF p_project_role_id IS NOT NULL AND p_object_name = 'PA_PROJECTS' THEN
1069: pa_security_pvt.check_grant_exists(p_project_role_id => p_project_role_id,
1070: p_instance_type => 'SET',
1071: p_instance_set_name => G_project_roles_ins_set_name,
1072: p_grantee_type => 'USER',
1073: p_grantee_key => l_grantee_key,

Line 2004: ' WHERE pa_security_pvt.check_sec_by_resp('||

2000: --Commented the below code for the bug 3137696
2001: /*IF p_object_name='PA_PROJECTS' THEN
2002: -- Bug 1571014, faulty dynamic sql
2003: l_sql := 'SELECT 1 FROM '||l_db_object_name||
2004: ' WHERE pa_security_pvt.check_sec_by_resp('||
2005: g_user_id||',''PA_PROJECTS'','''||
2006: g_source_type||''','||l_db_pk1_column||')=''T'''||
2007: ' AND pa_security.allow_update('||l_db_pk1_column||')=''Y'''||
2008: ' AND ROWNUM=1';

Line 2007: ' AND pa_security.allow_update('||l_db_pk1_column||')=''Y'''||

2003: l_sql := 'SELECT 1 FROM '||l_db_object_name||
2004: ' WHERE pa_security_pvt.check_sec_by_resp('||
2005: g_user_id||',''PA_PROJECTS'','''||
2006: g_source_type||''','||l_db_pk1_column||')=''T'''||
2007: ' AND pa_security.allow_update('||l_db_pk1_column||')=''Y'''||
2008: ' AND ROWNUM=1';
2009:
2010: pa_debug.G_err_stage := 'checking allow_update in case of PA_PROJECTS';
2011: IF G_debug_flag = 'Y' THEN

Line 2015: PA_SECURITY.Initialize(X_user_id =>G_user_id ,

2011: IF G_debug_flag = 'Y' THEN
2012: pa_debug.write_file('check_access_exist: ' || 'LOG', pa_debug.G_err_stage);
2013: END IF;
2014:
2015: PA_SECURITY.Initialize(X_user_id =>G_user_id ,
2016: X_calling_module => 'PAXPREPR');
2017:
2018: OPEN l_cur FOR l_sql;
2019: FETCH l_cur INTO l_dummy;

Line 2029: ' WHERE pa_security_pvt.check_sec_by_resp('||

2025:
2026: ELSE
2027: -- Bug 1571014, faulty dynamic sql
2028: l_sql := 'SELECT 1 FROM '||l_db_object_name||
2029: ' WHERE pa_security_pvt.check_sec_by_resp('||
2030: g_user_id||','''||p_object_name||''','''||
2031: g_source_type||''','||l_db_pk1_column||')=''T'''||
2032: ' AND ROWNUM=1';
2033:

Line 2039: PA_SECURITY.Initialize(X_user_id =>G_user_id ,

2035: IF G_debug_flag = 'Y' THEN
2036: pa_debug.write_file('check_access_exist: ' || 'LOG', pa_debug.G_err_stage);
2037: END IF;
2038:
2039: PA_SECURITY.Initialize(X_user_id =>G_user_id ,
2040: X_calling_module => 'PAXPREPR');
2041:
2042: OPEN l_cur FOR l_sql;
2043: FETCH l_cur INTO l_dummy;

Line 2203: (p_pkg_name => 'PA_SECURITY_PVT',

2199: EXCEPTION
2200: when others then
2201: x_return_status:=fnd_api.g_ret_sts_unexp_error;
2202: fnd_msg_pub.add_exc_msg
2203: (p_pkg_name => 'PA_SECURITY_PVT',
2204: p_procedure_name => 'UPDATE_MENU',
2205: p_error_text => SQLCODE);
2206: x_msg_count := 1;
2207:

Line 2240: (p_pkg_name => 'PA_SECURITY_PVT',

2236: EXCEPTION
2237: when others then
2238: x_return_status:=fnd_api.g_ret_sts_unexp_error;
2239: fnd_msg_pub.add_exc_msg
2240: (p_pkg_name => 'PA_SECURITY_PVT',
2241: p_procedure_name => 'REVOKE_ROLE_BASED_SEC',
2242: p_error_text => SQLCODE);
2243: x_msg_count := 1;
2244: END revoke_role_based_sec;

Line 2455: (p_pkg_name => 'PA_SECURITY_PVT',

2451: EXCEPTION
2452: when others then
2453: x_return_status:=fnd_api.g_ret_sts_unexp_error;
2454: fnd_msg_pub.add_exc_msg
2455: (p_pkg_name => 'PA_SECURITY_PVT',
2456: p_procedure_name => 'GRANT_ROLE_BASED_SEC',
2457: p_error_text => SQLCODE);
2458: FND_MSG_PUB.Count_And_Get
2459: (p_count => x_msg_count ,

Line 2495: (p_pkg_name => 'PA_SECURITY_PVT',

2491: EXCEPTION
2492: when others then
2493: x_return_status:=fnd_api.g_ret_sts_unexp_error;
2494: fnd_msg_pub.add_exc_msg
2495: (p_pkg_name => 'PA_SECURITY_PVT',
2496: p_procedure_name => 'REVOKE_STATUS_BASED_SEC',
2497: p_error_text => SQLCODE);
2498: x_msg_count := 1;
2499: END revoke_status_based_sec;

Line 2683: (p_pkg_name => 'PA_SECURITY_PVT',

2679: EXCEPTION
2680: when others then
2681: x_return_status:=fnd_api.g_ret_sts_unexp_error;
2682: fnd_msg_pub.add_exc_msg
2683: (p_pkg_name => 'PA_SECURITY_PVT',
2684: p_procedure_name => 'UPDATE_STATUS_BASED_SEC',
2685: p_error_text => SQLCODE);
2686: FND_MSG_PUB.Count_And_Get
2687: (p_count => x_msg_count ,

Line 2692: end PA_SECURITY_PVT;

2688: p_data => x_msg_data
2689: );
2690: END update_status_based_sec;
2691:
2692: end PA_SECURITY_PVT;