ISMovement.CaseObj

Description

The case that is moved and handled between different places of service and locations.

Syntax

object.CaseObj

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

Restriction: This property is readonly.

Return Value

ISCase

Example

Display the number of the movements loaded on the basis of the selected filter, some information about them, including the title of the case.

Dim aPatient
Dim aFilter
Dim aMovements
Dim aMovement
Dim aMessage
Dim i

Set aPatient = Profile.SelectPatient
set aFilter = Profile.CreateMovementFilter
aFilter.PatientID = aPatient.ID
set aMovements = Profile.LoadMovements(aFilter)

aMessage = "Movements Count = " & aMovements.Count
for i = 0 to aMovements.Count - 1
  set aMovement = aMovements.Item(i)
  aMessage = aMessage & vbNewLine & "-----------------------------" & vbNewLine &_
  "Description: " & aMovement.Description & vbNewLine &_
  "Date: " & aMovement.Date & vbNewLine &_
  "ID: " & aMovement.ID & vbNewLine &_
  "Length Of Stay: " & aMovement.LengthOfStay & vbNewLine &_
  "Movement Type: " & aMovement.MovType & vbNewLine &_
  "Responsible Unit: " & aMovement.ResponsibleUnit 
    
  if not aMovement.CaseObj is nothing then
    aMessage = aMessage & vbNewLine & "Case: " & aMovement.CaseObj.CaseTitle
  end if  
next      

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Case can be found in Clinical > Medical Record > Movements > Edit > Case or in Patient > Cases > Administrative > Movements > Edit > Case.

Version information

Added in v7.8.0