ISProblemList.ContainsDiseaseKeyword

Description

This function checks whether the problem list contains the problem with the specified disease keyword and status.

Syntax

object.ContainsDiseaseKeyword(theWord[, pWhere = 0])

Part	Attribute	Type	Description
`object`	Required	ISProblemList	The `object` always implements the ISProblemList interface
`theWord`	In, Required	string	The disease keyword
`pWhere`	In, Optional Default value is 0	TSProblemStatus	The problem status

Return Value

bool

Returns True if the problem list contains the problem with the specified disease keyword and status.

Example

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

Dim aPatient  
Dim aProblemList
Dim aProblem
Dim theWord
Dim aContainsDisease
Dim i
Dim aMessage

Set aPatient = Profile.SelectPatient 
set aProblemList = aPatient.ProblemList
theWord = "Asthma"
aContainsDisease = aProblemList.ContainsDiseaseKeyword(theWord, 0) 'pstNotDefined 
aMessage = "Problems Count = " & aProblemList.Count & vbNewLine &_ 
  "The collection contains the problem with the keyword '" & theWord & "': " &_ 
  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:

In Profile Client v8 on User Interface Disease Keyword can be found in Maintain > Disease Codes > Edit > Keywords and 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