ISProblemDiagnosisFilter.StatusId

Description

This filter property is used to load the diagnoses by the selected status.

Syntax

object.StatusId

Part	Attribute	Type	Description
`object`	Required	ISProblemDiagnosisFilter	The `object` always implements the ISProblemDiagnosisFilter interface

Return Value

int

Example

Display the number of the diagnoses loaded on the basis of the selected filter, their codes, descriptions and statuses.

Dim aFilter
Dim aDiagnoses
Dim aDiagnosis
Dim aMessage

Set aFilter = Profile.CreateProblemDiagnosisFilter 
aFilter.StatusId = 1  'pstActive
set aDiagnoses = Profile.LoadDiagnoses(aFilter)

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

Profile.MsgBox(aMessage)

Note: The possible property values can be found in the enumeration TSProblemStatus.

In Profile Client v8 on User Interface Status can be found in Clinical > Medical Record > Problems > Open Problem > General > Status, in Clinical > Clinical Details > Problems > Open Problem > General > Status or in Patient > Cases > Clinical > Problems > Open Problem > General > Status.

Version information

Added in v7.8.0