VAREXP; S GN="^XGECRAN" S EC="" S SQ="" S FILE="VARIABLES_"_$NAMESPACE_".CSV" ; Ouverture du fichier en mode écriture O FILE:"WNS":0 U FILE ; En-têtes du fichier CSV W "ECRAN;SEQUENCE;NOM VARIABLE;NOM GLOBAL;GLOBAL AVEC UT ?;PATTERN DES CLES DE LA GLOBAL" ; Parcours de la global pour remplir le fichier CSV F S EC=$O(@GN@(EC)) Q:EC="" D . S GLOBALNAME=$P(@GN@(EC, 0),"~",3) . S UTOUINON=$P(@GN@(EC, 0),"~",8) . S GLOBALKEYS=$P(@GN@(EC, 0),"~",15) . F S SQ=$O(@GN@(EC,SQ)) Q:SQ="" D .. S VAR=$P(@GN@(EC,SQ),"~",9) .. W !, $G(EC)_";"_$G(SQ)_";"_$G(VAR)_";"_$G(GLOBALNAME)_";"_$G(UTOUINON)_";"_$G(GLOBALKEYS) .. Q . Q ; Fermeture du fichier C FILE U 0 Q