ISProfile.CreateRecallPlanFilter

Description

This function creates the filter for loading care plans.

Syntax

object.CreateRecallPlanFilter()

Part	Attribute	Type	Description
`object`	Required	ISProfile	The `object` always implements the ISProfile interface

Return Value

ISRecallPlanFilter

Returns the care plans loaded on the basis of the selected filter.

Example

Display the number of the care plans loaded on the basis of the selected filter, their codes and descriptions.

Dim aPatient
Dim aFilter 
Dim aRecallPlans
Dim aRecallPlan
Dim aMessage 

Set aPatient = Profile.SelectPatient       
set aFilter = Profile.CreateRecallPlanFilter
aFilter.PatientId = aPatient.Id
set aRecallPlans = Profile.LoadRecallPlansExt(aFilter)

aMessage = "Care Plans Count = " & aRecallPlans.Count
for i = 0 to aRecallPlans.Count - 1
  set aRecallPlan = aRecallPlans.Item(i) 
  aMessage = aMessage & vbNewLine &_
    (i + 1) & ")  " &_
    aRecallPlan.Description & " (" & aRecallPlan.Code & ")"
next      

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Care Plans can be found in Clinical > Medical Record > Care Plans.

Version information

Added in v7.8.0