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