AUMDELR.m

AUMDELR ; IHS/ASDST/GTH - AN AUM UTILITY FOR AUM ; [ 10/31/2001   3:40 PM ]

 ;;02.1;TABLE MAINTENANCE;**1**;SEP 28,2001

 ;

DEL(AUMN,AUMA) ;EP - Delete routines in namespace "AUMN", if AUMA=0. If AUMA=1, single routine.

 ; It's up to the calling routine to make sure it's not deleted, if

 ; the calling routine is the current routine.

 KILL ^TMP("AUMDELR",$J)

 I $G(AUMA)=1 S ^TMP("AUMDELR",$J,AUMN)=""

 E  Q:'$$RSEL^ZIBRSEL(AUMN_"*","^TMP(""AUMDELR"","_$J_",")

 ;

 NEW X

 ;

 S X=""

 F  S X=$O(^TMP("AUMDELR",$J,X)) Q:X=""  X ^%ZOSF("DEL")  I $G(XPDA) D BMES^XPDUTL(X_$E("...........",1,11-$L(X))_"<poof'd>")

 KILL ^TMP("AUMDELR",$J)

 Q

 ;

AUMDELR   ; IHS/ASDST/GTH - AN AUM UTILITY FOR AUM ; [ 10/31/2001   3:40 PM ]

 +1       ;;02.1;TABLE MAINTENANCE;**1**;SEP 28,2001

 +2       ;

DEL(AUMN,AUMA) ;EP - Delete routines in namespace "AUMN", if AUMA=0. If AUMA=1, single routine.

 +1       ; It's up to the calling routine to make sure it's not deleted, if

 +2       ; the calling routine is the current routine.

 +3        KILL ^TMP("AUMDELR",$JOB)

 +4        IF $GET(AUMA)=1

               SET ^TMP("AUMDELR",$JOB,AUMN)=""

 +5       IF '$TEST

               IF '$$RSEL^ZIBRSEL(AUMN_"*","^TMP(""AUMDELR"","_$JOB_",")

                   QUIT 

 +6       ;

 +7        NEW X

 +8       ;

 +9        SET X=""

 +10       FOR 

               SET X=$ORDER(^TMP("AUMDELR",$JOB,X))

               IF X=""

                   QUIT 

               XECUTE ^%ZOSF("DEL")

               IF $GET(XPDA)

                   DO BMES^XPDUTL(X_$EXTRACT("...........",1,11-$LENGTH(X))_"<poof'd>")

 +11       KILL ^TMP("AUMDELR",$JOB)

 +12       QUIT 

 +13      ;