 PROCEDURE [XREF] fdp$xdelete_form (VAR form_identifier: integer;
    VAR status: integer);
