ISPatient.GetEntityIdBySource

Description

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

Syntax

object.GetEntityIdBySource(aSource)

Part	Attribute	Type	Description
`object`	Required	ISPatient	The `object` always implements the ISPatient interface
`aSource`	In, Required	string	The entity source

Return Value

ISList

Returns the entities of the patient by the specified source.

Example

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

Dim aPatient
Dim aTr
Dim aEntityCollection
Dim aEntityCollection2

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

set aEntityCollection = aPatient.GetEntityIdBySource ("My source  1")
Profile.MsgBox("Entities Count before changes = " & aEntityCollection.Count)

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

set aEntityCollection2 = aPatient.GetEntityIdBySource ("My source  1")
Profile.MsgBox("Entities Count after changes = " & aEntityCollection2.Count)

Note:

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

Version information

Added in v7.8.0