Exemplo n.º 1
0
 * $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();
    }