ISInvestigationRef.Category

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 categories.

sub main
  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 &_
      "    -Information: " & Profile.RTF2Plain(aInvestigationRef.Information) & vbNewLine &_
      "    -Instructions: " & Profile.RTF2Plain(aInvestigationRef.Instructions) & vbNewLine &_
      "    -Category: " & GetCategoryDescr(aInvestigationRef.Category) & vbNewLine
  next

  Profile.MsgBox(aMessage) 
end sub

function GetCategoryDescr(aCategory)
  Dim aResult

  Select Case aCategory
    Case 0
      aResult = "Common"
    Case 1
      aResult = "Occasional"
    Case 2
      aResult = "Unusual"
    Case 3
      aResult = "Other"         
  End Select
  
  GetCategoryDescr = aResult
end function