ID of the care type associated with the organisation node.
object.CareTypeID
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISOrgMember interface |
int
Display the name of the organisation node, its care type and care type ID.
Dim aFilter
Dim aOrgMember
Dim aOrgMembers
Dim aCareType
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 &_
"CARE TYPE ID: " & aOrgMember.CareTypeID
set aCareType = aOrgMember.CareType
if not aCareType is nothing then
aMessage = aMessage & vbNewLine & "CARE TYPE: " & aCareType.Description
end if
next
Profile.MsgBox(aMessage)
In Profile Client v8 on User Interface Care Type ID cannot be found.