Fixed php short tags
[openemr.git] / contrib / forms / high_risk_screening_record / view.php
blob318753cc32b3b10ccb888d6aa95550d7ea51eaa6
1 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
3 "http://www.w3.org/TR/html4/loose.dtd">
5 <?php
7 include_once("../../globals.php");
9 include_once("$srcdir/api.inc");
11 include_once("$srcdir/forms.inc");
13 include_once("$srcdir/calendar.inc");
19 <html>
21 <head>
22 <?php html_header_show();?>
24 <title>Form: High risk screening record</title>
26 <link rel=stylesheet href="<?php echo $css_header;?>" type="text/css">
28 <link rel=stylesheet href="../../acog.css" type="text/css">
30 <script language="JavaScript" src="../../acog.js" type="text/JavaScript"></script>
32 <script language="JavaScript" type="text/JavaScript">
34 window.onload = initialize;
36 </script>
38 </head>
42 <?php
44 $fres=sqlStatement("select * from patient_data where pid='".$pid."'");
46 if ($fres){
48 $patient = sqlFetchArray($fres);
52 $fres=sqlStatement("select * from form_high_risk_screening_record where id=$id");
54 if ($fres){
56 $fdata = sqlFetchArray($fres);
62 <body <?php echo $top_bg_line;?>>
66 <form action="<?php echo $rootdir;?>/forms/high_risk_screening_record/save.php?mode=update&id=<?php echo $id; ?>" method="post" enctype="multipart/form-data" name="my_form">
68 <?php include("../../acog_menu.inc"); ?>
70 <div class="srvChapter">High risk screening record <a href="#" onMouseOver="toolTip('See Table of High-Risk Factors.')" onMouseOut="toolTip();"><img src="../../pic/mark_q.png" width="13" height="13" border="0" align="texttop"></a></div>
72 <div style="border: solid 2px black; background-color:#FFFFFF;">
74 <table border="0" cellpadding="2" cellspacing="0">
76 <tr align="left" valign="bottom">
78 <td colspan="6" class="fibody2" id="bordR">patient name:
80 <input name="pname" type="text" class="fullin" id="pname" style="width: 70%" value="<?php
83 echo $patient{'fname'}.' '.$patient{'mname'}.' '.$patient{'lname'};
85 ?>"></td>
87 <td colspan="5" class="fibody2" id="bordR">Birth date:
89 <input name="pbdate" type="text" class="fullin" id="pbdate" style="width: 65%" value="<?php
92 echo $patient{'DOB'};
94 ?>"></td>
96 <td colspan="4" class="fibody2">ID No:
98 <input name="hr_pid" type="text" class="fullin" id="hr_pid" style="width:80%" value="<?php
101 echo $patient{'id'};
103 ?>"></td>
105 </tr>
107 <tr align="center" valign="middle">
109 <td class="ficaption2" id="bordR">&nbsp;</td>
111 <td width="6%" class="ficaption2" id="bordR">HEMO-<br>
113 GLOBIN<br>
115 TEST</td>
117 <td width="6%" class="ficaption2" id="bordR">BONE DENSITY<br>
119 SCREENING</td>
121 <td width="6%" class="ficaption2" id="bordR">BACTERI-<br>
123 URIA&nbsp;TEST</td>
125 <td width="6%" class="ficaption2" id="bordR">STD<br>
127 TESTING</td>
129 <td width="6%" class="ficaption2" id="bordR">HIV test <a href="#" onMouseOver="toolTip('Check state requirements before recording results.')" onMouseOut="toolTip();"><img src="../../pic/mark_q.png" width="13" height="13" border="0" align="texttop"></a></td>
131 <td width="6%" class="ficaption2" id="bordR">Genetic testing </td>
133 <td width="6%" class="ficaption2" id="bordR">Rubella titer </td>
135 <td width="6%" class="ficaption2" id="bordR">TB skin test </td>
137 <td width="6%" class="ficaption2" id="bordR">Lipid profile assessment </td>
139 <td width="6%" class="ficaption2" id="bordR">Mammo-<br>
141 graphy</td>
143 <td width="6%" class="ficaption2" id="bordR">Fasting<br>
145 GLUCOSE TEST</td>
147 <td width="6%" class="ficaption2" id="bordR">TSH<br>
149 TEST</td>
151 <td width="6%" class="ficaption2" id="bordR">COLORECTAL<br>
153 CANCER<br>
155 SCREENING</td>
157 <td width="6%" class="ficaption2">HEPATITIS C<br>
159 VIRUS TEST</td>
161 </tr>
165 $rsi = 1;
167 while ($rsi < 13){
169 list(
171 $hemoglobin, $bone_density, $bacteriuria, $std, $hiv, $genetic, $rubella, $tb_skin,
173 $lipid, $mammography, $fasting_glucose, $tsh, $cancer, $hepatitis_c
175 ) = explode("|~",$fdata["record_".$rsi]);
177 list( $hemoglobin_date, $hemoglobin_res) = explode(';', $hemoglobin);
179 list( $bone_density_date, $bone_density_res) = explode(';', $bone_density);
181 list( $bacteriuria_date, $bacteriuria_res) = explode(';', $bacteriuria);
183 list( $std_date, $std_res) = explode(';', $std);
185 list( $hiv_date, $hiv_res) = explode(';', $hiv);
187 list( $genetic_date, $genetic_res) = explode(';', $genetic);
189 list( $rubella_date, $rubella_res) = explode(';', $rubella);
191 list( $tb_skin_date, $tdb_skin_res) = explode(';', $tdb_skin);
193 list( $lipid_date, $lipid_res) = explode(';', $lipid);
195 list( $mammography_date, $mammography_res) = explode(';', $mammography);
197 list( $fasting_glucose_date, $fasting_glucose_res) = explode(';', $fasting_glucose);
199 list( $tsh_date, $tsh_res) = explode(';', $tsh);
201 list( $cancer_date, $cancer_res) = explode(';', $cancer);
203 list( $hepatitis_c_date, $hepatitis_c_res) = explode(';', $hepatitis_c);
207 print <<<EOL
209 <tr align="left" valign="bottom">
211 <td class="fibody3" id="bordR">Date:</td>
213 <td class="fibody3" id="bordR"><input name="hemoglobin_date_${rsi}" type="text" value="${hemoglobin_date}" class="fullin2"></td>
215 <td class="fibody3" id="bordR"><input name="bone_density_date_${rsi}" type="text" value="${bone_density_date}" class="fullin2"></td>
217 <td class="fibody3" id="bordR"><input name="bacteriuria_date_${rsi}" type="text" value="${bacteriuria_date}" class="fullin2"></td>
219 <td class="fibody3" id="bordR"><input name="std_date_${rsi}" type="text" value="${std_date}" class="fullin2"></td>
221 <td class="fibody3" id="bordR"><input name="hiv_date_${rsi}" type="text" value="${hiv_date}" class="fullin2"></td>
223 <td class="fibody3" id="bordR"><input name="genetic_date_${rsi}" type="text" value="${genetic_date}" class="fullin2"></td>
225 <td class="fibody3" id="bordR"><input name="rubella_date_${rsi}" type="text" value="${rubella_date}" class="fullin2"></td>
227 <td class="fibody3" id="bordR"><input name="tb_skin_date_${rsi}" type="text" value="${tb_skin_date}" class="fullin2"></td>
229 <td class="fibody3" id="bordR"><input name="lipid_date_${rsi}" type="text" value="${lipid_date}" class="fullin2"></td>
231 <td class="fibody3" id="bordR"><input name="mammography_date_${rsi}" type="text" value="${mammography_date}" class="fullin2"></td>
233 <td class="fibody3" id="bordR"><input name="fasting_glucose_date_${rsi}" type="text" value="${fasting_glucose_date}" class="fullin2"></td>
235 <td class="fibody3" id="bordR"><input name="tsh_date_${rsi}" type="text" value="${tsh_date}" class="fullin2"></td>
237 <td class="fibody3" id="bordR"><input name="cancer_date_${rsi}" type="text" value="${cancer_date}" class="fullin2"></td>
239 <td class="fibody3"><input name="hepatitis_c_date_${rsi}" type="text" value="${hepatitis_c_date}" class="fullin2"></td>
241 </tr>
243 <tr align="left" valign="bottom">
245 <td class="fibody2" id="bordR">Result:</td>
247 <td class="fibody2" id="bordR"><input name="hemoglobin_res_${rsi}" type="text" value="${hemoglobin_res}" class="fullin2"></td>
249 <td class="fibody2" id="bordR"><input name="bone_density_res_${rsi}" type="text" value="${bone_density_res}" class="fullin2"></td>
251 <td class="fibody2" id="bordR"><input name="bacteriuria_res_${rsi}" type="text" value="${bacteriuria_res}" class="fullin2"></td>
253 <td class="fibody2" id="bordR"><input name="std_res_${rsi}" type="text" value="${std_res}" class="fullin2"></td>
255 <td class="fibody2" id="bordR"><input name="hiv_res_${rsi}" type="text" value="${hiv_res}" class="fullin2"></td>
257 <td class="fibody2" id="bordR"><input name="genetic_res_${rsi}" type="text" value="${genetic_res}" class="fullin2"></td>
259 <td class="fibody2" id="bordR"><input name="rubella_res_${rsi}" type="text" value="${rubella_res}" class="fullin2"></td>
261 <td class="fibody2" id="bordR"><input name="tb_skin_res_${rsi}" type="text" value="${tb_skin_res}" class="fullin2"></td>
263 <td class="fibody2" id="bordR"><input name="lipid_res_${rsi}" type="text" value="${lipid_res}" class="fullin2"></td>
265 <td class="fibody2" id="bordR"><input name="mammography_res_${rsi}" type="text" value="${mammography_res}" class="fullin2"></td>
267 <td class="fibody2" id="bordR"><input name="fasting_glucose_res_${rsi}" type="text" value="${fasting_glucose_res}" class="fullin2"></td>
269 <td class="fibody2" id="bordR"><input name="tsh_res_${rsi}" type="text" value="${tsh_res}" class="fullin2"></td>
271 <td class="fibody2" id="bordR"><input name="cancer_res_${rsi}" type="text" value="${cancer_res}" class="fullin2"></td>
273 <td class="fibody2"><input name="hepatitis_c_res_${rsi}" type="text" value="${hepatitis_c_res}" class="fullin2"></td>
275 </tr>
277 EOL;
279 $rsi++;
285 </table>
287 </div>
289 <p>&nbsp;</p>
291 <table width="100%" border="0">
293 <tr>
295 <td align="left" width="120"> <a href="javascript:top.restoreSession();document.my_form.submit();" class="link_submit">[Save Data]</a> </td>
297 <td align="left" nowrap> <a href="<?php echo $rootdir; ?>/patient_file/encounter/print_form.php?id=<?php echo $id; ?>&formname=<?php echo $formname; ?>" target="_blank" class="link_submit"
299 onclick="top.restoreSession()">[Printable form]</a> </td>
301 <td align="right"> <a href="<?php echo $GLOBALS['form_exit_url']; ?>" class="link_submit"
303 onclick="top.restoreSession()">[Don't Save]</a> </td>
305 </tr>
307 </table>
309 </form>
311 <?php
313 formFooter();
317 </body>
319 </html>