|
Last change
on this file since 1800 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
632 bytes
|
| Rev | Line | |
|---|
| [613] | 1 | %ZTRDEL ;SF/RWF - ROUTINE DELETE ;9/17/93 07:38 ;
|
|---|
| 2 | ;;7.3;TOOLKIT;;Apr 25, 1995
|
|---|
| 3 | W !,$C(7),!,"ROUTINE DELETE",! K ^UTILITY($J)
|
|---|
| 4 | X ^%ZOSF("RSEL") S X="$" F I=0:1 S X=$O(^UTILITY($J,X)) Q:X=""
|
|---|
| 5 | I 'I W !,"No routines selected" G EXIT
|
|---|
| 6 | A W !,I," routines to DELETE, OK: NO// " R X:60 I X["?" D LIST G A
|
|---|
| 7 | W ! G EXIT:"Yy"'[$E(X_" ")
|
|---|
| 8 | 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
|
|---|
| 9 | EXIT W !,"Done." K I,X,DEL,^UTILITY($J)
|
|---|
| 10 | Q
|
|---|
| 11 | LIST ;List the routines
|
|---|
| 12 | W !,"List of routines to DELETE",!
|
|---|
| 13 | S X="$" F J=0:0 S X=$O(^UTILITY($J,X)) Q:X="" W $E(X_" ",1,10)
|
|---|
| 14 | K J W !,"END",! Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
