|
(* 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);
|
|