ISProblemDiagnosisFilter.OnlyPrincipal

Description

This filter property is used to load the case-related diagnoses that are the main, definitive diagnoses of the cases.

Syntax

object.OnlyPrincipal

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

Return Value

bool

Example

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

Dim aFilter
Dim aDiagnoses
Dim aDiagnosis
Dim aMessage

Set aFilter = Profile.CreateProblemDiagnosisFilter 
aFilter.OnlyPrincipal = False
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 
  if aDiagnosis.NatureID <> 0 then 
    aMessage = aMessage & "; Nature: " &_ 
      Profile.LoadShortCode(aDiagnosis.NatureID).Description 
  end if      
next      

Profile.MsgBox(aMessage)

Note:

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

Version information

Added in v7.8.0