ISPatient.SmokerStopped

Description

The date the patient stopped smoking.

Syntax

object.SmokerStopped

Part Attribute Type Description
object Required
ISPatient
The object always implements the ISPatient interface

Return Value

DateTime

Example

Display the date the patient stopped smoking.

Dim aPatient  
Dim aSmokerStopped

Set aPatient = Profile.SelectPatient
aSmokerStopped = aPatient.SmokerStopped
Profile.MsgBox (aSmokerStopped)
Note: The Stopped field is enable when "Ex-smoker" type is selected. If the exact date is not known, the Approx checkbox can be checked to enter the year the patient stopped smoking.

In Profile Client v8 on User Interface the Stopped field can be found in Clinical > Clinical Details > Family > Social History > Stopped field.

Version information

Added in v7.8.0
Parent topic: ISPatient