|
Last change
on this file since 641 was 641, checked in by Sam Habiel, 15 years ago |
|
Initial commit of XB, move away from sf.net.
Includes kids file and documentation.
|
|
File size:
674 bytes
|
| Line | |
|---|
| 1 | ZIBVKCA ; 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 | ;
|
|---|
| 13 | EN(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.
