Navigation

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;