ISOrgMember.ContactTypeID

Description

ID of the contact type for a new encounter which will be started from the selected organisation node.

Syntax

object.ContactTypeID

Part	Attribute	Type	Description
`object`	Required	ISOrgMember	The `object` always implements the ISOrgMember interface

Restriction: This property is readonly.

Return Value

int

Example

Display ID of the contact type for a new encounter which will be started from the selected organisation node.

Dim aFilter
Dim aOrgMember
Dim aOrgMembers
Dim aShortCode
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 &_
    "Contact Type ID:  " & aOrgMember.ContactTypeID
  if (aOrgMember.ContactTypeID > 0) then
    set aShortCode = Profile.LoadShortCode(aOrgMember.ContactTypeID)
    aMessage = aMessage & " (" & aShortCode.Description & ") "
  end if
next      

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Contact Type ID cannot be found. Contact Type can be found in Organisation > Preferences > Organisation > Preferences > Default encounter values > Contact Type field.

Version information

Added in v7.8.0