ISLetterVers.DeletedDT

Example

Display some information about the letter in the selected letter version, including the date and time the version was deleted.

sub main()
  Dim aPatient
  Dim aLetters
  Dim aDate
  Dim aMessage

  Set aPatient = Profile.SelectPatient
  set aLetters = aPatient.GetLetters (1) ' slcfWordRTF

  aDate = #11/12/2019 01:47:00#
  aMessage = GetLetterInfo(aLetters, aDate)

  Profile.MsgBox(aMessage)
end sub


function GetLetterInfo(aLetters, aDate)
  Dim aInfo
  Dim aLetter
  Dim aLetterOnDate
  
  aInfo = "The number of the letters is " & aLetters.Count & vbNewLine
  
  for i = 0 to aLetters.Count - 1
    set aLetter = aLetters.Item(i)
    aInfo = aInfo & vbNewLine & "CURRENT LETTER VERSION: " & vbNewLine &_
      "   Subject: " & aLetter.Subject2 & vbNewLine &_
      "   ID: " & aLetter.ID & vbNewLine &_
      "   Date: " & aLetter.Date & vbNewLine &_
      "LETTER VERSION ON DATE:  " & vbNewLine    
    
    set aLetterOnDate = aLetter.VersionOnDate (aDate)
    if aLetterOnDate is nothing then    
      aInfo = aInfo & "   None" & vbNewLine 
    else            
      aInfo = aInfo &_
        "   Subject: " & aLetterOnDate.Subject2 & vbNewLine &_
        "   ID: " & aLetterOnDate.ID & vbNewLine &_
        "   Deleted Date and Time: " & aLetterOnDate.DeletedDT & vbNewLine 
    end if 
  next 'i   
  GetLetterInfo = aInfo
end function