interface/fax/fax_dispatch.php

   1 <?php
   2 // Copyright (C) 2006-2010 Rod Roark <rod@sunsetsystems.com>
   3 //
   4 // This program is free software; you can redistribute it and/or
   5 // modify it under the terms of the GNU General Public License
   6 // as published by the Free Software Foundation; either version 2
   7 // of the License, or (at your option) any later version.
   8
   9 require_once("../globals.php");
  10 require_once("$srcdir/patient.inc");
  11 require_once("$srcdir/pnotes.inc");
  12 require_once("$srcdir/forms.inc");
  13 require_once("$srcdir/options.inc.php");
  14 require_once("$srcdir/gprelations.inc.php");
  15
  16 if ($_GET['file']) {
  17   $mode = 'fax';
  18   $filename = $_GET['file'];
  19
  20   // ensure the file variable has no illegal characters
  21   check_file_dir_name($filename);
  22
  23   $filepath = $GLOBALS['hylafax_basedir'] . '/recvq/' . $filename;
  24 }
  25 else if ($_GET['scan']) {
  26   $mode = 'scan';
  27   $filename = $_GET['scan'];
  28   $filepath = $GLOBALS['scanner_output_directory'] . '/' . $filename;
  29 }
  30 else {
  31   die("No filename was given.");
  32 }
  33
  34 $ext = substr($filename, strrpos($filename, '.'));
  35 $filebase = basename("/$filename", $ext);
  36 $faxcache = $GLOBALS['OE_SITE_DIR'] . "/faxcache/$mode/$filebase";
  37
  38 $info_msg = "";
  39
  40 // This function builds an array of document categories recursively.
  41 // Kittens are the children of cats, you know.  :-)getKittens
  42 //
  43 function getKittens($catid, $catstring, &$categories) {
  44   $cres = sqlStatement("SELECT id, name FROM categories " .
  45     "WHERE parent = $catid ORDER BY name");
  46   $childcount = 0;
  47   while ($crow = sqlFetchArray($cres)) {
  48     ++$childcount;
  49     getKittens($crow['id'], ($catstring ? "$catstring / " : "") .
  50       ($catid ? $crow['name'] : ''), $categories);
  51   }
  52   // If no kitties, then this is a leaf node and should be listed.
  53   if (!$childcount) $categories[$catid] = $catstring;
  54 }
  55
  56 // This merges the tiff files for the selected pages into one tiff file.
  57 //
  58 function mergeTiffs() {
  59   global $faxcache;
  60   $msg = '';
  61   $inames = '';
  62   $tmp1 = array();
  63   $tmp2 = 0;
  64   // form_images are the checkboxes to the right of the images.
  65   foreach ($_POST['form_images'] as $inbase) {
  66     $inames .= ' ' . escapeshellarg("$inbase.tif");
  67   }
  68   if (!$inames) die(xl("Internal error - no pages were selected!"));
  69   $tmp0 = exec("cd '$faxcache'; tiffcp $inames temp.tif", $tmp1, $tmp2);
  70   if ($tmp2) {
  71     $msg .= "tiffcp returned $tmp2: $tmp0 ";
  72   }
  73   return $msg;
  74 }
  75
  76 // If we are submitting...
  77 //
  78 if ($_POST['form_save']) {
  79   $action_taken = false;
  80   $tmp1 = array();
  81   $tmp2 = 0;
  82
  83   if ($_POST['form_cb_copy']) {
  84     $patient_id = (int) $_POST['form_pid'];
  85     if (!$patient_id) die(xl('Internal error - patient ID was not provided!'));
  86     // Compute the name of the target directory and make sure it exists.
  87     $docdir = $GLOBALS['OE_SITE_DIR'] . "/documents/$patient_id";
  88     exec("mkdir -p '$docdir'");
  89
  90     // If copying to patient documents...
  91     //
  92     if ($_POST['form_cb_copy_type'] == 1) {
  93       // Compute a target filename that does not yet exist.
  94       $ffname = trim($_POST['form_filename']);
  95       $i = strrpos($ffname, '.');
  96       if ($i) $ffname = trim(substr($ffname, 0, $i));
  97       if (!$ffname) $ffname = $filebase;
  98       $ffmod  = '';
  99       $ffsuff = '.pdf';
 100       // If the target filename exists, modify it until it doesn't.
 101       $count = 0;
 102       while (is_file("$docdir/$ffname$ffmod$ffsuff")) {
 103         ++$count;
 104         $ffmod = "_$count";
 105       }
 106       $target = "$docdir/$ffname$ffmod$ffsuff";
 107       $docdate = fixDate($_POST['form_docdate']);
 108
 109       // Create the target PDF.  Note that we are relying on the .tif files for
 110       // the individual pages to already exist in the faxcache directory.
 111       //
 112       $info_msg .= mergeTiffs();
 113       // The -j option here requires that libtiff is configured with libjpeg.
 114       // It could be omitted, but the output PDFs would then be quite large.
 115       $tmp0 = exec("tiff2pdf -j -p letter -o '$target' '$faxcache/temp.tif'", $tmp1, $tmp2);
 116
 117       if ($tmp2) {
 118         $info_msg .= "tiff2pdf returned $tmp2: $tmp0 ";
 119       }
 120       else {
 121         $newid = generate_id();
 122         $fsize = filesize($target);
 123         $catid = (int) $_POST['form_category'];
 124         // Update the database.
 125         $query = "INSERT INTO documents ( " .
 126           "id, type, size, date, url, mimetype, foreign_id, docdate" .
 127           " ) VALUES ( " .
 128           "'$newid', 'file_url', '$fsize', NOW(), 'file://$target', " .
 129           "'application/pdf', $patient_id, '$docdate' " .
 130           ")";
 131         sqlStatement($query);
 132         $query = "INSERT INTO categories_to_documents ( " .
 133           "category_id, document_id" .
 134           " ) VALUES ( " .
 135           "'$catid', '$newid' " .
 136           ")";
 137         sqlStatement($query);
 138       } // end not error
 139
 140       // If we are posting a note...
 141       if ($_POST['form_cb_note'] && !$info_msg) {
 142         // Build note text in a way that identifies the new document.
 143         // See pnotes_full.php which uses this to auto-display the document.
 144         $note = "$ffname$ffmod$ffsuff";
 145         for ($tmp = $catid; $tmp;) {
 146           $catrow = sqlQuery("SELECT name, parent FROM categories WHERE id = '$tmp'");
 147           $note = $catrow['name'] . "/$note";
 148           $tmp = $catrow['parent'];
 149         }
 150         $note = "New scanned document $newid: $note";
 151         $form_note_message = trim($_POST['form_note_message']);
 152         $form_note_message = strip_escape_custom($form_note_message);
 153         if ($form_note_message) $note .= "\n" . $form_note_message;
 154         // addPnote() will do its own addslashes().
 155         $noteid = addPnote($_POST['form_pid'], $note, $userauthorized, '1',
 156           $_POST['form_note_type'], $_POST['form_note_to']);
 157         // Link the new patient note to the document.
 158         setGpRelation(1, $newid, 6, $noteid);
 159       } // end post patient note
 160     } // end copy to documents
 161
 162     // Otherwise creating a scanned encounter note...
 163     //
 164     else {
 165
 166       // Get desired $encounter_id.
 167       $encounter_id = 0;
 168       if (empty($_POST['form_copy_sn_visit'])) {
 169         $info_msg .= "This patient has no visits! ";
 170       } else {
 171         $encounter_id = 0 + $_POST['form_copy_sn_visit'];
 172       }
 173
 174       if (!$info_msg) {
 175         // Merge the selected pages.
 176         $info_msg .= mergeTiffs();
 177         $tmp_name = "$faxcache/temp.tif";
 178       }
 179
 180       if (!$info_msg) {
 181         // The following is cloned from contrib/forms/scanned_notes/new.php:
 182         //
 183         $query = "INSERT INTO form_scanned_notes ( " .
 184           "notes " .
 185           ") VALUES ( " .
 186           "'" . $_POST['form_copy_sn_comments'] . "' " .
 187           ")";
 188         $formid = sqlInsert($query);
 189         addForm($encounter_id, "Scanned Notes", $formid, "scanned_notes",
 190           $patient_id, $userauthorized);
 191         //
 192         $imagedir = $GLOBALS['OE_SITE_DIR'] . "/documents/$patient_id/encounters";
 193         $imagepath = "$imagedir/${encounter_id}_$formid.jpg";
 194         if (! is_dir($imagedir)) {
 195           $tmp0 = exec('mkdir -p "' . $imagedir . '"', $tmp1, $tmp2);
 196           if ($tmp2) die("mkdir returned $tmp2: $tmp0");
 197           exec("touch '$imagedir/index.html'");
 198         }
 199         if (is_file($imagepath)) unlink($imagepath);
 200         // TBD: There may be a faster way to create this file, given that
 201         // we already have a jpeg for each page in faxcache.
 202         $cmd = "convert -resize 800 -density 96 '$tmp_name' -append '$imagepath'";
 203         $tmp0 = exec($cmd, $tmp1, $tmp2);
 204         if ($tmp2) die("\"$cmd\" returned $tmp2: $tmp0");
 205       }
 206
 207       // If we are posting a patient note...
 208       if ($_POST['form_cb_note'] && !$info_msg) {
 209         $note = "New scanned encounter note for visit on " . substr($erow['date'], 0, 10);
 210         $form_note_message = trim($_POST['form_note_message']);
 211         $form_note_message = strip_escape_custom($form_note_message);
 212         if ($form_note_message) $note .= "\n" . $form_note_message;
 213         // addPnote() will do its own addslashes().
 214         addPnote($patient_id, $note, $userauthorized, '1',
 215           $_POST['form_note_type'], $_POST['form_note_to']);
 216       } // end post patient note
 217     }
 218
 219     $action_taken = true;
 220
 221   } // end copy to chart
 222
 223   if ($_POST['form_cb_forward']) {
 224     $form_from     = trim($_POST['form_from']);
 225     $form_to       = trim($_POST['form_to']);
 226     $form_fax      = trim($_POST['form_fax']);
 227     $form_message  = trim($_POST['form_message']);
 228     $form_finemode = $_POST['form_finemode'] ? '-m' : '-l';
 229
 230     $form_from    = strip_escape_custom($form_from);
 231     $form_to      = strip_escape_custom($form_to);
 232     $form_message = strip_escape_custom($form_message);
 233
 234     // Generate a cover page using enscript.  This can be a cool thing
 235     // to do, as enscript is very powerful.
 236     //
 237     $tmp1 = array();
 238     $tmp2 = 0;
 239     $tmpfn1 = tempnam("/tmp", "fax1");
 240     $tmpfn2 = tempnam("/tmp", "fax2");
 241     $tmph = fopen($tmpfn1, "w");
 242     $cpstring = '';
 243     $fh = fopen($GLOBALS['OE_SITE_DIR'] . "/faxcover.txt", 'r');
 244     while (!feof($fh)) $cpstring .= fread($fh, 8192);
 245     fclose($fh);
 246     $cpstring = str_replace('{CURRENT_DATE}'  , date('F j, Y'), $cpstring);
 247     $cpstring = str_replace('{SENDER_NAME}'   , $form_from    , $cpstring);
 248     $cpstring = str_replace('{RECIPIENT_NAME}', $form_to      , $cpstring);
 249     $cpstring = str_replace('{RECIPIENT_FAX}' , $form_fax     , $cpstring);
 250     $cpstring = str_replace('{MESSAGE}'       , $form_message , $cpstring);
 251     fwrite($tmph, $cpstring);
 252     fclose($tmph);
 253     $tmp0 = exec("cd $webserver_root/custom; " . $GLOBALS['hylafax_enscript'] .
 254       " -o $tmpfn2 $tmpfn1", $tmp1, $tmp2);
 255     if ($tmp2) {
 256       $info_msg .= "enscript returned $tmp2: $tmp0 ";
 257     }
 258     unlink($tmpfn1);
 259
 260     // Send the fax as the cover page followed by the selected pages.
 261     $info_msg .= mergeTiffs();
 262     $tmp0 = exec("sendfax -A -n $form_finemode -d " .
 263       escapeshellarg($form_fax) . " $tmpfn2 '$faxcache/temp.tif'",
 264       $tmp1, $tmp2);
 265     if ($tmp2) {
 266       $info_msg .= "sendfax returned $tmp2: $tmp0 ";
 267     }
 268     unlink($tmpfn2);
 269
 270     $action_taken = true;
 271   } // end forward
 272
 273   $form_cb_delete = $_POST['form_cb_delete'];
 274
 275   // If deleting selected, do it and then check if any are left.
 276   if ($form_cb_delete == '1' && !$info_msg) {
 277     foreach ($_POST['form_images'] as $inbase) {
 278       unlink("$faxcache/$inbase.jpg");
 279       $action_taken = true;
 280     }
 281     // Check if any .jpg files remain... if not we'll clean up.
 282     if ($action_taken) {
 283       $dh = opendir($faxcache);
 284       if (! $dh) die("Cannot read $faxcache");
 285       $form_cb_delete = '2';
 286       while (false !== ($jfname = readdir($dh))) {
 287         if (preg_match('/\.jpg$/', $jfname)) $form_cb_delete = '1';
 288       }
 289       closedir($dh);
 290     }
 291   } // end delete 1
 292
 293   if ($form_cb_delete == '2' && !$info_msg) {
 294     // Delete the tiff file, with archiving if desired.
 295     if ($GLOBALS['hylafax_archdir'] && $mode == 'fax') {
 296       rename($filepath, $GLOBALS['hylafax_archdir'] . '/' . $filename);
 297     } else {
 298       unlink($filepath);
 299     }
 300     // Erase its cache.
 301     if (is_dir($faxcache)) {
 302       $dh = opendir($faxcache);
 303       while (($tmp = readdir($dh)) !== false) {
 304         if (is_file("$faxcache/$tmp")) unlink("$faxcache/$tmp");
 305       }
 306       closedir($dh);
 307       rmdir($faxcache);
 308     }
 309     $action_taken = true;
 310   } // end delete 2
 311
 312   if (!$action_taken && !$info_msg)
 313     $info_msg = xl('You did not choose any actions.');
 314
 315   if ($info_msg || $form_cb_delete != '1') {
 316     // Close this window and refresh the fax list.
 317     echo "<html>\n<body>\n<script language='JavaScript'>\n";
 318     if ($info_msg) echo " alert('$info_msg');\n";
 319     echo " if (!opener.closed && opener.refreshme) opener.refreshme();\n";
 320     echo " window.close();\n";
 321     echo "</script>\n</body>\n</html>\n";
 322     exit();
 323   }
 324 } // end submit logic
 325
 326 // If we get this far then we are displaying the form.
 327
 328 // Find out if the scanned_notes form is installed and active.
 329 //
 330 $tmp = sqlQuery("SELECT count(*) AS count FROM registry WHERE " .
 331   "directory LIKE 'scanned_notes' AND state = 1 AND sql_run = 1");
 332 $using_scanned_notes = $tmp['count'];
 333
 334 // If the image cache does not yet exist for this fax, build it.
 335 // This will contain a .tif image as well as a .jpg image for each page.
 336 //
 337 if (! is_dir($faxcache)) {
 338   $tmp0 = exec('mkdir -p "' . $faxcache . '"', $tmp1, $tmp2);
 339   if ($tmp2) die("mkdir returned $tmp2: $tmp0");
 340   if (strtolower($ext) != '.tif') {
 341     // convert's default density for PDF-to-TIFF conversion is 72 dpi which is
 342     // not very good, so we upgrade it to "fine mode" fax quality.  It's really
 343     // better and faster if the scanner produces TIFFs instead of PDFs.
 344     $tmp0 = exec("convert -density 203x196 '$filepath' '$faxcache/deleteme.tif'", $tmp1, $tmp2);
 345     if ($tmp2) die("convert returned $tmp2: $tmp0");
 346     $tmp0 = exec("cd '$faxcache'; tiffsplit 'deleteme.tif'; rm -f 'deleteme.tif'", $tmp1, $tmp2);
 347     if ($tmp2) die("tiffsplit/rm returned $tmp2: $tmp0");
 348   } else {
 349     $tmp0 = exec("cd '$faxcache'; tiffsplit '$filepath'", $tmp1, $tmp2);
 350     if ($tmp2) die("tiffsplit returned $tmp2: $tmp0");
 351   }
 352   $tmp0 = exec("cd '$faxcache'; mogrify -resize 750x970 -format jpg *.tif", $tmp1, $tmp2);
 353   if ($tmp2) die("mogrify returned $tmp2: $tmp0; ext is '$ext'; filepath is '$filepath'");
 354 }
 355
 356 // Get the categories list.
 357 $categories = array();
 358 getKittens(0, '', $categories);
 359
 360 // Get the users list.
 361 $ures = sqlStatement("SELECT username, fname, lname FROM users " .
 362   "WHERE active = 1 AND ( info IS NULL OR info NOT LIKE '%Inactive%' ) " .
 363   "ORDER BY lname, fname");
 364 ?>
 365 <html>
 366 <head>
 367 <?php if (function_exists(html_header_show)) html_header_show(); ?>
 368 <title><?php xl('Dispatch Received Document','e'); ?></title>
 369 <link rel="stylesheet" href='<?php echo $css_header ?>' type='text/css'>
 370
 371 <style>
 372
 373 td, input, select, textarea {
 374  font-size: 10pt;
 375 }
 376
 377 .itemtitle {
 378  font-weight: bold;
 379 }
 380
 381 div.section {
 382  border: solid;
 383  border-width: 1px;
 384  border-color: #0000ff;
 385  margin-left: 2em;
 386  padding: 1em;
 387 }
 388
 389 </style>
 390
 391 <style type="text/css">@import url(../../library/dynarch_calendar.css);</style>
 392
 393 <script type="text/javascript" src="../../library/topdialog.js"></script>
 394 <script type="text/javascript" src="../../library/dialog.js?v=<?php echo $v_js_includes; ?>"></script>
 395 <script type="text/javascript" src="../../library/textformat.js"></script>
 396 <script type="text/javascript" src="../../library/dynarch_calendar.js"></script>
 397 <?php include_once("{$GLOBALS['srcdir']}/dynarch_calendar_en.inc.php"); ?>
 398 <script type="text/javascript" src="../../library/dynarch_calendar_setup.js"></script>
 399 <script type="text/javascript" src="<?php echo $GLOBALS['assets_static_relative']; ?>/jquery-min-1-2-2/index.js"></script>
 400
 401 <script language="JavaScript">
 402
 403  var mypcc = '<?php echo $GLOBALS['phone_country_code'] ?>';
 404
 405 <?php require($GLOBALS['srcdir'] . "/restoreSession.php"); ?>
 406
 407  function divclick(cb, divid) {
 408   var divstyle = document.getElementById(divid).style;
 409   if (cb.checked) {
 410    if (divid == 'div_copy_doc') {
 411     document.getElementById('div_copy_sn').style.display = 'none';
 412    }
 413    else if (divid == 'div_copy_sn') {
 414     document.getElementById('div_copy_doc').style.display = 'none';
 415    }
 416    divstyle.display = 'block';
 417   } else {
 418    divstyle.display = 'none';
 419   }
 420   return true;
 421  }
 422
 423  // This is for callback by the find-patient popup.
 424  function setpatient(pid, lname, fname, dob) {
 425   var f = document.forms[0];
 426   f.form_patient.value = lname + ', ' + fname;
 427   f.form_pid.value = pid;
 428 <?php if ($using_scanned_notes) { ?>
 429   // This loads the patient's list of recent encounters:
 430   f.form_copy_sn_visit.options.length = 0;
 431   f.form_copy_sn_visit.options[0] = new Option('Loading...', '0');
 432   $.getScript("fax_dispatch_newpid.php?p=" + pid);
 433 <?php } ?>
 434  }
 435
 436  // This invokes the find-patient popup.
 437  function sel_patient() {
 438   dlgopen('../main/calendar/find_patient_popup.php', '_blank', 500, 400);
 439  }
 440
 441  // Check for errors when the form is submitted.
 442  function validate() {
 443   var f = document.forms[0];
 444
 445   if (f.form_cb_copy.checked) {
 446    if (! f.form_pid.value) {
 447     alert('You have not selected a patient!');
 448     return false;
 449    }
 450   }
 451
 452   if (f.form_cb_forward.checked) {
 453    var s = f.form_fax.value;
 454    if (! s) {
 455     alert('A fax number is required!');
 456     return false;
 457    }
 458    var digcount = 0;
 459    for (var i = 0; i < s.length; ++i) {
 460     var c = s.charAt(i);
 461     if (c >= '0' && c <= '9') {
 462      ++digcount;
 463     }
 464     else if (digcount == 0 || c != '-') {
 465      alert('Invalid character(s) in fax number!');
 466      return false;
 467     }
 468    }
 469    if (digcount == 7) {
 470     if (s.charAt(0) < '2') {
 471      alert('Local phone number starts with an invalid digit!');
 472      return false;
 473     }
 474    }
 475    else if (digcount == 11) {
 476     if (s.charAt(0) != '1') {
 477      alert('11-digit number must begin with 1!');
 478      return false;
 479     }
 480    }
 481    else if (digcount == 10) {
 482     if (s.charAt(0) < '2') {
 483      alert('10-digit number starts with an invalid digit!');
 484      return false;
 485     }
 486     f.form_fax.value = '1' + s;
 487    }
 488    else {
 489     alert('Invalid number of digits in fax telephone number!');
 490     return false;
 491    }
 492   }
 493
 494   if (f.form_cb_copy.checked || f.form_cb_forward.checked) {
 495    var check_count = 0;
 496    for (var i = 0; i < f.elements.length; ++i) {
 497     if (f.elements[i].name == 'form_images[]' && f.elements[i].checked)
 498      ++check_count;
 499    }
 500    if (check_count == 0) {
 501     alert('No pages have been selected!');
 502     return false;
 503    }
 504   }
 505
 506   top.restoreSession();
 507   return true;
 508  }
 509
 510  function allCheckboxes(issel) {
 511   var f = document.forms[0];
 512   for (var i = 0; i < f.elements.length; ++i) {
 513    if (f.elements[i].name == 'form_images[]') f.elements[i].checked = issel;
 514   }
 515  }
 516
 517 </script>
 518
 519 </head>
 520
 521 <body class="body_top" onunload='imclosing()'>
 522
 523 <center><h2><?php xl('Dispatch Received Document','e'); ?></h2></center>
 524
 525 <form method='post' name='theform'
 526  action='fax_dispatch.php?<?php echo ($mode == 'fax') ? 'file' : 'scan'; ?>=<?php echo $filename ?>' onsubmit='return validate()'>
 527
 528 <p><input type='checkbox' name='form_cb_copy' value='1'
 529  onclick='return divclick(this,"div_copy");' />
 530 <b><?php xl('Copy Pages to Patient Chart','e'); ?></b></p>
 531
 532 <div id='div_copy' class='section' style='display:none;'>
 533  <table>
 534   <tr>
 535    <td class='itemtitle' width='1%' nowrap><?php xl('Patient','e'); ?></td>
 536    <td>
 537     <input type='text' size='10' name='form_patient' style='width:100%'
 538      value=' (<?php xl('Click to select'); ?>)' onclick='sel_patient()'
 539      title='Click to select patient' readonly />
 540     <input type='hidden' name='form_pid' value='0' />
 541    </td>
 542   </tr>
 543   <tr>
 544    <td colspan='2' style='padding-top:0.5em;'>
 545     <input type='radio' name='form_cb_copy_type' value='1'
 546      onclick='return divclick(this,"div_copy_doc");' checked />
 547     <b><?php xl('Patient Document','e'); ?></b>&nbsp;
 548 <?php if ($using_scanned_notes) { ?>
 549     <input type='radio' name='form_cb_copy_type' value='2'
 550      onclick='return divclick(this,"div_copy_sn");' />
 551     <b><?php xl('Scanned Encounter Note','e'); ?></b>
 552 <?php } ?>
 553     <div id='div_copy_doc' class='section' style='margin-top:0.5em;'>
 554      <table width='100%'>
 555       <tr>
 556        <td class='itemtitle' nowrap><?php xl('Category','e'); ?></td>
 557        <td>
 558         <select name='form_category' style='width:100%'>
 559 <?php
 560 foreach ($categories as $catkey => $catname) {
 561   echo "         <option value='$catkey'";
 562   echo ">$catname</option>\n";
 563 }
 564 ?>
 565         </select>
 566        </td>
 567       </tr>
 568       <tr>
 569        <td class='itemtitle' nowrap><?php xl('Filename','e'); ?></td>
 570        <td>
 571         <input type='text' size='10' name='form_filename' style='width:100%'
 572         value='<?php  echo "$filebase.pdf" ?>'
 573         title='Name for this document in the patient chart' />
 574        </td>
 575       </tr>
 576       <tr>
 577        <td class='itemtitle' nowrap><?php xl('Document Date','e'); ?></td>
 578        <td>
 579         <input type='text' size='10' name='form_docdate' id='form_docdate'
 580         value='<?php echo date('Y-m-d'); ?>'
 581         title='<?php xl('yyyy-mm-dd date associated with this document','e'); ?>'
 582         onkeyup='datekeyup(this,mypcc)' onblur='dateblur(this,mypcc)' />
 583         <img src='../pic/show_calendar.gif' align='absbottom' width='24' height='22'
 584         id='img_docdate' border='0' alt='[?]' style='cursor:pointer'
 585         title='<?php xl('Click here to choose a date','e'); ?>' />
 586        </td>
 587       </tr>
 588      </table>
 589     </div><!-- end div_copy_doc -->
 590     <div id='div_copy_sn' class='section' style='display:none;margin-top:0.5em;'>
 591      <table width='100%'>
 592       <tr>
 593        <td class='itemtitle' width='1%' nowrap><?php xl('Visit Date','e'); ?></td>
 594        <td>
 595         <select name='form_copy_sn_visit' style='width:100%'>
 596         </select>
 597        </td>
 598       </tr>
 599       <tr>
 600        <td class='itemtitle' width='1%' nowrap><?php xl('Comments','e'); ?></td>
 601        <td>
 602         <textarea name='form_copy_sn_comments' rows='3' cols='30' style='width:100%'
 603          title='Comments associated with this scanned note'
 604          /></textarea>
 605        </td>
 606       </tr>
 607      </table>
 608     </div><!-- end div_copy_sn -->
 609    </td>
 610   </tr>
 611   <tr>
 612    <td colspan='2' style='padding-top:0.5em;'>
 613     <input type='checkbox' name='form_cb_note' value='1'
 614      onclick='return divclick(this,"div_note");' />
 615     <b><?php xl('Create Patient Note','e'); ?></b>
 616     <div id='div_note' class='section' style='display:none;margin-top:0.5em;'>
 617      <table>
 618       <tr>
 619        <td class='itemtitle' width='1%' nowrap><?php xl('Type','e'); ?></td>
 620        <td>
 621         <?php
 622          // Added 6/2009 by BM to incorporate the patient notes into the list_options listings
 623          generate_form_field(array('data_type'=>1,'field_id'=>'note_type','list_id'=>'note_type','empty_title'=>'SKIP'), '');
 624         ?>
 625        </td>
 626       </tr>
 627       <tr>
 628        <td class='itemtitle' width='1%' nowrap>To</td>
 629        <td>
 630         <select name='form_note_to' style='width:100%'>
 631 <?php
 632 while ($urow = sqlFetchArray($ures)) {
 633   echo "         <option value='" . $urow['username'] . "'";
 634   echo ">" . $urow['lname'];
 635   if ($urow['fname']) echo ", " . $urow['fname'];
 636   echo "</option>\n";
 637 }
 638 ?>
 639          <option value=''>** <?php  xl('Close','e'); ?> **</option>
 640         </select>
 641        </td>
 642       </tr>
 643       <tr>
 644        <td class='itemtitle' nowrap><?php xl('Message','e'); ?></td>
 645        <td>
 646         <textarea name='form_note_message' rows='3' cols='30' style='width:100%'
 647          title='Your comments' /></textarea>
 648        </td>
 649       </tr>
 650      </table>
 651     </div><!-- end div_note -->
 652    </td>
 653   </tr>
 654  </table>
 655 </div><!-- end div_copy -->
 656
 657 <p><input type='checkbox' name='form_cb_forward' value='1'
 658  onclick='return divclick(this,"div_forward");' />
 659 <b><?php xl('Forward Pages via Fax','e'); ?></b></p>
 660
 661 <div id='div_forward' class='section' style='display:none;'>
 662  <table>
 663   <tr>
 664    <td class='itemtitle' width='1%' nowrap><?php xl('From','e'); ?></td>
 665    <td>
 666     <input type='text' size='10' name='form_from' style='width:100%'
 667      title='Type your name here' />
 668    </td>
 669   </tr>
 670   <tr>
 671    <td class='itemtitle' nowrap><?php xl('To','e'); ?></td>
 672    <td>
 673     <input type='text' size='10' name='form_to' style='width:100%'
 674      title='Type the recipient name here' />
 675    </td>
 676   </tr>
 677   <tr>
 678    <td class='itemtitle' nowrap><?php xl('Fax','e'); ?></td>
 679    <td>
 680     <input type='text' size='10' name='form_fax' style='width:100%'
 681      title='The fax phone number to send this to' />
 682    </td>
 683   </tr>
 684   <tr>
 685    <td class='itemtitle' nowrap><?php xl('Message','e'); ?></td>
 686    <td>
 687     <textarea name='form_message' rows='3' cols='30' style='width:100%'
 688      title='Your comments to include with this message' /></textarea>
 689    </td>
 690   </tr>
 691   <tr>
 692    <td class='itemtitle' nowrap><?php xl('Quality','e'); ?></td>
 693    <td>
 694     <input type='radio' name='form_finemode' value='' /><?php xl('Normal','e'); ?> &nbsp;
 695     <input type='radio' name='form_finemode' value='1' checked /><?php xl('Fine','e'); ?> &nbsp;
 696    </td>
 697   </tr>
 698  </table>
 699 </div><!-- end div_forward -->
 700
 701 <p><b><?php xl('Delete Pages','e'); ?>:</b>&nbsp;
 702 <input type='radio' name='form_cb_delete' value='2' />All&nbsp;
 703 <input type='radio' name='form_cb_delete' value='1' checked />Selected&nbsp;
 704 <input type='radio' name='form_cb_delete' value='0' />None
 705 </p>
 706
 707 <center>
 708 <p>
 709 <input type='submit' name='form_save' value='<?php xl('OK','e'); ?>' />
 710 &nbsp; &nbsp;
 711 <input type='button' value='<?php xl('Cancel','e'); ?>' onclick='window.close()' />
 712 &nbsp; &nbsp;
 713 <input type='button' value='<?php xl('Select All','e'); ?>' onclick='allCheckboxes(true)' />
 714 &nbsp; &nbsp;
 715 <input type='button' value='<?php xl('Clear All','e'); ?>' onclick='allCheckboxes(false)' />
 716 </p>
 717
 718 <p><br /><b><?php xl('Please select the desired pages to copy or forward:','e'); ?></b></p>
 719 <table>
 720
 721 <?php
 722 $dh = opendir($faxcache);
 723 if (! $dh) die("Cannot read $faxcache");
 724 $jpgarray = array();
 725 while (false !== ($jfname = readdir($dh))) {
 726   if (preg_match("/^(.*)\.jpg/", $jfname, $matches)) {
 727     $jpgarray[$matches[1]] = $jfname;
 728   }
 729 }
 730 closedir($dh);
 731 // readdir does not read in any particular order, we must therefore sort
 732 // by filename so the display order matches the original document.
 733 ksort($jpgarray);
 734 $page = 0;
 735 foreach ($jpgarray as $jfnamebase => $jfname) {
 736   ++$page;
 737   echo " <tr>\n";
 738   echo "  <td valign='top'>\n";
 739   echo "   <img src='../../sites/" . $_SESSION['site_id'] . "/faxcache/$mode/$filebase/$jfname' />\n";
 740   echo "  </td>\n";
 741   echo "  <td align='center' valign='top'>\n";
 742   echo "   <input type='checkbox' name='form_images[]' value='$jfnamebase' checked />\n";
 743   echo "   <br />$page\n";
 744   echo "  </td>\n";
 745   echo " </tr>\n";
 746 }
 747 ?>
 748
 749 </table>
 750 </center>
 751 </form>
 752
 753 <script language='JavaScript'>
 754  Calendar.setup({inputField:"form_docdate", ifFormat:"%Y-%m-%d", button:"img_docdate"});
 755 </script>
 756
 757 </body>
 758 </html>