contrib/forms/plist/report.php

   1 <? function plist_report( $pid, $encounter, $cols, $id) { ?>
   2
   3 <?php
   4 include_once("../../globals.php");
   5 global $srcdir;
   6 include_once("$srcdir/api.inc");
   7    $fres = sqlStatement("select * from form_plist where id=$id");
   8    $repdata = sqlFetchArray($fres);
   9    $fres=sqlStatement("select * from patient_data where pid=".$_SESSION["pid"]);
  10    if ($fres){
  11      $patient = sqlFetchArray($fres);
  12    }
  13 ?>
  14 <table width="70%"  border="0" cellspacing="0" cellpadding="4">
  15   <tr>
  16     <td width="120" align="left" valign="bottom" class="srvCaption">Patient name:</td>
  17     <td align="left" valign="bottom" class="fibody5"><? echo $patient{'fname'}.' '.$patient{'mname'}.' '.$patient{'lname'}; ?></td>
  18   </tr>
  19   <tr>
  20     <td width="120" align="left" valign="bottom" class="srvCaption">Birth date: </td>
  21     <td align="left" valign="bottom" class="fibody5"><?  echo $patient{'DOB'};  ?></td>
  22   </tr>
  23   <tr>
  24     <td width="120" align="left" valign="bottom" class="srvCaption">ID No:</td>
  25     <td align="left" valign="bottom" class="fibody5"><? echo $patient{'id'};  ?></td>
  26   </tr>
  27   <tr>
  28     <td width="120" align="left" valign="bottom" class="srvCaption">Date</td>
  29     <td align="left" valign="bottom" class="fibody5"><? echo date('Y-m-d'); ?></td>
  30   </tr>
  31 </table>
  32 <div class="srvChapter">Problem list </div>
  33 <div style="border: solid 2px black; background-color:#FFFFFF;">
  34   <table width="100%"  border="0" cellspacing="0" cellpadding="2">
  35     <tr>
  36       <td width="50%" class="ficaption3" id="bordR">High risk:</td>
  37       <td width="50%" class="ficaption3">Family history:</td>
  38     </tr>
  39     <tr>
  40       <td class="fibody5" id="bordR"><? echo $repdata{'pl_high_risk'} ?>&nbsp;</td>
  41       <td class="fibody5"><? echo $repdata{'pl_family_history'} ?>&nbsp;</td>
  42     </tr>
  43     <tr>
  44       <td class="ficaption3" id="bordR">Drug/Latex/Transfusion/Allergic reactions: </td>
  45       <td class="ficaption3">Current medications:</td>
  46     </tr>
  47     <tr>
  48       <td class="fibody5" id="bordR"><? echo $repdata{'pl_reactions'} ?>&nbsp;</td>
  49       <td class="fibody5"><? echo $repdata{'pl_medications'} ?>&nbsp;</td>
  50     </tr>
  51   </table>
  52 </div>
  53 <p>&nbsp;</p>
  54 <div style="background-color:#FFFFFF;">
  55   <table width="100%"  border="0" cellspacing="0" cellpadding="2" class="fitable">
  56     <tr>
  57       <td width="20" align="left" valign="bottom" class="ficaption2" id="bordR">No</td>
  58       <td width="120" align="center" valign="bottom" class="ficaption2" id="bordR">Entry date </td>
  59       <td align="center" valign="bottom" class="ficaption2" id="bordR">Problem/Resolution</td>
  60       <td width="120" align="center" valign="bottom" class="ficaption2" id="bordR">Onset age and date </td>
  61       <td width="120" align="center" valign="bottom" class="ficaption2">Resolution date </td>
  62     </tr>
  63 <?
  64 $pli = 1;
  65
  66 while ($pli < 26){
  67 list($pl_ed, $pl_problem, $pl_onset, $pl_rd) = explode('|~', $repdata["pl_problem_${pli}"]);
  68 print <<<EOL
  69     <tr>
  70       <td align="left" valign="bottom" class="fibody5" id="bordR">${pli}.</td>
  71       <td align="left" valign="bottom" class="fibody5" id="bordR">${pl_ed}&nbsp;</td>
  72       <td align="left" valign="bottom" class="fibody5" id="bordR">${pl_problem}&nbsp;</td>
  73       <td align="left" valign="bottom" class="fibody5" id="bordR">${pl_onset}&nbsp;</td>
  74       <td align="left" valign="bottom" class="fibody5">${pl_rd}&nbsp;</td>
  75     </tr>
  76 EOL;
  77 $pli++;
  78 }
  79 ?>
  80   </table>
  81 </div>
  82 <? } ?>