**********************************************************************************************************************************
* REMPLI LE FICHIER ANNOTFACT POUR LES PERS A LA CAISSE MSA (107) SPECIFIQUE POUR SAINT LO CAR 800 CAS N'ONT PAS DE RENOUVELLEMENT 
**********************************************************************************************************************************

*OUVERTURE DE FICHIERS
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","ACCORD" TO F.ACCORD ELSE STOP
OPEN "","ANNOTFACT" TO F.ANNOTFACT ELSE STOP

*INITIALISATION DES VARIABLES
W_RequeteAcc=""
W_PHRASE=""
W_CodAsso=""
W_TypAct=""
W_CodCaisse=""
ENR_ANNOTFACT=""

W_Ok = "F"
LOOP WHILE W_Ok = "F" DO
	PRINT "Entrez l'entit juridique :"
	INPUT W_CodAsso
	IF W_CodAsso MATCHES "3N" THEN
		W_Ok = "V"
	END
REPEAT

W_Ok = "F"
LOOP WHILE W_Ok = "F" DO
	PRINT "Entrez le type d'activit (P, M, I) :"
	INPUT W_TypAct
	IF W_TypAct MATCHES "1A" THEN
		W_Ok = "V"
	END
REPEAT

W_Ok = "F"
LOOP WHILE W_Ok = "F" DO
	PRINT "Entrez la caisse de prise en charge :"
	INPUT W_CodCaisse
	IF W_CodCaisse MATCHES "3N" THEN
		W_Ok = "V"
	END
REPEAT

*PRINTER ON

*EXECUTION DE LA REQUETE
EXECUTE 'SSELECT ACCORD AVEC 1 = "':W_CodCaisse:'" AND AVEC EntiteAccord = "':W_CodAsso:'" AND AVEC TypeActOrg = "':W_TypAct:'" AND AVEC 18 # "O" AND AVEC DateFinAcc >= "31/12/2001" OR = ""'
EXECUTE 'SAUVE-LISTE W_RequeteAcc'
EXECUTE "LISTE W_RequeteAcc" RETURNING MSGCODE

IF MSGCODE<1>#209 THEN
	*SELECTION DE LA REQUETE
	SELECT F.ACCORD TO W_RequeteAcc

	*i=0
	W_FINI="FAUX"

	LOOP
		READNEXT W_Cle FROM W_RequeteAcc ELSE W_FINI="VRAI"
	WHILE W_FINI="FAUX" DO
			
		W_PHRASE="La participation de la MSA n'est peut tre pas renouvelle veuillez prendre contact avec votre assistante sociale"
		ENR_ANNOTFACT<1>=W_PHRASE
			
		WRITE ENR_ANNOTFACT ON F.ANNOTFACT,W_Cle[1,5]:W_CodAsso:W_TypAct

	REPEAT

END


STOP
