  PROCEDURE [INLINE] fdp$locate_added_variable_facts
    (    p_form_module: ^fdt$form_module;
         p_form_variable_definition: ^fdt$form_variable_definition;
     VAR p_added_variable_definition: ^fdt$added_variable_definition);

    VAR
      p_sequence: ^SEQ (*);

          p_sequence := #PTR (p_form_variable_definition^.additional_variable_facts.
                additional_definitions, p_form_module^);
          RESET p_sequence;
          NEXT p_added_variable_definition IN p_sequence;

  PROCEND fdp$locate_added_variable_facts;

?? PUSH (LISTEXT := ON) ??
*copyc fdt$added_variable_definition
*copyc fdt$form_module
*copyc fdt$form_variable_definition
?? POP ??
