ISRecallActionVers.SnapshotDate

Example

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

sub main   
  Dim aPatient
  Dim aRecallPlans
  Dim aPlan
  Dim aVisit
  Dim aVisits
  Dim aActions
  Dim aAction
  Dim aMessage
     
  Set aPatient = Profile.SelectPatient
  set aRecallPlans = aPatient.RecallPlans
  aVersionDate = #04/01/2019 11:55#
   
  if aRecallPlans.Count = 0 then
    Profile.MsgBox("The patient has no care plans!")
    exit sub
  end if

  for each aPlan in aRecallPlans
    aMessage = aMessage & vbNewLine & "PLAN: '" & aPlan.Description & "'"
    set aVisits = aPlan.Visits
    if aVisits.Count = 0 then
      aMessage = aMessage & vbNewLine & "  NO INTERVENTIONS"
    end if
    for each aVisit in aVisits
      set aActions = aVisit.Actions     
      aMessage = aMessage & vbNewLine & "  INTERVENTION: '" &_
        aVisit.Description & "'" & "  (Action Count = " & aActions.Count & ")"

      for i = 0 to aActions.Count - 1 
        set aAction = aActions.Item(i)
        aMessage = aMessage & vbNewLine & "   CURRENT ACTION Description: '" &_
          aAction.Description & "'"  
        set aActionOnDate = aAction.VersionOnDate(aVersionDate)
        if aActionOnDate is nothing then 
          aMessage = aMessage & " No version on the specified date! "
        else          
          aMessage = aMessage & vbNewLine & "     ACTION VERSION Description: '" &_
            aActionOnDate.Description & "' / Snapshot Date and Time: " &_
            aActionOnDate.SnapshotDate  
        end if  
      next  
    next
  next
  Profile.MsgBox(aMessage)  
end sub