***********************************************************************************
***********************************************************************************
**                                                                               **
** Mise  jour du fichier EnvironAide pour le rendre comforme  la nouvelle      **
** interface (suppression de la date de naissance, ajout d'un autre numro       **
**    de tlphone  sa place. Ajout d'un 20im champ : Nature du lien)          **
** Suppression des mdecins traitants. Ajout de la gestion des intervenants      **
**     extrieurs. Cration d'un nouveau type d'intervenant : "Mdecin"          **
**               Tous les mdecins actuels y sont associs.                      **
**                                                                               **
**   Pour de plus amples informations voir les dossiers DA235-01 et DA236-02     **
**                                                                               **
**                                                                               **
**                                                                               **
**                                                                               **
**                                                                               **
** Le 03/05/04                                                  ves+           **
**                                                                               **
***********************************************************************************
***********************************************************************************

***								***
*on cherche un numro libre pour le nouvel intervenant : "mdecin"*
***								***

EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","TABLES" TO F.TABLES ELSE STOP

READ ENR_TABLES FROM F.TABLES,"AUTRINTERVENANT" ELSE STOP
 
J = 0
LOOP J = J + 1
WHILE ENR_TABLES<2,J> = J DO REPEAT

***											 ***
*soit le numro est diffrent de l'indice, soit on est arriv  la fin du tableau dynamique*
*dans tous les cas on insert la valeur "position trouve"  la position trouve		 ***
***											 ***

ENR_TABLES = INSERT(ENR_TABLES,2,J;J "R%2")
ENR_TABLES = INSERT(ENR_TABLES,3,J;"MEDECIN")

WRITE ENR_TABLES ON F.TABLES,"AUTRINTERVENANT"

	
***							   ***
*on passe  la modification du fichier de l'environ de l'aid*
***							   ***

OPEN "","ENVIRONAIDE" TO F.ENVIRONAIDE ELSE STOP

EXECUTE 'SELECT ENVIRONAIDE'



W_FINI="FAUX"


LOOP
	READNEXT CLE ELSE W_FINI="VRAI"

WHILE W_FINI="FAUX" DO

     
	READ ENR_ENVIRONAIDE FROM F.ENVIRONAIDE,CLE ELSE ENR_ENVIRONAIDE=""

	ENR_ENVIRONAIDE<6>=""

	***			  ***
	*on change la nature du lien*
	***			  ***

	I = 0

	LOOP I = I + 1
	WHILE ENR_ENVIRONAIDE<5,I> # "" DO

		ENR_ENVIRONAIDE<20,I>="1"
		
	REPEAT

	***				     ***
	*on rcupre le nom du mdecin traitant*
	***				     ***

	IF ENR_ENVIRONAIDE<15> # "" THEN
		ENR_ENVIRONAIDE<21,1> = ENR_ENVIRONAIDE<17>
		ENR_ENVIRONAIDE<17,1> = ENR_ENVIRONAIDE<15,1>
		ENR_ENVIRONAIDE<15,1> = ENR_TABLES<2,J>
		ENR_ENVIRONAIDE<18,1> = ENR_ENVIRONAIDE<16>
		ENR_ENVIRONAIDE<16,1> = ""
		I = 1
	END ELSE
		I = 0
	END

	LOOP I = I + 1
	WHILE ENR_ENVIRONAIDE<18,I> # "" DO

		ENR_ENVIRONAIDE<15,I> = ENR_ENVIRONAIDE<18,I>
		ENR_ENVIRONAIDE<16,I> = ""
		ENR_ENVIRONAIDE<17,I> = ""
		ENR_ENVIRONAIDE<18,I> = ""
		ENR_ENVIRONAIDE<21,I> = ""


	REPEAT
	


	WRITE ENR_ENVIRONAIDE ON F.ENVIRONAIDE,CLE

REPEAT
