A couple of new experimental features. Type perl formscript.pl for documentation.
[openemr.git] / contrib / forms / podiatry / report.php
blobd60b226026ebcfbbdf13ceb62c75366eca33bf5b
1 <?php
2 // Copyright (C) 2005 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.
9 include_once("../../globals.php");
10 include_once($GLOBALS["srcdir"] . "/api.inc");
12 function podiatry_report($pid, $encounter, $cols, $id) {
13 $cols = 1; // force always 1 column
14 $count = 0;
15 $data = sqlQuery("SELECT * " .
16 "FROM form_podiatry WHERE " .
17 "id = '$id' AND activity = '1'");
18 if ($data) {
19 print "<table cellpadding='0' cellspacing='0'>\n<tr>\n";
20 foreach($data as $key => $value) {
21 if ($key == "id" || $key == "pid" || $key == "user" || $key == "groupname" ||
22 $key == "authorized" || $key == "activity" || $key == "date" ||
23 $value == "" || $value == "0" || $value == "0.00") {
24 continue;
27 if ($key == 'followup_required') {
28 $value = 'Yes';
31 $key=ucwords(str_replace("_"," ",$key));
32 print "<td valign='top'><span class='bold'>$key: </span><span class='text'>$value &nbsp;</span></td>\n";
33 $count++;
34 if ($count == $cols) {
35 $count = 0;
36 print "</tr>\n<tr>\n";
39 print "</tr>\n</table>\n";
42 ?>