[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: **
2140: , l_InvitorEmpNumber
2141: );
2142:
2143: /***************************************************************************
2144: ** If the invitor doesn't exist in the WF directory we can't send a
2145: ** notification to invitor
2146: ***************************************************************************/
2147: IF ((l_InvitorWFRole IS NULL) OR
2148: (l_InvitorWFName IS NULL)
2179: (l_InviteeWFName IS NULL)
2180: )
2181: THEN
2182: /***********************************************************************
2183: ** If the invitee doesn't exist in the WF directory we send a warning
2184: ** notification to the invitor
2185: ***********************************************************************/
2186: resultout := 'COMPLETE:WARNING';
2187: ELSE
2655: ** x_msg_data OUT VARCHAR2 required
2656: ** p_TaskID IN NUMBER required
2657: ** p_RemindDate IN DATE required
2658: ** Notes :
2659: ** 1) If an invitee does not exist in the WF directory a notification will
2660: ** be send to the invitor saying that the invitation was not send.
2661: ** 2) Currently invitations are only send to employees
2662: ** 3) The WFs won't be started until a commmit is done.
2663: **
2852: ** x_msg_data OUT VARCHAR2 required
2853: ** p_TaskID IN NUMBER required
2854: ** p_RemindDate IN DATE required
2855: ** Notes :
2856: ** 1) If an invitee does not exist in the WF directory a notification will
2857: ** be send to the invitor saying that the invitation was not send.
2858: ** 2) Currently invitations are only send to employees
2859: ** 3) The WFs won't be started until a commmit is done.
2860: **
3311: ** p_RemindDate IN DATE required
3312: ** p_INVITEE IN NUMBER required
3313: ** p_INVITEE_TYPE IN VARCHAR2 required
3314: ** Notes :
3315: ** 1) If an invitee does not exist in the WF directory a notification will
3316: ** be send to the invitor saying that the invitation was not send.
3317: ** 2) Currently invitations are only send to employees
3318: ** 3) The WFs won't be started until a commmit is done.
3319: **