ISPatientRecallVisitVers.Priority

Example

Display the priority of the patient's intervention in the selected intervention version.

sub main
  Dim aPatient
  Dim aRecallPlans
  Dim aOnDate
  Dim aPlan
  Dim aVisit
  Dim aVisits
  Dim aVisitVers
  Dim aPriority
  Dim aPriorityVers
  Dim aMessage

  Set aPatient = Profile.SelectPatient
  set aRecallPlans = aPatient.RecallPlans
   
  if aRecallPlans.Count = 0 then
    Profile.MsgBox("The patient has no care plans!")
    exit sub
  end if   

  aOnDate = #03/07/2019 15:31:59#
 
  for each aPlan in aRecallPlans
    aMessage = aMessage & vbNewLine & "PLAN: '" & aPlan.Description & "'"
    set aVisits = aPlan.Visits  
      
    if aVisits.Count = 0 then
      aMessage = aMessage & vbNewLine & "There are no interventions in the plan!"
    end if  
    for each aVisit in aVisits  
      set aVisitVers = aVisit.VersionOnDate(aOnDate)
      if aVisitVers is nothing then    
         aMessage = aMessage & vbNewLine & " - Intervention '" & aVisit.Description &_
         "': There is no version of the intervention on this date!"
      else
        set aPriority = aVisit.Priority
        set aPriorityVers = aVisitVers.Priority
      
        if not aPriority is nothing then 
          aPriorityString = aPriority.Description
        else   
          aPriorityString = "- Unassigned -"
        end if        

        if not aPriorityVers is nothing then 
          aPriorityVersString = aPriorityVers.Description
        else   
          aPriorityVersString = "- Unassigned -"
        end if
                     
        aMessage = aMessage & vbNewLine & " The CURRENT intervention: Priority = " &_
          aPriorityString & "  /  The intervention VERSION: Priority = " &_
          aPriorityVersString
       end if    
     next
  next   

  Profile.MsgBox(aMessage)
  
end sub