create or replace procedure copy_apex_session_env
  ( p_session_id apex_workspace_sessions.apex_session_id%type
  , p_app_id apex_applications.application_id%type )
as
  l_session apex_workspace_sessions%rowtype;
  l_app_id apex_applications.application_id%type;
  vc_arr OWA.vc_arr;
begin    
  vc_arr(1) := 'TEST';
  OWA.init_cgi_env(vc_arr);
    
  begin
    select * into l_session
      from apex_workspace_sessions s
     where apex_session_id = p_session_id;
  exception
    when no_data_found then
      raise_application_error(-20001, 'Invalid Session ID!');
  end;

  begin
    select application_id into l_app_id
      from apex_applications
     where application_id = p_app_id
       and workspace_id = l_session.workspace_id;
  exception
    when no_data_found then
      raise_application_error(-20002, 'Invalid Application ID!');
  end;
  
  wwv_flow_api.set_security_group_id(
    wwv_flow_application_install.get_workspace_id()
  );
  
  apex_custom_auth.login(
      p_uname => 'nobody',
      p_password => '',
      p_session_id => l_session.apex_session_id,
      p_app_page => l_app_id,
      p_entry_point => null,
      p_preserve_case => null
  );
      
  apex_custom_auth.set_session_id(p_session_id => l_session.apex_session_id);
  apex_custom_auth.set_user(l_session.user_name);
  apex_application.g_flow_id := l_app_id;
end;

begin
  copy_apex_session_env(5963517419926852, 810);
  apex_util.set_session_state('P35_TEST', 'vvv');
end;

/

select v('P35_TEST') from dual t