ISProfile.LoadMovementByID

Description

This function returns the movement with the specified ID.

Syntax

object.LoadMovementByID(aMovementID)

Part	Attribute	Type	Description
`object`	Required	ISProfile	The `object` always implements the ISProfile interface
`aMovementID`	In, Required	int	ID of the movement

Return Value

ISMovement

Returns the movement with the specified ID.

Example

Display some information about the movement with the specified ID.

Dim aPatientName
Dim aMovement
Dim aMessage

On Error Resume Next

Set aMovement = Profile.LoadMovementByID(12) 

if Err.Number <> 0 then
  Profile.MsgBox("There is no movement with the specified ID")
  Err.Clear
  exit sub
end if

if not aMovement.Patient is nothing then
  aPatientName = aMovement.Patient.SurnameFirstName
end if           

aMessage = "The movement of " & aPatientName & " from " &_
  aMovement.PhysicalLocationFrom & " to " & aMovement.PhysicalLocationTo & " on " &_
  aMovement.Date

Profile.MsgBox(aMessage)

Note:

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

Version information

Added in v7.10.80