source: IHS-VA_UTILITIES-XB/trunk/XBDELR.m@ 1745

Last change on this file since 1745 was 642, checked in by Sam Habiel, 15 years ago

Modified directory structure; moved routines.

File size: 808 bytes
RevLine 
[641]1XBDELR ; IHS/ASDST/GTH - AN XB UTILITY ; [ 10/29/2002 7:42 AM ]
2 ;;4.0;XB;;Jul 20, 2009;Build 2
3 ;
4 ; IHS/SET/GTH XB*3*9 10/29/2002
5 ;
6 ; Delete routines in namespace "XBN", if XBA=0.
7 ; If XBA=1, single routine.
8 ;
9 ; It's up to the calling routine to make sure it's not deleted, if
10 ; the calling routine is the current routine.
11 ;
12 ; E.g.: D DEL^XBDELR("MYROUTIN",1) Del 1 routine named "MYROUTIN".
13 ; D DEL^XBDELR("NS") Del all routines in "NS" namespace.
14 ;
15 ;
16DEL(XBN,XBA) ;PEP - Delete routine(s).
17 I $G(XBA)=1 S ^TMP("XBDELR",$J,XBN)=""
18 E Q:'$$RSEL^ZIBRSEL(XBN_"*","^TMP(""XBDELR"","_$J_",")
19 ;
20 NEW X
21 ;
22 S X=""
23 F S X=$O(^TMP("XBDELR",$J,X)) Q:X="" X ^%ZOSF("DEL") I '$D(ZTQUEUED) D BMES^XPDUTL(X_$E("...........",1,11-$L(X))_"<poof'd>")
24 KILL ^TMP("XBDELR",$J)
25 Q
26 ;
Note: See TracBrowser for help on using the repository browser.