ISPatient.FindAllFolderMembersWithDates

Description

This function returns the table of the folder members and some information about them (the columns with their ID, name, age, sex and the dates they were created and deleted) by the folder code.

Syntax

object.FindAllFolderMembersWithDates(aFolderCode)

Part	Attribute	Type	Description
`object`	Required	ISPatient	The `object` always implements the ISPatient interface
`aFolderCode`	In, Required	string	The code of the patient's folder

Return Value

ISInMemoryTable

Returns the table of the folder members and some information about them by the folder code.

Example

Display the table of the folder members, their ID, name, age, sex and the dates they were created and deleted.

Dim aPatient  
Dim aTable
Dim aColumn
Dim aBody

Set aPatient = Profile.SelectPatient
set aTable = aPatient.FindAllFolderMembersWithDates("A1234")

aTable.First

aBody = aTable.TableName & vbNewLine

for j = 0 to aTable.ColumnCount - 1
  set aColumn = aTable.Field(j)
  aBody = aBody & aColumn.Name & chr(9)       
next
aBody = aBody & vbNewLine

for i = 0 to aTable.RecordCount - 1
  for j = 0 to aTable.ColumnCount - 1
    aBody = aBody & aTable.Cells(i, j) & chr(9)     
  next
  
  aBody = aBody & vbNewLine
  aTable.Next 
next 

Profile.MsgBox (aBody)

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