 PROCEDURE [XREF] fdp$xreplace_integer_variable (VAR form_identifier: integer;
    VAR variable_name: string ( * );
    VAR variable_occurrence: integer;
    VAR variable: integer;
    VAR variable_status: integer;
    VAR status: integer);
