[Home] [Help]
1: package body Fnd_User_Resp_Groups_api as
2: /* $Header: AFSCURGB.pls 120.16.12020000.4 2013/03/25 19:50:40 fskinner 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.16.12020000.4 2013/03/25 19:50:40 fskinner 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.16.12020000.4 2013/03/25 19:50:40 fskinner 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 */
841: p_send_date => Sysdate);
842:
843: exception
844: when others then
845: Generic_Error('FND_USER_RESP_GROUPS_API.UPDATE_ASSIGNMENT',
846: sqlcode, sqlerrm);
847:
848: end Update_Assignment;
849:
896: -- bug3649874 Modified to use fnd_load_util to get the owner_id
897:
898: l_owner := fnd_load_util.owner_id(X_OWNER);
899:
900: fnd_user_resp_groups_api.UPLOAD_ASSIGNMENT(
901: USER_ID => u_id,
902: RESPONSIBILITY_ID => resp_id,
903: RESPONSIBILITY_APPLICATION_ID => app_id,
904: SECURITY_GROUP_ID => sgroup_id,
1014: else
1015: sgid := security_group_id;
1016: end if;
1017:
1018: if (Fnd_User_Resp_Groups_Api.Assignment_Exists(
1019: Upload_Assignment.user_id,
1020: Upload_Assignment.responsibility_id,
1021: Upload_Assignment.responsibility_application_id,
1022: Upload_Assignment.sgid,
1021: Upload_Assignment.responsibility_application_id,
1022: Upload_Assignment.sgid,
1023: 'D'))
1024: then
1025: Fnd_User_Resp_Groups_Api.Update_Assignment(
1026: Upload_Assignment.user_id,
1027: Upload_Assignment.responsibility_id,
1028: Upload_Assignment.responsibility_application_id,
1029: Upload_Assignment.sgid,
1031: Upload_Assignment.end_date,
1032: Upload_Assignment.description,
1033: update_who_columns);
1034: else
1035: Fnd_User_Resp_Groups_Api.Insert_Assignment(
1036: Upload_Assignment.user_id,
1037: Upload_Assignment.responsibility_id,
1038: Upload_Assignment.responsibility_application_id,
1039: Upload_Assignment.sgid,
1042: Upload_Assignment.description);
1043: end if;
1044: exception
1045: when others then
1046: Generic_Error('FND_USER_RESP_GROUPS_API.UPLOAD_ASSIGNMENT',
1047: sqlcode, sqlerrm);
1048: end Upload_Assignment;
1049:
1050: --
1125: into applsname
1126: from fnd_application
1127: where application_id = appid;
1128:
1129: role_name := fnd_user_resp_groups_api.role_name_from_resp_name(
1130: respkey, applsname, secgrpkey);
1131:
1132: exception
1133: when no_data_found then
1518: fnd_log.string(FND_LOG.LEVEL_STATEMENT,
1519: c_log_head || l_api_name || '.need_to_create_role',
1520: 'Creating role:'|| rolename);
1521: end if;
1522: fnd_user_resp_groups_api.sync_roles_one_resp_secgrp(
1523: rowrec.responsibility_id,
1524: rowrec.responsibility_application_id,
1525: rowrec.responsibility_key,
1526: rowrec.security_group_id,
1708:
1709: end sync_roles_all_secgrps_int;
1710:
1711:
1712: end Fnd_User_Resp_Groups_Api;