Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ZIBVKCA

ZIBVKCA.m

Go to the documentation of this file.
  1. ZIBVKCA ; IHS/ADC/GTH - KILL VARIABLES ; [ 10/29/2002 7:42 AM ]
  1. ;;3.0;IHS/VA UTILITIES;**9**;FEB 07, 1997
  1. ; XB*3*9 IHS/SET/GTH XB*3*9 10/29/2002
  1. ;
  1. ; This routine kills variables in the namespace of the
  1. ; variable passed in the parameter.
  1. ; This routine is accessed thru the front end routine XBVK.
  1. ;
  1. ; Original routine provided by Dr. Mark Delaney, TASSC, 12 Dec 2001.
  1. ;
  1. Q ; No entry from top
  1. ;
  1. EN(ZIBVKNS) ;EP - KILL Local variables in the passed namespace.
  1. ;
  1. Q:$G(ZIBVKNS)=""
  1. NEW ZIBVKX
  1. S ZIBVKX=ZIBVKNS K @ZIBVKNS
  1. 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
  1. Q
  1. ;