interface/reports/immunization_report.php

   1 <?php
   2 // Copyright (C) 2011 Ensoftek Inc.
   3 //
   4 // This program is free software; you can redistribute it and/or
   5 // modify it under the terms of the GNU General Public License
   6 // as published by the Free Software Foundation; either version 2
   7 // of the License, or (at your option) any later version.
   8
   9 // This report lists  patient immunizations for a given date range.
  10
  11 require_once("../globals.php");
  12 require_once("$srcdir/patient.inc");
  13 require_once("$srcdir/formatting.inc.php");
  14
  15 if(isset($_POST['form_from_date'])) {
  16   $from_date = $_POST['form_from_date'] !== "" ?
  17     fixDate($_POST['form_from_date'], date('Y-m-d')) :
  18     0;
  19 }
  20 if(isset($_POST['form_to_date'])) {
  21   $to_date =$_POST['form_to_date'] !== "" ?
  22     fixDate($_POST['form_to_date'], date('Y-m-d')) :
  23     0;
  24 }
  25 //
  26 $form_code = isset($_POST['form_code']) ? $_POST['form_code'] : Array();
  27 //
  28 if (empty ($form_code) ) {
  29   $query_codes = '';
  30 } else {
  31   $query_codes = 'c.id in (';
  32       foreach( $form_code as $code ){ $query_codes .= $code . ","; }
  33       $query_codes = substr($query_codes ,0,-1);
  34       $query_codes .= ') and ';
  35 }
  36
  37 function tr($a) {
  38   return (str_replace(' ','^',$a));
  39 }
  40
  41 function format_cvx_code($cvx_code) {
  42
  43         if ( $cvx_code < 10 ) {
  44                 return "0$cvx_code";
  45         }
  46
  47         return $cvx_code;
  48 }
  49
  50 function format_phone($phone) {
  51
  52         $phone = preg_replace("/[^0-9]/", "", $phone);
  53         switch (strlen($phone))
  54         {
  55                 case 7:
  56                         return tr(preg_replace("/([0-9]{3})([0-9]{4})/", "000 $1$2", $phone));
  57                 case 10:
  58                         return tr(preg_replace("/([0-9]{3})([0-9]{3})([0-9]{4})/", "$1 $2$3", $phone));
  59                 default:
  60                         return tr("000 0000000");
  61         }
  62 }
  63
  64 function format_ethnicity($ethnicity) {
  65
  66         switch ($ethnicity)
  67         {
  68                  case "hisp_or_latin":
  69                    return ("H^Hispanic or Latino^HL70189");
  70                  case "not_hisp_or_latin":
  71                    return ("N^not Hispanic or Latino^HL70189");
  72                  default: // Unknown
  73                    return ("U^Unknown^HL70189");
  74         }
  75  }
  76
  77
  78   $query =
  79   "select " .
  80   "i.patient_id as patientid, " .
  81   "p.language, ".
  82   "i.cvx_code , " ;
  83   if ($_POST['form_get_hl7']==='true') {
  84     $query .=
  85       "DATE_FORMAT(p.DOB,'%Y%m%d') as DOB, ".
  86       "concat(p.street, '^^', p.city, '^', p.state, '^', p.postal_code) as address, ".
  87       "p.country_code, ".
  88       "p.phone_home, ".
  89       "p.phone_biz, ".
  90       "p.status, ".
  91       "p.sex, ".
  92       "p.ethnoracial, ".
  93       "p.race, ".
  94       "p.ethnicity, ".
  95       "c.code_text, ".
  96       "c.code, ".
  97       "c.code_type, ".
  98       "DATE_FORMAT(i.vis_date,'%Y%m%d') as immunizationdate, ".
  99       "DATE_FORMAT(i.administered_date,'%Y%m%d') as administered_date, ".
 100       "i.lot_number as lot_number, ".
 101       "i.manufacturer as manufacturer, ".
 102        "concat(p.fname, '^', p.lname) as patientname, ";
 103   } else {
 104     $query .= "concat(p.fname, ' ',p.mname,' ', p.lname) as patientname, ".
 105       "i.vis_date as immunizationdate, "  ;
 106   }
 107   $query .=
 108   "i.id as immunizationid, c.code_text_short as immunizationtitle ".
 109   "from immunizations i, patient_data p, codes c ".
 110   "left join code_types ct on c.code_type = ct.ct_id ".
 111   "where ".
 112   "ct.ct_key='CVX' and ";
 113   if($from_date!=0) {
 114     $query .= "i.vis_date >= '$from_date' " ;
 115   }
 116   if($from_date!=0 and $to_date!=0) {
 117     $query .= " and " ;
 118   }
 119   if($to_date!=0) {
 120     $query .= "i.vis_date <= '$to_date' ";
 121   }
 122   if($from_date!=0 or $to_date!=0) {
 123     $query .= " and " ;
 124   }
 125   $query .= "i.patient_id=p.pid and ".
 126   $query_codes .
 127   "i.cvx_code = c.code and ";
 128
 129   //do not show immunization added erroneously
 130   $query .=  "i.added_erroneously = 0";
 131
 132 //echo "<p> DEBUG query: $query </p>\n"; // debugging
 133
 134
 135 $D="\r";
 136 $nowdate = date('Ymd');
 137 $now = date('YmdGi');
 138 $now1 = date('Y-m-d G:i');
 139 $filename = "imm_reg_". $now . ".hl7";
 140
 141 // GENERATE HL7 FILE
 142 if ($_POST['form_get_hl7']==='true') {
 143         $content = '';
 144
 145   $res = sqlStatement($query);
 146
 147   while ($r = sqlFetchArray($res)) {
 148     $content .= "MSH|^~\&|OPENEMR||||$nowdate||".
 149       "VXU^V04^VXU_V04|OPENEMR-110316102457117|P|2.5.1" .
 150       "$D" ;
 151     if ($r['sex']==='Male') $r['sex'] = 'M';
 152     if ($r['sex']==='Female') $r['sex'] = 'F';
 153     if ($r['status']==='married') $r['status'] = 'M';
 154     if ($r['status']==='single') $r['status'] = 'S';
 155     if ($r['status']==='divorced') $r['status'] = 'D';
 156     if ($r['status']==='widowed') $r['status'] = 'W';
 157     if ($r['status']==='separated') $r['status'] = 'A';
 158     if ($r['status']==='domestic partner') $r['status'] = 'P';
 159     $content .= "PID|" . // [[ 3.72 ]]
 160         "|" . // 1. Set id
 161         "|" . // 2. (B)Patient id
 162         $r['patientid']. "^^^MPI&2.16.840.1.113883.19.3.2.1&ISO^MR" . "|". // 3. (R) Patient indentifier list. TODO: Hard-coded the OID from NIST test.
 163         "|" . // 4. (B) Alternate PID
 164         $r['patientname']."|" . // 5.R. Name
 165         "|" . // 6. Mather Maiden Name
 166         $r['DOB']."|" . // 7. Date, time of birth
 167         $r['sex']."|" . // 8. Sex
 168         "|" . // 9.B Patient Alias
 169         "2106-3^" . $r['race']. "^HL70005" . "|" . // 10. Race // Ram change
 170         $r['address'] . "^^M" . "|" . // 11. Address. Default to address type  Mailing Address(M)
 171         "|" . // 12. county code
 172         "^PRN^^^^" . format_phone($r['phone_home']) . "|" . // 13. Phone Home. Default to Primary Home Number(PRN)
 173         "^WPN^^^^" . format_phone($r['phone_biz']) . "|" . // 14. Phone Work.
 174         "|" . // 15. Primary language
 175         $r['status']."|" . // 16. Marital status
 176         "|" . // 17. Religion
 177         "|" . // 18. patient Account Number
 178         "|" . // 19.B SSN Number
 179         "|" . // 20.B Driver license number
 180         "|" . // 21. Mathers Identifier
 181         format_ethnicity($r['ethnicity']) . "|" . // 22. Ethnic Group
 182         "|" . // 23. Birth Plase
 183         "|" . // 24. Multiple birth indicator
 184         "|" . // 25. Birth order
 185         "|" . // 26. Citizenship
 186         "|" . // 27. Veteran military status
 187         "|" . // 28.B Nationality
 188         "|" . // 29. Patient Death Date and Time
 189         "|" . // 30. Patient Death Indicator
 190         "|" . // 31. Identity Unknown Indicator
 191         "|" . // 32. Identity Reliability Code
 192         "|" . // 33. Last Update Date/Time
 193         "|" . // 34. Last Update Facility
 194         "|" . // 35. Species Code
 195         "|" . // 36. Breed Code
 196         "|" . // 37. Breed Code
 197         "|" . // 38. Production Class Code
 198         ""  . // 39. Tribal Citizenship
 199         "$D" ;
 200     $content .= "ORC" . // ORC mandatory for RXA
 201         "|" .
 202         "RE" .
 203         "$D" ;
 204     $content .= "RXA|" .
 205         "0|" . // 1. Give Sub-ID Counter
 206         "1|" . // 2. Administrattion Sub-ID Counter
 207         $r['administered_date']."|" . // 3. Date/Time Start of Administration
 208         $r['administered_date']."|" . // 4. Date/Time End of Administration
 209         format_cvx_code($r['code']). "^" . $r['immunizationtitle'] . "^" . "CVX" ."|" . // 5. Administration Code(CVX)
 210         "999|" . // 6. Administered Amount. TODO: Immunization amt currently not captured in database, default to 999(not recorded)
 211         "|" . // 7. Administered Units
 212         "|" . // 8. Administered Dosage Form
 213         "|" . // 9. Administration Notes
 214         "|" . // 10. Administering Provider
 215         "|" . // 11. Administered-at Location
 216         "|" . // 12. Administered Per (Time Unit)
 217         "|" . // 13. Administered Strength
 218         "|" . // 14. Administered Strength Units
 219         $r['lot_number']."|" . // 15. Substance Lot Number
 220         "|" . // 16. Substance Expiration Date
 221         "MSD" . "^" . $r['manufacturer']. "^" . "HL70227" . "|" . // 17. Substance Manufacturer Name
 222         "|" . // 18. Substance/Treatment Refusal Reason
 223         "|" . // 19.Indication
 224         "|" . // 20.Completion Status
 225         "A" . // 21.Action Code - RXA
 226         "$D" ;
 227
 228 }
 229
 230   // send the header here
 231   header('Content-type: text/plain');
 232   header('Content-Disposition: attachment; filename=' . $filename );
 233
 234   // put the content in the file
 235   echo($content);
 236   exit;
 237 }
 238 ?>
 239
 240 <html>
 241 <head>
 242 <?php html_header_show();?>
 243 <title><?php xl('Immunization Registry','e'); ?></title>
 244 <style type="text/css">@import url(../../library/dynarch_calendar.css);</style>
 245 <script type="text/javascript" src="../../library/dialog.js"></script>
 246 <script type="text/javascript" src="../../library/textformat.js"></script>
 247 <script type="text/javascript" src="../../library/dynarch_calendar.js"></script>
 248 <?php include_once("{$GLOBALS['srcdir']}/dynarch_calendar_en.inc.php"); ?>
 249 <script type="text/javascript" src="../../library/dynarch_calendar_setup.js"></script>
 250 <script type="text/javascript" src="../../library/js/jquery.1.3.2.js"></script>
 251 <script language="JavaScript">
 252 <?php require($GLOBALS['srcdir'] . "/restoreSession.php"); ?>
 253 </script>
 254
 255 <link rel='stylesheet' href='<?php echo $css_header ?>' type='text/css'>
 256 <style type="text/css">
 257 /* specifically include & exclude from printing */
 258 @media print {
 259     #report_parameters {
 260         visibility: hidden;
 261         display: none;
 262     }
 263     #report_parameters_daterange {
 264         visibility: visible;
 265         display: inline;
 266                 margin-bottom: 10px;
 267     }
 268     #report_results table {
 269        margin-top: 0px;
 270     }
 271 }
 272 /* specifically exclude some from the screen */
 273 @media screen {
 274         #report_parameters_daterange {
 275                 visibility: hidden;
 276                 display: none;
 277         }
 278         #report_results {
 279                 width: 100%;
 280         }
 281 }
 282 </style>
 283 </head>
 284
 285 <body class="body_top">
 286
 287 <span class='title'><?php xl('Report','e'); ?> - <?php xl('Immunization Registry','e'); ?></span>
 288
 289 <div id="report_parameters_daterange">
 290 <?php echo date("d F Y", strtotime($form_from_date)) ." &nbsp; to &nbsp; ". date("d F Y", strtotime($form_to_date)); ?>
 291 </div>
 292
 293 <form name='theform' id='theform' method='post' action='immunization_report.php'
 294 onsubmit='return top.restoreSession()'>
 295 <div id="report_parameters">
 296 <input type='hidden' name='form_refresh' id='form_refresh' value=''/>
 297 <input type='hidden' name='form_get_hl7' id='form_get_hl7' value=''/>
 298 <table>
 299  <tr>
 300   <td width='410px'>
 301     <div style='float:left'>
 302       <table class='text'>
 303         <tr>
 304           <td class='label'>
 305             <?php xl('Codes','e'); ?>:
 306           </td>
 307           <td>
 308 <?php
 309  // Build a drop-down list of codes.
 310  //
 311  $query1 = "select id, concat('CVX:',code) as name from codes ".
 312    " left join code_types ct on codes.code_type = ct.ct_id ".
 313    " where ct.ct_key='CVX' ORDER BY name";
 314  $cres = sqlStatement($query1);
 315  echo "   <select multiple='multiple' size='3' name='form_code[]'>\n";
 316  //echo "    <option value=''>-- " . xl('All Codes') . " --\n";
 317  while ($crow = sqlFetchArray($cres)) {
 318   $codeid = $crow['id'];
 319   echo "    <option value='$codeid'";
 320   if (in_array($codeid, $form_code)) echo " selected";
 321   echo ">" . $crow['name'] . "\n";
 322  }
 323  echo "   </select>\n";
 324 ?>
 325           </td>
 326           <td class='label'>
 327             <?php xl('From','e'); ?>:
 328           </td>
 329           <td>
 330             <input type='text' name='form_from_date' id="form_from_date"
 331             size='10' value='<?php echo $form_from_date ?>'
 332             onkeyup='datekeyup(this,mypcc)' onblur='dateblur(this,mypcc)'
 333             title='yyyy-mm-dd'>
 334             <img src='../pic/show_calendar.gif' align='absbottom'
 335             width='24' height='22' id='img_from_date' border='0'
 336             alt='[?]' style='cursor:pointer'
 337             title='<?php xl('Click here to choose a date','e'); ?>'>
 338           </td>
 339           <td class='label'>
 340             <?php xl('To','e'); ?>:
 341           </td>
 342           <td>
 343             <input type='text' name='form_to_date' id="form_to_date"
 344             size='10' value='<?php echo $form_to_date ?>'
 345             onkeyup='datekeyup(this,mypcc)' onblur='dateblur(this,mypcc)'
 346             title='yyyy-mm-dd'>
 347             <img src='../pic/show_calendar.gif' align='absbottom'
 348             width='24' height='22' id='img_to_date' border='0'
 349             alt='[?]' style='cursor:pointer'
 350             title='<?php xl('Click here to choose a date','e'); ?>'>
 351           </td>
 352         </tr>
 353       </table>
 354     </div>
 355   </td>
 356   <td align='left' valign='middle' height="100%">
 357     <table style='border-left:1px solid; width:100%; height:100%' >
 358       <tr>
 359         <td>
 360           <div style='margin-left:15px'>
 361             <a href='#' class='css_button'
 362             onclick='
 363             $("#form_refresh").attr("value","true");
 364             $("#form_get_hl7").attr("value","false");
 365             $("#theform").submit();
 366             '>
 367             <span>
 368               <?php xl('Refresh','e'); ?>
 369             </spain>
 370             </a>
 371             <?php if ($_POST['form_refresh']) { ?>
 372               <a href='#' class='css_button' onclick='window.print()'>
 373                 <span>
 374                   <?php xl('Print','e'); ?>
 375                 </span>
 376               </a>
 377               <a href='#' class='css_button' onclick=
 378               "if(confirm('<?php xl('This step will generate a file which you have to save for future use. The file cannot be generated again. Do you want to proceed?','e'); ?>')) {
 379                      $('#form_get_hl7').attr('value','true');
 380                      $('#theform').submit();
 381               }">
 382                 <span>
 383                   <?php xl('Get HL7','e'); ?>
 384                 </span>
 385               </a>
 386             <?php } ?>
 387           </div>
 388         </td>
 389       </tr>
 390     </table>
 391   </td>
 392  </tr>
 393 </table>
 394 </div> <!-- end of parameters -->
 395
 396
 397 <?php
 398  if ($_POST['form_refresh']) {
 399 ?>
 400 <div id="report_results">
 401 <table>
 402  <thead align="left">
 403   <th> <?php xl('Patient ID','e'); ?> </th>
 404   <th> <?php xl('Patient Name','e'); ?> </th>
 405   <th> <?php xl('Immunization Code','e'); ?> </th>
 406   <th> <?php xl('Immunization Title','e'); ?> </th>
 407   <th> <?php xl('Immunization Date','e'); ?> </th>
 408  </thead>
 409  <tbody>
 410 <?php
 411   $total = 0;
 412   //echo "<p> DEBUG query: $query </p>\n"; // debugging
 413   $res = sqlStatement($query);
 414
 415
 416   while ($row = sqlFetchArray($res)) {
 417 ?>
 418  <tr>
 419   <td>
 420   <?php echo htmlspecialchars($row['patientid']) ?>
 421   </td>
 422   <td>
 423    <?php echo htmlspecialchars($row['patientname']) ?>
 424   </td>
 425   <td>
 426    <?php echo htmlspecialchars($row['cvx_code']) ?>
 427   </td>
 428   <td>
 429    <?php echo htmlspecialchars($row['immunizationtitle']) ?>
 430   </td>
 431   <td>
 432    <?php echo htmlspecialchars($row['immunizationdate']) ?>
 433   </td>
 434  </tr>
 435 <?php
 436    ++$total;
 437   }
 438 ?>
 439  <tr class="report_totals">
 440   <td colspan='9'>
 441    <?php xl('Total Number of Immunizations','e'); ?>
 442    :
 443    <?php echo $total ?>
 444   </td>
 445  </tr>
 446
 447 </tbody>
 448 </table>
 449 </div> <!-- end of results -->
 450 <?php } else { ?>
 451 <div class='text'>
 452   <?php echo xl('Click Refresh to view all results, or please input search criteria above to view specific results.', 'e' ); ?>
 453 </div>
 454 <?php } ?>
 455 </form>
 456
 457 <script language='JavaScript'>
 458  Calendar.setup({inputField:"form_from_date", ifFormat:"%Y-%m-%d", button:"img_from_date"});
 459  Calendar.setup({inputField:"form_to_date", ifFormat:"%Y-%m-%d", button:"img_to_date"});
 460 </script>
 461
 462 </body>
 463 </html>