834: --
835: -- Home URL for old PHP looks like:
836: -- http://ap804sun.us.oracle.com:778/OA_JAVA_SERV/oracle.apps.icx.myPage.MainMenu?dbHost=ap115sun_dev115
837: --
838: -- Modified from ICX_PLUG_UTILITIES.gotoMainMenu
839:
840: ----------------------------------------------------------------------------
841: -- Procedure: Get_Home_URL --
842: -- --
865: --IF (ICX_SEC.ValidateSession) THEN
866: l_ReleaseVersion := SUBSTR (ICX_SEC.g_mode_code, 1, 3);
867: --END IF;
868:
869: l_app_server := FND_WEB_CONFIG.TRAIL_SLASH(icx_plug_utilities.getReportURL);
870: l_agent := FND_WEB_CONFIG.TRAIL_SLASH(icx_plug_utilities.getPLSQLagent);
871: l_home_page := BIS_REPORT_UTIL_PVT.Get_Home_page;
872: l_server_directory := BIS_REPORT_UTIL_PVT.Get_Server_Directory;
873:
866: l_ReleaseVersion := SUBSTR (ICX_SEC.g_mode_code, 1, 3);
867: --END IF;
868:
869: l_app_server := FND_WEB_CONFIG.TRAIL_SLASH(icx_plug_utilities.getReportURL);
870: l_agent := FND_WEB_CONFIG.TRAIL_SLASH(icx_plug_utilities.getPLSQLagent);
871: l_home_page := BIS_REPORT_UTIL_PVT.Get_Home_page;
872: l_server_directory := BIS_REPORT_UTIL_PVT.Get_Server_Directory;
873:
874: IF (l_releaseVersion = '115') THEN