controllers/C_Prescription.class.php

   1 <?php
   2 /**
   3  * This script print Prescriptions.
   4  *
   5  * Copyright (C) 2015 Roberto Vasquez <robertogagliotta@gmail.com>
   6  *
   7  * LICENSE: This program is free software; you can redistribute it and/or
   8  * modify it under the terms of the GNU General Public License
   9  * as published by the Free Software Foundation; either version 2
  10  * of the License, or (at your option) any later version.
  11  * This program is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  14  * GNU General Public License for more details.
  15  * You should have received a copy of the GNU General Public License
  16  * along with this program. If not, see <http://opensource.org/licenses/gpl-license.php>;.
  17  *
  18  * @package OpenEMR
  19  * @author  Roberto Vasquez <robertogagliotta@gmail.com>
  20  * @link    http://www.open-emr.org
  21  */
  22
  23
  24 require_once($GLOBALS['fileroot'] . "/library/classes/Prescription.class.php");
  25 require_once($GLOBALS['fileroot'] . "/library/registry.inc");
  26 require_once($GLOBALS['fileroot'] . "/library/amc.php");
  27
  28 class C_Prescription extends Controller
  29 {
  30
  31     var $template_mod;
  32     var $pconfig;
  33     var $providerid = 0;
  34     var $is_faxing = false;
  35     var $is_print_to_fax = false;
  36
  37     function __construct($template_mod = "general")
  38     {
  39         parent::__construct();
  40
  41         $this->template_mod = $template_mod;
  42         $this->assign("FORM_ACTION", $GLOBALS['webroot']."/controller.php?" . $_SERVER['QUERY_STRING']);
  43         $this->assign("TOP_ACTION", $GLOBALS['webroot']."/controller.php?" . "prescription" . "&");
  44         $this->assign("STYLE", $GLOBALS['style']);
  45         $this->assign("WEIGHT_LOSS_CLINIC", $GLOBALS['weight_loss_clinic']);
  46         $this->assign("SIMPLIFIED_PRESCRIPTIONS", $GLOBALS['simplified_prescriptions']);
  47         $this->pconfig = $GLOBALS['oer_config']['prescriptions'];
  48         $this->assign("CSS_HEADER", $GLOBALS['css_header']);
  49         $this->assign("WEB_ROOT", $GLOBALS['webroot']);
  50         $this->RxList = new RxList();
  51
  52         if ($GLOBALS['inhouse_pharmacy']) {
  53             // Make an array of drug IDs and selectors for the template.
  54             $drug_array_values = array(0);
  55             $drug_array_output = array("-- " . xl('or select from inventory') ." --");
  56             $drug_attributes = '';
  57
  58             // $res = sqlStatement("SELECT * FROM drugs ORDER BY selector");
  59
  60             $res = sqlStatement("SELECT d.name, d.ndc_number, d.form, d.size, " .
  61                 "d.unit, d.route, d.substitute, t.drug_id, t.selector, t.dosage, " .
  62                 "t.period, t.quantity, t.refills, d.drug_code " .
  63                 "FROM drug_templates AS t, drugs AS d WHERE " .
  64                 "d.drug_id = t.drug_id ORDER BY t.selector");
  65
  66             while ($row = sqlFetchArray($res)) {
  67                 $tmp_output = $row['selector'];
  68                 if ($row['ndc_number']) {
  69                     $tmp_output .= ' [' . $row['ndc_number'] . ']';
  70                 }
  71
  72                 $drug_array_values[] = $row['drug_id'];
  73                 $drug_array_output[] = $tmp_output;
  74                 if ($drug_attributes) {
  75                     $drug_attributes .= ',';
  76                 }
  77
  78                 $drug_attributes .=    "['"  .
  79                     $row['name']       . "',"  . //  0
  80                     $row['form']       . ",'"  . //  1
  81                     $row['dosage']     . "','" . //  2
  82                     $row['size']       . "',"  . //  3
  83                     $row['unit']       . ","   . //  4
  84                     $row['route']      . ","   . //  5
  85                     $row['period']     . ","   . //  6
  86                     $row['substitute'] . ","   . //  7
  87                     $row['quantity']   . ","   . //  8
  88                     $row['refills']    . ","   . //  9
  89                     $row['quantity']   . ","   . //  10 quantity per_refill
  90                     $row['drug_code']  . "]";    //  11 rxnorm drug code
  91             }
  92
  93             $this->assign("DRUG_ARRAY_VALUES", $drug_array_values);
  94             $this->assign("DRUG_ARRAY_OUTPUT", $drug_array_output);
  95             $this->assign("DRUG_ATTRIBUTES", $drug_attributes);
  96         }
  97     }
  98
  99     function default_action()
 100     {
 101         $this->assign("prescription", $this->prescriptions[0]);
 102         $this->display($GLOBALS['template_dir'] . "prescription/" . $this->template_mod . "_edit.html");
 103     }
 104
 105     function edit_action($id = "", $patient_id = "", $p_obj = null)
 106     {
 107
 108         if ($p_obj != null && get_class($p_obj) == "prescription") {
 109             $this->prescriptions[0] = $p_obj;
 110         } elseif (get_class($this->prescriptions[0]) != "prescription") {
 111             $this->prescriptions[0] = new Prescription($id);
 112         }
 113
 114         if (!empty($patient_id)) {
 115             $this->prescriptions[0]->set_patient_id($patient_id);
 116         }
 117
 118         // If quantity to dispense is not already set from a POST, set its
 119         // default value.
 120         if (! $this->get_template_vars('DISP_QUANTITY')) {
 121             $this->assign('DISP_QUANTITY', $this->prescriptions[0]->quantity);
 122         }
 123
 124         $this->default_action();
 125     }
 126
 127     function list_action($id, $sort = "")
 128     {
 129         if (empty($id)) {
 130             $this->function_argument_error();
 131             exit;
 132         }
 133
 134         if (!empty($sort)) {
 135             $this->assign("prescriptions", Prescription::prescriptions_factory($id, $sort));
 136         } else {
 137             $this->assign("prescriptions", Prescription::prescriptions_factory($id));
 138         }
 139
 140                 // flag to indicate the CAMOS form is regsitered and active
 141                 $this->assign("CAMOS_FORM", isRegistered("CAMOS"));
 142
 143                 $this->display($GLOBALS['template_dir'] . "prescription/" . $this->template_mod . "_list.html");
 144     }
 145
 146     function block_action($id, $sort = "")
 147     {
 148         if (empty($id)) {
 149             $this->function_argument_error();
 150             exit;
 151         }
 152
 153         if (!empty($sort)) {
 154             $this->assign("prescriptions", Prescription::prescriptions_factory($id, $sort));
 155         } else {
 156             $this->assign("prescriptions", Prescription::prescriptions_factory($id));
 157         }
 158
 159         //print_r(Prescription::prescriptions_factory($id));
 160         $this->display($GLOBALS['template_dir'] . "prescription/" . $this->template_mod . "_block.html");
 161     }
 162
 163     function fragment_action($id, $sort = "")
 164     {
 165         if (empty($id)) {
 166             $this->function_argument_error();
 167             exit;
 168         }
 169
 170         if (!empty($sort)) {
 171             $this->assign("prescriptions", Prescription::prescriptions_factory($id, $sort));
 172         } else {
 173             $this->assign("prescriptions", Prescription::prescriptions_factory($id));
 174         }
 175
 176         //print_r(Prescription::prescriptions_factory($id));
 177         $this->display($GLOBALS['template_dir'] . "prescription/" . $this->template_mod . "_fragment.html");
 178     }
 179
 180     function lookup_action()
 181     {
 182         $this->do_lookup();
 183         $this->display($GLOBALS['template_dir'] . "prescription/" . $this->template_mod . "_lookup.html");
 184     }
 185
 186     function edit_action_process()
 187     {
 188         if ($_POST['process'] != "true") {
 189             return;
 190         }
 191
 192         //print_r($_POST);
 193
 194     // Stupid Smarty code treats empty values as not specified values.
 195     // Since active is a checkbox, represent the unchecked state as -1.
 196         if (empty($_POST['active'])) {
 197             $_POST['active'] = '-1';
 198         }
 199
 200         $this->prescriptions[0] = new Prescription($_POST['id']);
 201         parent::populate_object($this->prescriptions[0]);
 202         //echo $this->prescriptions[0]->toString(true);
 203         $this->prescriptions[0]->persist();
 204         $_POST['process'] = "";
 205
 206         // If the "Prescribe and Dispense" button was clicked, then
 207         // redisplay as in edit_action() but also replicate the fee and
 208         // include a piece of javascript to call dispense().
 209         //
 210         if ($_POST['disp_button']) {
 211             $this->assign("DISP_QUANTITY", $_POST['disp_quantity']);
 212             $this->assign("DISP_FEE", $_POST['disp_fee']);
 213             $this->assign("ENDING_JAVASCRIPT", "dispense();");
 214             $this->_state = false;
 215             return $this->edit_action($this->prescriptions[0]->id);
 216         }
 217
 218     // Set the AMC reporting flag (to record percentage of prescriptions that
 219     // are set as e-prescriptions)
 220         if (!(empty($_POST['escribe_flag']))) {
 221               // add the e-prescribe flag
 222               processAmcCall('e_prescribe_amc', true, 'add', $this->prescriptions[0]->get_patient_id(), 'prescriptions', $this->prescriptions[0]->id);
 223         } else {
 224               // remove the e-prescribe flag
 225               processAmcCall('e_prescribe_amc', true, 'remove', $this->prescriptions[0]->get_patient_id(), 'prescriptions', $this->prescriptions[0]->id);
 226         }
 227
 228     // Set the AMC reporting flag (to record prescriptions that checked drug formulary)
 229         if (!(empty($_POST['checked_formulary_flag']))) {
 230               // add the e-prescribe flag
 231               processAmcCall('e_prescribe_chk_formulary_amc', true, 'add', $this->prescriptions[0]->get_patient_id(), 'prescriptions', $this->prescriptions[0]->id);
 232         } else {
 233               // remove the e-prescribe flag
 234               processAmcCall('e_prescribe_chk_formulary_amc', true, 'remove', $this->prescriptions[0]->get_patient_id(), 'prescriptions', $this->prescriptions[0]->id);
 235         }
 236
 237     // Set the AMC reporting flag (to record prescriptions that are controlled substances)
 238         if (!(empty($_POST['controlled_substance_flag']))) {
 239               // add the e-prescribe flag
 240               processAmcCall('e_prescribe_cont_subst_amc', true, 'add', $this->prescriptions[0]->get_patient_id(), 'prescriptions', $this->prescriptions[0]->id);
 241         } else {
 242               // remove the e-prescribe flag
 243               processAmcCall('e_prescribe_cont_subst_amc', true, 'remove', $this->prescriptions[0]->get_patient_id(), 'prescriptions', $this->prescriptions[0]->id);
 244         }
 245
 246 // TajEmo Work by CB 2012/05/29 02:58:29 PM to stop from going to send screen. Improves Work Flow
 247 //     if ($this->prescriptions[0]->get_active() > 0) {
 248 //       return $this->send_action($this->prescriptions[0]->id);
 249 //     }
 250         $this->list_action($this->prescriptions[0]->get_patient_id());
 251         exit;
 252     }
 253
 254     function send_action($id)
 255     {
 256         $_POST['process'] = "true";
 257         if (empty($id)) {
 258             $this->function_argument_error();
 259         }
 260
 261         $rx = new Prescription($id);
 262         // Populate pharmacy info if the patient has a default pharmacy.
 263         // Probably the Prescription object should handle this instead, but
 264         // doing it there will require more careful research and testing.
 265         $prow = sqlQuery("SELECT pt.pharmacy_id FROM prescriptions AS rx, " .
 266             "patient_data AS pt WHERE rx.id = '$id' AND pt.pid = rx.patient_id");
 267         if ($prow['pharmacy_id']) {
 268             $rx->pharmacy->set_id($prow['pharmacy_id']);
 269             $rx->pharmacy->populate();
 270         }
 271
 272         $this->assign("prescription", $rx);
 273
 274         $this->_state = false;
 275         return $this->fetch($GLOBALS['template_dir'] . "prescription/" .
 276             $this->template_mod . "_send.html");
 277     }
 278
 279     function multiprintfax_header(& $pdf, $p)
 280     {
 281         return $this->multiprint_header($pdf, $p);
 282     }
 283
 284     function multiprint_header(& $pdf, $p)
 285     {
 286         $this->providerid = $p->provider->id;
 287         //print header
 288         $pdf->ezImage($GLOBALS['oer_config']['prescriptions']['logo'], '', '50', '', 'center', '');
 289         $pdf->ezColumnsStart(array('num'=>2, 'gap'=>10));
 290         $res = sqlQuery("SELECT concat('<b>',f.name,'</b>\n',f.street,'\n',f.city,', ',f.state,' ',f.postal_code,'\nTel:',f.phone,if(f.fax != '',concat('\nFax: ',f.fax),'')) addr FROM users JOIN facility AS f ON f.name = users.facility where users.id ='" .
 291             add_escape_custom($p->provider->id) . "'");
 292         $pdf->ezText($res['addr'], 12);
 293         $my_y = $pdf->y;
 294         $pdf->ezNewPage();
 295         $pdf->ezText('<b>' . $p->provider->get_name_display() . '</b>', 12);
 296     // A client had a bad experience with a patient misusing a DEA number, so
 297     // now the doctors write those in on printed prescriptions and only when
 298     // necessary.  If you need to change this back, then please make it a
 299     // configurable option.  Faxed prescriptions were not changed.  -- Rod
 300     // Now it is configureable. Change value in
 301     //     Administration->Globals->Rx
 302         if ($GLOBALS['rx_enable_DEA']) {
 303             if ($this->is_faxing || $GLOBALS['rx_show_DEA']) {
 304                 $pdf->ezText('<b>' . xl('DEA') . ':</b>' . $p->provider->federal_drug_id, 12);
 305             } else {
 306                 $pdf->ezText('<b>' . xl('DEA') . ':</b> ________________________', 12);
 307             }
 308         }
 309
 310         if ($GLOBALS['rx_enable_NPI']) {
 311             if ($this->is_faxing || $GLOBALS['rx_show_NPI']) {
 312                     $pdf->ezText('<b>' . xl('NPI') . ':</b>' . $p->provider->npi, 12);
 313             } else {
 314                 $pdf->ezText('<b>' . xl('NPI') . ':</b> _________________________', 12);
 315             }
 316         }
 317
 318         if ($GLOBALS['rx_enable_SLN']) {
 319             if ($this->is_faxing || $GLOBALS['rx_show_SLN']) {
 320                 $pdf->ezText('<b>' . xl('State Lic. #') . ':</b>' . $p->provider->state_license_number, 12);
 321             } else {
 322                 $pdf->ezText('<b>' . xl('State Lic. #') . ':</b> ___________________', 12);
 323             }
 324         }
 325
 326         $pdf->ezColumnsStop();
 327         if ($my_y < $pdf->y) {
 328             $pdf->ezSetY($my_y);
 329         }
 330
 331         $pdf->ezText('', 10);
 332         $pdf->setLineStyle(1);
 333         $pdf->ezColumnsStart(array('num'=>2));
 334         $pdf->line($pdf->ez['leftMargin'], $pdf->y, $pdf->ez['pageWidth']-$pdf->ez['rightMargin'], $pdf->y);
 335         $pdf->ezText('<b>' . xl('Patient Name & Address') . '</b>', 6);
 336         $pdf->ezText($p->patient->get_name_display(), 10);
 337         $res = sqlQuery("SELECT  concat(street,'\n',city,', ',state,' ',postal_code,'\n',if(phone_home!='',phone_home,if(phone_cell!='',phone_cell,if(phone_biz!='',phone_biz,'')))) addr from patient_data where pid =". add_escape_custom($p->patient->id));
 338         $pdf->ezText($res['addr']);
 339         $my_y = $pdf->y;
 340         $pdf->ezNewPage();
 341         $pdf->line($pdf->ez['leftMargin'], $pdf->y, $pdf->ez['pageWidth']-$pdf->ez['rightMargin'], $pdf->y);
 342         $pdf->ezText('<b>' . xl('Date of Birth') . '</b>', 6);
 343         $pdf->ezText($p->patient->date_of_birth, 10);
 344         $pdf->ezText('');
 345         $pdf->line($pdf->ez['leftMargin'], $pdf->y, $pdf->ez['pageWidth']-$pdf->ez['rightMargin'], $pdf->y);
 346         $pdf->ezText('<b>' . xl('Medical Record #') . '</b>', 6);
 347         $pdf->ezText(str_pad($p->patient->get_pubpid(), 10, "0", STR_PAD_LEFT), 10);
 348         $pdf->ezColumnsStop();
 349         if ($my_y < $pdf->y) {
 350             $pdf->ezSetY($my_y);
 351         }
 352
 353         $pdf->ezText('');
 354         $pdf->line($pdf->ez['leftMargin'], $pdf->y, $pdf->ez['pageWidth']-$pdf->ez['rightMargin'], $pdf->y);
 355         $pdf->ezText('<b>' . xl('Prescriptions') . '</b>', 6);
 356         $pdf->ezText('', 10);
 357     }
 358
 359     function multiprintcss_header($p)
 360     {
 361         echo("<div class='paddingdiv'>\n");
 362         $this->providerid = $p->provider->id;
 363         echo ("<table cellspacing='0' cellpadding='0' width='100%'>\n");
 364         echo ("<tr>\n");
 365         echo ("<td></td>\n");
 366         echo ("<td>\n");
 367         echo ("<img WIDTH='68pt' src='./interface/pic/" . $GLOBALS['oer_config']['prescriptions']['logo_pic'] . "' />");
 368         echo ("</td>\n");
 369         echo ("</tr>\n");
 370         echo ("<tr>\n");
 371         echo ("<td>\n");
 372         $res = sqlQuery("SELECT concat('<b>',f.name,'</b>\n',f.street,'\n',f.city,', ',f.state,' ',f.postal_code,'\nTel:',f.phone,if(f.fax != '',concat('\nFax: ',f.fax),'')) addr FROM users JOIN facility AS f ON f.name = users.facility where users.id ='" . add_escape_custom($p->provider->id) . "'");
 373         if (!empty($res)) {
 374             $patterns = array ('/\n/','/Tel:/','/Fax:/');
 375             $replace = array ('<br>', xl('Tel').':', xl('Fax').':');
 376             $res = preg_replace($patterns, $replace, $res);
 377         }
 378
 379         echo ('<span class="large">' . $res['addr'] . '</span>');
 380         echo ("</td>\n");
 381         echo ("<td>\n");
 382         echo ('<b><span class="large">' .  $p->provider->get_name_display() . '</span></b>'. '<br>');
 383
 384         if ($GLOBALS['rx_enable_DEA']) {
 385             if ($GLOBALS['rx_show_DEA']) {
 386                 echo ('<span class="large"><b>' . xl('DEA') . ':</b>' . $p->provider->federal_drug_id . '</span><br>');
 387             } else {
 388                 echo ('<b><span class="large">' . xl('DEA') . ':</span></b> ________________________<br>' );
 389             }
 390         }
 391
 392         if ($GLOBALS['rx_enable_NPI']) {
 393             if ($GLOBALS['rx_show_NPI']) {
 394                 echo ('<span class="large"><b>' . xl('NPI') . ':</b>' . $p->provider->npi . '</span><br>');
 395             } else {
 396                 echo ('<b><span class="large">' . xl('NPI') . ':</span></b> ________________________<br>');
 397             }
 398         }
 399
 400         if ($GLOBALS['rx_enable_SLN']) {
 401             if ($GLOBALS['rx_show_SLN']) {
 402                 echo ('<span class="large"><b>' . xl('State Lic. #') . ':</b>' . $p->provider->state_license_number . '</span><br>');
 403             } else {
 404                 echo ('<b><span class="large">' . xl('State Lic. #') . ':</span></b> ________________________<br>');
 405             }
 406         }
 407
 408         echo ("</td>\n");
 409         echo ("</tr>\n");
 410         echo ("<tr>\n");
 411         echo ("<td rowspan='2' class='bordered'>\n");
 412         echo ('<b><span class="small">' . xl('Patient Name & Address') . '</span></b>'. '<br>');
 413         echo ($p->patient->get_name_display() . '<br>');
 414         $res = sqlQuery("SELECT  concat(street,'\n',city,', ',state,' ',postal_code,'\n',if(phone_home!='',phone_home,if(phone_cell!='',phone_cell,if(phone_biz!='',phone_biz,'')))) addr from patient_data where pid =". add_escape_custom($p->patient->id));
 415         if (!empty($res)) {
 416             $patterns = array ('/\n/');
 417             $replace = array ('<br>');
 418             $res = preg_replace($patterns, $replace, $res);
 419         }
 420
 421         echo ($res['addr']);
 422         echo ("</td>\n");
 423         echo ("<td class='bordered'>\n");
 424         echo ('<b><span class="small">' . xl('Date of Birth') . '</span></b>' . '<br>');
 425         echo ($p->patient->date_of_birth );
 426         echo ("</td>\n");
 427         echo ("</tr>\n");
 428         echo ("<tr>\n");
 429         echo ("<td class='bordered'>\n");
 430         echo ('<b><span class="small">' . xl('Medical Record #') . '</span></b>' . '<br>');
 431         echo (str_pad($p->patient->get_pubpid(), 10, "0", STR_PAD_LEFT));
 432         echo ("</td>\n");
 433         echo ("</tr>\n");
 434         echo ("<tr>\n");
 435         echo ("<td colspan='2' class='bordered'>\n");
 436         echo ('<b><span class="small">' . xl('Prescriptions') . '</span></b>');
 437         echo ("</td>\n");
 438         echo ("</tr>\n");
 439         echo ("</table>\n");
 440     }
 441
 442     function multiprintcss_preheader()
 443     {
 444         // this sets styling and other header information of the multiprint css sheet
 445         echo ("<html>\n");
 446         echo ("<head>\n");
 447         echo ("<style>\n");
 448         echo ("div {\n");
 449         echo (" padding: 0;\n");
 450         echo (" margin: 0;\n");
 451         echo ("}\n");
 452         echo ("body {\n");
 453         echo (" font-family: sans-serif;\n");
 454         echo (" font-weight: normal;\n");
 455         echo (" font-size: 10pt;\n");
 456         echo (" background: white;\n");
 457         echo (" color: black;\n");
 458         echo ("}\n");
 459         echo ("span.large {\n");
 460         echo (" font-size: 12pt;\n");
 461         echo ("}\n");
 462         echo ("span.small {\n");
 463         echo (" font-size: 6pt;\n");
 464         echo ("}\n");
 465         echo ("td {\n");
 466         echo (" vertical-align: top;\n");
 467         echo (" width: 50%;\n");
 468         echo (" font-size: 10pt;\n");
 469         echo (" padding-bottom: 8pt;\n");
 470         echo ("}\n");
 471         echo ("td.bordered {\n");
 472         echo (" border-top:1pt solid black;\n");
 473         echo ("}\n");
 474         echo ("div.paddingdiv {\n");
 475         echo (" width: 524pt;\n");
 476         echo (" height: 668pt;\n");
 477         echo ("}\n");
 478         echo ("div.scriptdiv {\n");
 479         echo (" padding-top: 12pt;\n");
 480         echo (" padding-bottom: 22pt;\n");
 481         echo (" padding-left: 35pt;\n");
 482         echo (" border-bottom:1pt solid black;\n");
 483         echo ("}\n");
 484         echo ("div.signdiv {\n");
 485         echo (" margin-top: 40pt;\n");
 486         echo (" font-size: 12pt;\n");
 487         echo ("}\n");
 488         echo ("</style>\n");
 489
 490         echo ("<title>" . xl('Prescription') . "</title>\n");
 491         echo ("</head>\n");
 492         echo ("<body>\n");
 493     }
 494
 495     function multiprintfax_footer(& $pdf)
 496     {
 497         return $this->multiprint_footer($pdf);
 498     }
 499
 500     function multiprint_footer(& $pdf)
 501     {
 502         if ($this->pconfig['use_signature'] && ( $this->is_faxing || $this->is_print_to_fax )) {
 503             $sigfile = str_replace('{userid}', $_SESSION{"authUser"}, $this->pconfig['signature']);
 504             if (file_exists($sigfile)) {
 505                 $pdf->ezText(xl('Signature') . ": ", 12);
 506                 // $pdf->ezImage($sigfile, "", "", "none", "left");
 507                 $pdf->ezImage($sigfile, "", "", "none", "center");
 508                 $pdf->ezText(xl('Date') . ": " . date('Y-m-d'), 12);
 509                 if ($this->is_print_to_fax) {
 510                     $pdf->ezText(xl('Please do not accept this prescription unless it was received via facsimile.'));
 511                 }
 512
 513                 $addenumFile = $this->pconfig['addendum_file'];
 514                 if (file_exists($addenumFile)) {
 515                     $pdf->ezText('');
 516                     $f = fopen($addenumFile, "r");
 517                     while ($line = fgets($f, 1000)) {
 518                         $pdf->ezText(rtrim($line));
 519                     }
 520                 }
 521
 522                 return;
 523             }
 524         }
 525
 526         $pdf->ezText("\n\n\n\n" . xl('Signature') . ":________________________________\n" . xl('Date') . ": " . date('Y-m-d'), 12);
 527     }
 528
 529     function multiprintcss_footer()
 530     {
 531         echo ("<div class='signdiv'>\n");
 532         echo (xl('Signature') . ":________________________________<br>");
 533         echo (xl('Date') . ": " . date('Y-m-d'));
 534         echo ("</div>\n");
 535         echo ("</div>\n");
 536     }
 537
 538     function multiprintcss_postfooter()
 539     {
 540         echo("<script language='JavaScript'>\n");
 541         echo("opener.top.printLogPrint(window);\n");
 542         echo("</script>\n");
 543         echo("</body>\n");
 544         echo("</html>\n");
 545     }
 546
 547     function get_prescription_body_text($p)
 548     {
 549         $body = '<b>' . xlt('Rx') . ': ' . text($p->get_drug()) . ' ' . text($p->get_size()) . ' ' . text($p->get_unit_display());
 550         if ($p->get_form()) {
 551             $body .= ' [' . text($p->form_array[$p->get_form()]) . "]";
 552         }
 553
 554         $body .= "</b>     <i>" .
 555             text($p->substitute_array[$p->get_substitute()]) . "</i>\n" .
 556             '<b>' . xlt('Disp #') . ':</b> <u>' . text($p->get_quantity()) . "</u>\n" .
 557             '<b>' . xlt('Sig') . ':</b> ' . text($p->get_dosage()) . ' ' . text($p->form_array[$p->get_form()]) . ' ' .
 558             text($p->route_array[$p->get_route()]) . ' ' . text($p->interval_array[$p->get_interval()]) . "\n";
 559         if ($p->get_refills() > 0) {
 560             $body .= "\n<b>" . xlt('Refills') . ":</b> <u>" .  text($p->get_refills());
 561             if ($p->get_per_refill()) {
 562                 $body .= " " . xlt('of quantity') . " " . text($p->get_per_refill());
 563             }
 564
 565             $body .= "</u>\n";
 566         } else {
 567             $body .= "\n<b>" . xlt('Refills') . ":</b> <u>0 (" . xlt('Zero') . ")</u>\n";
 568         }
 569
 570         $note = $p->get_note();
 571         if ($note != '') {
 572             $body .= "\n" . text($note) . "\n";
 573         }
 574
 575         return $body;
 576     }
 577
 578     function multiprintfax_body(& $pdf, $p)
 579     {
 580         return $this->multiprint_body($pdf, $p);
 581     }
 582
 583     function multiprint_body(& $pdf, $p)
 584     {
 585         $pdf->ez['leftMargin'] += $pdf->ez['leftMargin'];
 586         $pdf->ez['rightMargin'] += $pdf->ez['rightMargin'];
 587         $d = $this->get_prescription_body_text($p);
 588         if ($pdf->ezText($d, 10, array(), 1)) {
 589             $pdf->ez['leftMargin'] -= $pdf->ez['leftMargin'];
 590             $pdf->ez['rightMargin'] -= $pdf->ez['rightMargin'];
 591             $this->multiprint_footer($pdf);
 592             $pdf->ezNewPage();
 593             $this->multiprint_header($pdf, $p);
 594             $pdf->ez['leftMargin'] += $pdf->ez['leftMargin'];
 595             $pdf->ez['rightMargin'] += $pdf->ez['rightMargin'];
 596         }
 597
 598         $my_y = $pdf->y;
 599         $pdf->ezText($d, 10);
 600         if ($this->pconfig['shading']) {
 601             $pdf->setColor(.9, .9, .9);
 602             $pdf->filledRectangle($pdf->ez['leftMargin'], $pdf->y, $pdf->ez['pageWidth']-$pdf->ez['rightMargin']-$pdf->ez['leftMargin'], $my_y - $pdf->y);
 603             $pdf->setColor(0, 0, 0);
 604         }
 605
 606         $pdf->ezSetY($my_y);
 607         $pdf->ezText($d, 10);
 608         $pdf->ez['leftMargin'] = $GLOBALS['rx_left_margin'];
 609         $pdf->ez['rightMargin'] = $GLOBALS['rx_right_margin'];
 610         $pdf->ezText('');
 611         $pdf->line($pdf->ez['leftMargin'], $pdf->y, $pdf->ez['pageWidth']-$pdf->ez['rightMargin'], $pdf->y);
 612         $pdf->ezText('');
 613     }
 614
 615     function multiprintcss_body($p)
 616     {
 617         $d = $this->get_prescription_body_text($p);
 618         $patterns = array ('/\n/','/     /');
 619         $replace = array ('<br>','&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;');
 620         $d = preg_replace($patterns, $replace, $d);
 621         echo ("<div class='scriptdiv'>\n" . $d . "</div>\n");
 622     }
 623
 624     function multiprintfax_action($id = "")
 625     {
 626         $this->is_print_to_fax=true;
 627         return $this->multiprint_action($id);
 628     }
 629
 630     function multiprint_action($id = "")
 631     {
 632         $_POST['process'] = "true";
 633         if (empty($id)) {
 634             $this->function_argument_error();
 635         }
 636
 637         $pdf = new Cezpdf($GLOBALS['rx_paper_size']);
 638         $pdf->ezSetMargins($GLOBALS['rx_top_margin'], $GLOBALS['rx_bottom_margin'], $GLOBALS['rx_left_margin'], $GLOBALS['rx_right_margin']);
 639         $pdf->selectFont('Helvetica');
 640
 641         // $print_header = true;
 642         $on_this_page = 0;
 643
 644         //print prescriptions body
 645         $this->_state = false; // Added by Rod - see Controller.class.php
 646         $ids = preg_split('/::/', substr($id, 1, strlen($id) - 2), -1, PREG_SPLIT_NO_EMPTY);
 647         foreach ($ids as $id) {
 648             $p = new Prescription($id);
 649             // if ($print_header == true) {
 650             if ($on_this_page == 0) {
 651                 $this->multiprint_header($pdf, $p);
 652             }
 653
 654             if (++$on_this_page > 3 || $p->provider->id != $this->providerid) {
 655                 $this->multiprint_footer($pdf);
 656                 $pdf->ezNewPage();
 657                 $this->multiprint_header($pdf, $p);
 658                 // $print_header = false;
 659                 $on_this_page = 1;
 660             }
 661
 662             $this->multiprint_body($pdf, $p);
 663         }
 664
 665         $this->multiprint_footer($pdf);
 666
 667             $pFirstName = $p->patient->fname; //modified by epsdky for prescription title change to include patient name and ID
 668             $pFName = convert_safe_file_dir_name($pFirstName);
 669             $modedFileName = "Rx_{$pFName}_{$p->patient->id}.pdf";
 670
 671         $pdf->ezStream(array('Content-Disposition' => $modedFileName));
 672         return;
 673     }
 674
 675     function multiprintcss_action($id = "")
 676     {
 677         $_POST['process'] = "true";
 678         if (empty($id)) {
 679             $this->function_argument_error();
 680         }
 681
 682         $this->multiprintcss_preheader();
 683
 684         $this->_state = false; // Added by Rod - see Controller.class.php
 685         $ids = preg_split('/::/', substr($id, 1, strlen($id) - 2), -1, PREG_SPLIT_NO_EMPTY);
 686
 687         $on_this_page = 0;
 688         foreach ($ids as $id) {
 689             $p = new Prescription($id);
 690             if ($on_this_page == 0) {
 691                 $this->multiprintcss_header($p);
 692             }
 693
 694             if (++$on_this_page > 3 || $p->provider->id != $this->providerid) {
 695                 $this->multiprintcss_footer();
 696                 $this->multiprintcss_header($p);
 697                 $on_this_page = 1;
 698             }
 699
 700             $this->multiprintcss_body($p);
 701         }
 702
 703         $this->multiprintcss_footer();
 704         $this->multiprintcss_postfooter();
 705         return;
 706     }
 707
 708     function send_action_process($id)
 709     {
 710         $dummy = ""; // Added by Rod to avoid run-time warnings
 711         if ($_POST['process'] != "true") {
 712             return;
 713         }
 714
 715         if (empty($id)) {
 716             $this->function_argument_error();
 717         }
 718
 719         $p = new Prescription($id);
 720         switch ($_POST['submit']) {
 721             case (xl("Print")." (".xl("PDF").")"):
 722                 // The following statement added by Rod.
 723                 // Looking at Controller.class.php, it appears that _state is set to false
 724                 // to indicate that no further HTML is to be generated.
 725                 $this->_state = false; // Added by Rod - see Controller.class.php
 726                 return $this->_print_prescription($p, $dummy);
 727                 break;
 728             case (xl("Print")." (".xl("HTML").")"):
 729                                 $this->_state = false;
 730                 return $this->_print_prescription_css($p, $dummy);
 731                         break;
 732             case xl("Print To Fax"):
 733                 $this->_state = false;
 734                 $this->is_print_to_fax = true;
 735                 return $this->_print_prescription($p, $dummy);
 736                 break;
 737             case xl("Email"):
 738                 return $this->_email_prescription($p, $_POST['email_to']);
 739                 break;
 740             case xl("Fax"):
 741                 //this is intended to be the hook for the hylafax code we already have that hasn't worked its way into the tree yet.
 742                 //$this->assign("process_result","No fax server is currently setup.");
 743                 return $this->_fax_prescription($p, $_POST['fax_to']);
 744                 break;
 745             case xl("Auto Send"):
 746                 $pharmacy_id = $_POST['pharmacy_id'];
 747                 //echo "auto sending to : " . $_POST['pharmacy_id'];
 748                 $phar = new Pharmacy($_POST['pharmacy_id']);
 749                 //print_r($phar);
 750                 if ($phar->get_transmit_method() == TRANSMIT_PRINT) {
 751                     return $this->_print_prescription($p, $dummy);
 752                 } elseif ($phar->get_transmit_method() == TRANSMIT_EMAIL) {
 753                     $email = $phar->get_email();
 754                     if (!empty($email)) {
 755                         return $this->_email_prescription($p, $phar->get_email());
 756                     }
 757
 758                     //else print it
 759                 } elseif ($phar->get_transmit_method() == TRANSMIT_FAX) {
 760                     $faxNum= $phar->get_fax();
 761                     if (!empty($faxNum)) {
 762                         return $this->_fax_prescription($p, $faxNum);
 763                     }
 764
 765                     // return $this->assign("process_result","No fax server is currently setup.");
 766                     // else default is printing,
 767                 } else {
 768                     //the pharmacy has no default or default is print
 769                     return $this->_print_prescription($p, $dummy);
 770                 }
 771                 break;
 772         }
 773
 774         return;
 775     }
 776
 777     function _print_prescription($p, & $toFile)
 778     {
 779         $pdf = new Cezpdf($GLOBALS['rx_paper_size']);
 780         $pdf->ezSetMargins($GLOBALS['rx_top_margin'], $GLOBALS['rx_bottom_margin'], $GLOBALS['rx_left_margin'], $GLOBALS['rx_right_margin']);
 781
 782         $pdf->selectFont('Helvetica');
 783
 784         // Signature images are to be used only when faxing.
 785         if (!empty($toFile)) {
 786             $this->is_faxing = true;
 787         }
 788
 789         $this->multiprint_header($pdf, $p);
 790         $this->multiprint_body($pdf, $p);
 791         $this->multiprint_footer($pdf);
 792
 793         if (!empty($toFile)) {
 794             $toFile = $pdf->ezOutput();
 795         } else {
 796             $pdf->ezStream();
 797             // $pdf->ezStream(array('compress' => 0)); // for testing with uncompressed output
 798         }
 799
 800         return;
 801     }
 802
 803     function _print_prescription_css($p, & $toFile)
 804     {
 805
 806         $this->multiprintcss_preheader();
 807         $this->multiprintcss_header($p);
 808         $this->multiprintcss_body($p);
 809         $this->multiprintcss_footer();
 810         $this->multiprintcss_postfooter();
 811     }
 812
 813     function _print_prescription_old($p, & $toFile)
 814     {
 815         $pdf = new Cezpdf($GLOBALS['rx_paper_size']);
 816         $pdf->ezSetMargins($GLOBALS['rx_top_margin'], $GLOBALS['rx_bottom_margin'], $GLOBALS['rx_left_margin'], $GLOBALS['rx_right_margin']);
 817         $pdf->selectFont('Helvetica');
 818         if (!empty($this->pconfig['logo'])) {
 819             $pdf->ezImage($this->pconfig['logo'], "", "", "none", "left");
 820         }
 821
 822         $pdf->ezText($p->get_prescription_display(), 10);
 823         if ($this->pconfig['use_signature']) {
 824             $pdf->ezImage($this->pconfig['signature'], "", "", "none", "left");
 825         } else {
 826             $pdf->ezText("\n\n\n\nSignature:________________________________", 10);
 827         }
 828
 829         if (!empty($toFile)) {
 830             $toFile = $pdf->ezOutput();
 831         } else {
 832             $pdf->ezStream();
 833             // $pdf->ezStream(array('compress' => 0)); // for testing with uncompressed output
 834         }
 835
 836         return;
 837     }
 838
 839     function _email_prescription($p, $email)
 840     {
 841         if (empty($email)) {
 842             $this->assign("process_result", "Email could not be sent, the address supplied: '$email' was empty or invalid.");
 843             return;
 844         }
 845
 846         $mail = new PHPMailer();
 847         //this is a temporary config item until the rest of the per practice billing settings make their way in
 848         $mail->From = $GLOBALS['practice_return_email_path'];
 849         $mail->FromName = $p->provider->get_name_display();
 850         $mail->isMail();
 851         $mail->Host     = "localhost";
 852         $mail->Mailer   = "mail";
 853         $text_body  = $p->get_prescription_display();
 854         $mail->Body = $text_body;
 855         $mail->Subject = "Prescription for: " . $p->patient->get_name_display();
 856         $mail->AddAddress($email);
 857         if ($mail->Send()) {
 858             $this->assign("process_result", "Email was successfully sent to: " . $email);
 859             return;
 860         } else {
 861             $this->assign("process_result", "There has been a mail error sending to " . $_POST['email_to'] . " " . $mail->ErrorInfo);
 862             return;
 863         }
 864     }
 865
 866     function do_lookup()
 867     {
 868         if ($_POST['process'] != "true") {
 869                     // don't do a lookup
 870             $this->assign("drug", $_GET['drug']);
 871                     return;
 872         }
 873
 874                 // process the lookup
 875         $this->assign("drug", $_POST['drug']);
 876         $list = array();
 877         if (!empty($_POST['drug'])) {
 878             $list = $this->RxList->get_list($_POST['drug']);
 879         }
 880
 881         if (is_array($list)) {
 882             $list = array_flip($list);
 883             $this->assign("drug_options", $list);
 884             $this->assign("drug_values", array_keys($list));
 885         } else {
 886             $this->assign("NO_RESULTS", "No results found for: " .$_POST['drug'] . "<br />");
 887         }
 888
 889         //print_r($_POST);
 890         //$this->assign("PROCESS","");
 891
 892         $_POST['process'] = "";
 893     }
 894
 895     function _fax_prescription($p, $faxNum)
 896     {
 897         $err = "Sent fax";
 898         //strip - ,(, ), and ws
 899         $faxNum = preg_replace("/(-*)(\(*)(\)*)(\s*)/", "", $faxNum);
 900         //validate the number
 901
 902         if (!empty($faxNum) && is_numeric($faxNum)) {
 903             //get the sendfax command and execute it
 904             $cmd = $this->pconfig['sendfax'];
 905             // prepend any prefix to the fax number
 906             $pref=$this->pconfig['prefix'];
 907             $faxNum=$pref.$faxNum;
 908             if (empty($cmd)) {
 909                 $err .= " Send fax not set in includes/config.php";
 910             } else {
 911                 //generate file to fax
 912                 $faxFile = "Failed";
 913                 $this->_print_prescription($p, $faxFile);
 914                 if (empty($faxFile)) {
 915                     $err .= " _print_prescription returned empty file";
 916                 }
 917
 918                 $fileName = $GLOBALS['OE_SITE_DIR'] . "/documents/" . $p->get_id() .
 919                 $p->get_patient_id() . "_fax_.pdf";
 920                 //print "filename is $fileName";
 921                 touch($fileName); // php bug
 922                 $handle = fopen($fileName, "w");
 923                 if (!$handle) {
 924                     $err .= " Failed to open file $fileName to write fax to";
 925                 }
 926
 927                 if (fwrite($handle, $faxFile) === false) {
 928                     $err .= " Failed to write data to $fileName";
 929                 }
 930
 931                 fclose($handle);
 932                 $args = " -n -d $faxNum $fileName";
 933                 //print "command is $cmd $args<br>";
 934                 exec($cmd . $args);
 935             }
 936         } else {
 937             $err = "bad fax number passed to function";
 938         }
 939
 940         if ($err) {
 941             $this->assign("process_result", $err);
 942         }
 943     }
 944 }