2 include_once("../../globals.php");
3 include_once("$srcdir/lists.inc");
7 <link rel
=stylesheet href
="<?echo $css_header;?>" type
="text/css">
8 <script language
='JavaScript'>
9 // When an issue is checked, auto-check all the related encounters.
10 function issueClick(icb
) {
11 if (! icb
.checked
) return;
12 var f
= document
.forms
[0];
13 var nel
= f
.elements
.length
;
14 for (var i
= 0; i
< nel
; ++i
) {
15 var ecb
= f
.elements
[i
];
16 if (ecb
.name
== 'documents[]' ||
17 ecb
.name
.indexOf('include_') == 0 ||
18 ecb
.name
.indexOf('issue_' ) == 0)
20 if (icb
.value
.indexOf('/' + ecb
.value +
'/') >= 0) {
28 <body
<?
echo $top_bg_line;?
> topmargin
='0' rightmargin
='0' leftmargin
='2'
29 bottommargin
='0' marginwidth
='2' marginheight
='0'>
31 <font
class='title'><?
xl('Patient Report','e'); ?
></font
><br
>
33 <a
class="link_submit" href
="full_report.php" onclick
="top.restoreSession()">
34 [<?
xl('View Comprehensive Patient Report','e'); ?
>]</a
>
36 <form name
='report_form' method
='post' action
='custom_report.php'>
40 <td
class='text' valign
='top'>
41 <input type
='checkbox' name
='include_demographics' value
="demographics" checked
><?
xl('Demographics','e'); ?
><br
>
42 <input type
='checkbox' name
='include_history' value
="history"><?
xl(' History','e'); ?
><br
>
43 <input type
='checkbox' name
='include_employer' value
="employer"><?
xl('Employer','e'); ?
><br
>
44 <input type
='checkbox' name
='include_insurance' value
="insurance"><?
xl('Insurance','e'); ?
><br
>
45 <input type
='checkbox' name
='include_billing' value
="billing" checked
><?
xl('Billing','e'); ?
><br
>
47 <td
class='text' valign
='top'>
49 <input type
='checkbox' name
='include_allergies' value
="allergies">Allergies
<br
>
50 <input type
='checkbox' name
='include_medications' value
="medications">Medications
<br
>
52 <input type
='checkbox' name
='include_immunizations' value
="immunizations"><?
xl('Immunizations','e'); ?
><br
>
54 <input type
='checkbox' name
='include_medical_problems' value
="medical_problems">Medical Problems
<br
>
56 <input type
='checkbox' name
='include_notes' value
="notes"><?
xl('Patient Notes','e'); ?
><br
>
57 <input type
='checkbox' name
='include_transactions' value
="transactions"><?
xl('Transactions','e'); ?
><br
>
58 <input type
='checkbox' name
='include_batchcom' value
="batchcom"><?
xl('Communications','e'); ?
><br
>
64 <a href
='javascript:top.restoreSession();document.report_form.submit()' class='link_submit'><?
xl('Generate Report','e'); ?
></a
>
70 <td valign
='top' class='text'>
71 <span
class='bold'><?
xl('Issues to Include in this Report','e'); ?
>:  
;  
;</span
>
73 <table cellpadding
='1' cellspacing
='2'>
79 <td
>End
 
;  
;  
;</td
>
84 $pres = sqlStatement("SELECT * FROM lists WHERE pid = $pid " .
85 "ORDER BY type, begdate");
87 while ($prow = sqlFetchArray($pres)) {
88 if ($lasttype != $prow['type']) {
89 $lasttype = $prow['type'];
92 $disptype = $lasttype;
94 case "allergy" : $disptype = "Allergies" ; break;
96 case "medical_problem": $disptype = "Medical Problems"; break;
97 case "medication" : $disptype = "Medications" ; break;
98 case "surgery" : $disptype = "Surgeries" ; break;
101 $disptype = $ISSUE_TYPES[$lasttype][0];
104 echo " <td valign='top' colspan='4' class='bold'><b>$disptype</b></td>\n";
107 $rowid = $prow['id'];
108 $disptitle = trim($prow['title']) ?
$prow['title'] : "[Missing Title]";
110 $ieres = sqlStatement("SELECT encounter FROM issue_encounter WHERE " .
111 "pid = '$pid' AND list_id = '$rowid'");
113 echo " <tr class='text'>\n";
114 echo " <td valign='top'> </td>\n";
115 echo " <td valign='top'>";
116 echo "<input type='checkbox' name='issue_$rowid' onclick='issueClick(this)' value='/";
117 while ($ierow = sqlFetchArray($ieres)) {
118 echo $ierow['encounter'] . "/";
120 echo "' />$disptitle</td>\n";
121 echo " <td valign='top'>" . $prow['begdate'];
122 if ($prow['enddate']) {
123 echo " - " . $prow['enddate'];
127 echo " </td>\n";
135 <td valign
='top' class='text'>
136 <span
class='bold'><?
xl('Encounter Forms to Include in this Report','e'); ?
>:</span
>
140 $res = sqlStatement("SELECT forms.encounter, forms.form_id, forms.form_name, " .
141 "forms.formdir, forms.date AS fdate, form_encounter.date " .
142 "FROM forms, form_encounter WHERE " .
143 "forms.pid = '$pid' AND form_encounter.pid = '$pid' AND " .
144 "form_encounter.encounter = forms.encounter " .
145 "ORDER BY form_encounter.date DESC, fdate ASC");
146 $res2 = sqlStatement("SELECT name FROM registry ORDER BY priority");
147 $html_strings = array();
148 $registry_form_name = array();
149 while($result2 = sqlFetchArray($res2)) {
150 array_push($registry_form_name,trim($result2['name']));
152 while($result = sqlFetchArray($res)) {
153 if ($result{"form_name"} == "New Patient Encounter") {
155 foreach($registry_form_name as $var) {
156 if ($toprint = $html_strings[$var]) {
157 {foreach($toprint as $var) {print $var;}}
160 $html_strings = array();
161 print "</blockquote>\n\n";
164 print "<input type=checkbox name='" . $result{"formdir"} . "_" .
165 $result{"form_id"} . "' value='" . $result{"encounter"} . "'";
166 print " >New Encounter" .
167 " (" . date("Y-m-d",strtotime($result{"date"})) .
171 $form_name = trim($result{"form_name"});
172 //if form name is not in registry, look for the closest match by
173 // finding a registry name which is at the start of the form name.
174 //this is to allow for forms to put additional helpful information
175 //in the database in the same string as their form name after the name
176 $form_name_found_flag = 0;
177 foreach($registry_form_name as $var) {if ($var == $form_name) {$form_name_found_flag = 1;}}
178 // if the form does not match precisely with any names in the registry, now see if any front partial matches
179 // and change $form_name appropriately so it will print above in $toprint = $html_strings[$var]
180 if (!$form_name_found_flag) { foreach($registry_form_name as $var) {if (strpos($form_name,$var) == 0) {$form_name = $var;}}}
182 if (!is_array($html_strings[$form_name])) {$html_strings[$form_name] = array();}
183 array_push($html_strings[$form_name], "<input type='checkbox' name='"
184 . $result{"formdir"} . "_"
185 . $result{"form_id"} . "' value='" . $result{"encounter"} . "'"
186 . ">" . $result{"form_name"} . "<br>\n");
189 foreach($registry_form_name as $var) {
190 if ($toprint = $html_strings[$var]) {
191 {foreach($toprint as $var) {print $var;}}
201 <span
class="bold"><?
xl('Documents','e'); ?
></span
>:<br
>
204 //code lists available images
205 $db = $GLOBALS['adodb']['db'];
206 $sql = "SELECT d.id, d.url, c.name FROM documents AS d " .
207 "LEFT JOIN categories_to_documents AS ctd ON d.id=ctd.document_id " .
208 "LEFT JOIN categories AS c ON c.id = ctd.category_id WHERE " .
209 "d.foreign_id = " . $db->qstr($pid);
210 $result = $db->Execute($sql);
211 echo $db->ErrorMsg();
212 while ($result && !$result->EOF
) {
213 echo '<span class="bold"><input type="checkbox" name="documents[]" value="' .
214 $result->fields
['id'] . '">';
215 echo ' <i>' . $result->fields
['name'] . "</i>";
216 echo ' Name: <i>' . basename($result->fields
['url']) . "</i>";
224 <a href
='javascript:top.restoreSession();document.report_form.submit()' class='link_submit'><?
xl('Generate Report','e'); ?
></a
>