 PROCEDURE [XREF] fdp$xposition_form (VAR form_identifier: integer;
    VAR screen_x_position: integer;
    VAR screen_y_position: integer;
    VAR status: integer);
