source: IHS-VA_UTILITIES-XB/trunk/ZIBVKCA.m@ 1511

Last change on this file since 1511 was 642, checked in by Sam Habiel, 15 years ago

Modified directory structure; moved routines.

File size: 674 bytes
Line 
1ZIBVKCA ; IHS/ADC/GTH - KILL VARIABLES ; [ 10/29/2002 7:42 AM ]
2 ;;4.0;XB;;Jul 20, 2009;Build 2
3 ; XB*3*9 IHS/SET/GTH XB*3*9 10/29/2002
4 ;
5 ; This routine kills variables in the namespace of the
6 ; variable passed in the parameter.
7 ; This routine is accessed thru the front end routine XBVK.
8 ;
9 ; Original routine provided by Dr. Mark Delaney, TASSC, 12 Dec 2001.
10 ;
11 Q ; No entry from top
12 ;
13EN(ZIBVKNS) ;EP - KILL Local variables in the passed namespace.
14 ;
15 Q:$G(ZIBVKNS)=""
16 NEW ZIBVKX
17 S ZIBVKX=ZIBVKNS K @ZIBVKNS
18 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
19 Q
20 ;
Note: See TracBrowser for help on using the repository browser.