ISProfile.LoadRecallPlans

Description

This function returns care plans by the code.

Syntax

object.LoadRecallPlans(aCode)

Part	Attribute	Type	Description
`object`	Required	ISProfile	The `object` always implements the ISProfile interface
`aCode`	In, Required	string	The code of the care plan

Return Value

ISPatientRecallPlans

Returns care plans by the code.

Example

Display the number of care plans and some information about them.

Dim aRecallPlan
Dim aRecallPlans
Dim aMessage
Dim i

Set aRecallPlans = Profile.LoadRecallPlans("MHACT")
 
aMessage = "Care Plans Count = " & aRecallPlans.Count & vbNewLine 

for i = 0 to aRecallPlans.Count - 1
  set aRecallPlan = aRecallPlans.Item(i)
  aMessage = aMessage & vbNewLine &_
    "Description: " & aRecallPlan.Description & vbNewLine &_
    "Code: " & aRecallPlan.Code & vbNewLine &_
    "Status: " & aRecallPlan.Status & vbNewLine &_
    "Patient: " & Profile.LoadPatient(aRecallPlan.PatientId).SurnameFirstName & vbNewLine &_
    "Is New: " & aRecallPlan.IsNew & vbNewLine &_
    "Comment: " & aRecallPlan.Comment & vbNewLine 
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