contrib/forms/high_risk_screening_record/report.php

   1 <?
   2 function high_risk_screening_record_report( $pid, $encounter, $cols, $id) {
   3 include_once("../../globals.php");
   4 include_once("$srcdir/api.inc");
   5 include_once("$srcdir/forms.inc");
   6 include_once("$srcdir/calendar.inc");
   7    $fres=sqlStatement("select * from patient_data where pid='".$pid."'");
   8    if ($fres){
   9      $patient = sqlFetchArray($fres);
  10    }
  11    $fres=sqlStatement("select * from form_high_risk_screening_record where id=$id");
  12    if ($fres){
  13      $fdata = sqlFetchArray($fres);
  14    }
  15 ?>
  16 <body <?echo $top_bg_line;?>>
  17
  18 <div class="srvChapter">High risk screening record* </div>
  19 <div style="border: solid 2px black; background-color:#FFFFFF;">
  20   <table  border="0" cellpadding="2" cellspacing="0">
  21     <tr align="left" valign="bottom">
  22       <td colspan="6" class="fibody2" id="bordR">Patient name: <?  echo $patient{'fname'}.' '.$patient{'mname'}.' '.$patient{'lname'};  ?></td>
  23       <td colspan="5" class="fibody2" id="bordR">Birth date: <?  echo $patient{'DOB'}; ?></td>
  24       <td colspan="4" class="fibody2">ID No: <? echo $patient{'id'}; ?></td>
  25       </tr>
  26     <tr align="center" valign="middle">
  27       <td class="ficaption2" id="bordR">&nbsp;</td>
  28       <td width="6%" class="ficaption2" id="bordR">HEMO-<br>
  29         GLOBIN<br>
  30         TEST</td>
  31       <td width="6%" class="ficaption2" id="bordR">BONE DENSITY<br>
  32         SCREENING</td>
  33       <td width="6%" class="ficaption2" id="bordR">BACTERI-<br>
  34         URIA&nbsp;TEST</td>
  35       <td width="6%" class="ficaption2" id="bordR">STD<br>
  36         TESTING</td>
  37       <td width="6%" class="ficaption2" id="bordR">HIV test** </td>
  38       <td width="6%" class="ficaption2" id="bordR">Genetic testing </td>
  39       <td width="6%" class="ficaption2" id="bordR">Rubella titer </td>
  40       <td width="6%" class="ficaption2" id="bordR">TB skin test </td>
  41       <td width="6%" class="ficaption2" id="bordR">Lipid profile assessment </td>
  42       <td width="6%" class="ficaption2" id="bordR">Mammo-<br>
  43         graphy</td>
  44       <td width="6%" class="ficaption2" id="bordR">Fasting<br>
  45         GLUCOSE TEST</td>
  46       <td width="6%" class="ficaption2" id="bordR">TSH<br>
  47         TEST</td>
  48       <td width="6%" class="ficaption2" id="bordR">COLORECTAL<br>
  49         CANCER<br>
  50         SCREENING</td>
  51       <td width="6%" class="ficaption2">HEPATITIS C<br>
  52         VIRUS TEST</td>
  53     </tr>
  54 <?
  55 $rsi = 1;
  56 while ($rsi < 13){
  57 list(
  58 $hemoglobin, $bone_density, $bacteriuria, $std, $hiv, $genetic, $rubella, $tb_skin,
  59 $lipid, $mammography, $fasting_glucose, $tsh, $cancer, $hepatitis_c
  60 ) = explode("|~",$fdata["record_".$rsi]);
  61 list( $hemoglobin_date, $hemoglobin_res) = explode(';', $hemoglobin);
  62 list( $bone_density_date, $bone_density_res) = explode(';', $bone_density);
  63 list( $bacteriuria_date, $bacteriuria_res) = explode(';', $bacteriuria);
  64 list( $std_date, $std_res) = explode(';', $std);
  65 list( $hiv_date, $hiv_res) = explode(';', $hiv);
  66 list( $genetic_date, $genetic_res) = explode(';', $genetic);
  67 list( $rubella_date, $rubella_res) = explode(';', $rubella);
  68 list( $tb_skin_date, $tdb_skin_res) = explode(';', $tdb_skin);
  69 list( $lipid_date, $lipid_res) = explode(';', $lipid);
  70 list( $mammography_date, $mammography_res) = explode(';', $mammography);
  71 list( $fasting_glucose_date, $fasting_glucose_res) = explode(';', $fasting_glucose);
  72 list( $tsh_date, $tsh_res) = explode(';', $tsh);
  73 list( $cancer_date, $cancer_res) = explode(';', $cancer);
  74 list( $hepatitis_c_date, $hepatitis_c_res) = explode(';', $hepatitis_c);
  75
  76 print <<<EOL
  77     <tr align="left" valign="bottom">
  78       <td class="fibody3" id="bordR">Date:</td>
  79       <td class="fibody3" id="bordR">${hemoglobin_date}&nbsp;</td>
  80       <td class="fibody3" id="bordR">${bone_density_date}&nbsp;</td>
  81       <td class="fibody3" id="bordR">${bacteriuria_date}&nbsp;</td>
  82       <td class="fibody3" id="bordR">${std_date}&nbsp;</td>
  83       <td class="fibody3" id="bordR">${hiv_date}&nbsp;</td>
  84       <td class="fibody3" id="bordR">${genetic_date}&nbsp;</td>
  85       <td class="fibody3" id="bordR">${rubella_date}&nbsp;</td>
  86       <td class="fibody3" id="bordR">${tb_skin_date}&nbsp;</td>
  87       <td class="fibody3" id="bordR">${lipid_date}&nbsp;</td>
  88       <td class="fibody3" id="bordR">${mammography_date}&nbsp;</td>
  89       <td class="fibody3" id="bordR">${fasting_glucose_date}&nbsp;</td>
  90       <td class="fibody3" id="bordR">${tsh_date}&nbsp;</td>
  91       <td class="fibody3" id="bordR">${cancer_date}&nbsp;</td>
  92       <td class="fibody3">${hepatitis_c_date}&nbsp;</td>
  93     </tr>
  94     <tr align="left" valign="bottom">
  95       <td class="fibody2" id="bordR">Result:</td>
  96       <td class="fibody2" id="bordR">${hemoglobin_res}&nbsp;</td>
  97       <td class="fibody2" id="bordR">${bone_density_res}&nbsp;</td>
  98       <td class="fibody2" id="bordR">${bacteriuria_res}&nbsp;</td>
  99       <td class="fibody2" id="bordR">${std_res}&nbsp;</td>
 100       <td class="fibody2" id="bordR">${hiv_res}&nbsp;</td>
 101       <td class="fibody2" id="bordR">${genetic_res}&nbsp;</td>
 102       <td class="fibody2" id="bordR">${rubella_res}&nbsp;</td>
 103       <td class="fibody2" id="bordR">${tb_skin_res}&nbsp;</td>
 104       <td class="fibody2" id="bordR">${lipid_res}&nbsp;</td>
 105       <td class="fibody2" id="bordR">${mammography_res}&nbsp;</td>
 106       <td class="fibody2" id="bordR">${fasting_glucose_res}&nbsp;</td>
 107       <td class="fibody2" id="bordR">${tsh_res}&nbsp;</td>
 108       <td class="fibody2" id="bordR">${cancer_res}&nbsp;</td>
 109       <td class="fibody2">${hepatitis_c_res}&nbsp;</td>
 110     </tr>
 111 EOL;
 112 $rsi++;
 113 }
 114 ?>
 115   </table>
 116 </div>
 117 <p><sup>*</sup>See Table of High-Risk Factors.</p>
 118 <p><sup>**</sup>Check state requirements before recording results.</p>
 119 <? } ?>