XBVL.m

XBVL ; IHS/ADC/GTH - LOCAL VARIABLE LISTER FRONT END ; [ 10/29/2002   7:42 AM ]

 ;;3.0;IHS/VA UTILITIES;**4,9**;FEB 07, 1997

 ; XB*3*4 IHS/ADC/GTH 05-22-97 Prevent <INDER> err.

 ; XB*3*9 IHS/SET/GTH 06/05/2002 Cache' mods.

 ;

 ; This is the front end for listing local variables.

 ; Implementation specific routines are called from this

 ; routine.  Those routines are in the ZIBVL* namespace.

 ;

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

 ; G @$P(^%ZOSF("OS"),"-",1) ; XB*3*4 IHS/ADC/GTH 05-22-97 Prevent <INDER> err.

 I ($$VERSION^%ZOSV(1)["Cache")!($$VERSION^%ZOSV(1)["MSM") G ^ZIBVL ;IHS/SET/GTH XB*3*9 10/29/2002

 ; 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

 W !,*7,"OPERATING SYSTEM '",$P(^%ZOSF("OS"),"^",1),"' NOT SUPPORTED." ; XB*3*4 IHS/ADC/GTH 05-22-97 Prevent <INDER> err.

 Q  ; XB*3*4 IHS/ADC/GTH 05-22-97 Prevent <INDER> err.

 ;

MSM ; Micronetics Standard MUMPS.

 G ^ZIBVLMSM

 ;

MESSAGE ;EP - Tell user of limitations.

 W !!?5,"DO routine ^XBVL from programmer mode."

 W !?5,"Not all local variables are available thru the XB menu.",!!

 Q

 ;

XBVL      ; IHS/ADC/GTH - LOCAL VARIABLE LISTER FRONT END ; [ 10/29/2002   7:42 AM ]

 +1       ;;3.0;IHS/VA UTILITIES;**4,9**;FEB 07, 1997

 +2       ; XB*3*4 IHS/ADC/GTH 05-22-97 Prevent <INDER> err.

 +3       ; XB*3*9 IHS/SET/GTH 06/05/2002 Cache' mods.

 +4       ;

 +5       ; This is the front end for listing local variables.

 +6       ; Implementation specific routines are called from this

 +7       ; routine.  Those routines are in the ZIBVL* namespace.

 +8       ;

 +9       ; 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.

 +10      ; G @$P(^%ZOSF("OS"),"-",1) ; XB*3*4 IHS/ADC/GTH 05-22-97 Prevent <INDER> err.

 +11      ;IHS/SET/GTH XB*3*9 10/29/2002

           IF ($$VERSION^%ZOSV(1)["Cache")!($$VERSION^%ZOSV(1)["MSM")

               GOTO ^ZIBVL

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

 +13      ; XB*3*4 IHS/ADC/GTH 05-22-97 Prevent <INDER> err.

           WRITE !,*7,"OPERATING SYSTEM '",$PIECE(^%ZOSF("OS"),"^",1),"' NOT SUPPORTED."

 +14      ; XB*3*4 IHS/ADC/GTH 05-22-97 Prevent <INDER> err.

           QUIT 

 +15      ;

MSM       ; Micronetics Standard MUMPS.

 +1        GOTO ^ZIBVLMSM

 +2       ;

MESSAGE   ;EP - Tell user of limitations.

 +1        WRITE !!?5,"DO routine ^XBVL from programmer mode."

 +2        WRITE !?5,"Not all local variables are available thru the XB menu.",!!

 +3        QUIT 

 +4       ;