ISPatient.EnsureSmokerSourceID

Description

This function returns Smoker Source ID from external systems, for example Gp2Gp. If there is no Smoker Source ID, the function creates a new one.

Syntax

object.EnsureSmokerSourceID()

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

Return Value

string

Returns smoker source ID.

Example

Display smoker source ID.

Dim aPatient  
Dim aSmokerSourceID

Set aPatient = Profile.SelectPatient
aSmokerSourceID = aPatient.EnsureSmokerSourceID
Profile.MsgBox (aSmokerSourceID)

Note:

In Profile Client v8 on User Interface cannot be found.

Version information

Added in v7.9.2