ISProblemDiagnosisFilter.FromDate

Description

This filter property is used to load the diagnoses starting from the specified date.

Syntax

object.FromDate

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

Return Value

DateTime

Example

Display the number of the diagnoses loaded on the basis of the selected filter, their codes, descriptions and dates.

Dim aFilter
Dim aDiagnoses
Dim aDiagnosis
Dim aMessage

Set aFilter = Profile.CreateProblemDiagnosisFilter 
aFilter.FromDate = #01/01/2010#
aFilter.ToDate = #08/01/2019#
set aDiagnoses = Profile.LoadDiagnoses(aFilter)

aMessage = "Diagnoses Count = " & aDiagnoses.Count
for i = 0 to aDiagnoses.Count - 1
  set aDiagnosis = aDiagnoses.Item(i)
  aMessage = aMessage & vbNewLine & "Code: " & aDiagnosis.DxCode &_ 
    "; Description: " & aDiagnosis.DxDescription & " (" & aDiagnosis.Date & ")" 
next      

Profile.MsgBox(aMessage)

Note:

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

Version information

Added in v7.8.0