ISPatient.Movements

Description

All movements of the patient between different places of service and locations.

Syntax

object.Movements

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

Restriction: This property is readonly.

Return Value

ISMovements

Example

Display the dates and IDs for all patient's movements.

Dim aPatient  
Dim aMovements
Dim aMovement
Dim aMessage

Set aPatient = Profile.SelectPatient 
set aMovements = aPatient.Movements
aMessage = "Movements Count = " & aMovements.Count

for i = 0 to aMovements.Count - 1
  set aMovement = aPatient.Movements.Item(i)
  aMessage = aMessage & vbNewLine & "The date of the movement with ID " &_ 
    aMovement.ID & " is " & aMovement.Date 
   
next

Profile.MsgBox(aMessage)

Note:

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

Version information

Added in v7.10.60