function sortie_carpentras(clPatient $patient)
{
//suppression des instances de formulaires
$res = clFoRmXtOoLs::ListFromIds($patient->getIDU());
if (is_array($res) && $res['INDIC_SVC'][2] > 0) {
for ($i = 0; $i < $res['INDIC_SVC'][2]; $i++) {
//formulaires à effacer
if (in_array($res['idformx'][$i], array('CHC_Fiche_Administrative', 'CHC_Fiche_Examen_Medical', 'CHC_Fiche_IAO-IDE', 'CHC_Fiche_Suivi'))) {
//mettre ici les id de formulaires à effacer
$idInstance = $res['id_instance'][$i];
formxTools::simpleRemoveInstance($idInstance);
}
//formulaires à cloturer
if (in_array($res['idformx'][$i], array('CHC_Synthese'))) {
//mettre ici les id de formulaires à effacer
$idInstance = $res['id_instance'][$i];
$formx = new clFoRmX_manip($patient->getIDU(), 'NO_POST_THREAT');
$formx->loadInstance($idInstance);
$formx->close();
}
}
}
//suppression des variables globales
$tabVariables = array('Fiche_Administrative_Rep_Legal', 'ALD', 'Fiche_Administrative_Pansement', 'Fiche_Administrative_Non_Venu', 'Fiche_Administrative_Orientation', 'Fiche_Administrative_Etablissement', 'Fiche_Administrative_Documents', 'Fiche_Administrative_AT', 'Fiche_Administrative_date_AT', 'Fiche_Administrative_heure_AT', 'Fiche_Administrative_minute_AT', 'IDE_CTE_ARRIVEE', 'DATE_CTE_ARRIVEE', 'HEURE_CTE_ARRIVEE', 'PA_BG_CTE_ARRIVEE', 'PA_BD_CTE_ARRIVEE', 'FC_CTE_ARRIVEE', 'TEMP_CTE_ARRIVEE', 'HB_CTE_ARRIVEE', 'SAO2_CTE_ARRIVEE', 'DEXTRO_CTE_ARRIVEE', 'EVA_CTE_ARRIVEE', 'FR_CTE_ARRIVEE', 'ACTES_CTE_ARRIVEE', 'Fiche_IAO_Nom_IDE', 'Fiche_IAO_Jour_Consultation', 'Fiche_IAO_Heure_Consultation', 'Fiche_IAO_Accompagnant', 'Fiche_IAO_qui', 'Fiche_IAO_lettre_medecin', 'Fiche_IAO_ordonnance', 'Fiche_IAO_Traitement', 'Fiche_IAO_VAT', 'Fiche_IAO_Tetanos', 'Fiche_IAO_Bandelette_Urinaire', 'IAO_Glucose', 'IAO_Acetone', 'IAO_Sang', 'IAO_PH', 'IAO_Proteine', 'IAO_Nitrite', 'IAO_Leuco', 'Fiche_IAO_Actes', 'DATE_EXAM', 'HEURE_EXAM', 'ACTES_CTE_ARRIVEE', 'ATCD', 'ALLERGIES', 'TRAITEMENTS', 'OBSERVATIONS_MEDICALES');
$obGlobals = formxTools::globalsLoad($patient->getIDU());
foreach ($tabVariables as $variable) {
$obGlobals->del($variable);
}
$obGlobals->save();
}
function sortie_carpentras(clPatient $patient)
{
//suppression des instances de formulaires
$res = clFoRmXtOoLs::ListFromIds($patient->getIDU());
if (is_array($res) && $res['INDIC_SVC'][2] > 0) {
for ($i = 0; $i < $res['INDIC_SVC'][2]; $i++) {
if (in_array($res['idformx'][$i], array('tutorial', 'bachibouzouk', 'arrosoir'))) {
//mettre ici les id de formulaires à effacer
$idInstance = $res['id_instance'][$i];
formxTools::simpleRemoveInstance($idInstance);
}
}
}
//suppression des variables globales
$pGlobals = formxTools::globalsLoad($patient->getIDU());
formxTools::globalsDelVar($pGlobals, 'pipou');
formxTools::globalsDelVar($pGlobals, 'pipoux');
formxTools::globalsDelVar($pGlobals, 'papux');
formxTools::globalsDelVar($pGlobals, 'gnafouix');
formxTools::globalsSave($pGlobals);
}
function ListFromIds($status = '')
{
return clFoRmXtOoLs::ListFromIds($this->ids, $status);
}
static function genCase($ids, $bubulle)
{
global $formxSession;
if (!is_object($formxSession)) {
$formxSession = new formxSession();
}
// Chargement du template ModeliXe.
$mod = new ModeliXe("FX_blocActions.mxt");
$mod->SetModeliXe();
$nbActions = 0;
//la en fait on ne genere pas un lien, qui serait la solution la plus simple, mais l'enjeu est de tout gerer (Post, variables de la classe...) lors de la crïéation de la classe. On ne touche pas aux variables de navigation. Donc on va crïéer un champ qui - pour l'utilisateur - ressemble comme deux gouttes d'eau ïé un lien mais qui en fait est un appel javascript remplissant un champ cachïé par une variable donnïée.
foreach (array("F", "E", "I") as $etat) {
$data = clFoRmXtOoLs::ListFromIds($ids, $etat);
for ($i = 0; isset($data['id_instance'][$i]); $i++) {
if (clFoRmXtOoLs::printLigneForm($i, $mod, $etat, true, $bubulle, $data)) {
$nbActions++;
}
}
}
$mod->Mxattribut("newact_code", "document.FoRmXcase.FormX_ext_goto_.value = 'new';document.FoRmXcase.submit();");
if ($nbActions == 0) {
$mod->MxBloc("actions.frem", "delete");
$mod->MxBloc("titre", "delete");
} else {
$mod->MxBloc("padetitre", "delete");
}
$mod->MxHidden("hidden", "navi=" . $formxSession->genNavi($formxSession->getNavi(0), $formxSession->getNavi(1), $formxSession->getNavi(2)));
return $mod->MxWrite("1");
}
static function rangerDossMedAEV($patientArg)
{
global $patient;
$patient = $patientArg;
$res = clFoRmXtOoLs::ListFromIds($patient->getIDU(), array('F', 'E', 'I'));
//eko($res);
$formAnt = "";
if (is_array($res)) {
for ($i = 0; $i < $res['INDIC_SVC'][2]; $i++) {
if ($res['idformx'][$i] == 'Dossier_AEV_Synthese') {
$formAnt = $res['id_instance'][$i];
break;
}
}
}
if (!$formAnt) {
return false;
}
$form = new clFoRmX_manip($patient->getIDU());
$form->loadInstance($formAnt);
$form->close('H');
$form->passDocopi();
}
