ISPatientRecallPlan.Save

Description

This procedure updates the current care plan object as stored within Profile.

Syntax

object.Save

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

Example

Create the care plan with the specified code and save it.

Dim aPatient
Dim aRecallPlan
Dim aPOSID
Dim aProviderID
Dim aCarePlan
Dim aMessage

Set aPatient = Profile.SelectPatient
aPOSID = aPatient.Get_PosId
aProviderID = aPatient.PracticeDr.ID
set aCarePlan = Profile.LoadCarePlanByCode("TWINTV") 
set aRecallPlan = aPatient.AddRecallPlan(aCarePlan, aPOSID, aProviderID)

if aRecallPlan is nothing then
  Profile.MsgBox("The plan with the specified code has been already created!")
  exit sub
end if 

aRecallPlan.Save

aMessage = aMessage & vbNewLine
aMessage = aMessage & "New Recall Plan was successfully added and saved!"

Profile.MsgBox(aMessage)

Note: Only properties, not identified as readonly, can be updated via this method.

Version information

Added in v7.8.0