Linq Madness

Dim query = From cm In db.case_masters _
Where cm.start_date > Now.AddMonths(-36) _
And cm.case_type_code = 1 _
Group Join cr In db.case_relationships On cr.case_code Equals cm.case_code And cr.client_code Equals cm.client_code _
Into bpGroup = Group _
From bp In bpGroup.DefaultIfEmpty() _
Group Join cr In db.case_relationships On cr.case_code Equals cm.case_code And cr.client_code Equals cm.client_code _
Into cmGroup = Group _
From cp In cmGroup.DefaultIfEmpty() _
Join co In db.case_offices On cm.case_code Equals co.case_code And cm.client_code Equals co.client_code _
Where bp.relationship_id = "BV" _
And cp.relationship_id = "CM" _
And co.office_type = 1 _
And cm.case_type_code = 1 _
And cm.client_code = basis_client_code _
Select cm.case_name, billing_region = db.fnOfficeHierarchy_GetEntityNameByApp(office_code, "RG", "DEF"), _
billing_partner = bp.employee.first_name + ", " + bp.employee.last_name, _
billing_partner_home_office = bp.employee.employee_offices.Where(Function(d) d.office_type = 4).First.office.office_name, _
case_manager = cp.employee.first_name + ", " + cp.employee.last_name, _
industry = cm.gxc_case_terms.Where(Function(d) d.relationship_strength = 0.8 And d.gxc_term.term_type_code = 6).First.gxc_term.term, _
industry_practice_area = cm.gxc_case_terms.Where(Function(d) d.relationship_strength = 0.8).First.gxc_term.industry_hierarchies.First.practice_area, _
capability = cm.gxc_case_terms.Where(Function(d) d.relationship_strength = 0.8 And d.gxc_term.term_type_code = 4).First.gxc_term.term, _
capability_practice_area = cm.gxc_case_terms.Where(Function(d) d.relationship_strength = 0.8).First.gxc_term.capability_hierarchies.First.practice_area, _
peg_client = IIf(cm.class_code = "S", True, False), _
portfolio_client = IIf(cm.case_private_equity_portfolios.Count = 0, False, True)