ISPatientProblem.IsPrincipal

Description

Returns True if the patient's case-related diagnosis is the main, definitive diagnosis of the case.

Syntax

object.IsPrincipal

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

Restriction: This property is readonly.

Return Value

bool

Example

Display IsPrincipal for the patient's problems of type 'Diagnosis'.

Dim aPatient
Dim aProblemList
Dim aCategory
Dim aProblems
Dim aProblem
Dim aMessage

Set aPatient = Profile.SelectPatient

set aProblemList = aPatient.ProblemList
set aCategory = aProblemList.Categories.Item(0) 'Diagnosis  
aMessage = aMessage & vbNewLine &_ 
  "---------" & aCategory.Description & "---------"  & vbNewLine  
set aProblems = aCategory.Problems
if aProblems.Count = 0 then 
  aMessage = aMessage & vbNewLine & "No diagnoses"
else
  for each aProblem in aProblems
    aMessage = aMessage & vbNewLine & "    " &_ 
      "Code: " & aProblem.DxCode & "; Description: " & aProblem.DxDescription &_
      " (Is Principal = " & aProblem.IsPrincipal & ")"   
  next 
end if
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 field,inClinical > Clinical Details > Problems > Open Problem > General > Nature fieldor inPatient > Cases > Clinical > Problems > Open Problem > General > Nature field.

Version information

Added in v7.8.0