/**
* $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();
$today = date("d/m/Y");
$patient_id = CValue::get("patient_id");
// Création du patient
$patient = new CPatient();
$patient->load($patient_id);
$patient->updateNomPaysInsee();
$patient->loadRefsSejours();
foreach ($patient->_ref_sejours as $sejour) {
$sejour->loadRefPraticien();
$sejour->loadRefsOperations();
$sejour->loadNDA();
foreach ($sejour->_ref_operations as $operation) {
$operation->loadRefPlageOp();
$operation->loadRefChir();
}
}
$patient->loadRefsConsultations();
foreach ($patient->_ref_consultations as $consultation) {
$consultation->loadRefPlageConsult();
}
$patient->loadRefsCorrespondants();
/**
* Add birthplace
*
* @param DOMNode $elParent Parent element
* @param CPatient $patient Patient
*
* @return void
*/
function addBirthPlace(DOMNode $elParent, CPatient $patient)
{
if (!$patient->cp_naissance && !$patient->_pays_naissance_insee && !$patient->lieu_naissance) {
return;
}
$dom = $this->dom;
$birthplace = $dom->addElement($elParent, "birthPlace");
$dom->addAttribute($birthplace, "classCode", "BIRTHPL");
$patient->updateNomPaysInsee();
$addr = $dom->addElement($birthplace, "addr");
$dom->addElement($addr, "postalCode", $patient->cp_naissance);
$dom->addElement($addr, "city", $patient->lieu_naissance);
$dom->addElement($addr, "country", $patient->_pays_naissance_insee);
}