44 lines
1.4 KiB
Mathematica
44 lines
1.4 KiB
Mathematica
|
ZIBGD ; IHS/ADC/GTH - DIRECTORY OF SELECTED GLOBALS ; [ 12/29/2004 11:25 AM ]
|
||
|
|
;;4.0;XB;;Jul 20, 2009;Build 2
|
||
|
|
;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
|