PageRenderTime 48ms CodeModel.GetById 18ms RepoModel.GetById 1ms app.codeStats 0ms

/modules/or_logbook/oplogmain.php

https://github.com/timschofield/2.8
PHP | 363 lines | 292 code | 43 blank | 28 comment | 36 complexity | f9670f668c30366a69416e2a2fd07d79 MD5 | raw file
Possible License(s): LGPL-2.1, BSD-3-Clause, GPL-2.0
  1. <?php
  2. error_reporting(E_COMPILE_ERROR|E_ERROR|E_CORE_ERROR);
  3. require('./roots.php');
  4. require('../../include/helpers/inc_environment_global.php');
  5. /**
  6. * CARE2X Integrated Hospital Information System Deployment 2.1 - 2004-10-02
  7. * GNU General Public License
  8. * Copyright 2002,2003,2004,2005 Elpidio Latorilla
  9. * elpidio@care2x.org,
  10. *
  11. * See the file "copy_notice.txt" for the licence notice
  12. */
  13. define('MODULE','or_logbook');
  14. define('LANG_FILE_MODULAR','or_logbook.php');
  15. define('NO_2LEVEL_CHK',1);
  16. require_once($root_path.'include/helpers/inc_front_chain_lang.php');
  17. if (!$internok&&!$_COOKIE['ck_op_pflegelogbuch_user'.$sid]) {header("Location:../language/".$lang."/lang_".$lang."_invalid-access-warning.php"); exit;};
  18. # Load date shifter class
  19. require_once($root_path.'classes/datetimemanager/class.dateTimeManager.php');
  20. # Create new dateTimeManager object */
  21. $tshifter = new dateTimeManager;
  22. # Set default date to today
  23. if(!isset($thisday)) $thisday=date('Y-m-d');
  24. # Shift time back 1 day
  25. $yesday = $tshifter->shift_dates($thisday, '1', 'd');
  26. # Shift time forward 1 day
  27. $tomorow = $tshifter->shift_dates($thisday, '-1', 'd');
  28. # Todays date
  29. $today=date('Y-m-d');
  30. $toggler=0;
  31. $pdata=array();
  32. $template=array();
  33. # Default is op room #1
  34. if(!isset($saal)||empty($saal)) $saal=1;
  35. # Set first entry flag
  36. setcookie(firstentry,'1');
  37. require_once($root_path.'modules/dept_admin/model/class_department.php');
  38. $dept_obj=new Department;
  39. # Preload the deparment info
  40. $dept_obj->preloadDept($dept_nr);
  41. # Get list of all the OR room numbers
  42. $ORNrs=&$dept_obj->getAllActiveORNrs();
  43. $surgery_arr=&$dept_obj->getAllActiveWithSurgery();
  44. # Load the date formatter
  45. require_once($root_path.'include/helpers/inc_date_format_functions.php');
  46. $dbtable='care_encounter_op';
  47. $sql="SELECT o.*,e.encounter_class_nr, p.name_last, p.name_first, p.date_birth, p.addr_str, p.addr_str_nr, p.addr_zip, t.name AS citytown_name
  48. FROM $dbtable AS o, care_encounter AS e, care_person AS p
  49. LEFT JOIN care_address_citytown AS t ON p.addr_citytown_nr=t.nr
  50. WHERE o.dept_nr='$dept_nr'
  51. AND o.op_room='$saal'
  52. AND o.op_date='$thisday'
  53. AND o.encounter_nr=e.encounter_nr
  54. AND e.pid=p.pid
  55. ORDER BY o.nr
  56. ";
  57. if($ergebnis=$db->Execute($sql)){
  58. if($rows=$ergebnis->RecordCount()){
  59. $datafound=1;
  60. }
  61. }else{
  62. echo "$LDDbNoRead<br>$sql";
  63. }
  64. ?>
  65. <!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 3.0//EN" "html.dtd">
  66. <html>
  67. <HEAD>
  68. <script language=javascript src="<?php echo $root_path; ?>js/syncdeptsaal.js"></script>
  69. <script language=javascript>
  70. <!--
  71. function pruf(d)
  72. {
  73. if((d.dept_nr.value=='<?php echo $dept_nr; ?>')&&(d.saal.value=='<?php echo $saal;?>')) return false;
  74. window.top.LOGINPUT.location.replace('oploginput.php?sid=<?php echo "$sid&lang=$lang" ?>&mode=chgdept&dept_nr='+d.dept_nr.value+'&saal='+d.saal.value);
  75. return true;
  76. }
  77. function getinfo(pid,pdata){
  78. urlholder="<?php echo $root_path; ?>modules/nursing/nursing-ward-patientdata.php<?php echo URL_REDIRECT_APPEND; ?>&pn="+pid+"&patient=" + pdata + "&dept_nr=<?php echo "$dept_nr&pday=$pday&pmonth=$pmonth&pyear=$pyear&op_shortcut=".$_COOKIE['ck_op_pflegelogbuch_user'.$sid]; ?>";
  79. patientwin=window.open(urlholder,pid,"width=700,height=450,menubar=no,resizable=yes,scrollbars=yes");
  80. }
  81. function initall(){
  82. d=window.parent.LOGINPUT.document.oppflegepatinfo.xx2;
  83. if(d) d.value="";
  84. }
  85. // -->
  86. </script>
  87. <?php
  88. require($root_path.'include/helpers/include_header_css_js.php');
  89. ?>
  90. <?php if(!$datafound) { ?>
  91. <script language="javascript" src="<?php echo $root_path; ?>js/showhide-div.js"></script>
  92. <?php } ?>
  93. </HEAD>
  94. <BODY bgcolor=#666666 topmargin=0 leftmargin=0 marginwidth=0 marginheight=0 bgcolor="silver" alink="navy" vlink="navy"
  95. onLoad="window.location.replace('#<?php if ($gotoid) echo $gotoid; else echo 'bot'; ?>');">
  96. <CENTER>
  97. <?php
  98. $opabt=get_meta_tags($root_path.'global_conf/'.$lang.'/op_tag_dept.pid');
  99. echo '
  100. <table cellpadding="3" cellspacing="1" border="0" width="100%">';
  101. echo '
  102. <tr class="wardlisttitlerow"><td colspan=2><nobr>
  103. <a href="oplogmain.php?sid='.$sid.'&lang='.$lang.'&internok='.$internok.'&thisday='.$yesday.'&dept_nr='.$dept_nr.'&saal='.$saal.'" title="'.formatDate2Local($yesday,$date_format).'">
  104. &lt;&lt; '.$LDPrevDay.'</a></td>
  105. <td colspan=3 align=center><FONT SIZE=+1>
  106. <b>';
  107. $buffer=$dept_obj->LDvar();
  108. if(isset($$buffer)&&!empty($$buffer)) echo $$buffer;
  109. else echo $dept_obj->FormalName();
  110. echo ' '.$LDRoom.'-'.strtoupper($saal).' ('.formatDate2Local($thisday,$date_format).')</b></td>';
  111. ?>
  112. <td colspan=2>
  113. <nobr>
  114. <table cellpadding=0 cellspacing=0 border=0>
  115. <form action="oplogmain.php" method="post" name="chgdept" onSubmit="return pruf(this)">
  116. <tr>
  117. <td>
  118. <input type="hidden" name="thisday" value="<?php echo $thisday; ?>">
  119. <input type="hidden" name="sid" value="<?php echo $sid; ?>">
  120. <input type="hidden" name="lang" value="<?php echo $lang; ?>">
  121. <!-- <select name="dept_nr" size=1 onChange="syncDept(this,document.chgdept.saal)"> -->
  122. <select name="dept_nr" size=1>
  123. <?php
  124. while(list($x,$v)=each($surgery_arr))
  125. {
  126. if($x==42) continue;
  127. echo'
  128. <option value="'.$v['nr'].'"';
  129. if ($dept_nr==$v['nr']) echo " selected";
  130. echo '>';
  131. $buffer=$v['LD_var'];
  132. if(isset($$buffer)&&!empty($$buffer)) echo $$buffer;
  133. else echo $v['name_formal'];
  134. echo '</option>';
  135. }
  136. ?>
  137. </select>
  138. </td>
  139. <td>
  140. <!-- <select name="saal" size=1 onChange="syncSaal(this,document.chgdept.dept)"> -->
  141. <select name="saal" size=1>
  142. <?php
  143. if(is_object($ORNrs)){
  144. while($ORnr=$ORNrs->FetchRow())
  145. {
  146. echo'
  147. <option value="'.$ORnr['room_nr'].'"';
  148. if ($saal==$ORnr['room_nr']) echo ' selected';
  149. echo '> '.$ORnr['room_nr'].'</option>';
  150. }
  151. }
  152. ?>
  153. </select>
  154. </td>
  155. <td>&nbsp;
  156. <input type="submit" value="<?php echo $LDChange ?>" >
  157. </td>
  158. </tr></form>
  159. </table>
  160. </nobr>
  161. <?php
  162. echo '
  163. </td>
  164. <td colspan=1 align=middle>
  165. <form>
  166. <a href="javascript:gethelp(\'oplog.php\',\'create\',\'logmain\')"><img '.createComIcon($root_path,'frage.gif','0','absmiddle').' alt="'.$LDHelp.'"></a>
  167. <input type="button" value="'.$LDRefreshWindow.'" title="'.$LDRefreshWindow.'" onclick="window.location.reload()"></form>
  168. </td>
  169. <td colspan=1 align=right>';
  170. if($thisday!=$today){
  171. echo '
  172. <a href="oplogmain.php?sid='.$sid.'&lang='.$lang.'&internok='.$internok.'&thisday='.$tomorow.'&dept_nr='.$dept_nr.'&saal='.$saal.'" title="'.formatDate2Local($tomorow,$date_format).'"><nobr>'.$LDNextDay.' &gt;&gt;</a>';
  173. }
  174. echo '
  175. </td></tr>';
  176. if($datafound){
  177. echo '
  178. <tr bgcolor="#f9f9f9" >';
  179. while(list($x,$v)=each($LDOpMainElements))
  180. echo '
  181. <td><font face="verdana,arial" size="1"><b>&nbsp;'.$v.'</b></td>';
  182. echo '
  183. </tr>';
  184. }
  185. while($pdata=$ergebnis->FetchRow())
  186. {
  187. if ($toggler==0)
  188. { echo '
  189. <tr bgcolor="#fdfdfd">'; $toggler=1;}
  190. else { echo '
  191. <tr bgcolor="#fdfdfd">'; $toggler=0;}
  192. echo '<a name="'.$pdata['op_nr'].'"></a>
  193. <td valign=top><font face="verdana,arial" size="1" ><font size=2 color=red><b>'.$pdata['op_nr'].'</b></font>
  194. <hr>'.formatDate2Local($pdata['op_date'],$date_format).'<br>';
  195. list($pyear,$pmonth,$pday)=explode('-',$pdata['op_date']);
  196. echo $tage[date(w,mktime(0,0,0,$pmonth,$pday,$pyear))].'<br>
  197. <a href="oploginput.php?sid='.$sid.'&lang='.$lang.'&internok='.$internok.'&mode=edit&enc_nr='.$pdata['encounter_nr'].'&dept_nr='.$dept_nr.'&saal='.$saal.'&op_nr='.$pdata['op_nr'].'&thisday='.$pdata['op_date'].'" target="LOGINPUT" >
  198. <img '.createComIcon($root_path,'dwnarrowgrnlrg.gif','0').' alt="'.str_replace("~tagword~",$pdata['lastname'],$LDEditPatientData).'"></a>
  199. </td>';
  200. /* echo $tage[date(w,mktime(0,0,0,$pmonth,$pday,$pyear))].'<br>
  201. <a href="oploginput.php?sid='.$sid.'&lang='.$lang.'&internok='.$internok.'&mode=edit&enc_nr='.$pdata['encounter_nr'].'&dept_nr='.$dept_nr.'&saal='.$saal.'&op_nr='.$pdata['op_nr'].'&pyear='.$pyear.'&pmonth='.$pmonth.'&pday='.$pday.'" target="LOGINPUT" >
  202. <img '.createComIcon($root_path,'dwnarrowgrnlrg.gif','0').' alt="'.str_replace("~tagword~",$pdata['lastname'],$LDEditPatientData).'"></a>
  203. </td>';
  204. */ echo '
  205. <td valign=top><nobr><font face="verdana,arial" size="1" color=blue>
  206. <a href="javascript:getinfo(\''.$pdata['encounter_nr'].'\')">
  207. <img '.createComIcon($root_path,'info2.gif','0').' alt="'.str_replace("~tagword~",$pdata['lastname'],$LDOpenPatientFolder).'"></a> ';
  208. //echo ($pdata['encounter_class_nr']==1)?($pdata['encounter_nr']+$GLOBAL_CONFIG['patient_inpatient_nr_adder']) : ($pdata['encounter_nr']+$GLOBAL_CONFIG['patient_outpatient_nr_adder']);
  209. echo $pdata['encounter_nr'];
  210. echo '<br>
  211. <font color=black><b>'.$pdata['name_last'].', '.$pdata['name_first'].'</b><br>'.formatDate2Local($pdata['date_birth'],$date_format).'<p>
  212. <font color="#000000">'.$pdata['addr_str'].' '.$pdata['addr_str_nr'].'<br>'.$pdata['addr_zip'].' '.$pdata['citytown_name'].'</font><br></td>';
  213. echo '
  214. <td valign=top width=150><font face="verdana,arial" size="1" >';
  215. echo '
  216. <font color="#cc0000">'.$LDOpMainElements['diagnosis'].':</font><br>';
  217. echo nl2br($pdata['diagnosis']);
  218. echo '
  219. </td><td valign=top><font face="verdana,arial" size="1" ><nobr>';
  220. $ebuf=array("operator","assistant","scrub_nurse","rotating_nurse");
  221. //$tbuf=array("O","A","I","S");
  222. //$cbuf=array("Operateur","Assistent","Instrumenteur","Springer");
  223. for($n=0;$n<sizeof($ebuf);$n++)
  224. {
  225. if(!$pdata[$ebuf[$n]]) continue;
  226. echo '<font color="#cc0000">'.$cbuf[$n].'</font><br>';
  227. $dbuf=explode("~",$pdata[$ebuf[$n]]);
  228. for($i=0;$i<sizeof($dbuf);$i++)
  229. {
  230. parse_str(trim($dbuf[$i]),$elems);
  231. if($elems[n]=="") continue;
  232. else echo '&nbsp;'.$elems[n]." ".$tbuf[$n].$elems[x]."<br>";
  233. }
  234. }
  235. echo '
  236. </td>
  237. <td valign=top><font face="verdana,arial" size="1" >'.$LDAnaTypes[$pdata['anesthesia']].'<p>';
  238. if($pdata[an_doctor])
  239. {
  240. echo '<font color="#cc0000">'.$LDAnaDoc.'</font><br><font color="#000000">';
  241. $dbuf=explode("~",$pdata[an_doctor]);
  242. for($i=0;$i<sizeof($dbuf);$i++)
  243. {
  244. parse_str(trim($dbuf[$i]),$elems);
  245. if($elems[n]=="") continue;
  246. else echo '&nbsp;'.$elems[n].' '.$LDAnaPrefix.$elems[x].'<br>';
  247. }
  248. echo '</font>';
  249. }
  250. echo '
  251. </td>
  252. <td valign=top><font face="verdana,arial" size="1" >';
  253. $cc=explode("~",$pdata['cut_close']);
  254. for($i=0;$i<sizeof($cc);$i++)
  255. {
  256. parse_str($cc[$i],$ccbuf);
  257. echo '<font face="verdana,arial" size="1" color="#cc0000">'.$LDOpCut.':</font><br>'.strtr($ccbuf['s'],'.',':').'<br>
  258. <font face="verdana,arial" size="1" color="#cc0000">'.$LDOpClose.':</font><br>'.strtr($ccbuf['e'],'.',':').'<br>';
  259. if(trim($ccbuf['s'])=='') break;
  260. }
  261. echo '
  262. </td>
  263. <td valign=top><font face="verdana,arial" size="1" color="#cc0000">'.$LDOpMainElements['therapy'].':<font color=black><br>'.nl2br($pdata['op_therapy']).'</td>';
  264. echo '
  265. <td valign=top><nobr><font face="verdana,arial" size="1" color="#cc0000">'.$LDOpMainElements[result].':<br>';
  266. echo '<font color=black>'.nl2br($pdata['result_info']).'</td>';
  267. echo '
  268. <td valign=top><font face="verdana,arial" size="1" >';
  269. $eo=explode("~",$pdata['entry_out']);
  270. for($i=0;$i<sizeof($eo);$i++)
  271. {
  272. parse_str($eo[$i],$eobuf);
  273. echo '<font face="verdana,arial" size="1" color="#cc0000">'.$LDOpIn.':</font><br>'.strtr($eobuf['s'],'.',':').'<br>
  274. <font face="verdana,arial" size="1" color="#cc0000">'.$LDOpOut.':</font><br>'.strtr($eobuf['e'],'.',':').'<br>';
  275. if(trim($eobuf['s'])=='') break;
  276. }
  277. echo '
  278. </td>
  279. </tr>';
  280. }
  281. echo '
  282. </table>';
  283. if(!$datafound)
  284. {
  285. echo '<p>';
  286. if ($thisday != $today)
  287. {
  288. echo '
  289. <MAP NAME="catcom">
  290. <AREA SHAPE="RECT" COORDS="158,90,230,110" HREF="op-care-log-xtsuch-start.php?sid='.$sid.'&lang='.$lang.'&mode=fresh&dept_nr='.$dept_nr.'&saal='.$saal.'&child=1" target="_parent" title="'.$LDSearchPatient.' ['.$LDOrLogBook.']" >
  291. </MAP><img ismap usemap="#catcom" '.createLDImgSrc($root_path,'cat-com2.gif','0').'>';
  292. ?>
  293. <DIV id=dLogoTable style=" VISIBILITY: hidden; POSITION: relative">
  294. <table border=0 bgcolor="#33333" cellspacing=0 cellpadding=1>
  295. <tr>
  296. <td>
  297. <table border=0 bgcolor="#ffffee" >
  298. <tr>
  299. <td><font size=2 face="verdana,arial">
  300. &nbsp;<a href="#" onmouseover=clearTimeout(timer) onmouseout="timer=setTimeout('hsm()',500)" ><img <?php echo createComIcon($root_path,'redpfeil.gif','0','absmiddle') ?>> <?php echo $LDShowPrevLog ?></a>&nbsp;<br>
  301. &nbsp;<a href="#" onmouseover=clearTimeout(timer) onmouseout="timer=setTimeout('hsm()',500)" ><img <?php echo createComIcon($root_path,'redpfeil.gif','0','absmiddle') ?>> <?php echo $LDShowNextLog ?></a>&nbsp;<br>
  302. &nbsp;<a href="#" onmouseover=clearTimeout(timer) onmouseout="timer=setTimeout('hsm()',500)" ><img <?php echo createComIcon($root_path,'redpfeil.gif','0','absmiddle') ?>> <?php echo $LDShowGuideCal ?></a>&nbsp;<br></font>
  303. </td>
  304. </tr>
  305. </table>
  306. </td>
  307. </tr>
  308. </table>
  309. </DIV>
  310. <?php
  311. /*echo '<img src="../img/'.$lang.'/'.$lang.'_cat-com2.gif">';*/
  312. }elseif(!$firstentry){
  313. $buffy=str_replace(" ","+",$_SESSION['sess_user_name']);
  314. echo '<img src="'.$root_path.'include/imgcreator/catcom.php?lang='.$lang.'&person='.$buffy.'">';
  315. }
  316. }
  317. ?>
  318. <a name="bot"></a>
  319. </BODY>
  320. </HTML>