
  PROCEDURE [INLINE] pfp$get_cycle_damage_options
    (    p_attachment_options: {input} ^fst$attachment_options;
     VAR media_damage_detection_enabled: boolean;
     VAR allowed_cycle_damage_symptoms: fst$cycle_damage_symptoms);

?? PUSH (LISTEXT := ON) ??
    VAR
      options_index: ost$positive_integers;

    media_damage_detection_enabled := FALSE;
    allowed_cycle_damage_symptoms := $fst$cycle_damage_symptoms [];

    IF p_attachment_options <> NIL THEN
      FOR options_index := 1 TO UPPERBOUND (p_attachment_options^) DO
        IF p_attachment_options^ [options_index].selector = fsc$exception_detection THEN
          media_damage_detection_enabled := (fsc$media_image_inconsistent IN
                p_attachment_options^ [options_index].exception_detection);
        ELSEIF p_attachment_options^ [options_index].selector = fsc$allowed_exceptions THEN
          allowed_cycle_damage_symptoms := p_attachment_options^ [options_index].allowed_exceptions.
                damage_symptoms;
        IFEND;
      FOREND;
    IFEND;

  PROCEND pfp$get_cycle_damage_options;

*copyc fst$attachment_options
*copyc fst$cycle_damage_symptoms
*copyc osd$integer_limits
?? POP ??
