|
(* New for LPM/6 *)(item : structural_frame_item) : BAG OF label;
LOCAL
i : INTEGER;
cost_codes : BAG OF label := [];
item_assignment : BAG OF item_cost_code_assigned :=
(USEDIN (item,
'STRUCTURAL_FRAME_SCHEMA.' +
'ITEM_COST_CODE_ASSIGNED.' +
'COSTED_ITEM'));
END_LOCAL;
IF SIZEOF (item_assignment) > 0 THEN
REPEAT i := 1 to HIINDEX (item_assignment);
cost_codes := cost_codes + item_assignment[i].code\item_cost_code.cost_code;
END_REPEAT;
END_IF;
RETURN (cost_codes);
|
|