.NET 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