public void Reactivations_GetReactivationList_PatientMarkedDoNotContact() { string name = MethodBase.GetCurrentMethod().Name; Clinic clinic = ClinicT.CreateClinic(name); long provNum = ProviderT.CreateProvider(name); Patient pat = PatientT.CreatePatient(name, provNum, clinic.ClinicNum, TestEmaiAddress, TestPatPhone, ContactMethod.Mail); //Patient has not been seen since further in the past than the ReactivationDaysPast preference. Procedure proc = ProcedureT.CreateProcedure(pat, "D0120", ProcStat.C, "", 50, procDate: DateTime.Now.AddYears(-3), provNum: provNum); //3 year old proc //Patient has been contacted, and the ReactivationContactInterval has elapsed. Commlog comm = new Commlog() { PatNum = pat.PatNum, CommDateTime = DateTime.Now.AddYears(-1), CommType = _reactivationCommLogType, Mode_ = CommItemMode.Email, SentOrReceived = CommSentOrReceived.Sent, CommSource = CommItemSource.ApptReminder, }; comm.CommlogNum = Commlogs.Insert(comm); //Patient has been marked "Do Not Contact" Reactivations.Insert(new Reactivation() { PatNum = pat.PatNum, DoNotContact = true, }); DateTime dateSince = DateTime.Today.AddDays(-PrefC.GetInt(PrefName.ReactivationDaysPast)); DateTime dateStop = dateSince.AddMonths(-36); //Confirm that the patient does not in the Reactivation List DataTable tbl = Reactivations.GetReactivationList(dateSince, dateStop, false, false, true, provNum, clinic.ClinicNum, 0, 0 , ReactivationListSort.LastContacted, RecallListShowNumberReminders.One); //No patients in the list Assert.AreEqual(0, tbl.Rows.Count); }
public static Commlog CreateCommlog(long patNum, string text = "", DateTime commDateTime = default(DateTime), CommSentOrReceived sentOrReceived = CommSentOrReceived.Sent, CommItemMode itemMode = CommItemMode.None) { Commlog commlog = new Commlog { CommDateTime = commDateTime.Year > 1880 ? commDateTime : DateTime.Now, Mode_ = itemMode, Note = text, PatNum = patNum, SentOrReceived = sentOrReceived, }; Commlogs.Insert(commlog); return(commlog); }
private static void OnCreated(object source, FileSystemEventArgs e) { //MessageBox.Show("File created. It will now be deleted."); Thread.Sleep(200); //just to make sure the other process is done writing. string[] lines = File.ReadAllLines(e.FullPath); File.Delete(e.FullPath); if (lines.Length != 1) { MessageBox.Show(e.FullPath + " was supposed to have exactly one line. Invalid file."); return; } string rawFieldNames = "PAT_PK,PAT_LOGFK,PAT_LANFK,PAT_TITLE,PAT_FNAME,PAT_MI,PAT_LNAME,PAT_CALLED,PAT_ADDR1,PAT_ADDR2,PAT_CITY,PAT_ST,PAT_ZIP,PAT_HPHN,PAT_WPHN,PAT_EXT,PAT_FAX,PAT_PAGER,PAT_CELL,PAT_EMAIL,PAT_SEX,PAT_EDOCS,PAT_STATUS,PAT_TYPE,PAT_BIRTH,PAT_SSN,PAT_NOCALL,PAT_NOCORR,PAT_DISRES,PAT_LSTUPD,PAT_INSNM,PAT_INSGPL,PAT_INSAD1,PAT_INSAD2,PAT_INSCIT,PAT_INSST,PAT_INSZIP,PAT_INSPHN,PAT_INSEXT,PAT_INSCON,PAT_INSGNO,PAT_EMPNM,PAT_EMPAD1,PAT_EMPAD2,PAT_EMPCIT,PAT_EMPST,PAT_EMPZIP,PAT_EMPPHN,PAT_REFLNM,PAT_REFFNM,PAT_REFMI,PAT_REFPHN,PAT_REFEML,PAT_REFSPE,PAT_NOTES,PAT_NOTE1,PAT_NOTE2,PAT_NOTE3,PAT_NOTE4,PAT_NOTE5,PAT_NOTE6,PAT_NOTE7,PAT_NOTE8,PAT_NOTE9,PAT_NOTE10,PAT_FPSCAN,PAT_PREMED,PAT_MEDS,PAT_FTSTUD,PAT_PTSTUD,PAT_COLLEG,PAT_CHRTNO,PAT_OTHID,PAT_RESPRT,PAT_POLHLD,PAT_CUSCD,PAT_PMPID"; fieldNames = rawFieldNames.Split(','); fieldVals = lines[0].Split(','); if (fieldNames.Length != fieldVals.Length) { MessageBox.Show(e.FullPath + " contains " + fieldNames.Length.ToString() + " field names, but " + fieldVals.Length.ToString() + " field values. Invalid file."); return; } for (int i = 0; i < fieldVals.Length; i++) { fieldVals[i] = fieldVals[i].Replace("\"", ""); //remove quotes } long patNum = PIn.Long(GetVal("PAT_OTHID")); if (patNum == 0) { MessageBox.Show(patNum.ToString() + " is not a recognized PatNum."); return; } Family fam = Patients.GetFamily(patNum); if (fam == null) { MessageBox.Show("Could not find patient based on PatNum " + patNum.ToString()); return; } Patient pat = fam.GetPatient(patNum); Patient patOld = pat.Copy(); string txt; string note = "PT Dental import processed. Some information is shown below which was too complex to import automatically.\r\n"; txt = GetVal("PAT_FNAME"); if (txt != "") { pat.FName = txt; } txt = GetVal("PAT_MI"); if (txt != "") { pat.MiddleI = txt; } txt = GetVal("PAT_LNAME"); if (txt != "") { pat.LName = txt; } txt = GetVal("PAT_CALLED"); if (txt != "") { pat.Preferred = txt; } txt = GetVal("PAT_ADDR1"); if (txt != "") { pat.Address = txt; } txt = GetVal("PAT_ADDR2"); if (txt != "") { pat.Address2 = txt; } txt = GetVal("PAT_CITY"); if (txt != "") { pat.City = txt; } txt = GetVal("PAT_ST"); if (txt != "") { pat.State = txt; } txt = GetVal("PAT_ZIP"); if (txt != "") { pat.Zip = txt; } txt = GetVal("PAT_HPHN"); //No punct if (txt != "") { pat.HmPhone = TelephoneNumbers.ReFormat(txt); } txt = GetVal("PAT_WPHN"); if (txt != "") { pat.WkPhone = TelephoneNumbers.ReFormat(txt); } //no matching fields for these three: txt = GetVal("PAT_EXT"); if (txt != "") { note += "Ph extension: " + txt + "\r\n"; } txt = GetVal("PAT_FAX"); if (txt != "") { note += "Fax: " + txt + "\r\n"; } txt = GetVal("PAT_PAGER"); if (txt != "") { note += "Pager: " + txt + "\r\n"; } txt = GetVal("PAT_CELL"); if (txt != "") { pat.WirelessPhone = TelephoneNumbers.ReFormat(txt); } txt = GetVal("PAT_EMAIL"); if (txt != "") { pat.Email = txt; } txt = GetVal("PAT_SEX"); //M or F if (txt == "M") { pat.Gender = PatientGender.Male; } if (txt == "F") { pat.Gender = PatientGender.Male; } txt = GetVal("PAT_STATUS"); //our patStatus, Any text allowed switch (txt) { case "Archived": pat.PatStatus = PatientStatus.Archived; break; case "Deceased": pat.PatStatus = PatientStatus.Deceased; break; //case "Archived": pat.PatStatus=PatientStatus.Deleted; break; case "Inactive": pat.PatStatus = PatientStatus.Inactive; break; case "NonPatient": pat.PatStatus = PatientStatus.NonPatient; break; case "Patient": pat.PatStatus = PatientStatus.Patient; break; } txt = GetVal("PAT_TYPE"); //our Position, Any text allowed switch (txt) { case "Child": pat.Position = PatientPosition.Child; break; case "Divorced": pat.Position = PatientPosition.Divorced; break; case "Married": pat.Position = PatientPosition.Married; break; case "Single": pat.Position = PatientPosition.Single; break; case "Widowed": pat.Position = PatientPosition.Widowed; break; } txt = GetVal("PAT_BIRTH"); // yyyyMMdd if (txt != "") { pat.Birthdate = PIn.Date(txt); } txt = GetVal("PAT_SSN"); // No punct if (txt != "") { pat.SSN = txt; } txt = GetVal("PAT_NOCALL"); // T if no call if (txt != "") { note += "No Call Patient: " + txt + "\r\n"; } txt = GetVal("PAT_NOCORR"); // T/F if (txt != "") { note += "No Correspondence: " + txt + "\r\n"; } txt = GetVal("PAT_NOTES"); // No limits. if (txt != "") { note += txt + "\r\n"; } txt = GetVal("PAT_PREMED"); // F or T //I don't like giving the patient control of this field, but I guess the office has the option of not showing this on forms. if (txt == "T") { pat.Premed = true; } if (txt == "F") { pat.Premed = false; } txt = GetVal("PAT_MEDS"); // The meds that they must premedicate with. if (txt != "") { note += "Patient Meds: " + txt + "\r\n"; } string ft = GetVal("PAT_FTSTUD"); // T/F string pt = GetVal("PAT_PTSTUD"); //parttime if (ft == "T") { pat.StudentStatus = "F"; //fulltime } else if (pt == "T") { pat.StudentStatus = "P"; //parttime } else if (ft == "F" && pt == "F") { pat.StudentStatus = ""; //nonstudent } else if (ft == "F" && pat.StudentStatus == "F") { pat.StudentStatus = ""; } else if (pt == "F" && pat.StudentStatus == "P") { pat.StudentStatus = ""; } txt = GetVal("PAT_COLLEG"); if (txt != "") { pat.SchoolName = txt; } txt = GetVal("PAT_CHRTNO"); //I don't think patient should have control of this field. if (txt != "") { pat.ChartNumber = txt; } txt = GetVal("PAT_RESPRT"); // Responsible party checkbox T/F if (txt == "T" && pat.PatNum != pat.Guarantor) { note += "Responsible party: True\r\n"; } if (txt == "F" && pat.PatNum == pat.Guarantor) { note += "Responsible party: False\r\n"; } txt = GetVal("PAT_POLHLD"); // Policy holder checkbox T/F if (txt == "T") { note += "Policy holder: True\r\n"; } if (txt == "F") { note += "Policy holder: False\r\n"; } txt = GetVal("PAT_INSNM"); if (txt != "") { note += "Insurance name: " + txt + "\r\n"; } txt = GetVal("PAT_INSGPL"); if (txt != "") { note += "Ins group plan name: " + txt + "\r\n"; } txt = GetVal("PAT_INSAD1"); if (txt != "") { note += "Ins address: " + txt + "\r\n"; } txt = GetVal("PAT_INSAD2"); if (txt != "") { note += "Ins address2: " + txt + "\r\n"; } txt = GetVal("PAT_INSCIT"); if (txt != "") { note += "Ins city: " + txt + "\r\n"; } txt = GetVal("PAT_INSST"); if (txt != "") { note += "Ins state: " + txt + "\r\n"; } txt = GetVal("PAT_INSZIP"); if (txt != "") { note += "Ins zip: " + txt + "\r\n"; } txt = GetVal("PAT_INSPHN"); if (txt != "") { note += "Ins phone: " + TelephoneNumbers.ReFormat(txt) + "\r\n"; } txt = GetVal("PAT_INSGNO"); // Ins group number if (txt != "") { note += "Ins group number: " + txt + "\r\n"; } txt = GetVal("PAT_EMPNM"); if (txt != "") { note += "Employer name: " + txt + "\r\n"; } txt = GetVal("PAT_REFLNM"); if (txt != "") { note += "Referral last name: " + txt + "\r\n"; } txt = GetVal("PAT_REFFNM"); if (txt != "") { note += "Referral first name: " + txt + "\r\n"; } txt = GetVal("PAT_REFMI"); if (txt != "") { note += "Referral middle init: " + txt + "\r\n"; } txt = GetVal("PAT_REFPHN"); if (txt != "") { note += "Referral phone: " + txt + "\r\n"; } txt = GetVal("PAT_REFEML"); // Referral source email if (txt != "") { note += "Referral email: " + txt + "\r\n"; } txt = GetVal("PAT_REFSPE"); // Referral specialty. Customizable, so any allowed if (txt != "") { note += "Referral specialty: " + txt + "\r\n"; } Patients.Update(pat, patOld); if (File.Exists(dir + "\\" + importMedCsv)) { lines = File.ReadAllLines(dir + "\\" + importMedCsv); File.Delete(dir + "\\" + importMedCsv); if (lines.Length < 1) { MessageBox.Show(e.FullPath + " was supposed to have at least one line. Invalid file."); return; } fieldNames = lines[0].Split(','); long diseaseDefNum; Disease disease; string diseaseNote; for (int i = 1; i < lines.Length; i++) { fieldVals = lines[i].Split(','); txt = GetVal("PMA_MALDES"); diseaseNote = GetVal("PMA_NOTES"); if (txt == "") { continue; } diseaseDefNum = DiseaseDefs.GetNumFromName(txt); if (diseaseDefNum == 0) { note += "Disease: " + txt + ", " + diseaseNote + "\r\n"; } disease = Diseases.GetSpecificDiseaseForPatient(patNum, diseaseDefNum); if (disease == null) { disease = new Disease(); disease.DiseaseDefNum = diseaseDefNum; disease.PatNum = patNum; disease.PatNote = diseaseNote; Diseases.Insert(disease); } else { if (txt != "") { if (disease.PatNote != "") { disease.PatNote += " "; } disease.PatNote += diseaseNote; Diseases.Update(disease); } } } } Commlog comm = new Commlog(); comm.PatNum = patNum; comm.SentOrReceived = CommSentOrReceived.Received; comm.CommDateTime = DateTime.Now; comm.CommType = Commlogs.GetTypeAuto(CommItemTypeAuto.MISC); comm.Mode_ = CommItemMode.None; comm.Note = note; comm.UserNum = Security.CurUser.UserNum; Commlogs.Insert(comm); MessageBox.Show("PT Dental import complete."); }
///<summary>When sub is set, fills customer group box with various information. ///When null, clears all fields.</summary> private void SetCustomerInfo(BugSubmission sub, bool isCustomerGridRefresh = true) { try { labelCustomerNum.Text = _patCur?.PatNum.ToString() ?? ""; labelRegKey.Text = sub.RegKey; labelCustomerState.Text = _patCur?.State ?? ""; labelCustomerPhone.Text = _patCur?.WkPhone ?? ""; labelSubNum.Text = POut.Long(sub.BugSubmissionNum); labelLastCall.Text = Commlogs.GetDateTimeOfLastEntryForPat(_patCur?.PatNum ?? 0).ToString(); } catch (Exception ex) { ex.DoNothing(); } butGoToAccount.Enabled = true; butBugTask.Enabled = true; butCompare.Enabled = true; if (!isCustomerGridRefresh || _groupSelection == -1 || _listSubs == null || !gridCustomerSubs.Visible) //Just in case checks. { return; } switch (_groupSelection) { case 0: #region None gridCustomerSubs.Title = "Customer Submissions"; gridCustomerSubs.BeginUpdate(); gridCustomerSubs.ListGridColumns.Clear(); gridCustomerSubs.ListGridColumns.Add(new GridColumn("Version", 100, HorizontalAlignment.Center)); gridCustomerSubs.ListGridColumns.Add(new GridColumn("Count", 50, HorizontalAlignment.Center)); gridCustomerSubs.ListGridRows.Clear(); Dictionary <string, List <BugSubmission> > dictCustomerSubVersions = _listSubs .Where(x => x.RegKey == sub.RegKey) .GroupBy(x => x.TryGetPrefValue(PrefName.ProgramVersion, "0.0.0.0")) .ToDictionary(x => x.Key, x => x.DistinctBy(y => y.ExceptionStackTrace).ToList()); foreach (KeyValuePair <string, List <BugSubmission> > pair in dictCustomerSubVersions) { gridCustomerSubs.ListGridRows.Add(new GridRow(pair.Key, pair.Value.Count.ToString())); } gridCustomerSubs.EndUpdate(); #endregion break; case 1: case 2: case 3: case 4: case 5: #region RegKey/Ver/Stack, Stacktrace, 95%, StackSig gridCustomerSubs.Title = "Grouped Subs (" + _listSubs.DistinctBy(x => x.RegKey).Count() + " Reg)"; if (_groupSelection.In(4, 5)) //StackSig,StackSimple { gridCustomerSubs.Title += " (" + _listSubs.DistinctBy(x => x.ExceptionStackTrace).Count() + " Stacks)"; } gridCustomerSubs.BeginUpdate(); gridCustomerSubs.ListGridColumns.Clear(); gridCustomerSubs.ListGridColumns.Add(new GridColumn("Vers.", 55, HorizontalAlignment.Center)); gridCustomerSubs.ListGridColumns.Add(new GridColumn("RegKey", 0, HorizontalAlignment.Center)); gridCustomerSubs.ListGridRows.Clear(); _listSubs.ForEach(x => { Patient rowPat; string patDescript = x.RegKey; if (_dictPatients.TryGetValue(x.RegKey, out rowPat)) { patDescript = rowPat.GetNameLF(); } GridRow row = new GridRow(x.TryGetPrefValue(PrefName.ProgramVersion, "0.0.0.0"), patDescript); row.Tag = x; gridCustomerSubs.ListGridRows.Add(row); }); gridCustomerSubs.EndUpdate(); #endregion break; } }