source: IHS-VA_UTILITIES-XB/trunk/ZIBRD.m@ 1697

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

Modified directory structure; moved routines.

File size: 860 bytes
Line 
1%ZIBRD ; IHS/ADC/GTH - DISPLAY MSM DIRECTORY OF SELECTED RTNS ; [ 10/29/2002 7:42 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 ; Generate routine directory of selected routines
6 ;
7 ; Save, or %RCOPY, this routine to the MGR uci, named as
8 ; %ZIBRD. It may also be name %AZRD.
9 ;
10START ;
11 I $$VERSION^%ZOSV(1)["Cache" D ^%RD KILL MSYS,R,nrou Q ; IHS/SET/GTH XB*3*9 10/29/2002
12 X ^%ZOSF("RSEL")
13 G:$O(^UTILITY($J,""))="" EXIT
14 NEW I,NAM,Y
15 W !?21,"Routine Directory",?40
16 D ^%D
17 X ^%ZOSF("UCI")
18 W !?25,"of ",Y,?40
19 D ^%T
20 W !
21%ST1 ;
22 ;S NAM="" ;IHS/SET/GTH XB*3*9 10/29/2002
23 S NAM=0 ;IHS/SET/GTH XB*3*9 10/29/2002
24 F I=0:1 S NAM=$O(^UTILITY($J,NAM)) Q:NAM="" W:'(I#8) ! W NAM,$J("",9-$L(NAM))
25 W !?5,I," Routines",!
26 G START ;IHS/SET/GTH XB*3*9 10/29/2002
27EXIT ;
28 KILL %UCI,%UCN
29 KILL I,^UTILITY($J)
30 Q
31 ;
Note: See TracBrowser for help on using the repository browser.