ID of the sub type associated with the organisation node.
object.SubTypeID
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISOrgMember interface |
int
Display the name of the organisation node, its sub type and sub type ID.
Dim aFilter
Dim aOrgMember
Dim aOrgMembers
Dim aSubType
Dim aMessage
Set aFilter = Profile.CreateOrgMembersFilter
set aOrgMembers = Profile.LoadOrgMembers(aFilter)
aMessage = "Org Nodes Count = " & aOrgMembers.Count
for each aOrgMember in aOrgMembers
aMessage = aMessage & vbNewLine & "-------------------------" & vbNewLine & _
"ORGANISATION NODE: " & aOrgMember.Name & vbNewLine &_
"SUB TYPE ID: " & aOrgMember.CareTypeID
set aSubType = aOrgMember.SubType
if not aSubType is nothing then
aMessage = aMessage & vbNewLine & "SUB TYPE: " & aSubType.Description
end if
next
Profile.MsgBox(aMessage)
In Profile Client v8 on User Interface Sub Type ID cannot be found.