ISPatientProblem.GetEntityIdByIdentifier

Description

This function returns the entities of the patient's problem by the specified identifier.

Syntax

object.GetEntityIdByIdentifier(aIdentifier)

Part	Attribute	Type	Description
`object`	Required	ISPatientProblem	The `object` always implements the ISPatientProblem interface
`aIdentifier`	In, Required	string	The entity identifier

Return Value

ISList

Returns the entities of the patient's problem by the specified identifier.

Example

Add two entities with the identifier "My identifier3" to the patient's problem and display the number of the entities with the specified identifier.

Dim aTrans
Dim aPatient  
Dim aProblemList, aProblem
Dim aProblem1
Dim aEntityCollection
Dim aMessage

'The first mapping transaction
Set aTrans = Profile.StartMapTransaction

set aPatient = Profile.SelectPatient 
set aProblemList = aPatient.ProblemList

if aProblemList.Count = 0 then
  Profile.MsgBox("The patient has no problems")
  exit sub
end if

set aProblem1 = aProblemList.Item(0)
aProblem1.AddEntityId "My source  1", "My identifier3", "My value A"
aProblem1.AddEntityId "My source  2", "My identifier3", "My value B"
aProblem1.Save
aTrans.SnapShot

'The second mapping transaction
set aTrans = Profile.StartMapTransaction

for each aProblem in aProblemList
  set aEntityCollection = aProblem.GetEntityIdByIdentifier ("My identifier3")
  aMessage = aMessage & "The patient's problem with code '" & aProblem.DxCode &_
    "' has " & aEntityCollection.Count & " linked entities " & vbNewLine 
next

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Entity Identifier cannot be found.

Version information

Added in v8.2.0