ISPatientFolderMembers.Item

Description

Each of the patients within the folder members.

Syntax

object.Item(aIndex)

Part	Attribute	Type	Description
`object`	Required	ISPatientFolderMembers	The `object` always implements the ISPatientFolderMembers interface
`aIndex`	In, Required	int	The index of the folder member

Restriction: This property is readonly.

Return Value

ISPatient

Example

Display the number of the folder members, the first name and the last name of each of them.

Dim aPatient  
Dim aFolderMembers
Dim aFolderMember
Dim aMessage

Set aPatient = Profile.SelectPatient 
set aFolderMembers = aPatient.FolderMembers
aMessage = "Folder Members Count = " & aFolderMembers.Count

for i = 0 to aFolderMembers.Count - 1
  set aFolderMember = aFolderMembers.Item(i)
  aMessage = aMessage & vbNewLine
  aMessage = aMessage & " " & aFolderMember.LastName & ", " & aFolderMember.FirstName
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