ZTRDEL.m

%ZTRDEL ;SF/RWF - ROUTINE DELETE ;9/17/93  07:38 ; [ 04/02/2003   8:29 AM ]

 ;;8.0;KERNEL;**1005,1007**;APR 1, 2003 

 ;;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

%ZTRDEL   ;SF/RWF - ROUTINE DELETE ;9/17/93  07:38 ; [ 04/02/2003   8:29 AM ]

 +1       ;;8.0;KERNEL;**1005,1007**;APR 1, 2003 

 +2       ;;7.3;TOOLKIT;;Apr 25, 1995

 +3        WRITE !,$CHAR(7),!,"ROUTINE DELETE",!

           KILL ^UTILITY($JOB)

 +4        XECUTE ^%ZOSF("RSEL")

           SET X="$"

           FOR I=0:1

               SET X=$ORDER(^UTILITY($JOB,X))

               IF X=""

                   QUIT 

 +5        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