some general support for printable forms based on layouts, and a blan…

…k demographics form for ippf. also sorting lists by title within seq.
DiscoverAndChange · Jul 7, 2009 · 6ca95c0 · 6ca95c0
1 parent 72043c5
commit 6ca95c0
Show file tree

Hide file tree

Showing 3 changed files with 509 additions and 12 deletions.
diff --git a/interface/main/left_nav.php b/interface/main/left_nav.php
@@ -1,5 +1,5 @@
 <?php
- // Copyright (C) 2006, 2008 Rod Roark <[email protected]>
+ // Copyright (C) 2006-2009 Rod Roark <[email protected]>
  //
  // This program is free software; you can redistribute it and/or
  // modify it under the terms of the GNU General Public License
@@ -899,6 +899,7 @@ function selpopup(selobj) {
  </li>
  <li><span><?php xl('Blank Forms','e') ?></span>
  <ul>
+ <?php genPopLink(xl('Demographics'),'../patient_file/summary/demographics_print.php'); ?>
  <?php genPopLink(xl('Fee Sheet'),'../patient_file/printed_fee_sheet.php'); ?>
  <?php genPopLink(xl('Referral'),'../patient_file/transaction/print_referral.php'); ?>
  </ul>

diff --git a/interface/patient_file/summary/demographics_print.php b/interface/patient_file/summary/demographics_print.php
@@ -0,0 +1,191 @@
+<?php
+// Copyright (C) 2009 Rod Roark <[email protected]>
+//
+// This program is free software; you can redistribute it and/or
+// modify it under the terms of the GNU General Public License
+// as published by the Free Software Foundation; either version 2
+// of the License, or (at your option) any later version.
+
+// Currently this will print only a blank form, but some code was
+// preserved here and in options.inc.php to ease future support for
+// data for a specified patient.
+
+require_once("../../globals.php");
+require_once("$srcdir/acl.inc");
+require_once("$srcdir/options.inc.php");
+require_once("$srcdir/patient.inc");
+
+$CPR = 4; // cells per row
+
+/*********************************************************************
+$result = getPatientData($pid, "*, DATE_FORMAT(DOB,'%Y-%m-%d') as DOB_YMD"); 
+$result2 = getEmployerData($pid);
+// Check authorization.
+$thisauth = acl_check('patients', 'demo');
+if ($pid) {
+ if (!$thisauth != 'write')
+ die(xl('Demographics not authorized.'));
+ if ($result['squad'] && ! acl_check('squads', $result['squad']))
+ die(xl('You are not authorized to access this squad.'));
+}
+$insurancei = getInsuranceProviders();
+*********************************************************************/
+
+$fres = sqlStatement("SELECT * FROM layout_options " .
+ "WHERE form_id = 'DEM' AND uor > 0 " .
+ "ORDER BY group_name, seq");
+?>
+<html>
+<head>
+<?php html_header_show();?>
+
+<style>
+body, td {
+ font-family: Arial, Helvetica, sans-serif;
+ font-weight: normal;
+ font-size: 9pt;
+}
+
+body {
+ padding: 5pt 5pt 5pt 5pt;
+}
+
+div.section {
+ border-style: solid;
+ border-width: 1px;
+ border-color: #000000;
+ margin: 0 0 0 10pt;
+ padding: 5pt;
+}
+
+.mainhead {
+ font-weight: bold;
+ font-size: 14pt;
+ text-align: center;
+}
+
+.under {
+ border-style: solid;
+ border-width: 0 0 1px 0;
+ border-color: #999999;
+}
+</style>
+</head>
+
+<body bgcolor='#ffffff'>
+<form>
+
+<p class='mainhead'><?php xl('Demographics Form','e'); ?></p>
+
+<?php
+
+function end_cell() {
+ global $item_count, $cell_count;
+ if ($item_count > 0) {
+ echo "</td>";
+ $item_count = 0;
+ }
+}
+
+function end_row() {
+ global $cell_count, $CPR;
+ end_cell();
+ if ($cell_count > 0) {
+ for (; $cell_count < $CPR; ++$cell_count) echo "<td></td>";
+ echo "</tr>\n";
+ $cell_count = 0;
+ }
+}
+
+function end_group() {
+ global $last_group;
+ if (strlen($last_group) > 0) {
+ end_row();
+ echo " </table>\n";
+ echo "</div>\n";
+ }
+}
+
+$last_group = '';
+$cell_count = 0;
+$item_count = 0;
+
+while ($frow = sqlFetchArray($fres)) {
+ $this_group = $frow['group_name'];
+ $titlecols = $frow['titlecols'];
+ $datacols = $frow['datacols'];
+ $data_type = $frow['data_type'];
+ $field_id = $frow['field_id'];
+ $list_id = $frow['list_id'];
+ $currvalue = '';
+
+ if (strpos($field_id, 'em_') === 0) {
+ $tmp = substr($field_id, 3);
+ // if (isset($result2[$tmp])) $currvalue = $result2[$tmp];
+ }
+ else {
+ // if (isset($result[$field_id])) $currvalue = $result[$field_id];
+ }
+
+ // Handle a data category (group) change.
+ if (strcmp($this_group, $last_group) != 0) {
+ end_group();
+ if (strlen($last_group) > 0) echo "<br />\n";
+ $group_name = substr($this_group, 1);
+ $last_group = $this_group;
+ echo "<b>" . xl_layout_label($group_name) . "</b>\n";
+
+ echo "<div class='section'>\n";
+ echo " <table border='0' cellpadding='0'>\n";
+ }
+
+ // Handle starting of a new row.
+ if (($titlecols > 0 && $cell_count >= $CPR) || $cell_count == 0) {
+ end_row();
+ echo " <tr>";
+ }
+
+ if ($item_count == 0 && $titlecols == 0) $titlecols = 1;
+
+ // Handle starting of a new label cell.
+ if ($titlecols > 0) {
+ end_cell();
+ echo "<td colspan='$titlecols'";
+ echo ($frow['uor'] == 2) ? " class='required'" : " class='bold'";
+ if ($cell_count == 2) echo " style='padding-left:10pt'";
+ echo ">";
+ $cell_count += $titlecols;
+ }
+ ++$item_count;
+
+ echo "<b>";
+
+ if ($frow['title']) echo (xl_layout_label($frow['title']) . ":"); else echo "&nbsp;";
+
+ echo "</b>";
+
+ // Handle starting of a new data cell.
+ if ($datacols > 0) {
+ end_cell();
+ echo "<td colspan='$datacols'";
+ if ($cell_count > 0) echo " style='padding-left:5pt'";
+ echo ">";
+ $cell_count += $datacols;
+ }
+
+ ++$item_count;
+ generate_print_field($frow, $currvalue);
+}
+
+end_group();
+?>
+
+</form>
+
+<!-- This should really be in the onload handler but that seems to be unreliable and can crash Firefox 3. -->
+<script language='JavaScript'>
+window.print();
+</script>
+
+</body>
+</html>