ISPatient.FindVersions

Description

This function returns the patient's versions loaded on the basis of the selected filter.

Syntax

object.FindVersions(aFilter)

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

Return Value

ISCollection

Returns the patient's versions loaded on the basis of the selected filter.

Example

Display the full name of the patient in each of the patient's versions loaded on the basis of the selected filter.

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.LastName & ", " & aVersion.FirstName
next
  
Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Versions can be found in Patient > Alter Patient > General > Show Versions.

Version information