ISProblemList.ContainsDisease

Description

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

Syntax

object.ContainsDisease(psCode[, pWhere = 0])

Part	Attribute	Type	Description
`object`	Required	ISProblemList	The `object` always implements the ISProblemList interface
`psCode`	In, Required	string	The disease code
`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 code and status.

Example

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

Dim aPatient  
Dim aProblemList
Dim aProblem
Dim psCode
Dim aContainsDisease
Dim i
Dim aMessage

Set aPatient = Profile.SelectPatient 
set aProblemList = aPatient.ProblemList
psCode = "ASTHMA"
aContainsDisease = aProblemList.ContainsDisease (psCode, 0) 'pstNotDefined 
aMessage = "Problems Count = " & aProblemList.Count & vbNewLine &_ 
  "The collection contains the problem with the code '" & psCode & "': " &_ 
  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 Code and Status can be found in Clinical > Medical Record > Problems > Open Problem > General > Code (Status) field, in Clinical > Clinical Details > Problems > Open Problem > General > Code (Status) field or in Patient > Cases > Clinical > Problems > Open Problem > General > Code (Status) field.

Version information

Added in v7.8.0