cA315 ;CDS;%A315; [ 02/21/00  2:45 PM ]
 ;
T0 ;Cds;
 ;
T0F ;Cds;
 ;
T0E ;Cds;
 ;
 W !!,?10,"ROUTINE DELETE UTILITY" S $ZT="ERR^cA315"
SEL D ^cRSEL G EXIT:'$D(%GO),EXIT:'%GO
 S $ZT="ERR^cA315"
GO R !!,"Delete Selected Routines? <N> ",%X I %X="?" W !!,"Enter Y to delete the selected routines.",!,"Enter anything else to exit the utility" G GO
 I %X'="Y"&(%X'="y") W !!,"No routines deleted" G EXIT
 W !!,"Deleting ...",!
 S %N=""
X F %I=1:1 S %N=$O(^UTILITY($J,%N)) Q:%N=""  W ?%I-1#8*10,%N W:(%I#8)=0 ! X "ZR  ZS @%N ZL %A315" K ^UTILITY("%RD",%N)
EXIT K %I,%N,%X 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