interface/patient_file/printed_fee_sheet.php

   1 <?php
   2
   3 // Copyright (C) 2007-2010 Rod Roark <rod@sunsetsystems.com>
   4 //
   5 // 2012 - Refactored extensively to allow for creating multiple feesheets on demand
   6 // uses a session array of PIDS by Medical Information Integration, LLC - mi-squared.com
   7 //
   8 // This program is free software; you can redistribute it and/or
   9 // modify it under the terms of the GNU General Public License
  10 // as published by the Free Software Foundation; either version 2
  11 // of the License, or (at your option) any later version.
  12
  13 require_once("../globals.php");
  14 require_once("$srcdir/acl.inc");
  15 require_once("$srcdir/patient.inc");
  16 require_once("$srcdir/billing.inc");
  17 require_once("$srcdir/classes/Address.class.php");
  18 require_once("$srcdir/classes/InsuranceCompany.class.php");
  19 require_once("$srcdir/formatting.inc.php");
  20
  21 function genColumn($ix) {
  22     global $html;
  23     global $SBCODES;
  24     for ($imax = count($SBCODES); $ix < $imax; ++$ix) {
  25         $a = explode('|', $SBCODES[$ix], 2);
  26         $cmd = trim($a[0]);
  27         if ($cmd == '*C') { // column break
  28             return++$ix;
  29         }
  30         if ($cmd == '*B') { // Borderless and empty
  31             $html .= " <tr><td colspan='5' class='fscode' style='border-width:0 1px 0 0;padding-top:1px;' nowrap>&nbsp;</td></tr>\n";
  32         } else if ($cmd == '*G') {
  33             $title = htmlspecialchars($a[1]);
  34             if (!$title)
  35                 $title = '&nbsp;';
  36             $html .= " <tr><td colspan='5' align='center' class='fsgroup' style='vertical-align:middle' nowrap>$title</td></tr>\n";
  37         }
  38         else if ($cmd == '*H') {
  39             $title = htmlspecialchars($a[1]);
  40             if (!$title)
  41                 $title = '&nbsp;';
  42             $html .= " <tr><td colspan='5' class='fshead' style='vertical-align:middle' nowrap>$title</td></tr>\n";
  43         }
  44         else {
  45             $title = htmlspecialchars($a[1]);
  46             if (!$title)
  47                 $title = '&nbsp;';
  48             $b = explode(':', $cmd);
  49             $html .= " <tr>\n";
  50             $html .= " <td class='fscode' style='vertical-align:middle;width:14pt' nowrap>&nbsp;</td>\n";
  51             if (count($b) <= 1) {
  52                 $code = $b[0];
  53                 if (!$code)
  54                     $code = '&nbsp;';
  55                 $html .= " <td class='fscode' style='vertical-align:middle' nowrap>$code</td>\n";
  56                 $html .= " <td colspan='3' class='fscode' style='vertical-align:middle' nowrap>$title</td>\n";
  57             }
  58             else {
  59                 $html .= " <td colspan='2' class='fscode' style='vertical-align:middle' nowrap>" . $b[0] . '/' . $b[1] . "</td>\n";
  60                 $html .= " <td colspan='2' class='fscode' style='vertical-align:middle' nowrap>$title</td>\n";
  61             }
  62             $html .= " </tr>\n";
  63         }
  64     }
  65     return $ix;
  66 }
  67
  68 // MAIN Body
  69 //
  70 // Build output to handle multiple pids and and superbill for each patient.
  71 // This value is initially a maximum, and will be recomputed to
  72 // distribute lines evenly among the pages.  (was 55)
  73 $lines_per_page = 55;
  74
  75 $lines_in_stats = 8;
  76
  77 $header_height = 44; // height of page headers in points
  78 // This tells us if patient/encounter data is to be filled in.
  79 // 1 = single PID from popup, 2=array of PIDs for session
  80
  81 if (empty($_GET['fill'])) {
  82     $form_fill = 0;
  83 } else {
  84     $form_fill = $_GET['fill'];
  85 }
  86
  87 // Show based on session array or single pid?
  88 $pid_list = array();
  89
  90 if(!empty($_SESSION['pidList']) and $form_fill == 2)
  91 {
  92     $pid_list = $_SESSION['pidList'];
  93 }
  94 else if ($form_fill == 1)
  95 {
  96     array_push($pid_list,$pid); //get from active PID
  97 } else {
  98     array_push($pid_list,''); // empty element for blank form
  99 }
 100
 101 // make sure to clean up the session
 102 // else we'll build off of trash in the combo-drop down for a single patient later
 103 unset($_SESSION['pidList']);
 104
 105 // This file is optional. You can create it to customize how the printed
 106 // fee sheet looks, otherwise you'll get a mirror of your actual fee sheet.
 107 //
 108 if (file_exists("../../custom/fee_sheet_codes.php"))
 109     include_once ("../../custom/fee_sheet_codes.php");
 110
 111 // TBD: Move these to globals.php, or make them user-specific.
 112 $fontsize = 7;
 113 $page_height = 700;
 114
 115 $padding = 0;
 116
 117 // The $SBCODES table is a simple indexed array whose values are
 118 // strings of the form "code|text" where code may be either a billing
 119 // code or one of the following:
 120 //
 121 // *H - A main heading, where "text" is its title (to be centered).
 122 // *G - Specifies a new category, where "text" is its name.
 123 // *B - A borderless blank row.
 124 // *C - Ends the current column and starts a new one.
 125 // If $SBCODES is not provided, then manufacture it from the Fee Sheet.
 126 //
 127 if (empty($SBCODES)) {
 128     $SBCODES = array();
 129     $last_category = '';
 130
 131     // Create entries based on the fee_sheet_options table.
 132     $res = sqlStatement("SELECT * FROM fee_sheet_options " .
 133             "ORDER BY fs_category, fs_option");
 134     while ($row = sqlFetchArray($res)) {
 135         $fs_category = $row['fs_category'];
 136         $fs_option = $row['fs_option'];
 137         $fs_codes = $row['fs_codes'];
 138         if ($fs_category !== $last_category) {
 139             $last_category = $fs_category;
 140             $SBCODES[] = '*G|' . substr($fs_category, 1);
 141         }
 142         $SBCODES[] = " |" . substr($fs_option, 1);
 143     }
 144
 145     // Create entries based on categories defined within the codes.
 146     $pres = sqlStatement("SELECT option_id, title FROM list_options " .
 147             "WHERE list_id = 'superbill' ORDER BY seq");
 148     while ($prow = sqlFetchArray($pres)) {
 149         $SBCODES[] = '*G|' . xl_list_label($prow['title']);
 150         $res = sqlStatement("SELECT code_type, code, code_text FROM codes " .
 151                 "WHERE superbill = '" . $prow['option_id'] . "' AND active = 1 " .
 152                 "ORDER BY code_text");
 153         while ($row = sqlFetchArray($res)) {
 154             $SBCODES[] = $row['code'] . '|' . $row['code_text'];
 155         }
 156     }
 157
 158     // Create one more group, for Products.
 159     if ($GLOBALS['sell_non_drug_products']) {
 160         $SBCODES[] = '*G|' . xl('Products');
 161         $tres = sqlStatement("SELECT " .
 162                 "dt.drug_id, dt.selector, d.name, d.ndc_number " .
 163                 "FROM drug_templates AS dt, drugs AS d WHERE " .
 164                 "d.drug_id = dt.drug_id AND d.active = 1 " .
 165                 "ORDER BY d.name, dt.selector, dt.drug_id");
 166         while ($trow = sqlFetchArray($tres)) {
 167             $tmp = $trow['selector'];
 168             if ($trow['name'] !== $trow['selector'])
 169                 $tmp .= ' ' . $trow['name'];
 170             $prodcode = empty($trow['ndc_number']) ? ('(' . $trow['drug_id'] . ')') :
 171                     $trow['ndc_number'];
 172             $SBCODES[] = "$prodcode|$tmp";
 173         }
 174     }
 175
 176     // Extra stuff for the labs section.
 177     $SBCODES[] = '*G|' . xl('Notes');
 178     $percol = intval((count($SBCODES) + 2) / 3);
 179     while (count($SBCODES) < $percol * 3)
 180         $SBCODES[] = '*B|';
 181
 182     // Adjust lines per page to distribute lines evenly among the pages.
 183     $pages = intval(($percol + $lines_in_stats + $lines_per_page - 1) / $lines_per_page);
 184     $lines_per_page = intval(($percol + $lines_in_stats + $pages - 1) / $pages);
 185
 186     // Figure out page and column breaks.
 187     $pages = 1;
 188     $lines = $percol;
 189     $page_start_index = 0;
 190     while ($lines + $lines_in_stats > $lines_per_page) {
 191         ++$pages;
 192         $lines_this_page = $lines > $lines_per_page ? $lines_per_page : $lines;
 193         $lines -= $lines_this_page;
 194         array_splice($SBCODES, $lines_this_page * 3 + $page_start_index, 0, '*C|');
 195         array_splice($SBCODES, $lines_this_page * 2 + $page_start_index, 0, '*C|');
 196         array_splice($SBCODES, $lines_this_page * 1 + $page_start_index, 0, '*C|');
 197         $page_start_index += $lines_this_page * 3 + 3;
 198     }
 199     array_splice($SBCODES, $lines * 2 + $page_start_index, 0, '*C|');
 200     array_splice($SBCODES, $lines * 1 + $page_start_index, 0, '*C|');
 201 }
 202
 203 $lheight = sprintf('%d', ($page_height - $header_height) / $lines_per_page);
 204
 205 // Common HTML Header information
 206
 207 $html = "<html>
 208 <head>";
 209
 210 $html .= "
 211 <style>
 212 body {
 213 font-family: sans-serif;
 214 font-weight: normal;
 215 }
 216 .bordertbl {
 217 width: 100%;
 218 border-style: solid;
 219 border-width: 0 0 1px 1px;
 220 border-spacing: 0;
 221 border-collapse: collapse;
 222 border-color: #999999;
 223 }
 224 td.toprow {
 225 height: 1px;
 226 padding: 0;
 227 border-style: solid;
 228 border-width: 0 0 0 0;
 229 border-color: #999999;
 230 }
 231 td.fsgroup {
 232 height: ${lheight}pt;
 233 font-family: sans-serif;
 234 font-weight: bold;
 235 font-size: $fontsize pt;
 236 background-color: #cccccc;
 237 padding: ${padding}pt 2pt 0pt 2pt;
 238 border-style: solid;
 239 border-width: 1px 1px 0 0;
 240 border-color: #999999;
 241 }
 242 td.fshead {
 243 height: ${lheight}pt;
 244 font-family: sans-serif;
 245 font-weight: bold;
 246 font-size: ${fontsize}pt;
 247 padding: ${padding}pt 2pt 0pt 2pt;
 248 border-style: solid;
 249 border-width: 1px 1px 0 0;
 250 border-color: #999999;
 251 }
 252 td.fscode {
 253 height: ${lheight}pt;
 254 font-family: sans-serif;
 255 font-weight: normal;
 256 font-size: ${fontsize}pt;
 257 padding: ${padding}pt 2pt 0pt 2pt;
 258 border-style: solid;
 259 border-width: 1px 1px 0 0;
 260 border-color: #999999;
 261 }
 262
 263 .ftitletable {
 264 width: 100%;
 265 height: ${header_height}pt;
 266 margin: 0 0 8pt 0;
 267 }
 268 .ftitlecell1 {
 269 vertical-align: top;
 270 text-align: left;
 271 font-size: 14pt;
 272 font-weight: bold;
 273 }
 274 .ftitlecell2 {
 275 vertical-align: top;
 276 text-align: right;
 277 font-size: 9pt;
 278 }
 279 div.pagebreak {
 280 page-break-after: always;
 281 height: ${page_height}pt;
 282 }
 283 </style>";
 284
 285 $html .= "<title>" . htmlspecialchars($frow['name']) . "</title>
 286 <script type='text/javascript' src='../../library/js/jquery-1.2.2.min.js'></script>
 287 <script type=\"text/javascript\" src=\"../../library/dialog.js\"></script>
 288 <script language=\"JavaScript\">";
 289
 290 $html .= "
 291 $(document).ready(function() {
 292  var win = top.printLogSetup ? top : opener.top;
 293  win.printLogSetup(document.getElementById('printbutton'));
 294 });
 295
 296 // Process click on Print button.
 297 function printlog_before_print() {
 298  var divstyle = document.getElementById('hideonprint').style;
 299  divstyle.display = 'none';
 300 }
 301
 302 </script>
 303 </head>
 304 <body bgcolor='#ffffff'>
 305 <form name='theform' method='post' action='printed_fee_sheet.php?fill=$form_fill'
 306 onsubmit='return opener.top.restoreSession()'>
 307 <center>";
 308
 309 // Set Pagebreak for multi forms
 310 if ($form_fill == 2) {
 311     $html .= "<div class=pagebreak>\n";
 312 } else {
 313     $html .= "<div>\n";
 314 }
 315
 316 $today = date('Y-m-d');
 317
 318 $alertmsg = ''; // anything here pops up in an alert box
 319
 320 // Get details for the primary facility.
 321 $frow = sqlQuery("SELECT * FROM facility WHERE primary_business_entity = 1");
 322
 323 // If primary is not set try to old method of guessing...for backward compatibility
 324 if (empty($frow)) {
 325     $frow = sqlQuery("SELECT * FROM facility " .
 326             "ORDER BY billing_location DESC, accepts_assignment DESC, id LIMIT 1");
 327 }
 328
 329 // Still missing...
 330 if (empty($frow)) {
 331     $alertmsg = xl("No Primary Business Entity selected in facility list");
 332 }
 333
 334 // Loop on array of PIDS
 335 $saved_pages = $pages; //Save calculated page count of a single fee sheet
 336
 337 foreach ($pid_list as $pid) {
 338
 339     if ($form_fill) {
 340         // Get the patient's name and chart number.
 341         $patdata = getPatientData($pid);
 342     }
 343
 344 // This tracks our position in the $SBCODES array.
 345     $cindex = 0;
 346
 347     while (--$pages >= 0) {
 348
 349         $html .= genFacilityTitle(xl('Superbill/Fee Sheet'), -1);
 350
 351         $html .="
 352 <table class='bordertbl' cellspacing='0' cellpadding='0' width='100%'>
 353 <tr>
 354 <td valign='top'>
 355 <table border='0' cellspacing='0' cellpadding='0' width='100%'>
 356 <tr>
 357 <td class='toprow' style='width:10%'></td>
 358 <td class='toprow' style='width:10%'></td>
 359 <td class='toprow' style='width:25%'></td>
 360 <td class='toprow' style='width:55%'></td>
 361 </tr>";
 362
 363         $cindex = genColumn($cindex); // Column 1
 364
 365         if ($pages == 0) { // if this is the last page
 366             $html .= "<tr>
 367 <td colspan='3' valign='top' class='fshead' style='height:" . $lheight * 2 . "pt'>";
 368             $html .= xl('Patient', 'r');
 369             $html .= ":<br />";
 370
 371             if ($form_fill) {
 372                 $html .= $patdata['fname'] . ' ' . $patdata['mname'] . ' ' . $patdata['lname'] . "<br />\n";
 373                 $html .= $patdata['street'] . "<br />\n";
 374                 $html .= $patdata['city'] . ', ' . $patdata['state'] . ' ' . $patdata['postal_code'] . "\n";
 375             }
 376
 377             $html .= "</td>
 378 <td valign='top' class='fshead'>";
 379             $html .= xl('DOB', 'r');
 380             $html .= ":<br />";
 381
 382             if ($form_fill)
 383                 $html .= $patdata['DOB'];
 384
 385             $html .= xl('ID', 'r');
 386             $html .= ":<br />";
 387
 388             if ($form_fill)
 389                 $html .= $patdata['pubpid'];
 390
 391             $html .= "</td>
 392 </tr>
 393 <tr>
 394 <td colspan='3' valign='top' class='fshead' style='height:${lheight}pt'>";
 395             $html .= xl('Doctor', 'r');
 396             $html .= ":<br />";
 397
 398             $encdata = false;
 399             if ($form_fill && $encounter) {
 400                 $query = "SELECT fe.reason, fe.date, u.fname, u.mname, u.lname, u.username " .
 401                         "FROM forms AS f " .
 402                         "JOIN form_encounter AS fe ON fe.id = f.form_id " .
 403                         "LEFT JOIN users AS u ON u.username = f.user " .
 404                         "WHERE f.pid = '$pid' AND f.encounter = '$encounter' AND f.formdir = 'newpatient' AND f.deleted = 0 " .
 405                         "ORDER BY f.id LIMIT 1";
 406                 $encdata = sqlQuery($query);
 407                 if (!empty($encdata['username'])) {
 408                     $html .= $encdata['fname'] . ' ' . $encdata['mname'] . ' ' . $encdata['lname'];
 409                 }
 410             }
 411
 412             $html .= "</td>
 413 <td valign='top' class='fshead'>";
 414             $html .= xl('Reason', 'r');
 415             $html .= ":<br />";
 416
 417             if (!empty($encdata)) {
 418                 $html .= $encdata['reason'];
 419             }
 420
 421             $html .= "</td>
 422 </tr>
 423 <tr>
 424 <td colspan='4' valign='top' class='fshead' style='height:${lheight}pt'>";
 425
 426             if (empty($GLOBALS['ippf_specific'])) {
 427                 $html .= xl('Insurance', 'r').":";
 428                 if ($form_fill) {
 429                     foreach (array('primary', 'secondary', 'tertiary') as $instype) {
 430                         $query = "SELECT * FROM insurance_data WHERE " .
 431                                 "pid = '$pid' AND type = '$instype' " .
 432                                 "ORDER BY date DESC LIMIT 1";
 433                         $row = sqlQuery($query);
 434                         if ($row['provider']) {
 435                             $icobj = new InsuranceCompany($row['provider']);
 436                             $adobj = $icobj->get_address();
 437                             $insco_name = trim($icobj->get_name());
 438                             if ($instype != 'primary')
 439                                 $html .= ",";
 440                             if ($insco_name) {
 441                                 $html .= "&nbsp;$insco_name";
 442                             } else {
 443                                 $html .= "&nbsp;<font color='red'><b>Missing Name</b></font>";
 444                             }
 445                         }
 446                     }
 447                 }
 448             } else {
 449                 // IPPF wants a visit date box with the current date in it.
 450                 $html .= xl('Visit date','r');
 451                 $html .= ":<br />\n";
 452                 if (!empty($encdata)) {
 453                     $html .= substr($encdata['date'], 0, 10);
 454                 } else {
 455                     $html .= oeFormatShortDate(date('Y-m-d')) . "\n";
 456                 }
 457             }
 458
 459             $html .= "</td>
 460 </tr>
 461 <tr>
 462 <td colspan='4' valign='top' class='fshead' style='height:${lheight}pt'>";
 463             $html .= xl('Prior Visit', 'r');
 464             $html .= ":<br />
 465 </td>
 466 </tr>
 467 <tr>
 468 <td colspan='4' valign='top' class='fshead' style='height:${lheight}pt'>";
 469             $html .= xl('Today\'s Charges', 'r');
 470             $html .= ":<br />
 471 </td>
 472 </tr>
 473 <tr>
 474 <td colspan='4' valign='top' class='fshead' style='height:${lheight}pt'>";
 475             $html .= xl('Today\'s Balance', 'r');
 476             $html .= ":<br />
 477 </td>
 478 </tr>
 479 <tr>
 480 <td colspan='4' valign='top' class='fshead' style='height:${lheight}pt'>";
 481             $html .= xl('Notes', 'r');
 482             $html .= ":<br />
 483 </td>
 484 </tr>";
 485         } // end if last page
 486
 487         $html .= "</table>
 488 </td>
 489 <td valign='top'>
 490 <table border='0' cellspacing='0' cellpadding='0' width='100%'>
 491 <tr>
 492 <td class='toprow' style='width:10%'></td>
 493 <td class='toprow' style='width:10%'></td>
 494 <td class='toprow' style='width:25%'></td>
 495 <td class='toprow' style='width:55%'></td>
 496 </tr>";
 497
 498         $cindex = genColumn($cindex); // Column 2
 499
 500         if ($pages == 0) { // if this is the last page
 501             $html .= "<tr>
 502 <td colspan='4' valign='top' class='fshead' style='height:" . $lheight * 8 . "pt'>";
 503             $html .= xl('Notes', 'r');
 504             $html .= ":<br />
 505 </td>
 506 </tr>";
 507         } // end if last page
 508
 509         $html .= "</table>
 510 </td>
 511 <td valign='top'>
 512 <table border='0' cellspacing='0' cellpadding='0' width='100%'>
 513 <tr>
 514 <td class='toprow' style='width:10%'></td>
 515 <td class='toprow' style='width:10%'></td>
 516 <td class='toprow' style='width:25%'></td>
 517 <td class='toprow' style='width:55%'></td>
 518 </tr>";
 519
 520         $cindex = genColumn($cindex); // Column 3
 521
 522         if ($pages == 0) { // if this is the last page
 523             $html .= "<tr>
 524 <td valign='top' colspan='4' class='fshead' style='height:" . $lheight * 6 . "pt;border-width:0 1px 0 0'>
 525 &nbsp;
 526 </td>
 527 </tr>
 528 <tr>
 529 <td valign='top' colspan='4' class='fshead' style='height:" . $lheight * 2 . "pt'>";
 530             $html .= xl('Signature', 'r');
 531             $html .= ":<br />
 532 </td>
 533 </tr>";
 534         } // end if last page
 535
 536         $html .= "</table>
 537 </td>
 538 </tr>
 539
 540 </table>";
 541
 542         $html .= "</div>";  //end of div.pageLetter
 543
 544     } // end while
 545     $pages = $saved_pages; //RESET
 546 }
 547
 548 // Common End Code
 549 if ($form_fill != 2) {   //use native browser 'print' for multipage
 550 $html .= "<div id='hideonprint'>
 551 <p>
 552 <input type='button' value='";
 553
 554 $html .= xla('Print');
 555 $html .="' id='printbutton' />
 556 </div>";
 557 }
 558
 559 $html .= "
 560 </form>
 561 </center>
 562 </body>
 563 </html>";
 564
 565 // Send final result to display
 566 echo $html;
 567 ?>