<?php

$clsDateTime = new dl_date_time();
$params = array('enumStyle' => 'terse', 'clsRpt');
$clsRpt = new generic_rpt($params);
$clsRpt->strWidthLabel = '130pt';
$client = $clsClient->clients[0];
showClientInfo($clsRpt, $lCID, $clsClient, $clsDateTime, true, null, false);
openClientServices();
// custom forms
if ($lNumCustomForms > 0) {
    showCustomForms($lCID, $cForms);
}
// client programs
if ($lNumCProgs > 0) {
    showClientPrograms($lCID, $lNumCProgs, $cProgs);
}
// pre/post tests
if ($lTotTests > 0) {
    showPrePostTests($lCID, $ppcats);
}
closeClientServices();
// personalized tables
showCustomClientTableInfo($strPT, $lNumPTablesAvail);
// sponsorship
if (bAllowAccess('showSponsors')) {
    showClientSponsorInfo($clsRpt, $lCID, $clsClient);
}
showClientStatusInfo($clsRpt, $lCID, $clsClient, $clientStatus, $lNumClientStatus);
showGroupInfo($lCID, $client->strSafeName, $lNumGroups, $groupList, $inGroups, $lCntGroupMembership, CENUM_CONTEXT_CLIENT, 'cRecView');
if ($bShowEMR) {
function reportDupClientInfo($clsDateTime, $clsRpt, $dupClients)
{
    //---------------------------------------------------------------------
    //
    //---------------------------------------------------------------------
    foreach ($dupClients as $client) {
        echoT('<table class="enpView" style="border-bottom: 1px solid black; margin-bottom: 8pt;">');
        showClientInfo($clsDateTime, $clsRpt, $client);
        echoT('</table>');
    }
}
<?php

$bInactive = $sponRec->bInactive;
$clsDateTime = new dl_date_time();
$params = array('enumStyle' => 'terse', 'clsRpt');
$clsRpt = new generic_rpt($params);
$clsRpt->strWidthLabel = $strWidthLabel;
//'120pt';
showSponInfo($clsRpt, $sponRec, $lSponID, $bInactive);
showSponHonInfo($clsRpt, $lSponID, $sponRec, $bInactive);
if (bAllowAccess('showClients')) {
    showClientInfo($clsRpt, $lClientID, $clsClient, $clsDateTime, is_null($lClientID), $lSponID, true, 'Sponsored ');
}
if (bAllowAccess('showSponsorFinancials')) {
    showSponFinancialInfo($clsRpt, $lSponID, $sponRec, $financialSummary);
}
showGroupInfo($lSponID, $sponRec->strSponSafeNameFL, $lNumGroups, $groupList, $inGroups, $lCntGroupMembership, CENUM_CONTEXT_SPONSORSHIP, 'spRecView');
showCustomSponsorTableInfo($strPT, $lNumPTablesAvail);
showImageInfo(CENUM_CONTEXT_SPONSORSHIP, $lSponID, 'Sponsorship Images', $images, $lNumImages, $lNumImagesTot);
showDocumentInfo(CENUM_CONTEXT_SPONSORSHIP, $lSponID, 'Sponsorship Documents', $docs, $lNumDocs, $lNumDocsTot);
//   showReminderBlock         ($clsRem, $lSponID, CENUM_CONTEXT_SPONSORSHIP);
showSponsorENPStats($clsRpt, $sponRec);
function showSponsorENPStats($clsRpt, $sponRec)
{
    //---------------------------------------------------------------------
    //
    //---------------------------------------------------------------------
    $attributes = new stdClass();
    $attributes->lTableWidth = 900;
    $attributes->divID = 'sponENP';
    $attributes->divImageID = 'sponENPDivImg';
<?php

$clsDateTime = new dl_date_time();
$params = array('enumStyle' => 'terse', 'clsRpt');
$clsRpt = new generic_rpt($params);
$clsRpt->strWidthLabel = '130pt';
$clsRpt->openReport();
openBlock('Good Client Record', '');
echoT('<table class="enpView" border="0">');
showClientInfo($clsDateTime, $clsRpt, $goodClient[0]);
echoT('</table>');
closeBlock();
openBlock('Duplicate Client Records', '');
foreach ($dupClients as $client) {
    echoT('<table class="enpView">');
    showClientInfo($clsDateTime, $clsRpt, $client);
    echoT('</table>');
}
closeBlock();
openBlock('Action', '');
echoT(anchor('clients/client_dups/consolidate/' . $reportID, 'CONSOLIDATE DUPLICATE RECORDS') . '<br><br>');
echoT(anchor('clients/client_dups/opts', 'CANCEL') . ' - Don\'t consolidate.<br><br>');
closeBlock();
echoT($clsRpt->closeReport());
function showClientInfo($clsDateTime, $clsRpt, $client)
{
    //---------------------------------------------------------------------
    //
    //---------------------------------------------------------------------
    global $gbDateFormatUS, $genumDateFormat, $glclsDTDateFormat;
    // Client ID
<?php

$clsDateTime = new dl_date_time();
$params = array('enumStyle' => 'terse', 'clsRpt');
$clsRpt = new generic_rpt($params);
$clsRpt->strWidthLabel = '130pt';
$clsRpt->openReport();
openBlock('Consolidated Client Record', '');
echoT('<table class="enpView" border="0">');
showClientInfo($clsDateTime, $clsRpt, $client, $dupCIDs);
echoT('</table>');
closeBlock();
function showClientInfo($clsDateTime, $clsRpt, $client, $dupCIDs)
{
    //---------------------------------------------------------------------
    //
    //---------------------------------------------------------------------
    global $gbDateFormatUS, $genumDateFormat, $glclsDTDateFormat;
    // Client ID
    $lClientID = $client->lKeyID;
    echoT($clsRpt->openRow() . $clsRpt->writeLabel('Client ID:') . $clsRpt->writeCell(strLinkView_ClientRecord($lClientID, 'View client record', true) . '&nbsp;' . str_pad($lClientID, 5, '0', STR_PAD_LEFT)) . $clsRpt->closeRow());
    // Name
    echoT($clsRpt->openRow() . $clsRpt->writeLabel('Name:') . $clsRpt->writeCell($client->strSafeName) . $clsRpt->closeRow());
    // Address
    echoT($clsRpt->openRow() . $clsRpt->writeLabel('Address:') . $clsRpt->writeCell($client->strAddress) . $clsRpt->closeRow());
    // birthday
    $mdteBirth = $client->dteBirth;
    $clsDateTime->setDateViaMySQL(0, $mdteBirth);
    $strAgeBDay = $clsDateTime->strPeopleAge(0, $mdteBirth, $lAgeYears, $glclsDTDateFormat);
    echoT($clsRpt->openRow() . $clsRpt->writeLabel('Birth Date:') . $clsRpt->writeCell($strAgeBDay) . $clsRpt->closeRow());
    // Phone