ISPatient.MentalHealthLegalStatus

Description

The status of the patient under the Mental Health Act.

Syntax

object.MentalHealthLegalStatus

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

Restriction: This property is readonly.

Return Value

ISMentalHealthLegalStatus

Example

Display the mental health legal status of the patient.

Dim aPatient  
Dim aMentalHealthLegalStatus

Set aPatient = Profile.SelectPatient
set aMentalHealthLegalStatus = aPatient.MentalHealthLegalStatus
aMessage = "Legal Status Count = " & aMentalHealthLegalStatus.Count

for i = 0 to aMentalHealthLegalStatus.Count - 1
  set aLegalStatus = aMentalHealthLegalStatus.Items(i)
  aMessage = aMessage & vbNewLine
  aMessage = aMessage & aLegalStatus.Description
next

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Mental Legal Status can be found in Patient > Alter Patient > Social > Legal Status field or in Clinical > Medical Record > Mental Health > Legal Status field.

Version information

Added in v7.8.0