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

READ ENR_TABLES FROM F.TABLES,"AUTRINTERVENANTSID" ELSE ENR_TABLES = ""

ENR_TABLES<1> = "Paramtres AUTRES INTERVENANTS SSIAD":CHAR(253):"0":CHAR(253):"":CHAR(253):"":CHAR(253):"2N0":CHAR(253):"35X"

ENR_TABLES<2> = ""

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<3> = ""

ENR_TABLES<3,1> = "INFIRMIER"
ENR_TABLES<3,2> = "PEDICURE"
ENR_TABLES<3,3> = "ORTHOPHONISTE"
ENR_TABLES<3,4> = "KINESITHERAPEUTE"
ENR_TABLES<3,5> = "AUTRE"
ENR_TABLES<3,6> = "PAS SSIAD"

WRITE ENR_TABLES ON F.TABLES,"AUTRINTERVENANTSID"


READ ENR_TABLES FROM F.TABLES,"AUTRINTERVENANT" ELSE ENR_TABLES = ""

i = 0
LOOP
   i = i + 1
WHILE ENR_TABLES<2,i> # ""
   IF ENR_TABLES<4,i> # "" THEN
	ENR_TABLES<4,i> = "06"
   END
REPEAT
WRITE ENR_TABLES ON F.TABLES,"AUTRINTERVENANT"

STOP
