!
!
! ***** DECUS$DEFINED_PROCEDURE *****
!
PROCEDURE decus$defined_procedure(x)	! See if a procedure is defined
   LOCAL temp;
              
   on_error
      if (error = tpu$_multiplenames) then
         RETURN (1);
      else
         RETURN (0);
      endif;
   endon_error;

   temp := EXPAND_NAME (x, procedures);
   RETURN (1);

ENDPROCEDURE;