* $Id$ * * @package Mediboard * @subpackage Patients * @author SARL OpenXtrem <*****@*****.**> * @license GNU General Public License, see http://www.gnu.org/licenses/gpl.html * @version $Revision$ */ CCanDo::checkRead(); // Définition des variables $patient_id = CValue::get("patient_id", 0); //Récupération du dossier complet patient $patient = new CPatient(); $patient->load($patient_id); $patient->loadDossierComplet(); $patient->loadHistory(); // log pour les séjours foreach ($patient->_ref_sejours as $sejour) { $sejour->loadHistory(); // log pour les opérations de ce séjour $sejour->loadRefsOperations(); foreach ($sejour->_ref_operations as $operation) { $operation->loadRefsFwd(); $operation->loadHistory(); } // log pour les affectations de ce séjour $sejour->loadRefsAffectations(); foreach ($sejour->_ref_affectations as $affectation) { $affectation->loadHistory(); $affectation->loadRefsFwd(); }