ISProfile.PatientSealed

Description

This function checks if the patient is sealed (all records about the patient become read-only and cannot be modified by anyone).

Syntax

object.PatientSealed(ID)

Part	Attribute	Type	Description
`object`	Required	ISProfile	The `object` always implements the ISProfile interface
`ID`	In, Required	int	ID of the patient

Return Value

bool

Returns True if the patient is sealed.

Example

Display whether the patient's records are sealed or unsealed.

Dim aPatient 
Dim aSealed

Set aPatient = Profile.SelectPatient
aSealed = Profile.PatientSealed(aPatient.ID)

Profile.MsgBox ("The patient is sealed: " & aSealed)

Note:

In Profile Client v8 on User Interface cannot be found.

Version information

Added in v7.8.0