ZIBRD.m

%ZIBRD ; IHS/ADC/GTH - DISPLAY MSM DIRECTORY OF SELECTED RTNS ; [ 10/29/2002   7:42 AM ]

 ;;3.0;IHS/VA UTILITIES;**9**;FEB 07, 1997

 ; 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

 ;

%ZIBRD    ; IHS/ADC/GTH - DISPLAY MSM DIRECTORY OF SELECTED RTNS ; [ 10/29/2002   7:42 AM ]

 +1       ;;3.0;IHS/VA UTILITIES;**9**;FEB 07, 1997

 +2       ; XB*3*9 IHS/SET/GTH XB*3*9 10/29/2002 Cache' mods.

 +3       ;

 +4       ; Generate routine directory of selected routines

 +5       ;

 +6       ; Save, or %RCOPY, this routine to the MGR uci, named as

 +7       ; %ZIBRD.  It may also be name %AZRD.

 +8       ;

START     ;

 +1       ; IHS/SET/GTH XB*3*9 10/29/2002

           IF $$VERSION^%ZOSV(1)["Cache"

               DO ^%RD

               KILL MSYS,R,nrou

               QUIT 

 +2        XECUTE ^%ZOSF("RSEL")

 +3        IF $ORDER(^UTILITY($JOB,""))=""

               GOTO EXIT

 +4        NEW I,NAM,Y

 +5        WRITE !?21,"Routine Directory",?40

 +6        DO ^%D

 +7        XECUTE ^%ZOSF("UCI")

 +8        WRITE !?25,"of ",Y,?40

 +9        DO ^%T

 +10       WRITE !

%ST1      ;

 +1       ;S NAM="" ;IHS/SET/GTH XB*3*9 10/29/2002

 +2       ;IHS/SET/GTH XB*3*9 10/29/2002

           SET NAM=0

 +3        FOR I=0:1

               SET NAM=$ORDER(^UTILITY($JOB,NAM))

               IF NAM=""

                   QUIT 

               IF '(I#8)

                   WRITE !

               WRITE NAM,$JUSTIFY("",9-$LENGTH(NAM))

 +4        WRITE !?5,I," Routines",!

 +5       ;IHS/SET/GTH XB*3*9 10/29/2002

           GOTO START

EXIT      ;

 +1        KILL %UCI,%UCN

 +2        KILL I,^UTILITY($JOB)

 +3        QUIT 

 +4       ;