ISProfile.CreateCaseEquipLoanFilter

Description

This function creates the filter for loading equipment loans.

Syntax

object.CreateCaseEquipLoanFilter()

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

Return Value

ISCaseEquipLoanFilter

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

Added in v7.8.0