%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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HZTRDEL 646 printed Dec 13, 2024@02:16:36 Page 2
%ZTRDEL ;SF/RWF - ROUTINE DELETE ;9/17/93 07:38 ;
+1 ;;7.3;TOOLKIT;;Apr 25, 1995
+2 WRITE !,$CHAR(7),!,"ROUTINE DELETE",!
KILL ^UTILITY($JOB)
+3 XECUTE ^%ZOSF("RSEL")
SET X="$"
FOR I=0:1
SET X=$ORDER(^UTILITY($JOB,X))
if X=""
QUIT
+4 IF 'I
WRITE !,"No routines selected"
GOTO EXIT
A WRITE !,I," routines to DELETE, OK: NO// "
READ X:60
IF X["?"
DO LIST
GOTO A
+1 WRITE !
if "Yy"'[$EXTRACT(X_" ")
GOTO EXIT
+2 SET X="$"
SET DEL=^%ZOSF("DEL")
FOR I=1:1
SET X=$ORDER(^UTILITY($JOB,X))
if X=""
QUIT
XECUTE DEL
WRITE $EXTRACT(X_" ",1,10)
if '(I#25)
HANG 1
EXIT WRITE !,"Done."
KILL I,X,DEL,^UTILITY($JOB)
+1 QUIT
LIST ;List the routines
+1 WRITE !,"List of routines to DELETE",!
+2 SET X="$"
FOR J=0:0
SET X=$ORDER(^UTILITY($JOB,X))
if X=""
QUIT
WRITE $EXTRACT(X_" ",1,10)
+3 KILL J
WRITE !,"END",!
QUIT
