ISPatient.getUsedLabels

Description

This function returns all patient labels, that can be assigned to the patient.

Syntax

object.getUsedLabels()

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

Return Value

ISList

Returns all patient labels, available for the patient.

Example

Display the number of all used labels and list them.

Dim aPatient  
Dim aUsedLabels
Dim aUsedLabel
Dim aMessage

Set aPatient = Profile.SelectPatient
set aUsedLabels = aPatient.getUsedLabels
aMessage = "Used Labels Count = " & aUsedLabels.Count

for i = 0 to aUsedLabels.Count - 1
  set aUsedLabel = aPatient.getUsedLabels.Item(i)
  aMessage = aMessage & vbNewLine
  aMessage = aMessage & aUsedLabel.Text 
next

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Patient Label can be found in Patient > Alter Patient > General > Label field.

Version information

Added in v7.8.0