contrib/forms/routine_screening_record/report.php

   1 <?php function routine_screening_record_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");formHeader("Form: Routine screening record");
   6    $fres=sqlStatement("select * from patient_data where pid='".$pid."'");
   7    if ($fres){
   8      $patient = sqlFetchArray($fres);
   9    }
  10    $fres=sqlStatement("select * from form_routine_screening_record where id=$id");
  11    if ($fres){
  12      $fdata = sqlFetchArray($fres);
  13    }
  14 ?>
  15 <div class="srvChapter">Routine screening record </div>
  16 <div style="border: solid 2px black; background-color:#FFFFFF;">
  17   <table  border="0" cellpadding="2" cellspacing="0">
  18     <tr align="left" valign="bottom">
  19       <td colspan="4" class="fibody2" id="bordR">Patient name: <?php  echo $patient{'fname'}.' '.$patient{'mname'}.' '.$patient{'lname'}; ?></td>
  20       <td colspan="4" class="fibody2" id="bordR">Birth date: <?php   echo $patient{'DOB'};  ?></td>
  21       <td colspan="3" class="fibody2">ID No: <?php    echo $patient{'id'};   ?></td>
  22     </tr>
  23     <tr align="center" valign="middle">
  24       <td class="ficaption2" id="bordR">age</td>
  25       <td width="9%" class="ficaption2" id="bordR">Cervical cytology </td>
  26       <td width="9%" class="ficaption2" id="bordR">Lipid profile assessment<sup>*</sup></td>
  27       <td width="9%" class="ficaption2" id="bordR">Mammo-<br>
  28         graphy<sup>*</sup></td>
  29       <td width="9%" class="ficaption2" id="bordR">Colorectal cancer screening <sup>*</sup></td>
  30       <td width="9%" class="ficaption2" id="bordR">Bone density screening<sup>*</sup> </td>
  31       <td width="9%" class="ficaption2" id="bordR">Chlamydia screening<sup>*</sup> </td>
  32       <td width="9%" class="ficaption2" id="bordR">Gonor-<br>
  33         rhea screening<sup>*</sup> </td>
  34       <td width="9%" class="ficaption2" id="bordR">Urinalysis</td>
  35       <td width="9%" class="ficaption2" id="bordR">Fasting glucose test<sup>*</sup> </td>
  36       <td width="9%" class="ficaption2">Thyroid stimulating hormone screening </td>
  37     </tr>
  38     <tr align="center" valign="middle">
  39       <td class="fibody2" id="bordR">13-18</td>
  40       <td class="fibody2" id="bordR">ANNUALLY BEGINNING
  41         APPROXIMATELY 3 YEARS
  42         AFTER INITIATION OF
  43         SEXUAL INTERCOURSE</td>
  44       <td class="fibody2" id="bordR">&nbsp; </td>
  45       <td class="fibody2" id="bordR">&nbsp; </td>
  46       <td class="fibody2" id="bordR">&nbsp; </td>
  47       <td class="fibody2" id="bordR">&nbsp; </td>
  48       <td class="fibody2" id="bordR">        SEXUALLY ACTIVE WOMEN
  49         UNDER AGE 25</td>
  50       <td class="fibody2" id="bordR">SEXUALLY ACTIVE
  51         ADOLES-<br>
  52         CENTS</td>
  53       <td class="fibody2" id="bordR">&nbsp;</td>
  54       <td class="fibody2" id="bordR">&nbsp;</td>
  55       <td class="fibody2">&nbsp;</td>
  56     </tr>
  57     <tr align="center" valign="middle">
  58       <td class="fibody2" id="bordR">19-39</td>
  59       <td class="fibody2" id="bordR">ANNUALLY BEGINNING NO LATER THAN AGE 21 YEARS</td>
  60       <td class="fibody2" id="bordR">&nbsp; </td>
  61       <td class="fibody2" id="bordR">&nbsp; </td>
  62       <td class="fibody2" id="bordR">&nbsp; </td>
  63       <td class="fibody2" id="bordR">&nbsp; </td>
  64       <td class="fibody2" id="bordR"> SEXUALLY ACTIVE WOMEN<br>
  65 UNDER AGE 25</td>
  66       <td class="fibody2" id="bordR">&nbsp; </td>
  67       <td class="fibody2" id="bordR">&nbsp;</td>
  68       <td class="fibody2" id="bordR">&nbsp;</td>
  69       <td class="fibody2">&nbsp;</td>
  70     </tr>
  71     <tr align="center" valign="middle">
  72       <td class="fibody2" id="bordR">40-64</td>
  73       <td class="fibody2" id="bordR">EVERY 2–3 YEARS AFTER 3
  74         CONSECuTIVE NEGATIVE TEST
  75         RESULTS IF NO HISTORY OF
  76         CIN 2 OR 3,
  77         IMMUNOSUP-<br>
  78         PRESSION,
  79         HIV INFECTION, OR DES
  80         EXPOSURE IN UTERO</td>
  81       <td class="fibody2" id="bordR">EVERY 5 YEARS
  82         BEGINNING
  83         AT AGE 45</td>
  84       <td class="fibody2" id="bordR">EVERY 1–2 YEARS UNTIL
  85         AGE 50; YEARLY
  86         BEGINNING AT AGE 50</td>
  87       <td class="fibody2" id="bordR">        BEGINNING AT AGE 50
  88         YEARLY FOBT OR FLEXIBLE
  89         SIGMOIDOSCOPY EVERY
  90         5 YEARS OR YEARLY FOBT
  91         PLUS FLEXIBLE
  92         SIGMOIDOSCOPY EVERY 5
  93         YEARS OR DCBE EVERY 5
  94         YEARS OR COLONOSCOPY
  95         EVERY 10 YEARS</td>
  96       <td class="fibody2" id="bordR">&nbsp; </td>
  97       <td class="fibody2" id="bordR">&nbsp; </td>
  98       <td class="fibody2" id="bordR">&nbsp; </td>
  99       <td class="fibody2" id="bordR">&nbsp;</td>
 100       <td class="fibody2" id="bordR">EVERY 3 YEARS
 101         AFTER AGE 45</td>
 102       <td class="fibody2">EVERY 5 YEARS
 103         BEGINNING AT AGE 50</td>
 104     </tr>
 105     <tr align="center" valign="middle">
 106       <td class="fibody2" id="bordR">65 and older </td>
 107       <td class="fibody2" id="bordR">EVERY 2–3 YEARS AFTER 3<br>
 108         CONSECUTIVE NEGATIVE TEST
 109         RESULTS IF NO HISTORY OF
 110         CIN 2 OR 3,
 111         IMMUNOSUP-<br>
 112         PRESSION,
 113         HIV INFECTION, OR DES
 114         EXPOSURE IN UTERO</td>
 115       <td class="fibody2" id="bordR">EVERY 5 YEARS</td>
 116       <td class="fibody2" id="bordR">YEARLY OR AS
 117         APPROPRIATE</td>
 118       <td class="fibody2" id="bordR">        YEARLY FOBT OR FLEXIBLE
 119         SIGMOIDOSCOPY EVERY
 120         5 YEARS OR YEARLY FOBT
 121         PLUS FLEXIBLE
 122         SIGMOIDOSCOPY EVERY
 123         YEARS OR DCBE EVERY
 124         YEARS OR COLONOSCOPY
 125         EVERY 10 YEARS</td>
 126       <td class="fibody2" id="bordR">        IN THE ABSENCE OF
 127         NEW RISK FACTORS,
 128         SUBSEQUENT SCREENING
 129         NOT MORE FREQUENTLY
 130         THAN EVERY 2 YEARS</td>
 131       <td class="fibody2" id="bordR">&nbsp; </td>
 132       <td class="fibody2" id="bordR">&nbsp; </td>
 133       <td class="fibody2" id="bordR">YEARLY OR AS
 134         APPROPRIATE</td>
 135       <td class="fibody2" id="bordR">EVERY 3 YEARS</td>
 136       <td class="fibody2">EVERY 5 YEARS</td>
 137     </tr>
 138     <tr align="left" valign="bottom">
 139       <td colspan="11" class="fibody2" style="border-bottom: 2px solid black;">&nbsp;</td>
 140     </tr>
 141 <?
 142 $factors = array("cervical", "lipid", "mammo", "colorectal",
 143 "bone", "chlamyd", "gonor", "urinal", "glucose", "thyroid");
 144 $rsi = 1;
 145 while ($rsi < 9){
 146 $chunks = explode("|~", $fdata["record_$rsi"]);
 147 list($cervical_date, $cervical_res) = explode('|', $chunks[0]);
 148 list($lipid_date, $lipid_res) = explode('|', $chunks[1]);
 149 list($mammo_date,$mammo_res) = explode('|', $chunks[2]);
 150 list($colorectal_date,$colorectal_res) = explode('|', $chunks[3]);
 151 list($bone_date,$bone_res) = explode('|', $chunks[4]);
 152 list($chlamyd_date,$chlamyd_res) = explode('|', $chunks[5]);
 153 list($gonor_date,$gonor_res) = explode('|', $chunks[6]);
 154 list($urinal_date,$urinal_res) = explode('|', $chunks[7]);
 155 list($glucose_date,$glucose_res) = explode('|', $chunks[8]);
 156 list($thyroid_date,$thyroid_res) = explode('|', $chunks[9]);
 157
 158
 159 print <<<EOL
 160     <tr align="left" valign="bottom">
 161       <td class="fibody2" id="bordR">Date</td>
 162       <td class="fibody3" id="bordR">${cervical_date} &nbsp;</td>
 163       <td class="fibody3" id="bordR">${lipid_date} &nbsp;</td>
 164       <td class="fibody3" id="bordR">${mammo_date} &nbsp;</td>
 165       <td class="fibody3" id="bordR">${colorectal_date} &nbsp;</td>
 166       <td class="fibody3" id="bordR">${bone_date} &nbsp;</td>
 167       <td class="fibody3" id="bordR">${chlamyd_date} &nbsp;</td>
 168       <td class="fibody3" id="bordR">${gonor_date} &nbsp;</td>
 169       <td class="fibody3" id="bordR">${urinal_date} &nbsp;</td>
 170       <td class="fibody3" id="bordR">${glucose_date} &nbsp;</td>
 171       <td class="fibody3">${thyroid_date} &nbsp;</td>
 172     </tr>
 173     <tr align="left" valign="bottom">
 174       <td class="fibody2" id="bordR">result</td>
 175       <td class="fibody5" id="bordR">${cervical_res} &nbsp;</td>
 176       <td class="fibody5" id="bordR">${lipid_res} &nbsp;</td>
 177       <td class="fibody5" id="bordR">${mammo_res} &nbsp;</td>
 178       <td class="fibody5" id="bordR">${colorectal_res} &nbsp;</td>
 179       <td class="fibody5" id="bordR">${bone_res} &nbsp;</td>
 180       <td class="fibody5" id="bordR">${chlamyd_res} &nbsp;</td>
 181       <td class="fibody5" id="bordR">${gonor_res} &nbsp;</td>
 182       <td class="fibody5" id="bordR">${urinal_res} &nbsp;</td>
 183       <td class="fibody5" id="bordR">${glucose_res} &nbsp;</td>
 184       <td class="fibody5">${thyroid_res} &nbsp;</td>
 185     </tr>
 186 EOL;
 187 $rsi++;
 188 }
 189 ?>
 190   </table>
 191 </div>
 192 <p><sup>*</sup>This test may be appropriate for other patients based on risk (see High-Risk Laboratory Record and Table of High-Risk Factors)</p>
 193 <?php } ?>