15 lines
632 B
Mathematica
15 lines
632 B
Mathematica
%ZTRDEL ;SF/RWF - ROUTINE DELETE ;9/17/93 07:38 ;
|
|
;;7.3;TOOLKIT;;Apr 25, 1995
|
|
W !,$C(7),!,"ROUTINE DELETE",! K ^UTILITY($J)
|
|
X ^%ZOSF("RSEL") S X="$" F I=0:1 S X=$O(^UTILITY($J,X)) Q:X=""
|
|
I 'I W !,"No routines selected" G EXIT
|
|
A W !,I," routines to DELETE, OK: NO// " R X:60 I X["?" D LIST G A
|
|
W ! G EXIT:"Yy"'[$E(X_" ")
|
|
S X="$",DEL=^%ZOSF("DEL") F I=1:1 S X=$O(^UTILITY($J,X)) Q:X="" X DEL W $E(X_" ",1,10) H:'(I#25) 1
|
|
EXIT W !,"Done." K I,X,DEL,^UTILITY($J)
|
|
Q
|
|
LIST ;List the routines
|
|
W !,"List of routines to DELETE",!
|
|
S X="$" F J=0:0 S X=$O(^UTILITY($J,X)) Q:X="" W $E(X_" ",1,10)
|
|
K J W !,"END",! Q
|