Dimension values as lookup for string control D365

[FormControlEventHandler(formControlStr(ProjTable, ProjTable_INTC_ReferralDepartment), FormControlEventType::Lookup)]
    public static void ProjTable_INTC_ReferralDepartment_OnLookup(FormControl sender, FormControlEventArgs e)
    {
        SysTableLookup          sysTableLookup = SysTableLookup::newParameters(tablenum(DimensionAttributeValue), sender, true);
        Query                   qr = new Query();
        QueryBuildDataSource    queryBuildDataSource;
        QueryBuildRange         queryBuildRange;
        DimensionAttribute      dimAttribute;

        dimAttribute = DimensionAttribute::findByName("D_Department");
        qr.addDataSource(tablenum(DimensionAttributeValue)).addRange(fieldNum(DimensionAttributeValue,DimensionAttribute)).value(queryValue(dimAttribute.RecId));
        sysTableLookup.addLookupMethod(tableMethodStr(DimensionAttributeValue, getname));
        sysTableLookup.addLookupMethod(tableMethodStr(DimensionAttributeValue, getValue), true);
        sysTableLookup.parmQuery(qr);
        sysTableLookup.parmUseLookupValue(true);
        sysTableLookup.performFormLookup();
    }