72: actid in number,
73: funcmode in varchar2,
74: resultout in out NOCOPY varchar2) is
75:
76: l_role_name wf_local_roles.name%type;
77: l_notification_preference wf_local_roles.notification_preference%type;
78: l_username fnd_user.user_name%type;
79: l_display_name varchar2(4000);
80: begin
73: funcmode in varchar2,
74: resultout in out NOCOPY varchar2) is
75:
76: l_role_name wf_local_roles.name%type;
77: l_notification_preference wf_local_roles.notification_preference%type;
78: l_username fnd_user.user_name%type;
79: l_display_name varchar2(4000);
80: begin
81:
187:
188:
189:
190: -- Private function to get the email address of the active user from
191: -- 1) WF local roles
192: -- 2) FND User
193: -- 3) The first TCA party
194: procedure Get_email_address (p_user_name in fnd_user.user_name%type,
195: x_role_name out nocopy varchar2,
198: x_message_name out nocopy varchar2) is
199:
200: -- TCA Party declares email address as varchar2 2000, largest amount the
201: -- three schema.
202: l_role_display_name wf_local_roles.display_name%type;
203: l_language wf_local_roles.language%type;
204: l_territory wf_local_roles.territory%type;
205:
206: cursor get_fnd_email (p_user_name in fnd_user.user_name%type) is
199:
200: -- TCA Party declares email address as varchar2 2000, largest amount the
201: -- three schema.
202: l_role_display_name wf_local_roles.display_name%type;
203: l_language wf_local_roles.language%type;
204: l_territory wf_local_roles.territory%type;
205:
206: cursor get_fnd_email (p_user_name in fnd_user.user_name%type) is
207: SELECT email_address
200: -- TCA Party declares email address as varchar2 2000, largest amount the
201: -- three schema.
202: l_role_display_name wf_local_roles.display_name%type;
203: l_language wf_local_roles.language%type;
204: l_territory wf_local_roles.territory%type;
205:
206: cursor get_fnd_email (p_user_name in fnd_user.user_name%type) is
207: SELECT email_address
208: FROM fnd_user
274: x_message_name out nocopy varchar2) is
275:
276: -- TCA Party declares email address as varchar2 2000, largest amount the
277: -- three schema.
278: l_role_display_name wf_local_roles.display_name%type;
279: l_language wf_local_roles.language%type;
280: l_territory wf_local_roles.territory%type;
281: l_email_address fnd_user.email_address%type;
282:
275:
276: -- TCA Party declares email address as varchar2 2000, largest amount the
277: -- three schema.
278: l_role_display_name wf_local_roles.display_name%type;
279: l_language wf_local_roles.language%type;
280: l_territory wf_local_roles.territory%type;
281: l_email_address fnd_user.email_address%type;
282:
283: cursor get_user_fnd(p_email_address in fnd_user.email_address%type) is
276: -- TCA Party declares email address as varchar2 2000, largest amount the
277: -- three schema.
278: l_role_display_name wf_local_roles.display_name%type;
279: l_language wf_local_roles.language%type;
280: l_territory wf_local_roles.territory%type;
281: l_email_address fnd_user.email_address%type;
282:
283: cursor get_user_fnd(p_email_address in fnd_user.email_address%type) is
284: SELECT user_name FROM fnd_user
345: x_users out NOCOPY UsersWEmail ) is
346:
347: -- TCA Party declares email address as varchar2 2000, largest amount the
348: -- three schema.
349: l_role_display_name wf_local_roles.display_name%type;
350: l_language wf_local_roles.language%type;
351: l_territory wf_local_roles.territory%type;
352: l_email_address fnd_user.email_address%type;
353: l_user_name fnd_user.user_name%type;
346:
347: -- TCA Party declares email address as varchar2 2000, largest amount the
348: -- three schema.
349: l_role_display_name wf_local_roles.display_name%type;
350: l_language wf_local_roles.language%type;
351: l_territory wf_local_roles.territory%type;
352: l_email_address fnd_user.email_address%type;
353: l_user_name fnd_user.user_name%type;
354: l_notification_preference wf_local_roles.notification_preference%type;
347: -- TCA Party declares email address as varchar2 2000, largest amount the
348: -- three schema.
349: l_role_display_name wf_local_roles.display_name%type;
350: l_language wf_local_roles.language%type;
351: l_territory wf_local_roles.territory%type;
352: l_email_address fnd_user.email_address%type;
353: l_user_name fnd_user.user_name%type;
354: l_notification_preference wf_local_roles.notification_preference%type;
355: i pls_integer := 0;
350: l_language wf_local_roles.language%type;
351: l_territory wf_local_roles.territory%type;
352: l_email_address fnd_user.email_address%type;
353: l_user_name fnd_user.user_name%type;
354: l_notification_preference wf_local_roles.notification_preference%type;
355: i pls_integer := 0;
356:
357: cursor get_user_fnd(p_email_address in fnd_user.email_address%type) is
358: SELECT user_name FROM fnd_user
484: x_message_name out NOCOPY varchar2) is
485:
486: l_user_name fnd_user.user_name%type := upper(p_username);
487: l_email_address varchar2(2000);
488: l_role_name wf_local_roles.name%type;
489: l_password varchar2(40);
490: l_notification_preference wf_local_roles.notification_preference%type;
491: l_result wf_item_activity_statuses.activity_result_code%type;
492: l_status wf_item_activity_statuses.activity_status%type;
486: l_user_name fnd_user.user_name%type := upper(p_username);
487: l_email_address varchar2(2000);
488: l_role_name wf_local_roles.name%type;
489: l_password varchar2(40);
490: l_notification_preference wf_local_roles.notification_preference%type;
491: l_result wf_item_activity_statuses.activity_result_code%type;
492: l_status wf_item_activity_statuses.activity_status%type;
493: l_itemkey wf_items.item_key%type;
494: l_pwdChangeable boolean := null;
606: x_return_status out NOCOPY varchar2,
607: x_message_name out NOCOPY varchar2) is
608:
609: l_email_address varchar2(2000) := p_email;
610: l_role_name wf_local_roles.name%type;
611: l_notification_preference wf_local_roles.notification_preference%type;
612: l_result wf_item_activity_statuses.activity_result_code%type;
613: l_status wf_item_activity_statuses.activity_status%type;
614: l_itemkey wf_items.item_key%type;
607: x_message_name out NOCOPY varchar2) is
608:
609: l_email_address varchar2(2000) := p_email;
610: l_role_name wf_local_roles.name%type;
611: l_notification_preference wf_local_roles.notification_preference%type;
612: l_result wf_item_activity_statuses.activity_result_code%type;
613: l_status wf_item_activity_statuses.activity_status%type;
614: l_itemkey wf_items.item_key%type;
615: l_user_name fnd_user.user_name%type;
968: x_message_name out NOCOPY varchar2)
969: IS
970: l_user_name fnd_user.user_name%type;
971: l_authkey varchar2(400);
972: l_notification_preference wf_local_roles.notification_preference%type;
973: l_email_address varchar2(2000);
974: l_pwd_changeable boolean := true;
975: l_role_name wf_local_roles.name%type;
976: l_item_status varchar2(8);
971: l_authkey varchar2(400);
972: l_notification_preference wf_local_roles.notification_preference%type;
973: l_email_address varchar2(2000);
974: l_pwd_changeable boolean := true;
975: l_role_name wf_local_roles.name%type;
976: l_item_status varchar2(8);
977: l_item_result varchar2(30);
978:
979: BEGIN
1048: x_message_name out NOCOPY varchar2)
1049: IS
1050: l_user_name fnd_user.user_name%type;
1051: l_authkey varchar2(400);
1052: l_notification_preference wf_local_roles.notification_preference%type;
1053: l_email_address varchar2(2000);
1054: l_pwd_changeable boolean := true;
1055: l_role_name wf_local_roles.name%type;
1056: l_item_status varchar2(8);
1051: l_authkey varchar2(400);
1052: l_notification_preference wf_local_roles.notification_preference%type;
1053: l_email_address varchar2(2000);
1054: l_pwd_changeable boolean := true;
1055: l_role_name wf_local_roles.name%type;
1056: l_item_status varchar2(8);
1057: l_item_result varchar2(30);
1058:
1059: BEGIN
1216: x_message_data out NOCOPY varchar2) IS
1217:
1218: l_user_name fnd_user.user_name%type := upper(p_username);
1219: -- l_email_address varchar2(2000);
1220: -- l_role_name wf_local_roles.name%type;
1221: l_password varchar2(40) := p_password;
1222: -- l_notification_preference wf_local_roles.notification_preference%type;
1223: l_result wf_item_activity_statuses.activity_result_code%type;
1224: -- l_status wf_item_activity_statuses.activity_status%type;
1218: l_user_name fnd_user.user_name%type := upper(p_username);
1219: -- l_email_address varchar2(2000);
1220: -- l_role_name wf_local_roles.name%type;
1221: l_password varchar2(40) := p_password;
1222: -- l_notification_preference wf_local_roles.notification_preference%type;
1223: l_result wf_item_activity_statuses.activity_result_code%type;
1224: -- l_status wf_item_activity_statuses.activity_status%type;
1225: -- l_itemkey wf_items.item_key%type;
1226: l_pwdChangeable boolean := null;
1348: l_item_status varchar2(8);
1349: l_item_result varchar2(30);
1350: l_role_name varchar2(200);
1351: -- changes to figure out if role is a ad hoc role,7445188
1352: l_orig_system wf_local_roles.orig_system%TYPE;
1353: l_orig_system_id wf_local_roles.orig_system_id%type;
1354: begin
1355:
1356: x_return_status := 'S';
1349: l_item_result varchar2(30);
1350: l_role_name varchar2(200);
1351: -- changes to figure out if role is a ad hoc role,7445188
1352: l_orig_system wf_local_roles.orig_system%TYPE;
1353: l_orig_system_id wf_local_roles.orig_system_id%type;
1354: begin
1355:
1356: x_return_status := 'S';
1357: if (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) then
1365: itemkey => p_itemKey,
1366: aname => 'X_USER_ROLE');
1367: -- get orig system info and check if this is an ad-hoc role ,7445188
1368: wf_directory.getroleOrigsysinfo(l_role_name,l_orig_system,l_orig_system_id);
1369: if l_orig_system ='WF_LOCAL_ROLES' then
1370: wf_directory.setAdHocRoleExpiration(l_role_name);
1371: end if;
1372:
1373: wf_engine.abortprocess(