ISProfile.CreateMentalEventTemplatesFilter

Description

This function creates the filter for loading mental event templates.

Syntax

object.CreateMentalEventTemplatesFilter()

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

Return Value

ISMentalEventTemplatesFilter

Returns the the filter for loading mental event templates.

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

Added in v7.8.0