public void InsPlan_GetInsUsedDisplay_LimitationsOverride()
{
string suffix = "6";
Patient pat = PatientT.CreatePatient(suffix);
long patNum = pat.PatNum;
Carrier carrier = CarrierT.CreateCarrier(suffix);
InsPlan plan = InsPlanT.CreateInsPlan(carrier.CarrierNum);
long planNum = plan.PlanNum;
InsSub sub = InsSubT.CreateInsSub(pat.PatNum, planNum); //guarantor is subscriber
long subNum = sub.InsSubNum;
long patPlanNum = PatPlanT.CreatePatPlan(1, pat.PatNum, subNum).PatPlanNum;
BenefitT.CreateAnnualMax(planNum, 1000);
BenefitT.CreateLimitation(planNum, EbenefitCategory.Diagnostic, 1000);
Procedure proc = ProcedureT.CreateProcedure(pat, "D0120", ProcStat.C, "", 50); //An exam
long procNum = proc.ProcNum;
Procedure proc2 = ProcedureT.CreateProcedure(pat, "D2750", ProcStat.C, "8", 830); //create a crown
ClaimProcT.AddInsPaid(patNum, planNum, procNum, 50, subNum, 0, 0);
ClaimProcT.AddInsPaid(patNum, planNum, proc2.ProcNum, 400, subNum, 0, 0);
//Lists
Family fam = Patients.GetFamily(patNum);
List <InsSub> subList = InsSubs.RefreshForFam(fam);
List <InsPlan> planList = InsPlans.RefreshForSubList(subList);
List <PatPlan> patPlans = PatPlans.Refresh(patNum);
List <Benefit> benefitList = Benefits.Refresh(patPlans, subList);
List <ClaimProcHist> histList = ClaimProcs.GetHistList(patNum, benefitList, patPlans, planList, DateTime.Today, subList);
//Validate
double insUsed = InsPlans.GetInsUsedDisplay(histList, DateTime.Today, planNum, patPlanNum, -1, planList, benefitList, patNum, subNum);
Assert.AreEqual(400, insUsed);
}
public void InsPlan_GetPendingDisplay_LimitationsOverrideGeneralLimitations()
{
string suffix = "31";
Patient pat = PatientT.CreatePatient(suffix);
long patNum = pat.PatNum;
Carrier carrier = CarrierT.CreateCarrier(suffix);
InsPlan plan = InsPlanT.CreateInsPlan(carrier.CarrierNum);
long planNum = plan.PlanNum;
InsSub sub = InsSubT.CreateInsSub(pat.PatNum, planNum); //guarantor is subscriber
long subNum = sub.InsSubNum;
long patPlanNum = PatPlanT.CreatePatPlan(1, pat.PatNum, subNum).PatPlanNum;
BenefitT.CreateAnnualMax(planNum, 1000);
BenefitT.CreateCategoryPercent(planNum, EbenefitCategory.RoutinePreventive, 100);
BenefitT.CreateLimitation(planNum, EbenefitCategory.RoutinePreventive, 1000); //Changing this amount would affect patient portion vs ins portion. But regardless of the amount, this should prevent any pending from showing in the box, which is for general pending only.
Procedure proc = ProcedureT.CreateProcedure(pat, "D1110", ProcStat.C, "", 125); //Prophy
//Lists
List <ClaimProc> claimProcs = ClaimProcs.Refresh(pat.PatNum);
Family fam = Patients.GetFamily(patNum);
List <InsSub> subList = InsSubs.RefreshForFam(fam);
List <InsPlan> planList = InsPlans.RefreshForSubList(subList);
List <PatPlan> patPlans = PatPlans.Refresh(patNum);
List <Benefit> benefitList = Benefits.Refresh(patPlans, subList);
List <Procedure> ProcList = Procedures.Refresh(pat.PatNum);
Claim claim = ClaimT.CreateClaim("P", patPlans, planList, claimProcs, ProcList, pat, ProcList, benefitList, subList);//Creates the claim in the same manner as the account module, including estimates and status NotReceived.
List <ClaimProcHist> histList = ClaimProcs.GetHistList(patNum, benefitList, patPlans, planList, DateTime.Today, subList);
//Validate
Assert.AreEqual(0, InsPlans.GetPendingDisplay(histList, DateTime.Today, plan, patPlanNum, -1, patNum, subNum, benefitList));
}
public void InsPlan_GetInsUsedDisplay_OrthoProcsNotAffectInsUsed()
{
string suffix = "13";
Patient pat = PatientT.CreatePatient(suffix);
Carrier carrier = CarrierT.CreateCarrier(suffix);
InsPlan plan = InsPlanT.CreateInsPlan(carrier.CarrierNum);
InsSub sub = InsSubT.CreateInsSub(pat.PatNum, plan.PlanNum);
long subNum = sub.InsSubNum;
PatPlan patPlan = PatPlanT.CreatePatPlan(1, pat.PatNum, subNum);
BenefitT.CreateAnnualMax(plan.PlanNum, 100);
BenefitT.CreateOrthoMax(plan.PlanNum, 500);
BenefitT.CreateCategoryPercent(plan.PlanNum, EbenefitCategory.Diagnostic, 100);
BenefitT.CreateCategoryPercent(plan.PlanNum, EbenefitCategory.Orthodontics, 100);
Procedure proc1 = ProcedureT.CreateProcedure(pat, "D0140", ProcStat.C, "", 59); //limEx
Procedure proc2 = ProcedureT.CreateProcedure(pat, "D8090", ProcStat.C, "", 348); //Comprehensive ortho
ClaimProcT.AddInsPaid(pat.PatNum, plan.PlanNum, proc1.ProcNum, 59, subNum, 0, 0);
ClaimProcT.AddInsPaid(pat.PatNum, plan.PlanNum, proc2.ProcNum, 348, subNum, 0, 0);
//Lists
Family fam = Patients.GetFamily(pat.PatNum);
List <InsSub> subList = InsSubs.RefreshForFam(fam);
List <InsPlan> planList = InsPlans.RefreshForSubList(subList);
List <PatPlan> patPlans = PatPlans.Refresh(pat.PatNum);
List <Benefit> benefitList = Benefits.Refresh(patPlans, subList);
List <ClaimProcHist> histList = ClaimProcs.GetHistList(pat.PatNum, benefitList, patPlans, planList, DateTime.Today, subList);
//Validate
double insUsed = InsPlans.GetInsUsedDisplay(histList, DateTime.Today, plan.PlanNum, patPlan.PatPlanNum, -1, planList, benefitList, pat.PatNum, subNum);
Assert.AreEqual(59, insUsed);
}
///<summary>Gets most of the data needed to load the active treatment plan.</summary>
///<param name="doFillHistList">If false, then LoadActiveTPData.HistList will be null.</param>
public static LoadActiveTPData GetLoadActiveTpData(Patient pat, long treatPlanNum, List <Benefit> listBenefits, List <PatPlan> listPatPlans,
List <InsPlan> listInsPlans, DateTime dateTimeTP, List <InsSub> listInsSubs, bool doFillHistList, bool isTreatPlanSortByTooth,
List <SubstitutionLink> listSubstLinks)
{
if (RemotingClient.RemotingRole == RemotingRole.ClientWeb) //Remoting role check here to reduce round-trips to the server.
{
return(Meth.GetObject <LoadActiveTPData>(MethodBase.GetCurrentMethod(), pat, treatPlanNum, listBenefits, listPatPlans, listInsPlans, dateTimeTP,
listInsSubs, doFillHistList, isTreatPlanSortByTooth, listSubstLinks));
}
LoadActiveTPData data = new LoadActiveTPData();
data.ListTreatPlanAttaches = TreatPlanAttaches.GetAllForTreatPlan(treatPlanNum);
List <Procedure> listProcs = Procedures.GetManyProc(data.ListTreatPlanAttaches.Select(x => x.ProcNum).ToList(), false);
data.listProcForTP = Procedures.SortListByTreatPlanPriority(listProcs.FindAll(x => x.ProcStatus == ProcStat.TP || x.ProcStatus == ProcStat.TPi)
, isTreatPlanSortByTooth, data.ListTreatPlanAttaches).ToList();
//One thing to watch out for here is that we must be absolutely sure to include all claimprocs for the procedures listed,
//regardless of status. Needed for Procedures.ComputeEstimates. This should be fine.
data.ClaimProcList = ClaimProcs.RefreshForTP(pat.PatNum);
if (doFillHistList)
{
data.HistList = ClaimProcs.GetHistList(pat.PatNum, listBenefits, listPatPlans, listInsPlans, -1, dateTimeTP, listInsSubs);
}
List <ProcedureCode> listProcedureCodes = new List <ProcedureCode>();
foreach (Procedure procedure in listProcs)
{
listProcedureCodes.Add(ProcedureCodes.GetProcCode(procedure.CodeNum));
}
data.ListFees = Fees.GetListFromObjects(listProcedureCodes, listProcs.Select(x => x.MedicalCode).ToList(), listProcs.Select(x => x.ProvNum).ToList(),
pat.PriProv, pat.SecProv, pat.FeeSched, listInsPlans, listProcs.Select(x => x.ClinicNum).ToList(), null,//appts can be null because provs already set
listSubstLinks, pat.DiscountPlanNum);
return(data);
}
///<summary>Gets a good chunk of the data used in the TP Module.</summary>
public static TPModuleData GetModuleData(long patNum, bool doMakeSecLog)
{
if (RemotingClient.RemotingRole == RemotingRole.ClientWeb) //Remoting role check here to reduce round-trips to the server.
{
return(Meth.GetObject <TPModuleData>(MethodBase.GetCurrentMethod(), patNum, doMakeSecLog));
}
TPModuleData tpData = new TPModuleData();
tpData.Fam = Patients.GetFamily(patNum);
tpData.Pat = tpData.Fam.GetPatient(patNum);
tpData.PatPlanList = PatPlans.Refresh(patNum);
if (!PatPlans.IsPatPlanListValid(tpData.PatPlanList))
{
//PatPlans had invalid references and need to be refreshed.
tpData.PatPlanList = PatPlans.Refresh(patNum);
}
tpData.SubList = InsSubs.RefreshForFam(tpData.Fam);
tpData.InsPlanList = InsPlans.RefreshForSubList(tpData.SubList);
tpData.BenefitList = Benefits.Refresh(tpData.PatPlanList, tpData.SubList);
tpData.ClaimList = Claims.Refresh(tpData.Pat.PatNum);
tpData.HistList = ClaimProcs.GetHistList(tpData.Pat.PatNum, tpData.BenefitList, tpData.PatPlanList, tpData.InsPlanList, DateTime.Today,
tpData.SubList);
tpData.ListSubstLinks = SubstitutionLinks.GetAllForPlans(tpData.InsPlanList);
TreatPlanType tpTypeCur = (tpData.Pat.DiscountPlanNum == 0?TreatPlanType.Insurance:TreatPlanType.Discount);
TreatPlans.AuditPlans(patNum, tpTypeCur);
tpData.ListProcedures = Procedures.Refresh(patNum);
tpData.ListTreatPlans = TreatPlans.GetAllForPat(patNum);
tpData.ArrProcTPs = ProcTPs.Refresh(patNum);
if (doMakeSecLog)
{
SecurityLogs.MakeLogEntry(Permissions.TPModule, patNum, "");
}
return(tpData);
}
///<summary>Gets most of the data necessary to fill the static text fields.</summary>
public static StaticTextData GetStaticTextData(Patient pat, Family fam, List <long> listProcCodeNums)
{
if (RemotingClient.RemotingRole == RemotingRole.ClientWeb)
{
return(Meth.GetObject <StaticTextData>(MethodBase.GetCurrentMethod(), pat, fam, listProcCodeNums));
}
StaticTextData data = new StaticTextData();
data.PatNote = PatientNotes.Refresh(pat.PatNum, pat.Guarantor);
data.ListRefAttaches = RefAttaches.Refresh(pat.PatNum);
data.ListSubs = InsSubs.RefreshForFam(fam);
data.ListPlans = InsPlans.RefreshForSubList(data.ListSubs);
data.ListPatPlans = PatPlans.Refresh(pat.PatNum);
data.ListBenefits = Benefits.Refresh(data.ListPatPlans, data.ListSubs);
data.HistList = ClaimProcs.GetHistList(pat.PatNum, data.ListBenefits, data.ListPatPlans, data.ListPlans, DateTime.Today, data.ListSubs);
data.ListTreatPlans = TreatPlans.Refresh(pat.PatNum);
data.ListRecallsForFam = Recalls.GetList(fam.ListPats.Select(x => x.PatNum).ToList());
data.ListAppts = Appointments.GetListForPat(pat.PatNum);
data.ListFutureApptsForFam = Appointments.GetFutureSchedApts(fam.ListPats.Select(x => x.PatNum).ToList());
data.ListDiseases = Diseases.Refresh(pat.PatNum, true);
data.ListAllergies = Allergies.GetAll(pat.PatNum, false);
data.ListMedicationPats = MedicationPats.Refresh(pat.PatNum, false);
data.ListFamPopups = Popups.GetForFamily(pat);
data.ListProceduresSome = Procedures.RefreshForProcCodeNums(pat.PatNum, listProcCodeNums);
return(data);
}
public void InsPlan_GetDedRemainDisplay_IndividualAndFamilyDeductiblesInsRemaining()
{
string suffix = "20";
Patient pat = PatientT.CreatePatient(suffix); //guarantor
long patNum = pat.PatNum;
Patient pat2 = PatientT.CreatePatient(suffix);
PatientT.SetGuarantor(pat2, pat.PatNum);
Patient pat3 = PatientT.CreatePatient(suffix);
PatientT.SetGuarantor(pat3, pat.PatNum);
Carrier carrier = CarrierT.CreateCarrier(suffix);
InsPlan plan = InsPlanT.CreateInsPlan(carrier.CarrierNum);
long planNum = plan.PlanNum;
InsSub sub = InsSubT.CreateInsSub(pat.PatNum, planNum); //guarantor is subscriber
long subNum = sub.InsSubNum;
PatPlan patPlan = PatPlanT.CreatePatPlan(1, pat.PatNum, subNum); //all three patients have the same plan
PatPlan patPlan2 = PatPlanT.CreatePatPlan(1, pat2.PatNum, subNum); //all three patients have the same plan
PatPlan patPlan3 = PatPlanT.CreatePatPlan(1, pat3.PatNum, subNum); //all three patients have the same plan
BenefitT.CreateDeductibleGeneral(planNum, BenefitCoverageLevel.Individual, 75);
BenefitT.CreateDeductibleGeneral(planNum, BenefitCoverageLevel.Family, 150);
ClaimProcT.AddInsUsedAdjustment(pat3.PatNum, planNum, 0, subNum, 75); //Adjustment goes on the third patient
Procedure proc = ProcedureT.CreateProcedure(pat2, "D2750", ProcStat.C, "20", 1280); //proc for second patient with a deductible already applied.
ClaimProcT.AddInsPaid(pat2.PatNum, planNum, proc.ProcNum, 304, subNum, 50, 597);
proc = ProcedureT.CreateProcedure(pat, "D4355", ProcStat.TP, "", 135); //proc is for the first patient
long procNum = proc.ProcNum;
//Lists
List <ClaimProc> claimProcs = ClaimProcs.Refresh(patNum);
Family fam = Patients.GetFamily(patNum);
List <InsSub> subList = InsSubs.RefreshForFam(fam);
List <InsPlan> planList = InsPlans.RefreshForSubList(subList);
List <PatPlan> patPlans = PatPlans.Refresh(patNum);
List <Benefit> benefitList = Benefits.Refresh(patPlans, subList);
List <ClaimProcHist> histList = ClaimProcs.GetHistList(patNum, benefitList, patPlans, planList, DateTime.Today, subList);
List <ClaimProcHist> loopList = new List <ClaimProcHist>();
//Validate
List <ClaimProcHist> HistList = ClaimProcs.GetHistList(pat.PatNum, benefitList, patPlans, planList, DateTime.Today, subList);
double dedFam = Benefits.GetDeductGeneralDisplay(benefitList, planNum, patPlan.PatPlanNum, BenefitCoverageLevel.Family);
double ded = Benefits.GetDeductGeneralDisplay(benefitList, planNum, patPlan.PatPlanNum, BenefitCoverageLevel.Individual);
double dedRem = InsPlans.GetDedRemainDisplay(HistList, DateTime.Today, planNum, patPlan.PatPlanNum, -1, planList, pat.PatNum, ded, dedFam); //test family and individual deductible together
Assert.AreEqual(25, dedRem);
dedRem = InsPlans.GetDedRemainDisplay(HistList, DateTime.Today, planNum, patPlan.PatPlanNum, -1, planList, pat.PatNum, ded, -1); //test individual deductible by itself
Assert.AreEqual(75, dedRem);
}
///<summary>Computes the claimproc estimates for all TP procedures belonging to the specified patient. Returns the claimprocs.</summary>
public static List <ClaimProc> ComputeEstimates(Patient pat, List <PatPlan> listPatPlans, List <InsPlan> listPlans, List <InsSub> listSubs,
List <Benefit> listBens, DateTime dateCalc)
{
List <ClaimProc> claimProcs = ClaimProcs.Refresh(pat.PatNum);
List <ClaimProc> claimProcListOld = claimProcs.Select(x => x.Copy()).ToList();
List <ClaimProcHist> histList = ClaimProcs.GetHistList(pat.PatNum, listBens, listPatPlans, listPlans, dateCalc, listSubs);
List <ClaimProcHist> loopList = new List <ClaimProcHist>();
List <Procedure> ProcList = Procedures.Refresh(pat.PatNum);
Procedure[] ProcListTP = Procedures.GetListTPandTPi(ProcList); //sorted by priority, then toothnum
for (int i = 0; i < ProcListTP.Length; i++)
{
Procedures.ComputeEstimates(ProcListTP[i], pat.PatNum, ref claimProcs, false, listPlans, listPatPlans, listBens,
histList, loopList, false, pat.Age, listSubs);
//then, add this information to loopList so that the next procedure is aware of it.
loopList.AddRange(ClaimProcs.GetHistForProc(claimProcs, ProcListTP[i].ProcNum, ProcListTP[i].CodeNum));
}
//save changes in the list to the database
ClaimProcs.Synch(ref claimProcs, claimProcListOld);
return(ClaimProcs.Refresh(pat.PatNum));
}
///<summary>Gets most of the data needed to load the active treatment plan.</summary>
///<param name="doFillHistList">If false, then LoadActiveTPData.HistList will be null.</param>
public static LoadActiveTPData GetLoadActiveTpData(long patNum, long treatPlanNum, List <Benefit> listBenefits, List <PatPlan> listPatPlans,
List <InsPlan> listInsPlans, DateTime dateTimeTP, List <InsSub> listInsSubs, bool doFillHistList)
{
if (RemotingClient.RemotingRole == RemotingRole.ClientWeb) //Remoting role check here to reduce round-trips to the server.
{
return(Meth.GetObject <LoadActiveTPData>(MethodBase.GetCurrentMethod(), patNum, treatPlanNum, listBenefits, listPatPlans, listInsPlans, dateTimeTP,
listInsSubs, doFillHistList));
}
LoadActiveTPData data = new LoadActiveTPData();
data.ListTreatPlanAttaches = TreatPlanAttaches.GetAllForTreatPlan(treatPlanNum);
data.listProcForTP = Procedures.GetListTPandTPi(Procedures.GetManyProc(data.ListTreatPlanAttaches.Select(x => x.ProcNum).ToList(), false),
data.ListTreatPlanAttaches).ToList();
//One thing to watch out for here is that we must be absolutely sure to include all claimprocs for the procedures listed,
//regardless of status. Needed for Procedures.ComputeEstimates. This should be fine.
data.ClaimProcList = ClaimProcs.RefreshForTP(patNum);
if (doFillHistList)
{
data.HistList = ClaimProcs.GetHistList(patNum, listBenefits, listPatPlans, listInsPlans, -1, dateTimeTP, listInsSubs);
}
data.ListSubLinks = SubstitutionLinks.GetAllForPlans(listInsPlans);
return(data);
}
public void FillInsInfo()
{
//Broken during overhaul of 6.7, fixed in 6.8 by DrTech
textPriMax.Text = "";
textPriDed.Text = "";
textPriDedFam.Text = "";
textPriDedRem.Text = "";
textPriUsed.Text = "";
textPriPend.Text = "";
textPriRem.Text = "";
textSecMax.Text = "";
textSecDed.Text = "";
textSecDedFam.Text = "";
textSecDedRem.Text = "";
textSecUsed.Text = "";
textSecPend.Text = "";
textSecRem.Text = "";
if (PatCur == null) //redundant
{
return;
}
List <InsSub> SubList = InsSubs.RefreshForFam(FamCur);
List <InsPlan> InsPlanList = InsPlans.RefreshForSubList(SubList);
List <PatPlan> PatPlanList = PatPlans.Refresh(PatCur.PatNum);
List <Benefit> BenefitList = Benefits.Refresh(PatPlanList, SubList);
List <ClaimProc> ClaimProcList = ClaimProcs.Refresh(PatCur.PatNum);
List <ClaimProcHist> HistList = ClaimProcs.GetHistList(PatCur.PatNum, BenefitList, PatPlanList, InsPlanList, DateTime.Today, SubList);
double max = 0;
double ded = 0;
double dedFam = 0;
double dedUsed = 0;
double remain = 0;
double pend = 0;
double used = 0;
InsPlan PlanCur; //=new InsPlan();
if (PatPlanList.Count > 0)
{
PlanCur = InsPlans.GetPlan(InsSubs.GetOne(PatPlanList[0].InsSubNum).PlanNum, InsPlanList);
pend = InsPlans.GetPendingDisplay(HistList, DateTime.Today, PlanCur, PatPlanList[0].PatPlanNum, -1, PatCur.PatNum, PatPlanList[0].InsSubNum, BenefitList);
used = InsPlans.GetInsUsedDisplay(HistList, DateTime.Today, PlanCur.PlanNum, PatPlanList[0].PatPlanNum,
-1, InsPlanList, BenefitList, PatCur.PatNum, PatPlanList[0].InsSubNum);
textPriPend.Text = pend.ToString("F");
textPriUsed.Text = used.ToString("F");
max = Benefits.GetAnnualMaxDisplay(BenefitList, PlanCur.PlanNum, PatPlanList[0].PatPlanNum, false);
if (max == -1) //if annual max is blank
{
textPriMax.Text = "";
textPriRem.Text = "";
}
else
{
remain = max - used - pend;
if (remain < 0)
{
remain = 0;
}
textPriMax.Text = max.ToString("F");
textPriRem.Text = remain.ToString("F");
}
//deductible:
ded = Benefits.GetDeductGeneralDisplay(BenefitList, PlanCur.PlanNum, PatPlanList[0].PatPlanNum, BenefitCoverageLevel.Individual);
dedFam = Benefits.GetDeductGeneralDisplay(BenefitList, PlanCur.PlanNum, PatPlanList[0].PatPlanNum, BenefitCoverageLevel.Family);
if (ded != -1)
{
textPriDed.Text = ded.ToString("F");
dedUsed = InsPlans.GetDedUsedDisplay(HistList, DateTime.Today, PlanCur.PlanNum, PatPlanList[0].PatPlanNum, -1, InsPlanList,
BenefitCoverageLevel.Individual, PatCur.PatNum);
textPriDedRem.Text = (ded - dedUsed).ToString("F");
}
if (dedFam != -1)
{
textPriDedFam.Text = dedFam.ToString("F");
}
}
if (PatPlanList.Count > 1)
{
PlanCur = InsPlans.GetPlan(InsSubs.GetOne(PatPlanList[0].InsSubNum).PlanNum, InsPlanList);
pend = InsPlans.GetPendingDisplay(HistList, DateTime.Today, PlanCur, PatPlanList[1].PatPlanNum, -1, PatCur.PatNum, PatPlanList[1].InsSubNum, BenefitList);
textSecPend.Text = pend.ToString("F");
used = InsPlans.GetInsUsedDisplay(HistList, DateTime.Today, PlanCur.PlanNum, PatPlanList[1].PatPlanNum, -1,
InsPlanList, BenefitList, PatCur.PatNum, PatPlanList[1].InsSubNum);
textSecUsed.Text = used.ToString("F");
max = Benefits.GetAnnualMaxDisplay(BenefitList, PlanCur.PlanNum, PatPlanList[1].PatPlanNum, false);
if (max == -1)
{
textSecMax.Text = "";
textSecRem.Text = "";
}
else
{
remain = max - used - pend;
if (remain < 0)
{
remain = 0;
}
textSecMax.Text = max.ToString("F");
textSecRem.Text = remain.ToString("F");
}
ded = Benefits.GetDeductGeneralDisplay(BenefitList, PlanCur.PlanNum, PatPlanList[1].PatPlanNum, BenefitCoverageLevel.Individual);
dedFam = Benefits.GetDeductGeneralDisplay(BenefitList, PlanCur.PlanNum, PatPlanList[1].PatPlanNum, BenefitCoverageLevel.Family);
if (ded != -1)
{
textSecDed.Text = ded.ToString("F");
dedUsed = InsPlans.GetDedUsedDisplay(HistList, DateTime.Today, PlanCur.PlanNum, PatPlanList[1].PatPlanNum, -1, InsPlanList,
BenefitCoverageLevel.Individual, PatCur.PatNum);
textSecDedRem.Text = (ded - dedUsed).ToString("F");
}
if (dedFam != -1)
{
textSecDedFam.Text = dedFam.ToString("F");
}
}
/*
* //**only different line from tx pl routine fillsummary
* if(PatPlanList.Count == 0) {
* labelInsLeft.Text = Lan.g(this,"No Ins.");
* labelInsLeftAmt.Text = "";
* }
* else {
* labelInsLeft.Text = Lan.g(this,"Ins. Left");
* labelInsLeftAmt.Text = textPriRem.Text;
* }*/
}
///<summary>Runs the required queries to populate the necessary StaticTextData fields corresponding to staticTextDependencies.</summary>
private void LoadData(StaticTextFieldDependency staticTextDependencies, Patient pat, Family fam, List <long> listProcCodeNums)
{
bool isMiddleTier = (RemotingClient.RemotingRole == RemotingRole.ServerWeb);
System.Diagnostics.Stopwatch timer = null;
if (ODBuild.IsDebug())
{
timer = new System.Diagnostics.Stopwatch();
timer.Start();
}
if (staticTextDependencies.HasFlag(StaticTextFieldDependency.Pat))
{
//patient should already be loaded.
}
if (fam == null && staticTextDependencies.HasFlag(StaticTextFieldDependency.Fam))
{
fam = Patients.GetFamily(pat.PatNum);
}
if (PatNote == null)
{
if (staticTextDependencies.HasFlag(StaticTextFieldDependency.PatNote))
{
PatNote = PatientNotes.Refresh(pat.PatNum, pat.Guarantor);
}
else
{
PatNote = new PatientNote();
}
}
bool IsQueryNeeded <T>(ref List <T> list, StaticTextFieldDependency dependency)
{
if (list == null || (isMiddleTier && list.Count == 0)) //Middle Tier deserializes null lists to empty lists.
{
if (staticTextDependencies.HasFlag(dependency))
{
return(true);
}
else
{
list = new List <T>();
}
}
return(false);
}
if (IsQueryNeeded(ref ListRefAttaches, StaticTextFieldDependency.ListRefAttaches))
{
ListRefAttaches = RefAttaches.Refresh(pat.PatNum);
}
if (IsQueryNeeded(ref ListInsSubs, StaticTextFieldDependency.ListInsSubs))
{
ListInsSubs = InsSubs.RefreshForFam(fam);
}
if (IsQueryNeeded(ref ListInsPlans, StaticTextFieldDependency.ListInsPlans))
{
ListInsPlans = InsPlans.RefreshForSubList(ListInsSubs);
}
if (IsQueryNeeded(ref ListPatPlans, StaticTextFieldDependency.ListPatPlans))
{
ListPatPlans = PatPlans.Refresh(pat.PatNum);
}
if (IsQueryNeeded(ref ListBenefits, StaticTextFieldDependency.ListBenefits))
{
ListBenefits = Benefits.Refresh(ListPatPlans, ListInsSubs);
}
if (IsQueryNeeded(ref HistList, StaticTextFieldDependency.HistList))
{
HistList = ClaimProcs.GetHistList(pat.PatNum, ListBenefits, ListPatPlans, ListInsPlans, DateTime.Today, ListInsSubs);
}
if (IsQueryNeeded(ref ListTreatPlans, StaticTextFieldDependency.ListTreatPlans))
{
ListTreatPlans = TreatPlans.Refresh(pat.PatNum);
}
if (IsQueryNeeded(ref ListRecallsForFam, StaticTextFieldDependency.ListRecallsForFam))
{
ListRecallsForFam = Recalls.GetList(fam.ListPats.Select(x => x.PatNum).ToList());
}
if (IsQueryNeeded(ref ListAppts, StaticTextFieldDependency.ListAppts))
{
ListAppts = Appointments.GetListForPat(pat.PatNum);
}
if (IsQueryNeeded(ref ListFutureApptsForFam, StaticTextFieldDependency.ListFutureApptsForFam))
{
ListFutureApptsForFam = Appointments.GetFutureSchedApts(fam.ListPats.Select(x => x.PatNum).ToList());
}
if (IsQueryNeeded(ref ListDiseases, StaticTextFieldDependency.ListDiseases))
{
ListDiseases = Diseases.Refresh(pat.PatNum, true);
}
if (IsQueryNeeded(ref ListAllergies, StaticTextFieldDependency.ListAllergies))
{
ListAllergies = Allergies.GetAll(pat.PatNum, false);
}
if (IsQueryNeeded(ref ListMedicationPats, StaticTextFieldDependency.ListMedicationPats))
{
ListMedicationPats = MedicationPats.Refresh(pat.PatNum, false);
}
if (IsQueryNeeded(ref ListFamPopups, StaticTextFieldDependency.ListFamPopups))
{
ListFamPopups = Popups.GetForFamily(pat);
}
if (IsQueryNeeded(ref ListProceduresSome, StaticTextFieldDependency.ListProceduresSome))
{
ListProceduresSome = Procedures.RefreshForProcCodeNums(pat.PatNum, listProcCodeNums);
}
if (IsQueryNeeded(ref ListProceduresPat, StaticTextFieldDependency.ListProceduresPat))
{
ListProceduresPat = Procedures.Refresh(pat.PatNum);
}
if (IsQueryNeeded(ref ListPlannedAppts, StaticTextFieldDependency.ListPlannedAppts))
{
ListPlannedAppts = new List <PlannedAppt>();
PlannedAppt plannedAppt = PlannedAppts.GetOneOrderedByItemOrder(pat.PatNum);
if (plannedAppt != null)
{
ListPlannedAppts.Add(plannedAppt);
}
}
if (ODBuild.IsDebug())
{
timer.Stop();
Console.WriteLine("Static text field query time (ms): " + timer.ElapsedMilliseconds);
}
}