contrib/forms/plist/printable.php

   1 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
   2
   3 "http://www.w3.org/TR/html4/loose.dtd">
   4
   5 <?php
   6
   7 include_once("../../globals.php");
   8
   9 include_once("$srcdir/api.inc");
  10
  11 ?>
  12
  13
  14
  15 <html>
  16
  17 <head>
  18 <? html_header_show();?>
  19
  20 <? include("../../acog_printable_v.css"); ?>
  21
  22 </head>
  23
  24
  25
  26 <?
  27
  28    $fres = sqlStatement("select * from form_plist where id=$id");
  29
  30    $repdata = sqlFetchArray($fres);
  31
  32    $fres=sqlStatement("select * from patient_data where pid=".$_SESSION["pid"]);
  33
  34    if ($fres){
  35
  36      $patient = sqlFetchArray($fres);
  37
  38    }
  39
  40 ?>
  41
  42 <body <?echo $top_bg_line;?>>
  43
  44 <table width="70%"  border="0" cellspacing="0" cellpadding="4">
  45
  46   <tr>
  47
  48     <td width="120" align="left" valign="bottom" class="srvCaption">Patient name:</td>
  49
  50     <td align="left" valign="bottom" class="fibody5"><? echo $patient{'fname'}.' '.$patient{'mname'}.' '.$patient{'lname'}; ?></td>
  51
  52   </tr>
  53
  54   <tr>
  55
  56     <td width="120" align="left" valign="bottom" class="srvCaption">Birth date: </td>
  57
  58     <td align="left" valign="bottom" class="fibody5"><?  echo $patient{'DOB'};  ?></td>
  59
  60   </tr>
  61
  62   <tr>
  63
  64     <td width="120" align="left" valign="bottom" class="srvCaption">ID No:</td>
  65
  66     <td align="left" valign="bottom" class="fibody5"><? echo $patient{'id'};  ?></td>
  67
  68   </tr>
  69
  70   <tr>
  71
  72     <td width="120" align="left" valign="bottom" class="srvCaption">Date</td>
  73
  74     <td align="left" valign="bottom" class="fibody5"><? echo date('Y-m-d'); ?></td>
  75
  76   </tr>
  77
  78 </table>
  79
  80 <div class="srvChapter">Problem list </div>
  81
  82 <div style="border: solid 2px black; background-color:#FFFFFF;">
  83
  84   <table width="100%"  border="0" cellspacing="0" cellpadding="2">
  85
  86     <tr>
  87
  88       <td width="50%" class="ficaption3" id="bordR">High risk:</td>
  89
  90       <td width="50%" class="ficaption3">Family history:</td>
  91
  92     </tr>
  93
  94     <tr>
  95
  96       <td class="fibody5" id="bordR"><? echo $repdata{'pl_high_risk'} ?>&nbsp;</td>
  97
  98       <td class="fibody5"><? echo $repdata{'pl_family_history'} ?>&nbsp;</td>
  99
 100     </tr>
 101
 102     <tr>
 103
 104       <td class="ficaption3" id="bordR">Drug/Latex/Transfusion/Allergic reactions: </td>
 105
 106       <td class="ficaption3">Current medications:</td>
 107
 108     </tr>
 109
 110     <tr>
 111
 112       <td class="fibody5" id="bordR"><? echo $repdata{'pl_reactions'} ?>&nbsp;</td>
 113
 114       <td class="fibody5"><? echo $repdata{'pl_medications'} ?>&nbsp;</td>
 115
 116     </tr>
 117
 118   </table>
 119
 120 </div>
 121
 122 <p>&nbsp;</p>
 123
 124 <div style="border: solid 2px black; background-color:#FFFFFF;">
 125
 126   <table width="100%"  border="0" cellspacing="0" cellpadding="2">
 127
 128     <tr>
 129
 130       <td width="20" align="left" valign="bottom" class="ficaption2" id="bordR">No</td>
 131
 132       <td width="120" align="center" valign="bottom" class="ficaption2" id="bordR">Entry date </td>
 133
 134       <td align="center" valign="bottom" class="ficaption2" id="bordR">Problem/Resolution</td>
 135
 136       <td width="120" align="center" valign="bottom" class="ficaption2" id="bordR">Onset age and date </td>
 137
 138       <td width="120" align="center" valign="bottom" class="ficaption2">Resolution date </td>
 139
 140     </tr>
 141
 142 <?
 143
 144 $pli = 1;
 145
 146
 147
 148 while ($pli < 26){
 149
 150 list($pl_ed, $pl_problem, $pl_onset, $pl_rd) = explode('|~', $repdata["pl_problem_${pli}"]);
 151
 152 print <<<EOL
 153
 154     <tr>
 155
 156       <td align="left" valign="bottom" class="fibody5" id="bordR">${pli}.</td>
 157
 158       <td align="left" valign="bottom" class="fibody5" id="bordR">${pl_ed}&nbsp;</td>
 159
 160       <td align="left" valign="bottom" class="fibody5" id="bordR">${pl_problem}&nbsp;</td>
 161
 162       <td align="left" valign="bottom" class="fibody5" id="bordR">${pl_onset}&nbsp;</td>
 163
 164       <td align="left" valign="bottom" class="fibody5">${pl_rd}&nbsp;</td>
 165
 166     </tr>
 167
 168 EOL;
 169
 170 $pli++;
 171
 172 }
 173
 174 ?>
 175
 176   </table>
 177
 178 </div>
 179
 180 <p>&nbsp;</p>
 181
 182 </body>
 183
 184 </html>