ISPatient.OccupationCode

Description

The patient's occupation, returned as a code of the short code.

Syntax

object.OccupationCode

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

Return Value

string

Example

Display the patient's occupation code.

Dim aPatient  
Dim aOccupationCode  

Set aPatient = Profile.SelectPatient
aOccupationCode = aPatient.OccupationCode
Profile.MsgBox (aOccupationCode)
Note:

In Profile Client v8 on User Interface Occupation Code can be found in Patient > Alter Patient > Social > Occupation Code field or in Clinical > Clinical Details > Family > Social History > Occupation field.

Version information

Added in v7.8.0
Parent topic: ISPatient