| [641] | 1 | ZIBGD ; IHS/ADC/GTH - DIRECTORY OF SELECTED GLOBALS ; [ 12/29/2004 11:25 AM ]
|
|---|
| 2 | ;;4.0;XB;;Jul 20, 2009;Build 2
|
|---|
| 3 | ;XB*3*9 IHS/SET/GTH XB*3*9 10/29/2002 Cache' mods.
|
|---|
| 4 | ;
|
|---|
| 5 | ; This routine displays a selected range or sub-set
|
|---|
| 6 | ; of the global directory.
|
|---|
| 7 | ;
|
|---|
| 8 | ; Save, or copy, to the MGR uci as %ZIBGD, or %AZGD.
|
|---|
| 9 | ;
|
|---|
| 10 | ; Thanks to Don Enos, OHPRD, for the original routine.
|
|---|
| 11 | ;
|
|---|
| 12 | ; 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
|
|---|
| 13 | 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
|
|---|
| 14 | ;
|
|---|
| 15 | ;Begin New Code;IHS/SET/GTH XB*3*9 10/29/2002
|
|---|
| 16 | I $$VERSION^%ZOSV(1)["Cache" D CA Q
|
|---|
| 17 | ;End New Code;IHS/SET/GTH XB*3*9 10/29/2002
|
|---|
| 18 | MSM ; Micronetics
|
|---|
| 19 | D ^%GSEL
|
|---|
| 20 | G:%GSEL=0 MSMQ
|
|---|
| 21 | S %GSN=1
|
|---|
| 22 | D ^%GSEL2
|
|---|
| 23 | G MSM ;IHS/SET/GTH XB*3*9 10/29/2002
|
|---|
| 24 | MSMQ ;
|
|---|
| 25 | KILL %GN,%GSEL,%GSN,%GTEMP,%I,%J1
|
|---|
| 26 | Q
|
|---|
| 27 | ;
|
|---|
| 28 | ;Begin New Code;IHS/SET/GTH XB*3*9 10/29/2002
|
|---|
| 29 | CA ;
|
|---|
| 30 | ;D ^%GSET ;TASSC/MFD obsolete
|
|---|
| 31 | S %G=$$Select^%GSETNS ;TASSC/MFD new call
|
|---|
| 32 | G:%G=0 CAQ
|
|---|
| 33 | NEW ZIBI,ZIBNAM
|
|---|
| 34 | S ZIBNAM=""
|
|---|
| 35 | 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
|
|---|
| 36 | W !,?5,ZIBI," Globals",!
|
|---|
| 37 | KILL ZIBI,ZIBNAM
|
|---|
| 38 | G CA
|
|---|
| 39 | ;
|
|---|
| 40 | CAQ ;
|
|---|
| 41 | K %G,%JO,NSPNAM
|
|---|
| 42 | Q
|
|---|
| 43 | ;End New Code;IHS/SET/GTH XB*3*9 10/29/2002
|
|---|
