function showClientMedicalInfo(&$clsRpt, $lClientID, &$clsClient, &$emr)
{
    //---------------------------------------------------------------------
    //
    //---------------------------------------------------------------------
    $attributes = new stdClass();
    $attributes->lTableWidth = 900;
    $attributes->divID = 'clientMed';
    $attributes->divImageID = 'clientMedDivImg';
    openBlock('Health/Medical', '', $attributes);
    echoT($clsRpt->openReport());
    $strLinks = strLinkAdd_EMR_Measurement($lClientID, 'Add Measurements', true) . ' ' . strLinkAdd_EMR_Measurement($lClientID, 'Add Measurements', false);
    if ($emr->lNumMeasure == 0) {
        $strCount = '<i>No measurements recorded</i>';
    } else {
        $strCount = $emr->lNumMeasure . ' measurement' . ($emr->lNumMeasure == 1 ? '' : 's');
        $strLinks = strLinkView_EMRMeasurements($lClientID, 'View Measurements', true) . '&nbsp;' . strLinkView_EMRMeasurements($lClientID, 'View Measurements', false) . '&nbsp;&nbsp;&nbsp;' . $strLinks;
    }
    echoT($clsRpt->openRow() . $clsRpt->writeLabel('Client Measurements:', '', 'vertical-align: bottom;') . $clsRpt->writeCell($strCount . '&nbsp;&nbsp;&nbsp;' . $strLinks) . $clsRpt->closeRow());
    echoT($clsRpt->closeReport());
    $attributes = new stdClass();
    $attributes->bCloseDiv = true;
    closeBlock($attributes);
}
   <?php 
global $genumDateFormat, $gbMetric;
echoT(strLinkAdd_EMR_Measurement($lClientID, 'Add new measurement', true) . '&nbsp;' . strLinkAdd_EMR_Measurement($lClientID, 'Add new measurement', false) . '<br>');
if ($lNumMeasure <= 0) {
    echoT('<br><i>There are no measurement records for client <b>' . $client->strSafeName . '</b>.</i><br><br>');
    return;
}
openMeasureTable($client);
showMeasurements($measurements);
closeMeasureTable();
function openMeasureTable(&$client)
{
    //---------------------------------------------------------------------
    //
    //---------------------------------------------------------------------
    echoT('<br>
         <table class="enpRptC">
            <tr>
               <td class="enpRptTitle" colspan="11" style="border: 1px solid black;">
                  Measurements for ' . $client->strSafeName . '
               </td>
            </tr>');
    echoT('
            <tr>
               <td class="enpRptLabel" style="text-align: center;">
                  &nbsp;
               </td>
               <td class="enpRptLabel" style="text-align: center; border-right: 1px solid black;">
                  Date
               </td>
               <td class="enpRptLabel" style="text-align: center;">