[Home] [Help]
56: --get employee number so adhoc user can be associated with the resource
57: x_emp_number := NULL;
58: BEGIN
59: --HZ_PARTIES should be populated in the workflow directory
60: WF_DIRECTORY.GetRoleName( p_orig_system => 'HZ_PARTY'
61: , p_orig_system_id => p_resource_id
62: , p_name => x_role
63: , p_display_name => x_name
64: );
73: OPEN c_contact_detail ( p_resource_id ) ;
74: FETCH c_contact_detail INTO l_name , l_email_address ;
75: CLOSE c_contact_detail ;
76:
77: WF_DIRECTORY.CreateAdHocRole (role_name => l_name
78: ,role_display_name => l_email_address
79: , email_address => l_email_address
80: );
81: END;
85: -- If there is more than one role for this employee, the API will
86: -- return the first one fetched. If no Workflow role exists for
87: -- the employee, out variable will be NULL
88: -------------------------------------------------------------------------
89: WF_DIRECTORY.GetRoleName( p_orig_system => 'PER'
90: , p_orig_system_id => l_employee_number
91: , p_name => x_role
92: , p_display_name => x_name
93: );
399: );
400: /*****************************************************************************
401: ** Create adHoc role (ER 2198911)
402: *****************************************************************************/
403: wf_directory.CreateAdHocRole
404: ( role_name => l_adhoc_role,
405: role_display_name => l_adhoc_role
406: );
407: /*****************************************************************************
428: , avalue => r_Admin.ResourceID
429: );
430: --comment CreateUserRole because it's not available in all versions of workflow
431: --BEGIN
432: wf_directory.addUsersToAdHocRole (role_name => l_adhoc_role,
433: role_users => l_admin_role);
434: /*EXCEPTION
435: --in older versions of WF, user has to be adHoc user (in wf_local_users)
436: --to be part of adHoc role; to skip the validation, call
435: --in older versions of WF, user has to be adHoc user (in wf_local_users)
436: --to be part of adHoc role; to skip the validation, call
437: --CreateUserRole with validateUserRole = FALSE
438: WHEN no_user THEN
439: wf_directory.CreateUserRole( user_name => l_admin_Role,
440: role_name => l_adhoc_role,
441: user_orig_system => 'PER',
442: user_orig_system_id => l_admin_emp_number,
443: role_orig_system => 'WF_LOCAL_ROLES',
1439: ** x_msg_data OUT VARCHAR2 required
1440: ** p_INVITOR IN NUMBER required
1441: ** p_TaskID IN NUMBER required
1442: ** Notes :
1443: ** 1) If an invitee does not exist in the WF directory a notification will
1444: ** be send to the invitor saying that the invitation was not send.
1445: ** 2) Currently invitations are only send to employees
1446: ** 3) The WFs won't be started until a commmit is done.
1447: **
1684: ** p_INVITEE IN NUMBER required
1685: ** p_INVITOR IN NUMBER required
1686: ** p_TaskID IN NUMBER required
1687: ** Notes :
1688: ** 1) If an invitee does not exist in the WF directory a notification will
1689: ** be send to the invitor saying that the invitation was not send.
1690: ** 2) Currently invitations are only send to employees
1691: ** 3) The WFs won't be started until a commmit is done.
1692: **
2139: , l_InvitorEmpNumber
2140: );
2141:
2142: /***************************************************************************
2143: ** If the invitor doesn't exist in the WF directory we can't send a
2144: ** notification to invitor
2145: ***************************************************************************/
2146: IF ((l_InvitorWFRole IS NULL) OR
2147: (l_InvitorWFName IS NULL)
2178: (l_InviteeWFName IS NULL)
2179: )
2180: THEN
2181: /***********************************************************************
2182: ** If the invitee doesn't exist in the WF directory we send a warning
2183: ** notification to the invitor
2184: ***********************************************************************/
2185: resultout := 'COMPLETE:WARNING';
2186: ELSE
2652: ** x_msg_data OUT VARCHAR2 required
2653: ** p_TaskID IN NUMBER required
2654: ** p_RemindDate IN DATE required
2655: ** Notes :
2656: ** 1) If an invitee does not exist in the WF directory a notification will
2657: ** be send to the invitor saying that the invitation was not send.
2658: ** 2) Currently invitations are only send to employees
2659: ** 3) The WFs won't be started until a commmit is done.
2660: **