ISProfile.LoadMentalEventTemplates

Description

This function returns the mental event templates loaded on the basis of the selected filter.

Syntax

object.LoadMentalEventTemplates(aFilter)

Part	Attribute	Type	Description
`object`	Required	ISProfile	The `object` always implements the ISProfile interface
`aFilter`	In, Required	ISMentalEventTemplatesFilter	The object that defines conditions for filtering

Return Value

ISMentalEventTemplates

Returns the mental event templates loaded on the basis of the selected filter.

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 &_
    "The name of the mental event template is '" & aMentalEventTemplate.EventName &_
    "' " & vbNewLine & "Type: " & aType.Description
next

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Mental Event Templates can be found in Case Clinical > Mental Health.

Version information