ISRecallObjectiveVers.SnapshotDate

Example

Display the date and time the snapshot of the object version was shown.

sub main   
  Dim aPatient
  Dim aRecallPlans
  Dim aPlan
  Dim i
  Dim aObjectives
  Dim aObjective
  Dim aObjectiveOnDate
  Dim aMessage
     
  Set aPatient = Profile.SelectPatient
  set aRecallPlans = aPatient.RecallPlans
  aVersionDate = #04/05/2019 11:16#
   
  if aRecallPlans.Count = 0 then
    Profile.MsgBox("The patient has no care plans!")
    exit sub
  end if

  for each aPlan in aRecallPlans
    set aObjectives = aPlan.RecallObjectives
    aMessage = aMessage & vbNewLine & "PLAN: '" & aPlan.Description & "'" & vbNewLine 

    for i = 0 to aObjectives.Count - 1
      set aObjective = aObjectives.Item(i)
      set aObjectiveOnDate = aObjective.VersionOnDate(aVersionDate)
      aMessage = aMessage & vbNewLine &_
        "OBJECTIVE VERSION NAME: " & aObjectiveOnDate.DisplayName & vbNewLine &_
        "SNAPSHOT DATE AND TIME: " & aObjectiveOnDate.SnapshotDate 
        
    next 
  next 
  Profile.MsgBox(aMessage)  
end sub