contrib/forms/high_risk_screening_record/report.php

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