ISRxMedication.AddEntityId

Description

This function adds an entity to the Rx medication.

Syntax

object.AddEntityId(aSource, aIdentifier, aValue)

Part	Attribute	Type	Description
`object`	Required	ISRxMedication	The `object` always implements the ISRxMedication 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 a new entity with the source 'Source1' to the loaded Rx medication. Get the entities with the specified source and display their count.

Dim aRxMedication
Dim aTr
Dim aSource
Dim aIdentifier
Dim aValue  
Dim aEntities1, aEntities2, aEntity  
Dim aRxMedicationInfo  

Set aTr = Profile.StartMapTransaction 
set aRxMedication = Profile.LoadRxMedication(1507)

if aRxMedication is nothing then 
  Profile.MsgBox("There is no Rx Medication with the specified ID")
  exit sub
end if

aSource = "Source1"

set aEntities1 = aRxMedication.GetEntityIdBySource(aSource)
aRxMedicationInfo = "Before adding: " &_
  aRxMedication.RxName & " has " & aEntities1.Count & " entities" & vbNewLine
  
aIdentifier = "Identifier1"
aValue = "Value1" 
set aEntity = aRxMedication.AddEntityId(aSource, aIdentifier, aValue)
aTr.SnapShot
  
if not aEntity is nothing then
  aRxMedicationInfo = aRxMedicationInfo & "New Entity with source '" &_
    aSource & "' was added successfully " & vbNewLine 
end if
  
set aEntities2 = aRxMedication.GetEntityIdBySource(aSource)
aRxMedicationInfo = aRxMedicationInfo & "After adding: " &_ 
  aRxMedication.RxName & " has " & aEntities2.Count & " entities"  

Profile.MsgBox(aRxMedicationInfo)

Note:

In Profile Client v8 on User Interface Entity Id cannot be found, but Rx medications can be found in Clinical > Medical Record > MedChart.

Version information

Added in v8.2.0