/**
* OBX Segment with reference pointer to external report
*
* @param DOMNode $OBX DOM node
* @param CMbObject $object object
* @param String $name name
*
* @return bool
*/
function getReferencePointerToExternalReport(DOMNode $OBX, CMbObject $object, $name)
{
$exchange_hl7v2 = $this->_ref_exchange_hl7v2;
$sender = $exchange_hl7v2->_ref_sender;
//Récupération de l'emplacement et du type du fichier (full path)
$observation = $this->getObservationValue($OBX);
$rp = explode("^", $observation);
$pointer = CMbArray::get($rp, 0);
$type = CMbArray::get($rp, 2);
// Création d'un lien Hypertext sur l'objet
if ($type == "HTML") {
$hyperlink = new CHyperTextLink();
$hyperlink->setObject($object);
$hyperlink->name = $name;
$hyperlink->link = $pointer;
$hyperlink->loadMatchingObject();
if ($msg = $hyperlink->store()) {
$this->codes[] = "E343";
return false;
}
return true;
}
// Chargement des objets associés à l'expéditeur
/** @var CInteropSender $sender_link */
$object_links = $sender->loadRefsObjectLinks();
if (!$object_links) {
$this->codes[] = "E340";
return false;
}
$sender_link = new CInteropSender();
$files_category = new CFilesCategory();
// On récupère toujours une seule catégorie, et une seule source associée à l'expéditeur
foreach ($object_links as $_object_link) {
if ($_object_link->_ref_object instanceof CFilesCategory) {
$files_category = $_object_link->_ref_object;
}
if ($_object_link->_ref_object instanceof CInteropSender) {
$sender_link = $_object_link->_ref_object;
continue 1;
}
}
// Aucun expéditeur permettant de récupérer les fichiers
if (!$sender_link->_id) {
$this->codes[] = "E340";
return false;
}
$authorized_sources = array("CSenderFileSystem", "CSenderFTP");
// L'expéditeur n'est pas prise en charge pour la réception de fichiers
if (!CMbArray::in($sender_link->_class, $authorized_sources)) {
$this->codes[] = "E341";
return false;
}
$sender_link->loadRefsExchangesSources();
// Aucune source permettant de récupérer les fichiers
if (!$sender_link->_id) {
$this->codes[] = "E342";
return false;
}
$source = $sender_link->getFirstExchangesSources();
$path = str_replace("\\", "/", $pointer);
$path = basename($path);
if ($source instanceof CSourceFileSystem) {
$path = $source->getFullPath() . "/{$path}";
}
// Exception déclenchée sur la lecture du fichier
try {
$content = $source->getData("{$path}");
} catch (Exception $e) {
$this->codes[] = "E345";
return false;
}
if (!$type) {
$type = CMbPath::getExtension($path);
}
$file_type = $this->getFileType($type);
$file_name = $this->getObservationFilename($OBX);
// Gestion du CFile
$file = new CFile();
$file->setObject($object);
$file->file_name = $file_name ? $file_name : $name;
$file->file_type = $file_type;
$file->loadMatchingObject();
if ($files_category->_id && $sender->_configs["associate_category_to_a_file"]) {
$file->file_category_id = $files_category->_id;
}
$file->file_date = "now";
$file->doc_size = strlen($content);
$file->fillFields();
$file->updateFormFields();
$file->putContent($content);
if ($msg = $file->store()) {
$this->codes[] = "E343";
}
$this->codes[] = "I340";
return true;
}
