22 lines
667 B
Mathematica
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
|
|
;
|