- %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 Feb 18, 2025@23:43:02 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
