source: IHS-VA_UTILITIES-XB/trunk/XBVK.m@ 811

Last change on this file since 811 was 642, checked in by Sam Habiel, 15 years ago

Modified directory structure; moved routines.

File size: 1.9 KB
Line 
1XBVK ; IHS/ADC/GTH - LOCAL VARIABLE KILLER FRONT END ; [ 10/29/2002 7:42 AM ]
2 ;;4.0;XB;;Jul 20, 2009;Build 2
3 ; XB*3*5 IHS/ADC/GTH 10-31-97 Prevent INDIR on NT systems.
4 ; XB*3*9 IHS/SET/GTH XB*3*9 10/29/2002 NT and Cache' mods.
5 ;
6 ; This is the front end for killing local variables in the
7 ; namespaced parameter. Implementation specific routines
8 ; are called from this routine. Those routines are in the
9 ; ZIBVK* namespace.
10 ;
11 ; This routine is intended to be called by applications
12 ; that are thru executing, in order to KILL any remaining
13 ; namespaced local variables. E.g., D EN^XBVK("AG") will
14 ; KILL any local variables that exist in the AG namespace.
15 ;
16 ; Notice that if called in background, and the OS is not
17 ; supported, the routine will quit, unpleasantly. If your
18 ; implementation is other than what is supported, below,
19 ; and your vendor has implemented all Type A extensions to
20 ; the 1990 ANSI M standard, you can safely remove the two
21 ; lines that check for OS, and use the existing call to
22 ; the MSM-specific routine.
23 ;
24 Q
25 ;
26EN(XBVK) ;PEP - Kill vars in namespace of parameter variable.
27 ;
28 ; I '$L($T(@$P(^%ZOSF("OS"),"-",1))) W !,*7,"OPERATING SYSTEM '",$P(^%ZOSF("OS"),"-",1),"' NOT SUPPORTED." Q ; XB*3*5 IHS/ADC/GTH 10-31-97 Prevent INDIR on NT systems.
29 ; I $P(^%ZOSF("OS"),"^",1)'["MSM" W !,*7,"OPERATING SYSTEM '",$P(^%ZOSF("OS"),"^",1),"' NOT SUPPORTED." Q ; XB*3*5 IHS/ADC/GTH 10-31-97 Prevent INDIR on NT systems. ; IHS/SET/GTH XB*3*9 10/29/2002
30 I $P(^%ZOSF("OS"),"^",1)'["MSM",$P(^%ZOSF("OS"),"^",1)'["OpenM" W !,*7,"OPERATING SYSTEM '",$P(^%ZOSF("OS"),"^",1),"' NOT SUPPORTED." Q ; XB*3*5 IHS/ADC/GTH 10-31-97 Prevent INDIR on NT systems. ; IHS/SET/GTH XB*3*9 10/29/2002
31 ; G @$P(^%ZOSF("OS"),"-",1) ; XB*3*5 IHS/ADC/GTH 10-31-97 Prevent INDIR on NT systems.
32 I $P(^%ZOSF("OS"),"^",1)["OpenM" D EN^ZIBVKCA(XBVK) Q ; IHS/SET/GTH XB*3*9 10/29/2002
33 ;
34MSM ; Micronetics Standard MUMPS.
35 D EN^ZIBVKMSM(XBVK)
36 Q
37 ;
Note: See TracBrowser for help on using the repository browser.