interface/forms/CAMOS/notegen.php

   1 <?php
   2 $depth = '../../../';
   3 include_once ($depth.'interface/globals.php');
   4 include_once($depth.'library/formdata.inc.php');
   5 include_once("content_parser.php");
   6 ?>
   7 <?php
   8 if (!($_POST['submit_pdf'] || $_POST['submit_html']) && ($_GET['pid'] && $_GET['encounter'])) {
   9 ?>
  10 <html>
  11 <head>
  12 <title>
  13 <?php xl('Print Notes','e'); ?>
  14 </title>
  15 </head>
  16 <body>
  17 <?php xl('Choose print format for this encounter report.','e'); ?><br><br>
  18 <form method=post name=choose_patients>
  19 <input type='submit' name='submit_pdf' value='<?php xl('Print (PDF)','e'); ?>'>
  20 <input type='submit' name='submit_html' value='<?php xl('Print (HTML)','e'); ?>'>
  21 </form>
  22 </body>
  23 </html>
  24 <?php
  25 exit;
  26 }
  27 if (!$_POST['submit_pdf'] && !$_POST['submit_html'] && !($_GET['pid'] && $_GET['encounter'])) {
  28 ?>
  29 <html>
  30 <head>
  31 <title>
  32 <?php xl('Print Notes','e'); ?>
  33 </title>
  34 <style type="text/css">@import url('<?php echo $depth ?>library/dynarch_calendar.css');</style>
  35 <script type="text/javascript" src="<?php echo $depth ?>library/dialog.js?v=<?php echo $v_js_includes; ?>"></script>
  36 <script type="text/javascript" src="<?php echo $depth ?>library/textformat.js"></script>
  37 <script type="text/javascript" src="<?php echo $depth ?>library/dynarch_calendar.js"></script>
  38 <?php include_once("{$GLOBALS['srcdir']}/dynarch_calendar_en.inc.php"); ?>
  39 <script type="text/javascript" src="<?php echo $depth ?>library/dynarch_calendar_setup.js"></script>
  40 </head>
  41
  42 <body>
  43 <script language='JavaScript'> var mypcc = '1'; </script>
  44
  45 <form method=post name=choose_patients>
  46
  47 <table>
  48 <tr><td>
  49 <span class='text'><?php xl('Start (yyyy-mm-dd): ','e') ?></span>
  50 </td><td>
  51 <input type='text' size='10' name='start' id='start' value='<?php echo $_POST['end'] ? $_POST['end'] : date('Y-m-d') ?>'
  52 onkeyup='datekeyup(this,mypcc)' onblur='dateblur(this,mypcc)'
  53 title='<?php xl('yyyy-mm-dd last date of this event','e'); ?>' />
  54 <img src='<?php echo $depth ?>interface/pic/show_calendar.gif' align='absbottom' width='24' height='22'
  55 id='img_start' border='0' alt='[?]' style='cursor:pointer'
  56 title='<?php xl('Click here to choose a date','e'); ?>'>
  57 <script>
  58 Calendar.setup({inputField:'start', ifFormat:'%Y-%m-%d', button:'img_start'});
  59 </script>
  60 </td></tr>
  61
  62 <tr><td>
  63 <span class='text'><?php xl('End (yyyy-mm-dd): ','e') ?></span>
  64 </td><td>
  65 <input type='text' size='10' name='end' id='end' value ='<?php echo $_POST['end'] ? $_POST['end'] : date('Y-m-d') ?>'
  66 onkeyup='datekeyup(this,mypcc)' onblur='dateblur(this,mypcc)'
  67 title='<?php xl('yyyy-mm-dd last date of this event','e'); ?>' />
  68 <img src='<?php echo $depth ?>interface/pic/show_calendar.gif' align='absbottom' width='24' height='22'
  69 id='img_end' border='0' alt='[?]' style='cursor:pointer'
  70 title='<?php xl('Click here to choose a date','e'); ?>'>
  71 <script>
  72 Calendar.setup({inputField:'end', ifFormat:'%Y-%m-%d', button:'img_end'});
  73 </script>
  74 </td></tr>
  75 <tr><td></td><td></td></tr>
  76 <tr><td><?php xl('Last Name','e'); ?>: </td><td>
  77 <input type='text' name='lname'/>
  78 </td></tr>
  79 <tr><td><?php xl('First Name','e'); ?>: </td><td>
  80 <input type='text' name='fname'/>
  81 </td></tr>
  82 <tr><td>
  83 <input type='submit' name='submit_pdf' value='<?php xl('Print (PDF)','e'); ?>'>
  84 <input type='submit' name='submit_html' value='<?php xl('Print (HTML)','e'); ?>'>
  85 </td><td>
  86 </td></tr>
  87 </table>
  88 </form>
  89 </body>
  90 </html>
  91 <?php
  92 }
  93 if ($_POST['submit_pdf'] || $_POST['submit_html'] || ($_GET['pid'] && $_GET['encounter'])) {
  94     // note we are cleaning input, trimming, and preparing the variables for database insert
  95     //  before sending through this function
  96     $output = getFormData(formData("start","P",true),formData("end","P",true),formData("lname","P",true),formData("fname","P",true));
  97     ksort($output);
  98     if ($_POST['submit_html']) { //print as html
  99 ?>
 100         <html>
 101         <head>
 102         <style>
 103         body {
 104          font-family: sans-serif;
 105          font-weight: normal;
 106          font-size: 8pt;
 107          background: white;
 108          color: black;
 109         }
 110         .paddingdiv {
 111          width: 524pt;
 112          padding: 0pt;
 113         }
 114         .navigate {
 115          margin-top: 2.5em;
 116         }
 117         @media print {
 118          .navigate {
 119           display: none;
 120          }
 121         }
 122         div.page {
 123          page-break-after: always;
 124          padding: 0pt;
 125          margin-top: 50pt;
 126         }
 127         span.heading {
 128          font-weight: bold;
 129          font-size: 130%;
 130         }
 131         </style>
 132         <title><?php xl('Patient Notes','e'); ?></title>
 133         </head>
 134         <body>
 135         <div class='paddingdiv'>
 136 <?php
 137         foreach ($output as $datekey => $dailynote) {
 138                 foreach ($dailynote as $note_id => $notecontents) {
 139                         preg_match('/(\d+)_(\d+)/', $note_id, $matches); //the unique note id contains the pid and encounter
 140                         $pid = $matches[1];
 141                         $enc = $matches[2];
 142
 143                         //new page code here
 144                         print "<DIV class='page'>";
 145
 146                         print xl("Date").": ".$notecontents['date'] . "<br/>";
 147                         print xl("Name").": ".$notecontents['name'] . "<br/>";
 148                         print xl("DOB").": ".$notecontents['dob'] . "<br/>";
 149                         print xl("Claim")."# ".$notecontents['pubpid'] . "<br/>";
 150
 151                         print "<br/>";
 152                         print xl("Chief Complaint").": ".$notecontents['reason'] . "<br/>";
 153                         if ($notecontents['vitals']) {
 154                                 print "<br/>";
 155                                 print $notecontents['vitals'] . "<br/>";
 156                         }
 157                         if (count($notecontents['exam']) > 0) {
 158                                 print "<br/>";
 159                                 print "<span class='heading'>" . xl("Progress Notes") . "</span><br/>";
 160                                 print "<br/>";
 161                                 foreach($notecontents['exam'] as $examnote) {
 162                                         print nl2br(replace($pid,$enc,$examnote)) . "<br/>";
 163                                 }
 164                         }
 165                         if (count($notecontents['prescriptions']) > 0) {
 166                                 print "<br/>";
 167                                 print "<span class='heading'>" . xl("Prescriptions") . "</span><br/>";
 168                                 print "<br/>";
 169                                 foreach($notecontents['prescriptions'] as $rx) {
 170                                         print nl2br(replace($pid,$enc,$rx)) . "<br/>";
 171                                 }
 172                         }
 173                         if (count($notecontents['other']) > 0) {
 174                                 print "<br/>";
 175                                 print "<span class='heading'>" . xl("Other") . "</span><br/>";
 176                                 print "<br/>";
 177                                 foreach($notecontents['other'] as $other => $othercat) {
 178                                         print nl2br($other) . "<br/>";
 179                                         foreach($othercat as $items) {
 180                                                 print nl2br(replace($pid,$enc,$items)) . "<br/>";
 181                                         }
 182                                 }
 183                         }
 184                         if (count($notecontents['billing']) > 0) {
 185                                 $tmp = array();
 186                                 foreach($notecontents['billing'] as $code) {
 187                                         $tmp[$code]++;
 188                                 }
 189                                 if (count($tmp) > 0) {
 190                                         print "<br/>";
 191                                         print "<span class='heading'>" . xl("Coding") . "</span><br/>";
 192                                         print "<br/>";
 193                                         foreach($tmp as $code => $val) {
 194                                                 print nl2br($code) . "<br/>";
 195                                         }
 196                                 }
 197                         }
 198                         if (count($notecontents['calories']) > 0) {
 199                                 $sum = 0;
 200                                 print "<br/>";
 201                                 print "<span class='heading'>" . xl("Calories") . "</span><br/>";
 202                                 print "<br/>";
 203                                 foreach($notecontents['calories'] as $calories => $value) {
 204                                         print $value['content'].' - '.$value['item'].' - '.$value['date'] . "<br/>";
 205                                         $sum += $value['content'];
 206                                 }
 207                                 print "--------" . "<br/>";
 208                                 print $sum . "<br/>";
 209                         }
 210                         print "<br/>";
 211                         print "<br/>";
 212                         print "<span class='heading'>" . xl("Digitally Signed") . "</span><br/>";
 213
 214                         $query = sqlStatement("select t2.id, t2.fname, t2.lname, t2.title from forms as t1 join users as t2 on " .
 215                                 "(t1.user like t2.username) where t1.pid=$pid and t1.encounter=$encounter");
 216                         if ($results = sqlFetchArray($query)) {
 217                                 $name = $results['fname']." ".$results['lname'].", ".$results['title'];
 218                                 $user_id = $results['id'];
 219                         }
 220                         $path = $GLOBALS['fileroot']."/interface/forms/CAMOS";
 221                         if (file_exists($path."/sig".$user_id.".jpg")) {
 222                                 //show the image here
 223                         }
 224                         print "<span class='heading'>" . $name . "</span><br/>";
 225                         print "</DIV>"; //end of last page
 226                 }
 227         }
 228 ?>
 229         <script language='JavaScript'>
 230         var win = top.printLogPrint ? top : opener.top;
 231         win.printLogPrint(window);
 232         </script>
 233         </div>
 234         </body>
 235         </html>
 236 <?php
 237     exit;
 238     }
 239     else { // print as pdf
 240         $pdf = new Cezpdf();
 241         $pdf->selectFont('Helvetica');
 242         $pdf->ezSetCmMargins(3,1,1,1);
 243         $first = 1;
 244         foreach ($output as $datekey => $dailynote) {
 245                 foreach ($dailynote as $note_id => $notecontents) {
 246                         preg_match('/(\d+)_(\d+)/', $note_id, $matches); //the unique note id contains the pid and encounter
 247                         $pid = $matches[1];
 248                         $enc = $matches[2];
 249                         if (!$first) { //generate a new page each time except first iteration when nothing has been printed yet
 250                                 $pdf->ezNewPage();
 251                         }
 252                         else {
 253                                 $first = 0;
 254                         }
 255                         $pdf->ezText(xl("Date").": ".$notecontents['date'],8);
 256                         $pdf->ezText(xl("Name").": ".$notecontents['name'],8);
 257                         $pdf->ezText(xl("DOB").": ".$notecontents['dob'],8);
 258                         $pdf->ezText(xl("Claim")."# ".$notecontents['pubpid'],8);
 259
 260                         $pdf->ezText("",8);
 261                         $pdf->ezText(xl("Chief Complaint").": ".$notecontents['reason'],8);
 262                         if ($notecontents['vitals']) {
 263                                 $pdf->ezText("",8);
 264                                 $pdf->ezText($notecontents['vitals'],8);
 265                         }
 266                         if (count($notecontents['exam']) > 0) {
 267                                 $pdf->ezText("",8);
 268                                 $pdf->ezText(xl("Progress Notes"),12);
 269                                 $pdf->ezText("",8);
 270                                 foreach($notecontents['exam'] as $examnote) {
 271                                         $pdf->ezText(replace($pid,$enc,$examnote));
 272                                 }
 273                         }
 274                         if (count($notecontents['prescriptions']) > 0) {
 275                                 $pdf->ezText("",8);
 276                                 $pdf->ezText(xl("Prescriptions"),12);
 277                                 $pdf->ezText("",8);
 278                                 foreach($notecontents['prescriptions'] as $rx) {
 279                                         $pdf->ezText(replace($pid,$enc,$rx));
 280                                 }
 281                         }
 282                         if (count($notecontents['other']) > 0) {
 283                                 $pdf->ezText("",8);
 284                                 $pdf->ezText(xl("Other"),12);
 285                                 $pdf->ezText("",8);
 286                                 foreach($notecontents['other'] as $other => $othercat) {
 287                                         $pdf->ezText($other,8);
 288                                         foreach($othercat as $items) {
 289                                                 $pdf->ezText(replace($pid,$enc,$items),8);
 290                                         }
 291                                 }
 292                         }
 293                         if (count($notecontents['billing']) > 0) {
 294                                 $tmp = array();
 295                                 foreach($notecontents['billing'] as $code) {
 296                                         $tmp[$code]++;
 297                                 }
 298                                 if (count($tmp) > 0) {
 299                                         $pdf->ezText("",8);
 300                                         $pdf->ezText(xl("Coding"),12);
 301                                         $pdf->ezText("",8);
 302                                         foreach($tmp as $code => $val) {
 303                                                 $pdf->ezText($code,8);
 304                                         }
 305                                 }
 306                         }
 307                         if (count($notecontents['calories']) > 0) {
 308                                 $sum = 0;
 309                                 $pdf->ezText("",8);
 310                                 $pdf->ezText(xl("Calories"),12);
 311                                 $pdf->ezText("",8);
 312                                 foreach($notecontents['calories'] as $calories => $value) {
 313                                         $pdf->ezText($value['content'].' - '.$value['item'].' - '.$value['date'],8);
 314                                         $sum += $value['content'];
 315                                 }
 316                                 $pdf->ezText("--------",8);
 317                                 $pdf->ezText($sum,8);
 318                         }
 319                         $pdf->ezText("",12);
 320                         $pdf->ezText("",12);
 321                         $pdf->ezText(xl("Digitally Signed"),12);
 322
 323                         $query = sqlStatement("select t2.id, t2.fname, t2.lname, t2.title from forms as t1 join users as t2 on " .
 324                                 "(t1.user like t2.username) where t1.pid=$pid and t1.encounter=$encounter");
 325                         if ($results = sqlFetchArray($query)) {
 326                                 $name = $results['fname']." ".$results['lname'].", ".$results['title'];
 327                                 $user_id = $results['id'];
 328                         }
 329                         $path = $GLOBALS['fileroot']."/interface/forms/CAMOS";
 330                         if (file_exists($path."/sig".$user_id.".jpg")) {
 331                                 $pdf->ezImage($path."/sig".$user_id.".jpg",'','72','','left','');
 332                         }
 333                         $pdf->ezText($name,12);
 334                 }
 335         }
 336         $pdf->ezStream();
 337     }
 338 }
 339 function getFormData($start_date,$end_date,$lname,$fname) { //dates in sql format
 340
 341         // All 4 parameters have previously been trimmed, globally validated,
 342         //  and prepared for database insert
 343
 344         $name_clause = '';
 345         $date_clause = "date(t2.date) >= '".$start_date."' and date(t2.date) <= '".$end_date."' ";
 346         if ($lname || $fname) {
 347                 $name_clause = "and t3.lname like '%".$lname."%' and t3.fname like '%".$fname."%' ";
 348         }
 349         $dates = array();
 350         if ($_GET['pid'] && $_GET['encounter']) {
 351                 $date_clause = '';
 352                 $name_clause = "t2.pid=".$_GET['pid']." and t2.encounter=".$_GET['encounter']." ";
 353         }
 354         $query1 = sqlStatement(
 355                 "select t1.form_id, t1.form_name, t1.pid, date_format(t2.date,'%m-%d-%Y') as date, " .
 356                 "date_format(t2.date,'%Y%m%d') as datekey, " .
 357                 "t3.lname, t3.fname, t3.pubpid, date_format(t3.DOB,'%m-%d-%Y') as dob, " .
 358                 "t2.encounter as enc, " .
 359                 "t2.reason from " .
 360                 "forms as t1 join " .
 361                 "form_encounter as t2 on " .
 362                 "(t1.pid = t2.pid and t1.encounter = t2.encounter) " .
 363                 "join patient_data as t3 on " .
 364                 "(t1.pid = t3.pid) where " .
 365                 $date_clause .
 366                 $name_clause .
 367                 "order by date,pid");
 368         while ($results1 = sqlFetchArray($query1)) {
 369                 if (!$dates[$results1['datekey']]) {
 370                         $dates[$results1['datekey']] = array();
 371                 }
 372                 if (!$dates[$results1['datekey']][$results1['pid'].'_'.$results1['enc']]) {
 373                         $dates[$results1['datekey']][$results1['pid'].'_'.$results1['enc']] = array();
 374                         $dates[$results1['datekey']][$results1['pid'].'_'.$results1['enc']]['name'] = $results1['fname'].' '.$results1['lname'];
 375                         $dates[$results1['datekey']][$results1['pid'].'_'.$results1['enc']]['date'] = $results1['date'];
 376                         $dates[$results1['datekey']][$results1['pid'].'_'.$results1['enc']]['pubpid'] = $results1['pubpid'];
 377                         $dates[$results1['datekey']][$results1['pid'].'_'.$results1['enc']]['dob'] = $results1['dob'];
 378                         $dates[$results1['datekey']][$results1['pid'].'_'.$results1['enc']]['vitals'] = '';
 379                         $dates[$results1['datekey']][$results1['pid'].'_'.$results1['enc']]['reason'] = $results1['reason'];
 380                         $dates[$results1['datekey']][$results1['pid'].'_'.$results1['enc']]['exam'] = array();
 381                         $dates[$results1['datekey']][$results1['pid'].'_'.$results1['enc']]['prescriptions'] = array();
 382                         $dates[$results1['datekey']][$results1['pid'].'_'.$results1['enc']]['other'] = array();
 383                         $dates[$results1['datekey']][$results1['pid'].'_'.$results1['enc']]['billing'] = array();
 384                         $dates[$results1['datekey']][$results1['pid'].'_'.$results1['enc']]['calories'] = array();
 385                 }
 386                 // get icd9 codes for this encounter
 387                 $query2 = sqlStatement("select * from billing where encounter = ".
 388                         $results1['enc']." and pid = ".$results1['pid']." and code_type like 'ICD9' and activity=1");
 389                 while ($results2 = sqlFetchArray($query2)) {
 390                         array_push($dates[$results1['datekey']][$results1['pid'].'_'.$results1['enc']]['billing'],
 391                                 $results2['code'].' '.$results2['code_text']);
 392                 }
 393                 if (strtolower($results1['form_name']) == 'vitals') { // deal with Vitals
 394                         $query2 = sqlStatement("select * from form_vitals where id = " .
 395                                 $results1['form_id']);
 396                         if ($results2 = sqlFetchArray($query2)) {
 397                                 $dates[$results1['datekey']][$results1['pid'].'_'.$results1['enc']]['vitals'] = formatVitals($results2);
 398                         }
 399                 }
 400                 if (substr(strtolower($results1['form_name']),0,5) == 'camos') { // deal with camos
 401                         $query2 = sqlStatement("select category,subcategory,item,content,date_format(date,'%h:%i %p') as date from ".mitigateSqlTableUpperCase("form_CAMOS")." where id = " .
 402                                 $results1['form_id']);
 403                         if ($results2 = sqlFetchArray($query2)) {
 404                                 if ($results2['category'] == 'exam') {
 405                                         array_push($dates[$results1['datekey']][$results1['pid'].'_'.$results1['enc']]['exam'],$results2['content']);
 406                                 }
 407                                 elseif ($results2['category'] == 'prescriptions') {
 408                                         array_push($dates[$results1['datekey']][$results1['pid'].'_'.$results1['enc']]['prescriptions'],preg_replace("/\n+/",' ',$results2['content']));
 409                                 }
 410                                 elseif ($results2['category'] == 'communications') {
 411                                         //do nothing
 412                                 }
 413                                 elseif ($results2['category'] == 'calorie intake') {
 414                                         $values = array('subcategory' => $results2['subcategory'],
 415                                                 'item' => $results2['item'],
 416                                                 'content' => $results2['content'],
 417                                                 'date' => $results2['date']);
 418                                         array_push($dates[$results1['datekey']][$results1['pid'].'_'.$results1['enc']]['calories'],$values);
 419
 420                                 }
 421                                 else {
 422                                         if (!$dates[$results1['datekey']][$results1['pid'].'_'.$results1['enc']]['other'][$results2['category']]) {
 423                                                 $dates[$results1['datekey']][$results1['pid'].'_'.$results1['enc']]['other'][$results2['category']] = array();
 424                                         }
 425                                         array_push($dates[$results1['datekey']][$results1['pid'].'_'.$results1['enc']]['other'][$results2['category']],
 426                                                 preg_replace(array("/\n+/","/patientname/i"),array(' ',$results1['fname'].' '.$results1['lname']),$results2['content']));
 427                                 }
 428                         }
 429                 }
 430         }
 431         return $dates;
 432 }
 433 function formatVitals($raw) { //pass raw vitals array, format and return as string
 434         $height = '';
 435         $weight = '';
 436         $bmi = '';
 437         $temp= '';
 438         $bp = '';
 439         $pulse = '';
 440         $respiration = '';
 441         $oxygen_saturation = '';
 442         if ($raw['height'] && $raw['height'] > 0) {
 443                 $height = xl("HT").": ".$raw['height']." ";
 444         }
 445         if ($raw['weight'] && $raw['weight'] > 0) {
 446                 $weight = xl("WT").": ".$raw['weight']." ";
 447         }
 448         if ($raw['BMI'] && $raw['BMI'] > 0) {
 449                 $bmi = xl("BMI").": ".$raw['BMI']." ";
 450         }
 451         if ($raw['temperature'] && $raw['temperature'] > 0) {
 452                 $temp = xl("Temp").": ".$raw['temperature']." ";
 453         }
 454         if ($raw['bps'] && $raw['bpd'] && $raw['bps'] > 0 && $raw['bpd'] > 0) {
 455                 $bp = xl("BP").": ".$raw['bps']."/".$raw['bpd']." ";
 456         }
 457         if ($raw['pulse'] && $raw['pulse'] > 0) {
 458                 $pulse = xl("Pulse").": ".$raw['pulse']." ";
 459         }
 460         if ($raw['respiration'] && $raw['respiration'] > 0) {
 461                 $respiration = xl("Respiration").": ".$raw['respiration']." ";
 462         }
 463         if ($raw['oxygen_saturation'] && $raw['oxygen_saturation'] > 0) {
 464                 $oxygen_saturation = xl("O2 Sat").": ".$raw['oxygen_saturation']."% ";
 465         }
 466         $ret = $height.$weight.$bmi.$temp.$bp.
 467                 $pulse.$respiration.$oxygen_saturation;
 468         if ($ret != '') {
 469                 $ret = xl("Vital Signs").": ".$ret;
 470         }
 471         return $ret;
 472 }