| Name |
Billing Functions |
Procedures |
Billed |
Date Billed |
Balance |
"; // header of box
$total_unpaid = 0.00;
// setup control break
$prev_patient="$$";
$patient_balance = 0.00;
$billed = 1;
$_alternate = freemed_bar_alternate_color ();
while ($r = $sql->fetch_array($result))
{
$id = $r["id" ] ;
$ptlname = $r["ptlname" ] ;
$ptfname = $r["ptfname" ] ;
$procbalcurrent = $r["procbalcurrent"];
$procbilled = $r["procbilled"];
$procdtbilled = $r["procdtbilled"];
if ($prev_patient=="$$") // first time
{
$prev_patient = $id;
$prev_lname = $ptlname;
$prev_fname = $ptfname;
$oldest_bill = "0000-00-00";
}
// alternate the bar color
if ($id != $prev_patient)
{
// alternate the bar color
echo "
| $prev_lname, $prev_fname |
View/Manage |
Patient Ledger |
View/Manage |
";
if (!$billed)
echo " NO | ";
else
echo "YES | ";
echo "$oldest_bill | ";
$total_unpaid += $patient_balance; // add to grand total
echo "".bcadd($patient_balance,0,2)." | ";
// reset control break
$patient_balance = 0.00;
//$oldest_bill = $procdtbilled;
$oldest_bill = "0000-00-00";
$billed = 1;
$prev_patient = $id;
$prev_lname = $ptlname;
$prev_fname = $ptfname;
echo "
";
}
$patient_balance += $procbalcurrent;
if ($procdtbilled > "0000-00-00")
{
if ($oldest_bill == "0000-00-00")
$oldest_bill = $procdtbilled;
else
if ($procdtbilled < $oldest_bill)
$oldest_bill = $procdtbilled;
}
// it only takes 1 unbilled to show NO
if (!$procbilled)
$billed = 0;
} // while there are no more
// process last record from control break;
echo "
| $prev_lname, $prev_fname |
View/Manage |
Patient Ledger |
View/Manage |
";
if (!$billed)
echo " NO | ";
else
echo "YES | ";
echo "$oldest_bill | ";
$total_unpaid += $patient_balance; // add to grand total
echo "".bcadd($patient_balance,0,2)." | ";
// end control break
// process totals.
echo "
| Total |
|
|
|
|
|
".bcadd($total_unpaid,0,2)." |
";
echo "
";
freemed_display_box_bottom();
} // end of result set
break;
} // end action
freemed_display_html_bottom ();
freemed_close_db ();
?>