* @author SARL OpenXtrem <*****@*****.**> * @license GNU General Public License, see http://www.gnu.org/licenses/gpl.html * @version $Revision: $ */ CCanDo::checkRead(); $today = date("d/m/Y"); $consult_id = CValue::get("consult_id", 0); //Création de la consultation $consult = new CConsultation(); $consult->load($consult_id); $consult->loadRefPatient(); $consult->loadRefSejour(); $consult->loadRefPraticien(); $consult->loadRefsBack(); $consult->loadRefsDocs(); $consult->loadComplete(); $sejour = $consult->_ref_sejour; $sejour->loadRefsConsultations(); $sejour->loadListConstantesMedicales(); $sejour->loadNDA(); $sejour->loadSuiviMedical(); $sejour->loadExtDiagnostics(); $patient = $consult->_ref_patient; $patient->loadIPP(); $patient->loadRefDossierMedical(); $dossier_medical = $patient->_ref_dossier_medical; $dossier_medical->countAntecedents(); $dossier_medical->countTraitements(); $dossier_medical->loadRefPrescription(); $dossier_medical->loadRefsTraitements(); $constantes_medicales_grid = CConstantesMedicales::buildGrid($sejour->_list_constantes_medicales, false);