interface/patient_file/summary/shot_record.php

   1 <?php
   2 include_once("../../globals.php");
   3 include_once("$srcdir/sql.inc");
   4 require_once ($GLOBALS['fileroot'] . "/library/classes/class.ezpdf.php");
   5
   6 $pdf =& new Cezpdf("LETTER");
   7 $pdf->ezSetMargins(72,30,50,30);
   8 $pdf->selectFont($GLOBALS['fileroot'] . "/library/fonts/Helvetica.afm");
   9
  10 $res = sqlQuery("select concat(f.name,'\n',f.street,'\n',f.city,', ',f.state,' ',f.postal_code) as facility_address
  11                    from facility f
  12                        ,users u
  13                   where u.facility = f.name
  14                     and u.id = " . $_SESSION['authId']
  15                 );
  16
  17 $opts = array('justification' => "center");
  18 $pdf->ezText($res['facility_address']
  19             ,"",$opts
  20             );
  21
  22 $res = sqlQuery("select concat(p.lname,', ',p.fname,' ',p.mname) patient_name
  23                        ,date_format(p.DOB,'%c/%e/%Y') as patient_DOB
  24                        ,concat(p.street,'\n',p.city,', ',p.state,' ',p.postal_code) as patient_address
  25                    from patient_data p where p.id = $pid");
  26
  27 $pdf->ezText("\n" . $res['patient_name'] . "\nDate of Birth: " . $res['patient_DOB'] . "\n" . $res['patient_address']);
  28 $pdf->ezText("\n");
  29
  30 $title = 'Shot Record as of: ' . date('m/d/Y h:i:s a');
  31
  32 $res = sqlStatement("select date_format(i1.administered_date,'%Y-%c-%e') as 'Date\nAdministered'
  33       ,i2.name as 'Vaccine'
  34       ,i1.manufacturer as 'Manufacturer'
  35       ,i1.lot_number as 'Lot\nNumber'
  36       ,concat(u.lname,', ',u.fname) as 'Administered By'
  37       ,date_format(i1.education_date,'%Y-%c-%e') as 'Patient\nEducation\nDate'
  38       ,i1.note as 'Comments'
  39   from immunizations i1
  40          left join immunization i2 on i1.immunization_id = i2.id
  41          left join users u on i1.administered_by_id = u.id
  42          left join patient_data p on i1.patient_id = p.id
  43 where p.id = " . $pid);
  44
  45 while ($data[] = sqlFetchArray($res)) {}
  46
  47 $opts = array('maxWidth' => 504
  48              ,'fontSize' => 8
  49              );
  50
  51 $pdf->ezTable($data,"",$title,$opts);
  52
  53 $pdf->ezText("\n\n\n\nSignature:________________________________","",array('justification' => 'right'));
  54
  55 $pdf->ezStream();
  56
  57 ?>