Cretae BOM through code AX2012/D365 x++

Public BOMVersion createBOM()
    {
        BOMVersion                      bomVersion;
        ItemId                                 _itemId = "ItemId";
        InventTable                         inventTable = InventTable::find(_itemId);
        BOMTable                          bomTable;
        InventDim                           inventDim;
       
        bomTable.BOMId                  = strFmt("BOM-%1",_itemId);
        bomTable.Name                   = strFmt("%1",_EngineeringMaster.ItemId);
        bomTable.SiteId                 = _SiteId
        bomTable.insert();
        bomVersion.clear();
        bomVersion.initValue();
        bomVersion.initFromInventTable(inventTable);
        bomVersion.BOMId                = bomTable.BOMId;
        bomVersion.ItemId               = inventTable.ItemId;
        bomVersion.InventDimId          = bomTable.inventDimIdSite();
        bomVersion.Approved             = false;
        //routeVersion.ApprovedBy       = '1000';
        bomVersion.Active               = false;
        if(bomVersion.validateWrite())
        {
            bomVersion.insert();
        }
        return                  bomVersion;
    }