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

ENR_TABLES=""

* Motif de sortie
ENR_TABLES<1>="Paramtres MOTIFS DE SORTIE SSIAD12N050X"
ENR_TABLES<2>="00010203040506070809101112131415"
ENR_TABLES<3>="NE SAIT PASGUERISON OU REPRISE D'AUTONOMIEDECES A DOMICILEHOSPITALISATION A DOMICILEHOSP. EN SOINS DE COURTE DUREEHOSP. EN PSYCHIATRIEHOSP. EN SOINS DE SUITE ET DE READAPTATIONENTREE EN SERVICE DE SOINS DE LONGUE DUREEENTREE ETABL. D'HEBERG. POUR PERSONNES AGEESDEPART EN HEBERG. TEMPORAIRE, VACANCES, CHGT SECTEUR GEO.ARRET DE PRISE EN CHARGE PAR LA PERSONNEARRET DE PRISE EN CHARGE PAR ENTOURAGEARRET DE PRISE EN CHARGE PAR MEDECIN PRESCRIPTEURARRET DE PRISE EN CHARGE PAR SERVICE SOINSARRET DE PRISE EN CHARGE PAR ORG. PAYEURSANS OBJET"
WRITE ENR_TABLES ON F.TABLES,"MOTIFSORTIESID"

* Origine de la 1ere demande de prise en charge
ENR_TABLES<1>="Paramtres ORIGINE CONTACT12N050X"
ENR_TABLES<2>="00010203040506070809101112"
ENR_TABLES<3>="NE SAIT PASLA PERSONNE ELLE-MEMELA FAMILLE,LES VOISINSLE MEDECIN TRAITANTUNE INFIRMIERE LIBERALEUN CENTRE DE SOINSUN SERVICE D'HOSPITALISATION A DOMICILEUN SERVICE HOSPITALIERUN SERVICE D'AIDE A DOMICILELA MAIRIE,LE C.C.A.S.UN ETABLISSEMENT D'HEBERGEMENT TEMPORAIREUN ETABLISSEMENT D'HEBERGEMENT PERMANENTAUTRE"
WRITE ENR_TABLES ON F.TABLES,"ORIGINECONTACTSID"

* Circonstance principale de la derniere entree
ENR_TABLES<1>="Parametres CIRCONSTANCE PRINCIPALE DE LA DERNIERE ENTREE SSIAD12N050X"
ENR_TABLES<2>="000102030405060708091011121314"
ENR_TABLES<3>="NE SAIT PASSOINS PAR SERVICE DEPUIS + 1 AN SANS INTERRUPTIONSORTIE HOSP.EN SOINS COURTE DUREESORTIE HOSP. EN PSYCHIATRIESORTIE HOSP. EN SOINS DE SUITE ET DE READAPTATIONSORTIE ETABLISSEMENT DE SOINS LONGUE DUREESORTIE ETABLISSEMENT D'HEBERGEMENTMALADIEAPPARITION OU AGGRAVATION DE DEPENDANCECHUTEAIDE A L'ENTOURAGEACCOMPAGNEMENT DE FIN DE VIERELAIS PRISE EN CHARGE INFIRMIER LIBERALRELAIS PRISE EN CHARGE AUTRE SSIADAUTRE"
WRITE ENR_TABLES ON F.TABLES,"RAISONENTREESID"

* Type d'habitat
ENR_TABLES<1>="Paramtres TYPE D'HABITAT SSIAD12N050X"
ENR_TABLES<2>="01020304050607080910"
ENR_TABLES<3>="DOMICILE PERSONNEL ORDINAIRE CONFORTABLE ET ADAPTEDOMICILE PERSONNEL ORDINAIRE CONFORTABLE ET NON ADAPTEDOMICILE PERSONNEL ORDINAIRE NON CONFORTABLEHEBERG. DANS FAMILLE CONFORTABLE ET ADAPTEHEBERG. DANS FAMILLE CONFORTABLE ET NON ADAPTEHEBERG. DANS FAMILLE NON CONFORTABLEACCUEIL PAR PARTICULIERS A TITRE ONEREUXDOMICILES REGROUPES, PETITES UNITES DE VIEETABL. D'HEBERG. TEMPORAIREAUTRE ETABL. D'HEBERG. POUR PERSONNES AGEES"
WRITE ENR_TABLES ON F.TABLES,"DESCRIPLOGEMENTSID"

* Aidant principal
ENR_TABLES<1>="Paramtres AIDANT PRINCIPAL12N050X"
ENR_TABLES<2>="00010203040506"
ENR_TABLES<3>="NE SAIT PASCONJOINTUNE PERSONNE DE LA MEME GENERATIONUNE PERSONNE DE LAGENERATION PRECEDENTEUNE PERSONNE DE LA GENERATION SUIVANTESERVICE OU PERSONNE REMUNERE, Y COMPRIS FAMILLES D'ACCUEILAUCUN"
WRITE ENR_TABLES ON F.TABLES,"AIDANTPRINCIPALSID"

* Conditions de vie
ENR_TABLES<1>="Paramtres CONDITIONS DE VIE12N050X"
ENR_TABLES<2>="01020304050607"
ENR_TABLES<3>="EN COLLECTIVITE (SEUL OU AVEC SON CONJOINT)SEULAVEC LE CONJOINT SEULAVEC UNE OU DES PERSONNES DE LA MEME GENERATIONAVEC UNE OU DES PERSONNES DE LA GENERATION PRECEDENTEAVEC UNE OU DES PERSONNES DE LA GENERATION SUIVANTEAVEC DES PERSONNES DE GENERATIONS DIFFERENTES"
WRITE ENR_TABLES ON F.TABLES,"CONDITIONVIESID"

* Nature des aides
ENR_TABLES<1>="Paramtres NATURE DES AIDES12N050X"
ENR_TABLES<2>="0001020304050607080910"
ENR_TABLES<3>="NE SAIT PASAIDES CONCERNANT L'ORIENTATION OU LA COHERENCEAIDE A LA TOILETTE OU A L'HABILLAGEAIDE A L'ALIMENTATIONAIDE AUX TRANSFERTS ET/OU AUX DEPLACEMENTSAIDE ADMINISTRATIVE, A LA GESTIONAIDE AU MENAGE OU A LA CUISINEAIDE AU SUIVI DU TRAITEMENTAIDE POUR L'ENTRETIEN DU LINGEAIDE POUR PLUS DE TROIS DES ITEMS PRECEDENTSAUCUNE"
WRITE ENR_TABLES ON F.TABLES,"NATUREAIDESID"

* Enleve le lien entre DESCRIPLOGEMENT et DESCRIPLOGEMENTSID
READ ENR_TABLES FROM F.TABLES,"DESCRIPLOGEMENT" THEN
   ENR_TABLES<1>="Paramtres TYPE D'HABITAT12N050X"
   ENR_TABLES=DELETE(ENR_TABLES,4)
   WRITE ENR_TABLES ON F.TABLES,"DESCRIPLOGEMENT"
END

STOP
