cQVGCOR ;Correctie ongelijkheid globals ;cQVGCOR; [ 08/02/01  1:11 PM ]
 ;
T0 ;Correctie ongelijkheid globals ;
 ;
T0F ;Correctie ongelijkheid globals ;
 ;
 ; Display only
1 N x,y,z W !!,"Global: " R x G YZ:x=""
2 W !!,"Display: <Y> " R y G 1:"-NnYy"'[y S y="yY"[y
3 W !!,"Set: <N> : " R z G 2:"-nNYy"'[z S z=z="y"+(z="Y")
4 G YZ:y+z=0 D @$S(y+z=2:"DSET(x)",z=1:"SET(x)",1:"DISP(x)")
 G YZ
 ;
X(x) n d,g,y
 Q:'$l(x)  S:$E(x)'="^" x="^"_x I x["(",$E(x,$L(x))'=")" S x=x_")"
 S y=x D:$D(@x)#10 L F  S x=$Q(@x) Q:x=""  Q:$NA(@x,$QL(y))'=y  D L
 Q
 ;
YZ Q
 ;
L S g=x,d=@x
 I $G(disp) U 0 W !,g," = ",d
 I $G(set) S @g=d
 Q
 ;
DISP(x) ; Display only
 N disp,set S disp=1 D X(x) Q
 ;
SET(x) ; Set only
 N disp,set S set=1 D X(x) Q
 ;
DSET(x) ; Display en Set
 N disp,set S (disp,set)=1 D X(x) Q
 ;
KIA(x) ; Kill global in all namespaces
 N nspc,nspcn S x=$G(x) Q:'$L(x)
 S nspc=$ZU(5) F I=1:1:99 S nspcn=$TR(nspc,"01234567890")_I I $ZU(90,10,nspcn) ZN nspcn K @x
 ZN nspc
 Q
 ;
SEA(x) ; Set global in all namespaces
 N nspc,nspcn S x=$G(x) Q:'$L(x)
 S nspc=$ZU(5) F I=1:1:99 S nspcn=$TR(nspc,"01234567890")_I I $ZU(90,10,nspcn) ZN nspcn D SET(x)
 ZN nspc
 Q
 ;
ZZ ; 24.08.01 -  9 u 19 * Cache-r3.1.8