ZIBGD.m

ZIBGD ; IHS/ADC/GTH - DIRECTORY OF SELECTED GLOBALS ; [ 12/29/2004  11:25 AM ]

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

 ;XB*3*9 IHS/SET/GTH XB*3*9 10/29/2002 Cache' mods.

 ;

 ;  This routine displays a selected range or sub-set

 ;  of the global directory.

 ;

 ;  Save, or copy, to the MGR uci as %ZIBGD, or %AZGD.

 ;

 ;  Thanks to Don Enos, OHPRD, for the original routine.

 ;

 ; I $G(^%ZOSF("OS"))'["MSM" W $C(7),!,"Sorry....",!,"Operating System '",$P(^%ZOSF("OS"),"^",1),"' is not supported." Q ;IHS/SET/GTH XB*3*9 10/29/2002

 I $G(^%ZOSF("OS"))'["MSM",'($$VERSION^%ZOSV(1)["Cache") W $C(7),!,"Sorry....",!,"Operating System '",$P(^%ZOSF("OS"),"^",1),"' is not supported." Q  ;IHS/SET/GTH XB*3*9 10/29/2002

 ;

 ;Begin New Code;IHS/SET/GTH XB*3*9 10/29/2002

 I $$VERSION^%ZOSV(1)["Cache" D CA Q

 ;End New Code;IHS/SET/GTH XB*3*9 10/29/2002

MSM ; Micronetics

 D ^%GSEL

 G:%GSEL=0 MSMQ

 S %GSN=1

 D ^%GSEL2

 G MSM ;IHS/SET/GTH XB*3*9 10/29/2002

MSMQ ;

 KILL %GN,%GSEL,%GSN,%GTEMP,%I,%J1

 Q

 ;

 ;Begin New Code;IHS/SET/GTH XB*3*9 10/29/2002

CA ;

 ;D ^%GSET     ;TASSC/MFD obsolete

 S %G=$$Select^%GSETNS    ;TASSC/MFD new call

 G:%G=0 CAQ

 NEW ZIBI,ZIBNAM

 S ZIBNAM=""

 F ZIBI=0:1 S ZIBNAM=$O(^%utility($J,ZIBNAM)) Q:ZIBNAM=""   W:'(ZIBI#8) ! W ZIBNAM_$J("",9-$L(ZIBNAM))              ;TASSC/MFD changed UTILITY to %utility for Cache

 W !,?5,ZIBI," Globals",!

 KILL ZIBI,ZIBNAM

 G CA

 ;

CAQ ;

 K %G,%JO,NSPNAM

 Q

 ;End New Code;IHS/SET/GTH XB*3*9 10/29/2002

ZIBGD     ; IHS/ADC/GTH - DIRECTORY OF SELECTED GLOBALS ; [ 12/29/2004  11:25 AM ]

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

 +2       ;XB*3*9 IHS/SET/GTH XB*3*9 10/29/2002 Cache' mods.

 +3       ;

 +4       ;  This routine displays a selected range or sub-set

 +5       ;  of the global directory.

 +6       ;

 +7       ;  Save, or copy, to the MGR uci as %ZIBGD, or %AZGD.

 +8       ;

 +9       ;  Thanks to Don Enos, OHPRD, for the original routine.

 +10      ;

 +11      ; I $G(^%ZOSF("OS"))'["MSM" W $C(7),!,"Sorry....",!,"Operating System '",$P(^%ZOSF("OS"),"^",1),"' is not supported." Q ;IHS/SET/GTH XB*3*9 10/29/2002

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

           IF $GET(^%ZOSF("OS"))'["MSM"

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

                   WRITE $CHAR(7),!,"Sorry....",!,"Operating System '",$PIECE(^%ZOSF("OS"),"^",1),"' is not supported."

                   QUIT 

 +13      ;

 +14      ;Begin New Code;IHS/SET/GTH XB*3*9 10/29/2002

 +15       IF $$VERSION^%ZOSV(1)["Cache"

               DO CA

               QUIT 

 +16      ;End New Code;IHS/SET/GTH XB*3*9 10/29/2002

MSM       ; Micronetics

 +1        DO ^%GSEL

 +2        IF %GSEL=0

               GOTO MSMQ

 +3        SET %GSN=1

 +4        DO ^%GSEL2

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

           GOTO MSM

MSMQ      ;

 +1        KILL %GN,%GSEL,%GSN,%GTEMP,%I,%J1

 +2        QUIT 

 +3       ;

 +4       ;Begin New Code;IHS/SET/GTH XB*3*9 10/29/2002

CA        ;

 +1       ;D ^%GSET     ;TASSC/MFD obsolete

 +2       ;TASSC/MFD new call

           SET %G=$$Select^%GSETNS

 +3        IF %G=0

               GOTO CAQ

 +4        NEW ZIBI,ZIBNAM

 +5        SET ZIBNAM=""

 +6       ;TASSC/MFD changed UTILITY to %utility for Cache

           FOR ZIBI=0:1

               SET ZIBNAM=$ORDER(^%utility($JOB,ZIBNAM))

               IF ZIBNAM=""

                   QUIT 

               IF '(ZIBI#8)

                   WRITE !

               WRITE ZIBNAM_$JUSTIFY("",9-$LENGTH(ZIBNAM))

 +7        WRITE !,?5,ZIBI," Globals",!

 +8        KILL ZIBI,ZIBNAM

 +9        GOTO CA

 +10      ;

CAQ       ;

 +1        KILL %G,%JO,NSPNAM

 +2        QUIT 

 +3       ;End New Code;IHS/SET/GTH XB*3*9 10/29/2002