ISPatient.OccupationID

Description

Identifier of the patient's occupation.

Syntax

object.OccupationID

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

Return Value

int

Example

Display ID of the patient's occupation.

Dim aPatient  
Dim aOccupationID  

Set aPatient = Profile.SelectPatient
aOccupationID = aPatient.OccupationID
Profile.MsgBox (aOccupationID)
Note:

In Profile Client v8 on User Interface Occupation ID cannot be found.

Version information

Added in v7.8.0
Parent topic: ISPatient