ISCase.isLocked

Description

Returns True if the Locked checkbox is checked and all fields in the case are disabled, cannot be altered.

Syntax

object.isLocked

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

Restriction: This property is readonly.

Return Value

bool

Example

Display isLocked for the cases.

Dim aPatient 
Dim aFilter
Dim aCases, aCase
Dim i
Dim aMessage
  
Set aPatient = Profile.SelectPatient
set aFilter = Profile.CreateCasesFilter
aFilter.Patient = aPatient
set aCases = Profile.LoadCases(aFilter)

aMessage = "The number of the cases for " & aPatient.SurnameFirstName &_ 
  " = " & aCases.Count 
  
for i = 0 to aCases.Count -1
  set aCase = aCases.Item(i)
  aMessage = aMessage & vbNewLine & (i + 1) & ") " & aCase.CaseTitle &_ 
    " was opened on " & aCase.OpenedOn & " (Is Locked: " & aCase.isLocked & ")" 
next      

Profile.MsgBox(aMessage)

Note: This checkbox is automatically checked if the case is closed and the Locked closed cases checkbox is checked in the Organisation Preferences - Case Preferences tab for the Service Unit of the closed case.

In Profile Client v8 on User Interface the Locked checkbox can be found in Organisation > Work Centre > Work > Cases > Edit Case.

Version information

Added in v7.8.0