contrib/forms/plist/report.php

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