ISPatientRecallPlan.DelVisit

Description

This function deletes an intervention within the patient's care plan.

Syntax

object.DelVisit aId

Part	Attribute	Type	Description
`object`	Required	ISPatientRecallPlan	The `object` always implements the ISPatientRecallPlan interface
`aId`	In, Required	int	ID of the intervention

Example

Delete the intervention within the patient's care plan.

Dim aPatient
Dim aRecallPlans
Dim aMessage
Dim aPlan

Set aPatient = Profile.SelectPatient
set aRecallPlans = aPatient.RecallPlans

if aRecallPlans.Count = 0 then
  Profile.MsgBox("The patient has no care plans!")
  exit sub
end if

for each aPlan in aRecallPlans
  set aVisits = aPlan.Visits
  for each aVisit in aVisits
    aVisitId = aVisit.Id
    aMessage = aMessage & vbNewLine & "The intervention '" & aVisit.Description &_
      "' within the care plan '" & aPlan.Description & "' was successfully " &_
      "deleted! " 
    aPlan.DelVisit aVisitId
  next      
next

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Interventions can be found and deleted in Clinical > Medical Record > Care plans.

Version information

Added in v7.8.0