Protected Function OLHLogicCore(paramlist As String, formlist As String) As Boolean
        Dim outval = 0
        Dim returnVal As Integer = 0
        Dim elUser As Integer = 0
        Try
            Dim totalM = GC.GetTotalMemory(True)
            Dim elTokenFactory As TestUserToken.AuthenticationServicePortTypeClient_factory = Nothing

            Dim didWork = Integer.TryParse(Session("userid"), elUser)
            init_process(paramlist) ' store paramlist in a hidden field
            returnVal = ucImportProcess.beginImport(ddlForPeriod.SelectedValue, outval, formlist, elUser)
            totalM = GC.GetTotalMemory(True)
            Dim elStr = ucImportProcess.fetchProjectInformation(paramlist, 2, elTokenFactory)
            If elStr = "" Then 'projects could not be found in primavera
                log(returnVal, elUser, "No Projects found in P6", True)
                Return True
            End If

            Dim elProjCount = 0
            Dim elStr2 = ucImportProcess.pushInformationResults(elStr, elUser, elProjCount)
            log(returnVal, elUser, "Loading " + elProjCount.ToString() + " Projects from Primavera", False)
            Dim elStr3 = ucImportProcess.fetchProjectService(elStr2, elTokenFactory)
            ucImportProcess.pushProjectResults(elStr3, elUser)
            Dim elStr4 = ucImportProcess.fetchActivityCodeService(elTokenFactory)
            ucImportProcess.pushActivityCodeResults(elStr4, elUser)
            totalM = GC.GetTotalMemory(True)

            Dim elProjects() As String = elStr2.Split(New Char() {","c}, StringSplitOptions.RemoveEmptyEntries)
            Dim str6, str7
            Dim count = 0
            Dim isLast = 1
            For Each str As String In elProjects
                totalM = GC.GetTotalMemory(True)
                count = count + 1
                If count = elProjects.Length Then
                    isLast = 2
                Else
                    isLast = 1
                End If
                Dim elStr5 = ucImportProcess.fetchActivityService(elTokenFactory, str)
                Dim elProjNum As Integer = Integer.Parse(str)

                ucImportProcess.pushActivityResults(elProjNum, elStr5, elUser)
                str6 = ucImportProcess.fetchActivityCodeP6Service(elTokenFactory, str)
                ucImportProcess.pushActivityCodeP6Results(elProjNum, str6, elUser)
                str7 = ucImportProcess.fetchResourceAssignmentsService(elTokenFactory, str)
                ucImportProcess.pushResourceAssignmentResults(elProjNum, str7, elUser)
                ucImportProcess.finishSubmission(ddlForPeriod.SelectedValue, isLast, elProjNum, returnVal, elUser)

                totalM = GC.GetTotalMemory(True)
                If count Mod 3 = 0 Then
                    GC.Collect()
                    GC.WaitForPendingFinalizers()
                End If
                totalM = GC.GetTotalMemory(True)
            Next

        Catch ex As Exception
            'Throw New Exception("OLH Logic Failure!")
            If ex.InnerException Is Nothing Then
                log(returnVal, elUser, "Error! " + ex.Message.ToString(), True)
            Else
                log(returnVal, elUser, "Error! " + ex.InnerException.Message.ToString(), True)
            End If
            Return 0
        End Try

        Return 1
    End Function