";
    $out .= "\n";
    $out .= sprintf("_______________________ %s _______________________\n", $label_pgbrk);
    $out .= "\n";
    $out .= sprintf("%-11s %-46s %s\n", $label_visit, $label_desc, $label_amt);

    // This must be set to the number of lines generated above.
    $count = 5;

    $num_ages = 4;
    $aging = array();
    for ($age_index = 0; $age_index < $num_ages; ++$age_index) {
        $aging[$age_index] = 0.00;
    }

    $todays_time = strtotime(date('Y-m-d'));

    // This generates the detail lines.  Again, note that the values must be specified in the order used.
    foreach ($stmt['lines'] as $line) {
        if ($GLOBALS['use_custom_statement']) {
            $description = substr($line['desc'], 0, 30);
        } else {
            $description = $line['desc'];
        }

        $tmp = substr($description, 0, 14);
        if ($tmp == 'Procedure 9920' || $tmp == 'Procedure 9921' || $tmp == 'Procedure 9200' || $tmp == 'Procedure 9201') {
            $description = str_replace("Procedure", xl('Office Visit') . ":", $description);
        }

        //92002-14 are Eye Office Visit Codes

        $dos = $line['dos'];
        ksort($line['detail']);
        // suppressing individual adjustments = improved statement printing
        $adj_flag = false;
        $note_flag = false;
        $pt_paid_flag = false;
        $prev_ddate = '';
        $last_activity_date = $dos;
        foreach ($line['detail'] as $dkey => $ddata) {
            $ddate = substr($dkey, 0, 10);
            if (preg_match('/^(\d\d\d\d)(\d\d)(\d\d)\s*$/', $ddate, $matches)) {
                $ddate = $matches[1] . '-' . $matches[2] . '-' . $matches[3];
            }

            if ($ddate && $ddate > $last_activity_date) {
                $last_activity_date = $ddate;
            }

            $amount = '';

            if (!empty($ddata['pmt'])) {
                $amount = sprintf("%.2f", 0 - $ddata['pmt']);
                $desc = xl('Paid') . ' ' . substr(oeFormatShortDate($ddate), 0, 6) .
                    substr(oeFormatShortDate($ddate), 8, 2) .
                    ': ' . $ddata['src'] . ' ' . $ddata['pmt_method'] . ' ' . $ddata['insurance_company'];
                // $ddata['plv'] is the 'payer_type' field in `ar_activity`, passed in via InvoiceSummary
                if ($ddata['src'] == 'Pt Paid' || $ddata['plv'] == '0') {
                    $pt_paid_flag = true;
                    $desc = xl('Pt paid') . ' ' . substr(oeFormatShortDate($ddate), 0, 6) .
                    substr(oeFormatShortDate($ddate), 8, 2);
                }
            } elseif (!empty($ddata['rsn'])) {
                if ($ddata['chg']) {
                    // this is where the adjustments used to be printed individually
                    $adj_flag = true;
                } else {
                    if ($ddate == $prev_ddate) {
                        if ($note_flag) {
                            // only 1 note per item or results in too much detail
                            continue;
                        } else {
                            $desc = xl('Note') . ' ' . substr(oeFormatShortDate($ddate), 0, 6) .
                                substr(oeFormatShortDate($ddate), 8, 2) .
                                ': ' . ': ' . $ddata['rsn'] . ' ' . $ddata['pmt_method'] . ' ' . $ddata['insurance_company'];
                            $note_flag = true;
                        }
                    } else {
                        continue; // no need to print notes for 2nd insurances
                    }
                }
            } elseif ($ddata['chg'] < 0) {
                $amount = sprintf("%.2f", $ddata['chg']);
                $desc = xl('Patient Payment');
            } else {
                $amount = sprintf("%.2f", $ddata['chg']);
                $desc = $description;
            }

            if (!$adj_flag) {
                $out .= sprintf("%-10s  %-45s%8s\n", oeFormatShortDate($dos), $desc, $amount);
                ++$count;
            }

            $dos = '';
            $adj_flag = false;
            $note_flag = false;
            $prev_ddate = $ddate;
        }
        // print the adjustments summed after all other postings
        if ($line['adjust'] !== '0.00') {
            $out .= sprintf("%-10s  %-45s%8s\n", oeFormatShortDate($dos), "Insurance adjusted", sprintf("%.2f", 0 - $line['adjust']));
            ++$count;
        }

        // don't print a balance after a "Paidpatient payment since it's on it's own line
        if (!$pt_paid_flag) {
            $out .= sprintf("%-10s  %-45s%8s\n", oeFormatShortDate($dos), "Item balance ", sprintf("%.2f", ($line['amount'] - $line['paid'])));
            ++$count;
        }

        # Compute the aging bucket index and accumulate into that bucket.
        $last_activity_date = ($line['bill_date'] > $last_activity_date) ? $line['bill_date'] : $last_activity_date;
        // If first bill then make the amount due current and reset aging date
        if ($stmt['dun_count'] == '0') {
            $last_activity_date = date('Y-m-d');
            sqlStatement("UPDATE billing SET bill_date = ? WHERE pid = ? AND encounter = ?", array(date('Y-m-d'), $patient_id, $encounter_id));
        }
        $age_in_days = (int) (($todays_time - strtotime($last_activity_date)) / (60 * 60 * 24));
        $age_index = (int) (($age_in_days - 1) / 30);
        $age_index = max(0, min($num_ages - 1, $age_index));
        $aging[$age_index] += $line['amount'] - $line['paid'];
    }

    // This generates blank lines until we are at line 20.
    //  At line 20 we start middle third.

    while ($count++ < 16) {
        $out .= "\n";
    }

    # Generate the string of aging text.  This will look like:
    # Current xxx.xx / 31-60 x.xx / 61-90 x.xx / Over-90 xxx.xx
    # ....+....1....+....2....+....3....+....4....+....5....+....6....+
    #
    $ageline = xl('Current') . ': ' . sprintf("%.2f", $aging[0]);
    for ($age_index = 1; $age_index < ($num_ages - 1); ++$age_index) {
        $ageline .= ' | ' . ($age_index * 30 + 1) . '-' . ($age_index * 30 + 30) . ':' .
            sprintf(" %.2f", $GLOBALS['gbl_currency_symbol'] . '' . $aging[$age_index]);
    }

    // Fixed text labels
    $label_ptname = xl('Name');
    $label_today = xl('Date');
    $label_due = xl('Due');
    $label_thanks = xl('Thank you for choosing');
    $label_call = xl('Please call if any of the above information is incorrect.');
    $label_prompt = xl('We appreciate prompt payment of balances due.');
    $label_dept = xl('Billing Department');
    $label_bill_phone = (!empty($GLOBALS['billing_phone_number']) ? $GLOBALS['billing_phone_number'] : $row['phone'] );
    $label_appointments = xl('Future Appointments') . ':';

    // This is the top portion of the page.
    $out .= "\n\n\n";
    if (strlen($stmt['bill_note']) != 0 && $GLOBALS['statement_bill_note_print']) {
        $out .= sprintf("%-46s\n", $stmt['bill_note']);
        $count++;
    }

    if ($GLOBALS['use_dunning_message']) {
        $out .= sprintf("%-46s\n", $dun_message);
        $count++;
    }

    $out .= "\n";
    $out .= sprintf(
        "%-s: %-25s %-s: %-14s %-s: %8s\n",
        $label_ptname,
        $stmt['patient'],
        $label_today,
        oeFormatShortDate($stmt['today']),
        $label_due,
        $stmt['amount']
    );
    $out .= sprintf("__________________________________________________________________\n");
    $out .= "\n";
    $out .= sprintf("%-s\n", $label_call);
    $out .= sprintf("%-s\n", $label_prompt);
    $out .= "\n";
    // $out .= sprintf("%-s\n", $billing_contact);
    $out .= sprintf("  %-s %-25s\n", $label_dept, $label_bill_phone);
    if ($GLOBALS['statement_message_to_patient']) {
        $out .= "\n";
        $statement_message = $GLOBALS['statement_msg_text'];
        $out .= sprintf("%-40s\n", $statement_message);
        $count++;
    }

    if ($GLOBALS['show_aging_on_custom_statement']) {
        # code for ageing
        $ageline .= ' | ' . xl('Over') . ' ' . ($age_index * 30) . ':' .
            sprintf(" %.2f", $aging[$age_index]);
        $out .= "\n" . $ageline . "\n\n";
        $count++;
    }

    if ($GLOBALS['number_appointments_on_statement'] != 0) {
        $out .= "\n";
        $num_appts = $GLOBALS['number_appointments_on_statement'];
        $next_day = mktime(0, 0, 0, date('m'), date('d') + 1, date('Y'));
        # add one day to date so it will not get todays appointment
        $current_date2 = date('Y-m-d', $next_day);
        $events = fetchNextXAppts($current_date2, $stmt['pid'], $num_appts);
        $j = 0;
        $out .= sprintf("%-s\n", $label_appointments);
        #loop to add the appointments
        for ($x = 1; $x <= $num_appts; $x++) {
            $next_appoint_date = oeFormatShortDate($events[$j]['pc_eventDate']);
            $next_appoint_time = substr($events[$j]['pc_startTime'], 0, 5);
            if (strlen(umname) != 0) {
                $next_appoint_provider = $events[$j]['ufname'] . ' ' . $events[$j]['umname'] . ' ' .  $events[$j]['ulname'];
            } else {
                $next_appoint_provider = $events[$j]['ufname'] . ' ' .  $events[$j]['ulname'];
            }

            if (strlen($next_appoint_time) != 0) {
                $label_plsnote[$j] = xlt('Date') . ': ' . text($next_appoint_date) . ' ' . xlt('Time') . ' ' . text($next_appoint_time) . ' ' . xlt('Provider') . ' ' . text($next_appoint_provider);
                $out .= sprintf("%-s\n", $label_plsnote[$j]);
            }

            $j++;
            $count++;
        }
    }

    while ($count++ < 29) {
        $out .= "\n";
    }

    $out .= sprintf("%-10s %s\n", null, $label_retpay);
    $out .= '