AZRD.m

AZRD ; [ 09/03/87  8:16 AM ]

 ;REMOVED VARIABLE %SYS FROM LINE AZRD+4

 ;%WSYS FOLLOWED %UCI VARIABLE

 K:$D(^UTILITY($J)) ^UTILITY($J)

 D ^%RSEL G:$O(^UTILITY($J,""))="" EXIT

 W !,?21,"Routine Directory",?40 D ^%D,^%GUCI W !,?25,"of ",%UCI,?40 D ^%T W !

%ST1 S %NAM=""

 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",!

EXIT ;

 K I,^UTILTIY($J),%NAM

 Q

AZRD      ; [ 09/03/87  8:16 AM ]

 +1       ;REMOVED VARIABLE %SYS FROM LINE AZRD+4

 +2       ;%WSYS FOLLOWED %UCI VARIABLE

 +3        IF $DATA(^UTILITY($JOB))

               KILL ^UTILITY($JOB)

 +4        DO ^%RSEL

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

               GOTO EXIT

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

           DO ^%D

           DO ^%GUCI

           WRITE !,?25,"of ",%UCI,?40

           DO ^%T

           WRITE !

%ST1       SET %NAM=""

 +1        FOR I=0:1

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

               IF %NAM=""

                   QUIT 

               IF '(I#8)

                   WRITE !

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

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

EXIT      ;

 +1        KILL I,^UTILTIY($JOB),%NAM

 +2        QUIT