
  FUNCTION [INLINE] osp$convert_to_diagnos_severity
    (    severity: ost$message_module_severity): ost$diagnostic_severity;

?? PUSH (LISTEXT := ON) ??

    CASE severity OF
    = osc$mm_informative_severity =
      osp$convert_to_diagnos_severity := osc$informative_severity;
    = osc$mm_warning_severity =
      osp$convert_to_diagnos_severity := osc$warning_severity;
    = osc$mm_error_severity =
      osp$convert_to_diagnos_severity := osc$error_severity;
    = osc$mm_fatal_severity =
      osp$convert_to_diagnos_severity := osc$fatal_severity;
    = osc$mm_catastrophic_severity =
      osp$convert_to_diagnos_severity := osc$catastrophic_severity;
    = osc$mm_non_standard_severity =
      osp$convert_to_diagnos_severity := osc$non_standard_severity;
    = osc$mm_dependent_severity =
      osp$convert_to_diagnos_severity := osc$dependent_severity;
    ELSE
      ;
    CASEND;

  FUNCEND osp$convert_to_diagnos_severity;

*copyc ost$diagnostic_severity
*copyc ost$message_module_severity
?? POP ??
