function showClientPrograms($lClientID, $lNumCProgs, $cProgs) { //--------------------------------------------------------------------- // //--------------------------------------------------------------------- global $genumDateFormat; $attributes = new stdClass(); $attributes->divID = 'clientProgs'; $attributes->divImageID = 'clientProgsDivImg'; $attributes->bStartOpen = false; $attributes->lTableWidth = 1100; $attributes->lUnderscoreWidth = 350; openBlock('Programs <span style="font-size: 9pt;">(' . $lNumCProgs . ')</span>', '', $attributes); $attributes->lTableWidth = 900; $attributes->lUnderscoreWidth = 373; $attributes->lTitleFontSize = 10; foreach ($cProgs as $cprog) { if ($cprog->bShowCProgLink) { $lCProgID = $cprog->lKeyID; // set up link to utility that allows the user to // reassign an attendance to a different enrollment $strLinkMoveAttend = ''; $lNumEnroll = $cprog->lNumEnrollments; if ($lNumEnroll > 1) { if ($cprog->lTotAttend > 0) { $strLinkMoveAttend = strLinkUtil_CProgMoveAttend($lClientID, $lCProgID, 'Transfer attendance between enrollments', true) . ' ' . strLinkUtil_CProgMoveAttend($lClientID, $lCProgID, 'Transfer attendance between enrollments', false); } } $strOut = ''; $strProgSafeName = htmlspecialchars($cprog->strProgramName); $attributes->divID = 'clientProg' . $lCProgID; $attributes->divImageID = 'clientProg' . $lCProgID . 'DivImg'; $attributes->bCloseDiv = false; // it's the little things that make a house a home openBlock($strProgSafeName . ' <span style="font-size: 9pt;">(' . $lNumEnroll . ' enrollment' . ($lNumEnroll == 1 ? '' : 's') . ')</span>', '', $attributes); $strOut .= '<b><span style="vertical-align: bottom;"> ' . $strProgSafeName . '</b>' . "\n"; if ($cprog->bEnrolled) { $strOut .= '<br>Currently enrolled:<br> <ul style="margin-top: 0px;">'; $lETableID = $cprog->lEnrollmentTableID; $lATableID = $cprog->lAttendanceTableID; $bAnyActiveEnrollment = false; foreach ($cprog->erecs as $erec) { $lERecID = $erec->lKeyID; $bCurrentlyEnrolled = $erec->bCurrentlyEnrolled; if ($bCurrentlyEnrolled) { $bAnyActiveEnrollment = true; } $strOut .= '<li style="margin-bottom: 6px;">' . ($bCurrentlyEnrolled ? '<font>' : '<font style="color: #999;">') . strLinkView_UFMFRecordViaRecID($lETableID, $lClientID, $lERecID, 'View enrollment record', true) . ' ' . date($genumDateFormat, $erec->dteStart) . ' - '; if (is_null($erec->dteMysqlEnd)) { $strOut .= '<i>ongoing</i>' . "\n"; } else { $strOut .= date($genumDateFormat, $erec->dteEnd); } if (!$bCurrentlyEnrolled) { $strOut .= ' <i>(inactive)</i>'; } if ($erec->lNumAttend > 0) { $strViewA = ' ' . strLinkView_UFMFRecordsViaFID(CENUM_CONTEXT_CLIENT, $lATableID, $lClientID, 'View attendance records', true, '', $lERecID) . ' '; } else { $strViewA = ''; } $strOut .= '<br>Attendance records: ' . $erec->lNumAttend . $strViewA . ' '; if ($bCurrentlyEnrolled) { $strOut .= strLinkAdd_CProgAttendance(false, $lClientID, $lCProgID, $lERecID, 'Add attendance record', true) . ' ' . strLinkAdd_CProgAttendance(false, $lClientID, $lCProgID, $lERecID, 'Add attendance record', false); } $strOut .= '</li>' . "\n"; $strOut .= '</font>'; } if (!$bAnyActiveEnrollment) { $strOut .= '<li style="list-style-type: none;"><br>' . strLinkAdd_CProgEnrollment($lClientID, $lCProgID, 'Add additional enrollment', true) . ' ' . strLinkAdd_CProgEnrollment($lClientID, $lCProgID, 'Add additional enrollment', false) . ' </li> </ul></span>'; } } else { $strOut .= '<span style="text-align: bottom;">: Not enrolled. ' . strLinkAdd_CProgEnrollment($lClientID, $lCProgID, 'Enroll this client', true) . ' ' . strLinkAdd_CProgEnrollment($lClientID, $lCProgID, 'Enroll this client', false) . '</span><br>'; } $strOut .= $strLinkMoveAttend; echoT($strOut); $attributes->bCloseDiv = true; closeBlock($attributes); } } $attributes->bCloseDiv = true; closeBlock($attributes); }
<?php echoT(' You have successfully enrolled <b>' . $client->strSafeName . '</b> in <b>' . htmlspecialchars($cprog->strProgramName) . '</b>.<br><br>'); echoT(strLinkAdd_CProgAttendance(false, $lClientID, $lCProgID, $lEnrollRecID, 'Add ' . $cprog->strSafeAttendLabel . ' Record', true) . ' ' . strLinkAdd_CProgAttendance(false, $lClientID, $lCProgID, $lEnrollRecID, 'Add ' . $cprog->strSafeAttendLabel . ' Record', false) . '<br><br>'); echoT(strLinkView_CProgEnrollRec($lTableID, $lClientID, $lEnrollRecID, 'View ' . $cprog->strSafeEnrollLabel . ' record', true) . ' ' . strLinkView_CProgEnrollRec($lTableID, $lClientID, $lEnrollRecID, 'View ' . $cprog->strSafeEnrollLabel . ' record', false) . '<br><br>'); echoT(strLinkView_ClientRecord($lClientID, 'View client record', true) . ' ' . strLinkView_ClientRecord($lClientID, 'View client record', false) . '<br><br>'); /* */
function writeMRecRows($lTableID, $lFID, &$utable, &$mRecs, $lEnrollRecID) { //--------------------------------------------------------------------- // //--------------------------------------------------------------------- global $genumDateFormat; $strFNPrefix = $utable->strFieldPrefix; $strFNKeyID = $strFNPrefix . '_lKeyID'; if ($utable->bCProg) { $lCProgID = $utable->cprog->lKeyID; } $bReadOnly = $utable->bReadOnly; foreach ($mRecs as $mrec) { echoT('<tr class="makeStripe">'); $lRecID = $mrec->{$strFNKeyID}; if ($utable->bCProg && !$utable->bEnrollment) { $strClone = '<br>' . strLinkClone_CPAttendance($lCProgID, $lRecID, 'Clone attendance record', true); } else { $strClone = ''; } if ($bReadOnly) { $strEditLink = ''; } else { $strEditLink = strLinkEdit_UFMultiRecEntry($utable->enumTType, $lTableID, $lFID, $lRecID, true, 'Edit record', '', $lEnrollRecID); } echoT(' <td class="enpRpt" style="text-align: center;">' . str_pad($lRecID, 5, '0', STR_PAD_LEFT) . ' ' . strLinkView_UFMFRecordViaRecID($lTableID, $lFID, $lRecID, 'View', true) . ' </td>'); echoT(' <td class="enpRpt" style="text-align: center;">' . $strEditLink . $strClone . ' </td>'); if (!$bReadOnly) { echoT(' <td class="enpRpt" style="text-align: center;">' . strLinkRem_UFMultiRecEntry($utable->enumTType, $lTableID, $lFID, $lRecID, 'Remove', true, true) . ' </td>'); } if ($utable->bCProg) { //----------------------------- // enrollment records //----------------------------- if ($utable->bEnrollment) { echoT(' <td class="enpRpt">' . date($genumDateFormat, $mrec->dteStart) . ' </td>'); if (is_null($mrec->dteMysqlEnd)) { $strEnd = '<i>Ongoing</i>'; } else { $strEnd = date($genumDateFormat, $mrec->dteEnd); } echoT(' <td class="enpRpt" style="text-align: center;">' . $strEnd . ' </td> <td class="enpRpt" style="text-align: center;">' . ($mrec->bCurrentlyEnrolled ? 'Yes' : 'No') . ' </td> <td class="enpRpt" style="text-align: center;">' . strLinkAdd_CProgAttendance(false, $lFID, $utable->cprog->lKeyID, $lRecID, 'Add attendance record', true) . ' </td> '); } else { //----------------------------- // attendance records //----------------------------- echoT(' <td class="enpRpt" style="text-align: center;">' . str_pad($mrec->lEnrollRecordID, 5, '0', STR_PAD_LEFT) . ' ' . strLinkView_UFMFRecordViaRecID($utable->cprog->lEnrollmentTableID, $lFID, $mrec->lEnrollRecordID, 'View enrollment record', true) . ' </td> <td class="enpRpt">' . date($genumDateFormat, $mrec->dteAttendance) . ' </td> <td class="enpRpt" style="text-align: right;">' . number_format($mrec->dDuration, 2) . ' </td> <td class="enpRpt" style="width: 220pt;">' . nl2br(htmlspecialchars($mrec->strCaseNotes)) . ' </td> '); $utable->dTotDuration += $mrec->dDuration; } } if ($utable->lNumFields > 0) { foreach ($utable->ufields as $ufield) { displayField($mrec, $ufield); } } echoT('</tr>'); } }