ISCareVisit.Save

Description

This function saves an intervention template within the care plan.

Syntax

object.Save

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

Example

Save the intervention template within the care plan.

Dim aCarePlan
Dim aMessage
Dim aVisits
Dim aVisit

Set aCarePlan = Profile.LoadCarePlanByCode ("FLU") 
set aVisits = aCarePlan.Visits

if aVisits.Count = 0 then
  aMessage = "There are no interventions!"
else
  set aFirstVisit = aVisits.Item(0)
  aFirstVisit.Description = "New Description for Intervention Template"
  aFirstVisit.Save
  aMessage = "Intervention Template was successfully saved!"     
end if       
   
Profile.MsgBox (aMessage)

Note:

In Profile Client v8 on User Interface Interventions can be found in Maintain > Care Plans > Open Plan > Interventions.

Version information

Added in v7.8.0