ISProfile.CreateVersionFilter

Description

This function creates the filter for loading versions.

Syntax

object.CreateVersionFilter()

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

Return Value

ISVersionFilter

Returns the filter for loading versions.

Example

Display the patient's full names and statuses in each patient version.

Dim aPatient  
Dim aVersions
Dim aVersion
Dim aFilter
Dim aMessage

Set aPatient = Profile.SelectPatient
set aFilter = Profile.CreateVersionFilter
aFilter.FromDate = #01/01/2018#
set aVersions = aPatient.FindVersions(aFilter) 

aMessage = "Versions Count = " & aVersions.Count

for i = 0 to aVersions.Count - 1
  set aVersion = aVersions.Item(i)
  aMessage = aMessage & vbNewLine & aVersion.SurnameFirstName &_ 
    ", the patient's status in this version is " & aVersion.Status
next
  
Profile.MsgBox(aMessage)

Note:

Version information

Added in v7.8.0