ISPatient.SmokerTypeID

Description

ID of the short code of type 'Substance Smoker'.

Syntax

object.SmokerTypeID

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

Return Value

int

Example

Display the patient's smoker type.

Dim aPatient  
Dim aSmokerType

Set aPatient = Profile.SelectPatient

if aPatient.SmokerTypeID = 0 then
  Profile.MsgBox("Smoker Type is not selected") 
  exit sub
end if
  
set aSmokerType = Profile.LoadShortCode(aPatient.SmokerTypeID)
Profile.MsgBox("Smoker Type: " & aSmokerType.Description)

Note:

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

Version information

Added in v8.4.26