ISPatientRecallPlanVers.MasterID

Example

Display ID of the most recent version of the patient's care plan.

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 &_
      "' : ID/MasterID = " & aPlan.Id & " / " & aPlan.MasterID &_
      ";  Version on date: ID/MasterID = " & aPlanVers.Id & " / " & aPlanVers.MasterID
  end if    
next   

Profile.MsgBox(aMessage)