Ejemplo n.º 1
0
// En l'état on ne peut pas vérifier les droits sur dPcabinet
// CCanDo::checkRead();
$patient_id = CValue::get("patient_id");
$consult_id = CValue::get("consult_id");
// On charge le praticien
$user = CMediusers::get();
$user->loadRefs();
$canUser = $user->canDo();
$consult = new CConsultation();
if ($consult_id) {
    $consult->load($consult_id);
    $consult->loadRefsFwd();
}
// Chargement des aides à la saisie
$antecedent = new CAntecedent();
$antecedent->loadAides($user->_id);
$aides_antecedent = $antecedent->_aides_all_depends["rques"] ? $antecedent->_aides_all_depends["rques"] : array();
// On charge le patient pour connaitre ses antécedents et traitements actuels
$patient = new CPatient();
$patient->load($patient_id);
$patient->loadRefDossierMedical();
$dossier_medical = $patient->_ref_dossier_medical;
$dossier_medical->loadRefsAntecedents();
$dossier_medical->loadRefsTraitements();
$applied_antecedents = array();
foreach ($dossier_medical->_ref_antecedents_by_type as $list) {
    foreach ($list as $a) {
        if (!isset($applied_antecedents[$a->type])) {
            $applied_antecedents[$a->type] = array();
        }
        $applied_antecedents[$a->type][] = $a->rques;