ISPatientProblem.IsCaseDiagnosis

Description

This function checks whether the patient's problem of type 'Diagnosis' has the linked case.

Syntax

object.IsCaseDiagnosis()

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

Return Value

bool

Returns True if the patient's problem of type 'Diagnosis' has the linked case.

Example

Display IsCaseDiagnosis 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 &_
      " (the diagnosis has the linked case = " & aProblem.IsCaseDiagnosis & ")"   
  next 
end if
Profile.MsgBox(aMessage)

Note:

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

Version information

Added in v7.8.0