$params = array('enumStyle' => 'terse', 'clsRpt');
$clsRpt = new generic_rpt($params);
$clsRpt->strWidthLabel = '120pt';
$lPID = $people->lKeyID;
//------------------------------------------------------------------------
// is this a temporary people record? If so, give the user some options
// Expiration dates are used for imported mailing lists
//------------------------------------------------------------------------
if (!is_null($people->dteExpire)) {
    displayExpirationInfo($lPID, $people);
}
$lIndentWidth = 20;
showPeopleInfo($clsRpt, $lPID, $people, $vol, $clsDateTime);
if (!$gbVolLogin) {
    if (bAllowAccess('showSponsors')) {
        showSponsorshipInfo($clsRpt, $sponInfo, $lNumSponsors, $lPID, $people);
    }
    showHouseholdInfo($people, $lPID, $arrHouseholds);
    showGroupInfo($lPID, $people->strSafeName, $lNumGroups, $groupList, $inGroups, $lCntGroupMembership, CENUM_CONTEXT_PEOPLE, 'pRecView');
    showRelationships($lPID, $people, $arrRelAB, $arrRelBA, $lNumRelAB, $lNumRelBA);
    showCustomPeopleTableInfo($strPT, $lNumPTablesAvail);
    if (bAllowAccess('showFinancials')) {
        showGifts($lPID, false, $strCumGiftsNonSoftMon, $strCumGiftsNonSoftInKind, $strCumGiftsSoft, $strCumSpon, $lNumPledges, $lTotHard, $lTotSoft, $lTotInKind, $lNumSponPay);
    }
    showImageInfo(CENUM_CONTEXT_PEOPLE, $lPID, ' Images', $images, $lNumImages, $lNumImagesTot);
    showDocumentInfo(CENUM_CONTEXT_PEOPLE, $lPID, ' Documents', $docs, $lNumDocs, $lNumDocsTot);
    showPeopleBizContacts($lPID, $people, $lNumContacts, $contacts, $clsRpt);
    //      showReminderBlock        ($clsRem, $lPID, CENUM_CONTEXT_PEOPLE);
    showPeopleENPStats($clsRpt, $people);
}
function showPeopleInfo(&$clsRpt, $lPID, &$people, $vol, &$clsDateTime)
<?php

//   $clsDateTime = new dl_date_time;
$params = array('enumStyle' => 'terse', 'clsRpt');
$clsRpt = new generic_rpt($params);
$clsRpt->strWidthLabel = '90pt';
$clsRpt->bValueEscapeHTML = false;
$lBID = $biz->lKeyID;
$lIndentWidth = 20;
showBizInfo($clsRpt, $lBID, $biz);
showSponsorshipInfo($clsRpt, $sponInfo, $lNumSponsors, $lBID, $biz);
showBizContactInfo($clsRpt, $lBID, $biz, $lNumContacts, $contacts);
showGroupInfo($lBID, $biz->strSafeName, $lNumGroups, $groupList, $inGroups, $lCntGroupMembership, CENUM_CONTEXT_BIZ, 'bRecView');
showCustomBizTableInfo($strPT, $lNumPTablesAvail);
if (bAllowAccess('showFinancials')) {
    showGifts($lBID, true, $strCumGiftsNonSoftMon, $strCumGiftsNonSoftInKind, $strCumGiftsSoft, $strCumSpon, $lNumPledges, $lTotHard, $lTotSoft, $lTotInKind, $lNumSponPay);
}
showImageInfo(CENUM_CONTEXT_BIZ, $lBID, ' Images', $images, $lNumImages, $lNumImagesTot);
//   showReminderBlock          ($clsRem, $lBID, CENUM_CONTEXT_BIZ);
showDocumentInfo(CENUM_CONTEXT_BIZ, $lBID, ' Documents', $docs, $lNumDocs, $lNumDocsTot);
showBizENPStats($clsRpt, $biz);
function showBizENPStats($clsRpt, $biz)
{
    //---------------------------------------------------------------------
    //
    //---------------------------------------------------------------------
    $attributes = new stdClass();
    $attributes->lTableWidth = 900;
    $attributes->divID = 'bizENPStats';
    $attributes->divImageID = 'bizENPStatsDivImg';
    openBlock('Record Information', '', $attributes);