Dynamic member list

Question

Can some one give me a complete sample dynamic member list for reference?

Answer 1

Sub EnumMemberLists()
    '|                                                                            |
    '|  This block of code defines which dimensions have lists and how many       |
    '|  lists per dimension have been created.                                    |
    '|____________________________________________________________________________|
     Dim aEntityLists (2)
        Select Case HS.Dimension
          Case "Entity"
               aEntityLists(1) = "US"
               aEntityLists(2) = "NonUS"
               HS.SetMemberLists aEntityLists
     End Select
End Sub 'EnumMemberLists
Sub EnumMembersInList()
    Select Case HS.Dimension
    '|                                                                            |
    '|  This block of code specifies the criteria for each of the entity lists.   |
    '|                                                                            |
    '|  They may be revised as needed. Note that these are dynamic lists.         |
    '|____________________________________________________________________________|
             Case "Entity"
               Select Case HS.MemberListID
                    Case 1
                        US_list = HS.Entity.List("FlatOrg", "[Base]")
                             For US_loop = LBound(US_list) To UBound(US_list)
                              If HS.Entity.UD1(US_list(US_loop)) = "US" Then
                                        HS.AddEntityToList "", US_list(US_loop)
                              End If
                         Next
                    Case 2
                        NonUS_list = HS.Entity.List("FlatOrg", "[Base]")
                             For NonUS_loop = LBound(NonUS_list) To UBound(NonUS_list)
                              If HS.Entity.UD1(NonUS_list(NonUS_loop)) <> "US" Then
                                        HS.AddEntityToList "", NonUS_list(NonUS_loop)
                              End If
                         Next
               End Select 'Entity List
        End Select 'Entity
End Sub 'EnumMembersInList