ISHRObservationFilter.AddConcept

Description

This filter method is used to load the HR Observations by the specified concept linked to them.

Syntax

object.AddConcept aTermsetCode, aConceptCode

Part	Attribute	Type	Description
`object`	Required	ISHRObservationFilter	The `object` always implements the ISHRObservationFilter interface
`aTermsetCode`	In, Required	string	The termset code of the concept
`aConceptCode`	In, Required	string	The code of the concept

Example

Display the number of the observations loaded on the basis of the selected filter and some information about them.

Dim aFilter
Dim aPatient
Dim aHRObservations, aHRObservation
Dim aMessage
Dim i

Set aPatient = Profile.SelectPatient
set aFilter = Profile.CreateObservationFilter
aFilter.PatientId = aPatient.ID 
aFilter.DateFrom = #01/01/2019#
aFilter.DateTo = #01/01/2020#
aFilter.AddConcept "IH", "IH006" 
set aHRObservations = aFilter.Load

aMessage = "HR Observations Count = " & aHRObservations.Count & vbNewLine

for i = 0 to aHRObservations.Count - 1
  set aHRObservation = aHRObservations.Item(i)
  aMessage = aMessage & vbNewLine & (i + 1) & ") " &_
    "Name: " & aHRObservation.Name & vbNewLine &_
    "   As string: " & aHRObservation.AsString & vbNewLine &_
    "   Parent Trans: " & aHRObservation.ParentTrans.CreatedOn & vbNewLine &_
    "   Code: " & aHRObservation.Code & vbNewLine &_
    "   Concept Code: " & aHRObservation.ConceptCode & vbNewLine &_
    "   IS HRI: " & aHRObservation.ISHRI & vbNewLine &_
    "   Is Deleted: " & aHRObservation.IsDeleted & vbNewLine &_
    "   Term Code: " & aHRObservation.TermCode & vbNewLine &_
    "   Term Description: " & aHRObservation.TermDescription & vbNewLine &_
    "   Termset Code: " & aHRObservation.TermsetCode & vbNewLine &_
    "   GUID: " & aHRObservation.GUID & vbNewLine &_
    "   ID: " & aHRObservation.ID & vbNewLine 
next
    
Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Concept can be found in Organisation > Work Centre > Work > Manual Trans > Edit Transactions > Item > Modify > Item Properties > Concept and in Clinical > Medical Record > Measures > Edit Measurement > Concept.

Version information

Added in v8.4.0