ISPatientRecallPlan.ApprovalStatus

Description

The approval status of the patient's care plan ('Approved' or 'Pending').

Syntax

object.ApprovalStatus

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

Return Value

TSRecallApprovalStatus

Example

Display the approval status of 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
  aMessage = aMessage & vbNewLine & "Approval status of the care plan '" &_
    aPlan.Description & "' = " & aPlan.ApprovalStatus
next

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Approval Status can be found in Clinical > Medical Record > Care plans > Open active object(s) > General > Approval field.

Version information

Added in v7.8.0