APCLXXEA.m

APCLXXEA ; IHS/OHPRD/TMJ -CREATED BY ^XBERTN ON APR 18, 1996 ;

 ;;3.0;IHS PCC REPORTS;;FEB 05, 1997

 ;;ZIBVKMSM ; IHS/ADC/GTH - KILL VARIABLES ; [ 04/04/96   5:04 PM ]

 ;; ;;3.0;IHS/VA UTILITIES;;APR 30, 1996

 ;; ;

 ;; ; This routine kills variables in the namespace of the

 ;; ; variable passed in the parameter.

 ;; ; This routine is accessed thru the front end routine XBVK.

 ;; ;

 ;; ; Original routine provided by Don Enos, OHPRD, 2 Oct 1995.

 ;; ;

 ;; Q  ;        No entry from top

 ;; ;

 ;;EN(ZIBVKNS) ;EP - KILL Local variables in the passed namespace.

 ;; ;

 ;; Q:$G(ZIBVKNS)=""

 ;; NEW ZIBVKX

 ;; S ZIBVKX=$O(@ZIBVKNS,-1)

 ;; S:ZIBVKX="" ZIBVKX="%"

 ;; K:ZIBVKNS="%" @ZIBVKNS

 ;; 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

 ;; Q

 ;; ;

APCLXXEA  ; IHS/OHPRD/TMJ -CREATED BY ^XBERTN ON APR 18, 1996 ;

 +1       ;;3.0;IHS PCC REPORTS;;FEB 05, 1997

 +2       ;;ZIBVKMSM ; IHS/ADC/GTH - KILL VARIABLES ; [ 04/04/96   5:04 PM ]

 +3       ;; ;;3.0;IHS/VA UTILITIES;;APR 30, 1996

 +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 Don Enos, OHPRD, 2 Oct 1995.

 +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=$O(@ZIBVKNS,-1)

 +18      ;; S:ZIBVKX="" ZIBVKX="%"

 +19      ;; K:ZIBVKNS="%" @ZIBVKNS

 +20      ;; 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

 +21      ;; Q

 +22      ;; ;