.NET (Core and Framework)

Using _databasefactory As New DatabaseFactory()
    Dim context = _databasefactory.DatabaseContext

    If Not String.IsNullOrEmpty(temp_doc_id) And Not String.IsNullOrEmpty(doc_id) Then
        Dim reqs = (From r In context.requests Where r.claim.claim_no.Equals(claim_no) And r.temp_doc_id.Equals(temp_doc_id)) 'r.empl_accnt_no.Equals(emplacctnumber) and _

        Dim i = reqs.Count()
        If Constants.EnableLogger And logr IsNot Nothing And Constants.DirectoryExists(Constants.GetLoggerDirectory()) Then
            logr.log(1, "Begin RequestEntity : UpdateOrInsertRequestDocId, claim_no, temp_doc_id, i: " + claim_no + ", " + temp_doc_id + ", " + i.ToString())
        End If

        If Constants.EnableLogger And logr IsNot Nothing And Constants.DirectoryExists(Constants.GetLoggerDirectory()) Then
            logr.log(1, "Inserting RequestEntity : UpdateOrInsertRequestDocId emplacctnumber, ManualClaimNo, doc_id, temp_doc_id, request_status, requestreceivedhow: " + _
                     emplacctnumber + ", " + ManualClaimNo.ToString + ", " + doc_id + ", " + temp_doc_id + ", " + request_status + ", " + requestreceivedhow)
        End If

        Dim res = 0
        If reqs Is Nothing Then
            Dim rq = New request()
            rq.claim = (From r In context.claims Where r.claim_no.Equals(claim_no)).FirstOrDefault()
            rq.empl_accnt_no = emplacctnumber
            rq.manual_claim_no = ManualClaimNo
            rq.doc_id = doc_id
            rq.temp_doc_id = temp_doc_id
            rq.request_status = request_status '"OANEW"
            rq.request_received_how = requestreceivedhow
            rq.last_update_ts = DateTime.Now
            rq.created_ts = DateTime.Now
            rq.created_by = created_by
            rq.last_updated_by = lastupdated_by
            rq.comments = String.Empty
            context.AddTorequests(rq)

            If Constants.EnableLogger And logr IsNot Nothing And Constants.DirectoryExists(Constants.GetLoggerDirectory()) Then
                logr.log(1, "Inserting RequestEntity : UpdateOrInsertRequestDocId emplacctnumber, ManualClaimNo, doc_id, temp_doc_id, request_status, requestreceivedhow: " + _
                         emplacctnumber + ", " + ManualClaimNo.ToString + ", " + doc_id + ", " + temp_doc_id + ", " + request_status + ", " + requestreceivedhow)
            End If

            Return context.SaveChanges()
        ElseIf reqs.Count() <= 0 Then
            Dim rq = New request()
            rq.claim = (From r In context.claims Where r.claim_no.Equals(claim_no)).FirstOrDefault()
            rq.empl_accnt_no = emplacctnumber
            rq.manual_claim_no = ManualClaimNo
            rq.doc_id = doc_id
            rq.temp_doc_id = temp_doc_id
            rq.request_status = request_status '"OANEW"
            rq.request_received_how = requestreceivedhow
            rq.last_update_ts = DateTime.Now
            rq.created_ts = DateTime.Now
            rq.created_by = created_by
            rq.last_updated_by = lastupdated_by
            rq.comments = String.Empty

            If Constants.EnableLogger And logr IsNot Nothing And Constants.DirectoryExists(Constants.GetLoggerDirectory()) Then
                logr.log(1, "Inserting RequestEntity : UpdateOrInsertRequestDocId, emplacctnumber, ManualClaimNo, doc_id, temp_doc_id, request_status, requestreceivedhow: " + _
                         emplacctnumber + ", " + ManualClaimNo.ToString + ", " + doc_id + ", " + temp_doc_id + ", " + request_status + ", " + requestreceivedhow)
            End If

            context.AddTorequests(rq)
            Return context.SaveChanges()
        Else
            Dim rq = reqs.FirstOrDefault()
            rq.doc_id = doc_id
            res = context.SaveChanges()
            Return res
        End If
    End If
End Using