APCLXXDA.m

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

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

 ;;XBVK ; IHS/ADC/GTH - LOCAL VARIABLE KILLER FRONT END ;  [ 04/04/96   5:04 PM ]

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

 ;; ;

 ;; ; This is the front end for killing local variables in the

 ;; ; namespaced parameter.  Implementation specific routines

 ;; ; are called from this routine.  Those routines are in the

 ;; ; ZIBVK* namespace.

 ;; ;

 ;; ; This routine is intended to be called by applications

 ;; ; that are thru executing, in order to KILL any remaining

 ;; ; namespaced local variables.  E.g., D EN^XBVK("AG") will

 ;; ; KILL any local variables that exist in the AG namespace.

 ;; ;

 ;; ; Notice that if called in background, and the OS is not

 ;; ; supported, the routine will quit, unpleasantly.  If your

 ;; ; implementation is other than what is supported, below,

 ;; ; and your vendor has implemented all Type A extensions to

 ;; ; the 1990 ANSI M standard, you can safely remove the two

 ;; ; lines that check for OS, and use the existing call to

 ;; ; the MSM-specific routine.

 ;; ;

 ;; Q

 ;; ;

 ;;EN(XBVK) ;PEP - Kill vars in namespace of parameter variable.

 ;; ;

 ;; I '$L($T(@$P(^%ZOSF("OS"),"-",1))) W !,*7,"OPERATING SYSTEM '",$P(^%ZOSF("OS"),"-",1),"' NOT SUPPORTED." Q

 ;; G @$P(^%ZOSF("OS"),"-",1)

 ;; ;

 ;;MSM ; Micronetics Standard MUMPS.

 ;; D EN^ZIBVKMSM(XBVK)

 ;; Q

 ;; ;

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

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

 +2       ;;XBVK ; IHS/ADC/GTH - LOCAL VARIABLE KILLER FRONT END ;  [ 04/04/96   5:04 PM ]

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

 +4       ;; ;

 +5       ;; ; This is the front end for killing local variables in the

 +6       ;; ; namespaced parameter.  Implementation specific routines

 +7       ;; ; are called from this routine.  Those routines are in the

 +8       ;; ; ZIBVK* namespace.

 +9       ;; ;

 +10      ;; ; This routine is intended to be called by applications

 +11      ;; ; that are thru executing, in order to KILL any remaining

 +12      ;; ; namespaced local variables.  E.g., D EN^XBVK("AG") will

 +13      ;; ; KILL any local variables that exist in the AG namespace.

 +14      ;; ;

 +15      ;; ; Notice that if called in background, and the OS is not

 +16      ;; ; supported, the routine will quit, unpleasantly.  If your

 +17      ;; ; implementation is other than what is supported, below,

 +18      ;; ; and your vendor has implemented all Type A extensions to

 +19      ;; ; the 1990 ANSI M standard, you can safely remove the two

 +20      ;; ; lines that check for OS, and use the existing call to

 +21      ;; ; the MSM-specific routine.

 +22      ;; ;

 +23      ;; Q

 +24      ;; ;

 +25      ;;EN(XBVK) ;PEP - Kill vars in namespace of parameter variable.

 +26      ;; ;

 +27      ;; I '$L($T(@$P(^%ZOSF("OS"),"-",1))) W !,*7,"OPERATING SYSTEM '",$P(^%ZOSF("OS"),"-",1),"' NOT SUPPORTED." Q

 +28      ;; G @$P(^%ZOSF("OS"),"-",1)

 +29      ;; ;

 +30      ;;MSM ; Micronetics Standard MUMPS.

 +31      ;; D EN^ZIBVKMSM(XBVK)

 +32      ;; Q

 +33      ;; ;