This function creates the filter for loading tasks.
object.CreateTasksFilter()
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISProfile interface |
Display the number of the tasks loaded on the basis of the selected filter and their descriptions.
Dim aPatient
Dim pFilter
Dim aTasks
Dim aTask
Dim aMessage
Set aPatient = Profile.SelectPatient
set pFilter = Profile.CreateTasksFilter
pFilter.PatientId = aPatient.ID
set aTasks = Profile.LoadTasks(pFilter)
aMessage = "Tasks Count = " & aTasks.Count & vbNewLine
for i = 0 to aTasks.Count - 1
set aTask = aTasks.Item(i)
aMessage = aMessage & vbNewLine & aTask.Description
next
Profile.MsgBox(aMessage)
In Profile Client v8 on User Interface Tasks can be found in
.