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;