source: IHS-VA_UTILITIES-XB/trunk/XBVL.m@ 1251

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

Modified directory structure; moved routines.

File size: 1.2 KB
Line 
1XBVL ; IHS/ADC/GTH - LOCAL VARIABLE LISTER FRONT END ; [ 10/29/2002 7:42 AM ]
2 ;;4.0;XB;;Jul 20, 2009;Build 2
3 ; XB*3*4 IHS/ADC/GTH 05-22-97 Prevent <INDER> err.
4 ; XB*3*9 IHS/SET/GTH 06/05/2002 Cache' mods.
5 ;
6 ; This is the front end for listing local variables.
7 ; Implementation specific routines are called from this
8 ; routine. Those routines are in the ZIBVL* namespace.
9 ;
10 ; I '$L($T(@$P(^%ZOSF("OS"),"-",1))) W !,*7,"OPERATING SYSTEM '",$P(^%ZOSF("OS"),"-",1),"' NOT SUPPORTED." Q ; XB*3*4 IHS/ADC/GTH 05-22-97 Prevent <INDER> err.
11 ; G @$P(^%ZOSF("OS"),"-",1) ; XB*3*4 IHS/ADC/GTH 05-22-97 Prevent <INDER> err.
12 I ($$VERSION^%ZOSV(1)["Cache")!($$VERSION^%ZOSV(1)["MSM") G ^ZIBVL ;IHS/SET/GTH XB*3*9 10/29/2002
13 ; I $P(^%ZOSF("OS"),"^",1)["MSM" G MSM ; XB*3*4 IHS/ADC/GTH 05-22-97 Prevent <INDER> err. ;IHS/SET/GTH XB*3*9 10/29/2002
14 W !,*7,"OPERATING SYSTEM '",$P(^%ZOSF("OS"),"^",1),"' NOT SUPPORTED." ; XB*3*4 IHS/ADC/GTH 05-22-97 Prevent <INDER> err.
15 Q ; XB*3*4 IHS/ADC/GTH 05-22-97 Prevent <INDER> err.
16 ;
17MSM ; Micronetics Standard MUMPS.
18 G ^ZIBVLMSM
19 ;
20MESSAGE ;EP - Tell user of limitations.
21 W !!?5,"DO routine ^XBVL from programmer mode."
22 W !?5,"Not all local variables are available thru the XB menu.",!!
23 Q
24 ;
Note: See TracBrowser for help on using the repository browser.