
  PROCEDURE [INLINE] fdp$check_for_active_form
    (    form_identifier: fdt$form_identifier;
     VAR p_form_status: ^fdt$form_status;
     VAR status: ost$status);

    fdp$find_form_status (form_identifier, p_form_status, status);
    IF status.normal THEN
      IF p_form_status^.added OR p_form_status^.combined THEN
        IF p_form_status^.push_count <> 0 THEN
          osp$set_status_abnormal (fdc$format_display_identifier,
                fde$form_pushed, p_form_status^.p_form_definition^.form_name,
                status);
        IFEND;

      ELSE { The form is not currently added. Some operations on the form }
        {are not valid. }
        osp$set_status_abnormal (fdc$format_display_identifier,
              fde$form_not_scheduled, p_form_status^.p_form_definition^.
              form_name, status);
      IFEND;
    IFEND;
  PROCEND fdp$check_for_active_form;

?? PUSH (LISTEXT := ON) ??
*copyc fde$condition_identifiers
*copyc fdp$find_form_status
*copyc fdt$form_identifier
*copyc fdt$form_status
*copyc ost$status
*copyc osp$set_status_abnormal
?? POP ??
