///<summary>raised for each page to be printed. One page per appointment.</summary>
private void pd_PrintPage(object sender, PrintPageEventArgs ev)
{
if (ApptNum != 0) //just for one appointment
{
date = Appointments.DateSelected;
}
Graphics g = ev.Graphics;
float y = 50;
float x = 0;
string str;
float sizeW; //used when measuring text for placement
Font fontTitle = new Font(FontFamily.GenericSansSerif, 11, FontStyle.Bold);
Font fontHeading = new Font(FontFamily.GenericSansSerif, 9, FontStyle.Bold);
Font font = new Font(FontFamily.GenericSansSerif, 8);
SolidBrush brush = new SolidBrush(Color.Black);
//Title----------------------------------------------------------------------------------------------------------
str = Lan.g(this, "Routing Slip");
sizeW = g.MeasureString(str, fontTitle).Width;
x = 425 - sizeW / 2;
g.DrawString(str, fontTitle, brush, x, y);
y += 35;
x = 75;
//Today's appointment, including procedures-----------------------------------------------------------------------
Family fam = Patients.GetFamily(Appts[pagesPrinted].PatNum);
Patient pat = fam.GetPatient(Appts[pagesPrinted].PatNum);
str = pat.GetNameFL();
g.DrawString(str, fontHeading, brush, x, y);
y += 18;
str = Appts[pagesPrinted].AptDateTime.ToShortTimeString() + " " + Appts[pagesPrinted].AptDateTime.ToShortDateString();
g.DrawString(str, fontHeading, brush, x, y);
y += 18;
str = (Appts[pagesPrinted].Pattern.Length * 5).ToString() + " " + Lan.g(this, "minutes");
g.DrawString(str, font, brush, x, y);
y += 15;
str = Providers.GetAbbr(Appts[pagesPrinted].ProvNum);
g.DrawString(str, font, brush, x, y);
y += 15;
if (Appts[pagesPrinted].ProvHyg != 0)
{
str = Providers.GetAbbr(Appts[pagesPrinted].ProvHyg);
g.DrawString(str, font, brush, x, y);
y += 15;
}
str = Lan.g(this, "Procedures:");
g.DrawString(str, font, brush, x, y);
y += 15;
Procedure[] procsAll = Procedures.Refresh(pat.PatNum);
Procedure[] procsApt = Procedures.GetProcsOneApt(Appts[pagesPrinted].AptNum, procsAll);
for (int i = 0; i < procsApt.Length; i++)
{
str = " " + Procedures.GetDescription(procsApt[i]);
g.DrawString(str, font, brush, x, y);
y += 15;
}
str = Lan.g(this, "Note:") + " " + Appts[pagesPrinted].Note;
g.DrawString(str, font, brush, x, y);
y += 25;
//Patient/Family Info---------------------------------------------------------------------------------------------
g.DrawLine(Pens.Black, 75, y, 775, y);
str = Lan.g(this, "Patient Info");
g.DrawString(str, fontHeading, brush, x, y);
y += 18;
str = Lan.g(this, "PatNum:") + " " + pat.PatNum.ToString();
g.DrawString(str, font, brush, x, y);
y += 15;
str = Lan.g(this, "Age:") + " ";
if (pat.Age > 0)
{
str += pat.Age.ToString();
}
g.DrawString(str, font, brush, x, y);
y += 15;
str = Lan.g(this, "Date of First Visit:") + " ";
if (pat.DateFirstVisit.Year < 1880)
{
str += "?";
}
else if (pat.DateFirstVisit == Appts[pagesPrinted].AptDateTime.Date)
{
str += Lan.g(this, "New Patient");
}
else
{
str += pat.DateFirstVisit.ToShortDateString();
}
g.DrawString(str, font, brush, x, y);
y += 15;
str = Lan.g(this, "Billing Type:") + " " + DefB.GetName(DefCat.BillingTypes, pat.BillingType);
g.DrawString(str, font, brush, x, y);
y += 15;
Recall[] recallList = Recalls.GetList(new int[] { pat.PatNum });
str = Lan.g(this, "Recall Due Date:") + " ";
if (recallList.Length > 0)
{
str += recallList[0].DateDue.ToShortDateString();
}
g.DrawString(str, font, brush, x, y);
y += 15;
str = Lan.g(this, "Medical notes:") + " " + pat.MedUrgNote;
g.DrawString(str, font, brush, x, y);
y += 25;
//Other Family Members
str = Lan.g(this, "Other Family Members");
g.DrawString(str, fontHeading, brush, x, y);
y += 18;
for (int i = 0; i < fam.List.Length; i++)
{
if (fam.List[i].PatNum == pat.PatNum)
{
continue;
}
str = fam.List[i].GetNameFL();
if (fam.List[i].Age > 0)
{
str += ", " + fam.List[i].Age.ToString();
}
g.DrawString(str, font, brush, x, y);
y += 15;
}
y += 10;
//Insurance Info--------------------------------------------------------------------------------------------------
g.DrawLine(Pens.Black, 75, y, 775, y);
str = Lan.g(this, "Insurance");
g.DrawString(str, fontHeading, brush, x, y);
y += 18;
PatPlan[] patPlanList = PatPlans.Refresh(pat.PatNum);
InsPlan[] plans = InsPlans.Refresh(fam);
ClaimProc[] claimProcList = ClaimProcs.Refresh(pat.PatNum);
Benefit[] benefits = Benefits.Refresh(patPlanList);
InsPlan plan;
Carrier carrier;
string subscriber;
double max;
double deduct;
if (patPlanList.Length == 0)
{
str = Lan.g(this, "none");
g.DrawString(str, font, brush, x, y);
y += 15;
}
for (int i = 0; i < patPlanList.Length; i++)
{
plan = InsPlans.GetPlan(patPlanList[i].PlanNum, plans);
carrier = Carriers.GetCarrier(plan.CarrierNum);
str = carrier.CarrierName;
g.DrawString(str, fontHeading, brush, x, y);
y += 18;
subscriber = fam.GetNameInFamFL(plan.Subscriber);
if (subscriber == "") //subscriber from another family
{
subscriber = Patients.GetLim(plan.Subscriber).GetNameLF();
}
str = Lan.g(this, "Subscriber:") + " " + subscriber;
g.DrawString(str, font, brush, x, y);
y += 15;
str = Lan.g(this, "Annual Max:") + " ";
max = Benefits.GetAnnualMax(benefits, plan.PlanNum, patPlanList[i].PatPlanNum);
if (max != -1)
{
str += max.ToString("n0") + " ";
}
str += " ";
str += Lan.g(this, "Deductible:") + " ";
deduct = Benefits.GetDeductible(benefits, plan.PlanNum, patPlanList[i].PatPlanNum);
if (deduct != -1)
{
str += deduct.ToString("n0");
}
g.DrawString(str, font, brush, x, y);
y += 15;
str = "";
for (int j = 0; j < benefits.Length; j++)
{
if (benefits[j].PlanNum != plan.PlanNum)
{
continue;
}
if (benefits[j].BenefitType != InsBenefitType.Percentage)
{
continue;
}
if (str != "")
{
str += ", ";
}
str += CovCats.GetDesc(benefits[j].CovCatNum) + " " + benefits[j].Percent.ToString() + "%";
}
if (str != "")
{
g.DrawString(str, font, brush, x, y);
y += 15;
}
str = Lan.g(this, "Ins Used:") + " "
+ InsPlans.GetInsUsed(claimProcList, date, plan.PlanNum, patPlanList[i].PatPlanNum, -1, plans, benefits).ToString("n");
g.DrawString(str, font, brush, x, y);
y += 15;
str = Lan.g(this, "Ins Pending:") + " "
+ InsPlans.GetPending(claimProcList, date, plan.PlanNum, patPlanList[i].PatPlanNum, -1, plans, benefits).ToString("n");
g.DrawString(str, font, brush, x, y);
y += 15;
}
y += 10;
//Account Info---------------------------------------------------------------------------------------------------
g.DrawLine(Pens.Black, 75, y, 775, y);
str = Lan.g(this, "Account Info");
g.DrawString(str, fontHeading, brush, x, y);
y += 18;
str = Lan.g(this, "Guarantor:") + " " + fam.List[0].GetNameFL();
g.DrawString(str, font, brush, x, y);
y += 15;
str = Lan.g(this, "Balance:") + (fam.List[0].BalTotal - fam.List[0].InsEst).ToString("c");
if (fam.List[0].InsEst > .01)
{
str += " (" + fam.List[0].BalTotal.ToString("c") + " - "
+ fam.List[0].InsEst.ToString("c") + " " + Lan.g(this, "InsEst") + ")";
}
g.DrawString(str, font, brush, x, y);
y += 15;
str = Lan.g(this, "Aging:")
+ " 0-30:" + fam.List[0].Bal_0_30.ToString("c")
+ " 31-60:" + fam.List[0].Bal_31_60.ToString("c")
+ " 61-90:" + fam.List[0].Bal_61_90.ToString("c")
+ " 90+:" + fam.List[0].BalOver90.ToString("c");
g.DrawString(str, font, brush, x, y);
y += 15;
str = Lan.g(this, "Fam Urgent Fin Note:")
+ fam.List[0].FamFinUrgNote;
g.DrawString(str, font, brush, x, y);
y += 15;
y += 10;
//Treatment Plan--------------------------------------------------------------------------------------------------
g.DrawLine(Pens.Black, 75, y, 775, y);
str = Lan.g(this, "Treatment Plan");
g.DrawString(str, fontHeading, brush, x, y);
y += 18;
for (int i = 0; i < procsAll.Length; i++)
{
if (procsAll[i].ProcStatus != ProcStat.TP)
{
continue;
}
str = Procedures.GetDescription(procsAll[i]);
g.DrawString(str, font, brush, x, y);
y += 15;
}
pagesPrinted++;
if (pagesPrinted == Appts.Length)
{
ev.HasMorePages = false;
pagesPrinted = 0;
}
else
{
ev.HasMorePages = true;
}
}
private void butMerge_Click(object sender, EventArgs e)
{
long patTo = Convert.ToInt64(this.textPatientIDInto.Text.Trim());
long patFrom = Convert.ToInt64(this.textPatientIDFrom.Text.Trim());
if (patTo == patFrom)
{
MsgBox.Show(this, "Cannot merge a patient account into itself. Please select a different patient to merge from.");
return;
}
Patient patientFrom = Patients.GetPat(patFrom);
Patient patientTo = Patients.GetPat(patTo);
if (patientFrom.FName.Trim().ToLower() != patientTo.FName.Trim().ToLower() ||
patientFrom.LName.Trim().ToLower() != patientTo.LName.Trim().ToLower() ||
patientFrom.Birthdate != patientTo.Birthdate)
{ //mismatch
if (Programs.UsingEcwTightOrFullMode())
{
if (!MsgBox.Show(this, MsgBoxButtons.YesNo, @"The two selected patients do not have the same first name, last name, and date of birth. The patients must first be merged from within eCW, then immediately merged in the same order in Open Dental. If the patients are not merged in this manner, some information may not properly bridge between eCW and Open Dental.
Into patient name: " + patientTo.FName + " " + patientTo.LName + ", Into patient birthdate: " + patientTo.Birthdate.ToShortDateString() + @".
From patient name: " + patientFrom.FName + " " + patientFrom.LName + ", From paient birthdate: " + patientFrom.Birthdate.ToShortDateString() + @".
Merge the patient at the bottom into the patient shown at the top?"))
{
return; //The user chose not to merge
}
}
else //not eCW
{
MsgBox.Show(this, "The two selected patients do not have the same first name, last name, and date of birth. You must set all of those the same before merge is allowed.");
return; //Do not merge.
}
}
else //name and bd match
{
if (!MsgBox.Show(this, MsgBoxButtons.YesNo, "Merge the patient at the bottom into the patient shown at the top?"))
{
return; //The user chose not to merge.
}
}
this.Cursor = Cursors.WaitCursor;
if (patientFrom.PatNum == patientFrom.Guarantor)
{
Family fam = Patients.GetFamily(patFrom);
if (fam.ListPats.Length > 1)
{
this.Cursor = Cursors.Default;
if (!MsgBox.Show(this, MsgBoxButtons.YesNo,
"The patient you have chosen to merge from is a guarantor. Merging this patient into another account will "
+ "cause all familiy members of the patient being merged from to be moved into the same family as the "
+ "patient account being merged into. Do you wish to continue with the merge?"))
{
return; //The user chose not to merge.
}
this.Cursor = Cursors.WaitCursor;
}
}
if (Patients.MergeTwoPatients(patTo, patFrom, ImageStore.GetPreferredAtoZpath()))
{
this.textPatientIDFrom.Text = "";
this.textPatientNameFrom.Text = "";
this.textPatFromBirthdate.Text = "";
CheckUIState();
MsgBox.Show(this, "Patients merged successfully.");
}
this.Cursor = Cursors.Default;
}
private void butAdd_Click(object sender, EventArgs e)
{
FormProcCodes FormP = new FormProcCodes();
FormP.IsSelectionMode = true;
FormP.ShowDialog();
if (FormP.DialogResult != DialogResult.OK)
{
return;
}
Procedure ProcCur;
ProcCur = new Procedure(); //going to be an insert, so no need to set Procedures.CurOld
ProcCur.CodeNum = FormP.SelectedCodeNum;
//procnum
ProcCur.PatNum = AptCur.PatNum;
//aptnum
//proccode
//ProcCur.CodeNum=ProcedureCodes.GetProcCode(ProcCur.OldCode).CodeNum;//already set
ProcCur.ProcDate = DateTime.Today;
ProcCur.DateTP = ProcCur.ProcDate;
//int totUnits = ProcCur.BaseUnits + ProcCur.UnitQty;
InsPlan priplan = null;
InsSub prisub = null;
Family fam = Patients.GetFamily(AptCur.PatNum);
Patient pat = fam.GetPatient(AptCur.PatNum);
List <InsSub> subList = InsSubs.RefreshForFam(fam);
List <InsPlan> planList = InsPlans.RefreshForSubList(subList);
List <PatPlan> patPlanList = PatPlans.Refresh(pat.PatNum);
if (patPlanList.Count > 0)
{
prisub = InsSubs.GetSub(patPlanList[0].InsSubNum, subList);
priplan = InsPlans.GetPlan(prisub.PlanNum, planList);
}
//Check if it's a medical procedure.
double insfee;
bool isMed = false;
ProcCur.MedicalCode = ProcedureCodes.GetProcCode(ProcCur.CodeNum).MedicalCode;
if (ProcCur.MedicalCode != null && ProcCur.MedicalCode != "")
{
isMed = true;
}
//Get fee schedule for medical or dental.
long feeSch;
if (isMed)
{
feeSch = Fees.GetMedFeeSched(pat, planList, patPlanList, subList);
}
else
{
feeSch = Fees.GetFeeSched(pat, planList, patPlanList, subList);
}
//Get the fee amount for medical or dental.
if (PrefC.GetBool(PrefName.MedicalFeeUsedForNewProcs) && isMed)
{
insfee = Fees.GetAmount0(ProcedureCodes.GetProcCode(ProcCur.MedicalCode).CodeNum, feeSch);
}
else
{
insfee = Fees.GetAmount0(ProcCur.CodeNum, feeSch);
}
if (priplan != null && priplan.PlanType == "p") //PPO
{
double standardfee = Fees.GetAmount0(ProcCur.CodeNum, Providers.GetProv(Patients.GetProvNum(pat)).FeeSched);
if (standardfee > insfee)
{
ProcCur.ProcFee = standardfee;
}
else
{
ProcCur.ProcFee = insfee;
}
}
else
{
ProcCur.ProcFee = insfee;
}
//surf
//ToothNum
//Procedures.Cur.ToothRange
//ProcCur.NoBillIns=ProcedureCodes.GetProcCode(ProcCur.ProcCode).NoBillIns;
ProcCur.Priority = 0;
ProcCur.ProcStatus = ProcStat.TP;
if (ProcedureCodes.GetProcCode(ProcCur.CodeNum).IsHygiene &&
pat.SecProv != 0)
{
ProcCur.ProvNum = pat.SecProv;
}
else
{
ProcCur.ProvNum = pat.PriProv;
}
ProcCur.Note = "";
ProcCur.ClinicNum = pat.ClinicNum;
//dx
//nextaptnum
ProcCur.DateEntryC = DateTime.Now;
ProcCur.BaseUnits = ProcedureCodes.GetProcCode(ProcCur.CodeNum).BaseUnits;
ProcCur.SiteNum = pat.SiteNum;
ProcCur.RevCode = ProcedureCodes.GetProcCode(ProcCur.CodeNum).RevenueCodeDefault;
Procedures.Insert(ProcCur);
List <Benefit> benefitList = Benefits.Refresh(patPlanList, subList);
Procedures.ComputeEstimates(ProcCur, pat.PatNum, new List <ClaimProc>(), true, planList, patPlanList, benefitList, pat.Age, subList);
FormProcEdit FormPE = new FormProcEdit(ProcCur, pat.Copy(), fam);
FormPE.IsNew = true;
FormPE.ShowDialog();
if (FormPE.DialogResult == DialogResult.Cancel)
{
//any created claimprocs are automatically deleted from within procEdit window.
try{
Procedures.Delete(ProcCur.ProcNum); //also deletes the claimprocs
}
catch (Exception ex) {
MessageBox.Show(ex.Message);
}
}
else if (Programs.UsingOrion)
{
//No need to synch with Orion mode.
}
else
{
//Default is set to TP, so Synch is usually not needed.
if (ProcCur.ProcStatus == ProcStat.C || ProcCur.ProcStatus == ProcStat.EC || ProcCur.ProcStatus == ProcStat.EO)
{
Recalls.Synch(pat.PatNum);
}
}
FillGrid();
}
private void butMerge_Click(object sender, EventArgs e)
{
if (_patTo.PatNum == _patFrom.PatNum)
{
MsgBox.Show(this, "Cannot merge a patient account into itself. Please select a different patient to merge from.");
return;
}
string msgText = "";
if (_patFrom.FName.Trim().ToLower() != _patTo.FName.Trim().ToLower() ||
_patFrom.LName.Trim().ToLower() != _patTo.LName.Trim().ToLower() ||
_patFrom.Birthdate != _patTo.Birthdate)
{ //mismatch
msgText = Lan.g(this, "The two patients do not have the same first name, last name, and birthdate.");
if (Programs.UsingEcwTightOrFullMode())
{
msgText += "\r\n" + Lan.g(this, "The patients must first be merged from within eCW, then immediately merged in the same order in Open Dental. "
+ "If the patients are not merged in this manner, some information may not properly bridge between eCW and Open Dental.");
}
msgText += "\r\n\r\n"
+ Lan.g(this, "Into patient name") + ": " + Patients.GetNameFLnoPref(_patTo.LName, _patTo.FName, "") + ", " //using Patients.GetNameFLnoPref to omit MiddleI
+ Lan.g(this, "Into patient birthdate") + ": " + _patTo.Birthdate.ToShortDateString() + "\r\n"
+ Lan.g(this, "From patient name") + ": " + Patients.GetNameFLnoPref(_patFrom.LName, _patFrom.FName, "") + ", " //using Patients.GetNameFLnoPref to omit MiddleI
+ Lan.g(this, "From patient birthdate") + ": " + _patFrom.Birthdate.ToShortDateString() + "\r\n\r\n"
+ Lan.g(this, "Merge the patient on the bottom into the patient shown on the top?");
if (MessageBox.Show(msgText, "", MessageBoxButtons.YesNo) != DialogResult.Yes)
{
return; //The user chose not to merge
}
}
else //name and bd match
{
if (!MsgBox.Show(this, MsgBoxButtons.YesNo, "Merge the patient at the bottom into the patient shown at the top?"))
{
return; //The user chose not to merge.
}
}
if (_patFrom.PatNum == _patFrom.Guarantor)
{
Family fam = Patients.GetFamily(_patFrom.PatNum);
if (fam.ListPats.Length > 1)
{
msgText = Lan.g(this, "The patient you have chosen to merge from is a guarantor. Merging this patient into another account will cause all "
+ "family members of the patient being merged from to be moved into the same family as the patient account being merged into.") + "\r\n"
+ Lan.g(this, "Do you wish to continue with the merge?");
if (MessageBox.Show(msgText, "", MessageBoxButtons.YesNo) != DialogResult.Yes)
{
return; //The user chose not to merge.
}
}
}
Cursor = Cursors.WaitCursor;
List <Task> listPatientTasks = Tasks.RefreshPatientTickets(_patFrom.PatNum); //Get this before the merge, because the merge updates Task.KeyNum.
bool isSuccessfulMerge = false;
try {
isSuccessfulMerge = Patients.MergeTwoPatients(_patTo.PatNum, _patFrom.PatNum);
}
catch (Exception ex) {
SecurityLogs.MakeLogEntry(Permissions.PatientMerge, _patTo.PatNum,
"Error occurred while merging Patient: " + _patFrom.GetNameFL() + "\r\nPatNum From: " + _patFrom.PatNum + "\r\nPatNum To: " + _patTo.PatNum);
Cursor = Cursors.Default;
FriendlyException.Show(Lan.g(this, "Unable to fully merge patients. Contact support."), ex);
}
if (isSuccessfulMerge)
{
//The patient has been successfully merged.
#region Refresh Patient's Tasks
List <Signalod> listSignals = new List <Signalod>();
foreach (Task task in listPatientTasks)
{
Signalod signal = new Signalod();
signal.IType = InvalidType.Task;
signal.FKeyType = KeyType.Task;
signal.FKey = task.TaskNum;
signal.DateViewing = DateTime.MinValue; //Mimics Signalods.SetInvalid()
listSignals.Add(signal);
}
Signalods.SetInvalid(InvalidType.TaskPatient, KeyType.Undefined, _patTo.PatNum); //Ensure anyone viewing Patient tab of new pat gets refreshed.
Signalods.Insert(listSignals.ToArray()); //Refreshes existing tasks in all other tabs.
//Causes Task area and open Task Edit windows to refresh immediately. No popups, alright to pass empty lists for listRefreshedTaskNotes and
//listBlockedTaskLists.
FormOpenDental.S_HandleRefreshedTasks(listSignals, listPatientTasks.Select(x => x.TaskNum).ToList(), listPatientTasks, new List <TaskNote>()
, new List <UserOdPref>());
#endregion
//Now copy the physical images from the old patient to the new if they are using an AtoZ image share.
//This has to happen in the UI because the middle tier server might not have access to the image share.
//If the users are storing images within the database, those images have already been taken care of in the merge method above.
int fileCopyFailures = 0;
if (PrefC.AtoZfolderUsed == DataStorageType.LocalAtoZ)
{
#region Copy AtoZ Documents
//Move the patient documents within the 'patFrom' A to Z folder to the 'patTo' A to Z folder.
//We have to be careful here of documents with the same name. We have to rename such documents
//so that no documents are overwritten/lost.
string atoZpath = ImageStore.GetPreferredAtoZpath();
string atozFrom = ImageStore.GetPatientFolder(_patFrom, atoZpath);
string atozTo = ImageStore.GetPatientFolder(_patTo, atoZpath);
string[] fromFiles = Directory.GetFiles(atozFrom);
if (atozFrom == atozTo)
{
//Very rarely, two patients have the same image folder. PatFrom and PatTo both have Documents that point to the same file. Since we
//are about to copy the image file for PatFrom to PatTo's directory and delete the file from PatFrom's directory, we would break the
//file reference for PatTo's Document. In this case, skip deleting the original file, since PatTo's Document still references it.
Documents.MergePatientDocuments(_patFrom.PatNum, _patTo.PatNum);
}
else
{
foreach (string fileCur in fromFiles)
{
string fileName = Path.GetFileName(fileCur);
string destFileName = fileName;
string destFilePath = ODFileUtils.CombinePaths(atozTo, fileName);
if (File.Exists(destFilePath))
{
//The file being copied has the same name as a possibly different file within the destination a to z folder.
//We need to copy the file under a unique file name and then make sure to update the document table to reflect
//the change.
destFileName = _patFrom.PatNum.ToString() + "_" + fileName;
destFilePath = ODFileUtils.CombinePaths(atozTo, destFileName);
while (File.Exists(destFilePath))
{
destFileName = _patFrom.PatNum.ToString() + "_" + fileName + "_" + DateTime.Now.ToString("yyyyMMddhhmmss");
destFilePath = ODFileUtils.CombinePaths(atozTo, destFileName);
}
}
try {
File.Copy(fileCur, destFilePath); //Will throw exception if file already exists.
}
catch (Exception ex) {
ex.DoNothing();
fileCopyFailures++;
continue; //copy failed, increment counter and move onto the next file
}
//If the copy did not fail, try to delete the old file.
//We can now safely update the document FileName and PatNum to the "to" patient.
Documents.MergePatientDocument(_patFrom.PatNum, _patTo.PatNum, fileName, destFileName);
try {
File.Delete(fileCur);
}
catch (Exception ex) {
ex.DoNothing();
//If we were unable to delete the file then it is probably because someone has the document open currently.
//Just skip deleting the file. This means that occasionally there will be an extra file in their backup
//which is just clutter but at least the merge is guaranteed this way.
}
}
}
#endregion Copy AtoZ Documents
} //end if AtoZFolderUsed
else if (CloudStorage.IsCloudStorage)
{
string atozFrom = ImageStore.GetPatientFolder(_patFrom, "");
string atozTo = ImageStore.GetPatientFolder(_patTo, "");
if (atozFrom == atozTo)
{
//Very rarely, two patients have the same image folder. PatFrom and PatTo both have Documents that point to the same file. Since we
//are about to copy the image file for PatFrom to PatTo's directory and delete the file from PatFrom's directory, we would break the
//file reference for PatTo's Document. In this case, skip deleting the original file, since PatTo's Document still references it.
Documents.MergePatientDocuments(_patFrom.PatNum, _patTo.PatNum);
}
else
{
FormProgress FormP = new FormProgress();
FormP.DisplayText = "Moving Documents...";
FormP.NumberFormat = "F";
FormP.NumberMultiplication = 1;
FormP.MaxVal = 100; //Doesn't matter what this value is as long as it is greater than 0
FormP.TickMS = 1000;
OpenDentalCloud.Core.TaskStateMove state = CloudStorage.MoveAsync(atozFrom
, atozTo
, new OpenDentalCloud.ProgressHandler(FormP.OnProgress));
if (FormP.ShowDialog() == DialogResult.Cancel)
{
state.DoCancel = true;
fileCopyFailures = state.CountTotal - state.CountSuccess;
}
else
{
fileCopyFailures = state.CountFailed;
}
}
}
Cursor = Cursors.Default;
if (fileCopyFailures > 0)
{
MessageBox.Show(Lan.g(this, "Some files belonging to the from patient were not copied.") + "\r\n"
+ Lan.g(this, "Number of files not copied") + ": " + fileCopyFailures);
}
//Make log entry here not in parent form because we can merge multiple patients at a time.
SecurityLogs.MakeLogEntry(Permissions.PatientMerge, _patTo.PatNum,
"Patient: " + _patFrom.GetNameFL() + "\r\nPatNum From: " + _patFrom.PatNum + "\r\nPatNum To: " + _patTo.PatNum);
textPatientIDFrom.Text = "";
textPatientNameFrom.Text = "";
textPatFromBirthdate.Text = "";
//This will cause CheckUIState() to disabled the merge button until the user selects a new _patFrom.
_patFrom = null;
CheckUIState();
MsgBox.Show(this, "Patients merged successfully.");
} //end MergeTwoPatients
Cursor = Cursors.Default;
}
private void FormReferralEdit_Load(object sender, System.EventArgs e)
{
listSpecialty.Items.Clear();
for (int i = 0; i < Enum.GetNames(typeof(DentalSpecialty)).Length; i++)
{
listSpecialty.Items.Add(Lan.g("enumDentalSpecialty"
, Enum.GetNames(typeof(DentalSpecialty))[i]));
}
if (IsPatient)
{
if (IsNew)
{
Text = Lan.g(this, "Add Referral");
Family FamCur = Patients.GetFamily(RefCur.PatNum);
Patient PatCur = FamCur.GetPatient(RefCur.PatNum);
RefCur.Address = PatCur.Address;
RefCur.Address2 = PatCur.Address2;
RefCur.City = PatCur.City;
RefCur.EMail = PatCur.Email;
RefCur.FName = PatCur.FName;
RefCur.LName = PatCur.LName;
RefCur.MName = PatCur.MiddleI;
//RefCur.PatNum=Patients.Cur.PatNum;//already handled
RefCur.SSN = PatCur.SSN;
RefCur.Telephone = TelephoneNumbers.FormatNumbersExactTen(PatCur.HmPhone);
if (PatCur.WkPhone == "")
{
RefCur.Phone2 = PatCur.WirelessPhone;
}
else
{
RefCur.Phone2 = PatCur.WkPhone;
}
RefCur.ST = PatCur.State;
RefCur.Zip = PatCur.Zip;
}
labelPatient.Visible = true;
textLName.ReadOnly = true;
textFName.ReadOnly = true;
textMName.ReadOnly = true;
textTitle.ReadOnly = true;
textAddress.ReadOnly = true;
textAddress2.ReadOnly = true;
textCity.ReadOnly = true;
textST.ReadOnly = true;
textZip.ReadOnly = true;
checkNotPerson.Enabled = false;
textPhone1.ReadOnly = true;
textPhone2.ReadOnly = true;
textPhone3.ReadOnly = true;
textSSN.ReadOnly = true;
radioTIN.Enabled = false;
textEmail.ReadOnly = true;
listSpecialty.Enabled = false;
listSpecialty.SelectedIndex = -1;
butNone.Enabled = false;
textNotes.Select();
}
else //non patient
{
if (IsNew)
{
this.Text = Lan.g(this, "Add Referral");
RefCur = new Referral();
RefCur.Specialty = DentalSpecialty.General;
}
listSpecialty.SelectedIndex = (int)RefCur.Specialty;
textLName.Select();
}
checkNotPerson.Checked = RefCur.NotPerson;
checkHidden.Checked = RefCur.IsHidden;
textLName.Text = RefCur.LName;
textFName.Text = RefCur.FName;
textMName.Text = RefCur.MName;
textTitle.Text = RefCur.Title;
textAddress.Text = RefCur.Address;
textAddress2.Text = RefCur.Address2;
textCity.Text = RefCur.City;
textST.Text = RefCur.ST;
textZip.Text = RefCur.Zip;
string phone = RefCur.Telephone;
if (phone != null && phone.Length == 10)
{
textPhone1.Text = phone.Substring(0, 3);
textPhone2.Text = phone.Substring(3, 3);
textPhone3.Text = phone.Substring(6);
}
textSSN.Text = RefCur.SSN;
if (RefCur.UsingTIN)
{
radioTIN.Checked = true;
}
else
{
radioSSN.Checked = true;
}
textNationalProvID.Text = RefCur.NationalProvID;
textOtherPhone.Text = RefCur.Phone2;
textEmail.Text = RefCur.EMail;
textNotes.Text = RefCur.Note;
//Patients using:
string[] patsTo = RefAttaches.GetPats(RefCur.ReferralNum, false);
string[] patsFrom = RefAttaches.GetPats(RefCur.ReferralNum, true);
textPatientsNumTo.Text = patsTo.Length.ToString();
textPatientsNumFrom.Text = patsFrom.Length.ToString();
comboPatientsTo.Items.Clear();
comboPatientsFrom.Items.Clear();
for (int i = 0; i < patsTo.Length; i++)
{
comboPatientsTo.Items.Add(patsTo[i]);
}
for (int i = 0; i < patsFrom.Length; i++)
{
comboPatientsFrom.Items.Add(patsFrom[i]);
}
if (patsTo.Length > 0)
{
comboPatientsTo.SelectedIndex = 0;
}
if (patsFrom.Length > 0)
{
comboPatientsFrom.SelectedIndex = 0;
}
}
///<summary></summary>
public FormPaySplitEdit(Family famCur) //PaySplit paySplitCur,Family famCur){
{
InitializeComponent();
FamCur = famCur;
Lan.F(this);
}
