ISCareVisit.doDeleted

Description

This function deletes the intervention template by its code.

Syntax

object.doDeleted

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

Example

Delete the intervention template by its code.

Dim aCarePlan
Dim aMessage
Dim aVisits
Dim aVisit

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

if aVisits.Count = 0 then
  Profile.MsgBox("There are no care visits!")
  exit sub
end if  
 
for i = 0 to aVisits.Count - 1
  set aVisit = aVisits.Item(i)
  if aVisit.Code = "FLUBV" then
    Profile.MsgBox ("The intervention with the code '" &_
    aVisit.Code & "' was successfully deleted!")
    aVisit.DoDeleted  
  end if       
next

Note:

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

Version information

Added in v7.8.0