ISPatientProblem.GetIsCurrent

Description

This function checks if the patient's problem of 'Pregnancy' type is current. The pregnancy is current if the Completed checkbox is not checked.

Syntax

object.GetIsCurrent()

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 'Pregnancy' type is current.

Example

Display the codes, descriptions of the patient's problems of 'Pregnancy' type and check if these pregnancies are current.

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

Set aPatient = Profile.SelectPatient
if aPatient.Sex <> "F" then
  Profile.MsgBox("You should select female patient!")
  exit sub
end if

set aProblemList = aPatient.ProblemList
set aCategory = aProblemList.Categories.Item(5) 'Pregnancy  
aMessage = aMessage & vbNewLine &_ 
  "---------" & aCategory.Description & "---------"  & vbNewLine & vbNewLine 
set aProblems = aCategory.Problems
if aProblems.Count = 0 then 
  aMessage = aMessage & "No pregnancies"
else
  for each aProblem in aProblems
    aMessage = aMessage & "    " & "Code: " & aProblem.DxCode &_ 
      "; Description: " & aProblem.DxDescription & "; Current pregnancy: " &_ 
      aProblem.GetIsCurrent & vbNewLine
  next 
end if
Profile.MsgBox(aMessage)

Note: This function is only used for the patient's problems of 'Pregnancy' type.

In Profile Client v8 on User Interface the Completed checkbox can be checked in Clinical > Medical Record > Obstetric > Open selected pregnancy record > General, in Clinical > Clinical Details > Obstetric History > Open selected pregnancy record > General or in Patient > Cases > Clinical > Obstetric > Open selected pregnancy record > General.

Version information

Added in v8.3.32