private void backgroundWorker1_DoWork(object sender, DoWorkEventArgs e)
{
PatientCohort.StartTime = dateTimePicker1.Value;
PatientCohort.EndTime = dateTimePicker2.Value;
PatientCohort.BackgroundListLoad();
backgroundWorker1.ReportProgress(10);
/////////////////////////////////////////////////////////////
// Patients
/////////////////////////////////////////////////////////////
//SeriesCollection PatientsChartCollection = new SeriesCollection();
Series PatientSeries = new Series("Patient Visits By Type");
string patients_html = dt.GetTableDiv("Patients");
string metric = "";
//////////////////////////////
ListViewItem lvi = GetListViewAndUpdateHtml("Number of Scheduled Visits",
PatientCohort.ToArray(),
ref patients_html);
// Image chartImage = chart1.GetChartBitmap();
// ListViewItem lvi = GetListViewAndUpdateHtml("Number of Scheduled Visits",
// PatientCohort.ToArray(),
// ref patients_html, chartImage, 14);
backgroundWorker1.ReportProgress(11, lvi);
HraObject[] totalAssessments =
PatientCohort.Where(p => ((PatientCohortMember)p).RiskAssessment == 1).ToArray();
if (totalAssessments != null)
{
PatientSeries.Name += (" (n=" + totalAssessments.Length.ToString() + ")");
}
lvi = GetListViewAndUpdateHtml("Risk Assessments",
totalAssessments,
ref patients_html);
backgroundWorker1.ReportProgress(11, lvi);
//////////////////////////////
lvi = new ListViewItem("Unique Patients");
lvi.Tag = null;
metric =
PatientCohort.Where(p => ((PatientCohortMember)p).RiskAssessment == 1)
.Select(p => ((PatientCohortMember)p).unitnum)
.Distinct()
.Count()
.ToString();
lvi.SubItems.Add(metric);
patients_html = dt.InsertTwoColumnLeftRightTableRow(patients_html, "Unique Patients", metric);
backgroundWorker1.ReportProgress(11, lvi);
//////////////////////////////
lvi = GetListViewAndUpdateHtml("New Patient Visits",
PatientCohort.Where(
p =>
((PatientCohortMember)p).Followup == 0 &&
((PatientCohortMember)p).RiskAssessment == 1).ToArray(),
ref patients_html);
backgroundWorker1.ReportProgress(11, lvi);
//////////////////////////////
lvi = GetListViewAndUpdateHtml("Followup Visits",
PatientCohort.Where(
p =>
((PatientCohortMember)p).Followup == 1 &&
((PatientCohortMember)p).RiskAssessment == 1).ToArray(),
ref patients_html);
backgroundWorker1.ReportProgress(11, lvi);
//////////////////////////////
lvi = GetListViewAndUpdateHtml("Cancer Patient Visits",
PatientCohort.Where(
p =>
((PatientCohortMember)p).CancerPatient == 1 &&
((PatientCohortMember)p).RiskAssessment == 1).ToArray(),
ref patients_html);
backgroundWorker1.ReportProgress(11, lvi);
//////////////////////////////
lvi = GetListViewAndUpdateHtml("Non Cancer Patient Visits",
PatientCohort.Where(
p =>
((PatientCohortMember)p).CancerPatient == 0 &&
((PatientCohortMember)p).RiskAssessment == 1).ToArray(),
ref patients_html);
backgroundWorker1.ReportProgress(11, lvi);
//////////////////////////////
lvi = GetListViewAndUpdateHtml("Cancer Patient New Visits",
PatientCohort.Where(
p =>
((PatientCohortMember)p).CancerPatient == 1 &&
((PatientCohortMember)p).RiskAssessment == 1 &&
((PatientCohortMember)p).Followup == 0).ToArray(),
ref patients_html);
AddToSeries(ref PatientSeries, lvi);
backgroundWorker1.ReportProgress(11, lvi);
//////////////////////////////
lvi = GetListViewAndUpdateHtml("Cancer Patient Followup Visits",
PatientCohort.Where(
p =>
((PatientCohortMember)p).CancerPatient == 1 &&
((PatientCohortMember)p).RiskAssessment == 1 &&
((PatientCohortMember)p).Followup == 1).ToArray(),
ref patients_html);
AddToSeries(ref PatientSeries, lvi);
backgroundWorker1.ReportProgress(11, lvi);
//////////////////////////////
lvi = GetListViewAndUpdateHtml("Non Cancer Patient New Visits",
PatientCohort.Where(
p =>
((PatientCohortMember)p).CancerPatient == 0 &&
((PatientCohortMember)p).RiskAssessment == 1 &&
((PatientCohortMember)p).Followup == 0).ToArray(),
ref patients_html);
AddToSeries(ref PatientSeries, lvi);
backgroundWorker1.ReportProgress(11, lvi);
//////////////////////////////
lvi = GetListViewAndUpdateHtml("Non Cancer Followup Patient Visits",
PatientCohort.Where(
p =>
((PatientCohortMember)p).CancerPatient == 0 &&
((PatientCohortMember)p).RiskAssessment == 1 &&
((PatientCohortMember)p).Followup == 1).ToArray(),
ref patients_html);
AddToSeries(ref PatientSeries, lvi);
backgroundWorker1.ReportProgress(11, lvi);
//////////////////////////////
lvi = GetListViewAndUpdateHtml("Visits by Relatives of Other Patients",
PatientCohort.Where(
p =>
((PatientCohortMember)p).RelatedAppts == 1 &&
((PatientCohortMember)p).RiskAssessment == 1).ToArray(),
ref patients_html);
backgroundWorker1.ReportProgress(11, lvi);
backgroundWorker1.ReportProgress(12, PatientSeries);
AddImageAsThirdColumn(ref patients_html, chart1.GetChartBitmap());
/////////////////////////////////////////////////////////////
// Tests
/////////////////////////////////////////////////////////////
TestingCohort.StartTime = dateTimePicker1.Value;
TestingCohort.EndTime = dateTimePicker2.Value;
TestingCohort.BackgroundListLoad();
backgroundWorker1.ReportProgress(20);
string tests_html = dt.GetTableDiv("Tests");
metric = "";
lvi = GetListViewAndUpdateHtml("Total Number of Tests Ordered",
TestingCohort.ToArray(),
ref tests_html);
backgroundWorker1.ReportProgress(21, lvi);
lvi = GetListViewAndUpdateHtml("Total Number of Tests Pending",
TestingCohort.Where(p => ((TestingCohorttMember)p).IsCompleted == 0)
.ToArray(),
ref tests_html);
backgroundWorker1.ReportProgress(21, lvi);
lvi = GetListViewAndUpdateHtml("Total Number of Tests Completed",
TestingCohort.Where(p => ((TestingCohorttMember)p).IsCompleted == 1)
.ToArray(),
ref tests_html);
backgroundWorker1.ReportProgress(21, lvi);
lvi = new ListViewItem("Unique Patients");
lvi.Tag = null;
metric =
TestingCohort.Where(p => ((TestingCohorttMember)p).IsCompleted == 1)
.Select(p => ((TestingCohorttMember)p).unitnum)
.Distinct()
.Count()
.ToString();
lvi.SubItems.Add(metric);
tests_html = dt.InsertTwoColumnLeftRightTableRow(tests_html, "Unique Patients", metric);
backgroundWorker1.ReportProgress(21, lvi);
lvi = GetListViewAndUpdateHtml("Completed BRCA Tests",
TestingCohort.Where(
p =>
((TestingCohorttMember)p).IsCompleted == 1 &&
((TestingCohorttMember)p).IsBrcaPanel == 1).ToArray(),
ref tests_html);
backgroundWorker1.ReportProgress(21, lvi);
lvi = GetListViewAndUpdateHtml("Completed Lynch Tests",
TestingCohort.Where(
p =>
((TestingCohorttMember)p).IsCompleted == 1 &&
((TestingCohorttMember)p).IsLynchPanel == 1).ToArray(),
ref tests_html);
backgroundWorker1.ReportProgress(21, lvi);
lvi = GetListViewAndUpdateHtml("Completed Other Tests",
TestingCohort.Where(
p =>
((TestingCohorttMember)p).IsCompleted == 1 &&
((TestingCohorttMember)p).IsLynchPanel == 0 &&
((TestingCohorttMember)p).IsBrcaPanel == 0).ToArray(),
ref tests_html);
backgroundWorker1.ReportProgress(21, lvi);
lvi = GetListViewAndUpdateHtml("Positive BRCA Tests",
TestingCohort.Where(
p =>
((TestingCohorttMember)p).IsCompleted == 1 &&
((TestingCohorttMember)p).IsBrcaPanel == 1 &&
((TestingCohorttMember)p).VariantFound == 1).ToArray(),
ref tests_html);
backgroundWorker1.ReportProgress(21, lvi);
lvi = GetListViewAndUpdateHtml("Positive Lynch Tests",
TestingCohort.Where(
p =>
((TestingCohorttMember)p).IsCompleted == 1 &&
((TestingCohorttMember)p).IsLynchPanel == 1 &&
((TestingCohorttMember)p).VariantFound == 1).ToArray(),
ref tests_html);
backgroundWorker1.ReportProgress(21, lvi);
lvi = GetListViewAndUpdateHtml("Positive Other Tests",
TestingCohort.Where(
p =>
((TestingCohorttMember)p).IsCompleted == 1 &&
((TestingCohorttMember)p).IsLynchPanel == 0 &&
((TestingCohorttMember)p).IsBrcaPanel == 0 &&
((TestingCohorttMember)p).VariantFound == 1).ToArray(),
ref tests_html);
backgroundWorker1.ReportProgress(21, lvi);
/////////////////////////////////////////////////////////////
// Ethnicity
/////////////////////////////////////////////////////////////
Series EthnicitySeries = new Series("Ethnicity");
string ethnicity_html = dt.GetTableDiv("Ethnicity");
EthnicityCohort.StartTime = dateTimePicker1.Value;
EthnicityCohort.EndTime = dateTimePicker2.Value;
EthnicityCohort.BackgroundListLoad();
backgroundWorker1.ReportProgress(60);
//////////////////////////////
lvi = GetListViewAndUpdateHtml("Total number of Ethnicity Reports",
EthnicityCohort.ToArray(),
ref ethnicity_html);
backgroundWorker1.ReportProgress(61, lvi);
//////////////////////////////
lvi = new ListViewItem("Unique Patients");
lvi.Tag = null;
metric = EthnicityCohort.Select(p => ((EthnicityCohortMember)p).unitnum).Distinct().Count().ToString();
lvi.SubItems.Add(metric);
ethnicity_html = dt.InsertTwoColumnLeftRightTableRow(ethnicity_html, "Unique Patients", metric);
backgroundWorker1.ReportProgress(61, lvi);
//////////////////////////////
foreach (string o in EthnicityCohort.Select(p => ((EthnicityCohortMember)p).racialBackground).Distinct())
{
if (string.IsNullOrEmpty(o))
{
lvi = GetListViewAndUpdateHtml("People Identifying as no ethnicity",
EthnicityCohort.Where(
p => ((EthnicityCohortMember)p).racialBackground == "")
.ToArray(),
ref ethnicity_html);
AddToSeries(ref EthnicitySeries, lvi);
backgroundWorker1.ReportProgress(61, lvi);
}
else
{
lvi = GetListViewAndUpdateHtml("People Identifying as " + o,
EthnicityCohort.Where(
p => ((EthnicityCohortMember)p).racialBackground == o).ToArray(),
ref ethnicity_html);
AddToSeries(ref EthnicitySeries, lvi);
backgroundWorker1.ReportProgress(61, lvi);
}
}
//////////////////////////////
backgroundWorker1.ReportProgress(62, EthnicitySeries);
AddImageAsThirdColumn(ref ethnicity_html, chart2.GetChartBitmap());
/////////////////////////////////////////////////////////////
// ReferringProviders
/////////////////////////////////////////////////////////////
ReferringProviders.StartTime = dateTimePicker1.Value;
ReferringProviders.EndTime = dateTimePicker2.Value;
ReferringProviders.BackgroundListLoad();
backgroundWorker1.ReportProgress(30);
/////////////////////////////////////////////////////////////
// emailReport
/////////////////////////////////////////////////////////////
emailReport.StartTime = dateTimePicker1.Value;
emailReport.EndTime = dateTimePicker2.Value;
emailReport.BackgroundListLoad();
backgroundWorker1.ReportProgress(40);
/////////////////////////////////////////////////////////////
// optInOrOutReport
/////////////////////////////////////////////////////////////
optInOrOutReport.StartTime = dateTimePicker1.Value;
optInOrOutReport.EndTime = dateTimePicker2.Value;
optInOrOutReport.BackgroundListLoad();
backgroundWorker1.ReportProgress(50);
/////////////////////////////////////////////////////////////
// Document
/////////////////////////////////////////////////////////////
dt.documentTemplateID = 500;
dt.BackgroundLoadWork();
dt.OpenHTML();
dt.UseDocArgs = false;
dt.ProcessDocument();
dt.AddDiv(patients_html);
dt.AddDiv(tests_html);
dt.AddDiv(ethnicity_html);
}
