public void PaymentEdit_Init_AutoSplitProcedureGuarantor() //Legacy_TestFortySeven
{
string suffix = "47";
Patient pat = PatientT.CreatePatient(suffix);
Patient patOld = PatientT.CreatePatient(suffix + "fam");
Patient pat2 = patOld.Copy();
long patNum = pat.PatNum;
pat2.Guarantor = patNum;
Patients.Update(pat2, patOld);
long patNum2 = pat2.PatNum;
Procedure procedure1 = ProcedureT.CreateProcedure(pat, "D1110", ProcStat.C, "", 50, DateTime.Now.AddDays(-1));
Procedure procedure2 = ProcedureT.CreateProcedure(pat2, "D0120", ProcStat.C, "", 40, DateTime.Now.AddDays(-2));
Procedure procedure3 = ProcedureT.CreateProcedure(pat, "D0220", ProcStat.C, "", 60, DateTime.Now.AddDays(-3));
Payment payment = PaymentT.MakePaymentNoSplits(patNum, 150, DateTime.Today);
Family famForPat = Patients.GetFamily(patNum);
List <Patient> listFamForPat = famForPat.ListPats.ToList();
PaymentEdit.InitData init = PaymentEdit.Init(listFamForPat, famForPat, new Family {
}, payment, new List <PaySplit>(), new List <Procedure>(), patNum);
//Auto Splits will be in opposite order from least recent to most recent.
Assert.AreEqual(3, init.AutoSplitData.ListSplitsCur.Count);
Assert.IsFalse(init.AutoSplitData.ListSplitsCur[0].SplitAmt != 60 || init.AutoSplitData.ListSplitsCur[0].ProcNum != procedure3.ProcNum ||
init.AutoSplitData.ListSplitsCur[0].PatNum != patNum);
Assert.IsFalse(init.AutoSplitData.ListSplitsCur[1].SplitAmt != 40 || init.AutoSplitData.ListSplitsCur[1].ProcNum != procedure2.ProcNum ||
init.AutoSplitData.ListSplitsCur[1].PatNum != patNum2);
Assert.IsFalse(init.AutoSplitData.ListSplitsCur[2].SplitAmt != 50 || init.AutoSplitData.ListSplitsCur[2].ProcNum != procedure1.ProcNum ||
init.AutoSplitData.ListSplitsCur[2].PatNum != patNum);
}
public void PaymentEdit_AutoSplitForPayment_NoNegativeAutoSplits()
{
long provNumA = ProviderT.CreateProvider("provA");
Patient pat = PatientT.CreatePatient(MethodBase.GetCurrentMethod().Name);
Procedure proc1 = ProcedureT.CreateProcedure(pat, "D0120", ProcStat.C, "", 70);
Procedure proc2 = ProcedureT.CreateProcedure(pat, "D0150", ProcStat.C, "", 20);
//make an overpayment for one of the procedures so it spills over.
DateTime payDate = DateTime.Today;
Payment pay = PaymentT.MakePayment(pat.PatNum, 71, payDate, procNum: proc1.ProcNum); //pre-existing payment
//attempt to make another payment. Auto splits should not suggest a negative split.
Payment newPayment = PaymentT.MakePaymentNoSplits(pat.PatNum, 2, payDate, isNew: true,
payType: Defs.GetDefsForCategory(DefCat.PaymentTypes, true)[0].DefNum);//current payment we're trying to make
PaymentEdit.LoadData loadData = PaymentEdit.GetLoadData(pat, newPayment, new List <long>()
{
pat.PatNum
}, true);
PaymentEdit.ConstructChargesData chargeData = PaymentEdit.GetConstructChargesData(new List <long> {
pat.PatNum
}, pat.PatNum,
PaySplits.GetForPayment(pay.PayNum), pay.PayNum);
PaymentEdit.ConstructResults constructResults = PaymentEdit.ConstructAndLinkChargeCredits(new List <long> {
pat.PatNum
}, pat.PatNum
, chargeData.ListPaySplits, newPayment, new List <Procedure> ());
PaymentEdit.AutoSplit autoSplits = PaymentEdit.AutoSplitForPayment(constructResults);
Assert.AreEqual(0, autoSplits.ListAutoSplits.FindAll(x => x.SplitAmt < 0).Count); //assert no negative auto splits were made.
Assert.AreEqual(0, autoSplits.ListSplitsCur.FindAll(x => x.SplitAmt < 0).Count); //auto splits not catching everything
}
public void PaymentEdit_Init_ChargesWithUnattachedPayPlanCreditsWithPreviousPayments()
{
//new payplan
Patient pat = PatientT.CreatePatient(MethodBase.GetCurrentMethod().Name);
long prov = ProviderT.CreateProvider("ProvA");
Procedure proc1 = ProcedureT.CreateProcedure(pat, "D1120", ProcStat.C, "", 135, DateTime.Today.AddMonths(-4), provNum: prov);
Procedure proc2 = ProcedureT.CreateProcedure(pat, "D0220", ProcStat.C, "", 60, DateTime.Today.AddMonths(-4).AddDays(1), provNum: prov);
PayPlan payplan = PayPlanT.CreatePayPlanWithCredits(pat.PatNum, 30, DateTime.Today.AddMonths(-3), prov, totalAmt: 195); //totalAmt since unattached credits
//Make initial payments.
PaymentT.MakePayment(pat.PatNum, 30, DateTime.Today.AddMonths(-2), payplan.PayPlanNum, prov, 0, 1);
PaymentT.MakePayment(pat.PatNum, 30, DateTime.Today.AddMonths(-1), payplan.PayPlanNum, prov, 0, 1);
//Go to make another payment. 2 pay plan charges should have been "removed" (amtStart to 0) from being paid.
Payment pay = PaymentT.MakePaymentNoSplits(pat.PatNum, 30, DateTime.Today);
PaymentEdit.LoadData loadData = PaymentEdit.GetLoadData(pat, pay, new List <long> {
pat.PatNum
}, true, false);
PaymentEdit.InitData initData = PaymentEdit.Init(loadData.ListAssociatedPatients, Patients.GetFamily(pat.PatNum), new Family {
}, pay
, loadData.ListSplits, new List <Procedure>(), pat.PatNum, loadData: loadData);
//2 procs and 2 pp charges
Assert.AreEqual(4, initData.AutoSplitData.ListAccountCharges.FindAll(x => x.AmountStart > 0).Count);
Assert.AreEqual(2, initData.AutoSplitData.ListAccountCharges.Count(x => x.Tag.GetType() == typeof(Procedure)));
Assert.AreEqual(4, initData.AutoSplitData.ListAccountCharges.Count(x => x.Tag.GetType() == typeof(PayPlanCharge)));
}
public void PaymentEdit_Init_AutoSplitWithClaimPayments() //Legacy_TestFortyEight
{
string suffix = "48";
Patient pat = PatientT.CreatePatient(suffix);
long patNum = pat.PatNum;
InsPlan insPlan = InsPlanT.CreateInsPlan(CarrierT.CreateCarrier(suffix).CarrierNum);
InsSub insSub = InsSubT.CreateInsSub(patNum, insPlan.PlanNum);
PatPlan patPlan = PatPlanT.CreatePatPlan(1, patNum, insSub.InsSubNum);
Procedure procedure1 = ProcedureT.CreateProcedure(pat, "D1110", ProcStat.C, "", 50, DateTime.Now.AddDays(-1));
Procedure procedure2 = ProcedureT.CreateProcedure(pat, "D0120", ProcStat.C, "", 40, DateTime.Now.AddDays(-2));
Procedure procedure3 = ProcedureT.CreateProcedure(pat, "D0220", ProcStat.C, "", 60, DateTime.Now.AddDays(-3));
ClaimProcT.AddInsPaid(patNum, insPlan.PlanNum, procedure1.ProcNum, 20, insSub.InsSubNum, 0, 0);
ClaimProcT.AddInsPaid(patNum, insPlan.PlanNum, procedure2.ProcNum, 5, insSub.InsSubNum, 5, 0);
ClaimProcT.AddInsPaid(patNum, insPlan.PlanNum, procedure3.ProcNum, 20, insSub.InsSubNum, 0, 10);
Payment payment = PaymentT.MakePaymentNoSplits(patNum, 150, DateTime.Today);
Family famForPat = Patients.GetFamily(patNum);
List <Patient> listFamForPat = famForPat.ListPats.ToList();
PaymentEdit.InitData init = PaymentEdit.Init(listFamForPat, famForPat, new Family {
}, payment, new List <PaySplit>(), new List <Procedure>(), patNum);
//Auto Splits will be in opposite order from least recent to most recent.
//ListSplitsCur should contain four splits, 30, 35, and 30, then one unallocated for the remainder of the payment 55.
Assert.AreEqual(4, init.AutoSplitData.ListSplitsCur.Count);
Assert.IsFalse(init.AutoSplitData.ListSplitsCur[0].SplitAmt != 40 || init.AutoSplitData.ListSplitsCur[0].ProcNum != procedure3.ProcNum ||
init.AutoSplitData.ListSplitsCur[0].PatNum != patNum);
Assert.IsFalse(init.AutoSplitData.ListSplitsCur[1].SplitAmt != 35 || init.AutoSplitData.ListSplitsCur[1].ProcNum != procedure2.ProcNum ||
init.AutoSplitData.ListSplitsCur[1].PatNum != patNum);
Assert.IsFalse(init.AutoSplitData.ListSplitsCur[2].SplitAmt != 30 || init.AutoSplitData.ListSplitsCur[2].ProcNum != procedure1.ProcNum ||
init.AutoSplitData.ListSplitsCur[2].PatNum != patNum);
Assert.IsFalse(init.AutoSplitData.ListSplitsCur[3].SplitAmt != 45 || init.AutoSplitData.ListSplitsCur[3].ProcNum != 0);
}
public void PaymentEdit_ConstructAndLinkChargeCredits_ChargesWithAttachedPayPlanCreditsWithPreviousPayments()
{
//new payplan
Patient pat = PatientT.CreatePatient(MethodBase.GetCurrentMethod().Name);
Procedure proc1 = ProcedureT.CreateProcedure(pat, "D1120", ProcStat.C, "", 135, DateTime.Today.AddMonths(-4));
Procedure proc2 = ProcedureT.CreateProcedure(pat, "D0220", ProcStat.C, "", 60, DateTime.Today.AddMonths(-4));
PayPlan payplan = PayPlanT.CreatePayPlanWithCredits(pat.PatNum, 30, DateTime.Today.AddMonths(-3), 0, new List <Procedure>()
{
proc1, proc2
});
//Procedures's amount start should now be 0 from being attached. Make initial payments.
PaymentT.MakePayment(pat.PatNum, 30, DateTime.Today.AddMonths(-2), payplan.PayPlanNum, procNum: proc1.ProcNum);
PaymentT.MakePayment(pat.PatNum, 30, DateTime.Today.AddMonths(-1), payplan.PayPlanNum, procNum: proc1.ProcNum);
//2 pay plan charges should have been removed from being paid. Make a new payment.
Payment pay = PaymentT.MakePaymentNoSplits(pat.PatNum, 30, DateTime.Today, isNew: true, payType: 1);
PaymentEdit.LoadData loadData = PaymentEdit.GetLoadData(pat, pay, new List <long> {
pat.PatNum
}, true);
PaymentEdit.InitData initData = PaymentEdit.Init(loadData.ListAssociatedPatients, Patients.GetFamily(pat.PatNum), new Family {
}, pay
, loadData.ListSplits, new List <Procedure>(), pat.PatNum, loadData: loadData);
//should only see 2 pay plan charges that have not been paid, along with 2 pay plan charges that have been paid.
Assert.AreEqual(2, initData.AutoSplitData.ListAccountCharges.FindAll(x => x.AmountStart > 0).Count);
Assert.AreEqual(4, initData.AutoSplitData.ListAccountCharges.Count(x => x.Tag.GetType() == typeof(PayPlanCharge)));
}
public void PaymentEdit_Init_AutoSplitForPaymentNegativePaymentAmount() //Legacy_TestFortyFour
{
string suffix = "44";
Patient pat = PatientT.CreatePatient(suffix);
long patNum = pat.PatNum;
Procedure procedure1 = ProcedureT.CreateProcedure(pat, "D1110", ProcStat.C, "", 40, DateTime.Now.AddDays(-1));
Payment payment = PaymentT.MakePaymentNoSplits(patNum, -50, DateTime.Today);
Family famForPat = Patients.GetFamily(patNum);
List <Patient> listFamForPat = famForPat.ListPats.ToList();
PaymentEdit.InitData init = PaymentEdit.Init(listFamForPat, famForPat, new Family {
}, payment, new List <PaySplit>(), new List <Procedure>(), patNum);
//Auto Splits will be in opposite order from least recent to most recent.
//ListSplitsCur should contain no paysplits since it doesn't make sense to create negative payments when there are outstanding charges.
Assert.AreEqual(0, init.AutoSplitData.ListSplitsCur.Count);
}
public void PaymentEdit_AllocateUnearned_LinkToOriginalPrepayment()
{
Patient pat = PatientT.CreatePatient(MethodBase.GetCurrentMethod().Name);
//create prepayment of $100
long provNum = ProviderT.CreateProvider("SG");
Clinic clinic1 = ClinicT.CreateClinic("Clinic1");
Family fam = Patients.GetFamily(pat.PatNum);
//create original prepayment.
PaySplit prePay = PaySplitT.CreatePrepayment(pat.PatNum, 100, DateTime.Today.AddDays(-1), provNum, clinic1.ClinicNum);
//complete a procedure
Procedure proc1 = ProcedureT.CreateProcedure(pat, "D1110", ProcStat.C, "", 50, provNum: provNum);
//Setup to run the PaymentEdit.AllocateUnearned
List <PaySplit> listPaySplits = new List <PaySplit>();
List <PaySplit> listFamPrePaySplits = PaySplits.GetPrepayForFam(fam);
//Unearned amount should be $100.
double unearnedAmt = (double)PaySplits.GetUnearnedForFam(fam, listFamPrePaySplits);
Assert.AreEqual(100, unearnedAmt);
//Create the payment we will use to allocate some of the $100 prepayment.
Payment pay = PaymentT.MakePaymentForPrepayment(pat, clinic1);
//Run the AllocateUnearned method. This a list of paysplitAssociated.
//The ref list of paysplits should also have the new paysplits that are associated to the original prepayment.
List <PaySplits.PaySplitAssociated> listPaySplitAssociated = PaymentEdit.AllocateUnearned(new List <Procedure> {
proc1
}, ref listPaySplits, pay, unearnedAmt, fam);
//Insert the paysplits and link the prepayment paysplits. This is similar to what is done when a user creates a payment from FormPayment.cs.
PaySplitT.InsertPrepaymentSplits(listPaySplits, listPaySplitAssociated);
//The ref list of paysplits should have the correct allocated prepayment amount.
Assert.AreEqual(-50, listPaySplits.Where(x => x.UnearnedType != 0).Sum(x => x.SplitAmt));
//Create new procedure
Procedure proc2 = ProcedureT.CreateProcedure(pat, "D1110", ProcStat.C, "", 100, provNum: provNum);
//Now do what we just did again for a new procedure. The unallocated amount should be $50.
listFamPrePaySplits = PaySplits.GetPrepayForFam(fam);
unearnedAmt = (double)PaySplits.GetUnearnedForFam(fam, listFamPrePaySplits);
Assert.AreEqual(50, unearnedAmt);
List <PaySplit> listPaySplitsUnearned = new List <PaySplit>();
pay = PaymentT.MakePaymentForPrepayment(pat, clinic1);
List <PaySplits.PaySplitAssociated> retVal = PaymentEdit.AllocateUnearned(new List <Procedure> {
proc2
}, ref listPaySplitsUnearned, pay, unearnedAmt, fam);
Assert.AreEqual(2, retVal.Count);
Assert.AreEqual(-50, listPaySplitsUnearned.Where(x => x.UnearnedType != 0).Sum(x => x.SplitAmt));
}
public void PaymentEdit_Init_AutoSplitForPaymentNegativePaymentAmountNegProcedure() //Legacy_TestFortySix
{
string suffix = "46";
Patient pat = PatientT.CreatePatient(suffix);
long patNum = pat.PatNum;
Procedure procedure1 = ProcedureT.CreateProcedure(pat, "D1110", ProcStat.C, "", -40, DateTime.Now.AddDays(-1));
Payment payment = PaymentT.MakePaymentNoSplits(patNum, -50, DateTime.Today);
Family famForPat = Patients.GetFamily(patNum);
List <Patient> listFamForPat = famForPat.ListPats.ToList();
PaymentEdit.InitData init = PaymentEdit.Init(listFamForPat, famForPat, new Family {
}, payment, new List <PaySplit>(), new List <Procedure>(), patNum);
//Auto Splits will be in opposite order from least recent to most recent.
//ListSplitsCur should contain one paysplit for the amount passed in that is unallocated.
Assert.AreEqual(1, init.AutoSplitData.ListSplitsCur.Count);
Assert.IsFalse(init.AutoSplitData.ListSplitsCur[0].SplitAmt != -50 || init.AutoSplitData.ListSplitsCur[0].ProcNum != 0);
}
public void PaymentEdit_AutoSplitForPayment_SplitForPaymentLessThanTotalofProcs()
{
Patient pat = PatientT.CreatePatient(MethodBase.GetCurrentMethod().Name);
Procedure proc1 = ProcedureT.CreateProcedure(pat, "D1110", ProcStat.C, "", 40);
Procedure proc2 = ProcedureT.CreateProcedure(pat, "D0120", ProcStat.C, "", 40);
Payment pay = PaymentT.MakePaymentNoSplits(pat.PatNum, 50);
PaymentEdit.LoadData loadData = PaymentEdit.GetLoadData(pat, pay, new List <long> {
pat.PatNum
}, true, false);
PaymentEdit.ConstructResults chargeResult = PaymentEdit.ConstructAndLinkChargeCredits(new List <long> {
pat.PatNum
}, pat.PatNum
, loadData.ConstructChargesData.ListPaySplits, pay, new List <Procedure>());
PaymentEdit.AutoSplit autoSplit = PaymentEdit.AutoSplitForPayment(chargeResult);
Assert.AreEqual(2, autoSplit.ListAutoSplits.Count);
Assert.AreEqual(1, autoSplit.ListAutoSplits.Count(x => x.SplitAmt.IsEqual(40)));
Assert.AreEqual(1, autoSplit.ListAutoSplits.Count(x => x.SplitAmt.IsEqual(10)));
}
public void PaymentEdit_Init_AttachedAdjustment()
{
Patient pat = PatientT.CreatePatient(MethodBase.GetCurrentMethod().Name);
long provNum = ProviderT.CreateProvider("prov1");
Procedure proc = ProcedureT.CreateProcedure(pat, "D0120", ProcStat.C, "", 135, DateTime.Today.AddMonths(-1).AddDays(1), provNum: provNum);
Adjustment adjustment = AdjustmentT.MakeAdjustment(pat.PatNum, 20, DateTime.Today.AddDays(-15), provNum: provNum, procNum: proc.ProcNum);
Payment payCur = PaymentT.MakePaymentNoSplits(pat.PatNum, 20);
PaymentEdit.LoadData loadData = PaymentEdit.GetLoadData(pat, payCur, new List <long> {
pat.PatNum
}, true, false);
PaymentEdit.InitData initData = PaymentEdit.Init(loadData.ListAssociatedPatients, Patients.GetFamily(pat.PatNum), new Family {
}, payCur
, loadData.ListSplits, new List <Procedure>(), pat.PatNum, loadData: loadData);
//Verify there is only one charge (the procedure's charge + the adjustment for the amount original)
Assert.AreEqual(1, initData.AutoSplitData.ListAccountCharges.Count);
Assert.AreEqual(typeof(Procedure), initData.AutoSplitData.ListAccountCharges[0].Tag.GetType());
Assert.AreEqual(155, initData.AutoSplitData.ListAccountCharges[0].AmountOriginal);
}
public void PaymentEdit_Init_AdjustmentPreferWithPosAdjustment()
{
PrefT.UpdateInt(PrefName.AutoSplitLogic, (int)AutoSplitPreference.Adjustments);
Patient pat = PatientT.CreatePatient(MethodBase.GetCurrentMethod().Name);
long provNum = ProviderT.CreateProvider("prov1");
Procedure proc1 = ProcedureT.CreateProcedure(pat, "D0220", ProcStat.C, "", 75, DateTime.Today.AddMonths(-1), provNum: provNum);
Procedure proc2 = ProcedureT.CreateProcedure(pat, "D0120", ProcStat.C, "", 135, DateTime.Today.AddMonths(-1).AddDays(1), provNum: provNum);
Adjustment adjustment = AdjustmentT.MakeAdjustment(pat.PatNum, 20, DateTime.Today.AddDays(-15), provNum: provNum);
Payment payCur = PaymentT.MakePaymentNoSplits(pat.PatNum, 20);
PaymentEdit.LoadData loadData = PaymentEdit.GetLoadData(pat, payCur, new List <long> {
pat.PatNum
}, true, false);
PaymentEdit.InitData initData = PaymentEdit.Init(loadData.ListAssociatedPatients, Patients.GetFamily(pat.PatNum), new Family {
}, payCur
, loadData.ListSplits, new List <Procedure>(), pat.PatNum, loadData: loadData);
//Verify the logic chooses to pay off the adjustment first
Assert.AreEqual(1, initData.AutoSplitData.ListAccountCharges.Count(x => x.Tag.GetType() == typeof(Adjustment) && x.AmountEnd == 0));
}
public void PaymentEdit_Init_AutoSplitOverAllocation() //Legacy_TestFortyThree
{
string suffix = "43";
Patient pat = PatientT.CreatePatient(suffix);
long patNum = pat.PatNum;
Procedure procedure1 = ProcedureT.CreateProcedure(pat, "D1110", ProcStat.C, "", 40, DateTime.Now.AddDays(-1));
Procedure procedure2 = ProcedureT.CreateProcedure(pat, "D0120", ProcStat.C, "", 60, DateTime.Now.AddDays(-2));
Procedure procedure3 = ProcedureT.CreateProcedure(pat, "D0220", ProcStat.C, "", 80, DateTime.Now.AddDays(-3));
Payment payment1 = PaymentT.MakePayment(patNum, 200, DateTime.Now.AddDays(-2));
Payment payment2 = PaymentT.MakePaymentNoSplits(patNum, 50, DateTime.Today);
Family famForPat = Patients.GetFamily(patNum);
List <Patient> listFamForPat = famForPat.ListPats.ToList();
PaymentEdit.InitData init = PaymentEdit.Init(listFamForPat, famForPat, new Family {
}, payment2, new List <PaySplit>(), new List <Procedure>(), patNum);
//Auto Splits will be in opposite order from least recent to most recent.
//ListSplitsCur should contain one paysplit worth 50 and not attached to any procedures.
Assert.AreEqual(1, init.AutoSplitData.ListSplitsCur.Count);
Assert.IsFalse(init.AutoSplitData.ListSplitsCur[0].SplitAmt != 50 || init.AutoSplitData.ListSplitsCur[0].ProcNum != 0);
}
public void LedgersTests_ComputeAgingForPaysplitsAllocatedToDiffPats()
{
string suffix = MethodBase.GetCurrentMethod().Name;
Patient patDad = PatientT.CreatePatient(fName: "Father", suffix: suffix); //Father-guarantor
Patient patChild = PatientT.CreatePatient(fName: "Child", suffix: suffix); //Child
PatientT.SetGuarantor(patChild, patDad.PatNum);
Procedure proc1 = ProcedureT.CreateProcedure(patChild, "D1110", ProcStat.C, "", 50, DateTime.Today.AddDays(-45));
Procedure proc2 = ProcedureT.CreateProcedure(patChild, "D0120", ProcStat.C, "", 40, DateTime.Today.AddDays(-45));
Ledgers.ComputeAging(patDad.PatNum, DateTime.Today);
patDad = Patients.GetPat(patDad.PatNum);
Assert.AreEqual(90, patDad.Bal_31_60);
Patient patMom = PatientT.CreatePatient(fName: "Mom", suffix: suffix); //Mom is not associated to the father and childs account
long patNum = patMom.PatNum;
//complete procedures for patMom.
Procedure proc3 = ProcedureT.CreateProcedure(patMom, "D1110", ProcStat.C, "", 50, DateTime.Today.AddDays(-1));
Procedure proc4 = ProcedureT.CreateProcedure(patMom, "D0120", ProcStat.C, "", 40, DateTime.Today.AddDays(-1));
//Compute aging. Check that the aging is correct before we continue
Ledgers.ComputeAging(patNum, DateTime.Today);
patMom = Patients.GetPat(patNum);
Assert.AreEqual(90, patMom.Bal_0_30);
//patMom will now make a payment for her procedures and patChilds
Payment pay = PaymentT.MakePaymentNoSplits(patNum, 100, clinicNum: proc3.ClinicNum);
List <PaySplit> listPaySplits = new List <PaySplit>();
listPaySplits.Add(PaySplitT.CreateSplit(proc3.ClinicNum, patNum, pay.PayNum, 0, DateTime.Today, proc3.ProcNum, proc3.ProvNum, 50, 0));
//Create a paysplit for patChild. PatChild is from a different family.
listPaySplits.Add(PaySplitT.CreateSplit(proc1.ClinicNum, patChild.PatNum, pay.PayNum, 0, DateTime.Today, proc1.ProcNum, proc1.ProvNum, 50, 0));
//This should compute the aging for the
string strErrorMsg = Ledgers.ComputeAgingForPaysplitsAllocatedToDiffPats(patNum, listPaySplits);
Assert.IsTrue(string.IsNullOrEmpty(strErrorMsg));
patDad = Patients.GetPat(patDad.PatNum);
Assert.AreEqual(40, patDad.Bal_31_60);
//Compute patMom aging to verify that it is correct.
Ledgers.ComputeAging(patNum, DateTime.Today);
patMom = Patients.GetPat(patNum);
Assert.AreEqual(40, patMom.Bal_0_30);
}
public void PaymentEdit_Init_PayPlanChargesWithUnattachedCredits()
{
//new payplan
Patient pat = PatientT.CreatePatient(MethodBase.GetCurrentMethod().Name);
Procedure proc1 = ProcedureT.CreateProcedure(pat, "D1120", ProcStat.C, "", 135, DateTime.Today.AddMonths(-4));
Procedure proc2 = ProcedureT.CreateProcedure(pat, "D0220", ProcStat.C, "", 60, DateTime.Today.AddMonths(-4));
PayPlan payplan = PayPlanT.CreatePayPlanWithCredits(pat.PatNum, 30, DateTime.Today.AddMonths(-3), 0, totalAmt: 195);
//Go to make a payment for the charges due
Payment pay = PaymentT.MakePaymentNoSplits(pat.PatNum, 60, DateTime.Today);
PaymentEdit.LoadData loadData = PaymentEdit.GetLoadData(pat, pay, new List <long> {
pat.PatNum
}, true, false);
PaymentEdit.ConstructResults constructResults = PaymentEdit.ConstructAndLinkChargeCredits(new List <long> {
pat.PatNum
}, pat.PatNum
, loadData.ConstructChargesData.ListPaySplits, pay, new List <Procedure> (), loadData: loadData);
Assert.AreEqual(6, constructResults.ListAccountCharges.Count); //2 procedures and 4 months of charges since unattached credits.
Assert.AreEqual(2, constructResults.ListAccountCharges.Count(x => x.Tag.GetType() == typeof(Procedure)));
Assert.AreEqual(4, constructResults.ListAccountCharges.Count(x => x.Tag.GetType() == typeof(PayPlanCharge)));
}
public void PaymentEdit_Init_AutoSplitWithAdjustmentAndExistingPayment() //Legacy_TestFortyFive
{
string suffix = "45";
Patient pat = PatientT.CreatePatient(suffix);
long patNum = pat.PatNum;
Procedure procedure1 = ProcedureT.CreateProcedure(pat, "D1110", ProcStat.C, "", 40, DateTime.Now.AddDays(-1));
Procedure procedure2 = ProcedureT.CreateProcedure(pat, "D0120", ProcStat.C, "", 60, DateTime.Now.AddDays(-2));
Procedure procedure3 = ProcedureT.CreateProcedure(pat, "D0220", ProcStat.C, "", 80, DateTime.Now.AddDays(-3));
Adjustment adjustment = AdjustmentT.MakeAdjustment(patNum, -40, procDate: DateTime.Now.AddDays(-2));
Payment payment = PaymentT.MakePayment(patNum, 100, DateTime.Now.AddDays(-2), procNum: procedure3.ProcNum);
Payment payment2 = PaymentT.MakePaymentNoSplits(patNum, 50, DateTime.Today);
Family famForPat = Patients.GetFamily(patNum);
List <Patient> listFamForPat = famForPat.ListPats.ToList();
PaymentEdit.InitData init = PaymentEdit.Init(listFamForPat, famForPat, new Family {
}, payment2, new List <PaySplit>(), new List <Procedure>(), patNum);
//Auto Splits will be in opposite order from least recent to most recent.
//ListSplitsCur should contain two paysplits, 40 attached to the D1110 and another for the remainder of 10, not attached to any procedure.
Assert.AreEqual(2, init.AutoSplitData.ListSplitsCur.Count);
Assert.IsFalse(init.AutoSplitData.ListSplitsCur[0].SplitAmt != 40 || init.AutoSplitData.ListSplitsCur[0].ProcNum != procedure1.ProcNum);
Assert.IsFalse(init.AutoSplitData.ListSplitsCur[1].SplitAmt != 10 || init.AutoSplitData.ListSplitsCur[1].ProcNum != 0);
}
public void PaymentEdit_Init_CorrectlyOrderedAutoSplitsWithExistingPayment() //Legacy_TestFortyTwo
{
string suffix = "42";
Patient pat = PatientT.CreatePatient(suffix);
long patNum = pat.PatNum;
Procedure procedure1 = ProcedureT.CreateProcedure(pat, "D1110", ProcStat.C, "", 40, DateTime.Now.AddDays(-1));
Procedure procedure2 = ProcedureT.CreateProcedure(pat, "D0120", ProcStat.C, "", 60, DateTime.Now.AddDays(-2));
Procedure procedure3 = ProcedureT.CreateProcedure(pat, "D0220", ProcStat.C, "", 80, DateTime.Now.AddDays(-3));
Payment payment1 = PaymentT.MakePayment(patNum, 110, DateTime.Now.AddDays(-2));
Payment payment2 = PaymentT.MakePaymentNoSplits(patNum, 80, DateTime.Today);
Family famForPat = Patients.GetFamily(patNum);
List <Patient> listFamForPat = famForPat.ListPats.ToList();
PaymentEdit.InitData init = PaymentEdit.Init(listFamForPat, famForPat, new Family {
}, payment2, new List <PaySplit>(), new List <Procedure>(), patNum);
//Auto Splits will be in opposite order from least recent to most recent.
//ListSplitsCur should contain three paysplits, one for procedure1 for 40, and one for procedure2 for 30,
//and an unallocated split for 10 with the remainder on the payment (40+30+10=80).
Assert.AreEqual(3, init.AutoSplitData.ListSplitsCur.Count);
Assert.IsFalse(init.AutoSplitData.ListSplitsCur[0].SplitAmt != 30 || init.AutoSplitData.ListSplitsCur[0].ProcNum != procedure2.ProcNum);
Assert.IsFalse(init.AutoSplitData.ListSplitsCur[1].SplitAmt != 40 || init.AutoSplitData.ListSplitsCur[1].ProcNum != procedure1.ProcNum);
Assert.IsFalse(init.AutoSplitData.ListSplitsCur[2].SplitAmt != 10 || init.AutoSplitData.ListSplitsCur[2].ProcNum != 0);
}
public void PaymentEdit_Init_PayPlanChargesWithAttachedCredits()
{
//new payplan
Patient pat = PatientT.CreatePatient(MethodBase.GetCurrentMethod().Name);
Procedure proc1 = ProcedureT.CreateProcedure(pat, "D1120", ProcStat.C, "", 135, DateTime.Today.AddMonths(-4));
Procedure proc2 = ProcedureT.CreateProcedure(pat, "D0220", ProcStat.C, "", 60, DateTime.Today.AddMonths(-4));
PayPlan payplan = PayPlanT.CreatePayPlanWithCredits(pat.PatNum, 30, DateTime.Today.AddMonths(-3), 0, new List <Procedure>()
{
proc1, proc2
});
//Go to make a payment for the charges that are due
Payment pay = PaymentT.MakePaymentNoSplits(pat.PatNum, 60, DateTime.Today);
PaymentEdit.LoadData loadData = PaymentEdit.GetLoadData(pat, pay, new List <long> {
pat.PatNum
}, true, false);
PaymentEdit.ConstructResults constructResults = PaymentEdit.ConstructAndLinkChargeCredits(new List <long> {
pat.PatNum
}, pat.PatNum
, loadData.ConstructChargesData.ListPaySplits, pay, new List <Procedure> (), loadData: loadData);
Assert.AreEqual(4, constructResults.ListAccountCharges.FindAll(x => x.AmountStart > 0).Count); //Procs shouldn't show - only the 4 pay plan charges
Assert.AreEqual(4, constructResults.ListAccountCharges.Count(x => x.Tag.GetType() == typeof(PayPlanCharge)));
}
public void PaymentEdit_Init_IncomeTransferWhenIncomeIncorrectlyAllocatedToOneProvider()
{
Patient pat = PatientT.CreatePatient(MethodBase.GetCurrentMethod().Name);
long provNum1 = ProviderT.CreateProvider("prov1");
long provNum2 = ProviderT.CreateProvider("prov2");
Procedure procByProv1 = ProcedureT.CreateProcedure(pat, "D0120", ProcStat.C, "", 100, DateTime.Today.AddMonths(-1), provNum: provNum1);
Procedure procByProv2 = ProcedureT.CreateProcedure(pat, "D0220", ProcStat.C, "", 50, DateTime.Today.AddMonths(-1), provNum: provNum2);
Payment payAllForOneProv = PaymentT.MakePayment(pat.PatNum, 150, DateTime.Today.AddDays(-1), provNum: provNum1, payType: 1); //make entire payment to prov1
//make an income transfer and see if it catches the over and underallocations
Payment incomeTransfer = PaymentT.MakePaymentNoSplits(pat.PatNum, 0, isNew: true);
PaymentEdit.LoadData loadData = PaymentEdit.GetLoadData(pat, incomeTransfer, new List <long> {
pat.PatNum
}, true);
PaymentEdit.InitData initData = PaymentEdit.Init(loadData.ListAssociatedPatients, Patients.GetFamily(pat.PatNum), new Family {
}, incomeTransfer
, loadData.ListSplits, new List <Procedure>(), pat.PatNum, isIncomeTxfr: true, loadData: loadData);
//Assert there the appropriate amounts going to the correct providers.
Assert.AreEqual(2, initData.AutoSplitData.ListAccountCharges.FindAll(x => x.Tag.GetType() == typeof(Procedure)).Count);
Assert.AreEqual(1, initData.AutoSplitData.ListAccountCharges.FindAll(x => x.Tag.GetType() == typeof(PaySplit)).Count);
//FormPayment.FillGridCharges will sum up the charges depending on what grouping is selected. Here we are just going to validate the output of
//PaymentEdit.Init is as it should be.
Assert.AreEqual(1, initData.AutoSplitData.ListAccountCharges.FindAll(x => x.AmountStart == -150 && x.ProvNum == provNum1).Count);
}
public void LedgersTests_ComputeAgingProcLifo_LargeDb()
{
Def defNeg = DefT.CreateDefinition(DefCat.AdjTypes, "Ortho Revenue", "-");
Def defPos = DefT.CreateDefinition(DefCat.AdjTypes, "Ortho Revenue", "+");
Def defPay = DefT.CreateDefinition(DefCat.PaymentTypes, "Check");
List <Patient> listPats = new List <Patient>();
for (int i = 0; i < 1000; i++)
{
Patient pat = PatientT.CreatePatient(fName: "Schedule Based", lName: "UDP Ortho LargeDb");
Procedure proc = ProcedureT.CreateProcedure(pat, "D8090", ProcStat.C, "", 4000, DateTime.Today.AddMonths(-6).AddDays(-1));
PayPlan payPlan = PayPlanT.CreatePayPlan(pat.PatNum, 4000, 166.67, DateTime.Today.AddMonths(-6).AddDays(-1), proc.ProvNum);
Adjustment adj6 = AdjustmentT.MakeAdjustment(pat.PatNum, -2800, DateTime.Today.AddMonths(-6).AddDays(-1), proc.ProcDate, proc.ProcNum, provNum: proc.ProvNum, adjType: defNeg.DefNum);
Payment pay6 = PaymentT.MakePayment(pat.PatNum, 166.67, DateTime.Today.AddMonths(-6).AddDays(-1), payPlanNum: payPlan.PayPlanNum, provNum: proc.ProvNum, procNum: proc.ProcNum, payType: defPay.DefNum);
PayPlanCharge ppc6 = PayPlanChargeT.CreateOne(payPlan.PayPlanNum, pat.Guarantor, pat.PatNum, DateTime.Today.AddMonths(-6).AddDays(-1), 1200, 0, "D8090: CompOrthoAdlt", proc.ProvNum, 0, PayPlanChargeType.Credit, proc.ProcNum);
Adjustment adj5 = AdjustmentT.MakeAdjustment(pat.PatNum, 121.74, DateTime.Today.AddMonths(-5).AddDays(-1), proc.ProcDate, proc.ProcNum, provNum: proc.ProvNum, adjType: defPos.DefNum);
Payment pay5 = PaymentT.MakePayment(pat.PatNum, 166.67, DateTime.Today.AddMonths(-5).AddDays(-1), payPlanNum: payPlan.PayPlanNum, provNum: proc.ProvNum, procNum: proc.ProcNum, payType: defPay.DefNum);
PayPlanCharge ppc5 = PayPlanChargeT.CreateOne(payPlan.PayPlanNum, pat.Guarantor, pat.PatNum, DateTime.Today.AddMonths(-5).AddDays(-1), 121.74, 0, "D8090: CompOrthoAdlt", proc.ProvNum, 0, PayPlanChargeType.Credit, proc.ProcNum);
Adjustment adj4 = AdjustmentT.MakeAdjustment(pat.PatNum, 121.74, DateTime.Today.AddMonths(-4).AddDays(-1), proc.ProcDate, proc.ProcNum, provNum: proc.ProvNum, adjType: defPos.DefNum);
PayPlanCharge ppc4 = PayPlanChargeT.CreateOne(payPlan.PayPlanNum, pat.Guarantor, pat.PatNum, DateTime.Today.AddMonths(-4).AddDays(-1), 121.74, 0, "D8090: CompOrthoAdlt", proc.ProvNum, 0, PayPlanChargeType.Credit, proc.ProcNum);
Adjustment adj3 = AdjustmentT.MakeAdjustment(pat.PatNum, 121.74, DateTime.Today.AddMonths(-3).AddDays(-1), proc.ProcDate, proc.ProcNum, provNum: proc.ProvNum, adjType: defPos.DefNum);
PayPlanCharge ppc3 = PayPlanChargeT.CreateOne(payPlan.PayPlanNum, pat.Guarantor, pat.PatNum, DateTime.Today.AddMonths(-3).AddDays(-1), 121.74, 0, "D8090: CompOrthoAdlt", proc.ProvNum, 0, PayPlanChargeType.Credit, proc.ProcNum);
Adjustment adj2 = AdjustmentT.MakeAdjustment(pat.PatNum, 121.74, DateTime.Today.AddMonths(-2).AddDays(-1), proc.ProcDate, proc.ProcNum, provNum: proc.ProvNum, adjType: defPos.DefNum);
PayPlanCharge ppc2 = PayPlanChargeT.CreateOne(payPlan.PayPlanNum, pat.Guarantor, pat.PatNum, DateTime.Today.AddMonths(-2).AddDays(-1), 121.74, 0, "D8090: CompOrthoAdlt", proc.ProvNum, 0, PayPlanChargeType.Credit, proc.ProcNum);
Adjustment adj1 = AdjustmentT.MakeAdjustment(pat.PatNum, 121.74, DateTime.Today.AddMonths(-1).AddDays(-1), proc.ProcDate, proc.ProcNum, provNum: proc.ProvNum, adjType: defPos.DefNum);
PayPlanCharge ppc1 = PayPlanChargeT.CreateOne(payPlan.PayPlanNum, pat.Guarantor, pat.PatNum, DateTime.Today.AddMonths(-1).AddDays(-1), 121.74, 0, "D8090: CompOrthoAdlt", proc.ProvNum, 0, PayPlanChargeType.Credit, proc.ProcNum);
listPats.Add(pat);
}
int payPlansVersionPrev = PrefC.GetInt(PrefName.PayPlansVersion);
int agingProcLifoPrev = PrefC.GetInt(PrefName.AgingProcLifo);
Stopwatch swOn = new Stopwatch();
Stopwatch swOff = new Stopwatch();
Stopwatch swUnset = new Stopwatch();
try {
PrefT.UpdateInt(PrefName.PayPlansVersion, (int)PayPlanVersions.AgeCreditsAndDebits);
swOn.Start();
PrefT.UpdateInt(PrefName.AgingProcLifo, (int)YN.Yes);
Ledgers.ComputeAging(0, DateTime.Today); //Compute aging for all patients.
foreach (Patient pat in listPats)
{
PatAssertBalances(pat.PatNum, 166.67, 166.67, 166.67, 333.34, 833.35);
}
swOn.Stop();
swOff.Start();
PrefT.UpdateInt(PrefName.AgingProcLifo, (int)YN.No);
Ledgers.ComputeAging(0, DateTime.Today); //Compute aging for all patients.
foreach (Patient pat in listPats)
{
PatAssertBalances(pat.PatNum, 166.67, 288.41, 288.41, 89.86, 833.35);
}
swOff.Stop();
swUnset.Start();
PrefT.UpdateInt(PrefName.AgingProcLifo, (int)YN.Unknown);
Ledgers.ComputeAging(0, DateTime.Today); //Compute aging for all patients.
foreach (Patient pat in listPats)
{
PatAssertBalances(pat.PatNum, 166.67, 288.41, 288.41, 89.86, 833.35);
}
swUnset.Stop();
}
finally {
PrefT.UpdateInt(PrefName.PayPlansVersion, payPlansVersionPrev);
PrefT.UpdateInt(PrefName.AgingProcLifo, agingProcLifoPrev);
}
//Fails if swOn run time is at least 10 times as large as the average of the runtimes for swUnset and swOff.
Assert.IsTrue(swOn.Elapsed.TotalMilliseconds < (swUnset.Elapsed.TotalMilliseconds + swOff.Elapsed.TotalMilliseconds) * 5,
"Pref On: " + swOn.Elapsed + "\r\n"
+ "Pref Off: " + swOff.Elapsed + "\r\n"
+ "Pref Unset: " + swUnset.Elapsed);
}
