示例#1
0
 * @subpackage Urgences
 * @author     SARL OpenXtrem <*****@*****.**>
 * @license    GNU General Public License, see http://www.gnu.org/licenses/gpl.html
 * @version    $Revision$
 */
CCanDo::checkRead();
$rpu_id = CValue::get("rpu_id", 0);
$offline = CValue::get("offline", 0);
$today = date("d/m/Y");
// Création du rpu
$rpu = new CRPU();
$rpu->load($rpu_id);
if ($offline) {
    $rpu->loadRefSejour();
} else {
    $rpu->loadComplete();
}
$rpu->loadRefSejourMutation();
$sejour = $rpu->_ref_sejour;
$sejour->loadRefsConsultations();
$sejour->loadListConstantesMedicales();
$sejour->loadSuiviMedical();
$patient = $sejour->_ref_patient;
$patient->loadRefLatestConstantes();
$patient->loadIPP();
$patient->loadRefDossierMedical();
$patient->loadRefsCorrespondantsPatient();
$patient->loadRefsCorrespondants();
$patient->loadRefPhotoIdentite();
$dossier_medical = $patient->_ref_dossier_medical;
$dossier_medical->countAntecedents();