[Home] [Help]
1: package body Fnd_User_Resp_Groups_api as
2: /* $Header: AFSCURGB.pls 120.14.12000000.3 2007/02/12 16:36:58 jvalenti ship $ */
3:
4: C_PKG_NAME CONSTANT VARCHAR2(30) := 'FND_USER_RESP_GROUPS_API';
5: C_LOG_HEAD CONSTANT VARCHAR2(240)
1: package body Fnd_User_Resp_Groups_api as
2: /* $Header: AFSCURGB.pls 120.14.12000000.3 2007/02/12 16:36:58 jvalenti ship $ */
3:
4: C_PKG_NAME CONSTANT VARCHAR2(30) := 'FND_USER_RESP_GROUPS_API';
5: C_LOG_HEAD CONSTANT VARCHAR2(240)
6: := 'fnd.plsql.FND_USER_RESP_GROUPS_API.';
7:
8: -- This is a one level cache used in check_secgrp_enabled.
2: /* $Header: AFSCURGB.pls 120.14.12000000.3 2007/02/12 16:36:58 jvalenti ship $ */
3:
4: C_PKG_NAME CONSTANT VARCHAR2(30) := 'FND_USER_RESP_GROUPS_API';
5: C_LOG_HEAD CONSTANT VARCHAR2(240)
6: := 'fnd.plsql.FND_USER_RESP_GROUPS_API.';
7:
8: -- This is a one level cache used in check_secgrp_enabled.
9: G_ENABLED_RESPID NUMBER := null;
10: G_ENABLED_APPID NUMBER := null;
142: x_secgrp_id in number)
143: return varchar2 is
144: begin
145:
146: return fnd_user_resp_groups_api.Role_Name_from_Resp(
147: x_resp_id,
148: x_resp_appl_id,
149: x_secgrp_id);
150:
163: new_role_name varchar2(255);
164: begin
165:
166: begin
167: new_role_name := fnd_user_resp_groups_api.Role_Name_from_Resp(
168: x_resp_id => respid,
169: x_resp_appl_id => appid,
170: x_secgrp_id => 0);
171:
206: exception
207: when no_data_found then
208: result := FALSE;
209: when others then
210: Generic_Error('FND_USER_RESP_GROUPS_API.ASSIGNMENT_CHECK(E)',
211: sqlcode, sqlerrm);
212: end;
213: elsif (direct_flag = 'D') then
214: begin
223: exception
224: when no_data_found then
225: result := FALSE;
226: when others then
227: Generic_Error('FND_USER_RESP_GROUPS_API.ASSIGNMENT_CHECK(D)',
228: sqlcode, sqlerrm);
229: end;
230: elsif (direct_flag = 'I') then
231: begin
240: exception
241: when no_data_found then
242: result := FALSE;
243: when others then
244: Generic_Error('FND_USER_RESP_GROUPS_API.ASSIGNMENT_CHECK(I)',
245: sqlcode, sqlerrm);
246: end;
247: end if;
248: return result;
317: l_direct_flag);
318:
319: exception
320: when others then
321: Generic_Error('FND_USER_RESP_GROUPS_API.ASSIGNMENT_EXISTS',
322: sqlcode, sqlerrm);
323: end Assignment_Exists;
324:
325:
508: fnd_message.set_name('FND', 'FND_CANT_INSERT_USER_ROLE');
509: fnd_message.set_token('USERNAME', username);
510: fnd_message.set_token('ROLENAME', rolename);
511: fnd_message.set_token('ROUTINE',
512: 'FND_USER_RESP_GROUPS_API.Insert_Assignment');
513: app_exception.raise_exception;
514: end if;
515:
516:
606: p_send_date => Sysdate);
607:
608: exception
609: when others then
610: Generic_Error('FND_USER_RESP_GROUPS_API.INSERT_ASSIGNMENT',
611: sqlcode, sqlerrm);
612: end Insert_Assignment;
613:
614: --
697: fnd_message.set_name('FND', 'FND_CANT_UPDATE_USER_ROLE');
698: fnd_message.set_token('USERNAME', username);
699: fnd_message.set_token('ROLENAME', rolename);
700: fnd_message.set_token('ROUTINE',
701: 'FND_USER_RESP_GROUPS_API.Update_Assignment');
702: app_exception.raise_exception;
703: end if;
704:
705: /* We can't just assume that the orig system is FND_USR. It could */
837: p_send_date => Sysdate);
838:
839: exception
840: when others then
841: Generic_Error('FND_USER_RESP_GROUPS_API.UPDATE_ASSIGNMENT',
842: sqlcode, sqlerrm);
843:
844: end Update_Assignment;
845:
892: -- bug3649874 Modified to use fnd_load_util to get the owner_id
893:
894: l_owner := fnd_load_util.owner_id(X_OWNER);
895:
896: fnd_user_resp_groups_api.UPLOAD_ASSIGNMENT(
897: USER_ID => u_id,
898: RESPONSIBILITY_ID => resp_id,
899: RESPONSIBILITY_APPLICATION_ID => app_id,
900: SECURITY_GROUP_ID => sgroup_id,
1010: else
1011: sgid := security_group_id;
1012: end if;
1013:
1014: if (Fnd_User_Resp_Groups_Api.Assignment_Exists(
1015: Upload_Assignment.user_id,
1016: Upload_Assignment.responsibility_id,
1017: Upload_Assignment.responsibility_application_id,
1018: Upload_Assignment.sgid,
1017: Upload_Assignment.responsibility_application_id,
1018: Upload_Assignment.sgid,
1019: 'D'))
1020: then
1021: Fnd_User_Resp_Groups_Api.Update_Assignment(
1022: Upload_Assignment.user_id,
1023: Upload_Assignment.responsibility_id,
1024: Upload_Assignment.responsibility_application_id,
1025: Upload_Assignment.sgid,
1027: Upload_Assignment.end_date,
1028: Upload_Assignment.description,
1029: update_who_columns);
1030: else
1031: Fnd_User_Resp_Groups_Api.Insert_Assignment(
1032: Upload_Assignment.user_id,
1033: Upload_Assignment.responsibility_id,
1034: Upload_Assignment.responsibility_application_id,
1035: Upload_Assignment.sgid,
1038: Upload_Assignment.description);
1039: end if;
1040: exception
1041: when others then
1042: Generic_Error('FND_USER_RESP_GROUPS_API.UPLOAD_ASSIGNMENT',
1043: sqlcode, sqlerrm);
1044: end Upload_Assignment;
1045:
1046: --
1121: into applsname
1122: from fnd_application
1123: where application_id = appid;
1124:
1125: role_name := fnd_user_resp_groups_api.role_name_from_resp_name(
1126: respkey, applsname, secgrpkey);
1127:
1128: exception
1129: when no_data_found then
1514: fnd_log.string(FND_LOG.LEVEL_STATEMENT,
1515: c_log_head || l_api_name || '.need_to_create_role',
1516: 'Creating role:'|| rolename);
1517: end if;
1518: fnd_user_resp_groups_api.sync_roles_one_resp_secgrp(
1519: rowrec.responsibility_id,
1520: rowrec.responsibility_application_id,
1521: rowrec.responsibility_key,
1522: rowrec.security_group_id,
1704:
1705: end sync_roles_all_secgrps_int;
1706:
1707:
1708: end Fnd_User_Resp_Groups_Api;