ISPatientLookupItem.PatLabel

Description

The labels assigned to the patients who were loaded on the basis of the selected Lookup Parameter.

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	ISPatientLookupItem	The `object` always implements the ISPatientLookupItem interface

Restriction: This property is readonly.

Return Value

TSPatientLabel

Example

Display the number of the patients loaded on the basis of the selected Lookup Parameter, their full names and labels.

Dim aParam
Dim aList
Dim aPatientLookupItem
Dim aLookupType   
Dim aMessage 

Set aParam = Profile.MakePatientLookupParam 'ISPatientLookupParam
aParam.Index = 1 'smppiFileNum
aParam.Value = 9108
aLookupType = 23 'patient lookup 
set aList = Profile.LoadLookupList2(aLookupType, aParam)  'ISPatientLookupItem collection

aMessage = "Patients Count = " & aList.Count & vbNewLine & vbNewLine  

for each aPatientLookupItem in aList 

  aMessage = aMessage &_
    "Name: " & aPatientLookupItem.Name & vbNewLine &_
    "Patient Label: " & aPatientLookupItem.PatLabel & vbNewLine & vbNewLine
  
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