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

APCLXXEA.m

Go to the documentation of this file.
  1. APCLXXEA ; IHS/OHPRD/TMJ -CREATED BY ^XBERTN ON APR 18, 1996 ;
  1. ;;3.0;IHS PCC REPORTS;;FEB 05, 1997
  1. ;;ZIBVKMSM ; IHS/ADC/GTH - KILL VARIABLES ; [ 04/04/96 5:04 PM ]
  1. ;; ;;3.0;IHS/VA UTILITIES;;APR 30, 1996
  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 Don Enos, OHPRD, 2 Oct 1995.
  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=$O(@ZIBVKNS,-1)
  1. ;; S:ZIBVKX="" ZIBVKX="%"
  1. ;; K:ZIBVKNS="%" @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. ;; ;