ISPatient.LoadRecallPlanByCode

Description

This function returns the care plans for the patient by code.

Syntax

object.LoadRecallPlanByCode(RecallCode)

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

Return Value

ISPatientRecallPlan

Returns the care plans for the patient by code.

Example

Display the enrolment date and description for the patient's care plans with the selected code.

Dim aPatient  
Dim aRecallPlan
Dim aMessage

Set aPatient = Profile.SelectPatient

if aPatient.LoadRecallPlanByCode("BP") is nothing then 
   Profile.MsgBox ("No recall plans with code BP!")
   
else 
 
  set aRecallPlan = aPatient.LoadRecallPlanByCode("BP")
   
  aMessage = aMessage & vbNewLine
  aMessage = aMessage & aRecallPlan.EnrolmentDate & ", "
  aMessage = aMessage & "'" & aRecallPlan.Description & "'" 
  
  Profile.MsgBox (aMessage)
    
end if

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