PROCEDURE DO_ENTER_APP (
P_APP_ID       IN NUMBER,
P_PAGE_ID      IN NUMBER,
P_CALLING_USER IN VARCHAR2 )
IS
L_APP_WORKSPACE_ID NUMBER;
BEGIN



L_APP_WORKSPACE_ID := WWV_FLOW_SECURITY.GET_FLOW_SECURITY_GROUP_ID (
P_FLOW_ID => P_APP_ID );

IF L_APP_WORKSPACE_ID IS NULL THEN
WWV_FLOW_ERROR.RAISE_INTERNAL_ERROR (
P_ERROR_CODE => 'WWV_FLOW.APP_NOT_FOUND_ERR' );
END IF;



IF WWV_FLOW_SECURITY.G_SECURITY_GROUP_ID IS NULL
OR WWV_FLOW_SECURITY.G_SECURITY_GROUP_ID <> L_APP_WORKSPACE_ID
THEN
WWV_FLOW_SECURITY.SET_G_SECURITY_GROUP_ID (
P_SECURITY_GROUP_ID => L_APP_WORKSPACE_ID,
P_CALLING_USER      => P_CALLING_USER,
P_RAISE_ERROR       => TRUE );
END IF;



WWV_FLOW_SECURITY.START_PAGE_REQUEST (
P_APP_ID                     => P_APP_ID,
P_SECURITY_GROUP_ID          => L_APP_WORKSPACE_ID,
P_TRACE                      => NULL,
P_DEBUG                      => NULL,
P_ALERT_IF_DEBUG_NOT_ALLOWED => FALSE );



WWV_FLOW_META_DATA.G_FLOWCNT := WWV_FLOW_META_DATA.FETCH_FLOW_INFO;



WWV_FLOW.G_FLOW_STEP_ID := P_PAGE_ID;
WWV_FLOW_META_DATA.FETCH_STEP_INFO;
END DO_ENTER_APP;

PROCEDURE CREATE_SESSION (
P_APP_ID       IN NUMBER,
P_PAGE_ID      IN NUMBER,
P_USERNAME     IN VARCHAR2,
P_CALLING_USER IN VARCHAR2 )
IS
L_APP_WORKSPACE_ID NUMBER;
BEGIN
WWV_FLOW_DEBUG.ENTER (
'create_session' ,
'p_app_id'       , P_APP_ID          ,
'p_page_id'      , P_PAGE_ID         ,
'p_username'     , P_USERNAME        ,
'p_calling_user' , P_CALLING_USER );

DO_ENTER_APP (
P_APP_ID       => P_APP_ID,
P_PAGE_ID      => P_PAGE_ID,
P_CALLING_USER => P_CALLING_USER );



WWV_FLOW_CUSTOM_AUTH.SET_USER (
P_USER => P_USERNAME );
CREATE_NEW;
WWV_FLOW_SESSION_STATE.RESET;



WWV_FLOW_SECURITY.DB_SESSION_INIT;
END CREATE_SESSION;