ISInvestigationRef.Available

Example

Display Available for the investigation.

Dim aFilter
Dim aOrderItems, aOrderItem 
Dim aInvestigationRef
Dim aMessage
Dim i     

Set aFilter = Profile.MakeInvestigationOrderItemFilter
aFilter.DateFrom = #01/01/2000#
aFilter.DateTo = Now
aFilter.EncounterProvider = Profile.LoadProvider("MM")

set aOrderItems = Profile.LoadInvestigationOrderItems(aFilter)

aMessage = "Order Items Count: " & aOrderItems.Count & vbNewLine

for i = 0 to aOrderItems.Count - 1
  set aOrderItem = aOrderItems.Item(i)
  set aInvestigationRef = aOrderItem.InvestigationRef  
    aMessage = aMessage & (i + 1) & ") " &_
      "-Order Item Creation Date: " & aOrderItem.CreationDate & vbNewLine &_
      "    -Investigation Ref Name: " & aInvestigationRef.Name & vbNewLine &_
      "    -Short Name: " & aInvestigationRef.ShortName & vbNewLine &_
      "    -Department: " & aInvestigationRef.Department.Name & vbNewLine &_
      "    -Order Code: " & aInvestigationRef.OrderCode & vbNewLine &_
      "    -Result Code: " & aInvestigationRef.ResultCode & vbNewLine &_
      "    -Available: " & aInvestigationRef.Available & vbNewLine &_
      "    -Appointment Required: " & aInvestigationRef.AppointmentRequired & vbNewLine &_
      "    -Preferred: " & aInvestigationRef.Preferred & vbNewLine 
next    

Profile.MsgBox(aMessage)