ISProblemList.ContainsDiseaseTermStartingWith

Description

This function checks whether the problem list contains the problem with the selected status and term starting with the substring of the specified term in the concept tree.

Syntax

object.ContainsDiseaseTermStartingWith(aTermset, aConcept[, aStatus = 0])

Part	Attribute	Type	Description
`object`	Required	ISProblemList	The `object` always implements the ISProblemList interface
`aTermset`	In, Required	string	The termset code
`aConcept`	In, Required	string	The concept code
`aStatus`	In, Optional Default value is 0	TSProblemStatus	The problem status

Return Value

bool

Returns True if the problem list contains the problem with the selected status and term starting with the substring of the specified term in the concept tree.

Example

Display the number of the problems within the collection, their codes, descriptions, statuses. Check whether the problem with the selected status and term starting with the substring of the specified term in the concept tree is in the collection.

Dim aPatient  
Dim aProblemList
Dim aProblem
Dim aTermset
Dim aConcept
Dim aContainsDisease
Dim i
Dim aMessage

Set aPatient = Profile.SelectPatient 
set aProblemList = aPatient.ProblemList
TheTermset = "IH"
TheConcept = "z..2d"
aContainsDisease = aProblemList.ContainsDiseaseTermStartingWith(aTermset, aConcept, 0) 'pstNotDefined 
aMessage = "Problems Count = " & aProblemList.Count & vbNewLine &_ 
  "The collection contains the problem with the termset '" & aTermset &_ 
  "' and the concept code '" & aConcept & "': " & 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 v8.2.0