ISPatientVers.EthnicityCode2

Description

The second ethnicity of the patient in the selected patient version, returned as a code of the short code.

Syntax

object.EthnicityCode2

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

Restriction: This property is readonly.

Return Value

string

Example

Display the code of the second ethnicity of the patient in the selected patient version.

Dim aPatient  
Dim aPatientVers
Dim aMessage  

Set aPatient = Profile.SelectPatient
set aPatientVers = aPatient.VersionOnDate(#01/01/2019#)

if aPatientVers is nothing then
  aMessage = "There are no patient versions for this date!"
    
else 

  aMessage = aMessage & vbNewLine &_  
   "On 01/01/2019 the patient's ethnicity 2 code was " &_ 
   aPatientVers.EthnicityCode2 & ", now the patient's ethnicity 2 code is " &_ 
   aPatient.EthnicityCode2
  
end if

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Ethnicity 2 code can be found in Patient > Alter Patient > General > Show Versions > Social > Ethnicity2 field.

Version information

Added in v7.8.0