ISClientTaskListFilters.GetTaskListFilter

Description

This function returns the collection of task list filters.

Syntax

object.GetTaskListFilter(aIndex)

Part	Attribute	Type	Description
`object`	Required	ISClientTaskListFilters	The `object` always implements the ISClientTaskListFilters interface
`aIndex`	In, Required	int

Return Value

ISClientTaskListFilter

Example

Display the number of the task list filters and some information about them.

Dim aTaskListFilters, aTaskListFilter
Dim aMessage
Dim i
Dim aPatient, aPatientName

Set aTaskListFilters = Profile.GetClientTasksFilters
aMessage = "Tasks Filters Count = " & aTaskListFilters.Count & " (Default Index is " &_ 
  aTaskListFilters.DefaultFilterIndex & ")"  
  
for i = 0 to aTaskListFilters.Count - 1
  set aTaskListFilter = aTaskListFilters.GetTaskListFilter(i)
  
  if aTaskListFilter.PatientId > 0 then
    aPatientName = Profile.LoadPatient(aTasksFilter.PatientId).SurnameFirstName
  else  
    aPatientName = " - "
  end if  
  aMessage = aMessage & vbNewLine &_
    "Description: " & aTaskListFilter.Description & vbNewLine &_ 
    "Display Description: " & aTaskListFilter.DisplayDescription & vbNewLine &_  
    "Load From: " & aTaskListFilter.LoadFrom & vbNewLine &_  
    "Load Limit: " & aTaskListFilter.LoadLimit & vbNewLine &_
    "Patient Id: " & aTaskListFilter.PatientId & vbNewLine &_      
    "Patient: " & aPatientName & vbNewLine &_  
    "Tasks Count: " & aTaskListFilter.TaskCount & vbNewLine   
next  
 
Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Task List Filters can be found in Clinical > Medical Record > Tasks > Edit filters > Views.

Version information

Added in v7.8.0