ISPatientRecallPlan.Patient

Description

The patient the care plan is created for.

Syntax

object.Patient

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

Restriction: This property is readonly.

Return Value

ISPatient

Example

Display the full name of the patient the care plan is created for.

DDim aPatient
Dim aRecallPlans
Dim aMessage
Dim aPlan

Set aPatient = Profile.SelectPatient
set aRecallPlans = aPatient.RecallPlans

if aRecallPlans.Count = 0 then
  Profile.MsgBox("The patient has no care plans!")
  exit sub
end if

for each aPlan in aRecallPlans
  aMessage = aMessage & vbNewLine & "The full name of the patient the" &_ 
    " care plan '" & aPlan.Description & "' is created for is " &_
    aPlan.Patient.SurnameFirstName
next

Profile.MsgBox(aMessage)

Note:

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

Version information

Added in v7.8.0