Navigation

get_item_ref

EXPRESS specification:

FUNCTION get_item_ref
(* New for LPM/6 *)(item : structural_frame_item) : BAG OF identifier;
  LOCAL
    i : INTEGER;
    refs : BAG OF identifier := [];
    item_assignment : BAG OF item_reference_assigned :=
               (USEDIN (item,
               'STRUCTURAL_FRAME_SCHEMA.' +
               'ITEM_REFERENCE_ASSIGNED.' +
               'ASSIGNED_TO_ITEM'));
  END_LOCAL;
    
  IF SIZEOF (item_assignment) > 0 THEN
    REPEAT i := 1 to HIINDEX (item_assignment);
      refs := refs + item_assignment[i].assigned_reference\item_reference.ref;
    END_REPEAT;
  END_IF;
  
  RETURN (refs);
END_FUNCTION;