| 1 | XBVK ; 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 | ;
|
|---|
| 26 | EN(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 | ;
|
|---|
| 34 | MSM ; Micronetics Standard MUMPS.
|
|---|
| 35 | D EN^ZIBVKMSM(XBVK)
|
|---|
| 36 | Q
|
|---|
| 37 | ;
|
|---|
