32 lines
860 B
Mathematica
32 lines
860 B
Mathematica
|
%ZIBRD ; IHS/ADC/GTH - DISPLAY MSM DIRECTORY OF SELECTED RTNS ; [ 10/29/2002 7:42 AM ]
|
||
|
|
;;4.0;XB;;Jul 20, 2009;Build 2
|
||
|
|
; XB*3*9 IHS/SET/GTH XB*3*9 10/29/2002 Cache' mods.
|
||
|
|
;
|
||
|
|
; Generate routine directory of selected routines
|
||
|
|
;
|
||
|
|
; Save, or %RCOPY, this routine to the MGR uci, named as
|
||
|
|
; %ZIBRD. It may also be name %AZRD.
|
||
|
|
;
|
||
|
|
START ;
|
||
|
|
I $$VERSION^%ZOSV(1)["Cache" D ^%RD KILL MSYS,R,nrou Q ; IHS/SET/GTH XB*3*9 10/29/2002
|
||
|
|
X ^%ZOSF("RSEL")
|
||
|
|
G:$O(^UTILITY($J,""))="" EXIT
|
||
|
|
NEW I,NAM,Y
|
||
|
|
W !?21,"Routine Directory",?40
|
||
|
|
D ^%D
|
||
|
|
X ^%ZOSF("UCI")
|
||
|
|
W !?25,"of ",Y,?40
|
||
|
|
D ^%T
|
||
|
|
W !
|
||
|
|
%ST1 ;
|
||
|
|
;S NAM="" ;IHS/SET/GTH XB*3*9 10/29/2002
|
||
|
|
S NAM=0 ;IHS/SET/GTH XB*3*9 10/29/2002
|
||
|
|
F I=0:1 S NAM=$O(^UTILITY($J,NAM)) Q:NAM="" W:'(I#8) ! W NAM,$J("",9-$L(NAM))
|
||
|
|
W !?5,I," Routines",!
|
||
|
|
G START ;IHS/SET/GTH XB*3*9 10/29/2002
|
||
|
|
EXIT ;
|
||
|
|
KILL %UCI,%UCN
|
||
|
|
KILL I,^UTILITY($J)
|
||
|
|
Q
|
||
|
|
;
|