181:
182: -- add user name to a user list. This user list can not have duplicate.
183: -- so remove any duplicate if necessary.
184:
185: -- add user the adhoc role by calling WF_DIRECTORY.AddUsersToAdHocRole
186: -- you can look at the original code in the procedure for example.
187:
188: -- set the item attribute CI_APPROVER and CI_APPROVER_NAME
189:
238:
239: -- add user name to a user list. This user list can not have duplicate.
240: -- so remove any duplicate if necessary.
241:
242: -- add user the adhoc role by calling WF_DIRECTORY.AddUsersToAdHocRole
243: -- you can look at the original code in the procedure for example.
244:
245: -- set the item attribute CI_NOTIFICATION_PARTY
246:
701: l_role_users := l_role_users || ',';
702: end if;
703:
704: -- Create adhoc users
705: wf_directory.getroleinfo(v_approvers.user_name,display_name,
706: email_address,notification_preference,language,territory);
707: if display_name is null THEN
708:
709:
706: email_address,notification_preference,language,territory);
707: if display_name is null THEN
708:
709:
710: WF_DIRECTORY.CreateAdHocUser( name => v_approvers.user_name
711: , display_name => v_approvers.party_name
712: --, notification_preference => 'MAILTEXT'
713: , EMAIL_ADDRESS =>v_approvers.email_address);
714: END IF;
718: END IF;
719:
720:
721:
722: WF_DIRECTORY.CreateAdHocRole( role_name => l_approval_role
723: , role_display_name => l_proj_mgr_full_name
724: , expiration_date => sysdate+1 -- Set expiration_date for bug#5962401
725: );
726:
726:
727:
728: IF (l_role_users is NOT NULL) THEN
729:
730: WF_DIRECTORY.AddUsersToAdHocRole( l_approval_role
731: , l_role_users);
732:
733:
734:
874: CLOSE get_owner_id;
875:
876: l_role := 'NOTFY_' ||p_item_type || p_item_key;
877:
878: WF_DIRECTORY.CreateAdHocRole( role_name => l_role
879: , role_display_name => l_role
880: , expiration_date => sysdate+1 -- Set expiration_date for bug#5962401
881: );
882:
887: l_role_users := l_role_users || ',';
888: end if;
889:
890: -- Create adhoc users
891: wf_directory.getroleinfo(v_party.user_name,display_name,
892: email_address,notification_preference,language,territory);
893: if display_name is null THEN
894:
895: WF_DIRECTORY.CreateAdHocUser( name => v_party.user_name
891: wf_directory.getroleinfo(v_party.user_name,display_name,
892: email_address,notification_preference,language,territory);
893: if display_name is null THEN
894:
895: WF_DIRECTORY.CreateAdHocUser( name => v_party.user_name
896: , display_name => v_party.party_name
897: --, notification_preference => 'MAILTEXT'
898: , EMAIL_ADDRESS =>v_party.email_address);
899: END IF;
900: l_role_users := l_role_users || v_party.user_name;
901: end loop;
902:
903: IF (l_role_users is NOT NULL) THEN
904: WF_DIRECTORY.AddUsersToAdHocRole( l_role, l_role_users);
905:
906: wf_engine.SetItemAttrText( p_item_type
907: , p_item_key
908: , 'CI_NOTIFICATION_PARTY'