ISPatientProblem.FindVersions

Description

This function returns the versions of the patient's problem record loaded on the basis of the selected filter.

Syntax

object.FindVersions(aFilter)

Part	Attribute	Type	Description
`object`	Required	ISPatientProblem	The `object` always implements the ISPatientProblem interface
`aFilter`	In, Required	ISVersionFilter	The object that defines conditions for filtering

Return Value

ISCollection

Returns the versions of the patient's problem loaded on the basis of the selected filter.

Example

Display the codes, descriptions and statuses of the patient's problems in each version.

sub main
  Dim aPatient
  Dim aProblemList
  Dim aCategories, aCategory
  Dim aProblems, aProblem
  Dim aFilter
  Dim aProblemVers, aVersion
  Dim aMessage
  
  Set aPatient = Profile.SelectPatient

  set aProblemList = aPatient.ProblemList
  set aCategories = aProblemList.Categories

  for each aCategory in aCategories
    aMessage = aMessage & vbNewLine & "---------" & aCategory.Description &_ 
      "---------"  & vbNewLine & vbNewLine 
    set aProblems = aCategory.Problems
    for each aProblem in aProblems
      if aProblem.ProblemType = 6 then  'ptPregnancy  
        aMessage = aMessage & "    " & GetProblemInfo(aProblem) & vbNewLine
      else 
        set aFilter = Profile.CreateVersionFilter
        aFilter.FromDate = #01/01/2019#
        aFilter.ToDate = #06/06/2019#
        set aProblemVersColl = aProblem.FindVersions(aFilter)
        aMessage = aMessage & "    " & GetProblemInfo(aProblem) & vbNewLine
        for each aVersion in aProblemVersColl
          aMessage = aMessage & "      -" & GetProblemInfo(aVersion) & vbNewLine 
        next ' aVersion        
      end if           
    next ' aProblem
  next ' aCategory 

  Profile.MsgBox(aMessage)
end sub


function GetProblemInfo(aProblem)
  Dim aInfo

  aInfo = "Code: " & aProblem.DxCode & "; Description: " & aProblem.DxDescription
  if aProblem.ProblemType <> 6 then  'ptPregnancy
    aInfo = aInfo & " (Status = " & aProblem.Status & ")"    
  end if
  GetProblemInfo = aInfo
end function

Note:

In Profile Client v8 on User Interface Versions can be found in Clinical > Medical Record > Problems > Open Problem > History, in Clinical > Clinical Details > Problems > Open Problem > Historyor in Patient > Cases > Clinical > Problems > Open Problem > History.

Version information