You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
66 lines
1.6 KiB
66 lines
1.6 KiB
2 years ago
|
<?php
|
||
|
|
|
||
|
|
/**
|
||
|
|
* interface/patient_file/label.php Displaying a PDF file of Labels for printing.
|
||
|
|
*
|
||
|
|
* Program for displaying Chart Labels
|
||
|
|
* via the popups on the left nav screen
|
||
|
|
*
|
||
|
|
* Used the program example supplied with the Avery Label Print Class to produce this program
|
||
|
|
*
|
||
|
|
*
|
||
|
|
* @package OpenEMR
|
||
|
|
* @link http://www.open-emr.org
|
||
|
|
* @author Terry Hill <terry@lillysystems.com>
|
||
|
|
* @copyright Copyright (c) 2014 Terry Hill <terry@lillysystems.com>
|
||
|
|
* @license https://github.com/openemr/openemr/blob/master/LICENSE GNU General Public License 3
|
||
|
|
*/
|
||
|
|
|
||
|
|
require_once("../globals.php");
|
||
|
|
|
||
|
|
//Get the data to place on labels
|
||
|
|
//
|
||
|
|
$patdata = sqlQuery("SELECT " .
|
||
|
|
"p.fname, p.mname, p.lname, p.pubpid, p.DOB, " .
|
||
|
|
"p.street, p.city, p.state, p.postal_code, p.pid " .
|
||
|
|
"FROM patient_data AS p " .
|
||
|
|
"WHERE p.pid = ? LIMIT 1", array($pid));
|
||
|
|
|
||
|
|
// re-order the dates
|
||
|
|
//
|
||
|
|
|
||
|
|
$today = oeFormatShortDate($date = 'today');
|
||
|
|
$dob = oeFormatShortDate($patdata['DOB']);
|
||
|
|
|
||
|
|
//get label type and number of labels on sheet
|
||
|
|
//
|
||
|
|
|
||
|
|
if ($GLOBALS['chart_label_type'] == '1') {
|
||
|
|
$pdf = new PDF_Label('5160');
|
||
|
|
$last = 30;
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($GLOBALS['chart_label_type'] == '2') {
|
||
|
|
$pdf = new PDF_Label('5161');
|
||
|
|
$last = 20;
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($GLOBALS['chart_label_type'] == '3') {
|
||
|
|
$pdf = new PDF_Label('5162');
|
||
|
|
$last = 14;
|
||
|
|
}
|
||
|
|
|
||
|
|
$pdf->AddPage();
|
||
|
|
|
||
|
|
// Added spaces to the sprintf for Fire Fox it was having a problem with alignment
|
||
|
|
$text = sprintf(" %s %s\n %s\n %s\n %s", $patdata['fname'], $patdata['lname'], $dob, $today, $patdata['pid']);
|
||
|
|
|
||
|
|
// For loop for printing the labels
|
||
|
|
//
|
||
|
|
|
||
|
|
for ($i = 1; $i <= $last; $i++) {
|
||
|
|
$pdf->Add_Label($text);
|
||
|
|
}
|
||
|
|
|
||
|
|
$pdf->Output();
|