ISPatientVers.Religion

Description

The patient's religion in the selected patient version, returned as a code from the short code reference table.

Syntax

object.Religion

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 patient's religion in the selected patient version as a code.

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
  aMessage = aMessage & "On 01/01/2019 the code of the patient's religion was "_
   & aPatientVers.Religion 
  
end if

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Religion can be found in Patient > Alter Patient > General > Show Versions > Personal > Religion field.

Version information

Added in v7.8.0