cA316 ;CDS;%A316; [ 02/21/00  2:46 PM ]
 ;
T0 ;Cds;
 ;
T0F ;Cds;
 ;
T0E ;Cds;
 ;
 W !!,?10,"GLOBAL DELETE UTILITY" S $ZT="ERR^cA316"
 D ^cGSEL Q:'$D(^UTILITY($J))
 S $ZT="ERR^cA316"
GO R !!,"Delete Selected Globals? <N> ",%X I %X="?" W !!,"Enter Y to delete the selected Globals.",!,"Enter anything else to exit the utility" G GO
 I %X'="Y"&(%X'="y") W !!,"No globals deleted" G EXIT
 S %N=""
 S %U=$D(^UTILITY($J,"UTILITY")) K:%U ^("UTILITY")
 W !!,"Deleting ...",!
 F %I=1:1 S %N=$O(^UTILITY($J,%N)) Q:%N=""  D K
 I %U S %D=%U,%N="UTILITY" D K1
EXIT K %N,%U,%G,%I,%D Q
K S %D=$D(^(%N))
K1 S %G="^"_%N
 I %D'>1 W ?%I-1#8*10,%G W:(%I#8)=0 ! K @%G,^UTILITY("%GD",%N) Q
 W !,$C(7),"Invalid selection for ",%G,! Q
ERR I $ZV["MSM",$P($ZE,">")="<INRPT" W !,"...Aborted" G EXIT
 I $ZV'["MSM",$P($ZE,">")="<INTERRUPT" W !,"...Aborted" G EXIT
 W !,$ZE Q
 ;
YZ Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84