229: role_name:= v_user_name;
230: role_display_name:=role_name || 'Dis';
231: email_address:=l_send_to;
232: begin
233: WF_Directory.CreateAdHocRole (role_name, role_display_name,
234: language, territory, role_description, notification_preference,
235: user_name, email_address, fax, status, expiration_date);
236: exception
237: when duplicate_user_or_role then
234: language, territory, role_description, notification_preference,
235: user_name, email_address, fax, status, expiration_date);
236: exception
237: when duplicate_user_or_role then
238: WF_Directory.SetAdHocRoleAttr (role_name, role_display_name,
239: notification_preference, language, territory, email_address, fax);
240: /*dbms_output.put_line ('Messagge' || role_name || ' is already in */
241: /*the database Change Attributes'); */
242: end;
248: role_name:= l_source_database_name;
249: role_display_name:=role_name;
250: email_address:=l_send_to;
251: begin
252: WF_Directory.CreateAdHocRole (role_name, role_display_name,
253: language, territory, role_description, notification_preference,
254: user_name, email_address, fax, status, expiration_date);
255: exception
256: when duplicate_user_or_role then
253: language, territory, role_description, notification_preference,
254: user_name, email_address, fax, status, expiration_date);
255: exception
256: when duplicate_user_or_role then
257: WF_Directory.SetAdHocRoleAttr (role_name, role_display_name,
258: notification_preference, language, territory, email_address, fax);
259: /*dbms_output.put_line ('Messagge' || role_name || ' is already in */
260: /*the database Change Attributes'); */
261: end;