ISPatientRecallPlan.IsImmunization

Description

This function checks if the patient's care plan is an immunisation one.

Syntax

object.IsImmunization()

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

Return Value

bool

Returns True if the patient's care plan is an immunisation one.

Example

Display IsImmunization for 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 & "The plan '" & aPlan.Description &_
    "is an immunization one: "  & aPlan.IsImmunization 
    
next

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Interface Immunisation Plans can be found in Clinical > Medical Record > Care Plans or Clinical > Immunisations.

Version information

Added in v7.8.0