<html><head><meta name="qrichtext" content="1" /></head><body style="font-size:9pt;font-family:Courier">
<p>$start_titlePrélèvement$end_title{{\<br />{{REM=------------------- definir le code de la tache ---------------------- }}\<br />{{:: VAR_SET(CodeTache,BIO P)}}\<br />{{REM=------------------- definir le commentaire --------------------------- }}\<br />{{:: VAR_SET(CommentaireTache,)}}\<br />{{REM=------------------- definir la priorite ------------------------------ }}\<br />{{:: VAR_SET(PrioriteTache,)}}\ <br />{{REM=------------------- definir la duree max ------------------------------ }}\<br />{{:: VAR_SET(DureeMaxEnSecondesTache,600)}}\<br />{{REM=------------------- recuperer le code en cours pour ce patient ---------------------- }}\<br />{{:: VAR_SET(EN_PK_encours, {{:: SQL_SELECT ( ST_encours , EC_PK , WHERE EC_GUIDPatient='{{GUID}}', 1,%,,%0)}})}}\<br />{{REM=------------------- si code en cours pour ce patient vide ---------------------- }}\<br />{{REM= inserer le patient }}\<br />{{:: VAR_SET(NotToDo,{{:: SI(S,{{VAR=EN_PK_encours}},=,,SQL_EXEC,NO_)}})}}\<br />{{REM=------------------- recuperer le GUID de l'utilisateur en cours ---------------------- }}\<br />{{:: VAR_SET(GUID_User, {{:: SQL_SELECT ( Personnes , GUID , WHERE Login='{{USER LOGIN MEDECIN}}', 1,%,,%0)}})}}\<br />{{REM=------------------- requete d'inscription du patient dans la salle d'attente ---------------------- }}\<br />{{:: {{VAR=NotToDo}}(INSERT INTO ST_encours &amp;#40;EC_CodeBox&amp;#44;EC_NomPatient&amp;#44;EC_PrenomPatient&amp;#44;EC_Medecin&amp;#44;EC_GUIDPatient&amp;#44;EC_Replier&amp;#44;EC_Commentaire&amp;#44;EC_HeureEntree&amp;#44;EC_ProgAnnexe&amp;#44;EC_ArgsAnnexe&amp;#41; VALUES &amp;#40;'A1'&amp;#44;'{{NOM PATIENT}}'&amp;#44;'{{PRENOM PATIENT}}'&amp;#44;'{{VAR=GUID_User}}'&amp;#44;'{{GUID}}'&amp;#44;'1'&amp;#44;'URGENCES MARIGNANE'&amp;#44;'{{DT=yyyy-MM-dd hh:mm:ss}}'&amp;#44;'../../drtux/bin/drtux'&amp;#44;'{{USER LOGIN MEDECIN}}|{{USER LOGIN MEDECIN}}|{{GUID}}|{{SQL_GET_DOSS_PK}}'&amp;#41;)}}\<br />{{:: VAR_SET(EN_PK_encours, {{:: SQL_SELECT ( ST_encours , EC_PK , WHERE EC_GUIDPatient='{{GUID}}', 1,%,,%0)}})}}\<br />{{REM=------------------- inscrire une tache pour ce patient ---------------------- }}\<br />{{:: SQL_EXEC(INSERT INTO ST_encours_taches&amp;#40;EN_PK_encours&amp;#44;EN_Code_tache&amp;#44;EN_Comment&amp;#44;EN_HeureDebPrevue&amp;#44;EN_HeureFinPrevue&amp;#44;EN_Priorite&amp;#41;VALUES&amp;#40;'{{VAR=EN_PK_encours}}'&amp;#44;'{{VAR=CodeTache}}'&amp;#44;'{{VAR=CommentaireTache}}'&amp;#44;'{{DT=yyyy-MM-dd hh:mm:ss}}'&amp;#44;'{{:: DATE_CALC({{DT=dd-MM-yyyy hh:mm:ss}},{{VAR=DureeMaxEnSecondesTache}},+,S,yyyy-MM-dd hh:mm:ss)}}'&amp;#44;'{{VAR=PrioriteTache}}'&amp;#41;)}}\<br />}}<br /><span style="font-weight:600">Programmer</span> : Prélèvement le à : {{DT=yyyy-MM-dd hh:mm:ss}}</p>
</body></html>
