
  PROCEDURE [INLINE] dfp$set_terminated_mtr_status
    (    p_queue_interface_table: dft$p_queue_interface_table;
         queue_index: dft$queue_index;
     VAR status: syt$monitor_status);

    VAR
      p_cpu_queue_header: ^dft$cpu_queue_header;

    p_cpu_queue_header := ^p_queue_interface_table^.queue_directory.
          cpu_queue_pva_directory [queue_index].p_cpu_queue^.queue_header;
    status.normal := FALSE;
    IF (p_cpu_queue_header^.partner_status.server_state = dfc$terminated) THEN
      status.condition := dfe$server_has_terminated;
    ELSE
      { dfe$server_not_active,
      status.condition := ioe$unit_disabled;
    IFEND;

  PROCEND dfp$set_terminated_mtr_status;
?? PUSH (LISTEXT := ON) ??
*copyc dfd$driver_queue_types
*copyc dfe$error_condition_codes
*copyc dft$cpu_queue
*copyc ioe$st_errors
*copyc syt$monitor_status
?? POP ??
