ISPatientVers.User4

Description

The property provides access to the User 4 text item field in the selected patient version.

Syntax

object.User4

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 content of the User 4 field 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 content of the User 4 field was " & aPatientVers.User4 &_ 
   ", now the content of the User 4 field is " & aPatient.User4
  
end if

Profile.MsgBox(aMessage)

Note: The name of this field can be set by using Alter Text Items.

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

Version information

Added in v7.8.0