ISPatientFolderMembers.OrderByAge

Description

This function orders the folder members by age.

Syntax

object.OrderByAge aAsc

Part	Attribute	Type	Description
`object`	Required	ISPatientFolderMembers	The `object` always implements the ISPatientFolderMembers interface
`aAsc`	In, Required	bool	If aAsc = True the folder members are being sorted in ascending order. Otherwise, the folder members are being sorted in descending order.

Example

Display the list of the folder members ordered by age.

Dim aPatient  
Dim aFolderMembers
Dim aFolderMember
Dim aMessage

Set aPatient = Profile.SelectPatient 
set aFolderMembers = aPatient.FolderMembers 

aMessage = "Folder Members Count = " & aFolderMembers.Count 

aFolderMembers.OrderByAge(True)

for i = 0 to aFolderMembers.Count - 1
  set aFolderMember = aFolderMembers.Item(i)
  aMessage = aMessage & vbNewLine
  aMessage = aMessage & " " & aFolderMember.LastName & ", " & aFolderMember.Age
next

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Folder Members can be found in Patient > Alter Patient > Family > Folder Members.

Version information

Added in v7.8.0