ISPatient.FindEntityIds

Description

This function returns the entities of the patient by the specified parameters.

Syntax

object.FindEntityIds(aSource, aIdentifier, ActiveOnly)

Part	Attribute	Type	Description
`object`	Required	ISPatient	The `object` always implements the ISPatient interface
`aSource`	In, Required	string	The entity source
`aIdentifier`	In, Required	string	The entity identifier
`ActiveOnly`	In, Required	bool	If aActiveOnly = True the function returns only active entities of the patient. Otherwise, all the patient's entities are returned.

Return Value

ISList

Returns the entities of the patient by the specified parameters.

Example

Add two entities with the identifier "My identifier" and the source "My source 1" to the patient. Get the entities with the specified identifier and source, display their count.

Dim aPatient
Dim aTr
Dim aEntityCollection
Dim aEntityCollection2

Set aTr = Profile.StartMapTransaction
set aPatient = Profile.SelectPatient

set aEntityCollection = aPatient.FindEntityIds ("My source 1", "My ID", False)
Profile.MsgBox("Entities Count before changes = " & aEntityCollection.Count)

aPatient.AddEntityId "My source  1", "My ID", "My value A"
aPatient.AddEntityId "My source  1", "My ID", "My value B"     
aPatient.Save
aTr.SnapShot

set aEntityCollection2 = aPatient.FindEntityIds ("My source 1", "My ID", False)
Profile.MsgBox("Entities Count after changes = " & aEntityCollection2.Count)

Note:

In Profile Client v8 on User Interface Entity Ids can be found in Patient > Alter Patient > Registry.

Version information

Added in v8.2.6