Sub LocateRoles()
' This analytic macro determines whether a org unit definition has roles assigned to it
' Only for current diagram
Dim blnHasRoles As Boolean ' flag to determine whether roles are present
Dim oCurrentDgm As Diagram
Dim oOrgUnitSym As symbol
Dim colOrgUnits As SAObjects
Dim colRoles As OfCollection
Dim sa As Application
On Error Resume Next
Set sa = New Application
Set oCurrentDgm = sa.Encyclopedia.GetCurrentDiagram

If oCurrentDgm Is Nothing Then
MsgBox SAXRes.GetLocalString(IDS_SAAutoAnalytics____adiagrammustbeopentorunthisanalytic), vbExclamation
Else
Set colOrgUnits = oCurrentDgm.GetFilteredSymbols(vbNullString, ETCATORGUNIT)
colOrgUnits.ReadAll

For Each oOrgUnitSym In colOrgUnits
blnHasRoles = False
If oOrgUnitSym.Definition.GetProperty("Roles within Unit") <> vbNullString Then 'DEV_STRING
Set colRoles = oOrgUnitSym.Definition.GetPropertyAsCollection("Roles within Unit") 'DEV_STRING
If colRoles.Count = 0 Then
blnHasRoles = False
Else
blnHasRoles = True
End If
End If
If blnHasRoles = True Then
oOrgUnitSym.SetProperty, "None" 'DEV_STRING
Else
oOrgUnitSym.SetProperty "Analytic Role", "Not Present" 'DEV_STRING
End If
oOrgUnitSym.Save
Next oOrgUnitSym

RefreshDiagram
Set colRoles = Nothing
Set colOrgUnits = Nothing
Set sa = Nothing
End If
End Sub

Private Sub RefreshDiagram()
Dim ISA As ISAImf
On Error Resume Next
Set ISA = Application.Interface("ISAImf") 'DEV_STRING
ISA.SAExecuteMenuCommand 310
End Sub