|
Last change
on this file since 808 was 642, checked in by Sam Habiel, 15 years ago |
|
Modified directory structure; moved routines.
|
|
File size:
808 bytes
|
| Line | |
|---|
| 1 | XBDELR ; 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 | ;
|
|---|
| 16 | DEL(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.
