ISPatientDocument.BU

Description

The business unit the place of service of the patient's document belongs to.

Syntax

object.BU

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

Restriction: This property is readonly.

Return Value

string

Example

Display the number of the patient's documents, their type and BU.

Dim aPatient
Dim aFilter
Dim aDocuments
Dim aDocument
Dim aMessage

Set aPatient = Profile.SelectPatient
set aFilter = Profile.CreatePatientDocumentFilter
aFilter.PatientId = aPatient.ID 
aFilter.IncludeScanDoc = True
set aDocuments = Profile.LoadPatientDocuments(aFilter)
aMessage = "Documents Count = " & aDocuments.Count

for i = 0 to aDocuments.Count - 1
  set aDocument = aDocuments.Items(i)
  aMessage = aMessage & vbNewLine
  aMessage = aMessage & aDocument.TypeDescription  & ", " & aDocument.BU
next
  
Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface POS can be found in Clinical > Medical Record > Documents > POS.

Version information

Added in v7.8.0