words per minute
21
DavidMarinkovic
00:00
Speed
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