get_item_cost_code

EXPRESS specification:

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