[Home] [Help]
449: -- Create a role
450: IF PO_LOG.d_stmt THEN
451: PO_LOG.stmt(d_mod,'Creating l_role_name',l_role_name );
452: END IF;
453: WF_DIRECTORY.CreateAdHocRole( l_role_name, -- role_name
454: l_role_display_name , -- role_display_name
455: null, -- language
456: null, -- territory
457: null, -- role_description
500: --Locks:
501: -- None
502: --Function:
503: -- If lock owner is cat admin, then wf role will be the user name of
504: -- the user and the dsp name will be the one listed in WF directory
505: -- If lock owner is supplier, then we need to create a adhoc user if one
506: -- does not exist. This is because we want to the role to have the display
507: -- name equal to vendor name, which may not exist in the system
508: --Parameters:
536: l_vendor_name PO_VENDORS.vendor_name%TYPE;
537: l_emp_id FND_USER.employee_id%TYPE;
538: l_user_name FND_USER.user_name%TYPE;
539: l_expected_wf_role_name WF_USER_ROLES.role_name%TYPE;
540: l_user_table WF_DIRECTORY.UserTable; --Added as part of Bug 13059528 fix
541:
542: BEGIN
543:
544: d_position := 0;
597: x_wf_role_name := l_expected_wf_role_name;
598:
599: --Start of code changes for the bug 13059528
600: /*
601: WF_DIRECTORY.CreateAdHocRole
602: ( x_wf_role_name,
603: x_wf_role_name_dsp,
604: NULL,
605: NULL,
613: );*/
614:
615: l_user_table(0) := l_user_name;
616:
617: WF_DIRECTORY.CreateAdHocRole2
618: ( x_wf_role_name,
619: x_wf_role_name_dsp,
620: NULL,
621: NULL,
630: --End of code changes for the bug 13059528
631: ELSE
632: -- if a role already exists, make sure that the role display name
633: -- is up to date
634: WF_DIRECTORY.setAdHocRoleAttr
635: ( x_wf_role_name,
636: x_wf_role_name_dsp,
637: NULL,
638: NULL,