ISInvestigationRef.Group

Example

Display the number of the order items loaded on the basis of the selected filter, their creation dates and some information about the investigations, including their groups.

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 &_
      "    -Information: " & Profile.RTF2Plain(aInvestigationRef.Information) & vbNewLine &_
      "    -Instructions: " & Profile.RTF2Plain(aInvestigationRef.Instructions) & vbNewLine &_
      "    -Use Count: " & aInvestigationRef.UseCount & vbNewLine &_
      "    -Is Group: " & aInvestigationRef.IsGroup & vbNewLine
    if not aInvestigationRef.Group is nothing then
      aMessage = aMessage & "    -Group: " & aInvestigationRef.Group.Description & vbNewLine 
    end if    
next    

Profile.MsgBox(aMessage)