Ax2012 Get Active Dimension Names for Ledger account

Get the active Dimension names for the Ledger order by the Dimension Hierarchy Level.

static void krishh_getActiveFinanicialdimensions(Args _args)
{
    DimensionAttributeSetItem   dimAttrSetItem;
    DimensionAttribute          dimAttr;
    DimensionEnumeration        dimensionSetId;

    DimensionHierarchyLevel     dimHierarchyLevel;
    recId                       chartOfAccountsId;
    LedgerChartOfAccountsStructure  ledgerChartOfAccountsStructure;
    ;
    //Get the record Id (dimension set id) for current ledger to find active dimensions
    dimensionSetId = DimensionCache::getDimensionAttributeSetForLedger();
    chartOfAccountsId = Ledger::find(Ledger::current()).ChartOfAccounts;
    //Find all the active dimensions for current ledger except main account and display them
 
 while select name from dimAttr
            where dimAttr.Type != DimensionAttributeType::MainAccount
        join RecId from dimAttrSetItem
            where dimAttrSetItem.DimensionAttribute == dimAttr.RecId &&
                dimAttrSetItem.DimensionAttributeSet == dimensionSetId
        join RecId from dimHierarchyLevel
                 order by level
                where dimHierarchyLevel.DimensionAttribute == dimAttr.RecId
        exists join ledgerChartOfAccountsStructure
                where ledgerChartOfAccountsStructure.DimensionHierarchy == dimHierarchyLevel.DimensionHierarchy &&
                    ledgerChartOfAccountsStructure.ChartOfAccounts == chartOfAccountsId
    {
        info(dimAttr.Name);
    }

}