ISMentalEventTemplate.EventTypeId

Description

ID of the short code of type 'Mental Health Event Type'.

Syntax

object.EventTypeId

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

Restriction: This property is readonly.

Return Value

int

Example

Display the number of the mental event templates loaded on the basis of the selected filter, their names and types.

Dim aFilter
Dim MentalEventTemplate, MentalEventTemplates
Dim aMessage
Dim i
Dim aType

Set aFilter = Profile.CreateMentalEventTemplatesFilter
aFilter.Name = "Change location"
set aMentalEventTemplates = Profile.LoadMentalEventTemplates(aFilter)
aMessage = "Mental Event Templates Count = " & aMentalEventTemplates.Count

for i = 0 to aMentalEventTemplates.Count - 1
  set aMentalEventTemplate = aMentalEventTemplates.Item(i)
  set aType = Profile.LoadShortCode(aMentalEventTemplate.EventTypeId)
  aMessage = aMessage & vbNewLine &_
    "Name: " & aMentalEventTemplate.EventName & vbNewLine &_
    "Type: " & aType.Description
next

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Type ID cannot be found, but Type can be found in Maintain > Events > Type.

Version information

Added in v7.8.0