ISReferral.Delete

Example

Delete the referral.

sub main

  Dim aPatient
  Dim aReferralsFilter
  Dim aReferrals, aReferral
  Dim aMessage

  Set aPatient = Profile.SelectPatient
  set aReferralsFilter = Profile.CreateReferralsFilter

  aReferralsFilter.Patient = aPatient.Id

  set aReferrals = Profile.LoadReferrals(aReferralsFilter)
  aMessage = aMessage & "Refferals Count = " & aReferrals.Count

  aMessage = aMessage & vbNewLine & "BEFORE" & vbNewLine & GetReferralsInfo(aReferrals)
  for i = 0 to aReferrals.Count - 1 
    set aReferral = aReferrals.Item(i)
    aReferral.Delete
  next    
   
  aMessage = aMessage & vbNewLine & "AFTER" & vbNewLine & GetReferralsInfo(aReferrals)

  Profile.MsgBox(aMessage)
end sub

function GetReferralsInfo(aReferrals)
  Dim aReferral
  Dim aInfo

  aInfo = "#" & vbTab &_
    "Referred On:" & vbTab & "Referred To:" & vbTab & "IsDeleted (True/False):"

  for i = 0 to aReferrals.Count - 1 
    set aReferral = aReferrals.Item(i)
    aInfo = aInfo & vbNewLine &_
      i & vbTab &_    
      aReferral.ReferredOn & vbTab &_
      aReferral.ReferedToAsString & vbTab &_
      aReferral.IsDeleted
  next
  GetReferralsInfo = aInfo
end function