{{\
{{:: ECHO(== start : <font color=#00c0ff>{{MACRO NAME}}</font> for <font color=#ff0000>{{ITEM_NAME}}</font> ==)}}\
{{:: SET_VAR( htmlPage, )}}\
{{:: SET_VAR( indexList, )}}\
{{:: SET_VAR( index_0, )}}\
{{:: SET_VAR( index_1, )}}\
{{:: SET_VAR( index_2, )}}\
{{:: SET_VAR( niveau_un_Url, )}}\
{{:: SET_VAR( niveau_2_Url, )}}\
{{:: SET_VAR( itemMatchData, )}}\
{{:: SET_VAR( indexCut, )}}\
{{:: SET_VAR( toDo, )}}\
{{:: SET_VAR( notFound, )}}\
{{:: SET_VAR( retryPageLoad, )}}\
{{:: SET_VAR( $NombreEssais ,2)}}\

{{:: REM (------------------------------ charger page de premier niveau ---------------------------------------------------)}}\
{{:: SET_VAR(niveau_un_Url,http://www.theriaque.org/InfoMedicaments/RechercheParMedicament/l_rechercheSousChaine.cfm?minListe=1&table=CIP&critere={{CIP7}})}}\
{{:: LOAD_URL_IN_VAR( htmlPage, {{:: VAR(niveau_un_Url)}} )}}\

{{:: REM (------------------------------ verifier si page de log nous est envoyee -----------------------------------------)}}\
{{:: SET_VAR(isLogin, {{:: INDEX_OF(VAR=htmlPage,riaque Identification)}} )}}\
{{:: SET_VAR(doLogin,{{:: SI ( S,{{:: VAR(isLogin)}},=,-1,DO_NOT,)}})}}\

{{:: REM (------------------------------ si page de log poster les identifiants -------------------------------------------)}}\
{{:: REM (                               recharger la page de premier niveau                                               )}}\
{{:: {{:: VAR(doLogin)}}ECHO(.. login en cours ..)}}\
{{:: {{:: VAR(doLogin)}}POST_DATA(login={{LOGIN}}&password={{PASSWORD}},http://www.theriaque.org/InfoMedicaments/RechercheParMedicament/../../Cerbere/securite.cfm)}}\
{{:: {{:: VAR(doLogin)}}LOAD_URL_IN_VAR( htmlPage, {{:: VAR(niveau_un_Url)}} )}}
{{:: {{:: VAR(doLogin)}}ECHO(.. login fini ..)}}\

{{:: REM ( 00 ------------------------------ extraire de la page reçue l'index du produit -------------------------------------------)}}\
{{:: SET_VAR(indexList,{{:: EXTRACT( VAR = htmlPage ,A href="javascript:choixListe\(','\);"><IMG,,,$text$commaProtect)}})}}\
{{:: VAR_SPLIT(index_,{{:: VAR(indexList)}},'\,',$commaProtect)}}\
{{:: _ECHO(.      index_0 {{:: VAR(index_0)}})}}\
{{:: _ECHO(.      index_1 {{:: VAR(index_1)}})}}\
{{:: _ECHO(.      index_2 {{:: VAR(index_2)}})}}\

{{:: SET_VAR(toDo, {{:: SI ( S,{{:: VAR(indexList)}},=,,DO_NOT,)}})}}\
{{:: SET_VAR(notFound, {{:: SI ( S,{{:: VAR(indexList)}},=,,,DO_NOT)}})}}\
{{:: {{:: VAR(notFound)}}ECHO(.      <font color=#ff5400>Produit non référencé</font> )}}\
{{:: {{:: VAR(toDo)}}ECHO(.       indexList : {{:: VAR(indexList)}})}}\

{{:: REM (01 ------------------------------ charger monographie avec l'index du produit -------------------------------------------)}}\
{{:: SET_VAR( htmlPage, <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN"><html><head><title>Pas de page pour ce produit</title></head><body>Pas de monographie trouvée pour ce produit</body></html>)}}\
{{:: SET_VAR(niveau_2_Url,http://www.theriaque.org/InfoMedicaments/InfoSpecialite/InfoSpecialite_Main.cfm?Specialite={{:: VAR(index_1)}}&Nom_Specialite={{:: VAR(index_0)}}&Comp_Specialite=  &ItemList=checkTTRCP%2CcheckCOMPO%2CcheckCLASSE%2CcheckGENER%2CcheckRMO%2CcheckADMIN%2CcheckCONSERV%2CcheckINDIC%2CcheckCIPEMG_NI%2CcheckPOSO%2CcheckRECONST%2CcheckCIPEMG_CI%2CcheckCIPEMG_PEMG%2CcheckCIPEMG_NCI%2CcheckRCP%2CcheckGRAL_grossesse%2CcheckGRAL_allaitement%2CcheckConduite%2CcheckEI_Ther%2CcheckEI_Surd)}}\
{{:: {{:: VAR(toDo)}}LOAD_URL_IN_VAR( htmlPage, {{:: VAR(niveau_2_Url)}} )}}\

{{:: REM (02 ------------------------------ afficher la page pour en executer ---------------------------------------------)}}\
{{:: REM (                                  tous les trucs genre java et cie                                               )}}\
{{:: REPLACE( VAR = htmlPage,alert\(,// alert\()}}\
{{:: DISPLAY_PAGE( VAR = htmlPage, {{:: VAR(niveau_2_Url)}}, 19500000)}}\

{{:: REM (03 ------------------------------ recuperer la page une fois affichee -------------------------------------------)}}\
{{:: GET_DISPLAY_PAGE(VAR = htmlPage)}}\

{{:: REM (04 ------------------------------ eliminer les trucs ne permettant pas de ---------------------------------------)}}\
{{:: REM (                                  l'afficher correctement en local                                               )}}\
{{:: SET_VAR(isToCut, {{:: INDEX_OF(VAR=htmlPage,<!DOCTYPE)}} )}}\
{{:: SET_VAR(doToCut, {{:: SI ( S,{{:: VAR(isToCut)}},=,-1,DO_NOT,)}})}}\
{{:: {{:: VAR(doToCut)}}MID(VAR = htmlPage,{{:: VAR(isToCut)}})}}\

{{:: REM (05 ------------------------------ verifier si produit idems --------------------------------------------------------)}}\
{{:: REM (                                  car parfois cela peut foirer                                                      )}}\
{{:: SET_VAR(indexCut, {{:: LEFT({{:: VAR(index_0)}},4)}})}}\
{{:: _ECHO(== indexCut {{:: VAR(indexCut)}})}}\
{{:: SET_VAR(itemMatchData, {{:: SI ( S,{{:: VAR(indexCut)}},=,{{:: LEFT({{ITEM_NAME}},4)}},CHARGEMENT REUSSI,)}})}}\
{{:: SET_VAR(retryPageLoad, {{:: SI ( S,{{:: VAR(indexCut)}},=,{{:: LEFT({{ITEM_NAME}},4)}},,TO RELOAD)}})}}\
{{:: _ECHO(== itemMatchData {{:: VAR(itemMatchData)}})}}\

{{:: REM (------------------------------ QUE si page referencée alors on prepare le message d'ERREUR--------------------------------------------)}}\
{{:: REM (                               qui sera eventuellement à afficher si erreur de comparaison de l'item avec                             )}}\
{{:: REM (                               les données téléchargées fait en   REM 05                                                              )}}\
{{:: REM (                               si page non referencée alors le message sera celui du non réferencement                                )}}\
{{:: REM (                               déjà defini en REM 00 et présent dans VAR = htmlPage afin d'éviter que le test en REM 05               )}}\
{{:: REM (                               ne place le sien (si non référencé la comparaison entre l'item et la valeur == FALSE)                  )}}\
{{:: REM (                               en fait on charge quand meme la page  (certaines erreurs sont non justifiees)                          )}}\

{{:: {{:: VAR(toDo)}}{{:: VAR(itemMatchData)}}_SET_VAR(htmlPage,<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN"><html><head><title>Erreur produit</title></head><body>Erreur lors du chargement.<br> veuillez recharger cette page.</body></html>)}}\

{{:: REM (------------------------------ mettre la page en base --------------------------------------------------------)}}\
{{:: PUT_PAGE_IN_BASE(VAR = htmlPage,{{CIP7}},Theriaque For CIP,{{:: VAR(niveau_2_Url)}})}}\
{{:: {{:: VAR(toDo)}}{{:: VAR(itemMatchData)}}ECHO(.      <font color=#ff5400>Page à recharger</font> )}}\

{{:: ECHO(== fin : <font color=#00c0ff>{{MACRO NAME}}</font> ==)}}}}{{:: VAR(retryPageLoad)}}