***********************************************************************************
***********************************************************************************
**                                                                               **
**          Mise  jour du fichier TABLES  l'occasion de la gestion SSIAD.      **
**              Modification du libell de la clef AUTRINTERVENANTSID 		 **
** 		AUTRE INTERVENANT SID devient AUTRE INTERVENANT SSIAD 		 **
** Cration des fichiers MOTIFSORTIESID et DESCRILOGEMENTSID relatifs aux motifs **
** 		    de sortie des aids SSIAD et  leurs logements               **
**                                                                               **
**                                                                               **
**                                                                               **
**                                                                               **
**                                                                               **
** Le 12/05/04                                                  ves+           **
**                                                                               **
***********************************************************************************
***********************************************************************************

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
***	      ***
*On cre le lien*
***	      ***
ENR_TABLES<1,4>="AUTRINTERVENANTSID"
ENR_TABLES<1,7>="2N0"
ENR_TABLES<1,10>="Codif SSIAD"
WRITE ENR_TABLES ON F.TABLES,"AUTRINTERVENANT"



READ ENR_TABLES FROM F.TABLES,"MOTIFSORTIE" ELSE STOP
***	      ***
*On cre le lien*
***	      ***
ENR_TABLES<1,4>="MOTIFSORTIESID"
ENR_TABLES<1,7>="2N0"
ENR_TABLES<1,10>="Codif SSIAD"
WRITE ENR_TABLES ON F.TABLES,"MOTIFSORTIE"


READ ENR_TABLES FROM F.TABLES,"DESCRIPLOGEMENT" ELSE STOP
***	      ***
*On cre le lien*
***	      ***
ENR_TABLES<1,4>="DESCRIPLOGEMENTSID"
ENR_TABLES<1,7>="2N0"
ENR_TABLES<1,10>="Codif SSIAD"
WRITE ENR_TABLES ON F.TABLES,"DESCRIPLOGEMENT"




READ ENR_TABLES FROM F.TABLES,"AUTRINTERVENANTSID" ELSE STOP
***	 	    ***
*On modifie le libell*
***	 	    ***
ENR_TABLES<1,1>="Paramtres AUTRES INTERVENANTS SSIAD"
WRITE ENR_TABLES ON F.TABLES,"AUTRINTERVENANTSID"


***		 	    ***
*On cre les deux autres clefs*
***		 	    ***

ENR_MOTIFS=""
ENR_MOTIFS<1,1> ="Paramtres MOTIFS DE SORTIE SSIAD"
ENR_MOTIFS<1,2> ="0"
ENR_MOTIFS<1,5> ="2NO"
ENR_MOTIFS<1,6> ="35X"

ENR_DESCRIP=""
ENR_DESCRIP<1,1>="Paramtres TYPE D'HABITAT SSIAD"
ENR_DESCRIP<1,2> ="0"
ENR_DESCRIP<1,5> ="2NO"
ENR_DESCRIP<1,6> ="35X"

I=0
LOOP I = I + 1

ENR_MOTIFS = INSERT(ENR_MOTIFS,2,I;I "R%2")

IF I < 11 THEN

	ENR_DESCRIP = INSERT(ENR_DESCRIP,2,I;I "R%2")

END

WHILE I < 15 DO REPEAT

ENR_MOTIFS<3,1> ="NE SAIT PAS"
ENR_MOTIFS<3,2> ="GUERISON OU REPRISE D'AUTONOMIE"
ENR_MOTIFS<3,3> ="DECES A DOMICILE"
ENR_MOTIFS<3,4> ="HOSP. EN SOINS DE COURTE DUREE"
ENR_MOTIFS<3,5> ="HOSP. EN PSYCHIATRIE"
ENR_MOTIFS<3,6> ="HOSP. EN SOINS DE SUITE ET DE READAPTATION"
ENR_MOTIFS<3,7> ="ENTREE EN SERVICE DE SOINS DE LONGUE DUREE"
ENR_MOTIFS<3,8> ="ENTREE ETABL. D'HEBERG. POUR PERSONNES AGEES"
ENR_MOTIFS<3,9> ="DEPART EN HEBERG. TEMPORAIRE, VACANCES, CHGT SECTEUR GEO."
ENR_MOTIFS<3,10>="ARRET DE PRISE EN CHARGE PAR LA PERSONNE"
ENR_MOTIFS<3,11>="ARRET DE PRISE EN CHARGE PAR ENTOURAGE"
ENR_MOTIFS<3,12>="ARRET DE PRISE EN CHARGE PAR MEDECIN PRESCRIPTEUR"
ENR_MOTIFS<3,13>="ARRET DE PRISE EN CHARGE PAR SERVICE SOINS"
ENR_MOTIFS<3,14>="ARRET DE PRISE EN CHARGE PAR ORG. PAYEUR"
ENR_MOTIFS<3,15>="SANS OBJET"

ENR_DESCRIP<3,1> ="DOMICILE PERSONNEL ORDINAIRE CONFORTABLE ET ADAPTE"
ENR_DESCRIP<3,2> ="DOMICILE PERSONNEL ORDINAIRE CONFORTABLE ET NON ADAPTE"
ENR_DESCRIP<3,3> ="DOMICILE PERSONNEL ORDINAIRE NON CONFORTABLE"
ENR_DESCRIP<3,4> ="HEBERG. DANS FAMILLE CONFORTABLE ET ADAPTE"
ENR_DESCRIP<3,5> ="HEBERG. DANS FAMILLE CONFORTABLE ET NON ADAPTE"
ENR_DESCRIP<3,6> ="HEBERG. DANS FAMILLE NON CONFORTABLE"
ENR_DESCRIP<3,7> ="ACCUEIL PAR PARTICULIERS A TITRE ONEREUX"
ENR_DESCRIP<3,8> ="DOMICILES REGROUPS, PETITES UNITES DE VIE"
ENR_DESCRIP<3,9> ="ETABL. D'HEBERG. TEMPORAIRE"
ENR_DESCRIP<3,10>="AUTRE ETABL. D'HEBERG. POUR PERSONNES AGEES"

WRITE ENR_MOTIFS ON F.TABLES,"MOTIFSORTIESID"
WRITE ENR_DESCRIP ON F.TABLES,"DESCRIPLOGEMENTSID"


READ ENR_TABLES FROM F.TABLES,"TYPEACTE" ELSE ENR_TABLES=""
ENR_TABLES<1,1>="TYPE ACTE"
ENR_TABLES<1,2>="0"
ENR_TABLES<1,3>="0"
ENR_TABLES<1,4>=""
ENR_TABLES<1,5>="2N0"
ENR_TABLES<1,6>="20X"
ENR_TABLES<1,7>=""
ENR_TABLES<1,8>="Code"
ENR_TABLES<1,9>="Libelle"

ENR_TABLES<2,1>="01"
ENR_TABLES<2,2>="02"
ENR_TABLES<2,3>="03"
ENR_TABLES<2,4>="04"
ENR_TABLES<2,5>="05"

ENR_TABLES<3,1>="AMI"
ENR_TABLES<3,2>="AIS"
ENR_TABLES<3,3>="AMP"
ENR_TABLES<3,4>="AMK"
ENR_TABLES<3,5>="AMO"

WRITE ENR_TABLES ON F.TABLES,"TYPEACTE"


READ ENR_TABLES FROM F.TABLES,"TYPEETATPAIEMENT" ELSE ENR_TABLES=""
ENR_TABLES<1,1>="TYPE ETAT DE PAIEMENT"
ENR_TABLES<1,2>="0"
ENR_TABLES<1,3>="0"
ENR_TABLES<1,4>=""
ENR_TABLES<1,5>="2N0"
ENR_TABLES<1,6>="10X"
ENR_TABLES<1,7>="1X"
ENR_TABLES<1,8>="Code"
ENR_TABLES<1,9>="Libelle"
ENR_TABLES<1,10>="Nature"

ENR_TABLES<2,1>="01"
ENR_TABLES<2,2>="02"
ENR_TABLES<2,3>="03"
ENR_TABLES<2,4>="04"
ENR_TABLES<2,5>="05"
ENR_TABLES<2,6>="06"
ENR_TABLES<2,7>="07"
ENR_TABLES<2,8>="08"
ENR_TABLES<2,9>="09"
ENR_TABLES<2,10>="10"
ENR_TABLES<2,11>="11"
ENR_TABLES<2,12>="12"
ENR_TABLES<2,13>="13"
ENR_TABLES<2,14>="14"

ENR_TABLES<3,1>="AMI"
ENR_TABLES<3,2>="AIS"
ENR_TABLES<3,3>="AMP"
ENR_TABLES<3,4>="AMK"
ENR_TABLES<3,5>="AMO"
ENR_TABLES<3,6>="AMI/2"
ENR_TABLES<3,7>="AIS/2"
ENR_TABLES<3,8>="AMP/2"
ENR_TABLES<3,9>="AMK/2"
ENR_TABLES<3,10>="AMO/2"
ENR_TABLES<3,11>="DIM-JF"
ENR_TABLES<3,12>="NUIT"
ENR_TABLES<3,13>="IFD"
ENR_TABLES<3,14>="IK"

ENR_TABLES<3,1>="AMI"
ENR_TABLES<3,2>="AIS"
ENR_TABLES<3,3>="AMP"
ENR_TABLES<3,4>="AMK"
ENR_TABLES<3,5>="AMO"
ENR_TABLES<3,6>="AMI/2"
ENR_TABLES<3,7>="AIS/2"
ENR_TABLES<3,8>="AMP/2"
ENR_TABLES<3,9>="AMK/2"
ENR_TABLES<3,10>="AMO/2"
ENR_TABLES<3,11>="DIM-JF"
ENR_TABLES<3,12>="NUIT"
ENR_TABLES<3,13>="IFD"
ENR_TABLES<3,14>="IK"

ENR_TABLES<4,1>="H"
ENR_TABLES<4,2>="H"
ENR_TABLES<4,3>="H"
ENR_TABLES<4,4>="H"
ENR_TABLES<4,5>="H"
ENR_TABLES<4,6>="H"
ENR_TABLES<4,7>="H"
ENR_TABLES<4,8>="H"
ENR_TABLES<4,9>="H"
ENR_TABLES<4,10>="H"
ENR_TABLES<4,11>="H"
ENR_TABLES<4,12>="H"
ENR_TABLES<4,13>="D"
ENR_TABLES<4,14>="D"

WRITE ENR_TABLES ON F.TABLES,"TYPEETATPAIEMENT"
