ISPatientRecallPlans.Add

Description

This function inserts the patient's care plans.

Syntax

object.Add aPlanID

Part	Attribute	Type	Description
`object`	Required	ISPatientRecallPlans	The `object` always implements the ISPatientRecallPlans interface
`aPlanID`	In, Required	int	ID of the care plan

Example

Insert the patient's care plans.

Dim aPatient
Dim aRecallPlans
Dim aMessage
Dim aPlanIds

Set aPatient = Profile.SelectPatient
set aRecallPlans = Profile.LoadRecallPlansByPatientID(aPatientId)
set aPlanIds = Profile.CreateIntCollection   
for each aPlan in aRecallPlans
  aPlanIds.Add aPlan.Id      
next
      
if aRecallPlans.Count = 0 then
  Profile.MsgBox("The patient has no care plans!")
  exit sub
end if 

aMessage = aMessage & vbNewLine & "The number of the care plans BEFORE DELETING = " &_
  aRecallPlans.Count
   
for i = 0 to aPlanIds.Count - 1
  aRecallPlans.Delete  aPlanIds.Item(i)
next

aMessage = aMessage & vbNewLine & "The number of the care plans AFTER DELETING = " &_
  aRecallPlans.Count 

for i = 0 to aPlanIds.Count - 1
  aRecallPlans.Add  aPlanIds.Item(i)
next

aMessage = aMessage & vbNewLine & "The number of the care plans AFTER ADDING = " &_
  aRecallPlans.Count

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Add cannot be found.

Version information

Added in v7.8.0