ISPatientRecallPlan.BusinessUnitId

Description

ID of the business unit the place of service belongs to.

Syntax

object.BusinessUnitId

Part	Attribute	Type	Description
`object`	Required	ISPatientRecallPlan	The `object` always implements the ISPatientRecallPlan interface

Restriction: This property is readonly.

Return Value

int

Example

Display the name and ID of the business unit the place of service belongs to.

Dim aPatient
Dim aRecallPlans
Dim aMessage
Dim aPlan
Dim aOrgMemberId
Dim aOrgMember

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

for each aPlan in aRecallPlans
  aMessage = aMessage & vbNewLine & "Paln: " & aPlan.Description   
  aOrgMemberId = aPlan.BusinessUnitId
  if aOrgMemberId > 0 then
    set aOrgMember = Profile.LoadOrgMember(aOrgMemberId)
    aMessage = aMessage & vbNewLine & aOrgMember.Name &_
      "---" & aOrgMember.Id
  else
    aMessage = aMessage & vbNewLine & "No BU"    
  end if    
     
next

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Business Unit ID cannot be found. POS can be found in Clinical > Care Plans > Oper active object(s) > General > POS field.

Version information

Added in v7.8.0