VistA-IHS-VA_UTILITIES-XB/ZIBVKMSM.m

22 lines
667 B
Mathematica

ZIBVKMSM ; IHS/ADC/GTH - KILL VARIABLES ; [ 02/07/97 3:02 PM ]
;;4.0;XB;;Jul 20, 2009;Build 2
;
; This routine kills variables in the namespace of the
; variable passed in the parameter.
; This routine is accessed thru the front end routine XBVK.
;
; Original routine provided by Don Enos, OHPRD, 2 Oct 1995.
;
Q ; No entry from top
;
EN(ZIBVKNS) ;EP - KILL Local variables in the passed namespace.
;
Q:$G(ZIBVKNS)=""
NEW ZIBVKX
S ZIBVKX=$O(@ZIBVKNS,-1)
S:ZIBVKX="" ZIBVKX="%"
K:ZIBVKNS="%" @ZIBVKNS
F S ZIBVKX=$O(@ZIBVKX) Q:ZIBVKX="" Q:$E(ZIBVKX,1,$L(ZIBVKNS))]ZIBVKNS I $E(ZIBVKX,1,$L(ZIBVKNS))=ZIBVKNS,ZIBVKX'["ZIBVK" K @ZIBVKX
Q
;