ISPatientRecallPlanVers.BusinessUnitId

Example

Display ID of the business unit the place of service belongs to 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 15:37: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 &_
      "' : Business Unit Id = " & aPlan.BusinessUnitId &_
      ";  Version on date: Business Unit Id = " & aPlanVers.BusinessUnitId
  end if    
next   

Profile.MsgBox(aMessage)