ISCase.Reason

Description

The reason of the case. It can be populated with the description of the linked initial diagnosis.

Syntax

object.Reason

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

Return Value

string

Example

Display the number of the cases loaded on the basis of the selected filter, their titles, reasons, the dates and time when they were opened.

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 
  if not aCase.Reason = "" then 
    aMessage = aMessage & " (Reason: " &  aCase.Reason & ")"
  end if
next      

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Reason can be found in Organisation > Work Centre > Work > Cases > Edit Case > Administrative > General > Reason field.

Version information

Added in v7.8.0