interface/patient_file/addr_label.php

   1 <?php
   2 /**
   3 * interface/patient_file/addr_label.php Displaying a PDF file of Labels for printing.
   4 *
   5 * Program for displaying Address Labels
   6 *
   7 * @package OpenEMR
   8 * @link    http://www.open-emr.org
   9 * @author  Terry Hill <terry@lillysystems.com>
  10 * @author  Daniel Pflieger <growlingflea@gmail.com>
  11 * @copyright Copyright (c) 2014 Terry Hill <terry@lillysystems.com>
  12 * @copyright Copyright (c) 2017 Daniel Pflieger <growlingflea@gmail.com>
  13 * @license https://github.com/openemr/openemr/blob/master/LICENSE GNU General Public License 3
  14 */
  15
  16 require_once("../globals.php");
  17
  18 //Get the data to place on labels
  19 //
  20
  21 $patdata = sqlQuery("SELECT " .
  22   "p.fname, p.mname, p.lname, p.pubpid, p.DOB, " .
  23   "p.street, p.city, p.state, p.postal_code, p.pid " .
  24   "FROM patient_data AS p " .
  25   "WHERE p.pid = ? LIMIT 1", array($pid));
  26
  27 // re-order the dates
  28 //
  29 $today = oeFormatShortDate($date = 'today');
  30 $dob = oeFormatShortDate($patdata['DOB']);
  31
  32 //Keep in mind the envelope is shifted by 90 degrees.
  33 // Changes made by Daniel Pflieger, daniel@mi-squared.com growlingflea@gmail.com
  34
  35 $x_width =  $GLOBALS['env_x_width'];
  36 $y_height = $GLOBALS['env_y_height'];
  37
  38 //printed text details
  39 $font_size = $GLOBALS['env_font_size'];
  40 $x         = $GLOBALS['env_x_dist'];  // Distance from the 'top' of the envelope in portrait position
  41 $y         = $GLOBALS['env_y_dist']; // Distance from the right most edge of the envelope in portrait position
  42 $angle    = 90;   // rotation in degrees
  43 $black    = '000000'; // color in hexa
  44
  45 //Format of the address
  46 //This number increases the spacing between the line printed on the envelope
  47 $xt       = .2*$font_size;
  48
  49 //ymargin of printed text. The smaller the number, the further from the left edge edge the address is printed
  50 $yt       = 0;
  51
  52 $text1 = sprintf("%s %s\n", $patdata['fname'], $patdata['lname']);
  53 $text2 = sprintf("%s \n", $patdata['street']);
  54 $text3 = sprintf("%s , %s %s", $patdata['city'], $patdata['state'], $patdata['postal_code']);
  55
  56 $pdf = new eFPDF('P', 'mm', array($x_width, $y_height)); // set the orentation, unit of measure and size of the page
  57 $pdf->AddPage();
  58 $pdf->SetFont('Arial', '', $font_size);
  59 $pdf->TextWithRotation($x, $y + $yt, $text1, $angle);
  60 $xt += $xt;
  61 $pdf->TextWithRotation($x + $xt, $y + $yt, $text2, $angle);
  62 $xt +=$xt;
  63 $pdf->TextWithRotation($x + $xt, $y + $yt, $text3, $angle);
  64 $xt +=$xt;
  65
  66 $pdf->Output();