ISCareVisit.delAction

Description

This function deletes an action by its service code within an intervention template.

Syntax

object.delAction Code

Part	Attribute	Type	Description
`object`	Required	ISCareVisit	The `object` always implements the ISCareVisit interface
`Code`	In, Required	string	The code of the action

Example

Delete the action by its service code within the intervention template.

Dim aCarePlan
Dim aMessage
Dim aVisits
Dim aVisit
Dim aTrans
Dim aActions
Dim aAction

set aTrans = Profile.StartMapTransaction

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)
  aMessage = aMessage & vbNewLine &_
    "Intervention: " & aVisit.Description 

  aVisit.delAction("FLUVAX") '  
  aTrans.SnapShot

  set aActions = aVisit.Actions
  for j = 0 to aActions.Count - 1    
    set aAction = aActions.Item(j)
    aMessage = aMessage & vbNewLine &  "  Action: " & aAction.Description    
  next 'j    
next 'i
  
Profile.MsgBox (aMessage)

Note:

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

Version information

Added in v7.8.0