|
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:
667 bytes
|
| Line | |
|---|
| 1 | ZIBVKMSM ; 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 | ;
|
|---|
| 12 | EN(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.
