ISPatientLookupParam.OnlyActive

Description

This lookup parameter property is used to load the collection of patients with the selected statuses.

Syntax

object.OnlyActive

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

Return Value

TSPatientActiveState

Example

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

Dim aParam
Dim aList
Dim aPatientLookupItem 
Dim aLookupType
Dim aMessage 

Set aParam = Profile.MakePatientLookupParam 'ISPatientLookupParam
aParam.IsStartsWith = True
aParam.Value = "s,s" 'Surname,First name
aParam.OnlyActive = 1 'spasAll
 
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 & aPatientLookupItem.Name &_ 
    " (" & aPatientLookupItem.Status & ")" & vbNewLine 
next
  
Profile.MsgBox(aMessage)

Note: This lookup parameter property cannot be used without the lookup parameter properties with the inserted values.

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

Version information

Added in v7.8.0