****************************************
* PROGRAMME D'AJOUT DE DONNEES         *
* DANS UN FICHIER DADS-U               *
*                                      *
* NOV 2005                    STEPHANE *
****************************************

EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","DADS-U" TO F.DADSU ELSE STOP

* LECTURE FICHIER TEMPORAIRE
READ ENR_TAMPONDADSU FROM F.DADSU,"1" ELSE 
	ENR_TAMPONDADSU = "ECHEC LECTURE FICHIER"
	WRITE ENR_TAMPONDADSU ON F.DADSU,"1"
	STOP
END

* DETAIL DU FICHIER TAMPONDADSU
* ATT 1 : MV 1 => NOM DU FICHIER DADS-U
*         MV 2 => 1ERE LIGNE CONCERNANT L'AIDANT
* ATT 2 a X    => DONNEES CONCERNANT L'AIDANT


* LECTURE FICHIER DADS-U
READ ENR_DADSU FROM F.DADSU,ENR_TAMPONDADSU<1,1> ELSE ENR_DADSU = ""

* Modification du 04/12/07 - Grgory
* Prise en compte de la gestion multi tablissements.
* A l'origine le prog cherchait la premire ligne S80
* pour crire les donnes  ajouter juste avant.
* Maintenant il faut chercher la premire ligne S80
* de l'tablissement voulu.
* Michael, le 21/12 : On ne cherche pas le NIC del'entite A QUI on paye des honoraire (il peut d'ailleurs ne pas y en avoir),
* mais bel et bien celui de l'etablissement QUI paye lmes honoraires ...
*W_POS=INDEX(ENR_TAMPONDADSU,"S70.G01.00.003.002,'",1)
W_POS=INDEX(ENR_TAMPONDADSU,"S70.G01.00.014,'",1)
W_LIGNE=DCOUNT(ENR_TAMPONDADSU[1,W_POS],CHAR(254))
*W_Etab=ENR_TAMPONDADSU<W_LIGNE>[21,5]
W_Etab=ENR_TAMPONDADSU<W_LIGNE>[17,5]


W_POS=INDEX(ENR_DADSU,"S41.G01.00.005,'":W_Etab:"'",1)
W_SavePos=W_POS
ENR_TEMP=ENR_DADSU[W_POS,LEN(ENR_DADSU)-W_POS+1]
W_POS=INDEX(ENR_TEMP,"S80.G01.00.",1)
W_POS=W_SavePos+W_POS-1

* RECHERCHE EMPLACEMENT 1ERE LIGNE HONORAIRE
*W_TEMP = "S80.G01.00."
*W_POS = INDEX(ENR_DADSU,W_TEMP,1)

* Michael, le 21/12 :
** SI AIDANT PAS TROUVE ALORS SORT
*IF W_POS = 0 THEN STOP	
IF W_SavePos = 0 THEN STOP	

ENR_TAMPONDADSU<1,2> = DCOUNT(ENR_DADSU[1,W_POS],CHAR(254))


* ECRIT LES DONNEES DE L'AIDANT DANS LE FICHIER DADS-U
J = 2
I = ENR_TAMPONDADSU<1,2>
LOOP
	UNTIL ENR_TAMPONDADSU<J> = "" DO
	ENR_DADSU=INSERT(ENR_DADSU,I;ENR_TAMPONDADSU<J>)

	I = I + 1
	J = J + 1
REPEAT

WRITE ENR_DADSU ON F.DADSU,ENR_TAMPONDADSU<1,1>

*REMET A JOUR ATT S90.G01.00.001 QUI CONTIENT LE NB DE LIGNE
W_NBATT = DCOUNT(ENR_DADSU,CHAR(254))
ENR_DADSU<W_NBATT-1> = "S90.G01.00.001,'":W_NBATT:"'"
WRITE ENR_DADSU ON F.DADSU,ENR_TAMPONDADSU<1,1>

RETURN
