This function checks if the patient's Accession account has been locked after exceeding the number of unsuccessful logins. If the patient's Accession account is locked, on User Interface the Unlock button is enable in Patient/Alter Patient/Internet.
object.IsWebAccountLocked()
| Part | Attribute | Type | Description |
|---|---|---|---|
object |
Required | The object always implements the
ISPatient interface |
bool
Display IsWebAccountLocked for the patient.
Dim aPatient
Dim aIsWebAccountLocked
Set aPatient = Profile.SelectPatient
aIsWebAccountLocked = aPatient.IsWebAccountLocked
Profile.MsgBox (aIsWebAccountLocked)