ISEncounter.Delete

Example

Display the number of the encounters before and after deleting.

sub main
  Dim aPatient        
  Dim aFilter  
  Dim aEncounters, aEncounter
  Dim i
  Dim aMessage
  Dim aTrans 

  Set aTrans = Profile.StartMapTransaction
       
  set aPatient = Profile.SelectPatient 
  set aFilter = Profile.CreateEncounterFilter
  aFilter.PatientId = aPatient.ID                 
  set aEncounters = aPatient.LoadEncounters(aFilter)
                                                                 
  aMessage = "Before deleting: " & GetEncountersInfo(aEncounters)

  for i = 0 to aEncounters.Count - 1
    set aEncounter = aEncounters.Item(i)
    aEncounter.Delete
  next    

  aTrans.Commit 
 
  set aTrans = Profile.StartMapTransaction
  set aEncounters = aPatient.LoadEncounters(aFilter)
  aMessage = aMessage & vbNewLine & vbNewLine &_ 
    "After deleting: " & GetEncountersInfo(aEncounters)       
                                     
  Profile.MsgBox (aMessage)
end sub    

function GetEncountersInfo(aEncounters)
  Dim aInfo
  Dim aEncounter

  aInfo = vbNewLine & "Encounters Count = " & aEncounters.Count & vbNewLine
  for i = 0 to aEncounters.Count - 1
    set aEncounter = aEncounters.Item(i)
  next 

  GetEncountersInfo = aInfo

end function