ISPatientRecallPlan.CreateObjective

Description

This function adds an objective to the patient's care plan.

Syntax

object.CreateObjective(aName)

Part	Attribute	Type	Description
`object`	Required	ISPatientRecallPlan	The `object` always implements the ISPatientRecallPlan interface
`aName`	In, Required	string	The name of the objective

Return Value

ISRecallObjective

Returns the added objective.

Example

Add the objective to the patient's care plan.

Dim 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
  aPlan.CreateObjective ("11111")
  aMessage = aMessage & vbNewLine & "The objective for the " &_ 
    "patient's care plan '" & aPlan.Description & "' was successfully created! "  
next

Profile.MsgBox(aMessage)

Note:

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

Version information

Added in v7.8.0