ISProblemList.ContainsDiseaseTerm

Description

This function checks whether the problem list contains the problem with the specified term and the selected status.

Syntax

object.ContainsDiseaseTerm(TheTermset, TheConcept[, pWhere = 0[, aIncludeDescendants = false]])

Part	Attribute	Type	Description
`object`	Required	ISProblemList	The `object` always implements the ISProblemList interface
`TheTermset`	In, Required	string	The termset code
`TheConcept`	In, Required	string	The concept code
`pWhere`	In, Optional Default value is 0	TSProblemStatus	The problem status
`aIncludeDescendants`	In, Optional Default value is false	bool	If aIncludeDescendants = True, the child concept of the specified concept is used for problems searching

Return Value

bool

Returns True if the problem list contains the problem with the specified term and the selected status.

Example

Display the number of the problems within the collection, their codes, descriptions, statuses and check whether the problem with the specified term and the selected status is in the collection.

Dim aPatient  
Dim aProblemList
Dim aProblem
Dim TheTermset
Dim TheConcept
Dim aContainsDisease
Dim i
Dim aMessage

Set aPatient = Profile.SelectPatient 
set aProblemList = aPatient.ProblemList
TheTermset = "IH"
TheConcept = "z..2d"
aContainsDisease = aProblemList.ContainsDiseaseTerm(TheTermset, TheConcept, 0, True) 'pstNotDefined 
aMessage = "Problems Count = " & aProblemList.Count & vbNewLine &_ 
  "The collection contains the problem with the termset '" & TheTermset &_ 
  "' and the concept code '" & TheConcept & "': " & aContainsDisease 

for i = 0 to aProblemList.Count - 1
  set aProblem = aProblemList.Item(i)
  aMessage = aMessage & vbNewLine & (i + 1) & ") Code: " & aProblem.DxCode &_ 
    "; Description: " & aProblem.DxDescription & " (Status: " &_ 
    aProblem.Status & ")" 
next

Profile.MsgBox(aMessage)

Note: The term is defined by the specified termset code and concept code.

In Profile Client v8 on User Interface Term can be found in Maintain > Termset Maintenance or in Special > Terms, Status can be found in Clinical > Medical Record > Problems > Open Problem > General > Status field, in Clinical > Clinical Details > Problems > Open Problem > General > Status field or in Patient > Cases > Clinical > Problems > Open Problem > General > Status field.

Version information

Added in v7.8.0

parameter aIncludeDescendants added in v8.2.0