public void LedgersTests_ComputeAging_PayPlanDynamicCreditsWithClaimProcs()
{
List <Procedure> listProcs = new List <Procedure>();
List <Adjustment> listAdjs = new List <Adjustment>();
long provNum = ProviderT.CreateProvider("Aging_PayPlanDynamic");
string suffix = MethodBase.GetCurrentMethod().Name;
Patient pat = PatientT.CreatePatient(fName: "Aging_PayPlanDynamic", suffix: suffix);
Family fam = Patients.GetFamily(pat.PatNum);
Procedure proc45 = ProcedureT.CreateProcedure(pat, "D0210", ProcStat.C, "", 45, DateTime.Today.AddDays(-61), provNum: provNum);
ClaimProc cp45 = new ClaimProc();
InsuranceInfo insInfo = InsuranceT.AddInsurance(pat, "DynPayPlan");
ClaimProcs.CreateEst(cp45, proc45, insInfo.PriInsPlan, insInfo.PriInsSub);
cp45.Status = ClaimProcStatus.NotReceived;
cp45.InsEstTotal = -1;
cp45.InsPayEst = 15;
cp45.WriteOffEst = 0;
cp45.WriteOff = 0;
ClaimProcs.Update(cp45);
listProcs.AddRange(new List <Procedure> {
proc45
});
PayPlan payPlan = PayPlanT.CreateDynamicPaymentPlan(pat.PatNum, pat.PatNum, DateTime.Today.AddDays(-1), 0, 0, 30, listProcs, listAdjs);
//make two non payplan productions to put on the account
Procedure procUnattached = ProcedureT.CreateProcedure(pat, "D0210", ProcStat.C, "", 35, DateTime.Today.AddDays(-91), provNum: provNum);
//Run pay plan logic to generate first set of charges
List <PayPlanCharge> listChargesDb = PayPlanCharges.GetForPayPlan(payPlan.PayPlanNum);
List <PayPlanLink> listEntries = PayPlanLinks.GetForPayPlans(new List <long> {
payPlan.PayPlanNum
});
PayPlanTerms terms = PayPlanT.GetTerms(payPlan, listEntries);
List <PayPlanCharge> listChargesThisPeriod = PayPlanEdit.GetListExpectedCharges(listChargesDb, terms, fam, listEntries, payPlan, true);
Assert.AreEqual(30, listChargesThisPeriod.Sum(x => x.Principal));
foreach (PayPlanCharge charge in listChargesThisPeriod)
{
PayPlanCharges.Insert(charge);
}
int payPlansVersionPrev = PrefC.GetInt(PrefName.PayPlansVersion);
try {
PrefT.UpdateInt(PrefName.PayPlansVersion, (int)PayPlanVersions.AgeCreditsAndDebits);
CheckAgingProcLifo(pat.PatNum, 30, 0, 15, 35, 30, YN.Yes); //new - pay plan credit of $30 gets applied to cooresponding procedure
CheckAgingProcLifo(pat.PatNum, 30, 0, 45, 5, 30, YN.No); //old - pay plan credit gets applied to oldest production on the account
CheckAgingProcLifo(pat.PatNum, 30, 0, 45, 5, 30, YN.Unknown);
}
finally {
PrefT.UpdateInt(PrefName.PayPlansVersion, payPlansVersionPrev);
}
}
public void LedgersTests_ComputeAging_PayPlanDynamic()
{
List <Procedure> listProcs = new List <Procedure>();
List <Adjustment> listAdjs = new List <Adjustment>();
long provNum = ProviderT.CreateProvider("Aging_PayPlanDynamic");
string suffix = MethodBase.GetCurrentMethod().Name;
Patient pat = PatientT.CreatePatient(fName: "Aging_PayPlanDynamic", suffix: suffix);
Family fam = Patients.GetFamily(pat.PatNum);
Procedure proc1 = ProcedureT.CreateProcedure(pat, "D0210", ProcStat.C, "", 45, DateTime.Today.AddDays(-61), provNum: provNum);
Procedure proc2 = ProcedureT.CreateProcedure(pat, "D0220", ProcStat.C, "", 55, DateTime.Today.AddDays(-32), provNum: provNum);
Procedure proc3 = ProcedureT.CreateProcedure(pat, "D0270", ProcStat.C, "", 65, DateTime.Today.AddDays(-15), provNum: provNum);
Adjustment adjProc2 = AdjustmentT.MakeAdjustment(pat.PatNum, 10, proc2.ProcDate, proc2.ProcDate, proc2.ProcNum, provNum);
Adjustment adjProc3 = AdjustmentT.MakeAdjustment(pat.PatNum, 20, proc3.ProcDate, proc3.ProcDate, proc3.ProcNum, provNum);
Adjustment adj = AdjustmentT.MakeAdjustment(pat.PatNum, 30, DateTime.Today.AddDays(-5), provNum: provNum);
listProcs.AddRange(new List <Procedure> {
proc1, proc2, proc3
});
listAdjs.AddRange(new List <Adjustment> {
adj
});
PayPlan payPlan = PayPlanT.CreateDynamicPaymentPlan(pat.PatNum, pat.PatNum, DateTime.Today.AddDays(-1), 0, 0, 40, listProcs, listAdjs);
//PayPlan payplan=PayPlanT.CreatePayPlanWithCredits(pat.PatNum,40,DateTime.Today,provNum:provNum,listProcs,195,pat.PatNum);
//make two non payplan productions to put on the account
Procedure procUnattached = ProcedureT.CreateProcedure(pat, "D0210", ProcStat.C, "", 35, DateTime.Today.AddDays(-91), provNum: provNum);
//Run pay plan logic to generate first set of charges
List <PayPlanCharge> listChargesDb = PayPlanCharges.GetForPayPlan(payPlan.PayPlanNum);
List <PayPlanLink> listEntries = PayPlanLinks.GetForPayPlans(new List <long> {
payPlan.PayPlanNum
});
PayPlanTerms terms = PayPlanT.GetTerms(payPlan, listEntries);
List <PayPlanCharge> listChargesThisPeriod = PayPlanEdit.GetListExpectedCharges(listChargesDb, terms, fam, listEntries, payPlan, true);
Assert.AreEqual(40, listChargesThisPeriod.Sum(x => x.Principal));
foreach (PayPlanCharge charge in listChargesThisPeriod)
{
PayPlanCharges.Insert(charge);
}
int payPlansVersionPrev = PrefC.GetInt(PrefName.PayPlansVersion);
try {
PrefT.UpdateInt(PrefName.PayPlansVersion, (int)PayPlanVersions.AgeCreditsAndDebits);
CheckAgingProcLifo(pat.PatNum, 70, 0, 0, 5, 40, YN.Yes); //new
CheckAgingProcLifo(pat.PatNum, 75, 0, 0, 0, 40, YN.No); //old
CheckAgingProcLifo(pat.PatNum, 75, 0, 0, 0, 40, YN.Unknown);
}
finally {
PrefT.UpdateInt(PrefName.PayPlansVersion, payPlansVersionPrev);
}
}
public void LedgersTests_ComputeAging_PayPlanDynamicCredits()
{
//first need to create an unrelated pat that also has payment plan data to conflict with ours. This test is specifically to guard against a bug
List <Procedure> listProcs = new List <Procedure>();
List <Adjustment> listAdjs = new List <Adjustment>();
long provNum = ProviderT.CreateProvider("Aging_PayPlanDynamicCredits");
Patient unrelatedPat = PatientT.CreatePatient("unrelatedPatPayPlanDyn");
Procedure procAttach = ProcedureT.CreateProcedure(unrelatedPat, "D0220", ProcStat.C, "", 200, provNum: provNum);
listProcs.Add(procAttach);
listAdjs.Add(AdjustmentT.MakeAdjustment(unrelatedPat.PatNum, 15, DateTime.Today.AddDays(-2), provNum: provNum));
listAdjs.Add(AdjustmentT.MakeAdjustment(unrelatedPat.PatNum, 5, DateTime.Today, DateTime.Today.AddDays(-2), procAttach.ProcNum, provNum));
PayPlanT.CreateDynamicPaymentPlan(unrelatedPat.PatNum, unrelatedPat.PatNum, DateTime.Today.AddDays(-2), 0, 0, 20, listProcs, listAdjs);
string suffix = MethodBase.GetCurrentMethod().Name;
Patient pat = PatientT.CreatePatient(fName: "Aging_PayPlanDynamic", suffix: suffix);
listProcs.Clear();
listAdjs.Clear();
Procedure proc = ProcedureT.CreateProcedure(pat, "D0270", ProcStat.C, "", 65, DateTime.Today.AddDays(-1), provNum: provNum);
Adjustment adj = AdjustmentT.MakeAdjustment(pat.PatNum, 20, DateTime.Today.AddDays(-1), proc.ProcDate, proc.ProcNum, provNum);
listProcs.Add(proc);
listAdjs.Add(adj);
PayPlan payPlan = PayPlanT.CreateDynamicPaymentPlan(pat.PatNum, pat.PatNum, DateTime.Today.AddDays(-1), 0, 0, 30, listProcs, listAdjs);
int payPlansVersionPrev = PrefC.GetInt(PrefName.PayPlansVersion);
try {
PrefT.UpdateInt(PrefName.PayPlansVersion, (int)PayPlanVersions.AgeCreditsAndDebits);
CheckAgingProcLifo(pat.PatNum, 0, 0, 0, 0, 0, YN.Yes);
CheckAgingProcLifo(pat.PatNum, 0, 0, 0, 0, 0, YN.No);
Assert.AreEqual(pat.BalTotal, 0); //everything on account should be credited
}
finally {
PrefT.UpdateInt(PrefName.PayPlansVersion, payPlansVersionPrev);
}
}
