Care2007/modules/registration_admission/show_appointment.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 require_once($root_path.'include/care_api_classes/class_appointment.php');
  15 $obj=new Appointment();
  16 //$db->debug=true;
  17
  18 $bPastDateError = FALSE;
  19
  20 #
  21 # Save PID to session. Patch as result of bug report from Francesco and Marco.
  22 #
  23 if((!isset($pid)||!$pid)&&$HTTP_SESSION_VARS['sess_pid']) $pid=$HTTP_SESSION_VARS['sess_pid'];
  24         elseif(isset($pid)&&$pid) $HTTP_SESSION_VARS['sess_pid']=$pid;
  25
  26 if(!isset($mode)){
  27         $mode='show';
  28 } else{
  29
  30         #
  31         # Validate date against past date
  32         #
  33         if($mode=='create'||$mode=='update') {
  34                 include_once($root_path.'include/inc_date_format_functions.php');
  35                 $HTTP_POST_VARS['date']=@formatDate2STD($HTTP_POST_VARS['date'],$date_format);
  36                 $sBufDate = (int) str_replace('-','',$HTTP_POST_VARS['date']);
  37                 $sBufToday = (int) date('Ymd');
  38                 $sBufDate = ($sBufDate - $sBufToday);
  39                 #
  40                 # If date in the past, force mode to "select" and erase date data
  41                 #
  42                 if($sBufDate < 0 ){
  43                         $bPastDateError = TRUE;
  44                         $mode = 'select';
  45                         $date = '';
  46                 }
  47         }
  48
  49         if($mode=='create'||$mode=='update') {
  50
  51                 $HTTP_POST_VARS['time']=@convertTimeToStandard($HTTP_POST_VARS['time']);
  52                 if($mode=='update'){
  53                         if(!isset($HTTP_POST_VARS['remind_mail'])) $HTTP_POST_VARS['remind_mail']='0';
  54                         if(!isset($HTTP_POST_VARS['remind_email'])) $HTTP_POST_VARS['remind_email']='0';
  55                         if(!isset($HTTP_POST_VARS['remind_phone'])) $HTTP_POST_VARS['remind_phone']='0';
  56             $HTTP_POST_VARS['modify_id']=$HTTP_SESSION_VARS['sess_user_name'];
  57             $HTTP_POST_VARS['modify_time'] = date('YmdHis');
  58                         $HTTP_POST_VARS['history']= $obj->ConcatHistory("Update: ".date('Y-m-d H:i:s')." : ".$HTTP_SESSION_VARS['sess_user_name']."\n");
  59                 }else{
  60                         $HTTP_POST_VARS['appt_status']='pending';
  61             $HTTP_POST_VARS['create_id']=$HTTP_SESSION_VARS['sess_user_name'];
  62             $HTTP_POST_VARS['create_time'] = date('YmdHis');
  63             $HTTP_POST_VARS['history'] = "Created: ".date('Y-m-d H:i:s')." ".$HTTP_SESSION_VARS['sess_user_name']."\n";
  64                 }
  65                 include('./include/save_admission_data.inc.php');
  66         }elseif(($mode=='select')&&!empty($nr)){
  67                 $appt_row=$obj->getAppointment($nr);
  68                 if(is_array($appt_row)){
  69                         extract($appt_row);
  70                         //while(list($x,$v)=each($appt_row)) $$x=$v;
  71                 }
  72         }elseif($mode=='appt_cancel'&&!empty($nr)){
  73                         $HTTP_POST_VARS['history']=$obj->ConcatHistory("Cancel: ".date('Y-m-d H:i:s')." : ".$HTTP_SESSION_VARS['sess_user_name']."\n");
  74                         $HTTP_POST_VARS['appt_status']='cancelled';
  75                         $HTTP_POST_VARS['cancel_reason']=$reason;
  76             $HTTP_POST_VARS['modify_id']=$HTTP_SESSION_VARS['sess_user_name'];
  77             $HTTP_POST_VARS['modify_time'] = date('YmdHis');
  78                         $mode='update';
  79                 include('./include/save_admission_data.inc.php');
  80         }
  81
  82 }
  83 $lang_tables=array('prompt.php','departments.php');
  84 require('./include/init_show.php');
  85
  86 if($result=&$obj->getPersonsAppointmentsObj($pid)){
  87         $rows=$result->RecordCount();
  88 }
  89
  90 # Load the encounter classes
  91 require_once($root_path.'include/care_api_classes/class_encounter.php');
  92 $enc_obj=new Encounter;
  93
  94 /* Get all encounter classes */
  95 $encounter_classes=&$enc_obj->AllEncounterClassesObject();
  96
  97 $subtitle=$LDAppointments;
  98 $HTTP_SESSION_VARS['sess_file_return']=$thisfile;
  99
 100 /* Load departments */
 101 require_once($root_path.'include/care_api_classes/class_department.php');
 102 $dept_obj=new Department;
 103 $deptarray=$dept_obj->getAllMedical('name_formal');
 104
 105 $buffer=str_replace('~tag~',$title.' '.$name_last,$LDNoRecordYet);
 106 $norecordyet=str_replace('~obj~',strtolower($subtitle),$buffer);
 107
 108 /* Load GUI page */
 109 require('./gui_bridge/default/gui_show.php');
 110 ?>