source: FOIAVistA/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/_ZTRDEL.m@ 811

Last change on this file since 811 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 632 bytes
Line 
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
6A 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
9EXIT W !,"Done." K I,X,DEL,^UTILITY($J)
10 Q
11LIST ;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.