<html><head><meta name="qrichtext" content="1" /></head><body style="font-size:9pt;font-family:Courier">
<p><span style="font-size:10pt">{{\<br />{{REM= ---------------------- test du statut d'impression -----------------------------}}\<br />{{REM=                    ne faire appel à la liste des medecins                       }}\<br />{{REM=                    que si il n'y a pas encore eu de resolution                  }}\<br />{{REM=                    de macro lors de l'impression                                }}\<br />{{REM=                    sous Mac DO_LISTE ne doit pas etre re-executee lors          }}\<br />{{REM=                    d'un changement d'en-tete                                    }}\</span><br /><span style="font-size:10pt"><br />{{:: SET_VAR(actionDoListe,{{:: TEST(S,{{VAR=$SCRIPT_STATUS}},=,$PRINT_SCRIPT_END,M_NOP,DO_LISTE)}})}}\<br />{{:: SET_VAR(actionDoListe,{{:: TEST(S,{{OS}},=,M,{{:: TEST(S,{{VAR=$SCRIPT_STATUS}},=,$PRINT_HEADER_CHANGED,M_NOP,{{VAR=actionDoListe}})}},{{VAR=actionDoListe}})}})}}<br />{{:: SET_VAR(resultatDoListeEnteteCourrier,{{::{{VAR=actionDoListe}}({{::#SQL_SELECT (Personnes , Nom |Prenom|ID_PrimKey,WHERE NumOrdre!='' , 30,::,|) }},Choix du mécecin destinataire,|,retourChoixMedecinPrint,2)}})}}\<br />{{:: VAR_SPLIT(AdressePar_,{{VAR=resultatDoListeEnteteCourrier}},::)}}\<br />{{REM= -------------- utilisation par la suite des renseigments du choix --------------}}\<br />{{REM=                pour selectionner les renseignements du destinataire             }}\<br />{{:: SQL_SELECT (Personnes,Nom|Prenom|Adresse|CodePostal|Ville|ID_PrimKey,WHERE ID_PrimKey='{{VAR=AdressePar_2}}',1,$SET_VAR)}}\<br />{{REM= --------------  creation des variables des contenus des cadres -----------------}}\<br />{{::#SET_VAR(cadreGauche,&lt;center&gt;{{TITRE PS}} {{NOM PRENOM MEDECIN}}&lt;br&gt;{{IDENTIFICATION MEDECIN}}&lt;br&gt;{{CONVENTION MEDECIN}}&lt;br&gt;{{USER ADRESSE COMPLETE MEDECIN}}&lt;br&gt;Tél. {{TEL_1_MEDECIN}})}}\<br />{{::#SET_VAR(cadreCentral, )}}\<br />{{::#SET_VAR(cadreDestinataire,&lt;br&gt;&lt;br&gt;&lt;br&gt;&lt;br&gt;{{VAR=Personnes.Nom0}} {{VAR=Personnes.Prenom0}}&lt;br&gt;{{VAR=Personnes.Adresse0}}&lt;br&gt;{{VAR=Personnes.CodePostal0}} {{VAR=Personnes.Ville0}})}}\<br />{{REM= -------------- si choix annuler stocker la mention  $PRINT_STOP ----------------}}\<br />{{REM=               d'annulation de l'impression dans retourChoixMedecinPrint         }}\<br />{{::#SET_VAR(retourChoixMedecinPrint,{{::#TEST(S,{{VAR=retourChoixMedecinPrint}},=,Rejected,$PRINT_STOP,)}})}}\<br />}}<br />{{REM= --------------  affichage des cadres -------------------------------------------}}<br />{{::#CADRE(100%,0, 0 ,0 ,right,&lt;br&gt;,$WIDTH 25% $END_WIDTH{{VAR=cadreGauche}},$WIDTH 45% $END_WIDTH{{VAR=cadreCentral}},$WIDTH 30% $END_WIDTH{{VAR=cadreDestinataire}})}}<br />{{REM= ----------------------- si choix annuler afficher  $PRINT_STOP -----------------}}<br />{{REM=                    que si il n'ya pas de changement d'entete                    }}<br />{{::#TEST(S,{{VAR=$SCRIPT_STATUS}},=,$PRINT_HEADER_CHANGED, ,{{VAR=retourChoixMedecinPrint}})}}<br /><br /><br /><br /><br /><br /><br /></span></p>
</body></html>
