ISMovement.LeadProvider

Example

Display the number of movements, some information about them, including the lead providers who are responsible for the movements.

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 &_
  "Physical Location From: " & aMovement.PhysicalLocationFrom & vbNewLine &_ 
  "Physical Location To: " & aMovement.PhysicalLocationTo & vbNewLine &_
  "Admit ID: " & aMovement.AdmitID

if not aMovement.LeadProvider is nothing then
    aMessage = aMessage & vbNewLine & "Lead Provider: " & aMovement.LeadProvider.FullName
  end if      
next       

Profile.MsgBox(aMessage)