ISCareTeam.Delete

Example

Delete the care team member with the specified properties.

sub main
  Dim aPatient
  Dim aCareTeamFilter
  Dim aCareTeams, aCareTeam
  Dim i
  Dim tr
  Dim aProvToReplace
  Dim aPPPURoleID
  Dim aPayerID
  Dim aProvider
  Dim aRoleShortCode
  Dim aMessage

  set tr = Profile.StartMapTransaction

  Set aPatient = Profile.SelectPatient
  set aCareTeamFilter = Profile.CreateCareTeamFilter

  aCareTeamFilter.Patient = aPatient.Id
  
  set aCareTeams = Profile.LoadCareTeams(aCareTeamFilter)  
  aMessage = "Care Team Members before being deleted: " & vbNewLine &_
    GetCareTemsAsList(aCareTeams) 
   
  set aProvToReplace = Profile.LoadProvider("PROV")
  aPPPURoleID = 0
  aPayerID = 0  
       
  for i = 0 to aCareTeams.Count - 1
    set aCareTeam = aCareTeams.Item(i)
    aCareTeam.Delete
  next     

  tr.Commit

  set tr = Profile.StartMapTransaction
  set aCareTeams = Profile.LoadCareTeams(aCareTeamFilter)
   
  aMessage = aMessage & vbNewLine & vbNewLine &_ 
    "Care Team Members after being deleted: " & vbNewLine &_
    GetCareTemsAsList(aCareTeams)
 
  Profile.MsgBox (aMessage)
end sub

function GetCareTemsAsList(aCareTeams)
  Dim aMessage
  Dim i
  Dim aRoleShortCode
  Dim aCareTeam
  Dim aProvider
  
  aMessage = "Team Member Count = " & aCareTeams.Count & vbNewLine
  for i = 0 to aCareTeams.Count - 1
    set aCareTeam = aCareTeams.Item(i)
  
    set aRoleShortCode = Profile.LoadShortCode(aCareTeam.RoleID)  
    aMessage = aMessage & aRoleShortCode.Description & vbTab
    
    if aCareTeam.PersonId <= 0 then  
      aMessage = aMessage & "Provider: UNASSIGNED" & vbNewLine
    else
      set aProvider = Profile.LoadProviderById(aCareTeam.PersonId)  
      aMessage = aMessage & "Provider: " & aProvider.FullName & vbNewLine
    end if
  next
  GetCareTemsAsList = aMessage
end function