interface/patient_file/summary/demographics.php

   1 <?
   2  include_once("../../globals.php");
   3  include_once("$srcdir/patient.inc");
   4  include_once("$srcdir/acl.inc");
   5
   6  if ($GLOBALS['concurrent_layout'] && $_GET['set_pid']) {
   7   include_once("$srcdir/pid.inc");
   8   setpid($_GET['set_pid']);
   9  }
  10 ?>
  11 <html>
  12
  13 <head>
  14 <link rel=stylesheet href="<?echo $css_header;?>" type="text/css">
  15 <script type="text/javascript" src="../../../library/dialog.js"></script>
  16 <script language="JavaScript">
  17
  18  function oldEvt(eventid) {
  19   dlgopen('../../main/calendar/add_edit_event.php?eid=' + eventid, '_blank', 550, 270);
  20  }
  21
  22  function refreshme() {
  23   location.reload();
  24  }
  25
  26  // Process click on Delete link.
  27  function deleteme() {
  28   dlgopen('../deleter.php?patient=<?php echo $pid ?>', '_blank', 500, 450);
  29   return false;
  30  }
  31
  32  // Called by the deleteme.php window on a successful delete.
  33  function imdeleted() {
  34 <?php if ($GLOBALS['concurrent_layout']) { ?>
  35   parent.left_nav.clearPatient();
  36 <?php } else { ?>
  37   top.location.href = '../main/main_screen.php';
  38 <?php } ?>
  39  }
  40
  41 </script>
  42 </head>
  43
  44 <body <?echo $top_bg_line;?> topmargin=0 rightmargin=0 leftmargin=2 bottommargin=0 marginwidth=2 marginheight=0>
  45
  46 <?
  47  $result = getPatientData($pid);
  48  $result2 = getEmployerData($pid);
  49
  50  $thisauth = acl_check('patients', 'demo');
  51  if ($thisauth) {
  52   if ($result['squad'] && ! acl_check('squads', $result['squad']))
  53    $thisauth = 0;
  54  }
  55
  56  if (!$thisauth) {
  57   echo "<p>(".xl('Demographics not authorized').")</p>\n";
  58   echo "</body>\n</html>\n";
  59   exit();
  60  }
  61
  62  if ($thisauth == 'write') {
  63   echo "<p><a href='demographics_full.php'";
  64    if (! $GLOBALS['concurrent_layout']) echo " target='Main'";
  65    echo "><font class='title'>" . xl('Demographics') . "</font>" .
  66    "<font class='more'>$tmore</font></a>";
  67   if (acl_check('admin', 'super')) {
  68    echo "&nbsp;&nbsp;<a href='' onclick='return deleteme()'>" .
  69     "<font class='more' style='color:red'>(".xl('Delete').")</font></a>";
  70   }
  71   echo "</p>\n";
  72  }
  73 ?>
  74
  75 <table border="0" width="100%">
  76  <tr>
  77   <td align="left" valign="top">
  78    <table border='0' cellpadding='0' width='100%'>
  79     <tr>
  80      <td valign='top'>
  81       <span class='bold'><? xl('Name','e'); ?>: </span><span class='text'><?echo $result{"title"}?> <?echo $result{"fname"}?> <?echo $result{"mname"}?> <?echo $result{"lname"}?></span><br>
  82       <span class='bold'><? xl('Number','e'); ?>: </span><span class='text'><?echo $result{"pubpid"}?></span>
  83      </td>
  84      <td valign='top'>
  85 <?
  86  if ($result{"DOB"} && $result{"DOB"} != "0000-00-00") {
  87 ?>
  88       <span class='bold'><? xl('DOB','e'); ?>: </span>
  89       <span class='text'>
  90 <?
  91   echo $result{"DOB"};
  92  }
  93 ?>
  94       </span>
  95      </td>
  96      <td valign='top'><? if ($result{"sex"} != ""){?><span class='bold'><? xl('Sex','e'); ?>: </span><?}?><span class='text'><?echo $result{"sex"}?></span></td>
  97      <td valign='top'><? if ($result{"ss"} != "") {?><span class='bold'><? xl('S.S.','e'); ?>: </span><?}?><span class='text'><?echo $result{"ss"}?></span></td>
  98     </tr>
  99     <tr>
 100      <td valign='top'>
 101 <? if (($result{"street"} != "") || ($result{"city"} != "") || ($result{"state"} != "") || ($result{"country_code"} != "") || ($result{"postal_code"} != "")) {?>
 102       <span class='bold'><? xl('Address','e'); ?>: </span>
 103 <?}?>
 104       <br><span class='text'><?echo $result{"street"}?><br><?echo $result{"city"}?><?if($result{"city"} != ""){echo ", ";}?><?echo $result{"state"};?>
 105 <? if($result{"country_code"} != ""){ echo ", "; }?><?echo $result{"country_code"}?>
 106 <?echo " ";
 107 echo $result{"postal_code"}?>
 108       </span>
 109      </td>
 110      <td valign='top'>
 111 <?
 112         if (    ($result{"contact_relationship"} != "") ||
 113                 ($result{"phone_contact"} != "") ||
 114                 ($result{"phone_home"} != "") ||
 115                 ($result{"phone_biz"} != "") ||
 116                 ($result{"email"} != "")  ||
 117                 ($result{"phone_cell"} != "")    ){
 118 ?>
 119       <span class='bold'><? xl('Emergency Contact','e'); ?>: </span><?}?><span class='text'><?echo $result{"contact_relationship"}?><?echo " "?>
 120 <?
 121         if ($result{"phone_contact"} != "") {
 122                 echo " " . $result{"phone_contact"};
 123         }
 124         if ($result{"phone_home"} != "") {
 125                 echo "<br>Home: ";
 126                 echo $result{"phone_home"};
 127         }
 128         if ($result{"phone_biz"} != "") {
 129                 echo "<br>Work: ";
 130                 echo $result{"phone_biz"};
 131         }
 132         if ($result{"phone_cell"} != "") {
 133                 echo "<br>Mobile: ";
 134                 echo $result{"phone_cell"};
 135         }
 136         if ($result{"email"} != "") {
 137                 echo "<br>".xl('Email').": </span>";
 138                 echo '<a class=link_submit href="mailto:' . $result{"email"} . '">' . $result{"email"} . '</a>';
 139         }
 140 ?>
 141      </td>
 142      <td valign='top'>
 143 <?
 144         if ($result{"status"} != "") {
 145                 echo "<span class='bold'>".xl('Marital Status').": </span>";
 146                 echo "<span class='text'>" .  $result{"status"} . "</span>";
 147         }
 148 ?>
 149      </td>
 150      <td valign='top'></td>
 151     </tr>
 152
 153 <? if (!$GLOBALS['athletic_team'] && $result['hipaa_mail']) { ?>
 154     <tr>
 155      <td colspan='4' valign='top'>
 156         <?
 157                 $result{"hipaa_mail"}=='YES' ? $opt_out='ALLOWS' : $opt_out='DOES NOT ALLOW' ;
 158                 echo "<span class='text'>Patient $opt_out Mailed Information </span>";
 159         ?>
 160      </td>
 161     </tr>
 162     <tr>
 163      <td colspan='4' valign='top'>
 164         <?
 165                 $result{"hipaa_voice"}=='YES' ? $opt_out='ALLOWS' : $opt_out='DOES NOT ALLOW' ;
 166                 echo "<span class='text'>Patient $opt_out Voice Messages </span>";
 167         ?>
 168      </td>
 169     </tr>
 170 <? } else { ?>
 171     <tr>
 172      <td colspan='4' valign='top'>
 173       &nbsp;
 174      </td>
 175     </tr>
 176 <? } ?>
 177
 178     <tr>
 179      <td valign='top'>
 180 <? if ($result{"occupation"} != "") {?><span class='bold'><? xl('Occupation','e'); ?>: </span><span class='text'><?echo $result{"occupation"}?></span><br><?}?>
 181 <? if ($result2{"name"} != "") {?><span class='bold'><? xl('Employer','e'); ?>: </span><span class='text'><?echo $result2{"name"}?></span><?}?>
 182      </td>
 183      <td valign='top'>
 184 <? if (($result2{"street"} != "") || ($result2{"city"} != "") || ($result2{"state"} != "") || ($result2{"country"} != "") || ($result2{"postal_code"} != "")) {?>
 185       <span class='bold'><? xl('Employer Address','e'); ?>:</span>
 186 <? } ?>
 187       <br>
 188       <span class='text'>
 189 <?echo $result2{"street"}?><br><?echo $result2{"city"}?><?if($result2{"city"} != ""){echo ", ";}?><?echo $result2{"state"}?>
 190 <?if($result2{"country"} != ""){echo ", ";}?><?echo $result2{"country"}?>
 191 <?if($result2{"postal_code"} != ""){echo " ";}?>
 192 <?echo $result2{"postal_code"}?>
 193       </span>
 194      </td>
 195      <td valign='top'>
 196 <?
 197  // This stuff only applies to athletic team use of OpenEMR:
 198  if ($GLOBALS['athletic_team']) {
 199   //                  blue       dk green   yellow     red        orange
 200   $fitcolors = array('#6677ff', '#00cc00', '#ffff00', '#ff3333', '#ff8800', '#ffeecc', '#ffccaa');
 201   $fitcolor = $fitcolors[0];
 202   $fitness = $_POST['form_fitness'];
 203   if ($fitness) {
 204    sqlStatement("UPDATE patient_data SET fitness = '$fitness' WHERE pid = '$pid'");
 205   } else {
 206    $fitness = $result['fitness'];
 207    if (! $fitness) $fitness = 1;
 208   }
 209   $fitcolor = $fitcolors[$fitness - 1];
 210 ?>
 211       <form method='post' action='demographics.php'>
 212       <span class='bold'><? xl('Fitness to Play','e'); ?>:</span><br>
 213       <select name='form_fitness' onchange='document.forms[0].submit()' style='background-color:<? echo $fitcolor ?>'>
 214        <option value='1'<? if ($fitness == 1) echo ' selected' ?>><? xl('Full Play','e'); ?></option>
 215        <option value='2'<? if ($fitness == 2) echo ' selected' ?>><? xl('Full Training','e'); ?></option>
 216        <option value='3'<? if ($fitness == 3) echo ' selected' ?>><? xl('Restricted Training','e'); ?></option>
 217        <option value='4'<? if ($fitness == 4) echo ' selected' ?>><? xl('Injured Out','e'); ?></option>
 218        <option value='5'<? if ($fitness == 5) echo ' selected' ?>><? xl('Rehabilitation','e'); ?></option>
 219        <option value='6'<? if ($fitness == 6) echo ' selected' ?>><? xl('Illness','e'); ?></option>
 220        <option value='7'<? if ($fitness == 7) echo ' selected' ?>><? xl('International Duty','e'); ?></option>
 221       </select>
 222       </form>
 223 <? } ?>
 224      </td>
 225      <td valign='top'></td>
 226     </tr>
 227     <tr>
 228      <td valign='top'>
 229 <? if (! $GLOBALS['athletic_team']) { ?>
 230 <? if ($result{"ethnoracial"} != "")  { ?><span class='bold'><? xl('Race/Ethnicity','e'); ?>: </span><span class='text'><?echo $result{"ethnoracial"};?></span><br><? } ?>
 231 <? if ($result{"language"} != "")     { ?><span class='bold'><? xl('Language','e'); ?>: </span><span class='text'><?echo ucfirst($result{"language"});?></span><br><? } ?>
 232 <? if ($result{"interpretter"} != "") { ?><span class='bold'><? xl('Interpreter','e'); ?>: </span><span class='text'><?echo $result{"interpretter"};?></span><br><? } ?>
 233 <? if ($result{"family_size"} != "")  { ?><span class='bold'><? xl('Family Size','e'); ?>: </span><span class='text'><?echo $result{"family_size"};?></span><br><? } ?>
 234 <? } ?>
 235      </td>
 236      <td valign='top'>
 237 <?
 238 function print_as_money($money) {
 239 preg_match("/(\d*)\.?(\d*)/",$money,$moneymatches);
 240 $tmp = wordwrap(strrev($moneymatches[1]),3,",",1);
 241 $ccheck = strrev($tmp);
 242 if ($ccheck[0] == ",") {
 243         $tmp = substr($ccheck,1,strlen($ccheck)-1);
 244 }
 245 if ($moneymatches[2] != "") {
 246         return "$ " . strrev($tmp) . "." . $moneymatches[2];
 247 } else {
 248         return "$ " . strrev($tmp);
 249 }
 250 }
 251 ?>
 252 <? if (! $GLOBALS['athletic_team']) { ?>
 253 <? if ($result{"financial_review"} != "0000-00-00 00:00:00") {?><span class='bold'><? xl('Financial Review Date','e'); ?>: </span><span class='text'><?echo date("n/j/Y",strtotime($result{"financial_review"}));?></span><br><?}?>
 254 <? if ($result{"monthly_income"} != "") {?><span class='bold'><? xl('Monthly Income','e'); ?>: </span><span class='text'><?echo print_as_money($result{"monthly_income"});?></span><br><?}?>
 255 <? if ($result{"migrantseasonal"} != "") {?><span class='bold'><? xl('Migrant/Seasonal','e'); ?>: </span><span class='text'><?echo $result{"migrantseasonal"};?></span><br><?}?>
 256 <? if ($result{"homeless"} != "") {?><span class='bold'><? xl('Homeless, etc','e'); ?>.: </span><span class='text'><?echo $result{"homeless"};?></span><br><?}?>
 257 <? } ?>
 258      </td>
 259      <td valign='top'>
 260       <table>
 261        <tr>
 262         <td><? if ($result{"genericname1"} != "") {?><span class='bold'><?=$result{"genericname1"}?></span>:<?}?> </td>
 263         <td><? if ($result{"genericval1"} != "") {?><span class='text'><?=$result{"genericval1"}?></span><?}?></td>
 264        </tr>
 265        <tr>
 266         <td><? if ($result{"genericname2"} != "") {?><span class='bold'><?=$result{"genericname2"}?></span>:<?}?> </td>
 267         <td><? if ($result{"genericval2"} != "") {?><span class='text'><?=$result{"genericval2"}?></span><?}?></td>
 268        </tr>
 269       </table>
 270      </td>
 271      <td valign='top'></td>
 272     </tr>
 273 <?php
 274 //////////////////////////////////REFERRAL SECTION
 275 if ($result{"referrer"} != "" || $result{"referrerID"} != "")
 276 {
 277 ?>
 278     <tr>
 279      <td valign='top'>
 280       <span class='bold'><? xl('Primary Provider','e'); ?>: </span><span class='text'><?=getProviderName($result['providerID'])?></span><br>
 281       <!--<span class='bold'>Primary Provider ID: </span><span class='text'><?=$result{"referrerID"}?></span>-->
 282      </td>
 283      <td valign='top'></td>
 284      <td valign='top'></td>
 285      <td valign='top'></td>
 286     </tr>
 287 <?php
 288 }
 289
 290 /////////////////////////////////INSURANCE SECTION
 291 $result3 = getInsuranceData($pid, "primary");
 292 if ($result3{"provider"}) {
 293 ?>
 294     <tr>
 295      <td valign='top'>
 296       <span class='bold'><? xl('Primary Insurance Provider','e'); ?>:</span><br><span class='text'><?echo $result3{"provider_name"}?></span><br>
 297       <span class='text'><? xl('Policy Number','e'); ?>: <?echo $result3{"policy_number"}?><br>
 298       Plan Name: <?=$result3{"plan_name"}?><br>
 299       Group Number: <?echo $result3{"group_number"}?></span>
 300      </td>
 301      <td valign='top'>
 302       <span class='bold'><? xl('Subscriber','e'); ?>: </span><br><span class='text'><?=$result3{"subscriber_fname"}?> <?=$result3{"subscriber_mname"}?> <?=$result3{"subscriber_lname"}?> <?if ($result3{"subscriber_relationship"} != "") {echo "(".$result3{"subscriber_relationship"}.")";}?><br>
 303       S.S.: <?echo $result3{"subscriber_ss"}?> <? xl('D.O.B.','e'); ?>: <?if ($result3{"subscriber_DOB"} != "0000-00-00 00:00:00") {echo $result3{"subscriber_DOB"};}?><br>
 304       Phone: <? echo $result3{"subscriber_phone"}?>
 305       </span>
 306      </td>
 307      <td valign='top'>
 308       <span class='bold'><? xl('Subscriber Address','e'); ?>: </span><br><span class='text'><?echo $result3{"subscriber_street"}?><br><?echo $result3{"subscriber_city"}?><?if($result3{"subscriber_state"} != ""){echo ", ";}?><?echo $result3{"subscriber_state"}?><?if($result3{"subscriber_country"} != ""){echo ", ";}?><?echo $result3{"subscriber_country"}?> <?echo " ".$result3{"subscriber_postal_code"}?></span>
 309      </td>
 310      <td valign='top'>
 311       <span class='bold'><? xl('Subscriber Employer','e'); ?>: </span><br><span class='text'><?echo $result3{"subscriber_employer"}?><br><?echo $result3{"subscriber_employer_street"}?><br><?echo $result3{"subscriber_employer_city"}?><?if($result3{"subscriber_employer_city"} != ""){echo ", ";}?><?echo $result3{"subscriber_employer_state"}?><?if($result3{"subscriber_employer_country"} != ""){echo ", ";}?><?echo $result3{"subscriber_employer_country"}?> <?echo " ".$result3{"subscriber_employer_postal_code"}?></span>
 312      </td>
 313     </tr>
 314     <tr>
 315      <td><? if ($result3{"copay"} != "") {?><span class='bold'><? xl('CoPay','e'); ?>: </span><span class='text'><?=$result3{"copay"}?></span><?}?></td>
 316      <td valign='top'></td>
 317      <td valign='top'></td>
 318      <td valign='top'></td>
 319    </tr>
 320 <? } ?>
 321 <?
 322 $result4 = getInsuranceData($pid, "secondary");
 323 if ($result4{"provider"} != "") {
 324 ?>
 325     <tr>
 326      <td valign='top'>
 327       <span class='bold'><? xl('Secondary Insurance Provider','e'); ?>:</span><br><span class='text'><?echo $result4{"provider_name"}?></span><br>
 328       <span class='text'><? xl('Policy Number','e'); ?>: <?echo $result4{"policy_number"}?><br>
 329       Plan Name: <?=$result4{"plan_name"}?><br>
 330       Group Number: <?echo $result4{"group_number"}?></span>
 331      </td>
 332      <td valign='top'>
 333       <span class='bold'><? xl('Subscriber','e'); ?>: </span><br><span class='text'><?=$result4{"subscriber_fname"}?> <?=$result4{"subscriber_mname"}?> <?=$result4{"subscriber_lname"}?> <?if ($result4{"subscriber_relationship"} != "") {echo "(".$result4{"subscriber_relationship"}.")";}?><br>
 334       S.S.: <?echo $result4{"subscriber_ss"}?> <? xl('D.O.B.','e'); ?>: <?if ($result4{"subscriber_DOB"} != "0000-00-00 00:00:00") {echo $result4{"subscriber_DOB"};}?><br>
 335       Phone: <? echo $result4{"subscriber_phone"}?>
 336       </span>
 337      </td>
 338      <td valign='top'>
 339       <span class='bold'><? xl('Subscriber Address','e'); ?>: </span><br><span class='text'><?echo $result4{"subscriber_street"}?><br><?echo $result4{"subscriber_city"}?><?if($result4{"subscriber_state"} != ""){echo ", ";}?><?echo $result4{"subscriber_state"}?><?if($result4{"subscriber_country"} != ""){echo ", ";}?><?echo $result4{"subscriber_country"}?> <?echo " ".$result4{"subscriber_postal_code"}?></span>
 340      </td>
 341      <td valign='top'>
 342       <span class='bold'><? xl('Subscriber Employer','e'); ?>: </span><br><span class='text'><?echo $result4{"subscriber_employer"}?><br><?echo $result4{"subscriber_employer_street"}?><br><?echo $result4{"subscriber_employer_city"}?><?if($result4{"subscriber_employer_city"} != ""){echo ", ";}?><?echo $result4{"subscriber_employer_state"}?><?if($result4{"subscriber_employer_country"} != ""){echo ", ";}?><?echo $result4{"subscriber_employer_country"}?> <?echo " ".$result4{"subscriber_employer_postal_code"}?></span>
 343      </td>
 344     </tr>
 345     <tr>
 346      <td>
 347       <? if ($result4{"copay"} != "") {?><span class='bold'><? xl('CoPay','e'); ?>: </span><span class='text'><?=$result4{"copay"}?></span><?}?>
 348      </td>
 349      <td valign='top'></td>
 350      <td valign='top'></td>
 351      <td valign='top'></td>
 352     </tr>
 353 <? } ?>
 354 <?
 355 $result5 = getInsuranceData($pid, "tertiary");
 356 if ($result5{"provider"}) {
 357 ?>
 358     <tr>
 359      <td valign='top'>
 360       <span class='bold'><? xl('Tertiary Insurance Provider','e'); ?>:</span><br><span class='text'><?echo $result5{"provider_name"}?></span><br>
 361       <span class='text'><? xl('Policy Number','e'); ?>: <?echo $result5{"policy_number"}?><br>
 362       Plan Name: <?=$result5{"plan_name"}?><br>
 363       Group Number: <?echo $result5{"group_number"}?></span>
 364      </td>
 365      <td valign='top'>
 366       <span class='bold'><? xl('Subscriber','e'); ?>: </span><br><span class='text'><?=$result5{"subscriber_fname"}?> <?=$result5{"subscriber_mname"}?> <?=$result5{"subscriber_lname"}?> <?if ($result5{"subscriber_relationship"} != "") {echo "(".$result5{"subscriber_relationship"}.")";}?><br>
 367       S.S.: <?echo $result5{"subscriber_ss"}?> <? xl('D.O.B.','e'); ?>: <?if ($result5{"subscriber_DOB"} != "0000-00-00 00:00:00") {echo $result5{"subscriber_DOB"};}?><br>
 368       Phone: <? echo $result5{"subscriber_phone"}?>
 369       </span>
 370      </td>
 371      <td valign='top'>
 372       <span class='bold'><? xl('Subscriber Address','e'); ?>: </span><br><span class='text'><?echo $result5{"subscriber_street"}?><br><?echo $result5{"subscriber_city"}?><?if($result5{"subscriber_state"} != ""){echo ", ";}?><?echo $result5{"subscriber_state"}?><?if($result5{"subscriber_country"} != ""){echo ", ";}?><?echo $result5{"subscriber_country"}?> <?echo " ".$result5{"subscriber_postal_code"}?></span>
 373      </td>
 374      <td valign='top'>
 375       <span class='bold'><? xl('Subscriber Employer','e'); ?>: </span><br><span class='text'><?echo $result5{"subscriber_employer"}?><br><?echo $result5{"subscriber_employer_street"}?><br><?echo $result5{"subscriber_employer_city"}?><?if($result5{"subscriber_employer_city"} != ""){echo ", ";}?><?echo $result5{"subscriber_employer_state"}?><?if($result5{"subscriber_employer_country"} != ""){echo ", ";}?><?echo $result5{"subscriber_employer_country"}?> <?echo " ".$result5{"subscriber_employer_postal_code"}?></span>
 376      </td>
 377     </tr>
 378     <tr>
 379      <td>
 380       <? if ($result5{"copay"} != "") {?><span class='bold'><? xl('CoPay','e'); ?>: </span><span class='text'><?=$result5{"copay"}?></span><?}?>
 381      </td>
 382      <td valign='top'></td>
 383      <td valign='top'></td>
 384      <td valign='top'></td>
 385     </tr>
 386 <?
 387 }
 388 ?>
 389    </table>
 390   </td>
 391   <td valign="top" class="text">
 392 <?php
 393 if (isset($pid)) {
 394  $query = "SELECT e.pc_eid, e.pc_aid, e.pc_title, e.pc_eventDate, " .
 395   "e.pc_startTime, u.fname, u.lname, u.mname " .
 396   "FROM openemr_postcalendar_events AS e, users AS u WHERE " .
 397   "e.pc_pid = '$pid' AND e.pc_eventDate >= CURRENT_DATE AND " .
 398   "u.id = e.pc_aid " .
 399   "ORDER BY e.pc_eventDate, e.pc_startTime";
 400  $res = sqlStatement($query);
 401  while($row = sqlFetchArray($res)) {
 402   $dayname = date("l", strtotime($row['pc_eventDate']));
 403   $dispampm = "am";
 404   $disphour = substr($row['pc_startTime'], 0, 2) + 0;
 405   $dispmin  = substr($row['pc_startTime'], 3, 2);
 406   if ($disphour >= 12) {
 407    $dispampm = "pm";
 408    if ($disphour > 12) $disphour -= 12;
 409   }
 410   echo "<a href='javascript:oldEvt(" . $row['pc_eid'] .
 411        ")'><b>$dayname " . $row['pc_eventDate'] . "</b><br>";
 412   echo "$disphour:$dispmin $dispampm " . $row['pc_title'] . "<br>\n";
 413   echo $row['fname'] . " " . $row['lname'] . "</a><br>&nbsp;<br>\n";
 414  }
 415 }
 416 ?>
 417   </td>
 418  </tr>
 419 </table>
 420
 421 <?php if ($GLOBALS['concurrent_layout'] && $_GET['set_pid']) { ?>
 422 <script language='JavaScript'>
 423  parent.left_nav.setPatient(<?php echo "'" . $result['fname'] . " " . $result['lname'] . "'," . $pid; ?>);
 424  parent.left_nav.setRadio('rb_bot', 'sum');
 425  parent.left_nav.loadFrame('RBot', 'summary_bottom.php');
 426 </script>
 427 <?php } ?>
 428
 429 </body>
 430 </html>