ISPatientVers.PatLabel

Description

The label assigned to the patient in the selected patient version to colour the patient's name in the Appointments and Select Patient windows.

1	Label Red
2	Label Green
4	Label Blue
8	Label Cyan
16	Label Magenta
32	Label Yellow
64	Label Teal
128	Label Navy
256	Label Maroon
512	Label Grey
1024	Label Aqua
2048	Label Purple
4096	Label Olive
8192	Label Black

Syntax

object.PatLabel

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

Restriction: This property is readonly.

Return Value

int

Example

Display the patient label in the selected patient version.

Dim aPatient  
Dim aPatientVers
Dim aMessage  

Set aPatient = Profile.SelectPatient
set aPatientVers = aPatient.VersionOnDate(#01/01/2019#)

if aPatientVers is nothing then
  aMessage = "There are no patient versions for this date!"
    
else  
 
  aMessage = aMessage & vbNewLine &_
    " On 01/01/2019 the patient's label number was " & aPatientVers.PatLabel &_
    ", now the patient's label number is " & aPatient.PatLabel 
 
end if

Profile.MsgBox(aMessage)

Note:

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

Version information

Added in v7.8.0