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

    VAR
      fdv$screen_status: [XREF] fdt$screen_status;

    IF fdv$screen_status.p_forms_status <> NIL THEN
      IF (form_identifier > 0) AND (form_identifier <= UPPERBOUND (fdv$screen_status.p_forms_status^)) THEN
        p_form_status := ^fdv$screen_status.p_forms_status^ [form_identifier];
        IF p_form_status^.entry_used THEN
          status.normal := TRUE;
          RETURN;
        IFEND;
      IFEND;
    IFEND;

    osp$set_status_abnormal (fdc$format_display_identifier, fde$invalid_form_identifier, '', status);
    osp$append_status_integer (osc$status_parameter_delimiter, $INTEGER (form_identifier), 10, FALSE, status);

  PROCEND fdp$find_form_definition;

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