ISCaseEquipLoan.IsReturned

Example

Display IsReturned for the case equipment loan.

Dim aResult
Dim aPatientId
Dim aCaseID
Dim aFilter
Dim aCaseEquipLoans, aCaseEquipLoan
Dim aPatient
Dim aMessage
Dim i

aResult = Profile.Lookup_PatientCaseSearch(aPatientId, aCaseID, _
  "Select Case for search", true)
  
if not aResult then exit sub    

set aFilter = Profile.CreateCaseEquipLoanFilter
aFilter.OnlyReturned = False
aFilter.OnlyNotReturned = False
aFilter.CaseID = CaseID
set aCaseEquipLoans = Profile.LoadCaseEquipLoans(aFilter)

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

for i = 0 to aCaseEquipLoans.Count - 1
  set aCaseEquipLoan = aCaseEquipLoans.Item(i)
  set aPatient = Profile.LoadPatient(aCaseEquipLoan.PatientId) 
  aMessage = aMessage & vbNewLine & (i + 1) & ". " &_
    "Started On: " & aCaseEquipLoan.StartedOn & vbNewLine &_
    "Expected On: " & aCaseEquipLoan.ExpectedOn & vbNewLine &_
    "Patient: " & aPatient.SurnameFirstName & vbNewLine &_
    "Comment: " & aCaseEquipLoan.Comment & vbNewLine &_
    "ID: " & aCaseEquipLoan.ID & vbNewLine &_
    "Loan Item: " & Profile.LoadServiceByID(aCaseEquipLoan.ItemID).Description & vbNewLine &_
    "Is Returned: " & aCaseEquipLoan.IsReturned & vbNewLine
  if aCaseEquipLoan.CaseID > 0 then
    aMessage = aMessage & "Case: " & Profile.OpenCase(aCaseEquipLoan.CaseID).CaseTitle & vbNewLine
  else
    aMessage = aMessage & "Case: -" & vbNewLine  
  end if 
next

Profile.MsgBox(aMessage)