source: IHS-VA_UTILITIES-XB/trunk/ZIBGD.m@ 1745

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

Modified directory structure; moved routines.

File size: 1.4 KB
RevLine 
[641]1ZIBGD ; 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
18MSM ; 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
24MSMQ ;
25 KILL %GN,%GSEL,%GSN,%GTEMP,%I,%J1
26 Q
27 ;
28 ;Begin New Code;IHS/SET/GTH XB*3*9 10/29/2002
29CA ;
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 ;
40CAQ ;
41 K %G,%JO,NSPNAM
42 Q
43 ;End New Code;IHS/SET/GTH XB*3*9 10/29/2002
Note: See TracBrowser for help on using the repository browser.