ISPatientRecallPlanVers.ApprovalStatus

Example

Display the approval status of the patient's care plan in the selected care plan version.

Dim aPatient
Dim aRecallPlans
Dim aOnDate
Dim aPlan
Dim aPlanVers
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 = #02/27/2019 10:33:11#  

for each aPlan in aRecallPlans
  set aPlanVers = aPlan.VersionOnDate(aOnDate)
  if aPlanVers is nothing then    
    aMessage = aMessage & vbNewLine & " The care plan '" & aPlan.Description &_
      " (" & aPlan.Id & ") " & "' has no version on this date!"
  else            
    aMessage = aMessage & vbNewLine & " The care plan '" &  aPlan.Description &_
      "' : Approval Status = " & aPlan.ApprovalStatus &_
      ";  Version on date: Approval Status = " & aPlanVers.ApprovalStatus
  end if    
next   

Profile.MsgBox(aMessage)