ISProfile.LoadCaseEquipLoans

Description

This function returns the equipment loans by the specified filter.

Syntax

object.LoadCaseEquipLoans(aFilter)

Part	Attribute	Type	Description
`object`	Required	ISProfile	The `object` always implements the ISProfile interface
`aFilter`	In, Required	ISCaseEquipLoanFilter	The object that defines conditions for filtering

Return Value

ISCaseEquipLoans

Example

Display the number of the equipment loans and some information about them.

Dim aPatient
Dim aFilter
Dim aCaseEquipLoans
Dim aMessage
Dim aCaseEquipLoan
Dim i

Set aPatient = Profile.SelectPatient
set aFilter = Profile.CreateCaseEquipLoanFilter
aFilter.Patient = aPatient
set aCaseEquipLoans = Profile.LoadCaseEquipLoans(aFilter)

aMessage = "Case Equip Loans Count = " & aCaseEquipLoans.Count & vbNewLine

for i = 0 to aCaseEquipLoans.Count - 1
  set aCaseEquipLoan = aCaseEquipLoans.Item(i)
  aMessage = aMessage & vbNewLine & (i + 1) & ". " &_
    "Started On: " & aCaseEquipLoan.StartedOn & vbNewLine &_
    "Expected On: " & aCaseEquipLoan.ExpectedOn & vbNewLine &_
    "Patient Id: " & Profile.LoadPatient(aCaseEquipLoan.PatientId).SurnameFirstName & vbNewLine &_
    "Case ID: " & aCaseEquipLoan.CaseID & vbNewLine &_
    "Comment: " & aCaseEquipLoan.Comment & vbNewLine &_
    "ID: " & aCaseEquipLoan.ID & vbNewLine &_
    "Is Returned: " & aCaseEquipLoan.IsReturned 
next

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Case Equipment Loans can be found in Case Admin > Equipment > Administrative > Equipment.

Version information