ISPatientProblem.GetEntityIdBySource

Description

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

Syntax

object.GetEntityIdBySource(aSource)

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

Return Value

ISList

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

Example

Add the entities with the source "My source 1" to the patient's problem and display the number of the entities with the specified source.

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(2)
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.GetEntityIdBySource ("My source  1")
  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 Source cannot be found.

Version information

Added in v8.2.0