function showPatientAssoc($attributes, $clsRpt, $volRec, $lVolID, $volClient)
{
    //---------------------------------------------------------------------
    //
    //---------------------------------------------------------------------
    $bActive = $volRec->bActive;
    $attributes->bCloseDiv = false;
    $attributes->divID = 'pAssoc';
    $attributes->divImageID = 'pAssocDivImg';
    $attributes->lUnderscoreWidth = 400;
    if ($bActive) {
        $strLinkAddNewA = strLinkAdd_PatientAssociation($lVolID, 'Add patient association', true) . ' ' . strLinkAdd_PatientAssociation($lVolID, 'Add patient association', false);
    } else {
        $strLinkAddNewA = '';
    }
    openBlock('Volunteer/Patient Associations', $strLinkAddNewA, $attributes);
    if (count($volClient) == 0) {
        echoT('<i>No associated patients</i>');
    } else {
        echoT('
            <table class="enpRpt">
               <tr>
                  <td class="enpRptLabel">
                     Patient ID
                  </td>
                  <td class="enpRptLabel">
                     Patient
                  </td>
                  <td class="enpRptLabel">
                     Status
                  </td>');
        if ($bActive) {
            echoT('
                  <td class="enpRptLabel">
                     &nbsp;
                  </td>
                  <td class="enpRptLabel">
                     &nbsp;
                  </td>');
        }
        echoT('
               </tr>');
        foreach ($volClient as $vc) {
            $bVCActive = $vc->bActive;
            if ($bVCActive) {
                $strALabel = 'Set inactive';
                $lRowSpan = 3;
                $strNameColor = '#000';
            } else {
                $strALabel = 'Set active';
                $lRowSpan = 2;
                $strNameColor = '#999';
            }
            $lAssocID = $vc->lKeyID;
            $lPatientID = $vc->lPatientID;
            echoT('
               <tr class="makeStripe">
                  <td style="vertical-align: top; color: ' . $strNameColor . ';" class="enpRpt">' . strLinkView_PatientRecord($lPatientID, 'View patient record', true) . '&nbsp;' . str_pad($lPatientID, 5, '0', STR_PAD_LEFT) . '
                  </td>');
            echoT('
                  <td style="vertical-align: top; padding-right: 8px; color: ' . $strNameColor . ';" class="enpRpt">' . htmlspecialchars($vc->patient->strLName . ', ' . $vc->patient->strFName) . '
                  </td>');
            echoT('
                  <td style="vertical-align: top; padding-right: 8px; color: ' . $strNameColor . ';" class="enpRpt">' . ($bVCActive ? '<b>Active</b>' : 'Inactive') . '
                  </td>');
            if ($bActive) {
                if ($bVCActive) {
                    echoT('
                     <td style="vertical-align: top;" class="enpRpt">' . strLinkAdd_HospicePVist($lVolID, $vc->lPatientID, 'Add patient visit', true) . '&nbsp;' . strLinkAdd_HospicePVist($lVolID, $vc->lPatientID, 'Add patient visit', false) . '
                     </td>');
                } else {
                    echoT('
                     <td style="vertical-align: top;" class="enpRpt">&nbsp;</td>');
                }
                echoT('
                     <td style="vertical-align: top;" class="enpRpt">' . strLink_VolAssocActiveInactive($lVolID, $lAssocID, !$bActive, $strALabel, true) . '&nbsp;' . strLink_VolAssocActiveInactive($lVolID, $lAssocID, !$bActive, $strALabel, false) . '
                     </td>');
            }
            echoT('
               </tr>');
        }
        echoT('</table>');
    }
    $attributes->bCloseDiv = true;
    closeBlock($attributes);
}
Пример #2
0
 echoT($clsRpt->openRow(true));
 echoT($clsRpt->writeCell($lRowIDX, '', 'text-align: center;'));
 echoT($clsRpt->writeCell(strLinkView_PatientRecord($lPatientID, 'View patient record', true, ' id="prec_' . $lPatientID . '" ') . '&nbsp;' . str_pad($lPatientID, 5, '0', STR_PAD_LEFT), 60, $strStyleActive . 'text-align: center;'));
 echoT($clsRpt->writeCell(strLink_PatientActiveInactive($lPatientID, !$bActive, $bActive ? 'Set Inactive' : 'Activate', true), 30, $strStyleActive . 'text-align: center;'));
 echoT($clsRpt->writeCell('<b>' . $patient->strSafeNameLF . '</b><br>DOB: ' . $patient->dteBirth, 170, $strStyleActive));
 echoT($clsRpt->writeCell($patient->strAddress, 170, $strStyleActive));
 //---------------------------
 // volunteer associations
 //---------------------------
 if (count($patient->volClient) == 0) {
     echoT($clsRpt->writeCell('- none -', $lVolWidth, 'text-align: center;'));
 } else {
     $strVols = '<ul style="list-style-position: inside; list-style-type: square; display:inline;
                           margin-left: 0pt; padding-left: 0pt;">';
     foreach ($patient->volClient as $vc) {
         $strVols .= '<li>' . htmlspecialchars($vc->vol->strLName . ', ' . $vc->vol->strFName) . '&nbsp;' . strLinkAdd_HospicePVist($vc->lVolID, $vc->lPatientID, 'Add visit', false, ' id="apv_' . $vc->lVolID . '_' . $vc->lPatientID . ' " ') . '</li>';
     }
     echoT($clsRpt->writeCell($strVols . '</ul>', $lVolWidth, ''));
 }
 //---------------------------
 // patient contacts
 //---------------------------
 $strLinkAddNewPC = strLinkAdd_PatientContact($lPatientID, 'Add patient contact', true, ' id="newPCon_' . $lPatientID . '" ') . '&nbsp;' . strLinkAdd_PatientContact($lPatientID, 'Add patient contact', false);
 if (count($patient->pContacts) == 0) {
     echoT($clsRpt->writeCell('<span style="text-align: center; margin-left: 40pt;">- none -</span><br>' . $strLinkAddNewPC, '200pt;', ''));
 } else {
     $strPC = '';
     foreach ($patient->pContacts[0]->contacts as $pc) {
         $lPConID = $pc->lContactID;
         $strPC .= trim(htmlspecialchars($pc->strPConTitle . ' ' . $pc->strFName . ' ' . $pc->strLName . ' (' . $pc->strRelationship . ')')) . strLinkView_PContact($lPConID, 'View patient contact record', true, ' id="viewPCon_' . $lPConID . '" ') . '<br>';
     }
     $strNameColor = '#999';
 }
 if ($bInactive) {
     $lRowSpan = 1;
 }
 $lAssocID = $vc->lKeyID;
 $lPatientID = $vc->lPatientID;
 if ($bInactive) {
     $strNameColor = '#999';
 }
 $strPatients .= '<tr>
      <td style="vertical-align: top; padding-right: 8px; color: ' . $strNameColor . ';" rowspan=' . $lRowSpan . '>' . htmlspecialchars($vc->patient->strLName . ', ' . $vc->patient->strFName) . '
      </td>';
 if (!$bInactive && $bVAActive) {
     $strPatients .= '
      <td style="vertical-align: top;">' . strLinkAdd_HospicePVist($lVolID, $vc->lPatientID, 'Patient visit', true, ' id="addVisit_' . $lVolID . '_' . $vc->lPatientID . '" ') . '&nbsp;' . strLinkAdd_HospicePVist($lVolID, $vc->lPatientID, 'Patient visit', false) . '
      </td>
   </tr>
   <tr>';
 }
 if (!$bInactive) {
     $strPatients .= '
         <td style="vertical-align: top;">' . strLink_VolAssocActiveInactive($lVolID, $lAssocID, !$bVAActive, $strALabel, true) . '&nbsp;' . strLink_VolAssocActiveInactive($lVolID, $lAssocID, !$bVAActive, $strALabel, false) . '
         </td>
      </tr>
      <tr>
         <td style="vertical-align: top; padding-bottom: 8px;">' . strLinkView_PatientRecord($lPatientID, 'View patient record', true) . '&nbsp;patient ID: ' . str_pad($lPatientID, 5, '0', STR_PAD_LEFT) . '
         </td>';
 }
 $strPatients .= '
   </tr>';