ISPatient.SmokerType

Description

The type of smoker the patient is.

Syntax

object.SmokerType

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

Return Value

TSSmokerType

Example

Display the patient's smoker type.

Dim aPatient  
Dim aSmokerType

Set aPatient = Profile.SelectPatient
aSmokerType = aPatient.SmokerType
Profile.MsgBox (aSmokerType)
Note:

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

Version information

Added in v7.8.0
Parent topic: ISPatient