declare
  l_user_name apex_workspace_apex_users.user_name%type;
  l_user_id apex_030200.wwv_flow_users.user_id%type;
  l_security_group_id apex_030200.wwv_flow_users.security_group_id%type;
begin
  apex_030200.wwv_flow.g_user := :p_workspace_admin_name;

  select user_id, security_group_id
    into apex_030200.wwv_flow.g_user_id, l_security_group_id
    from wwv_flow_users
   where user_name = :p_workspace_admin_name;
   
  apex_030200.wwv_flow_api.set_security_group_id(p_security_group_id=>l_security_group_id);
   
  apex_util.set_email(APEX_UTIL.GET_USER_ID(:p_changed_user), 'new mail');
end;
/