ISPatientFilter.SmokerStatusDateFrom

Description

This filter is used to load the collection of patients from the specified date of setting Smoker status.

Syntax

object.SmokerStatusDateFrom

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

Return Value

DateTime

Example

Display the number of the patients loaded on the basis of the selected filter, their full names and IDs.

Dim aIterator  
Dim aFilter  
Dim aCount
Dim aCanProcessItem
Dim aPatient 
Dim aMessage
                      
Set aIterator = Profile.CreatePatientIterator
set aFilter = Profile.CreatePatientFilter
aFilter.InterestObjects = 18   
aFilter.SmokerStatusDateFrom = #01/01/2018#                           
aIterator.Open(aFilter)
aCount = aIterator.Count

aMessage = "Patients Count = " & aCount & vbNewLine & vbNewLine
 
aMessage = aMessage & "Selected Patients: " & vbNewLine
aIterator.Reset
aCanProcessItem = aIterator.Next

i = 1
do while aCanProcessItem 
  set aPatient = aIterator.Patient
  aMessage = aMessage & vbNewLine & i & ")  " &_
   aPatient.FirstName & " " & aPatient.LastName &_
   " ( " & aIterator.PatientId & " ) "
  i = i + 1
  aCanProcessItem = aIterator.Next
loop

Profile.MsgBox(aMessage)

Note: This property works only with ISPatientFilter.InterestObjects = 18.

In Profile Client v8 on User Interface Smoker Status can be set in Clinical > Clinical Details > Family > Social History > Smoker field, Smoker Status Date From can be found in Clinical > Medical Record > Problems > Social > Risk > Open Problem (Smoker) > From field.

Version information

Added in v7.9.1