Care2007/modules/registration_admission/show_diagnostics_result.php

   1 <?php
   2 error_reporting(E_COMPILE_ERROR|E_ERROR|E_CORE_ERROR);
   3 require('./roots.php');
   4 require($root_path.'include/inc_environment_global.php');
   5 /**
   6 * CARE2X Integrated Hospital Information System beta 2.0.1 - 2004-07-04
   7 * GNU General Public License
   8 * Copyright 2002,2003,2004,2005,2006 Elpidio Latorilla
   9 * elpidio@care2x.org,
  10 *
  11 * See the file "copy_notice.txt" for the licence notice
  12 */
  13 $thisfile=basename(__FILE__);
  14 if(!isset($mode)){
  15         $mode='show';
  16 } elseif($mode=='create'||$mode=='update') {
  17
  18 }
  19 $lang_tables=array('departments.php');
  20 require('./include/init_show.php');
  21
  22 if($parent_admit){
  23 $sql="SELECT dr.*, e.encounter_class_nr FROM care_encounter AS e, care_person AS p, care_encounter_diagnostics_report AS dr
  24                 WHERE p.pid=".$HTTP_SESSION_VARS['sess_pid']."
  25                         AND p.pid=e.pid
  26                         AND e.encounter_nr=".$HTTP_SESSION_VARS['sess_en']."
  27                         AND e.encounter_nr=dr.encounter_nr
  28                 ORDER BY dr.create_time DESC";
  29 }else{
  30 $sql="SELECT dr.*, e.encounter_class_nr FROM care_encounter AS e, care_person AS p, care_encounter_diagnostics_report AS dr
  31                 WHERE p.pid=".$HTTP_SESSION_VARS['sess_pid']." AND p.pid=e.pid AND e.encounter_nr=dr.encounter_nr
  32                 ORDER BY dr.create_time DESC";
  33 }
  34
  35
  36 if($result=$db->Execute($sql)){
  37         $rows=$result->RecordCount();
  38         include_once($root_path.'include/care_api_classes/class_department.php');
  39         $dept_obj=new Department();
  40         $depts_array=&$dept_obj->getAll();
  41 }else{
  42         echo $sql;
  43 }
  44
  45 $subtitle=$LDDiagXResults;
  46 $notestype='diagnostics';
  47
  48 $HTTP_SESSION_VARS['sess_file_return']=$thisfile;
  49
  50 $buffer=str_replace('~tag~',$title.' '.$name_last,$LDNoRecordFor);
  51 $norecordyet=str_replace('~obj~',strtolower($subtitle),$buffer);
  52
  53 /* Load GUI page */
  54 require('./gui_bridge/default/gui_show.php');
  55 ?>