ISInvestigationRef.IsGroup

Example

Display IsGroup 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 &_
      "    -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)