ISPatientProblem.IsProvisional

Description

Returns True if the patient's case-related diagnosis is tentative for the case.

Syntax

object.IsProvisional

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

Restriction: This property is readonly.

Return Value

bool

Example

Display IsProvisional 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 Provisional = " & aProblem.IsProvisional & ")"   
  next 
end if
Profile.MsgBox(aMessage)

Note:

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

Version information

Added in v7.8.0