ISPatientProblem.AddEntityId

Description

This function adds an entity to the patient's problem.

Syntax

object.AddEntityId(aSource, aIdentifier, aValue)

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

Return Value

ISEntityID

Returns the added entity.

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 Id cannot be found.

Version information

Added in v8.2.0