source: IHS-VA_UTILITIES-XB/trunk/ZIBVKMSM.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: 667 bytes
Line 
1ZIBVKMSM ; IHS/ADC/GTH - KILL VARIABLES ; [ 02/07/97 3:02 PM ]
2 ;;4.0;XB;;Jul 20, 2009;Build 2
3 ;
4 ; This routine kills variables in the namespace of the
5 ; variable passed in the parameter.
6 ; This routine is accessed thru the front end routine XBVK.
7 ;
8 ; Original routine provided by Don Enos, OHPRD, 2 Oct 1995.
9 ;
10 Q ; No entry from top
11 ;
12EN(ZIBVKNS) ;EP - KILL Local variables in the passed namespace.
13 ;
14 Q:$G(ZIBVKNS)=""
15 NEW ZIBVKX
16 S ZIBVKX=$O(@ZIBVKNS,-1)
17 S:ZIBVKX="" ZIBVKX="%"
18 K:ZIBVKNS="%" @ZIBVKNS
19 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
20 Q
21 ;
Note: See TracBrowser for help on using the repository browser.