ISPatient.DrugUseID

Description

ID of the short code of type 'Substance Drug Use'.

Syntax

object.DrugUseID

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

Return Value

int

Example

Display the patient's type of drug use.

Dim aPatient  
Dim aDrugUse

Set aPatient = Profile.SelectPatient

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

Note:

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

Version information

Added in v8.4.26