function showClientLocInfo(&$clsRpt, $lLocID, &$cLoc, &$clsDateTime, &$sponProgs, $lNumSponPrograms)
{
//---------------------------------------------------------------------
//
//---------------------------------------------------------------------
openBlock('Location Information', strLinkEdit_ClientLocation($lLocID, 'Edit Location', true) . ' ' . strLinkEdit_ClientLocation($lLocID, 'Edit Location', false));
echoT($clsRpt->openReport() . $clsRpt->openRow() . $clsRpt->writeLabel('Location ID:') . $clsRpt->writeCell(str_pad($lLocID, 5, '0', STR_PAD_LEFT)) . $clsRpt->closeRow() . $clsRpt->openRow() . $clsRpt->writeLabel('Location:') . $clsRpt->writeCell(htmlspecialchars($cLoc->strLocation)) . $clsRpt->closeRow() . $clsRpt->openRow() . $clsRpt->writeLabel('Address:') . $clsRpt->writeCell($cLoc->strAddress) . $clsRpt->closeRow());
echoT($clsRpt->openRow() . $clsRpt->writeLabel('Show medical rec. features?:') . $clsRpt->writeCell($cLoc->bEnableEMR ? 'Yes' : 'No', '500pt;') . $clsRpt->closeRow());
echoT($clsRpt->openRow() . $clsRpt->writeLabel('Description:') . $clsRpt->writeCell(nl2br(htmlspecialchars($cLoc->strDescription)), '500pt;') . $clsRpt->closeRow());
echoT($clsRpt->openRow() . $clsRpt->writeLabel('Sponsorship Programs:'));
$strOut = '';
if ($lNumSponPrograms == 0) {
$strOut = '<i>Not participating in any sponsorship programs</i>';
} else {
$strOut = 'Participating in: </ul>';
foreach ($sponProgs as $prog) {
$strOut .= '<li>' . htmlspecialchars($prog->strProg) . '</li>' . "\n";
}
$strOut .= '</ul>';
}
echoT($clsRpt->writeCell($strOut) . $clsRpt->closeRow());
echoT($clsRpt->closeReport());
closeBlock();
}
private function loadClientLocationContext()
{
//---------------------------------------------------------------------
//
//---------------------------------------------------------------------
$this->clsLoc = new mclient_locations();
$this->clsLoc->loadLocationRec($this->lForeignID);
$this->strContextLabel = 'client location record';
$this->strContextName = htmlspecialchars($this->clsLoc->strLocation);
$this->strContextViewLink = strLinkEdit_ClientLocation($this->lForeignID, 'View client location record', true);
}
