contrib/forms/physical_examination/report.php

   1 <? function physical_examination_report( $pid, $encounter, $cols, $id) {
   2 include_once("../../globals.php");
   3 include_once("$srcdir/api.inc");
   4 include_once("$srcdir/forms.inc");
   5 include_once("$srcdir/calendar.inc");
   6    $fres=sqlStatement("select * from patient_data where pid='".$pid."'");
   7    if ($fres){  $patient = sqlFetchArray($fres);  }
   8    $fres=sqlStatement("select * from form_physical_examination where id=$id");
   9    if ($fres){  $fdata = sqlFetchArray($fres);  }
  10 ?>
  11 <div class="srvChapter">Physical examination</div>
  12 <div style="border: solid 1.5pt black; background-color: white;">
  13 <table width="100%"  border="0" cellspacing="0" cellpadding="3">
  14   <tr>
  15     <td align="left" valign="top" style="border-bottom: 2px solid black;"><table width="100%"  border="0" cellspacing="0" cellpadding="5">
  16       <tr align="left" valign="top" class="fibody">
  17         <td width="40%" nowrap id="bordR">Patient name: <b><?  echo $patient{'fname'}.' '.$patient{'mname'}.' '.$patient{'lname'};  ?></b></td>
  18         <td width="20%" nowrap id="bordR">Birth date: <? echo $patient{'DOB'}; ?></td>
  19         <td width="20%" nowrap id="bordR">ID No: <? echo $patient{'id'};  ?></td>
  20         <td width="20%" nowrap>Date: <? echo date('Y-m-d');  ?></td>
  21       </tr>
  22     </table></td>
  23   </tr>
  24   <tr>
  25     <td align="left" valign="top" bgcolor="#EDEDED"><h2>Constitutional</h2>
  26       <li>Vital signs (record <u><strong>&gt;</strong></u> 3 vital signs)</li>
  27       <table width="100%"  border="0" cellspacing="0" cellpadding="0">
  28         <tr align="left" valign="top" class="fibody">
  29           <td width="14%" nowrap>Height<br>
  30             <? echo $fdata{'height'}; ?></td>
  31           <td width="14%" nowrap>Weight<br>
  32             <? echo $fdata{'weight'}; ?></td>
  33           <td width="14%" nowrap>BMI<br>
  34             <? echo $fdata{'bmi'}; ?></td>
  35           <td nowrap>Blood pressure (sitting) <br>
  36             <? echo $fdata{'blood_pressure'}; ?></td>
  37           <td width="14%" nowrap>Temperature<br>
  38             <? echo $fdata{'temperature'}; ?></td>
  39           <td width="14%" nowrap>Pulse<br>
  40             <? echo $fdata{'pulse'}; ?></td>
  41           <td width="14%" nowrap>Respiration<br>
  42             <? echo $fdata{'respiration'}; ?></td>
  43         </tr>
  44       </table>
  45       <li>General appearance (Note all that apply):</li> <table width="100%"  border="0" cellspacing="0" cellpadding="2">
  46         <tr class="fibody">
  47           <td width="150" nowrap><? echo (($fdata{'general_well_developed'} == '0')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
  48             Well-developed
  49 </td>
  50           <td width="90" nowrap><? echo (($fdata{'general_well_developed'} == '1')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
  51             Other
  52 </td>
  53           <td width="100" nowrap>&nbsp;</td>
  54           <td>&nbsp;</td>
  55           <td width="120"><? echo (($fdata{'general_no_deformities'} == '0')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
  56             No deformities
  57 </td>
  58           <td width="100"><? echo (($fdata{'general_no_deformities'} == '1')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
  59             Other
  60 </td>
  61           <td>&nbsp;</td>
  62         </tr>
  63         <tr class="fibody">
  64           <td width="150" nowrap><? echo (($fdata{'general_well_nourished'} == '0')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
  65             Well-nourished
  66 </td>
  67           <td width="90" nowrap><? echo (($fdata{'general_well_nourished'} == '1')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
  68             Other
  69 </td>
  70           <td width="100" nowrap>&nbsp;</td>
  71           <td>&nbsp;</td>
  72           <td width="120"><? echo (($fdata{'general_well_groomed'} == '0')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
  73             Well-groomed
  74 </td>
  75           <td width="100"><? echo (($fdata{'general_well_groomed'} == '1')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
  76             Other
  77 </td>
  78           <td>&nbsp;</td>
  79         </tr>
  80         <tr class="fibody">
  81           <td width="150" nowrap><? echo (($fdata{'general_normal_habitus'} == '0')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
  82             Normal habitus</td>
  83           <td width="90" nowrap><? echo (($fdata{'general_normal_habitus'} == '2')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
  84             Obese</td>
  85           <td width="100" nowrap><? echo (($fdata{'general_normal_habitus'} == '1')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
  86             Other</td>
  87           <td>&nbsp;</td>
  88           <td width="120">&nbsp;</td>
  89           <td width="100">&nbsp;</td>
  90           <td>&nbsp;</td>
  91         </tr>
  92       </table> </td>
  93   </tr>
  94   <tr>
  95     <td align="left" valign="top"><h2>Neck</h2>
  96       <table width="100%"  border="0" cellspacing="0" cellpadding="1">
  97         <tr align="left" valign="bottom" class="fibody">
  98           <td width="150" nowrap><li>Neck</li></td>
  99           <td width="90" nowrap> <? echo (($fdata{'neck_neck'} == '0')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
 100       Normal</td>
 101           <td width="100" nowrap><? echo (($fdata{'neck_neck'} == '1')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
 102             ABNormal</td>
 103           <td><? echo $fdata{'neck_neck_data'}; ?></td>
 104           </tr>
 105         <tr align="left" valign="bottom" class="fibody">
 106           <td width="150" nowrap><li>Thyroid</li></td>
 107           <td width="90" nowrap>
 108             <? echo (($fdata{'neck_thyroid'} == '0')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
 109   Normal</td>
 110           <td width="100" nowrap><? echo (($fdata{'neck_thyroid'} == '1')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
 111 ABNormal</td>
 112           <td><? echo $fdata{'neck_thyroid_data'}; ?></td>
 113           </tr>
 114       </table> </td>
 115   </tr>
 116   <tr>
 117     <td align="left" valign="top"><h2>Respiratory</h2>
 118       <table width="100%"  border="0" cellspacing="0" cellpadding="1">
 119         <tr align="left" valign="bottom" class="fibody">
 120           <td width="150" nowrap><li>Respiratory effort </li></td>
 121           <td nowrap>
 122             <? echo (($fdata{'respiratory_effort'} == '0')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
 123   Normal</td>
 124           <td nowrap><? echo (($fdata{'respiratory_effort'} == '1')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
 125   ABNormal</td>
 126           <td><? echo $fdata{'respiratory_effort_data'}; ?></td>
 127         </tr>
 128         <tr align="left" valign="bottom" class="fibody">
 129           <td width="150" nowrap><li>Auscultated lungs </li></td>
 130           <td width="90" nowrap><? echo (($fdata{'auscultated_lungs'} == '0')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
 131 Normal</td>
 132           <td width="100" nowrap><? echo (($fdata{'auscultated_lungs'} == '1')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
 133 ABNormal</td>
 134           <td><? echo $fdata{'auscultated_lungs_data'}; ?></td>
 135         </tr>
 136       </table> </td>
 137   </tr>
 138   <tr>
 139     <td align="left" valign="top"><h2>Cardiovascular</h2>
 140       <table width="100%"  border="0" cellspacing="0" cellpadding="1">
 141         <tr align="left" valign="bottom" class="fibody">
 142           <td width="150" nowrap><li>Auscultated heart </li></td>
 143           <td width="90" nowrap>&nbsp;</td>
 144           <td width="100" nowrap>&nbsp;</td>
 145           <td>&nbsp;</td>
 146         </tr>
 147         <tr align="left" valign="bottom" class="fibody">
 148           <td width="150" nowrap><blockquote> Sounds</blockquote></td>
 149           <td width="90" nowrap><? echo (($fdata{'auscultated_heart_sounds'} == '0')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
 150 Normal</td>
 151           <td width="100" nowrap><? echo (($fdata{'auscultated_heart_sounds'} == '1')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
 152 ABNormal</td>
 153           <td><? echo $fdata{'auscultated_heart_sounds_data'}; ?></td>
 154         </tr>
 155         <tr align="left" valign="bottom" class="fibody">
 156           <td nowrap><blockquote> Murmurs</blockquote></td>
 157           <td nowrap><? echo (($fdata{'auscultated_heart_murmurs'} == '0')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
 158 Normal</td>
 159           <td nowrap><? echo (($fdata{'auscultated_heart_murmurs'} == '1')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
 160 ABNormal</td>
 161           <td><? echo $fdata{'auscultated_heart_murmurs_data'}; ?></td>
 162         </tr>
 163         <tr align="left" valign="bottom" class="fibody">
 164           <td nowrap><li>Perirheral vascular </li></td>
 165           <td nowrap><? echo (($fdata{'peripheral_vascular'} == '0')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
 166 Normal</td>
 167           <td nowrap><? echo (($fdata{'peripheral_vascular'} == '1')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
 168 ABNormal</td>
 169           <td><? echo $fdata{'peripheral_vascular_data'}; ?></td>
 170         </tr>
 171       </table> </td>
 172   </tr>
 173   <tr>
 174     <td align="left" valign="top" bgcolor="#EDEDED"><h2>Gastrointestinal</h2>
 175       <table width="100%"  border="0" cellspacing="0" cellpadding="1">
 176         <tr align="left" valign="bottom" class="fibody">
 177           <td width="150" nowrap><li>Abdomen</li></td>
 178           <td width="90" nowrap><? echo (($fdata{'gastr_abdomen'} == '0')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
 179 Normal</td>
 180           <td width="100" nowrap><? echo (($fdata{'gastr_abdomen'} == '1')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
 181 ABNormal</td>
 182           <td><? echo $fdata{'gastr_abdomen_data'}; ?></td>
 183         </tr>
 184         <tr align="left" valign="bottom" class="fibody">
 185           <td width="150" nowrap><li>Hernia</li></td>
 186           <td width="90" nowrap><? echo (($fdata{'gastr_hernia'} == '0')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
 187       none</td>
 188           <td width="100" nowrap><? echo (($fdata{'gastr_hernia'} == '1')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
 189       present</td>
 190           <td><? echo $fdata{'gastr_hernia_data'}; ?></td>
 191         </tr>
 192         <tr align="left" valign="bottom" class="fibody">
 193           <td nowrap><li>Liver/Spleen</li></td>
 194           <td nowrap>&nbsp;</td>
 195           <td nowrap>&nbsp;</td>
 196           <td>&nbsp;</td>
 197         </tr>
 198         <tr align="left" valign="bottom" class="fibody">
 199           <td nowrap><blockquote> Liver </blockquote></td>
 200           <td nowrap><? echo (($fdata{'gastr_liver'} == '0')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
 201     Normal</td>
 202           <td nowrap><? echo (($fdata{'gastr_liver'} == '1')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
 203     ABNormal</td>
 204           <td><? echo $fdata{'gastr_liver_data'}; ?></td>
 205         </tr>
 206         <tr align="left" valign="bottom" class="fibody">
 207           <td nowrap><blockquote> Spleen </blockquote></td>
 208           <td nowrap><? echo (($fdata{'gastr_spleen'} == '0')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
 209     Normal</td>
 210           <td nowrap><? echo (($fdata{'gastr_spleen'} == '1')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
 211     ABNormal</td>
 212           <td><? echo $fdata{'gastr_spleen_data'}; ?></td>
 213         </tr>
 214         <tr align="left" valign="bottom" class="fibody">
 215           <td nowrap><li><a name="sg"></a>Stool guaIac, if indic.</li></td>
 216           <td nowrap><? echo (($fdata{'gastr_stool_guaiac'} == '0')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
 217     positive</td>
 218           <td nowrap><? echo (($fdata{'gastr_stool_guaiac'} == '1')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
 219     negative</td>
 220           <td><? echo $fdata{'gastr_stool_guaiac_data'}; ?></td>
 221         </tr>
 222       </table> </td>
 223   </tr>
 224   <tr>
 225     <td align="left" valign="top"><h2>Lymphatic</h2>
 226       <table width="100%"  border="0" cellspacing="0" cellpadding="1">
 227         <tr align="left" valign="bottom" class="fibody">
 228           <td colspan="4" nowrap><li>Palpation of nodes (Choose all, that are applicable) </li></td>
 229           </tr>
 230         <tr align="left" valign="bottom" class="fibody">
 231           <td width="150" nowrap><blockquote> Neck </blockquote></td>
 232           <td width="90" nowrap><? echo (($fdata{'lymph_neck'} == '0')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
 233       Normal</td>
 234           <td width="100" nowrap><? echo (($fdata{'lymph_neck'} == '1')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
 235       ABNormal</td>
 236           <td><? echo $fdata{'lymph_neck_data'}; ?></td>
 237         </tr>
 238         <tr align="left" valign="bottom" class="fibody">
 239           <td nowrap><blockquote> Axilla </blockquote></td>
 240           <td nowrap><? echo (($fdata{'lymph_axilla'} == '0')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
 241       Normal</td>
 242           <td nowrap><? echo (($fdata{'lymph_axilla'} == '1')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
 243       ABNormal</td>
 244           <td><? echo $fdata{'lymph_axilla_data'}; ?></td>
 245         </tr>
 246         <tr align="left" valign="bottom" class="fibody">
 247           <td nowrap><blockquote> Groin </blockquote></td>
 248           <td nowrap><? echo (($fdata{'lymph_groin'} == '0')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
 249     Normal</td>
 250           <td nowrap><? echo (($fdata{'lymph_groin'} == '1')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
 251     ABNormal</td>
 252           <td><? echo $fdata{'lymph_groin_data'}; ?></td>
 253         </tr>
 254         <tr align="left" valign="bottom" class="fibody">
 255           <td nowrap><blockquote> Other site </blockquote></td>
 256           <td nowrap><? echo (($fdata{'lymph_other'} == '0')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
 257     Normal</td>
 258           <td nowrap><? echo (($fdata{'lymph_other'} == '1')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
 259     ABNormal</td>
 260           <td><? echo $fdata{'lymph_other_data'}; ?></td>
 261         </tr>
 262       </table> </td>
 263   </tr>
 264   <tr>
 265     <td align="left" valign="top"><h2>Skin</h2>
 266       <table width="100%"  border="0" cellspacing="0" cellpadding="1">
 267         <tr align="left" valign="bottom" class="fibody">
 268           <td width="150" nowrap><li>inspected/palpated</li></td>
 269           <td width="90" nowrap><? echo (($fdata{'skin_inspected'} == '0')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
 270       Normal</td>
 271           <td width="100" nowrap><? echo (($fdata{'skin_inspected'} == '1')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
 272       ABNormal</td>
 273           <td><? echo $fdata{'skin_inspected_data'}; ?></td>
 274         </tr>
 275       </table> </td>
 276   </tr>
 277   <tr>
 278     <td align="left" valign="top"><h2>Neurologic/psychiatric</h2>
 279       <table width="100%"  border="0" cellspacing="0" cellpadding="1">
 280         <tr align="left" valign="bottom" class="fibody">
 281           <td width="150" nowrap><li>Orientation</li></td>
 282           <td width="90" nowrap><? echo (($fdata{'neur_orient_time'} == '1')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
 283       Time</td>
 284           <td width="100" nowrap><? echo (($fdata{'neur_orient_place'} == '1')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
 285       Place</td>
 286           <td width="100"><? echo (($fdata{'neur_orient_person'} == '1')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
 287             Person
 288 </td>
 289           <td width="100"><? echo (($fdata{'neur_orient_comments'} == '1')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
 290             Comments
 291 </td>
 292           <td>&nbsp;</td>
 293           </tr>
 294         <tr align="left" valign="bottom" class="fibody">
 295           <td width="150" nowrap><li>Mood and affect </li></td>
 296           <td width="90" nowrap><? echo (($fdata{'neur_mood_normal'} == '1')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
 297       Normal</td>
 298           <td width="100" nowrap><? echo (($fdata{'neur_mood_depressed'} == '1')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
 299       Depressed</td>
 300           <td width="100"><? echo (($fdata{'neur_mood_anxious'} == '1')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
 301             Anxious
 302 </td>
 303           <td width="100"><? echo (($fdata{'neur_mood_agitated'} == '1')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
 304             Agitated
 305 </td>
 306           <td><? echo (($fdata{'neur_mood_other'} == '1')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
 307             Other
 308 </td>
 309           </tr>
 310       </table> </td>
 311   </tr>
 312   <tr>
 313     <td align="left" valign="top" bgcolor="#EDEDED"><h2>Gynecologic (at least 7) </h2>
 314       <table width="100%"  border="0" cellspacing="0" cellpadding="1">
 315         <tr align="left" valign="bottom" class="fibody">
 316           <td width="150" nowrap><li>Breasts</li></td>
 317           <td width="90" nowrap><? echo (($fdata{'gynec_breasts'} == '0')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
 318       Normal</td>
 319           <td width="100" nowrap><? echo (($fdata{'gynec_breasts'} == '1')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
 320       ABNormal</td>
 321           <td><? echo $fdata{'gynec_breasts_data'}; ?></td>
 322           <td width="231" rowspan="12" align="center" valign="middle">
 323           <img src="<?
 324           echo "$rootdir/forms/$formname/";
 325           ?>genit01.gif" width="231" height="222"></td>
 326         </tr>
 327         <tr align="left" valign="bottom" class="fibody">
 328           <td nowrap><li>External genitalia </li></td>
 329           <td nowrap><? echo (($fdata{'gynec_ext_genitalia'} == '0')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
 330   Normal</td>
 331           <td nowrap><? echo (($fdata{'gynec_ext_genitalia'} == '1')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
 332   ABNormal</td>
 333           <td><? echo $fdata{'gynec_ext_genitalia_data'}; ?></td>
 334           </tr>
 335         <tr align="left" valign="bottom" class="fibody">
 336           <td nowrap><li>Urethral meatus </li></td>
 337           <td nowrap><? echo (($fdata{'gynec_urethral_meatus'} == '0')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
 338   Normal</td>
 339           <td nowrap><? echo (($fdata{'gynec_urethral_meatus'} == '1')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
 340   ABNormal</td>
 341           <td><? echo $fdata{'gynec_urethral_meatus_data'}; ?></td>
 342           </tr>
 343         <tr align="left" valign="bottom" class="fibody">
 344           <td width="150" nowrap><li>Urethra</li></td>
 345           <td width="90" nowrap><? echo (($fdata{'gynec_urethra'} == '0')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
 346   Normal</td>
 347           <td width="100" nowrap><? echo (($fdata{'gynec_urethra'} == '1')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
 348   ABNormal</td>
 349           <td><? echo $fdata{'gynec_urethra_data'}; ?></td>
 350           </tr>
 351         <tr align="left" valign="bottom" class="fibody">
 352           <td nowrap><li>Bladder</li></td>
 353           <td nowrap><? echo (($fdata{'gynec_bladder'} == '0')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
 354   Normal</td>
 355           <td nowrap><? echo (($fdata{'gynec_bladder'} == '1')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
 356   ABNormal</td>
 357           <td><? echo $fdata{'gynec_bladder_data'}; ?></td>
 358           </tr>
 359         <tr align="left" valign="bottom" class="fibody">
 360           <td nowrap><li>Vagina/Pelvic support</li></td>
 361           <td nowrap><? echo (($fdata{'gynec_vagina_support'} == '0')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
 362   Normal</td>
 363           <td nowrap><? echo (($fdata{'gynec_vagina_support'} == '1')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
 364   ABNormal</td>
 365           <td><? echo $fdata{'gynec_vagina_support_data'}; ?></td>
 366           </tr>
 367         <tr align="left" valign="bottom" class="fibody">
 368           <td width="150" nowrap><li>Cervix</li></td>
 369           <td width="90" nowrap><? echo (($fdata{'gynec_cervix'} == '0')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
 370   Normal</td>
 371           <td width="100" nowrap><? echo (($fdata{'gynec_cervix'} == '1')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
 372   ABNormal</td>
 373           <td><? echo $fdata{'gynec_cervix_data'}; ?></td>
 374           </tr>
 375         <tr align="left" valign="bottom" class="fibody">
 376           <td nowrap><li>Uterus</li></td>
 377           <td nowrap><? echo (($fdata{'gynec_uterus'} == '0')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
 378   Normal</td>
 379           <td nowrap><? echo (($fdata{'gynec_uterus'} == '1')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
 380   ABNormal</td>
 381           <td><? echo $fdata{'gynec_uterus_data'}; ?></td>
 382           </tr>
 383         <tr align="left" valign="bottom" class="fibody">
 384           <td nowrap><li>Adnexa/Parametria</li></td>
 385           <td nowrap><? echo (($fdata{'gynec_adnexa'} == '0')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
 386   Normal</td>
 387           <td nowrap><? echo (($fdata{'gynec_adnexa'} == '1')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
 388   ABNormal</td>
 389           <td><? echo $fdata{'gynec_adnexa_data'}; ?></td>
 390           </tr>
 391         <tr align="left" valign="bottom" class="fibody">
 392           <td width="150" nowrap><li>Anus/Perineum</li></td>
 393           <td width="90" nowrap><? echo (($fdata{'gynec_anus'} == '0')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
 394   Normal</td>
 395           <td width="100" nowrap><? echo (($fdata{'gynec_anus'} == '1')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
 396   ABNormal</td>
 397           <td><? echo $fdata{'gynec_anus_data'}; ?></td>
 398           </tr>
 399         <tr align="left" valign="bottom" class="fibody">
 400           <td nowrap><li>Rectal</li></td>
 401           <td nowrap><? echo (($fdata{'gynec_rectal'} == '0')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
 402   Normal</td>
 403           <td nowrap><? echo (($fdata{'gynec_rectal'} == '1')?'<img src="../../pic/mrkcheck.png" width="12" height="11"> ':'<img src="../../pic/mrkempty.png" width="12" height="11"> '); ?>
 404   ABNormal</td>
 405           <td><? echo $fdata{'gynec_rectal_data'}; ?></td>
 406           </tr>
 407         <tr align="left" valign="bottom" class="fibody">
 408           <td colspan="4" nowrap><br>
 409             (See also &quot;<a href="#sg">Stool guaiac</a>&quot; above ) </td>
 410           </tr>
 411       </table> </td>
 412   </tr>
 413   <tr class="fibody">
 414     <td align="left" valign="top" style="border-bottom:2px solid black;border-top:2px solid black;">Total number of bulleted elements examined
 415       <? echo $fdata{'tot_num_examined'}; ?></td>
 416   </tr>
 417 </table>
 418 </div>
 419 <? } ?>