$prat =& $mbPrescription->_ref_praticien;
$tagCode4 = "labo code4";
$idSantePratCode4 = new CIdSante400();
$idSantePratCode4->loadLatestFor($prat, $tagCode4);
// Chargement de l'id400 "labo code9" du praticien
$tagCode9 = "labo code9";
$idSantePratCode9 = new CIdSante400();
$idSantePratCode9->loadLatestFor($prat, $tagCode9);
// Si le praticien n'a pas d'id400, il ne peut pas envoyer la prescription
if (!$idSantePratCode4->_id || !$idSantePratCode9->_id) {
CAppUI::setMsg("Le praticien n'a pas d'id400 pour le catalogue LABO", UI_MSG_ERROR);
redirect();
}
$tagCatalogue = CAppUI::conf('dPlabo CCatalogueLabo remote_name');
// Chargement de la valeur de l'id externe de la prescription ==> retourne uniquement l'id400
$idexPresc = $mbPrescription->loadIdPresc();
// Gestion du sexe du patient
$transSexe["m"] = "1";
$transSexe["f"] = "2";
$mbPatient =& $mbPrescription->_ref_patient;
// Gestion du titre du patient
if ($mbPatient->sexe == "m") {
if ($mbPatient->_annees >= 0 && $mbPatient->_annees <= 3) {
$titre_ = "Bébé garçon";
}
if ($mbPatient->civilite == "enf") {
$titre_ = "Enfant garçon";
}
if ($mbPatient->civilite == "m") {
$titre_ = "Monsieur";
}
$pdf->Ln();
$tagCatalogue = CAppUI::conf('dPlabo CCatalogueLabo remote_name');
// Chargement de l'id externe labo code4 du praticien
// Chargement de l'id400 "labo code4" du praticien
$tagCode4 = "labo code4";
$idex = new CIdSante400();
$idex->loadLatestFor($praticien, $tagCode4);
if ($idex->id400) {
$numPrat = $idex->id400;
$numPrat = str_pad($numPrat, 4, '0', STR_PAD_LEFT);
} else {
$numPrat = "xxxx";
}
// Chargement de la valeur de l'id externe de la prescription ==> retourne uniquement l'id400
if ($prescription->verouillee) {
$idex = $prescription->loadIdPresc();
$idex = str_pad($idex, 4, '0', STR_PAD_LEFT);
} else {
$idex = "xxxx";
}
$num = $numPrat . $idex;
// Initialisation du code barre, => utilisation par default du codage C128B
// L'affichage du code barre est realisee dans la fonction redefinie Footer dans la classe CPrescriptionPdf
$pdf->SetBarcode($num, $prescription->_ref_praticien->_user_last_name, substr($prescription->_ref_patient->_view, 0, 20), $prescription->_ref_patient->sexe, CMbDT::transform($prescription->_ref_patient->naissance, null, "%d-%m-%y"), CMbDT::transform($prescription->date, null, "%d-%m-%y %H:%M"));
// Tableau de classement des analyses par pack
foreach ($prescription->_ref_prescription_items as $key => $item) {
if ($item->_ref_pack->_id) {
$tab_pack_prescription[$item->_ref_pack->_view][] = $item;
} else {
$tab_prescription[] = $item;
}
